ABPAOC0A ;OPEN UNIX HFS DEVICE; [ 05/24/91 1:33 PM ]
;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
A0 D DT^DICRW S:$D(EFLG)'=1 EFLG=0
W !!,"Get input from: [C]artridge or [F]ile F// "
R X:DTIME I $T=0 D Q
.S EMSG="<<< INVALID OR NO DEVICE SELECTED - JOB ABORTED >>>"
.S EFLG=EFLG+1
I X="" S X="F"
I (X'["C")&(X'["F") D Q
.S EMSG="<<< INVALID OR NO DEVICE SELECTED - JOB ABORTED >>>"
.S EFLG=EFLG+1
;
CART I X["C" K %DEV,%IN S %FN=""_"/dev/rct"_"" D OPEN D Q
.I +EFLG>0 D
..S EMSG="<<< DEVICE UNAVAILABLE - JOB ABORTED >>>",EFLG=EFLG+1
;
FILE W !! S ABPA("CMD")="cd /usr/spool/uucppublic; ls ABPV* | sort "
S ABPA("CMD")=ABPA("CMD")_"> abpv.list; cd /usr/mumps"
S X=$$TERMINAL^%HOSTCMD(ABPA("CMD"))
K %DEV,%IN S %FN=""_"/usr/spool/uucppublic/abpv.list"_"" D OPEN
I +EFLG>0 D Q
.S EMSG="<<< DEVICE UNAVAILABLE - JOB ABORTED >>>",EFLG=EFLG+1
F I=1:1 U %DEV R X Q:X="" S ABPAFILE(I)=X
C %DEV U IO(0) I $D(ABPAFILE(1))'=1 D Q
.S EMSG="<<< NO FILES AVAILABLE TO MERGE - JOB ABORTED >>>"
.S EFLG=EFLG+1
F I=1:1 Q:$D(ABPAFILE(I))'=1 W !?10,I,". ",ABPAFILE(I)
SELECT W !!,"Select the FILE to use (""^"" to CANCEL)// "
R X:DTIME I $T=0!(X["^")!(X="") D Q
.S EMSG="<<< NO FILE SELECTED - JOB ABORTED >>>",EFLG=EFLG+1
S X=$S($D(ABPAFILE(X))=1:ABPAFILE(X),1:"INVALID SELECTION") W " ",X
I X="INVALID SELECTION" G SELECT
S %FN=""_"/usr/spool/uucppublic/"_X_""
K %DEV,%IN D OPEN D S:+EFLG'>0 IO=+%DEV Q
.I +EFLG>0 D
..S EMSG="<<< DEVICE UNAVAILABLE - JOB ABORTED >>>",EFLG=EFLG+1
;
OPEN ;;VARIABLES USED FOR MSM HFS DEVICE OPEN UTILITY
;; %DEV -- DEVICE NUMBER, INITIALIZED TO 51
;; %FN -- UNIX FILE NAME (USING FULL PATH NAME)
;; %IN -- OPEN PARAMETER (DEFAULT = 1 - READ ONLY)
;; %ZA -- RESULT CODE (-1 = ERROR)
I $D(%DEV)'=1 S %DEV=51
I %DEV=55 S %DEV=51
I $D(%IN)'=1 S %IN=1
O @$S('$D(%DEVDLM):"%DEV:(%FN:$S(%IN:""R"",1:""M"")):0",1:"%DEV:(%FN:$S(%IN:""R"",1:""M"")::::%DEVDLM):0") E S %DEV=%DEV+1 G:%DEV<55 OPEN
E S EFLG=EFLG+1 Q
U %DEV S %ZA=$ZA I %ZA<0 C %DEV
Q
ABPAOC0A ;OPEN UNIX HFS DEVICE; [ 05/24/91 1:33 PM ]
+1 ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
A0 DO DT^DICRW
IF $DATA(EFLG)'=1
SET EFLG=0
+1 WRITE !!,"Get input from: [C]artridge or [F]ile F// "
+2 READ X:DTIME
IF $TEST=0
Begin DoDot:1
+3 SET EMSG="<<< INVALID OR NO DEVICE SELECTED - JOB ABORTED >>>"
+4 SET EFLG=EFLG+1
End DoDot:1
QUIT
+5 IF X=""
SET X="F"
+6 IF (X'["C")&(X'["F")
Begin DoDot:1
+7 SET EMSG="<<< INVALID OR NO DEVICE SELECTED - JOB ABORTED >>>"
+8 SET EFLG=EFLG+1
End DoDot:1
QUIT
+9 ;
CART IF X["C"
KILL %DEV,%IN
SET %FN=""_"/dev/rct"_""
DO OPEN
Begin DoDot:1
+1 IF +EFLG>0
Begin DoDot:2
+2 SET EMSG="<<< DEVICE UNAVAILABLE - JOB ABORTED >>>"
SET EFLG=EFLG+1
End DoDot:2
End DoDot:1
QUIT
+3 ;
FILE WRITE !!
SET ABPA("CMD")="cd /usr/spool/uucppublic; ls ABPV* | sort "
+1 SET ABPA("CMD")=ABPA("CMD")_"> abpv.list; cd /usr/mumps"
+2 SET X=$$TERMINAL^%HOSTCMD(ABPA("CMD"))
+3 KILL %DEV,%IN
SET %FN=""_"/usr/spool/uucppublic/abpv.list"_""
DO OPEN
+4 IF +EFLG>0
Begin DoDot:1
+5 SET EMSG="<<< DEVICE UNAVAILABLE - JOB ABORTED >>>"
SET EFLG=EFLG+1
End DoDot:1
QUIT
+6 FOR I=1:1
USE %DEV
READ X
IF X=""
QUIT
SET ABPAFILE(I)=X
+7 CLOSE %DEV
USE IO(0)
IF $DATA(ABPAFILE(1))'=1
Begin DoDot:1
+8 SET EMSG="<<< NO FILES AVAILABLE TO MERGE - JOB ABORTED >>>"
+9 SET EFLG=EFLG+1
End DoDot:1
QUIT
+10 FOR I=1:1
IF $DATA(ABPAFILE(I))'=1
QUIT
WRITE !?10,I,". ",ABPAFILE(I)
SELECT WRITE !!,"Select the FILE to use (""^"" to CANCEL)// "
+1 READ X:DTIME
IF $TEST=0!(X["^")!(X="")
Begin DoDot:1
+2 SET EMSG="<<< NO FILE SELECTED - JOB ABORTED >>>"
SET EFLG=EFLG+1
End DoDot:1
QUIT
+3 SET X=$SELECT($DATA(ABPAFILE(X))=1:ABPAFILE(X),1:"INVALID SELECTION")
WRITE " ",X
+4 IF X="INVALID SELECTION"
GOTO SELECT
+5 SET %FN=""_"/usr/spool/uucppublic/"_X_""
+6 KILL %DEV,%IN
DO OPEN
Begin DoDot:1
+7 IF +EFLG>0
Begin DoDot:2
+8 SET EMSG="<<< DEVICE UNAVAILABLE - JOB ABORTED >>>"
SET EFLG=EFLG+1
End DoDot:2
End DoDot:1
IF +EFLG'>0
SET IO=+%DEV
QUIT
+9 ;
OPEN ;;VARIABLES USED FOR MSM HFS DEVICE OPEN UTILITY
+1 ;; %DEV -- DEVICE NUMBER, INITIALIZED TO 51
+2 ;; %FN -- UNIX FILE NAME (USING FULL PATH NAME)
+3 ;; %IN -- OPEN PARAMETER (DEFAULT = 1 - READ ONLY)
+4 ;; %ZA -- RESULT CODE (-1 = ERROR)
+5 IF $DATA(%DEV)'=1
SET %DEV=51
+6 IF %DEV=55
SET %DEV=51
+7 IF $DATA(%IN)'=1
SET %IN=1
+8 OPEN @$SELECT('$DATA(%DEVDLM):"%DEV:(%FN:$S(%IN:""R"",1:""M"")):0",1:"%DEV:(%FN:$S(%IN:""R"",1:""M"")::::%DEVDLM):0")
IF '$TEST
SET %DEV=%DEV+1
IF %DEV<55
GOTO OPEN
+9 IF '$TEST
SET EFLG=EFLG+1
QUIT
+10 USE %DEV
SET %ZA=$ZA
IF %ZA<0
CLOSE %DEV
+11 QUIT
