AZGSAVEM ;RPMS/TJF/MLQ;SAVE GLOBAL TO UNIX MEDIA; [ 03/11/94 7:42 AM ]
;;1.4;AUGS;**1**;OCT 16, 1991
I ^%ZOSF("OS")["PC"!($P($G(^AUTTSITE(1,0)),U,21)=2) G ^AZGSAVEP
G:$D(AUMED) NOSELT
ASK R !!,"Copy transaction file to ('^' TO EXIT WITHOUT SAVING)",!!?10,"[T]ape, [C]artridge, [D]iskette, or [F]ile F// ",AUMED:DTIME S AUMED=$E(AUMED_"F")
I "^"[AUMED S AUFLG(1)="Job Terminated by Operator at Device Select",AUFLG=-1 G END
G HELP:"?"[AUMED,ASK:"CcDdFfTt"'[AUMED
NOSELT I '$D(ZTQUEUED) S IOP=$I D ^%ZIS K IOP S IOP="HOME" D ^%ZIS S X=0 X ^%ZOSF("RM") ;IHS/THL 'CURRENT' CHANGED TO 'HOME'
S IO=AUIO,%DEV=IO D TAPE:"Tt"[AUMED D CART:"Cc"[AUMED D DISK:"Dd"[AUMED D UNIX:"Ff"[AUMED
Q
HELP W !!,"This option saves the ' ",AUNAR," ",AUGL,"' transaction file to either a tape,",!,"a floppy diskette, or a Unix file. The default is to a unix file",!,"in the ",AUUF," directory."
W !,"Enter either a ""C"" for tape cartridge, a ""T"" for 9-track tape, a ""D"" for floppy disk, or an ""F"" for Unix file."
G ASK
DISK ;
S X="^" U IO(0) W !!,"Mount a FORMATTED Floppy Diskette, 'WRITE ENABLED' ",*7,!,"Press RETURN When Ready or ""^"" to Exit WITHOUT SAVING " R X:DTIME I X["^" S AUFLG(1)="Job Aborted by Operator During Floppy Mount",AUFLG=-1 G END
O IO:("/dev/fd0":"W"):0 E S ERRMSG="Floppy Disk" G ERRMESS
U IO I $ZA<0 U IO(0) W !!,"Please",*7 G DISK
U IO(0) W !,"Please Standby - Copying Data to Floppy",! D ^AZGSAV1M
C:IO'=IO(0) IO
U IO(0) R !!,"Remove the Floppy... Press RETURN when Ready:",X:DTIME G END
UNIX ;
HFS ;
S AZGT1=$P($H,",",2)
HFS1 F %DEV=51:1:54 O %DEV::0 Q:$T
I '$T,$P($H,",",2)<(AZGT1+10) G HFS1
I '$T,$P($H,",",2)>(AZGT1+9) S ERRMSG="All Host File Servers Busy!" G ERRMESS
S PRE=$E(AUGL,2,5),ASUFAC=$S('$D(AUSUFAC):$P(^AUTTLOC(DUZ(2),0),"^",10),1:AUSUFAC),X=""
I '$D(ZTQUEUED) U IO(0) W !!,"UNIX File Being Created' ",*7 ;IHS/THL ADDED CHECK FOR BACKGROUND
S %FN=AUUF_"/"_$S('$D(AUFN):PRE_ASUFAC_"."_AUCARTNO,1:AUFN)
O %DEV:(%FN:"W"):0 E S ERRMSG="UNIX File" G ERRMESS
I '$D(ZTQUEUED) U IO(0) W !,"Please Standby - Copying Data to UNIX File ",$S('$D(AUFN):PRE_ASUFAC_"."_AUCARTNO,1:AUFN),! ;IHS/THL ADDED CHECK FOR BACKGROUND
D ^AZGSAV1M
G CLOSE
TAPE S DEVICE="/dev/rmt0",MESSAGE="9-Track" G TAPETST
CART S DEVICE="/dev/rct",MESSAGE="Cartridge"
;
TAPETST R !,"Do you want to test the TAPE DRIVE? (Y/N) Y//",Y:DTIME S Y=$E(Y_"Y") I "Yy"[Y D TAPETEST G:$D(AUFLG) CLOSE I Y["^" S AUFLG(1)="Job Aborted by Operator During Tape Test",AUFLG=-1 G END
S U IO(0) W !!,"Mount ",MESSAGE," Tape, 'WRITE ENABLED' ",*7
R !,"Press RETURN When Ready - ""^"" to Exit ",X:DTIME I X["^" S AUFLG(1)="Job Terminated By Operator at Mount Message",AUFLG=-1 G CLOSE
MAGOPEN O IO:(DEVICE:"W"):0 E S ERRMSG="Magtape Device" G ERRMESS
U IO I $ZA<0 U IO(0) W !!,"Please",*7 G S
U IO(0) W !,"Please Standby - Copying Data to Tape",!
D ^AZGSAV1M G EXIT
SW U IO(0) W *7,!!," The Tape Is WRITE PROTECTED. Please Remove The Tape,"
W !," And Re-position The Write Protect/Enable Switch.",!," "
G MAGOPEN
ERRMESS I '$D(ZTQUEUED) U IO(0) W !,ERRMSG," NOT AVAILABLE" ;IHS/THL ADDED CHECH FOR BACKGROUND
S AUFLG(1)=ERRMSG_" Not Available",AUFLG=-1 G END
EXIT U IO:(DEVICE) C:IO'=IO(0) IO U IO(0) W !!,"Rewinding tape. <WAIT>" W "." H 2
U IO(0) W !!,"Remove the tape... Press RETURN when Ready:" R X:DTIME
G END
CLOSE C:IO'=IO(0) IO,%DEV
END ; uncomment the line below to get data file queued for uucp
;I '$D(AUFLG),$P(^AUTTSITE(1,0),"^",14)]"" D UUCPQ ;IHS/MFD added line
K PRE,ASUFAC,OUTDATA,INDATA,DEVICE,MESSAGE,IO,ERRMSG,X,Y,%FN
Q
TAPETEST U IO(0) W !!,"TAPE TEST...Mount ",MESSAGE," Tape, 'WRITE ENABLED' ",*7
R !,"TAPE TEST...Press RETURN When Ready - ""^"" to Exit ",X:DTIME
I X["^" S AUFLG(1)="Job Aborted by Operator during Tape Test",AUFLG=-1 Q
W !,"TAPE TEST...Opening tape drive." H 1
O IO:(DEVICE:"W"):0 E G TESTERR
U IO I $ZA<0 U IO(0) W !!,"Please",*7 G TAPETEST
U IO(0) W !,"TAPE TEST...Tape drive opened.",!,"TAPE TEST...Writing test data to tape." H 1
WRITE S OUTDATA="TEST DATA RECORD WRITTEN TO TAPE ON "_AUDT U IO W OUTDATA,!
W "**",!,"**",!!
U IO(0) W !,"TAPE TEST...Data written." C:IO'=IO(0) IO H 6 U IO(0) W !,"TAPE TEST...Reading test data from tape.",! H 1
O IO:(DEVICE:"R"):0 E G TESTERR
U IO R INDATA:DTIME C:IO'=IO(0) IO W !,"WROTE : '",OUTDATA,"'",!," READ : '",INDATA,"'"
I INDATA=OUTDATA W !,"TAPE TEST...Successful."
E W !,"TAPE TEST...FAILED...$#@!" S AUFLG(1)="Tape Test Failed During Testing",AUFLG=-1 Q
Q
TESTERR S AUFLG(1)="Device Not Available During Tape Testing",AUFLG=-1
U IO(0) W !,*7,AUFLG(1),*7 Q
UUCPQ ;
S AUUUCP=$P(^AUTTSITE(1,0),"^",14)
S AUUUCPQ="/usr/bin/sendto "_AUUUCP_" /usr/spool/uucppublic/"_PRE_ASUFAC_"."_AUCARTNO
S AUUUCPQ=$$JOBWAIT^%HOSTCMD(AUUUCPQ) ; AUGS*1.4*1
I AUUUCPQ S AUFLG=-1,AUFLG(1)="Queue of File to uucp Failed" ; AUGS*1.4*1
E W:'$D(ZTQUEUED) !,"Export file ",PRE,ASUFAC,".",AUCARTNO," queued up to be sent to ",AUUUCP,"...",! ; AUGS*1.4*1
K AUUUCP,AUUUCPQ ; AUGS*1.4*1
Q
AZGSAVEM ;RPMS/TJF/MLQ;SAVE GLOBAL TO UNIX MEDIA; [ 03/11/94 7:42 AM ]
+1 ;;1.4;AUGS;**1**;OCT 16, 1991
+2 IF ^%ZOSF("OS")["PC"!($PIECE($GET(^AUTTSITE(1,0)),U,21)=2)
GOTO ^AZGSAVEP
+3 IF $DATA(AUMED)
GOTO NOSELT
ASK READ !!,"Copy transaction file to ('^' TO EXIT WITHOUT SAVING)",!!?10,"[T]ape, [C]artridge, [D]iskette, or [F]ile F// ",AUMED:DTIME
SET AUMED=$EXTRACT(AUMED_"F")
+1 IF "^"[AUMED
SET AUFLG(1)="Job Terminated by Operator at Device Select"
SET AUFLG=-1
GOTO END
+2 IF "?"[AUMED
GOTO HELP
IF "CcDdFfTt"'[AUMED
GOTO ASK
NOSELT ;IHS/THL 'CURRENT' CHANGED TO 'HOME'
IF '$DATA(ZTQUEUED)
SET IOP=$IO
DO ^%ZIS
KILL IOP
SET IOP="HOME"
DO ^%ZIS
SET X=0
XECUTE ^%ZOSF("RM")
+1 SET IO=AUIO
SET %DEV=IO
IF "Tt"[AUMED
DO TAPE
IF "Cc"[AUMED
DO CART
IF "Dd"[AUMED
DO DISK
IF "Ff"[AUMED
DO UNIX
+2 QUIT
HELP WRITE !!,"This option saves the ' ",AUNAR," ",AUGL,"' transaction file to either a tape,",!,"a floppy diskette, or a Unix file. The default is to a unix file",!,"in the ",AUUF," directory."
+1 WRITE !,"Enter either a ""C"" for tape cartridge, a ""T"" for 9-track tape, a ""D"" for floppy disk, or an ""F"" for Unix file."
+2 GOTO ASK
DISK ;
+1 SET X="^"
USE IO(0)
WRITE !!,"Mount a FORMATTED Floppy Diskette, 'WRITE ENABLED' ",*7,!,"Press RETURN When Ready or ""^"" to Exit WITHOUT SAVING "
READ X:DTIME
IF X["^"
SET AUFLG(1)="Job Aborted by Operator During Floppy Mount"
SET AUFLG=-1
GOTO END
+2 OPEN IO:("/dev/fd0":"W"):0
IF '$TEST
SET ERRMSG="Floppy Disk"
GOTO ERRMESS
+3 USE IO
IF $ZA<0
USE IO(0)
WRITE !!,"Please",*7
GOTO DISK
+4 USE IO(0)
WRITE !,"Please Standby - Copying Data to Floppy",!
DO ^AZGSAV1M
+5 IF IO'=IO(0)
CLOSE IO
+6 USE IO(0)
READ !!,"Remove the Floppy... Press RETURN when Ready:",X:DTIME
GOTO END
UNIX ;
HFS ;
+1 SET AZGT1=$PIECE($HOROLOG,",",2)
HFS1 FOR %DEV=51:1:54
OPEN %DEV::0
IF $TEST
QUIT
+1 IF '$TEST
IF $PIECE($HOROLOG,",",2)<(AZGT1+10)
GOTO HFS1
+2 IF '$TEST
IF $PIECE($HOROLOG,",",2)>(AZGT1+9)
SET ERRMSG="All Host File Servers Busy!"
GOTO ERRMESS
+3 SET PRE=$EXTRACT(AUGL,2,5)
SET ASUFAC=$SELECT('$DATA(AUSUFAC):$PIECE(^AUTTLOC(DUZ(2),0),"^",10),1:AUSUFAC)
SET X=""
+4 ;IHS/THL ADDED CHECK FOR BACKGROUND
IF '$DATA(ZTQUEUED)
USE IO(0)
WRITE !!,"UNIX File Being Created' ",*7
+5 SET %FN=AUUF_"/"_$SELECT('$DATA(AUFN):PRE_ASUFAC_"."_AUCARTNO,1:AUFN)
+6 OPEN %DEV:(%FN:"W"):0
IF '$TEST
SET ERRMSG="UNIX File"
GOTO ERRMESS
+7 ;IHS/THL ADDED CHECK FOR BACKGROUND
IF '$DATA(ZTQUEUED)
USE IO(0)
WRITE !,"Please Standby - Copying Data to UNIX File ",$SELECT('$DATA(AUFN):PRE_ASUFAC_"."_AUCARTNO,1:AUFN),!
+8 DO ^AZGSAV1M
+9 GOTO CLOSE
TAPE SET DEVICE="/dev/rmt0"
SET MESSAGE="9-Track"
GOTO TAPETST
CART SET DEVICE="/dev/rct"
SET MESSAGE="Cartridge"
+1 ;
TAPETST READ !,"Do you want to test the TAPE DRIVE? (Y/N) Y//",Y:DTIME
SET Y=$EXTRACT(Y_"Y")
IF "Yy"[Y
DO TAPETEST
IF $DATA(AUFLG)
GOTO CLOSE
IF Y["^"
SET AUFLG(1)="Job Aborted by Operator During Tape Test"
SET AUFLG=-1
GOTO END
S USE IO(0)
WRITE !!,"Mount ",MESSAGE," Tape, 'WRITE ENABLED' ",*7
+1 READ !,"Press RETURN When Ready - ""^"" to Exit ",X:DTIME
IF X["^"
SET AUFLG(1)="Job Terminated By Operator at Mount Message"
SET AUFLG=-1
GOTO CLOSE
MAGOPEN OPEN IO:(DEVICE:"W"):0
IF '$TEST
SET ERRMSG="Magtape Device"
GOTO ERRMESS
+1 USE IO
IF $ZA<0
USE IO(0)
WRITE !!,"Please",*7
GOTO S
+2 USE IO(0)
WRITE !,"Please Standby - Copying Data to Tape",!
+3 DO ^AZGSAV1M
GOTO EXIT
SW 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 MAGOPEN
ERRMESS ;IHS/THL ADDED CHECH FOR BACKGROUND
IF '$DATA(ZTQUEUED)
USE IO(0)
WRITE !,ERRMSG," NOT AVAILABLE"
+1 SET AUFLG(1)=ERRMSG_" Not Available"
SET AUFLG=-1
GOTO END
EXIT USE IO:(DEVICE)
IF IO'=IO(0)
CLOSE IO
USE IO(0)
WRITE !!,"Rewinding tape. <WAIT>"
WRITE "."
HANG 2
+1 USE IO(0)
WRITE !!,"Remove the tape... Press RETURN when Ready:"
READ X:DTIME
+2 GOTO END
CLOSE IF IO'=IO(0)
CLOSE IO,%DEV
END ; uncomment the line below to get data file queued for uucp
+1 ;I '$D(AUFLG),$P(^AUTTSITE(1,0),"^",14)]"" D UUCPQ ;IHS/MFD added line
+2 KILL PRE,ASUFAC,OUTDATA,INDATA,DEVICE,MESSAGE,IO,ERRMSG,X,Y,%FN
+3 QUIT
TAPETEST USE IO(0)
WRITE !!,"TAPE TEST...Mount ",MESSAGE," Tape, 'WRITE ENABLED' ",*7
+1 READ !,"TAPE TEST...Press RETURN When Ready - ""^"" to Exit ",X:DTIME
+2 IF X["^"
SET AUFLG(1)="Job Aborted by Operator during Tape Test"
SET AUFLG=-1
QUIT
+3 WRITE !,"TAPE TEST...Opening tape drive."
HANG 1
+4 OPEN IO:(DEVICE:"W"):0
IF '$TEST
GOTO TESTERR
+5 USE IO
IF $ZA<0
USE IO(0)
WRITE !!,"Please",*7
GOTO TAPETEST
+6 USE IO(0)
WRITE !,"TAPE TEST...Tape drive opened.",!,"TAPE TEST...Writing test data to tape."
HANG 1
WRITE SET OUTDATA="TEST DATA RECORD WRITTEN TO TAPE ON "_AUDT
USE IO
WRITE OUTDATA,!
+1 WRITE "**",!,"**",!!
+2 USE IO(0)
WRITE !,"TAPE TEST...Data written."
IF IO'=IO(0)
CLOSE IO
HANG 6
USE IO(0)
WRITE !,"TAPE TEST...Reading test data from tape.",!
HANG 1
+3 OPEN IO:(DEVICE:"R"):0
IF '$TEST
GOTO TESTERR
+4 USE IO
READ INDATA:DTIME
IF IO'=IO(0)
CLOSE IO
WRITE !,"WROTE : '",OUTDATA,"'",!," READ : '",INDATA,"'"
+5 IF INDATA=OUTDATA
WRITE !,"TAPE TEST...Successful."
+6 IF '$TEST
WRITE !,"TAPE TEST...FAILED...$#@!"
SET AUFLG(1)="Tape Test Failed During Testing"
SET AUFLG=-1
QUIT
+7 QUIT
TESTERR SET AUFLG(1)="Device Not Available During Tape Testing"
SET AUFLG=-1
+1 USE IO(0)
WRITE !,*7,AUFLG(1),*7
QUIT
UUCPQ ;
+1 SET AUUUCP=$PIECE(^AUTTSITE(1,0),"^",14)
+2 SET AUUUCPQ="/usr/bin/sendto "_AUUUCP_" /usr/spool/uucppublic/"_PRE_ASUFAC_"."_AUCARTNO
+3 ; AUGS*1.4*1
SET AUUUCPQ=$$JOBWAIT^%HOSTCMD(AUUUCPQ)
+4 ; AUGS*1.4*1
IF AUUUCPQ
SET AUFLG=-1
SET AUFLG(1)="Queue of File to uucp Failed"
+5 ; AUGS*1.4*1
IF '$TEST
IF '$DATA(ZTQUEUED)
WRITE !,"Export file ",PRE,ASUFAC,".",AUCARTNO," queued up to be sent to ",AUUUCP,"...",!
+6 ; AUGS*1.4*1
KILL AUUUCP,AUUUCPQ
+7 QUIT
