GMRCYP9 ; SLC/PKS-KR Remove Terminated Users ; [2/18/00 3:17pm]
Source file <GMRCYP9.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BF | ; Remove Entries for all Terminated Users (By File)
; ; FILENUM File # ; FIELDNUM Field # ; LCNT Line Counter ; RTS( Array of Global Roots ; GTOT Grand Total Terminated Users ; GMRCMSG Array for Bulletin Message ; GMRCCNT Counter Variable ; XMvars Set for Bulletin Message ; |
|
| CHECK | ; Check users in <FILE> and <FIELD>
; ; FILENUM File # ; FIELDNUM Field # ; LCNT Line Counter ; RTS( Array of Global Roots ; |
|
| FILE(X) | ; Get File Number
|
|
| FIELD(X) | ; Get Field Number
|
|
| REMOVE | ; Remove Terminated User
; ; DA Current DA Array ; DIC Current Global Root ; LVL Current Level ; IND Indentation (for write statements) ; TERM Terminated Entries Found in File ; TOT Total Terminated Entries Found |
|
| REMDAT | ; Get Removal Data (Name and Termination Date)
; ; LVL Current Level ; RTS( Array of Global Roots ; |
|
| GETDAT | ; Get Data
; ; DA Current DA Array ; DIC Current Global Root ; DICP Current Global Specifier ; LVL Current Level ; IEN Current Internal Entry Number ; RTS( Array of Global Roots ; |
|
| NEXTDAT | ; Next Data (for subfiles)
; ; DA Current DA Array ; DIC Current Global Root ; DICP Current Global Specifier ; LVL Current Level ; IEN Current Internal Entry Number ; OLDDA Previous DA Array ; OLDDIC Previous Global Root ; OLDLVL Previous Level ; CNT Counter ; |
|
| EXTDAT | ; Extract Data
; ; GMRCERR Error Message Array ; CDA DA Counter ; LDA Last DA ; NODE Fully Specified Global Node ; NODEDAT Data Stored at Global Node ; NODESUB Node Subscript # ; NODELOC Node Location ($PIECE # of Node) ; GBLLOC Global Subscript Location (#;#) ; DIC Fully Specified Global Root ; DICP Global Specifier ; USRP Pointer to New Person File ; USRNAME User's Name ; USRITD Internal form of User's Termination Date ; USRETD External form of User's Termination Date ; USRSTA User Status ; USRACT User Action ; GMRCUSRP Pointer Holder ; |
|
| DEL | ; Delete Entry
; ; DIC Current Global Root ; OLDDIC Former DIC (Global Root) ; DIC(0) Lookup Parameters ; DIC("P") Subfile Specifiers ; DIC("DR") Data Field String ; OLDDA Former DA Array ; DA Current DA Array ; ; DIE Global Root ; DIK Global Root ; DR Data Field String ; DTOUT Timeout Flag ; DUOUT Up-Arrow Out Flag ; DLAYGO "Learn As You Go" Flag ; OLDDUZ Former User ; DUZ Current User ; DUZ(0) Current User Access ; GL Fileman Global Location ; UDA Uppermost DA ; LN Node to Lock ; VAR Field Value ; X Input Data ; Y Output Data ; I Counter ; |
|
| DATC | ; Data (FILE/FIELDS) for pointer removal (Consults)
|
|
| POST | ; Further post-install action for patch GMRC*3*9.
|
|
| RBLDIXS | ; Rebuild indices for ^GMR(123.5 file.
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
