Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XPDDCS

Package: Kernel

Routine: XPDDCS


Information

XPDDCS ;SFISC/RSD - Display Checksum for a package ;05/05/2008

Source Information

Source file <XPDDCS.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 1

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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All