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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENARGO

Package: Engineering

Routine: ENARGO


Information

ENARGO ;(WIRMFO)/JED,SAB-MOVE ARCHIVE GLOBAL TO STORAGE MEDIA ;4.29.97

Source Information

Source file <ENARGO.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,$$REWIND)^%ZIS  ^%ZISC  $$FMTE^XLFDT  
VA FileMan 2 DT^DICRW  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Engineering 2 ENAR1  ENARGR  

Entry Points

Name Comments DBIA/ICR reference
A ; Archive global to media
; called by ENAR1
; input
; ENGBL - global subscript in ^ENAR to be archived (e.g. 6919.1)
; ENTIME - date/time of archive session (internal format)
; ENERR - error message text (should be 0 for no error)
; output
; ENERR - error message text or 0 when no error
VRF ; Verify
; rewind (or close and reopen) device
VHDR ; verify header
VREC ; verify records
CLOUT ; Close archive device and exit
OUT ; Exit
MSG
ARDEV ; Select and open archival device
; called from ENARGO, ENARGR
; input
; ENHFSM - host file access mode ('W'rite-only or 'R'ead-only)
; ENERR - error message text (should be 0 for no error)
; IOP - (optional) name of device to use
; ENHFSIO - (optional) name of host file to open
; output
; ENERR - 0 or error message text
; ENION - ION of selected device
; ENHFSIO - name of host file opened (only defined when IOT="HFS")
CLOSE ; Close archival device
; called from ENARGO, ENARGR
MTSETUP ; Mag Tape Variables Setup
; called from ENARGO, ENARGR
MTCHECK ; Mag Tape Check
; called from ENARGO, ENARGR
; Checks if Mag Tape is online and rewind if at BOT
MTC1

External References

Name Field # of Occurrence
^%ZIS ARDEV+15
$$REWIND^%ZIS VRF+3
^%ZISC CLOSE+2
DT^DICRW A+8
^DIR A+42, A+53, VHDR+8, VREC+14
$$FMTE^XLFDT A+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"But your tape is write protected!!"
  • Line Location: A+15
Function Call: WRITE
  • Prompt: !,"Beginning output"
  • Line Location: A+17
Function Call: WRITE
  • Prompt: ENHD(1)
  • Line Location: A+26
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOT'="MT" ! W ENHD(2) W:IOT'="MT"
  • Line Location: A+26
Function Call: WRITE
  • Prompt: ENX
  • Line Location: A+30
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOT'="MT" ! W @ENX W:IOT'="MT"
  • Line Location: A+30
Function Call: WRITE
  • Prompt: "."
  • Line Location: A+31
Function Call: WRITE
  • Prompt: "**EOF**"
  • Line Location: A+33
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOT'="MT" ! W "**EOF**" W:IOT'="MT"
  • Line Location: A+33
Function Call: WRITE
  • Prompt: !,"Elapsed time: ",$J($P($H,",",2)-ENSTART/60,6,2)," minutes.",!
  • Line Location: A+35
Function Call: WRITE
  • Prompt: !,"Please wait while I rewind (or reopen) the archive device."
  • Line Location: VRF+2
Function Call: WRITE
  • Prompt: !,"Elapsed time: ",$J($P($H,",",2)-ENSTART/60,6,2)," minutes."
  • Line Location: VRF+12
Function Call: WRITE
  • Prompt: !!,"Verifying Header..."
  • Line Location: VHDR+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Expected: ",ENHD(ENI),!,"Found: ",ENX(ENI)
  • Line Location: VHDR+6
Function Call: WRITE
  • Prompt: "Header OK"
  • Line Location: VHDR+10
Function Call: WRITE
  • Prompt: !,"Continuing with full verify"
  • Line Location: VREC+1
Function Call: READ
  • Variable: ENX
  • Timeout: 15,ENX(1):15
  • Line Location: VREC+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: VREC+4
Function Call: WRITE
  • Prompt: $C(7),!,"WARNING: ",ENX,!,"Expected: ",@ENX,!,"Found: ",ENX(1)
  • Line Location: VREC+7
Function Call: WRITE
  • Prompt: !!,"continuing"
  • Line Location: VREC+8
Function Call: WRITE
  • Prompt: $C(7),!,"Sorry, the verify doesn't look good"
  • Line Location: VREC+12
Function Call: READ
  • Variable: ENR
  • Timeout: DTIME
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: $C(7),!!,"If using tape, please load ",$S(ENHFSM="W":"WRITE ENABLED ",ENHFSM="R":"WRITE PROTECTED ",1:""),"tape and bring on-line now",!
  • Line Location: ARDEV+11
Function Call: WRITE
  • Prompt: !,"Tape off-line, please make ready"
  • Line Location: MTCHECK+4
Function Call: WRITE
  • Prompt: !,"Rewinding tape"
  • Line Location: MTC1+1
Function Call: WRITE
  • Prompt: @ENREW
  • Line Location: MTC1+1
Routine Call
  • %ZIS
  • Line Location:
    • ARDEV+15
Routine Call
  • %ZIS
  • Line Location:
    • VRF+3
Routine Call
  • DIR
  • Line Location:
    • A+42
    • A+53
    • VHDR+8
    • VREC+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EOT" MTSETUP+4
^%ZOSF("MAGTAPE" MTSETUP+2, MTSETUP+3
^%ZOSF("MTBOT" MTSETUP+4
^%ZOSF("MTERR" MTSETUP+5
^%ZOSF("MTONLINE" MTSETUP+5
^%ZOSF("MTWPROT" MTSETUP+6
^ENAR( A+20, A+43!, VRF+13!

Label References

Name Line Occurrences
A A+13
ARDEV A+10, VRF+4
CLOSE A+14, VRF+4, VRF+11, CLOUT+1
CLOUT A+11, A+12, A+43, A+53, VRF+5, VRF+8, VRF+9
MSG A+15, MTCHECK+4
MTC1 MTCHECK+3
MTCHECK A+12, VRF+5, MTCHECK+6
MTSETUP A+11
OUT A+10, VRF+4, VRF+14
VHDR VRF+8
VREC VRF+9
VRF VRF+8, VRF+9

Naked Globals

Name Field # of Occurrence
^( A+20
^("EOT" MTSETUP+2
^("MTBOT" MTSETUP+2
^("MTERR" MTSETUP+2
^("MTONLINE" MTSETUP+2
^("MTWPROT" MTSETUP+2
^(0 A+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%MT MTSETUP+3!
%MT("REW" MTSETUP+3
>> %ZIS("A" ARDEV+12*
>> %ZIS("B" ARDEV+12*
>> %ZIS("HFSMODE" ARDEV+12*
>> %ZIS("HFSNAME" ARDEV+13*
>> %ZIS("S" ARDEV+14*
DIR A+42!, A+53!, VHDR+8!, VREC+14!
DIR("?" A+38*, A+39*, A+40*, A+41*, A+47*, A+48*, A+49*, A+50*, A+51*, A+52*
DIR("A" A+37*, A+46*, VHDR+7*, VREC+13*
DIR("B" A+37*, A+46*, VHDR+7*, VREC+13*
DIR(0 A+37*, A+45*, VHDR+7*, VREC+13*
DIROUT OUT+3!
DIRUT A+53, OUT+3!
DTIME MSG
DTOUT OUT+3!
DUOUT OUT+3!
ENBOT OUT+1!, MTSETUP+4*, MTC1
ENC A+28*, A+31*, VREC+2*, VREC+4*, OUT+1!
ENC("VERR" VREC+2*, VREC+4, VREC+6*, VREC+8, VREC+11
ENEOT OUT+1!, MTSETUP+4*
>> ENERR A+10, A+11, A+12, A+43*, A+53*, VRF+4, VRF+5, VRF+8, VRF+9, VHDR+9*
VREC+15*, ARDEV+15*, MTSETUP+2*, MTCHECK+5*
>> ENGBL A+20, A+21, A+28, A+29, A+43, VRF+13
ENHD OUT+1!
ENHD( VHDR+4, VHDR+5, VHDR+6, VHDR+10
ENHD(1 A+19*, A+26
ENHD(2 A+20*, A+26
ENHD(3 A+21*, A+22
ENHD(4 A+22*
ENHFSIO A+10*, OUT+1!, ARDEV+13, ARDEV+17*
ENHFSM A+10*, VRF+4*, OUT+1!, ARDEV+11, ARDEV+12
ENI VHDR+4*, VHDR+5, VHDR+6, VHDR+10, OUT+1!
ENION VRF+4, OUT+1!, ARDEV+16*
ENMTERR OUT+1!, MTSETUP+5*
ENONLINE OUT+2!, MTSETUP+5*, MTCHECK+3
ENR OUT+2!, MSG*, MTCHECK+5
ENREDO VRF+7*, VRF+8, VRF+9, VHDR+8*, VREC+14*, OUT+2!
ENREW OUT+2!, MTSETUP+3*, MTC1+1
ENSTART A+24*, A+35, VRF+7*, VRF+12, OUT+2!
>> ENTIME A+19
ENVT A+54*, VRF+9, OUT+2!
ENWPROT A+13, OUT+2!, MTSETUP+6*
ENX A+28*, A+29*, A+30, VREC+4*, VREC+7, OUT+2!
ENX( VHDR+4, VHDR+5, VHDR+6, VHDR+10
ENX(1 VHDR+2*, VREC+4*, VREC+7
ENX(2 VHDR+2*
ENX(3 VHDR+2*
ENX(4 VHDR+2*
IO A+24, A+31, VRF+3, VHDR+2, VREC+3, VREC+4, VREC+9, ARDEV+17, MTCHECK+3, MTC1
MTC1+1
>> IO(0 A+17, A+31, A+34, VHDR+1, VHDR+3, VREC+1, VREC+4, VREC+5, VREC+10, MTCHECK+4
MTC1+1
ION ARDEV+16
>> IOP VRF+4*, ARDEV+11
>> IOPAR VRF+3
>> IOT A+11, A+12, A+13, A+26, A+30, A+33, VRF+3, VRF+5, ARDEV+17
>> POP ARDEV+15
U VRF+3
X OUT+3!
Y A+13, A+43, A+54, VRF+3*, VRF+4, VHDR+8, VREC+14, OUT+3!, MTCHECK+3, MTC1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All