GMRCTU1 ; SLC/KR Get DD Info ; [11/8/99 1:57pm]
Source file <GMRCTU1.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 ; |
|
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) ; |
Name | Field # of Occurrence |
---|---|
$$ROOT^DILFD | CURRDD+7, CURRDD+8 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | INFO+19, GETDD+9, GETDD+10, NEXTDD+24, NEXTDD+26 |
Name | Line Occurrences |
---|---|
CURRDD | GETDD+13 |
GETDD | INFO+21, NEXTDD+31 |
NEXTDD | GETDD+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
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 |
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* |
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 |