Routine: XBRSBD

Package	Total	Call Graph
Uncategorized	2	(%KILL,%SET)^%MTCHK OUT^%SDEV
IHS VA Utilities	1	^XBDATE

Entry Points

External References

Name	Field # of Occurrence
%KILL^%MTCHK	EXIT+1
%SET^%MTCHK	CNT1+3
OUT^%SDEV	SDEV
^XBDATE	CNT1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,$P($P($ZV,","),"-")," - Routine Save Utility" Line Location: START+2
Function Call: WRITE	Prompt: !,"Waiting for device 63" Line Location: START+3
Function Call: WRITE	Prompt: *7,!,"Tape is not ready" Line Location: SDEV+3
Function Call: WRITE	Prompt: *7,!,"Tape is write protected" Line Location: SDEV+4
Function Call: READ	Prompt: "Enter size of save medium (if applicable): " Formatting: ! Timeout: $S($D(DTIME):DTIME,1:999) Variable: %SIZE Line Location: SIZE+1
Function Call: WRITE	Prompt: " ??" Line Location: SIZE+4
Function Call: WRITE	Prompt: !!,"If using removeable disks or tape for save, enter the number of 1k blocks which",!,"each disk will hold. As each disk becomes full, you will be asked to",!,"replace it with an empty one." Line Location: SIZE+5
Function Call: WRITE	Prompt: !!,"If not using removeable media, press <RETURN>",! Line Location: SIZE+6
Function Call: READ	Prompt: "Enter comment for dump header : " Formatting: ! Timeout: $S($D(DTIME):DTIME,1:999) Variable: %CMT Line Location: RCMT+0
Function Call: WRITE	Prompt: !,"The comment will be displayed with the date and time before the routines",!,"are restored." Line Location: RCMT+1
Function Call: WRITE	Prompt: !,"No routines selected" Line Location: CNT1+0
Function Call: WRITE	Prompt: !,"No routines will be saved." Line Location: CNT1+2
Function Call: WRITE	Prompt: !!,"Saving ...",! Line Location: CNT1+9
Function Call: WRITE	Prompt: %TIM1_" "_%DAT1 Line Location: CNT1+10
Function Call: WRITE	Prompt: ! Condition for execution: '%TAPV ! W %CMT W:'%TAPV Line Location: CNT1+10
Function Call: WRITE	Prompt: ?%I-1#8*10,%RN Line Location: CNT1+12
Function Call: WRITE	Prompt: ! Condition for execution: (%I#8)=0 Line Location: CNT1+12
Function Call: WRITE	Prompt: !!,"End of file reached, last portion of save may be corrupted! Terminating save." Line Location: CNT1+13
Function Call: WRITE	Prompt: !!,"Done. " Line Location: CNT1+15
Function Call: WRITE	Prompt: "Last block used was ",%BN,"." Line Location: QUIT+1
Function Call: WRITE	Prompt: !!,"Cannot write end of file. Last part of save may be corrupted." Line Location: EXIT+0
Function Call: WRITE	Prompt: !,%RN," does not exist" Line Location: PCODE+2
Function Call: WRITE	Prompt: $V(0,0,1024,1) Line Location: PC10+2
Function Call: WRITE	Prompt: !!,"...Aborted." Line Location: ERR+0
Function Call: WRITE	Prompt: "EOF",! Line Location: NEXTVOL+1
Function Call: WRITE	Prompt: !,"Sequence #",%SEQ-1," is full, if using removeable media, please put in the next one" Line Location: NEXTVOL+2
Function Call: READ	Prompt: "Enter 'GO' to proceed: " Formatting: ! Timeout: $S($D(DTIME):DTIME,1:999) Variable: %X Line Location: NEXTVOL1+1
Function Call: WRITE	Prompt: ! Line Location: NEXTVOL1+1
Function Call: WRITE	Prompt: !!,"Remove sequence #",%SEQ-1,", and put the next disk or tape into the drive. If you are",!,"not using removeable media, you should abort this save by typing 'control C';",!,"your save will still be good up to this point." Line Location: NEXTVOL1+2
Function Call: WRITE	Prompt: " ??" Line Location: NEXTVOL1+3
Function Call: WRITE	Prompt: !,"Cannot access ",%FN," please correct" Line Location: NEXTVOL1+4
Function Call: WRITE	Prompt: "DISK#",%SEQ,! Line Location: NEXTVOL1+5
Function Call: WRITE	Prompt: !,"Cannot write to ",%FN," please correct" Line Location: NEXTVOL1+6
Function Call: WRITE	Prompt: !,"Tape sequence number ",%SEQ," is full. Last routine was ",%RN,"." Line Location: NEXTTAPE+1
Function Call: WRITE	Prompt: !,"After this tape rewinds, mount the next tape.",! Line Location: NEXTTAPE+2
Function Call: WRITE	Prompt: *9 Line Location: NEXTTAPE+3
Function Call: WRITE	Prompt: *16 Line Location: NT0+0
Function Call: WRITE	Prompt: !,"Enter 'GO' when tape sequence number ",%SEQ Line Location: NT1+0
Function Call: WRITE	Prompt: !,"Mount the next tape (sequence number ",%SEQ,") and enter 'GO' when it is ready.",!,"Or enter '^' to abort the save.",! Line Location: NT1+1
Function Call: WRITE	Prompt: *7," ??" Line Location: NT1+3
Function Call: WRITE	Prompt: *10 Line Location: NT1+4
Function Call: WRITE	Prompt: *7,!,"Tape is not ready" Line Location: NT1+4
Function Call: WRITE	Prompt: *7,!,"Tape is write protected" Line Location: NT1+5
Function Call: WRITE	Prompt: %TIM1_" "_%DAT1_" (sequence "_%SEQ_")" Line Location: NT1+6
Function Call: WRITE	Prompt: ! Condition for execution: '%TAPV ! W %CMT W:'%TAPV Line Location: NT1+6
Function Call: WRITE	Prompt: !!,"Saving ...",! Line Location: NT1+7

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%BN	QUIT+1*, EXIT+2!
%CMT	RCMT*, CNT1+10, EXIT+2!, NT1+6
%DAT	EXIT+2!
%DAT1	CNT1+10, EXIT+2!, NT1+6
%DEV	SDEV+1, CNT1+10, CNT1+12, CNT1+14, QUIT+1, EXIT, EXIT+2!, PCODE+1, PC10, PC10+1 , PC10+4, NEXTVOL+1, NEXTVOL1+4, NEXTTAPE+3, NT0, NT1+4
>> %DEVMODE	SDEV+2
>> %DEVTYPE	EXIT
%FN	EXIT+2!, NEXTVOL1+4, NEXTVOL1+6
%I	CNT1+12*, EXIT+2!
%J	EXIT+2!
>> %K	PCODE+5*
>> %MTEOT	CNT1+12
>> %MTON	NT1+4
>> %MTWLK	NT1+5
%NEXT	CNT1+4*, EXIT+2!, PCODE+6
%RN	CNT1+11, CNT1+12, EXIT+2!, PC10, NEXTTAPE+1
%S	EXIT+2!, PCODE+5*, PCODE+6
%SBP	START+1!, SDEV+1*, SIZE, QUIT, QUIT+1, EXIT+2!
%SEQ	START+1, SDEV!, QUIT!, EXIT+2!, NEXTVOL+1, NEXTVOL+2, NEXTVOL1+2, NEXTVOL1+5, NEXTTAPE+1, NEXTTAPE+3* , NT1, NT1+1, NT1+6
%SIZE	SIZE, SIZE+1, SIZE+2, SIZE+3, SIZE+4, EXIT+2!, PCODE+6
%TAP	SDEV+1*, SDEV+2, CNT1+3, CNT1+5, CNT1+12, EXIT+1, EXIT+2!, PCODE+4
%TAPV	SDEV+2*, CNT1+6, CNT1+10, CNT1+14, EXIT+2!, PC10, NEXTTAPE+3, NT1+6
%TIM	EXIT+2!
%TIM1	CNT1+10, EXIT+2!, NT1+6
%X	EXIT+2!, NEXTVOL1+1, NEXTVOL1+2, NEXTVOL1+3, NEXTVOL1+5, NEXTVOL1+6, NT1*, NT1+1, NT1+2, NT1+3
%ZA	EXIT+2!
%ZPRINT	CNT1+5, CNT1+6, CNT1+7*, CNT1+12, EXIT+2!
DTIME	SIZE+1, RCMT, NEXTVOL1+1, NT1
>> PCODE	CNT1+12, PCODE+1, PCODE+3, PC10+2*
QUIT	SDEV, SDEV+1, CNT1!, CNT1+2, CNT1+4, CNT1+12, CNT1+13, QUIT+1, EXIT+2!, PCODE+6 , PC10, PC10+3, NEXTVOL1+7, NT1+2, NT1+7*
RTN	EXIT+3!
XBDAT	EXIT+3!
>> XBTYPE	CNT1+1*

Customize PDF page

Package: IHS VA Utilities

Routine: XBRSBD

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
QUIT
SDEV
ERR
RCMT
NT1
NT0
PC10
NEXTVOL1	;
START	;
PCODE	; Test for pcode only routine
NEXTTAPE	;
EXIT
NEXTVOL	;
CNT1
SIZE