DICA3 ;SEA/TOAD-VA FileMan: Updater, Adder ;16FEB2011
Source file <DICA3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CREATE(DIFILE,DIEN,DIROOT,DIVALUE) | ;If DIEN comes in with a leading number, use it as IEN
|
|
| GETNUM | ;
|
|
| ZERO | ||
| SETREC | ;
|
|
| PROOT(DIFILE,DIEN) | ;
; ENTRY POINT--return the global root of a subfile's parent ; extrinsic function, all passed by value |
|
| PARENT(DIFILE) | ;
; ENTRY POINT--return the file number of a subfile's parent ; extrinsic function, all passed by value |
|
| SUBFILE(DIFILE) | ;
; ENTRY POINT--return whether the file is a subfile ; extrinsic function, passed by value |
|
| ERR(DIERN,DIFILE,DIIENS,DIFIELD,DI1,DI2,DI3) | ;
; error logging procedure |
