Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________           PGM32 
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        *************** Beginning of data ************************************* 
     H
     F*-----------------------------------------------------------------------
     F*- This is program 32, Page 125 - RPG/400 Assignment 2.  ©         ---
     F*-                  Author:  Browning, 04/08/98                      ---
     F*-                                                                   ---
     F*-                 PURPOSE:  Read file - perform steps A - G         ---
     F*-                                                                   ---
     F*-              INDICATORS:  70-- PAGE OVERFLOW                      ---
     F*-                           90-- READ SPRSTP                        ---
     F*-                                                                   ---
     F*-        Associated Files:                                          ---
     F*-                                                                   ---
     F*ILENAME++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++--
     FSPRSTP    UF   E           K DISK
     FPGMP32    O    E             PRINTER OFLIND(*IN70)
     D*AME+++++++++++ETDsFrom+++To/L+++IDc.keywords+++++++++++++++++++++++++
     D BALDU2          S              8S 2
     D*
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C                   READ      SPRSTP                                 90
     C                   WRITE     TITLE
     C                   WRITE     DETAIL
     C                   DOW       *IN90 = *OFF
     C                   IF        *IN70 = *ON
     C                   EVAL      *IN70 = *OFF
     C                   ENDIF
     C                   EVAL      BALDU2 = BALDUE + BALDU2
     C                   WRITE     DETAIL2
     C                   READ      SPRSTP                                 90
     C                   ENDDO
     C                   WRITE     TOTAL
     C                   EVAL      *INLR = *ON
     C                   RETURN