ABPAOC0A.m

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