Routine: AZGSAVEM

Package	Total	Call Graph
Local Area Programs	2	^AZGSAV1M ^AZGSAVEP
Kernel	1	^%ZIS

Package	Total	Caller Graph
Utilities	1	AUGSAVE

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	NOSELT
^AZGSAV1M	DISK+4, HFS1+8, MAGOPEN+3
^AZGSAVEP	AZGSAVEM+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"This option saves the ' ",AUNAR," ",AUGL,"' transaction file to either a tape,",!,"a floppy diskette, or a Unix file. The default is to a unix file",!,"in the ",AUUF," directory." Line Location: HELP+0
Function Call: WRITE	Prompt: !,"Enter either a ""C"" for tape cartridge, a ""T"" for 9-track tape, a ""D"" for floppy disk, or an ""F"" for Unix file." Line Location: HELP+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: DISK+1
Function Call: WRITE	Prompt: !!,"Mount a FORMATTED Floppy Diskette, 'WRITE ENABLED' ",*7,!,"Press RETURN When Ready or ""^"" to Exit WITHOUT SAVING " Line Location: DISK+1
Function Call: WRITE	Prompt: !!,"Please",*7 Line Location: DISK+3
Function Call: WRITE	Prompt: !,"Please Standby - Copying Data to Floppy",! Line Location: DISK+4
Function Call: READ	Prompt: !! Timeout: ",X:DTIME Variable: "Remove the Floppy... Press RETURN when Ready Line Location: DISK+6
Function Call: WRITE	Prompt: !!,"UNIX File Being Created' ",*7 Line Location: HFS1+4
Function Call: READ	Prompt: "Do you want to test the TAPE DRIVE? (Y/N) Y//" Formatting: ! Timeout: DTIME Variable: Y Line Location: TAPETST+0
Function Call: WRITE	Prompt: !!,"Mount ",MESSAGE," Tape, 'WRITE ENABLED' ",*7 Line Location: S+0
Function Call: READ	Prompt: "Press RETURN When Ready - ""^"" to Exit " Formatting: ! Timeout: DTIME Variable: X Line Location: S+1
Function Call: WRITE	Prompt: !!,"Please",*7 Line Location: MAGOPEN+1
Function Call: WRITE	Prompt: !,"Please Standby - Copying Data to Tape",! Line Location: MAGOPEN+2
Function Call: WRITE	Prompt: *7,!!," The Tape Is WRITE PROTECTED. Please Remove The Tape," Line Location: SW+0
Function Call: WRITE	Prompt: !," And Re-position The Write Protect/Enable Switch.",!," " Line Location: SW+1
Function Call: WRITE	Prompt: !,ERRMSG," NOT AVAILABLE" Line Location: ERRMESS+0
Function Call: WRITE	Prompt: !!,"Rewinding tape. <WAIT>" Line Location: EXIT+0
Function Call: WRITE	Prompt: "." Line Location: EXIT+0
Function Call: WRITE	Prompt: !!,"Remove the tape... Press RETURN when Ready:" Line Location: EXIT+1
Function Call: WRITE	Prompt: !!,"TAPE TEST...Mount ",MESSAGE," Tape, 'WRITE ENABLED' ",*7 Line Location: TAPETEST+0
Function Call: WRITE	Prompt: !,"TAPE TEST...Opening tape drive." Line Location: TAPETEST+3
Function Call: WRITE	Prompt: !!,"Please",*7 Line Location: TAPETEST+5
Function Call: WRITE	Prompt: !,"TAPE TEST...Tape drive opened.",!,"TAPE TEST...Writing test data to tape." Line Location: TAPETEST+6
Function Call: WRITE	Prompt: OUTDATA,! Line Location: WRITE+0
Function Call: WRITE	Prompt: "",!,"",!! Line Location: WRITE+1
Function Call: WRITE	Prompt: !,"TAPE TEST...Reading test data from tape.",! Line Location: WRITE+2
Function Call: READ	Timeout: DTIME Variable: INDATA Line Location: WRITE+4
Function Call: WRITE	Prompt: !,"WROTE : '",OUTDATA,"'",!," READ : '",INDATA,"'" Line Location: WRITE+4
Function Call: WRITE	Prompt: !,"TAPE TEST...Successful." Line Location: WRITE+5
Function Call: WRITE	Prompt: !,"TAPE TEST...FAILED...$#@!" Line Location: WRITE+6
Function Call: WRITE	Prompt: !,7,AUFLG(1),7 Line Location: TESTERR+1
Routine Call	%ZIS Line Location: NOSELT

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	AZGSAVEM+2
^%ZOSF("RM"	NOSELT
^AUTTLOC - [#9999999.06]	HFS1+3
^AUTTSITE(1	AZGSAVEM+2, UUCPQ+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DEV	NOSELT+1, HFS1, HFS1+6, CLOSE
%FN	HFS1+5*, END+2!
ASUFAC	HFS1+3*, HFS1+5, HFS1+7, END+2!, UUCPQ+2, UUCPQ+5
>> AUCARTNO	HFS1+5, HFS1+7, UUCPQ+2, UUCPQ+5
>> AUDT	WRITE
>> AUFLG	ASK+1, DISK+1, TAPETST, S+1, ERRMESS+1, TAPETEST+2, WRITE+6, TESTERR, UUCPQ+4*
>> AUFLG(1	ASK+1, DISK+1, TAPETST, S+1, ERRMESS+1, TAPETEST+2, WRITE+6, TESTERR, TESTERR+1, UUCPQ+4*
>> AUFN	HFS1+5, HFS1+7
>> AUGL	HELP, HFS1+3
>> AUIO	NOSELT+1
>> AUMED	AZGSAVEM+3, ASK*, ASK+1, ASK+2, NOSELT+1
>> AUNAR	HELP
>> AUSUFAC	HFS1+3
>> AUUF	HELP, HFS1+5
AUUUCP	UUCPQ+1*, UUCPQ+2, UUCPQ+5, UUCPQ+6!
AUUUCPQ	UUCPQ+2, UUCPQ+3, UUCPQ+4, UUCPQ+6!
>> AZGT1	HFS+1*, HFS1+1, HFS1+2
DEVICE	TAPE, CART, END+2!
DTIME	ASK, DISK+1, DISK+6, TAPETST, S+1, EXIT+1, TAPETEST+1, WRITE+4
DUZ(2	HFS1+3
ERRMSG	DISK+2, HFS1+2, HFS1+6, MAGOPEN, ERRMESS, ERRMESS+1, END+2!
INDATA	END+2!, WRITE+4*, WRITE+5
IO	NOSELT+1*, DISK+2, DISK+3, DISK+5, MAGOPEN, MAGOPEN+1, EXIT, CLOSE, END+2!, TAPETEST+4 , TAPETEST+5, WRITE, WRITE+2, WRITE+3, WRITE+4
IO(0	DISK+1, DISK+3, DISK+4, DISK+5, DISK+6, HFS1+4, HFS1+7, S, MAGOPEN+1, MAGOPEN+2 , SW, ERRMESS, EXIT, EXIT+1, CLOSE, TAPETEST, TAPETEST+5, TAPETEST+6, WRITE+2, WRITE+4 , TESTERR+1
IOP	NOSELT*!
MESSAGE	TAPE, CART, S, END+2!, TAPETEST
OUTDATA	END+2!, WRITE*, WRITE+4, WRITE+5
PRE	HFS1+3*, HFS1+5, HFS1+7, END+2!, UUCPQ+2, UUCPQ+5
U	AZGSAVEM+2
X	NOSELT, DISK+1, DISK+6, HFS1+3, S+1, EXIT+1, END+2!, TAPETEST+1*, TAPETEST+2
Y	TAPETST*, END+2!
>> ZTQUEUED	NOSELT, HFS1+4, HFS1+7, ERRMESS, UUCPQ+5

Customize PDF page

Package: Local Area Programs

Routine: AZGSAVEM

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:

Name	Comments	DBIA/ICR reference
UUCPQ	;
END	; uncomment the line below to get data file queued for uucp
HELP
MAGOPEN
TAPETEST
HFS	;
SW
S
HFS1
NOSELT
WRITE
UNIX	;
TAPE
CART
TESTERR
CLOSE
ASK
EXIT
ERRMESS
DISK	;
TAPETST

Name	Line Occurrences
ASK	ASK+2, HELP+2
CART	NOSELT+1
CLOSE	HFS1+9, TAPETST, S+1
DISK	NOSELT+1, DISK+3
END	ASK+1, DISK+1, DISK+6, TAPETST, ERRMESS+1, EXIT+2
ERRMESS	DISK+2, HFS1+2, HFS1+6, MAGOPEN
EXIT	MAGOPEN+3
HELP	ASK+2
HFS1	HFS1+1
MAGOPEN	SW+2
NOSELT	AZGSAVEM+3
S	MAGOPEN+1
TAPE	NOSELT+1
TAPETEST	TAPETST, TAPETEST+5
TAPETST	TAPE
TESTERR	TAPETEST+4, WRITE+3
UNIX	NOSELT+1