Routine: DDUCHK2

Package	Total	Call Graph
VA Fileman	2	(CHK,PAGE)^DDUCHK (COMP,DXREF,XREF)^DDUCHK3

Package	Total	Caller Graph
VA Fileman	1	DDUCHK

Entry Points

External References

Name	Field # of Occurrence
CHK^DDUCHK	MULT+4
PAGE^DDUCHK	MULT+1
COMP^DDUCHK3	CHK6+1
DXREF^DDUCHK3	CHK6+1
XREF^DDUCHK3	CHK6+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"*Field: ",DDUCFE," is missing its zero node." Line Location: FIELD+1
Function Call: WRITE	Prompt: !?5,"*Field: ",DDUCFE,"'s Input Transform contains $Next." Line Location: FIELD+3
Function Call: WRITE	Prompt: "doesn't have the correct protection for a field with executable code." Line Location: FIELD+4
Function Call: WRITE	Prompt: !?10,"^DD(",DDUCFI,",",DDUCFE,",9) = ""@"" was set." Line Location: FIELD+4
Function Call: WRITE	Prompt: !?5,"*Field: ",DDUCFE," (",DDUCXN,") points to missing file: ",DDUCRFI Line Location: PT+1
Function Call: WRITE	Prompt: !?5,"*Field: ",DDUCFE," (",DDUCXN,") points to File: "_DDUCRFI_", is missing file's ""GL"" (Global Location) node." Line Location: PT+4
Function Call: WRITE	Prompt: !?5,"*Field: ",DDUCFE," (",DDUCXN,") points to File: "_DDUCRFI_", missing File header node." Line Location: PT+6
Function Call: WRITE	Prompt: "is missing its 'PT' node in the pointed-to-file." Line Location: PT1+0
Function Call: WRITE	Prompt: !?10,"^DD(",+DDUCRFI,",0,""PT"",",DDUCFI,",",DDUCFE,") = """" was set." Line Location: PT1+0
Function Call: WRITE	Prompt: !?5,"*Field: ",DDUCFE," (",DDUCXN,") missing subfile: ",+DDUCX2 Line Location: MULT+2
Function Call: WRITE	Prompt: "Bad 'UP' pointer in subfile #",+DDUCX2 Line Location: MULT+3
Function Call: WRITE	Prompt: !?10,"^DD(",+DDUCX2,",0,""UP"") = ",DDUCFI," was set." Line Location: MULT+3
Function Call: WRITE	Prompt: !?3,"Checking subfile ",DDUCFI Line Location: MULT+4
Function Call: WRITE	Prompt: !?3,"Returning to ",$S('DDUCSTK:"main ",1:"sub"),"file",$S('DDUCSTK:" "_DDUCFILE_".",1:" "_DDUCFI) Line Location: MULT+4
Function Call: WRITE	Prompt: !?8,"Field: ",DDUCFE," (",DDUCXN,") " Line Location: WHO+0
Function Call: WRITE	Prompt: !?5,"*Duplicate Fields represent Sub-file: "_DDUCSB,!?7 Line Location: CHKSB+16
Function Call: WRITE	Prompt: "field: "_X1_"; " Line Location: CHKSB+17
Function Call: WRITE	Prompt: !?7,"*Field: "_DDUCFE_", File: "_DDUCFI_", ""SB"" subscript for subfile: "_DDUCSB_" is missing." Line Location: CHKSBA+1
Function Call: WRITE	Prompt: !?5,"*Duplication at global location subscript: "_$P(X1,";")_", piece: "_$P(X1,";",2),!?9 Line Location: CHKGL+17
Function Call: WRITE	Prompt: "field: "_X3_"; " Line Location: CHKGL+20

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	CHK6+1, FIELD+1, FIELD+2, FIVE, FIVE+2!, FIVE+3, VP, PT+1, PT1, MULT+2 , MULT+3*, CHKSB+3, CHKSB+6, CHKSB+9, CHKSB+12, CHKSBA+1, CHKGL+3, CHKGL+6, CHKGL+9, CHKGL+13
^DIC - [#1]	PT+3

Label References

Name	Line Occurrences
@(	FIELD+5
CHKSBA	CHKSB+6
FIELD	CHK6+1
FIVE	CHK6+1
POP	MULT+4
PT1	VP
PUSH	MULT+4
WHO	PT1, MULT+3

Naked Globals

Name	Field # of Occurrence
^(	FIVE
^("UP"	MULT+3
^(0	VP

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DDUCFE	CHK6+1, FIELD+1, FIELD+2, FIELD+3, FIVE, FIVE+2, FIVE+3, VP, PT+1, PT+4 , PT+6, PT1, MULT+2, PUSH, POP, WHO, CHKSB+4~, CHKSB+5, CHKSB+6, CHKSB+9 , CHKSB+10, CHKSB+11, CHKSBA+1
DDUCFE1	CHKSB+7~, CHKSB+11, CHKSB+12
DDUCFE2	CHKGL+7~, CHKGL+8, CHKGL+9, CHKGL+10, CHKGL+13
>> DDUCFI	CHK6+1, FIELD+1, FIELD+2, FIVE, FIVE+2, FIVE+3, VP, PT1, MULT+3, MULT+4* , PUSH, POP*, CHKSB+3, CHKSB+6, CHKSB+9, CHKSB+12, CHKSBA+1, CHKGL+3, CHKGL+6, CHKGL+9 , CHKGL+13
>> DDUCFILE	MULT+4
>> DDUCFIX	FIVE+1, PT1, MULT+3
DDUCGL	PT+2~, PT+3*, PT+4, PT+5
DDUCHDR	PT+2~, PT+5*, PT+6
DDUCN	CHKGL+1~, CHKGL+2, CHKGL+3, CHKGL+6, CHKGL+9, CHKGL+10, CHKGL+13
DDUCNA	PT+2~
DDUCP	CHKGL+4~, CHKGL+5, CHKGL+6, CHKGL+9, CHKGL+10, CHKGL+13
>> DDUCRFI	VP, PT, PT+1, PT+3, PT+4, PT+6, PT1
DDUCSAV	CHKSB+4~, CHKGL+7~
DDUCSAV(	CHKSB+10, CHKSB+12, CHKSB+15, CHKGL+10, CHKGL+13, CHKGL+16, CHKGL+20
DDUCSB	CHKSB+1~, CHKSB+2, CHKSB+3, CHKSB+6, CHKSB+9, CHKSB+12, CHKSB+16, CHKSBA+1
>> DDUCSTK	MULT+4, PUSH, POP
>> DDUCSTK(	PUSH*, POP
>> DDUCUP	MULT+3*
DDUCX	FIELD+2, FIELD+3, FIVE, FIVE+3, CHKSB+7~, CHKSB+9
>> DDUCX2	FIELD+2*, FIELD+5, PT, MULT+2, MULT+3, MULT+4
>> DDUCX4	FIELD+2*
>> DDUCXN	FIELD+2*, PT+1, PT+4, PT+6, MULT+2, WHO
DDUCXX	FIVE!
DDUCXX(	FIVE*, FIVE+3
>> DDUCY	FIVE, FIVE+3, VP*
DDUERR	PT~, PT+1, PT+4, PT+6
DDUNFE	CHKSB+4~, CHKSB+6, CHKSBA+1*
>> DIRUT	CHK6+1, MULT+1
U	FIELD+2, FIELD+3, FIVE, CHKSB+9
X	CHKGL+11~, CHKGL+12, CHKGL+13
X1	CHKSB+13~, CHKSB+14, CHKSB+15, CHKSB+17, CHKGL+14~, CHKGL+15, CHKGL+16, CHKGL+17, CHKGL+20
X2	CHKSB+13~, CHKSB+16, CHKGL+14~, CHKGL+17
X3	CHKGL+18~, CHKGL+19, CHKGL+20

Customize PDF page

Package: VA Fileman

Routine: DDUCHK2

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
CHKSBA	;Check if Feidl exists
Q
CHKSB	;Check for duplicate "SB" x-refs ;22*130
PT
CHK6	;W !?5,"Checking FIELDs"
WHO
POP
VP
FIELD	;W "."
FIVE
MULT	;Work subfile
PUSH
CHKGL	;Check for duplicate "GL" nodes ;22*130
PT1