ORY44B ; SLC/PKS-KR Remove Terminated Users (get DD info) ; [11/8/99 1:45pm]
Source file <ORY44B.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GETDD | ; Get file roots from DD
; ; FILE Current File # ; FIELD Current Field # ; DIC Current Global Root ; LOC Current Global Subscript Location (#;#) ; ARY( Temporay Storage Array (contains DD) ; ORA( Output Array ; |
|
INFO(FILE,FIELD,ORA) | ;
; ; DIC Global Root for <FILE> ; LOC Global Subscript Location (#;#) for <FIELD> ; ; INFO(<file #>,<field #>,.ARRAY) ; ; Returns ; ; ARRAY("DIC",0)=Global Root ; ARRAY("DIC",1)=File Root ; ARRAY("DIC",2)=Subfile Root ; ARRAY("DIC",..)=Subfile Root ; ARRAY("FILE")=Target File/Subfile Number ; ARRAY("FIELD")=Target Field ; ARRAY("NAME")=Target Field Name ; ARRAY("LOC")=Subscript and Piece ; |
|
TERM(X) | ; Terminated
; ; Returns: Status^Explanation - ; ; 2 = Terminated ; 1 = Future Termination ; 0 = Not Terminated ; -1 = Error^Error Text ; ; USR New Person ; NAM New Person Name ; NOW Today's Date ; % Fileman Date and Time ; %I( Fileman Date Array ; %H $H Date and Time ; X Today ; ORLPERR Error Array ; ORLPUSR New Person Holder |
|
NEXTDD | ; Next DD Level (for subfiles)
; ; OLDFILE Previous File # ; OLDFIELD Previous Field # ; OLDDIC Previous Global Root ; OLDLOC Previous Global Subscript Location (#;#) ; FILE Current File # ; FIELD Current Field # ; DIC Current Global Root ; SNS Subfile Number and Subfile Specifier ; LOC Current Global Subscript Location (#;#) ; ARY( Temporay Storage Array (contains DD) ; ORA( Output Array ; SUB( Subscript Array ; SFS( Subfile Specifier Array ; SUBI Subscript Counter ; SS Subscript ; DA Internal Entry Number Array ; CT1 Miscellaneous Counter #1 ; CT2 Miscellaneous Counter #2 ; |
|
CURRDD | ; Current DD
; ; FILE Current File # ; DIC Current Global Root ; SFS Subfile Specifier Array ; ARY( Temporary Storage Array (contains DD) ; |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | INFO+19, GETDD+9, GETDD+10, NEXTDD+24, NEXTDD+26 |
^VA(200 - [#200] | TERM+20, TERM+21, TERM+22 |
Name | Line Occurrences |
---|---|
CURRDD | GETDD+13 |
GETDD | INFO+21, NEXTDD+31 |
NEXTDD | GETDD+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | TERM+19~ |
%H | TERM+19~ |
%I | TERM+19~ |
ARY | GETDD+9~, NEXTDD+24~ |
ARY( | GETDD+9*, GETDD+10*, GETDD+11, GETDD+12, GETDD+13, NEXTDD+23, NEXTDD+24*, NEXTDD+25, NEXTDD+26*, NEXTDD+27 , NEXTDD+29 |
CT1 | NEXTDD+21~, NEXTDD+34* |
CT2 | NEXTDD+21~, NEXTDD+35*, NEXTDD+36 |
DA | NEXTDD+34~* |
DIC | INFO+18~*, INFO+22, CURRDD+7*, NEXTDD+22~, NEXTDD+29*, NEXTDD+32, NEXTDD+33, NEXTDD+34*, NEXTDD+36* |
DIC2 | NEXTDD+21~ |
FIELD | INFO~, INFO+18*, INFO+19, INFO+20, GETDD+9, GETDD+11, GETDD+12, NEXTDD+22~, NEXTDD+25*, NEXTDD+26 , NEXTDD+27, NEXTDD+29 |
FIELD2 | NEXTDD+21~, NEXTDD+22*, NEXTDD+24 |
FILE | INFO~, INFO+18*, INFO+19, INFO+20, GETDD+9, GETDD+10, GETDD+11, GETDD+12, GETDD+13, CURRDD+7 , CURRDD+8, NEXTDD+22~, NEXTDD+23*, NEXTDD+24, NEXTDD+25, NEXTDD+26, NEXTDD+27, NEXTDD+29 |
FILE2 | NEXTDD+21~, NEXTDD+22*, NEXTDD+23, NEXTDD+25 |
LOC | INFO+18~*, INFO+24, GETDD+12*, NEXTDD+22, NEXTDD+32* |
LOC2 | NEXTDD+21~, NEXTDD+22*, NEXTDD+32 |
NAM | TERM+19~, TERM+22*, TERM+26, TERM+27, TERM+28, TERM+29 |
NOW | TERM+19~, TERM+23*, TERM+28, TERM+29 |
ORA | INFO~ |
ORA("DIC" | INFO+22*, INFO+23*, NEXTDD+33*, NEXTDD+36* |
ORA("FIELD" | INFO+20* |
ORA("FILE" | INFO+20* |
ORA("LOC" | INFO+24* |
ORA("NAME" | GETDD+11* |
ORLPERR | TERM+19~, TERM+25 |
ORLPUSR | TERM+19~, TERM+24*, TERM+25 |
SFS | INFO+18~, INFO+23, CURRDD+8* |
SFS( | NEXTDD+30*, NEXTDD+36 |
SNS | INFO+18~, NEXTDD+27*, NEXTDD+30 |
SS | NEXTDD+34~, NEXTDD+36* |
SUB | INFO+18~ |
SUB( | NEXTDD+29*, NEXTDD+36 |
SUB(" " | NEXTDD+28 |
SUBI | INFO+18~, NEXTDD+28*, NEXTDD+29, NEXTDD+30, NEXTDD+34, NEXTDD+35 |
USR | TERM+19~*, TERM+20, TERM+21, TERM+22, TERM+24 |
USRITD | TERM+19~, TERM+25*, TERM+26, TERM+27, TERM+28, TERM+29 |
X | TERM~, TERM+19, TERM+23 |