Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AZGSAVED

AZGSAVED.m

Go to the documentation of this file.
  1. AZGSAVED ;RPMS/TJF/MLQ;SAVE GLOBAL TO TAPE; DSM SPECIFIC
  1. ;;1.4;AUGS;*0*;OCT 16, 1991
  1. G:$D(AUMED) NOSELT
  1. ASK R !!,"Copy transaction file to ('^' To Exit Without Saving)",!!?10,"[T]ape, [C]artridge C// ",AUMED:DTIME S AUMED=$E(AUMED_"C")
  1. I "^"[AUMED S AUFLG(1)="Job Terminated by Operator at Device Select",AUFLG=-1 G END
  1. G HELP:"?"[AUMED,ASK:"CcTt"'[AUMED
  1. NOSELT S IOP=$I D ^%ZIS K IOP D CURRENT^%ZIS S X=0 X ^%ZOSF("RM")
  1. S IO=AUIO D TAPE:"Tt"[AUMED D CART:"Cc"[AUMED
  1. Q
  1. HELP W !!,"This option saves the ' ",AUNAR," ",AUGL,"' transaction file to either a Cartridge",!,"or 9-Track Tape. The default is to a 9-Track Tape."
  1. W !,"Enter either a ""C"" for Cartridge Tape or a ""T"" for 9-Track Tape."
  1. G ASK
  1. CART S AUIO=47,MESSAGE="Cartridge" G PROCESS
  1. TAPE S AUIO=48,MESSAGE="9-Track"
  1. ;PROCESS CARTRIDGE OR TAPE
  1. PROCESS S IOP=AUIO D ^%ZIS K IOP S:'$D(AUPAR) AUPAR=IOPAR I IO="" S AUFLG(1)=MESSAGE_" Drive Not Available",AUFLG=-1 U IO(0) W !,AUFLG(1) G END
  1. U IO X ^%ZOSF("MAGTAPE") W @%MT("REW") U IO(0) W !!,"Mount The ",MESSAGE," Tape 'WRITE ENABLED' And "
  1. RETRY R !,?10,"Press RETURN When Ready - ""^"" to Exit ",X:DTIME I X="^"!('$T) S AUFLG(1)="Job Aborted by Operator During Tape Mount",AUFLG=-1 G CLOSE
  1. S $ZT="ERROR^AZGSAVED"
  1. U IO X ^%ZOSF("MTONLINE") I 'Y U IO(0) W !!,"WAITING FOR TAPE"
  1. F I=1:1:75 U IO X ^%ZOSF("MTONLINE") G S9:Y U IO(0) W "." H 5
  1. U IO(0) S AUFLG(1)="Job Aborted, Tape not Ready",AUFLG=-1 W !!,AUFLG(1)," After 6 Minutes" G END
  1. S9 U IO X ^%ZOSF("MTWPROT") G WRITPROT:Y
  1. U IO(0) W !,"Please Standby - Copying Data to ",MESSAGE D ^AZGSAV1D Q:$D(AUFLG) G EXIT
  1. WRITPROT U IO(0) W *7,!!," The Tape Is WRITE PROTECTED. Please Remove The Tape,"
  1. W !," And Re-position The Write Protect/Enable Switch.",!," "
  1. G RETRY
  1. EXIT ;
  1. X ^%ZOSF("MAGTAPE") U IO W @%MT("WTM") W @%MT("REW") U IO(0) W !!,"Rewinding tape. <WAIT>" F L=1:1:150 U IO X ^%ZOSF("MTBOT") G:Y GOODREW U IO(0) W "." H 2
  1. S AUFLG=-1,AUFLG(1)="Tape not rewound" U IO(0) W !!,AUFLG(1),*7 G CLOSE
  1. GOODREW U IO(0) W !!,"Remove the tape... Press RETURN when Ready:" R X:DTIME
  1. CLOSE C IO U IO(0)
  1. END Q
  1. ERROR S ZA=$ZA C IO I $ZE?1"<MTERR>".E U IO(0) S AUFLG=-1,AUFLG(1)="Mag Tape Error "_ZA W !!,*7,AUFLG(1)
  1. D ^%ET S $ZT="ERR^ZU"
  1. Q