Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________           PGM03 
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        *************** Beginning of data ************************************* 
     H
     F*-----------------------------------------------------------------------
     F*- This is program 3 Customer Master File Listing  ©               ---
     F*-                  Author:  Browning, 9/12/98                       ---
     F*-                                                                   ---
     F*-                 PURPOSE:                                          ---
     F*-                                                                   ---
     F*-              INDICATORS:  90-- READ  SPRCMF                       ---
     F*-                                                                   ---
     F*-        Associated Files:  PGMP03 -- PRINTER FILE FOR PROGRAM 3    ---
     F*-                                                                   ---
     F*ILENAME++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++--
     FSPRCMF    UF   E           K DISK
     FPGMP03    O    E             PRINTER OFLIND(*IN70)
     D*AME+++++++++++ETDsFrom+++To/L+++IDc.keywords+++++++++++++++++++++++++
     D SUBTIT          S             20
     D RCODE           S              1
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C     'Subtitle ?'  DSPLY                   SUBTIT
     C     'Enter C or P'DSPLY                   RCODE
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2Extended-FACTOR2++++++++++++++++++
     C                   READ      SPRCMF                                 90
     C                   WRITE     TITLE
     C                   DOW       *IN90 = *OFF
     C                   IF        *IN70 = *ON
     C                   WRITE     TITLE
     C                   ENDIF
     C                   IF        RCODE = 'C' OR RCODE = 'c'
     C                   IF        SSTRET <> *BLANKS
     C                   WRITE     DETAIL
     C                   EXSR      CLEAR
     C                   ELSE
     C                   WRITE     SDETL
     C                   EXSR      CLEAR
     C                   ENDIF
     C*----------------------------------------------------------------------
     C                   ELSE
     C                   IF        DCODE = 'A' OR DCODE = 'U'
     C                   IF        SSTRET <> *BLANKS
     C                   WRITE     DETAIL
     C                   EXSR      CLEAR
     C                   ELSE
     C                   WRITE     SDETL
     C                   EXSR      CLEAR
     C                   ENDIF
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2Extended-FACTOR2++++++++++++++++++
     C                   ENDIF
     C                   ENDIF
     C                   READ      SPRCMF                                 90
     C                   ENDDO
     C                   EVAL      *INLR = *ON
     C                   RETURN
     C*----------------------------------------------------------------------
     C     CLEAR         BEGSR
     C                   EVAL      DCODE = ' '
     C                   UPDATE    CUSTREC
     C                   ENDSR