Routine: GMRCTU1

Information

GMRCTU1 ; SLC/KR Get DD Info ; [11/8/99 1:57pm]

Source file <GMRCTU1.m>

Package	Total	Call Graph
VA Fileman	1	$$ROOT^DILFD

Package	Total	Caller Graph
Consult Request Tracking	1	GMRCTU

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	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