AIBCVT2.m

AIBCVT2 ;IHS/DDPS/DFM-IBM STAT RECORDS BALANCING  [ 01/12/89  1:09 PM ]

 ;1.3; 1/13/89 LOGBOOK TOTAL INCLUDES BATCH HEADER REC, HEADER INCLUDES LOOP NAME

 ;1.3 ;12/31/88 ; LOGBOOK COUNTS,FAC HEADING,RJE COUNTS

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

 ;1.0; 3/28/88

GBLHEAD ;PROCESS GLOBAL HEADINGS

 S AIBGCTH=$P(AIBIN,U,4)

 S Y=$P(AIBIN,U,1) X ^DD("DD") S AIBGBD=Y

 S Y=$P(AIBIN,U,2) X ^DD("DD") S AIBGED=Y

 U AIBPDV W #,?20,AIBCNM_" CONVERSION RUNNING",!

 W !,"Global Beginning Date ",AIBGBD

 W !,"Global Ending Date ",AIBGED

 W !,"Global Header Record Count ",AIBGCTH

 D DATIME^AIBCVT6 W !!,"Processing Begun ",AIBDT," ",AIBTI,! G RETURN

FACHEAD ;PRINT NEXT FACILITY HEADINGS

 S AIBMSG=AIBCNM_" FOR "_AIBFNR_" PROCESSING - CODE = "_AIBFCD

 U AIBPDV W #!!!,?10,AIBMSG

 U AIBCDV W !!,AIBMSG," ",! S AIBMSG="" U AIBPDV

 W !,"Facility Data Beginning Date ",AIBFBD

 W !,"Facility Data Ending Date ",AIBFED

 W !,"Facility Header Record Count ",AIBFCT,!

 G RETURN

FACFOOT ;FACILITY FOOTING LINES

 U AIBCDV W !,"Facility Records Created ",AIBCTO+AIBCTB,!

 I AIBFILE="ibmjob" W "Facility RJE Data Records Created ",AIBCTW-AIBCTH,!

 U AIBPDV W !!!,"Facility Records Read   ",AIBCTI+AIBCTE+AIBCT2

 S AIBGCTI=AIBGCTI+AIBCTI

 I $L(AIBTGBL)=0 G WREJCT

 W !,"Facility Records Written To ",AIBTGBL,"GLOB ",AIBCT2

 S AIBGCT2=AIBGCT2+AIBCT2

WREJCT ;WRITE REJECTED COUNT

 W !,"Facility Records Rejected ",AIBCTE S AIBGCTE=AIBGCTE+AIBCTE

 I AIBCTB=0 G WTOTAL

 W !,"Facility REG DEL/MRG Batch Header Records Created ",AIBCTB

 S AIBGCTB=AIBGCTB+AIBCTB,AIBCTB=0

WTOTAL ;WRITE TOTAL RECORD COUNT

 ; I AIBFILE="ibmjob" G WRJETOT

 W !,"Facility Records Written  ",AIBCTO+AIBCTB

 S AIBGCTO=AIBGCTO+AIBCTO,AIBCTO=0

 G CKBAL

WRJETOT ;WRITE TOTAL CARDS CREATED

 W !,"Facility RJE Data Records Created ",AIBCTW-AIBCTH

 S AIBCTH=AIBCTW

CKBAL ;CHECK IF TOTALS BALANCE

 S AIBCTI=AIBCTI+AIBCTE+AIBCT2

 I AIBCTI=AIBFCT W !!,"Facility Counts Balanced" G ZEROUT

 S AIBDIF=AIBFCT-AIBCTI

 W !!,"********** Facility Counts Don't Balance **********"

 W !,"  Facility Header Count = ",AIBFCT

 W !,"  Input Count = ",AIBCTI

 W !,$S(AIBDIF>0:"  Over by ",1:"  Short by "),AIBDIF K AIBDIF

ZEROUT ;RESET FACILITY COUNTERS

 S (AIBCTI,AIBCTE,AIBCT2)=0 G RETURN

EOJ ;END OF JOB PROCESSING

 U AIBPDV W #,?20,AIBCNM_" CONVERSION TOTALS",!

 U AIBCDV W !,"Global Total Records Written ",AIBGCTO+AIBGCTB U AIBPDV

 S AIBAGO=AIBAGO+AIBGCTO+AIBGCTB

 S AIBCRG1=AIBGCTI,AIBGCTI=AIBGCTI+AIBGCTE

 S AIBAGI=AIBAGI+AIBGCTI,AIBGCTI=AIBGCTI+AIBGCT2

 W !!!,"Total Records Read   ",AIBGCTI

 W !,"Total Records Rejected ",AIBGCTE

 I $L(AIBTGBL)=0 G CKDELMRG

 W !,"Total Records Written to ",AIBTGBL,"GLOB ",AIBGCT2

 S AIBTZ(0)=AIBTZ,AIBTZ=0

 S AIBZ=0,AIBZZ=0,$P(@AIBTGLT,U,3)=AIBGCT2,$P(@AIBTGLT,U,4)=AIBGCT2

 I $L(AIBTZ(0))=0 G CKDELMRG

 S AIBZ=AIBZ(0),$P(@AIBTGFT,U,3)=AIBTZ(0),$P(@AIBTGFT,U,4)=AIBTZ(0)

CKDELMRG ;CHECK REGISTRATION DELETE MERGE PRESENT

 I AIBGCTB=0 G GTOTS

 W !,"Facility REG DEL/MRG Batch Header Records Created ",AIBGCTB

GTOTS ;GRAND TOTALS

 I AIBFILE="keytap" G TAPE

 W !,"Total RJE Data Record Count ",AIBCTW

 W !,"Total RJE JCL Record Count ",AIBCTJ

 W !,"Total RJE Records to Transmit ",AIBCTW+AIBCTJ

 W !,"Total Records Written  ",AIBGCTO+AIBGCTB

 G BAL

TAPE ;TAPE TO BE CREATED

 W !,"Total Records Written  ",AIBGCTO+AIBGCTB

 W !!,"******* Keytape Volume Serial Number To Create ",AIBV," *******"

BAL ;BALANCE LOGIC

 I AIBGCTI=AIBGCTH W !!,"Global Counts Balanced" G CKLAST

 S AIBDIF=AIBGCTH-AIBGCTI

 W !!,"********** Global Counts Out of Balance **********"

 W !,"  Global Header Count = ",AIBGCTH

 W !,"  Input Count = ",AIBGCTI

 W !,$S(AIBDIF<0:"  Over by ",1:"  Short by "),AIBDIF K AIBDIF

CKLAST ;IF REGISTRATION CHECK IF DONE

 S (AIBGCTI,AIBGCTO,AIBGCTE,AIBGCT2,AIBGCTB,AIBCRG1)=0

 I AIBGBLP'="AGEL" G RETURN

 U AIBPDV W #,?17,"REGISTRATION CONVERSION LOGBOOK DATA",!

 W !!,"TOTAL TO USE TO BALANCE TO INPUT ",AIBAGI

 W !,"TOTAL RECORDS TO BE ENTERED INTO PCIS LOGBOOK ",AIBAGO

 S (AIBAGI,AIBAGO)=0

RETURN ;RETURN TO CALLING PROGRAM

 Q

AIBCVT2   ;IHS/DDPS/DFM-IBM STAT RECORDS BALANCING  [ 01/12/89  1:09 PM ]

 +1       ;1.3; 1/13/89 LOGBOOK TOTAL INCLUDES BATCH HEADER REC, HEADER INCLUDES LOOP NAME

 +2       ;1.3 ;12/31/88 ; LOGBOOK COUNTS,FAC HEADING,RJE COUNTS

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

 +4       ;1.0; 3/28/88

GBLHEAD   ;PROCESS GLOBAL HEADINGS

 +1        SET AIBGCTH=$PIECE(AIBIN,U,4)

 +2        SET Y=$PIECE(AIBIN,U,1)

           XECUTE ^DD("DD")

           SET AIBGBD=Y

 +3        SET Y=$PIECE(AIBIN,U,2)

           XECUTE ^DD("DD")

           SET AIBGED=Y

 +4        USE AIBPDV

           WRITE #,?20,AIBCNM_" CONVERSION RUNNING",!

 +5        WRITE !,"Global Beginning Date ",AIBGBD

 +6        WRITE !,"Global Ending Date ",AIBGED

 +7        WRITE !,"Global Header Record Count ",AIBGCTH

 +8        DO DATIME^AIBCVT6

           WRITE !!,"Processing Begun ",AIBDT," ",AIBTI,!

           GOTO RETURN

FACHEAD   ;PRINT NEXT FACILITY HEADINGS

 +1        SET AIBMSG=AIBCNM_" FOR "_AIBFNR_" PROCESSING - CODE = "_AIBFCD

 +2        USE AIBPDV

           WRITE #!!!,?10,AIBMSG

 +3        USE AIBCDV

           WRITE !!,AIBMSG," ",!

           SET AIBMSG=""

           USE AIBPDV

 +4        WRITE !,"Facility Data Beginning Date ",AIBFBD

 +5        WRITE !,"Facility Data Ending Date ",AIBFED

 +6        WRITE !,"Facility Header Record Count ",AIBFCT,!

 +7        GOTO RETURN

FACFOOT   ;FACILITY FOOTING LINES

 +1        USE AIBCDV

           WRITE !,"Facility Records Created ",AIBCTO+AIBCTB,!

 +2        IF AIBFILE="ibmjob"

               WRITE "Facility RJE Data Records Created ",AIBCTW-AIBCTH,!

 +3        USE AIBPDV

           WRITE !!!,"Facility Records Read   ",AIBCTI+AIBCTE+AIBCT2

 +4        SET AIBGCTI=AIBGCTI+AIBCTI

 +5        IF $LENGTH(AIBTGBL)=0

               GOTO WREJCT

 +6        WRITE !,"Facility Records Written To ",AIBTGBL,"GLOB ",AIBCT2

 +7        SET AIBGCT2=AIBGCT2+AIBCT2

WREJCT    ;WRITE REJECTED COUNT

 +1        WRITE !,"Facility Records Rejected ",AIBCTE

           SET AIBGCTE=AIBGCTE+AIBCTE

 +2        IF AIBCTB=0

               GOTO WTOTAL

 +3        WRITE !,"Facility REG DEL/MRG Batch Header Records Created ",AIBCTB

 +4        SET AIBGCTB=AIBGCTB+AIBCTB

           SET AIBCTB=0

WTOTAL    ;WRITE TOTAL RECORD COUNT

 +1       ; I AIBFILE="ibmjob" G WRJETOT

 +2        WRITE !,"Facility Records Written  ",AIBCTO+AIBCTB

 +3        SET AIBGCTO=AIBGCTO+AIBCTO

           SET AIBCTO=0

 +4        GOTO CKBAL

WRJETOT   ;WRITE TOTAL CARDS CREATED

 +1        WRITE !,"Facility RJE Data Records Created ",AIBCTW-AIBCTH

 +2        SET AIBCTH=AIBCTW

CKBAL     ;CHECK IF TOTALS BALANCE

 +1        SET AIBCTI=AIBCTI+AIBCTE+AIBCT2

 +2        IF AIBCTI=AIBFCT

               WRITE !!,"Facility Counts Balanced"

               GOTO ZEROUT

 +3        SET AIBDIF=AIBFCT-AIBCTI

 +4        WRITE !!,"********** Facility Counts Don't Balance **********"

 +5        WRITE !,"  Facility Header Count = ",AIBFCT

 +6        WRITE !,"  Input Count = ",AIBCTI

 +7        WRITE !,$SELECT(AIBDIF>0:"  Over by ",1:"  Short by "),AIBDIF

           KILL AIBDIF

ZEROUT    ;RESET FACILITY COUNTERS

 +1        SET (AIBCTI,AIBCTE,AIBCT2)=0

           GOTO RETURN

EOJ       ;END OF JOB PROCESSING

 +1        USE AIBPDV

           WRITE #,?20,AIBCNM_" CONVERSION TOTALS",!

 +2        USE AIBCDV

           WRITE !,"Global Total Records Written ",AIBGCTO+AIBGCTB

           USE AIBPDV

 +3        SET AIBAGO=AIBAGO+AIBGCTO+AIBGCTB

 +4        SET AIBCRG1=AIBGCTI

           SET AIBGCTI=AIBGCTI+AIBGCTE

 +5        SET AIBAGI=AIBAGI+AIBGCTI

           SET AIBGCTI=AIBGCTI+AIBGCT2

 +6        WRITE !!!,"Total Records Read   ",AIBGCTI

 +7        WRITE !,"Total Records Rejected ",AIBGCTE

 +8        IF $LENGTH(AIBTGBL)=0

               GOTO CKDELMRG

 +9        WRITE !,"Total Records Written to ",AIBTGBL,"GLOB ",AIBGCT2

 +10       SET AIBTZ(0)=AIBTZ

           SET AIBTZ=0

 +11       SET AIBZ=0

           SET AIBZZ=0

           SET $PIECE(@AIBTGLT,U,3)=AIBGCT2

           SET $PIECE(@AIBTGLT,U,4)=AIBGCT2

 +12       IF $LENGTH(AIBTZ(0))=0

               GOTO CKDELMRG

 +13       SET AIBZ=AIBZ(0)

           SET $PIECE(@AIBTGFT,U,3)=AIBTZ(0)

           SET $PIECE(@AIBTGFT,U,4)=AIBTZ(0)

CKDELMRG  ;CHECK REGISTRATION DELETE MERGE PRESENT

 +1        IF AIBGCTB=0

               GOTO GTOTS

 +2        WRITE !,"Facility REG DEL/MRG Batch Header Records Created ",AIBGCTB

GTOTS     ;GRAND TOTALS

 +1        IF AIBFILE="keytap"

               GOTO TAPE

 +2        WRITE !,"Total RJE Data Record Count ",AIBCTW

 +3        WRITE !,"Total RJE JCL Record Count ",AIBCTJ

 +4        WRITE !,"Total RJE Records to Transmit ",AIBCTW+AIBCTJ

 +5        WRITE !,"Total Records Written  ",AIBGCTO+AIBGCTB

 +6        GOTO BAL

TAPE      ;TAPE TO BE CREATED

 +1        WRITE !,"Total Records Written  ",AIBGCTO+AIBGCTB

 +2        WRITE !!,"******* Keytape Volume Serial Number To Create ",AIBV," *******"

BAL       ;BALANCE LOGIC

 +1        IF AIBGCTI=AIBGCTH

               WRITE !!,"Global Counts Balanced"

               GOTO CKLAST

 +2        SET AIBDIF=AIBGCTH-AIBGCTI

 +3        WRITE !!,"********** Global Counts Out of Balance **********"

 +4        WRITE !,"  Global Header Count = ",AIBGCTH

 +5        WRITE !,"  Input Count = ",AIBGCTI

 +6        WRITE !,$SELECT(AIBDIF<0:"  Over by ",1:"  Short by "),AIBDIF

           KILL AIBDIF

CKLAST    ;IF REGISTRATION CHECK IF DONE

 +1        SET (AIBGCTI,AIBGCTO,AIBGCTE,AIBGCT2,AIBGCTB,AIBCRG1)=0

 +2        IF AIBGBLP'="AGEL"

               GOTO RETURN

 +3        USE AIBPDV

           WRITE #,?17,"REGISTRATION CONVERSION LOGBOOK DATA",!

 +4        WRITE !!,"TOTAL TO USE TO BALANCE TO INPUT ",AIBAGI

 +5        WRITE !,"TOTAL RECORDS TO BE ENTERED INTO PCIS LOGBOOK ",AIBAGO

 +6        SET (AIBAGI,AIBAGO)=0

RETURN    ;RETURN TO CALLING PROGRAM

 +1        QUIT