Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls