Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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,?18,"Calculated "_$J(XPD,10)
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !,XPDR,?18,"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,?18,"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
Info |  Source |  Entry Points |  Interaction Calls