AIBSDEV1.m

AIBSDEV1 ;TAPE SELECTION ROUTINE [ 02/01/89  8:50 AM ]

 ;1.3 ADDITIONAL CHANGES FOR DSM

 ;1.3; 9/23/88 RESTRUCTURE, ALLOW FOR REGISTRATION ELIGIBILITY FILE

 ;1.1 ;DFM

TAPE ;OPEN TAPE UNIT

 X ^%ZOSF("MAGTAPE") S AIBTONL=^%ZOSF("MTONLINE")_" I Y"

 S %IS("A")="Enter"_AIBTXIO_"device ",%IS="N",%IS("B")=AIBDFLT

 U AIBCDV D ^%ZIS I 'POP S (AIBTDV,AIBDEV)=IO G MOUNT

 U AIBCDV W !,"TAPE DRIVE NOT SELECTED" G ABEND

MOUNT ;MOUNT TAPE ON DRIVE, CHECK ONLINE

 U AIBCDV W !!,"Mount",AIBTXIO,"Tape on Drive  ",AIBTDV,$S(IN&AIBSEQ=1:"",IN:"sequence # "_AIBSEQ,1:" 'WRITE ENABLED' ")," and ",!,"Press ENTER When Ready or '^' to Cancel Processing; "

 R AIBR:DTIME I AIBR="^" G OPCANCL

 S:$D(AIBSEQ) AIBSEQ=AIBSEQ+1 D OPEN^AIBSDEV

 U AIBTDV X AIBTONL I $T G ONLINE

 U AIBCDV W !,"Waiting for tape drive to come online" F AIB=1:1:75 U AIBTDV X AIBTONL G:$T ONLINE U AIBCDV W "." H 5

 W !!,*7,"Tape not ready after 6 minutes, processing canceled" G ABEND

ONLINE ;TAPE DRIVE IS ONLINE

 G:IN REWIND U AIBTDV X ^%ZOSF("MTWPROT") I Y=0 G READY

PROTECT ;TAPE IS PROTECTED

 U AIBCDV W *7,!!," Tape is Write Protected, Please Remove the Tape,",!,"And Place a Ring in the Write Ring Groove," G TAPE

READY ;TAPE IS READY

 ;W %MT("WTM") REMOVED - NOT NEEDED

 U AIBCDV R !!,"Enter Volume Serial Number of Output Tape ",AIBV:DTIME

 W ! G EXIT

REWIND ;REWIND INPUT TAPE

 U AIBCDV W !,"Positioning input tape, please standby" U AIBTDV W @%MT("REW") F L=1:1:150 U AIBCDV X ^%ZOSF("MTBOT") G:Y EXIT W "." H 2

 W *7,!!,"Tape not rewound"

ABEND ;ABNORMAL END OF JOB

 S AIBA="A" G EXIT

OPCANCL ;OPERATOR CANCEL

 S AIBA="C" G EXIT

EXIT ;RETURN TO CALLING PROGRAM

 Q

AIBSDEV1  ;TAPE SELECTION ROUTINE [ 02/01/89  8:50 AM ]

 +1       ;1.3 ADDITIONAL CHANGES FOR DSM

 +2       ;1.3; 9/23/88 RESTRUCTURE, ALLOW FOR REGISTRATION ELIGIBILITY FILE

 +3       ;1.1 ;DFM

TAPE      ;OPEN TAPE UNIT

 +1        XECUTE ^%ZOSF("MAGTAPE")

           SET AIBTONL=^%ZOSF("MTONLINE")_" I Y"

 +2        SET %IS("A")="Enter"_AIBTXIO_"device "

           SET %IS="N"

           SET %IS("B")=AIBDFLT

 +3        USE AIBCDV

           DO ^%ZIS

           IF 'POP

               SET (AIBTDV,AIBDEV)=IO

               GOTO MOUNT

 +4        USE AIBCDV

           WRITE !,"TAPE DRIVE NOT SELECTED"

           GOTO ABEND

MOUNT     ;MOUNT TAPE ON DRIVE, CHECK ONLINE

 +1        USE AIBCDV

           WRITE !!,"Mount",AIBTXIO,"Tape on Drive  ",AIBTDV,$SELECT(IN&AIBSEQ=1:"",IN:"sequence # "_AIBSEQ,1:" 'WRITE ENABLED' ")," and ",!,"Press ENTER When Ready or '^' to Cancel Processing; "

 +2        READ AIBR:DTIME

           IF AIBR="^"

               GOTO OPCANCL

 +3        IF $DATA(AIBSEQ)

               SET AIBSEQ=AIBSEQ+1

           DO OPEN^AIBSDEV

 +4        USE AIBTDV

           XECUTE AIBTONL

           IF $TEST

               GOTO ONLINE

 +5        USE AIBCDV

           WRITE !,"Waiting for tape drive to come online"

           FOR AIB=1:1:75

               USE AIBTDV

               XECUTE AIBTONL

               IF $TEST

                   GOTO ONLINE

               USE AIBCDV

               WRITE "."

               HANG 5

 +6        WRITE !!,*7,"Tape not ready after 6 minutes, processing canceled"

           GOTO ABEND

ONLINE    ;TAPE DRIVE IS ONLINE

 +1        IF IN

               GOTO REWIND

           USE AIBTDV

           XECUTE ^%ZOSF("MTWPROT")

           IF Y=0

               GOTO READY

PROTECT   ;TAPE IS PROTECTED

 +1        USE AIBCDV

           WRITE *7,!!," Tape is Write Protected, Please Remove the Tape,",!,"And Place a Ring in the Write Ring Groove,"

           GOTO TAPE

READY     ;TAPE IS READY

 +1       ;W %MT("WTM") REMOVED - NOT NEEDED

 +2        USE AIBCDV

           READ !!,"Enter Volume Serial Number of Output Tape ",AIBV:DTIME

 +3        WRITE !

           GOTO EXIT

REWIND    ;REWIND INPUT TAPE

 +1        USE AIBCDV

           WRITE !,"Positioning input tape, please standby"

           USE AIBTDV

           WRITE @%MT("REW")

           FOR L=1:1:150

               USE AIBCDV

               XECUTE ^%ZOSF("MTBOT")

               IF Y

                   GOTO EXIT

               WRITE "."

               HANG 2

 +2        WRITE *7,!!,"Tape not rewound"

ABEND     ;ABNORMAL END OF JOB

 +1        SET AIBA="A"

           GOTO EXIT

OPCANCL   ;OPERATOR CANCEL

 +1        SET AIBA="C"

           GOTO EXIT

EXIT      ;RETURN TO CALLING PROGRAM

 +1        QUIT