DICA3 ;SEA/TOAD-VA FileMan: Updater, Adder ;16FEB2011
Source file <DICA3.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | PARENT+3, SUBFILE+3 |
| ^DIA - [#1.1] | GETNUM+1, GETNUM+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DI | ERR+3~* |
| DI1 | ERR~ |
| DI2 | ERR~ |
| DI3 | ERR~ |
| DICAFILE | SETREC+1~*, SETREC+7, SETREC+8 |
| DIEN | CREATE~, CREATE+1, CREATE+2*, CREATE+4*, GETNUM+1*, GETNUM+3*, GETNUM+4, GETNUM+5, GETNUM+7, ZERO+2 , ZERO+4*, SETREC+4, SETREC+6*, SETREC+7, SETREC+8, PROOT~, PROOT+3 |
| DIENP | CREATE+1~*, CREATE+5, GETNUM+7, ZERO+2, SETREC+6, PROOT+3~*, PROOT+4 |
| DIERN | ERR~, ERR+4 |
| >> DIERR | CREATE+4, CREATE+6 |
| DIFAIL | GETNUM+2~*, GETNUM+5*, GETNUM+7*, ZERO+1*, ZERO+4 |
| DIFAUD | GETNUM+1~*, GETNUM+4 |
| DIFIELD | ERR~ |
| DIFILE | CREATE~, CREATE+5, GETNUM+1, GETNUM+5, GETNUM+7, ZERO+2, SETREC+1~, PROOT~, PROOT+4, PARENT~ , PARENT+3, SUBFILE~, SUBFILE+3, ERR~ |
| DIHEADER | CREATE+5~*, CREATE+6 |
| DIIENS | ERR~ |
| DINEXT | CREATE+3~*, CREATE+4, GETNUM+1 |
| DINUM | GETNUM+1~*, GETNUM+3, GETNUM+7, ZERO+1 |
| DIOUT | GETNUM+2~*, ZERO+3* |
| DIPE | ERR+2~, ERR+4 |
| DIPE( | ERR+3* |
| DIROOT | CREATE~, CREATE+3, CREATE+6, GETNUM+3, GETNUM+6, ZERO, SETREC+2, SETREC+3, SETREC+4, SETREC+5 |
| DIVALUE | CREATE~, SETREC+2, SETREC+7 |
| U | CREATE+3, SETREC+4 |
