AIBCVT.m

AIBCVT ;IHS/DDPS/DFM - IBM STAT RECORDS CREATION ROUTINE [ 09/23/88  11:51 AM ]

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

 ;1.1; 5/30/88 ADD DSM DEVICE LOGIC

 ;1.0; 3/28/88

 D INIT^AIBCVT4 G:$L(AIBA)=0 CTL G:AIBA="A" ABEND G CLOSE

CTL ;PERFORM GET CONTROL INFORMATION ROUTINE

 D CONTROL^AIBCVT0 G:$L(AIBA)>0 ABEND U AIBCDV D GBLHEAD^AIBCVT2 G:$L(AIBA)>0 ABEND

 S:AIBOS="M" (AIBT1,AIBFN)=AIBDIR_AIBCF_"."_AIBFILE

 I AIBT2="A" I AIBOS="D" G PROCESS

 U AIBCDV D OUT^AIBSDEV G:AIBA="A" ABEND G:AIBA="C" OPCANCL S AIBTDV=AIBDEV,AIBFFN=2 G:AIBOS="D" PROCESS

 I AIBFILE="keytap" G TAPE

 I AIBT2="W" D BJCL^AIBCVT0 G PROCESS

 G PROCESS

TAPE ;DISPLAY VOL SER TO CREATE

 I AIBT2="A" G PROCESS

 I AIBGBLP="AGEL" G PROCESS

 U AIBCDV R !!,"Enter Volume Serial Number Of Keytape To Be Created ",AIBV:DTIME W !!

PROCESS ;PROCESS RECORDS

 D PROCESS^AIBCVT1 G:AIBA="A" ABEND G:AIBA="R" MTERR G:AIBA="C" OPCANCL G CKEOJ

MTERR ;ABEND ON BAD TAPE WRITE

 D MTERR^AIBCVT6 G CLOSE

OPCANCL ;ABEND BECAUSE OPERATOR CANCLED JOB

 D OPCANCL^AIBCVT6 G CLOSE

ABEND ;ABNORMAL END OF JOB

 D ABEND^AIBCVT6 G CLOSE

CKEOJ ;CHECK IF DONE

 I $L(AIB2ND)=0 G CKRJE

 D EOJ^AIBCVT2

 S AIBGBLP=AIBTGBL,AIBA="",AIBT2="A" K:'$D(AIBOK) @AIBGBL D CKGLOB^AIBCVT4

 U AIBTDV S (IO,AIBDEV)=AIBTDV D:AIBOS="M" CLOSE^AIBSDEV

 G CTL

CKRJE ;CHECK IF RJE ENDING JCL NEEDS TO BE WRITTEN

 D:AIBFILE="ibmjob" EJCL^AIBCVT0

 D EOJ^AIBCVT2

CLOSE ;CLOSE FILES

 D CLOSEND^AIBCVT6 Q

AIBCVT    ;IHS/DDPS/DFM - IBM STAT RECORDS CREATION ROUTINE [ 09/23/88  11:51 AM ]

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

 +2       ;1.1; 5/30/88 ADD DSM DEVICE LOGIC

 +3       ;1.0; 3/28/88

 +4        DO INIT^AIBCVT4

           IF $LENGTH(AIBA)=0

               GOTO CTL

           IF AIBA="A"

               GOTO ABEND

           GOTO CLOSE

CTL       ;PERFORM GET CONTROL INFORMATION ROUTINE

 +1        DO CONTROL^AIBCVT0

           IF $LENGTH(AIBA)>0

               GOTO ABEND

           USE AIBCDV

           DO GBLHEAD^AIBCVT2

           IF $LENGTH(AIBA)>0

               GOTO ABEND

 +2        IF AIBOS="M"

               SET (AIBT1,AIBFN)=AIBDIR_AIBCF_"."_AIBFILE

 +3        IF AIBT2="A"

               IF AIBOS="D"

                   GOTO PROCESS

 +4        USE AIBCDV

           DO OUT^AIBSDEV

           IF AIBA="A"

               GOTO ABEND

           IF AIBA="C"

               GOTO OPCANCL

           SET AIBTDV=AIBDEV

           SET AIBFFN=2

           IF AIBOS="D"

               GOTO PROCESS

 +5        IF AIBFILE="keytap"

               GOTO TAPE

 +6        IF AIBT2="W"

               DO BJCL^AIBCVT0

               GOTO PROCESS

 +7        GOTO PROCESS

TAPE      ;DISPLAY VOL SER TO CREATE

 +1        IF AIBT2="A"

               GOTO PROCESS

 +2        IF AIBGBLP="AGEL"

               GOTO PROCESS

 +3        USE AIBCDV

           READ !!,"Enter Volume Serial Number Of Keytape To Be Created ",AIBV:DTIME

           WRITE !!

PROCESS   ;PROCESS RECORDS

 +1        DO PROCESS^AIBCVT1

           IF AIBA="A"

               GOTO ABEND

           IF AIBA="R"

               GOTO MTERR

           IF AIBA="C"

               GOTO OPCANCL

           GOTO CKEOJ

MTERR     ;ABEND ON BAD TAPE WRITE

 +1        DO MTERR^AIBCVT6

           GOTO CLOSE

OPCANCL   ;ABEND BECAUSE OPERATOR CANCLED JOB

 +1        DO OPCANCL^AIBCVT6

           GOTO CLOSE

ABEND     ;ABNORMAL END OF JOB

 +1        DO ABEND^AIBCVT6

           GOTO CLOSE

CKEOJ     ;CHECK IF DONE

 +1        IF $LENGTH(AIB2ND)=0

               GOTO CKRJE

 +2        DO EOJ^AIBCVT2

 +3        SET AIBGBLP=AIBTGBL

           SET AIBA=""

           SET AIBT2="A"

           IF '$DATA(AIBOK)

               KILL @AIBGBL

           DO CKGLOB^AIBCVT4

 +4        USE AIBTDV

           SET (IO,AIBDEV)=AIBTDV

           IF AIBOS="M"

               DO CLOSE^AIBSDEV

 +5        GOTO CTL

CKRJE     ;CHECK IF RJE ENDING JCL NEEDS TO BE WRITTEN

 +1        IF AIBFILE="ibmjob"

               DO EJCL^AIBCVT0

 +2        DO EOJ^AIBCVT2

CLOSE     ;CLOSE FILES

 +1        DO CLOSEND^AIBCVT6

           QUIT