Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________           PGM08 
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        *************** Beginning of data ************************************* 
     H
     F*-----------------------------------------------------------------------
     F*- This is program 8, LIST A SPECIFIC CUSTOMER ORDER  ©            ---
     F*-                  Author:  Browning, 9/21/98                       ---
     F*-                                                                   ---
     F*-                 PURPOSE:                                          ---
     F*-                                                                   ---
     F*-              INDICATORS:  10-- SETLL SPRCOD                       ---
     F*-                           70-- CHAIN SPRCMF                       ---
     F*-                           71-- CHAIN SPRINV                       ---
     F*-                           90-- READE SPRCOD                       ---
     F*-                                                                   ---
     F*-        Associated Files:  PGMP08 -- PRINTER FILE FOR PROGRAM 8    ---
     F*-                                                                   ---
     F*ILENAME++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++--
     FSPRCMF    IF   E           K DISK
     FSPRCOD    IF   E           K DISK
     FSPRINV    IF   E           K DISK
     FPGMP08    O    E             PRINTER
     D*AME+++++++++++ETDsFrom+++To/L+++IDc.keywords+++++++++++++++++++++++++
     D BAL1            S              9  2
     D TBAL            S              9  2
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C                   EXSR      GETIT
     C     SCRDTA        KLIST
     C                   KFLD                    CUSTNO
     C                   KFLD                    ORDNO
     C     SCRDTA        SETLL     SPRCOD                                 10
     C                   IF        *IN10 = *ON
     C     SCRDTA        READE     SPRCOD                                 90
     C                   EXSR      SETUP
     C                   DOW       *IN90 = *OFF
     C                   EXSR      CALCUL
     C     SCRDTA        READE     SPRCOD                                 90
     C                   ENDDO
     C                   WRITE     GTOTAL
     C                   EVAL      *INLR = *ON
     C                   ELSE
     C                   EXSR      ERRORS
     C                   ENDIF
     C                   RETURN
     C*---------------------------------------------------------------------
     C     GETIT         BEGSR
     C                   CLEAR                   CUSTNO
     C                   CLEAR                   ORDNO
     C     'Customer #'  DSPLY                   CUSTNO
     C     'ORDER #'     DSPLY                   ORDNO
     C                   ENDSR
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2Extended-FACTOR2++++++++++++++++++
     C     SETUP         BEGSR
     C     CUSTNO        CHAIN     SPRCMF                             70
     C                   IF        *IN70 = *OFF
     C                   WRITE     TITLE
     C                   WRITE     HEAD
     C                   ELSE
     C                   EXSR      ERRORS
     C                   ENDIF
     C                   ENDSR
     C*---------------------------------------------------------------------
     C     CALCUL        BEGSR
     C     ITEMNO        CHAIN     SPRINV                             71
     C                   IF        *IN71 = *OFF
     C                   EVAL      BAL1 = *ZEROS
     C                   EVAL      BAL1 = QTYORD * PRICE
     C                   EVAL      TBAL = TBAL + BAL1
     C                   WRITE     DETAIL
     C                   ELSE
     C                   EXSR      ERRORS
     C                   ENDIF
     C                   ENDSR
     C*---------------------------------------------------------------------
     C     ERRORS        BEGSR
     C                   IF        *IN70 = *ON
     C     'NOT FOUND'   DSPLY
     C                   ENDIF
     C                   IF        *IN71 = *ON
     C     'NOT FOUND'   DSPLY
     C                   ENDIF
     C                   IF        *IN10 = *OFF
     C     'INVALID DATA'DSPLY
     C                   ENDIF
     C                   ENDSR