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

Package: Local Area Programs

Routine: AZGSAVED


Information

AZGSAVED ;RPMS/TJF/MLQ;SAVE GLOBAL TO TAPE; DSM SPECIFIC

Source Information

Source file <AZGSAVED.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 (,CURRENT)^%ZIS  
Local Area Programs 1 ^AZGSAV1D  
Uncategorized 1 ^%ET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Utilities 1 AUGSAVE  

Entry Points

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

External References

Name Field # of Occurrence
^%ET ERROR+1
^%ZIS NOSELT, PROCESS
CURRENT^%ZIS NOSELT
^AZGSAV1D S9+1

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 Cartridge",!,"or 9-Track Tape. The default is to a 9-Track Tape."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"Enter either a ""C"" for Cartridge Tape or a ""T"" for 9-Track Tape."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,AUFLG(1)
  • Line Location: PROCESS+0
Function Call: WRITE
  • Prompt: @%MT("REW")
  • Line Location: PROCESS+1
Function Call: WRITE
  • Prompt: !!,"Mount The ",MESSAGE," Tape 'WRITE ENABLED' And "
  • Line Location: PROCESS+1
Function Call: READ
  • Timeout: DTIME
  • Line Location: RETRY+0
Function Call: WRITE
  • Prompt: !!,"WAITING FOR TAPE"
  • Line Location: RETRY+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: RETRY+3
Function Call: WRITE
  • Prompt: !!,AUFLG(1)," After 6 Minutes"
  • Line Location: RETRY+4
Function Call: WRITE
  • Prompt: !,"Please Standby - Copying Data to ",MESSAGE
  • Line Location: S9+1
Function Call: WRITE
  • Prompt: *7,!!," The Tape Is WRITE PROTECTED. Please Remove The Tape,"
  • Line Location: WRITPROT+0
Function Call: WRITE
  • Prompt: !," And Re-position The Write Protect/Enable Switch.",!," "
  • Line Location: WRITPROT+1
Function Call: WRITE
  • Prompt: @%MT("WTM")
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: @%MT("REW")
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: @%MT("REW")
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: @%MT("REW")
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !!,AUFLG(1),*7
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !!,"Remove the tape... Press RETURN when Ready:"
  • Line Location: GOODREW+0
Function Call: WRITE
  • Prompt: !!,*7,AUFLG(1)
  • Line Location: ERROR+0
Routine Call
  • %ZIS
  • Line Location:
    • NOSELT
Routine Call
  • %ZIS
  • Line Location:
    • NOSELT
    • PROCESS

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ASK ASK+2, HELP+2
CART NOSELT+1
CLOSE RETRY, EXIT+2
END ASK+1, PROCESS, RETRY+4
EXIT S9+1
GOODREW EXIT+1
HELP ASK+2
NOSELT AZGSAVED+2
PROCESS CART
RETRY WRITPROT+2
S9 RETRY+3
TAPE NOSELT+1
WRITPROT S9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %MT("REW" PROCESS+1, EXIT+1
>> %MT("WTM" EXIT+1
>> AUFLG ASK+1*, PROCESS*, RETRY*, RETRY+4*, S9+1, EXIT+2*, ERROR*
>> AUFLG(1 ASK+1*, PROCESS*, RETRY*, RETRY+4*, EXIT+2*, ERROR*
>> AUGL HELP
>> AUIO NOSELT+1, CART*, TAPE*, PROCESS
>> AUMED AZGSAVED+2, ASK*, ASK+1, ASK+2, NOSELT+1
>> AUNAR HELP
>> AUPAR PROCESS*
DTIME ASK, RETRY, GOODREW
>> I RETRY+3*
IO NOSELT+1*, PROCESS, PROCESS+1, RETRY+2, RETRY+3, S9, EXIT+1, CLOSE, ERROR
IO(0 PROCESS, PROCESS+1, RETRY+2, RETRY+3, RETRY+4, S9+1, WRITPROT, EXIT+1, EXIT+2, GOODREW
, CLOSE, ERROR
IOP NOSELT*!, PROCESS*!
>> IOPAR PROCESS
>> L EXIT+1*
>> MESSAGE CART*, TAPE*, PROCESS, PROCESS+1, S9+1
>> X NOSELT*, RETRY*, GOODREW*
>> Y RETRY+2, RETRY+3, S9, EXIT+1
>> ZA ERROR*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All