AZGSAVED.m

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

 ;;1.4;AUGS;*0*;OCT 16, 1991

 G:$D(AUMED) NOSELT

ASK R !!,"Copy transaction file to ('^' To Exit Without Saving)",!!?10,"[T]ape, [C]artridge  C// ",AUMED:DTIME S AUMED=$E(AUMED_"C")

 I "^"[AUMED S AUFLG(1)="Job Terminated by Operator at Device Select",AUFLG=-1 G END

 G HELP:"?"[AUMED,ASK:"CcTt"'[AUMED

NOSELT S IOP=$I D ^%ZIS K IOP D CURRENT^%ZIS S X=0 X ^%ZOSF("RM")

 S IO=AUIO D TAPE:"Tt"[AUMED D CART:"Cc"[AUMED

 Q

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."

 W !,"Enter either a ""C"" for Cartridge Tape or a ""T"" for 9-Track Tape."

 G ASK

CART S AUIO=47,MESSAGE="Cartridge" G PROCESS

TAPE S AUIO=48,MESSAGE="9-Track"

 ;PROCESS CARTRIDGE OR TAPE

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

 U IO X ^%ZOSF("MAGTAPE") W @%MT("REW") U IO(0) W !!,"Mount The ",MESSAGE," Tape 'WRITE ENABLED' And "

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

 S $ZT="ERROR^AZGSAVED"

 U IO X ^%ZOSF("MTONLINE") I 'Y U IO(0) W !!,"WAITING FOR TAPE"

 F I=1:1:75 U IO X ^%ZOSF("MTONLINE") G S9:Y U IO(0) W "." H 5

 U IO(0) S AUFLG(1)="Job Aborted, Tape not Ready",AUFLG=-1 W !!,AUFLG(1)," After 6 Minutes" G END

S9 U IO X ^%ZOSF("MTWPROT") G WRITPROT:Y

 U IO(0) W !,"Please Standby - Copying Data to ",MESSAGE D ^AZGSAV1D Q:$D(AUFLG)  G EXIT

WRITPROT U IO(0) W *7,!!,"  The Tape Is WRITE PROTECTED. Please Remove The Tape,"

 W !,"  And Re-position The Write Protect/Enable Switch.",!,"  "

 G RETRY

EXIT ;

 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

 S AUFLG=-1,AUFLG(1)="Tape not rewound" U IO(0) W !!,AUFLG(1),*7 G CLOSE

GOODREW U IO(0) W !!,"Remove the tape... Press RETURN when Ready:" R X:DTIME

CLOSE C IO U IO(0)

END Q

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)

 D ^%ET S $ZT="ERR^ZU"

 Q

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

 +1       ;;1.4;AUGS;*0*;OCT 16, 1991

 +2        IF $DATA(AUMED)

               GOTO NOSELT

ASK        READ !!,"Copy transaction file to ('^' To Exit Without Saving)",!!?10,"[T]ape, [C]artridge  C// ",AUMED:DTIME

           SET AUMED=$EXTRACT(AUMED_"C")

 +1        IF "^"[AUMED

               SET AUFLG(1)="Job Terminated by Operator at Device Select"

               SET AUFLG=-1

               GOTO END

 +2        IF "?"[AUMED

               GOTO HELP

           IF "CcTt"'[AUMED

               GOTO ASK

NOSELT     SET IOP=$IO

           DO ^%ZIS

           KILL IOP

           DO CURRENT^%ZIS

           SET X=0

           XECUTE ^%ZOSF("RM")

 +1        SET IO=AUIO

           IF "Tt"[AUMED

               DO TAPE

           IF "Cc"[AUMED

               DO CART

 +2        QUIT 

HELP       WRITE !!,"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        WRITE !,"Enter either a ""C"" for Cartridge Tape or a ""T"" for 9-Track Tape."

 +2        GOTO ASK

CART       SET AUIO=47

           SET MESSAGE="Cartridge"

           GOTO PROCESS

TAPE       SET AUIO=48

           SET MESSAGE="9-Track"

 +1       ;PROCESS CARTRIDGE OR TAPE

PROCESS    SET IOP=AUIO

           DO ^%ZIS

           KILL IOP

           IF '$DATA(AUPAR)

               SET AUPAR=IOPAR

           IF IO=""

               SET AUFLG(1)=MESSAGE_" Drive Not Available"

               SET AUFLG=-1

               USE IO(0)

               WRITE !,AUFLG(1)

               GOTO END

 +1        USE IO

           XECUTE ^%ZOSF("MAGTAPE")

           WRITE @%MT("REW")

           USE IO(0)

           WRITE !!,"Mount The ",MESSAGE," Tape 'WRITE ENABLED' And "

RETRY      READ !,?10,"Press RETURN When Ready  - ""^"" to Exit ",X:DTIME

           IF X="^"!('$TEST)

               SET AUFLG(1)="Job Aborted by Operator During Tape Mount"

               SET AUFLG=-1

               GOTO CLOSE

 +1        SET $ZT="ERROR^AZGSAVED"

 +2        USE IO

           XECUTE ^%ZOSF("MTONLINE")

           IF 'Y

               USE IO(0)

               WRITE !!,"WAITING FOR TAPE"

 +3        FOR I=1:1:75

               USE IO

               XECUTE ^%ZOSF("MTONLINE")

               IF Y

                   GOTO S9

               USE IO(0)

               WRITE "."

               HANG 5

 +4        USE IO(0)

           SET AUFLG(1)="Job Aborted, Tape not Ready"

           SET AUFLG=-1

           WRITE !!,AUFLG(1)," After 6 Minutes"

           GOTO END

S9         USE IO

           XECUTE ^%ZOSF("MTWPROT")

           IF Y

               GOTO WRITPROT

 +1        USE IO(0)

           WRITE !,"Please Standby - Copying Data to ",MESSAGE

           DO ^AZGSAV1D

           IF $DATA(AUFLG)

               QUIT 

           GOTO EXIT

WRITPROT   USE IO(0)

           WRITE *7,!!,"  The Tape Is WRITE PROTECTED. Please Remove The Tape,"

 +1        WRITE !,"  And Re-position The Write Protect/Enable Switch.",!,"  "

 +2        GOTO RETRY

EXIT      ;

 +1        XECUTE ^%ZOSF("MAGTAPE")

           USE IO

           WRITE @%MT("WTM")

           WRITE @%MT("REW")

           USE IO(0)

           WRITE !!,"Rewinding tape. <WAIT>"

           FOR L=1:1:150

               USE IO

               XECUTE ^%ZOSF("MTBOT")

               IF Y

                   GOTO GOODREW

               USE IO(0)

               WRITE "."

               HANG 2

 +2        SET AUFLG=-1

           SET AUFLG(1)="Tape not rewound"

           USE IO(0)

           WRITE !!,AUFLG(1),*7

           GOTO CLOSE

GOODREW    USE IO(0)

           WRITE !!,"Remove the tape... Press RETURN when Ready:"

           READ X:DTIME

CLOSE      CLOSE IO

           USE IO(0)

END        QUIT 

ERROR      SET ZA=$ZA

           CLOSE IO

           IF $ZE?1"<MTERR>".E

               USE IO(0)

               SET AUFLG=-1

               SET AUFLG(1)="Mag Tape Error "_ZA

               WRITE !!,*7,AUFLG(1)

 +1        DO ^%ET

           SET $ZT="ERR^ZU"

 +2        QUIT