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 ; |
|
FILE(X) | ; Get File Number
|
|
REMDAT | ; Get Removal Data (Name and Termination Date)
; ; LVL Current Level ; RTS( Array of Global Roots ; |
|
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 |
|
DATO | ; Data (FILE/FIELDS) for pointer removal (OERR)
|
|
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 ; |
|
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 ; |
|
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 ; |
|
CHECK | ; Check users in <FILE> and <FIELD>
; ; FILENUM File # ; FIELDNUM Field # ; LCNT Line Counter ; RTS( Array of Global Roots ; |
|
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 ; |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^VA(200 - [#200] | EXTDAT+28, EXTDAT+34 |
Name | Line Occurrences |
---|---|
$$FIELD | CHECK+8 |
$$FILE | CHECK+7 |
CHECK | BF+13 |
DEL | EXTDAT+33 |
EXTDAT | GETDAT+13 |
GETDAT | REMDAT+6 |
NEXTDAT | GETDAT+13 |
REMDAT | REMOVE+11, NEXTDAT+22 |
REMOVE | CHECK+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CDA | EXTDAT+20~ |
CNT | NEXTDAT+12~, NEXTDAT+14*, NEXTDAT+15, NEXTDAT+17*, NEXTDAT+18 |
DA | REMOVE+9~, GETDAT+12*, NEXTDAT+13, NEXTDAT+16~, EXTDAT+23, EXTDAT+26, DEL+29, DEL+32, DEL+33~*, DEL+39 , DEL+49 |
DA( | NEXTDAT+15, NEXTDAT+18*, DEL+32, DEL+33*, DEL+39 |
DA(" " | NEXTDAT+14, EXTDAT+35, DEL+39 |
DA(1 | NEXTDAT+19*, EXTDAT+24, DEL+39, DEL+46, DEL+49 |
DIC | REMOVE+9~, GETDAT+9*, GETDAT+11, NEXTDAT+13, NEXTDAT+20~, NEXTDAT+21*, EXTDAT+23, EXTDAT+24, EXTDAT+26, DEL+29 , DEL+37, DEL+38~* |
DIC("DR" | DEL+45* |
DIC("P" | DEL+42* |
DIC(0 | DEL+43* |
DICP | GETDAT+10*, NEXTDAT+13, NEXTDAT+20~, EXTDAT+25, DEL+42 |
DIE | DEL+35~, DEL+38* |
DIFROM | BF+11~ |
DIK | DEL+35~, DEL+38* |
DLAYGO | DEL+35~, DEL+44* |
DR | DEL+35~, DEL+45* |
DT | BF+12 |
DTOUT | DEL+35~ |
DUOUT | DEL+35~ |
DUZ | BF+16 |
DUZ(0 | DEL+36 |
FIELDNUM | BF+11~, BF+13, CHECK+8*, CHECK+10, REMOVE+15, REMOVE+16, DEL+54 |
FILENUM | BF+11~, BF+13, CHECK+7*, CHECK+10, REMOVE+15, REMOVE+16, DEL+49, DEL+54 |
GBLLOC | EXTDAT+20~, EXTDAT+21*, EXTDAT+22 |
GL | DEL+35~, DEL+38*, DEL+40, DEL+49 |
GTOT | BF+11~, BF+12*, REMOVE+12* |
I | DEL+31~, DEL+32*, DEL+33* |
IEN | REMOVE+9~, GETDAT+11*, GETDAT+12, NEXTDAT+20~ |
IND | REMOVE+9~, REMOVE+10* |
LCNT | BF+11~, BF+12*, BF+13*, CHECK+7, CHECK+8 |
LDA | EXTDAT+20~, EXTDAT+35* |
LN | DEL+31~, DEL+40*, DEL+51, DEL+53 |
LVL | REMOVE+9~, REMOVE+10*, REMDAT+5*, GETDAT+9, GETDAT+10, GETDAT+13, NEXTDAT+13, NEXTDAT+20~, NEXTDAT+21* |
NODE | EXTDAT+20~, EXTDAT+26* |
NODEDAT | EXTDAT+20~, EXTDAT+26*, EXTDAT+27 |
NODELOC | EXTDAT+20~, EXTDAT+22*, EXTDAT+23, EXTDAT+24, EXTDAT+27 |
NODESUB | EXTDAT+20~, EXTDAT+22*, EXTDAT+23, EXTDAT+24, EXTDAT+26 |
NOW | BF+11~, BF+12* |
OLDDA | NEXTDAT+12~, NEXTDAT+13*, NEXTDAT+19, DEL+32*, DEL+33 |
OLDDA( | NEXTDAT+15*, NEXTDAT+18, DEL+32*, DEL+33 |
OLDDA(" " | NEXTDAT+17 |
OLDDIC | NEXTDAT+12~, NEXTDAT+13*, NEXTDAT+21, DEL+35~, DEL+37*, DEL+38 |
OLDDICP | NEXTDAT+12~, NEXTDAT+13* |
OLDDUZ | DEL+35~, DEL+36* |
OLDLVL | NEXTDAT+12~, NEXTDAT+13*, NEXTDAT+21 |
ORLPERR | EXTDAT+20~, EXTDAT+30!, EXTDAT+31! |
ORLPUSRP | EXTDAT+20~, EXTDAT+29*, EXTDAT+30, EXTDAT+31 |
ORYCNT | BF+11~, BF+12*, BF+18, BF+19, BF+20, BF+21, BF+22, BF+23, BF+24, BF+25 , BF+26, BF+27, BF+28, BF+29, BF+30, REMOVE+14*, REMOVE+15, REMOVE+16 |
ORYDAT | DEL+31~, DEL+49* |
ORYMSG | BF+11~ |
ORYMSG( | BF+18*, BF+19*, BF+20*, BF+21*, BF+22*, BF+23*, BF+24*, BF+25*, BF+26*, BF+27* , BF+28*, BF+29*, BF+30*, REMOVE+15*, REMOVE+16* |
ORYTEAM | DEL+31~, DEL+46*, DEL+54 |
RTS | BF+11~, CHECK+9!, CHECK+10, CHECK+11 |
RTS("DIC" | REMDAT+5, GETDAT+9, GETDAT+10, GETDAT+13, DEL+38, DEL+42 |
RTS("FIELD" | DEL+29, DEL+45 |
RTS("FILE" | DEL+29, DEL+44 |
RTS("LOC" | EXTDAT+21 |
TAG | BF+11~, FILE+1*, FIELD+1* |
TERM | REMOVE+9~, REMOVE+10*, REMOVE+12, EXTDAT+33* |
TOT | REMOVE+9~, REMOVE+10*, REMOVE+12*, REMOVE+15, REMOVE+16 |
UDA | DEL+31~, DEL+39*, DEL+40 |
USR | BF+11~, REMOVE+13, EXTDAT+28, EXTDAT+34 |
USRACT | EXTDAT+20~, EXTDAT+32*, EXTDAT+33 |
USRETD | EXTDAT+20~, EXTDAT+33* |
USRITD | EXTDAT+20~, EXTDAT+31*, EXTDAT+33 |
USRNAME | EXTDAT+20~, EXTDAT+30*, DEL+54 |
USRP | EXTDAT+20~, EXTDAT+27*, EXTDAT+28, EXTDAT+29, EXTDAT+32, DEL+54 |
USRSTA | EXTDAT+20~, EXTDAT+32* |
VAR | DEL+35~, DEL+45* |
X | FILE~, FILE+2*, FILE+3*, FIELD~, FIELD+2*, FIELD+3*, DEL+35~ |
XMDUZ | BF+11~, BF+16* |
XMSUB | BF+11~, BF+16* |
XMTEXT | BF+11~, BF+17* |
XMY | BF+11~ |
XMY( | BF+16* |
Y | DEL+35~ |
Name | Field # of Occurrence |
---|---|
$T(@TAG+X | FILE+2, FIELD+2 |