Routine: DIQGDD

Information

DIQGDD ;SFISC/DCL-DATA DICTIONARY ATTRIBUTE RETRIEVER ;10:55 AM 8 Nov 2000 [ 04/02/2003 8:25 AM ]

Source Information

Source file <DIQGDD.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	5	BLD^DIALOG CALLOUT^DIEFU ($$F,$$GET,DDENTRY)^DIQG (ENLST,LIST)^DIQGDDT ($$FL,RI)^DIQGDDU

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
VA Fileman	4	DDBR3 DID DIQGDD0 DIQGDDF

Entry Points

External References

Name	Field # of Occurrence
BLD^DIALOG	EN1+9, 200, 202+1
CALLOUT^DIEFU	FE
$$F^DIQG	EN3+2, EN3+3
$$GET^DIQG	EN1+18
DDENTRY^DIQG	EN3+11
ENLST^DIQGDDT	EN4+2, EN5+2
LIST^DIQGDDT	BLDSAL+2, BLDSAL+3, XDR+3, ATRBT+4, DR+3
$$FL^DIQGDDU	EN3+7, EN1+17
RI^DIQGDDU	EN3+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	EN3+5, EN1+6, EN1+9, EN1+11
^DIC - [#1]	EN3+3
^TMP("DIERR"	EN3+1!, EN1+3!

Label References

Name	Line Occurrences
$$ATRBT	EN3+10
$$OR2	OREF
$$OREF	EN1+16
$$Q	EN1+16
200	EN3+5, EN3+6, EN1+10, EN1+11, EN1+13, BLDSAL+5, BLDSAL+9
202	EN3+10, EN1+4, EN1+5, EN1+6, EN1+7
BLDSAL	EN1+12
FE	EN1+9, 200, 202+1
SET	EN1+17

Naked Globals

Name	Field # of Occurrence
^(	EN3+5, EN1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OR2~*
%Z	Q~*
%Z(	Q*
%Z(""	Q
ATRIB	ATRBT~, ATRBT+3, ATRBT+5
DA	GET~, EN3+3, EN3+5, EN3+6, EN3+7, FIELD~, EN1+5, EN1+9*, EN1+10, EN1+11 , EN1+17, EN1+18
DIDARRAY	FILELST~, FIELDLST~
DIERR	EN3+1!, EN1+3!, EN1+13
DIQGDFLG	EN4~, EN4+1, EN5~, EN5+1
DIQGDR	BLDSAL~, BLDSAL+2, BLDSAL+4
DIQGDR(	BLDSAL+8
DIQGER	BLDSAL+3~
DIQGER(4	BLDSAL+5, BLDSAL+9
DIQGERR	EN1~, XDR~
DIQGERR(	XDR+5, XDR+8
DIQGERRA	GET~, FIELD~, FE
DIQGETA	GET~
DIQGEY	EN1~
DIQGEY(1	EN1+1*
DIQGEY(3	EN1+10, EN1+11
DIQGFNUL	EN1~, EN1+8*, SET+1
DIQGI	BLDSAL+3~, BLDSAL+4*
DIQGIPAR	GET~, EN3+1, FIELD~, EN1+3
DIQGPARM	GET~, EN3+4, FIELD~, EN1+8, EN1+18
DIQGR	GET~, EN3+2, EN3+3, EN3+4, EN3+5, EN3+7, EN3+10, FIELD~, EN1+1, EN1+4 , EN1+6, EN1+9, EN1+11, EN1+17, EN1+18, XDR~, XDR+2, XDR+3
DIQGSAL	EN1~, EN1+12, EN1+13, EN1+14, EN1+15*, EN1+16, EN1+17, EN1+18, SET, SET+2
DIQGSAL(	EN1+15, EN1+16, EN1+18
DIQGSALX	EN1~, EN1+17, EN1+18, SET, SET+2
DIQGTA	FIELD~, EN1+7, EN1+16, SET, SET+2
DIQGTAXX	EN1~, EN1+16*, EN1+18
DIQGTYPE	BLDSAL~, BLDSAL+2, BLDSAL+3
DIQGVALA	BLDSAL~, BLDSAL+2, BLDSAL+7
DIQGVALA(	BLDSAL+6, BLDSAL+10
DIQGX	BLDSAL+3~
DIQGX(	BLDSAL+5, BLDSAL+6, BLDSAL+9, BLDSAL+10
DIQGY	BLDSAL+3~, BLDSAL+4, BLDSAL+5, BLDSAL+6, BLDSAL+8, BLDSAL+9, BLDSAL+10
DR	GET~, EN3+7, EN3+8, EN3+9~, EN3+10, FIELD~, EN1+12, XDR~, XDR+2, XDR+4 , XDR+7
DR(	XDR+7
DRSV	EN3+9~*, EN3+10
E	202~
EQL	EN4~, EN5~
I	XDR+3~, XDR+4*
TP	EN4~, EN5~
TYPE	ATRBT~, ATRBT+4, DR~, DR+1, DR+3, EN4~, EN4+1, EN5~, EN5+1*
U	EN3~, EN1+2~
X	EN3+2~, EN3+3, EN1+9~, XDR+3~, XDR+4, XDR+5, XDR+6, XDR+7, XDR+8, XDR+9 , ATRBT+4~, DR+2~, DR+3, DR+4*, DR+5, OREF~, 202~, 202+1
X(	XDR+5, XDR+6, XDR+7, XDR+8, XDR+9, ATRBT+5, DR+4
X("FILE"	EN1+9*
X(1	EN3+2, EN3+3, EN1+9, 202
X1	OREF~*
X2	OREF~*
XDR	XDR+3~, XDR+4, XDR+6, XDR+7, XDR+9, XDR+10
Y	DR+2~, DR+4*

Name	Comments	DBIA/ICR reference
200
SET
GET(DIQGR,DA,DR,DIQGPARM,DIQGETA,DIQGERRA,DIQGIPAR)	;
DR(TYPE)	;TYPE=1,FILE OR 0,FIELD AND RETURNS DR STRING FOR ALL ATTRIBUTES IN INTERNAL FORM (ATTRIBUTE FIELD NUMBERS 3RD ;-PIECE
FIELD(DIQGR,DA,DR,DIQGPARM,DIQGTA,DIQGERRA,DIQGIPAR)	;
ATRBT(TYPE,ATRIB)	;EXTRINSIC FUNCTION $$TEST IF VALID ATTRIBUTE
XDR(DIQGR,DR,DIQGERR)	;DIQGR DD FILE NUMBER EITHER 1 OR 0
EN1
BLDSAL(DIQGTYPE,DIQGDR,DIQGVALA)	;DIQGTYPE=1 for FILE and 0 for FIELD, DIQGDR=string/array, DIQGVALA=valid attribute list array ; * If DIQGDR is an array pass by reference *
EN3
EN4
FILELST(DIDARRAY)	;PASS TARGET ARRAY BY REFERENCE * * LIST FILE ATTRIBUTES * *
FE
202(E)
FIELDLST(DIDARRAY)	;PASS TARGET ARRAY BY REFERENCE * * LIST FIELD ATTRIBUTES * *
OREF(X)
Q(%Z)
OR2(%)
EN5

Customize PDF page

Package: VA Fileman

Routine: DIQGDD

Call Graph Total: 5

Caller Graph Total: 4