IBM Mainframe Forum

         MVC   0(255,RZ),0(RX)   COPY INPUT TO OUTPUT AREA         
         MVC   255(95,RZ),255(RX) COPY REMAINING INPUT TO OUTPUT   
         CLI   0(RX),C'H'        CHECK FOR HEADER RECORD           
         BE    50                                                 
         CLI   0(RX),C'B'        CHECK FOR BATCH RECORD           
         BE    40                                                 
         CLI   0(RX),C'T'        CHECK FOR TRAILER RECORD         
         BE    60                                                 
         LA    RV,32             LENGTH OF FIRST NAME FIELD       
01       NULL                    PROCESS DETAIL RECORD             
         LA    RW,48(RV,RZ)      START OF FIRST NAME FIELD +       
         NULL                        REMAINING LENGTH             
         CLI   0(RW),C' '        IF NOT BLANK GO TO 10             
         BNE   10                  ELSE                           
         BCT   RV,01             DECREMENT LENGTH AND LOOP         
10       NULL                                                     
         MVC   2(32,RW),313(RX)                                   
         MVC   80(32,RZ),80(RX)  COPY STARTING AFTER NAME FIELD   
         MVC   313(32,RZ),=C'                                '       
         CP    TALLY3,=P'1'      IF PROCESSING RETURNS BATCH         
         BE    20                                                   
         AP    TALLY5,=P'1'      ADD 1 TO PAYMENTS COUNT             
         B     30                                                   
20       AP    TALLY6,=P'1'      ADD 1 TO RETURNS COUNT             
30       NULL                                                       
         LH    RV,=H'350'        SET OUT RECORD LENGTH               
         STH   RV,LENZ                                               
         B     50                                                   
40       NULL                                                       
         CLI   16(RZ),C'D'       IS THIS A RETURNS BATCH?           
         BE    45                                                   
         ZAP   TALLY3,=P'0'      SET RETURNS BATCH SWITCH OFF       
         B     50                C INDICATES CREDIT BATCH (PAYMENTS)
45       NULL                    D INDICATES DEBIT BATCH (REVERSALS)
         ZAP   TALLY3,=P'1'      SET RETURNS BATCH SWITCH ON         
50       NULL                                                       
         AP    TALLY1,=P'1'      ADD 1 TO NUMBER OF RECORDS         
         BAL   SYSUT2(RZ)        WRITE THE RECORD                   
         B     DELETE(RX)        READ NEXT SYSUT1                   
60       NULL                                                       
         AP    TALLY1,=P'1'      ADD 1 TO NUMBER OF RECORDS         
         UNPK  1(10,RZ),TALLY1   MOVE NUMBER OF RECORDS TO TRAILER 
         OI    10(RZ),X'F0'      FORCE SIGN TO F                   
         LH    RV,=H'350'        SET OUT RECORD LENGTH             
         STH   RV,LENZ                                             
         BAL   SYSUT2(RZ)        WRITE THE TRAILER RECORD           
         B     DELETE(RX)        IF OK, READ NEXT SYSUT1           
*                                                                   
EOFX     NULL  ,                                                   
         B     EOF                                                 
         END

FILE INFILE definition-I-don't-know
     INFILE-RECORD-TYPE 1 1 A

FILE OUTFILE definition-I-don't-know
* Important, sign F is needed, so no decimal places (to make a signed integer, put 0 for decimal places)
     TRAILER-RECORD-COUNT 2 7 N

* THERE ARE MANY WAYS TO DO THIS

* The following will automatically read your input file, pass through the available code following, then read the next, until end of file.
JOB INPUT INFILE


      MOVE INFILE TO OUTFILE

* Batch records, more of these than headers and trailers, so ask about these first.
      IF INFILE-RECORD-TYPE = "B"
           PERFORM BATCH-PROCESSING
           GO TO JOB
      END-IF



* Header, write it out. Easytrieve plus can automatically do record counts. Add extras if you like. I like to check that ther is one, and one only, header per file, and it is nice if there is a date on the header so I know I'm using the current file. Other info is also good. If any is there, use it as well.

      IF INFILE-RECORD-TYPE = "H"
*          PERFORM HEADER-PROCESSING
           PUT OUTFILE
           GO TO JOB
      END-IF


* Trailer, write it out. Easytrieve plus can automatically do record counts. Add extras if you like. I like to check that there is one, and one only, trailer per file, and it is nice to at least check a record total. Other info is also good. If any is there, use it as well.

      IF INFILE-RECORD-TYPE = "T"
           PERFORM TRAILER-PROCESSING
           GO TO JOB
      END-IF

* It would be nice if this detail record had a code. Then, as they will be mostly details, we can put this first, plus check that there are no "rubbish" record types on the file.

      PERFORM DETAIL-PROCESSING

* now, the program does its own "go to job" as there is no more code to process (we have reached the PROCs, could also be a report, another job, a sort, same thing happens, it just starts the input cycle again itself.

BATCH-PROCESSING. PROC
END-PROC
DETAIL-PROCESSING. PROC
* do all the stuff you need
      PUT OUTFILE
END-PROC
TRAILER-PROCESSING. PROC
       TRAILER-RECORD-COUNT = OUTFILE (RECORD-COUNT) + 1
       OUTFILE (RECORD-LENGTH) = 350
       PUT OUTFILE
END-PROC