Routine: XBGC

Name	Comments	DBIA/ICR reference
START	;
WALK	; TRAVERSE TREE AT CURRENT SUBSCRIPT LEVEL
GDGL	;
GOTNODE	; PROCESS ONE NODE
GSGL	;

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: GSGL+6
Function Call: WRITE	Prompt: !!,"Global must be partial!,",!,$C(7) Line Location: GSGL+7
Function Call: WRITE	Prompt: !!,"Global ",SG," does not exist!",!,$C(7) Line Location: GSGL+9
Function Call: WRITE	Prompt: !!,"Partial global ",SG," does not exist!",!,$C(7) Line Location: GSGL+10
Function Call: WRITE	Prompt: $C(7) Line Location: GDGL+6
Function Call: WRITE	Prompt: !!,"Global must be partial!,",!,$C(7) Line Location: GDGL+7
Function Call: WRITE	Prompt: !!,"Output same as input!",$C(7),! Line Location: GDGL+9
Function Call: WRITE	Prompt: !!,"Output contained in input!",$C(7),! Line Location: GDGL+10
Function Call: WRITE	Prompt: !!,"Input contained in output!",$C(7),! Line Location: GDGL+11
Function Call: WRITE	Prompt: !!,"Destination global """,$P(DG,"(",1),""" already exists!",! Line Location: GDGL+12
Function Call: WRITE	Prompt: !!,"Partial global ",DG," already exists.",! Line Location: GDGL+13
Function Call: READ	Timeout: $G(DTIME,999) Variable: ANS Line Location: GDGL+14
Function Call: READ	Timeout: $G(DTIME,999) Variable: ANS Line Location: GDGL+15
Function Call: WRITE	Prompt: !!,"All done!",! Line Location: GDGL+26

Name	Line Occurrences
GDGL	GDGL+6, GDGL+7
GOTNODE	WALK+3
GSGL	GSGL+6, GSGL+7, GSGL+9, GSGL+10, GDGL+9, GDGL+10, GDGL+11
START	GDGL+27
WALK	GDGL+25, GOTNODE+5

Name	Field # of Occurrence
>> %	START+1
>> ANS	GDGL+14, GDGL+15
>> CTR	GDGL+24, WALK+1, GOTNODE+1, GOTNODE+2
>> DCMA	GDGL+21, GDGL+23, WALK+1, GOTNODE+3, GOTNODE+5*
>> DG	GDGL+1, GDGL+2, GDGL+3, GDGL+4, GDGL+5, GDGL+6, GDGL+7, GDGL+9, GDGL+10, GDGL+11 , GDGL+12, GDGL+13, GDGL+14, GDGL+18, GDGL+19, GDGL+23, WALK+1, GOTNODE+3, GOTNODE+5*
DTIME	GSGL+1, GDGL+1, GDGL+14, GDGL+15
>> FROM	GDGL+16, GDGL+17, GDGL+20, GOTNODE+3*, GOTNODE+4, GOTNODE+5
>> IS	GDGL+12, GDGL+13, GDGL+14, GDGL+15
>> L	WALK+3*
>> LNL	GOTNODE+5*
>> NL	WALK+2, WALK+3, GOTNODE+5
NSUB	GSGL+8!, GDGL+8!
>> SCMA	GDGL+21, GDGL+22, WALK+1, WALK+3, GOTNODE+3, GOTNODE+5*
SCNT	GSGL+8!, GDGL+8!
>> SG	GSGL+1, GSGL+2, GSGL+3, GSGL+4, GSGL+5, GSGL+6, GSGL+7, GSGL+9, GSGL+10, GDGL+9 , GDGL+10, GDGL+11, GDGL+16, GDGL+17, GDGL+22, WALK+1, WALK+3, GOTNODE+3, GOTNODE+5*
SUB	GSGL+8!, GDGL+8!
>> SVDCMA	GOTNODE+5*
>> SVSCMA	GOTNODE+5*
>> TO	GDGL+18, GDGL+19, GDGL+20, GOTNODE+3*, GOTNODE+4
>> VAL	GOTNODE+4*

Information