Routine: PSXARPT

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

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!

Customize PDF page

Package: CMOP

Routine: PSXARPT

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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