ORY44 ; SLC/PKS-KR Remove Terminated Users ; [3/13/00 12:42pm]
Source file <ORY44.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 ; ORYMSG Array for Bulletin Message ; ORYCNT 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
; ; ORLPERR 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 ; ORLPUSRP 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 ; ORYTEAM Team IEN for Message ; ORYDAT Data File String Holder ; |
|
| DATO | ; Data (FILE/FIELDS) for pointer removal (OERR)
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
