Routine: XPDDCS

Package	Total	Call Graph
Kernel	5	$$HTE^XLFDT $$LOOK^XPDB1 LST1^XPDDCS $$LOOK^XPDI1 EN^XUTMDEVQ
VA Fileman	1	^DIR

Package	Total	Caller Graph
Kernel	1	XPDDCS

Entry Points

Name	Comments	DBIA/ICR reference
HDR
ASK()	;Ask if want each routine listed
SUM(XPDR,Z,XPD,XPDBS)	;check checksum
LST1(FILE)	;Print group
EN1	;Verify checksums in Transport Global
EN2	;print from build (system)
CHK(Y)	;Y=excess lines, return 1 to exit
BEFORE(RN,SUM)	;Check a before Checksum
PNT(XPDFIL)	;print

External References

Name	Field # of Occurrence
^DIR	ASK+4, CHK+4
$$HTE^XLFDT	PNT+2
$$LOOK^XPDB1	EN2+4
LST1^XPDDCS	EN1+14, EN2+9
$$LOOK^XPDI1	EN1+5
EN^XUTMDEVQ	EN1+13, EN2+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PNT+4
Function Call: WRITE	Prompt: !!," Transport Global doesn't exist " Line Location: PNT+8
Function Call: WRITE	Prompt: !!," Transport Global corrupted, please reload " Line Location: PNT+10
Function Call: WRITE	Prompt: !," Transport Global corrupted, please reload " Line Location: PNT+12
Function Call: WRITE	Prompt: !,XPDI,?10,"Doesn't Exist" Line Location: PNT+27
Function Call: WRITE	Prompt: !!?3,XPDC," Routine"_$S(XPDC>1:"s",1:"")_" checked, ",XPDE," failed.",! Line Location: PNT+32
Function Call: WRITE	Prompt: !,XPDR,?10,"ERROR in Checksum" Line Location: SUM+5
Function Call: WRITE	Prompt: !,XPDR,?10,"Calculated "_$J(XPD,10) Line Location: SUM+7
Function Call: WRITE	Prompt: !,XPDR,?10,"Calculated "_$C(7)_$J(Y,10)_", expected value "_XPD Line Location: SUM+8
Function Call: WRITE	Prompt: !,RN,?10,"Not on current system." Line Location: BEFORE+5
Function Call: WRITE	Prompt: !,RN,?10,"Before Checksum Calculated "_Y_" expected value "_SUM Line Location: BEFORE+9
Function Call: WRITE	Prompt: @IOF Line Location: CHK+6
Function Call: WRITE	Prompt: !,"PACKAGE: ",$P(XPD0,U)," ",XPDDT,?70,"PAGE ",XPDPG,!,XPDUL,! Line Location: HDR+0
Routine Call	DIR Line Location: ASK+4 CHK+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	PNT+28, BEFORE+6
^%ZOSF("TEST"	EN1+9, PNT+27, BEFORE+5
^TMP($J	PNT+29, BEFORE+3!, BEFORE+7
^XPD(	PNT+2
^XPD(9.6 - [#9.6]	PNT+21, PNT+22
^XTMP("XPDI"	PNT+8, PNT+10, PNT+11, PNT+17

Label References

Name	Line Occurrences
$$ASK	EN1+6, EN2+5
$$CHK	PNT+18, PNT+30
BEFORE	SUM+3
HDR	PNT+3, CHK+6
LST1	EN1+10
PNT	LST1+2
SUM	PNT+17, PNT+29

Naked Globals

Name	Field # of Occurrence
^(	PNT+11, PNT+21
^(0	PNT+2, PNT+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%N	PNT+25~, BEFORE+1~
D0	EN1+1~, EN2+1~, LST1+2*, PNT+2, PNT+8, PNT+10, PNT+11, PNT+17, PNT+21, PNT+22
DIC	EN1+1~, EN2+1~
DIF	PNT+25~, PNT+26, BEFORE+1~, BEFORE+4, BEFORE+7*
DIR	ASK+1~, CHK+3~
DIR("A"	ASK+3*
DIR("B"	ASK+3*
DIR(0	ASK+3, CHK+4
>> DIRUT	EN1+6, EN2+5
FILE	LST1~, LST1+2
I	CHK+3~
IO	EN1+14*
IOF	EN1+10*, PNT+3, CHK+6
IOM	EN1+10*, PNT+2
IOSL	EN1+10*, CHK+1
IOST	EN1+10*, PNT+3, CHK+2
J	CHK+3~
K	CHK+3~
RN	BEFORE~, BEFORE+3, BEFORE+4, BEFORE+5, BEFORE+7, BEFORE+9
SUM	BEFORE~, BEFORE+2, BEFORE+8*, BEFORE+9
U	PNT+17, PNT+22, HDR
X	EN1+1~, EN1+7, PNT+1~, PNT+26, BEFORE+1~, BEFORE+4*, CHK+3~
XCNP	PNT+25~, PNT+26, BEFORE+1~, BEFORE+4
XPD	EN1+1~, EN1+13, EN2+1~, EN2+8, SUM~, SUM+5, SUM+6*, SUM+7, SUM+8
XPD("XPDSHW"	EN1+7, EN2+6
XPD("XPDST"	EN1+7*
XPD("XPDT("	EN1+7, EN2+6
XPD0	PNT+1~, PNT+2*, HDR
>> XPDAUTO	EN1+13, EN1+14, ASK+2, EN2+8, EN2+9, PNT+34
XPDBCS	PNT+1~
XPDBS	SUM~, SUM+3
XPDC	PNT+1~, PNT+11, PNT+14, PNT+21, PNT+24, PNT+32
>> XPDCHKSM	PNT+34*
>> XPDDEV	EN1+14, EN2+9*
XPDDT	PNT+1~, PNT+2*, HDR
XPDE	PNT+1~, PNT+5, PNT+32, PNT+34, SUM+5, SUM+8*
XPDFIL	PNT~, PNT+2, PNT+7
XPDI	LST1+1~, LST1+2, PNT+1~, PNT+5, PNT+11, PNT+17, PNT+21*, PNT+26, PNT+27, PNT+29
XPDJ	PNT+1~, PNT+11, PNT+12, PNT+14, PNT+17, PNT+21, PNT+22*, PNT+24, PNT+29
XPDPG	PNT+1~, PNT+2, CHK+5, HDR
XPDQ	PNT+1~, PNT+5, PNT+8, PNT+10, PNT+11, PNT+12, PNT+18, PNT+21, PNT+30, PNT+31
XPDR	SUM~, SUM+3, SUM+5, SUM+7, SUM+8
XPDS	EN1+1~, EN1+4*, EN1+5
XPDSHW	EN1+1~, EN1+6, EN2+5, SUM+7
XPDST	EN1+1~, EN1+5, EN2+1~, EN2+4
XPDT	EN1+1~, EN2+1~
XPDT(	LST1+2
XPDUL	PNT+1~, PNT+2*, HDR
Y	EN1+1~, EN1+11, EN1+13, ASK+5, EN2+1~, EN2+6, EN2+8, SUM+1~, SUM+7, SUM+8 , BEFORE+9, CHK~, CHK+1, CHK+2
Z	EN1+1~, EN1+11, EN1+13, EN2+1~, EN2+6, EN2+8, SUM~

Customize PDF page

Package: Kernel

Routine: XPDDCS

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: