Routine: ZIBGSVED

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC $$UP^XLFSTR

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC $$UP^XLFSTR

Package	Total	Caller Graph
IHS VA Utilities	1	XBGSAVE

Package

Total

Caller Graph

IHS VA Utilities

XBGSAVE

Name	Comments	DBIA/ICR reference
GOODREW	;
S9	;
RETRY	;
END	;
HELP	;
SAVEDSM	;
PROCESS	;
CLOSE	;
CART	;
NOSELT	;
TAPE	;
WRITPROT	;
ASK	;
EXIT	;

Name	Field # of Occurrence
^%ZIS	PROCESS+2
^%ZISC	CLOSE+1
$$UP^XLFSTR	ASK+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option saves the ' ",XBNAR," ",XBGL,"' transaction file to either a Cartridge",!,"or 9-Track Tape. The default is to a 9-Track Tape." Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Enter either a ""C"" for Cartridge Tape or a ""T"" for 9-Track Tape." Line Location: HELP+2
Function Call: WRITE	Prompt: !,XBFLG(1) Line Location: PROCESS+5
Function Call: WRITE	Prompt: @%MT("REW") Line Location: PROCESS+8
Function Call: WRITE	Prompt: !!,"Mount The ",XBMSG," Tape 'WRITE ENABLED' And " Line Location: PROCESS+10
Function Call: WRITE	Prompt: !!,"WAITING FOR TAPE" Line Location: RETRY+5
Function Call: WRITE	Prompt: "." Line Location: RETRY+6
Function Call: WRITE	Prompt: !!,XBFLG(1)," After 6 Minutes" Line Location: RETRY+8
Function Call: WRITE	Prompt: !,"Please Standby - Copying Data to ",XBMSG Line Location: S9+5
Function Call: WRITE	Prompt: *7,!!," The Tape Is WRITE PROTECTED. Please Remove The Tape," Line Location: WRITPROT+2
Function Call: WRITE	Prompt: !," And Re-position The Write Protect/Enable Switch.",!," " Line Location: WRITPROT+3
Function Call: WRITE	Prompt: @%MT("WTM"),@%MT("REW") Line Location: EXIT+3
Function Call: WRITE	Prompt: !!,"Rewinding tape. <WAIT>" Line Location: EXIT+5
Function Call: WRITE	Prompt: "." Line Location: EXIT+6
Function Call: WRITE	Prompt: !!,XBFLG(1),*7 Line Location: EXIT+9
Function Call: WRITE	Prompt: !!,"Remove the tape... Press RETURN when Ready:" Line Location: GOODREW+2
Function Call: WRITE	Prompt: XBDT Line Location: SAVEDSM+1
Function Call: WRITE	Prompt: XBTLE Line Location: SAVEDSM+3
Function Call: WRITE	Prompt: Y Line Location: SAVEDSM+6
Function Call: WRITE	Prompt: ! Condition for execution: XBPAR'["V" ! W @X W:XBPAR'["V" Line Location: SAVEDSM+6
Routine Call	%ZIS Line Location: PROCESS+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("MAGTAPE"	PROCESS+7, EXIT+1
^%ZOSF("MTBOT"	EXIT+6
^%ZOSF("MTONLINE"	RETRY+4, RETRY+6
^%ZOSF("MTWPROT"	S9+2

Name	Line Occurrences
ASK	ASK+4, HELP+3
CART	NOSELT+2
CLOSE	RETRY+2, S9+8, EXIT+10
END	ASK+3, PROCESS+5, RETRY+10
EXIT	S9+8
GOODREW	EXIT+6
HELP	ASK+4
NOSELT	ZIBGSVED+4
PROCESS	CART+2
RETRY	WRITPROT+4
S9	RETRY+6
SAVEDSM	S9+7
TAPE	NOSELT+2
WRITPROT	S9+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%MT	END+1!
%MT("REW"	PROCESS+8, EXIT+3
%MT("WTM"	EXIT+3
DTIME	ASK+1, RETRY+1, GOODREW+3
>> I	RETRY+6*
IO	NOSELT+1*, PROCESS+6, RETRY+3, RETRY+6, S9+1, S9+6, EXIT+2, EXIT+6
IO(0	PROCESS+5, PROCESS+9, RETRY+5, RETRY+6, RETRY+7, S9+4, WRITPROT+1, EXIT+4, EXIT+6, EXIT+8 , GOODREW+1, CLOSE+2
IOP	PROCESS+1*, PROCESS+3!
>> IOPAR	PROCESS+4
>> L	EXIT+6*
>> POP	PROCESS+5
U	ASK+3, RETRY+2, SAVEDSM+6
>> X	RETRY+1, RETRY+2, GOODREW+3, SAVEDSM+5, SAVEDSM+6
>> XBDT	SAVEDSM+1
>> XBE	SAVEDSM+6
>> XBF	SAVEDSM+5
>> XBFLG	ZIBGSVED+3, ASK+3, PROCESS+5, RETRY+2, RETRY+9, S9+8, EXIT+7
>> XBFLG(0	ZIBGSVED+3*
>> XBFLG(1	ASK+3, PROCESS+5, RETRY+2, RETRY+8, RETRY+9, EXIT+7*, EXIT+9
>> XBFLT	ZIBGSVED+3
>> XBGL	HELP+1, SAVEDSM+5
>> XBIO	NOSELT+1, CART+1, TAPE+1, PROCESS+1
>> XBMED	ZIBGSVED+4, ASK+1, ASK+2, ASK+3, ASK+4, NOSELT+2
XBMSG	CART+1, TAPE+1, PROCESS+5, PROCESS+10, S9+5, END+1!
>> XBNAR	HELP+1
>> XBPAR	PROCESS+4*, SAVEDSM+2, SAVEDSM+4, SAVEDSM+6, SAVEDSM+7, SAVEDSM+8
>> XBTLE	SAVEDSM+3
>> Y	RETRY+5, RETRY+6, S9+3, EXIT+6, SAVEDSM+6*

Customize PDF page

Package: IHS VA %Utilities

Routine: ZIBGSVED

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: