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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSXARPT

Package: CMOP

Routine: PSXARPT


Information

PSXARPT ;BIR/HTW-Print Archived data [ 04/08/97 2:06 PM ]

Source Information

Source file <PSXARPT.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
CMOP 3 MOUNT^PSXARC  PSXAT^PSXARC1  (,LOT,RX)^PSXARC2  
Kernel 2 (,HOME)^%ZIS  ^%ZISC  
VA Fileman 2 ^DIC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
ALL
SING1
END
DUMP ; DUMPS CONTENTS OF TAPE - NO FORMATTING
ERR
S2
S1
STOP
RX
A1
SINGLE
PQ
DEVICE
MAIN
FIND ; Find selected batch

External References

Name Field # of Occurrence
^%ZIS DEVICE+1, END+2, PQ, PQ+1
HOME^%ZIS END+3
^%ZISC END+1, END+2, PQ, STOP
^DIC PSXARPT+4
^DIR PSXARPT+9
MOUNT^PSXARC DEVICE+4, MAIN+2
PSXAT^PSXARC1 FIND+1, ALL
^PSXARC2 A1+1, A1+6
LOT^PSXARC2 RX+3, S2+2
RX^PSXARC2 RX+2, S2+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEVICE+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: MAIN+0
Function Call: WRITE
  • Prompt: !,"Searching...."
  • Line Location: MAIN+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: FIND+1
Function Call: WRITE
  • Prompt: !,$P($P(X,"|",2),"^")_", "
  • Line Location: FIND+3
Function Call: WRITE
  • Prompt: !!,"Batch not found, please try again."
  • Line Location: FIND+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ALL+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SINGLE+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: S2+0
Function Call: WRITE
  • Prompt: !,"Rx not found. Please make sure the number is correct."
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: @PSXPIOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !,"MUST SELECT A MAGTAPE DEVICE",!!
  • Line Location: PQ+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: PQ+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PQ+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PQ+3
Routine Call
  • %ZIS
  • Line Location:
    • END+3
Routine Call
  • DIC
  • Line Location:
    • PSXARPT+4
Routine Call
  • DIR
  • Line Location:
    • PSXARPT+9
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1
    • END+2
    • PQ
    • PQ+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EOT" PQ+3
^%ZOSF("MAGTAPE" PQ+2
^PSXARC( PSXARPT+6

Label References

Name Line Occurrences
A1 FIND+4
ALL A1+2, A1+3, A1+4, A1+5, RX+1, RX+2, RX+3
END DEVICE+1, DEVICE+4, MAIN, MAIN+2, FIND+1, FIND+5, ALL, A1, S2, S2+3
, ERR+1, PQ, PQ+1, PQ+3
ERR SINGLE
FIND FIND+2
MAIN MAIN+2
PQ PQ
PSXARPT ERR+1
S1 SING1
S2 S2+1, S2+2
SING1 RX
SINGLE SINGLE
STOP PQ+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%MT END+6!
%MT("REW" PQ+2
%ZIS DEVICE*, DEVICE+2!
%ZIS("A" DEVICE*, PQ*!, PQ+1*!
%ZIS("B" DEVICE*
ACK A1+5*, A1+6!, END+4!
C END+6!
COM A1+6!, END+4!
COM( A1+3*
COMCT PSXARPT+2*, A1+3*, END+6!
>> DEV END+2*
DIC PSXARPT+3*, PSXARPT+4!
DIC("A" PSXARPT+4*
DIC(0 PSXARPT+3*
DIR PSXARPT+9!
DIR("A" PSXARPT+7*
DIR("B" PSXARPT+8*
DIR(0 PSXARPT+7*
DIROUT PSXARPT+9, END+6!
DIRUT PSXARPT+9, END+6!
DTIME MAIN, FIND+1, ALL, SINGLE, S2, PQ+3
DTOUT PSXARPT+5, END+6!
DUOUT PSXARPT+5, END+6!
IO DEVICE+2, PQ, PQ+1
IO(0 MAIN+2, MAIN+3, FIND+3, FIND+5, ERR, END, PQ, PQ+1
IO(1 END+2
IOF DEVICE+3, PQ+1
IOM PQ+1
>> IOP END+2*
IOSL PQ+1
IOST DEVICE+3, PQ
LBL A1+6!, END+4!
LBL( A1+4*
LBLCT PSXARPT+2*, A1+4*, END+6!
LOT RX+3*!, S2+2*!, END+4!
POP DEVICE+1, END+6!, PQ, PQ+1
PSXACPF PQ+1*, STOP+1!
PSXACPL PQ+1*, STOP+1!
PSXACPM PQ+1*, STOP+1!
PSXAM END+5!
PSXAP PQ+1*, PQ+3, STOP+1!
PSXAT PQ*, PQ+3, STOP+1!
PSXATNM PQ*, STOP+1!
PSXBATCH PSXARPT+6*, FIND+2, FIND+4, A1, END+4!
PSXEOT END+4!
PSXERR DEVICE+1*, DEVICE+4, MAIN+2, END, END+6!
PSXP DEVICE+2*, MAIN+3, FIND+3, END, END+4!
PSXPIOF DEVICE+3*, END, END+5!
PSXPIOST DEVICE+3*, END+5!
PSXRPT PSXARPT+2*, END+5!
PSXT MAIN, FIND+1, SINGLE, S2, END+4!
PSXTAPE MAIN+1*, MAIN+2!, END+4!
PSXTBS END+5!
PSXTIOF END+5!
PSXTNO PSXARPT+6*, MAIN+2, END+5!
PSXTPAR END+5!
REC A1+1, A1+2*, A1+6!, END+4!
REC1 RX+1*, RX+2!, S1*, S2+1!, END+4!
REC2 RX+2*!, S2+1*!
RX PSXARPT+10*, RX, SING1, SINGLE, END+4!
RXX A1+6*!, END+6!
X MAIN*, MAIN+1, MAIN+2!, FIND+1*, FIND+2, FIND+3, FIND+4, ALL*, A1, A1+1*
, A1+2, A1+3, A1+4, A1+5, A1+6*, RX+1, RX+2, RX+3, SING1, SINGLE*
, S1, S2*, S2+1, S2+2, END+4!, PQ+3*
XNEW END+6!, PQ*
XX END+4!
XZ A1+1*!, END+5!
Y PSXARPT+5, PSXARPT+6, PSXARPT+10!, END+6!, PQ+3
ZAL PQ+3*, STOP+1!
ZCT END+4!
ZPC END+6!
ZQ END+5!
ZQ1 END+5!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All