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: ZIBGSVED

Package: IHS VA %Utilities

Routine: ZIBGSVED


Information

ZIBGSVED ; IHS/ADC/GTH - SAVE GLOBAL TO TAPE, DSM SPECIFIC ; [ 02/07/97 3:02 PM ]

Source Information

Source file <ZIBGSVED.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS VA Utilities 1 XBGSAVE  

Entry Points

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

External References

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

Global Variables Directly Accessed

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

Label References

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

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All