Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________           PGMB9 
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        *************** Beginning of data ************************************* 
     H
     F*---------------------------------------------------------------------
     F*- This is program 9 Inventory Audit Report                        ---
     F*- REWRITTEN USING AN ARRAY                                        ---
     F*-                  Author:  Browning, 10/22/98  ©               ---
     F*-                                                                 ---
     F*-                 PURPOSE:  To allow the operator to obtain a     ---
     F*-                           balance sheet comparing the dollar    ---
     F*-                           value of inventory as given in the    ---
     F*-                           Inventory file / general ledger       ---
     F*-                           link file.                            ---
     F*-                                                                 ---
     F*-              INDICATORS:  90-- READ  SPRINV                     ---
     F*-                           91-- READ  SPRHED                     ---
     F*-                                                                 ---
     F*-        Associated Files:  PGMP09 -- PRINTER FILE FOR PROGRAM 9  ---
     F*-                                                                 ---   
     F*ILENAME++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
     FSPRHED    IF   E             DISK
     FSPRGLF    IF   E           K DISK
     FSPRINV    IF   E           K DISK
     FPGMP09    O    E             PRINTER
     D*AME+++++++++++ETDsFrom+++To/L+++IDc.keywords+++++++++++++++++++++++++
     D ACCTNH          S              4S 0 DIM(8) CTDATA PERRCD(1)
     D DTE             S             20A
     D HACCUM          S             10S 2
     D SACCUM          S             10S 2
     D HRDWR           S             10S 2
     D SPORT           S             10S 2
     D X               S              1S 0
     D ACCT            S              4S 0
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C     'DATE?'       DSPLY                   DTE
     C                   READ      SPRHED                                 91
     C                   WRITE     TITLE
     C                   READ      SPRINV                                 90
     C                   DOW       *IN90 = *OFF
     C                   IF        ITEMNO < 'S0000'
     C                   EVAL      HRDWR = (AVGCST * ONHAND) + HRDWR
     C                   EVAL      HACCUM = HACCUM + PROFIT
     C                   ELSE
     C                   EVAL      SPORT = (AVGCST * ONHAND) + SPORT
     C                   EVAL      SACCUM = SACCUM + PROFIT
     C                   ENDIF
     C                   READ      SPRINV                                 90
     C                   ENDDO
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2Extended-FACTOR2++++++++++++++++++
     C                   DO        8             X
     C                   EVAL      ACCT = ACCTNH(X)
     C     ACCT          CHAIN     SPRGLF
     C                   IF        X <= 4
     C                   EVAL      HACCUM = HACCUM + BAL
     C                   ELSE
     C                   EVAL      SACCUM = SACCUM + BAL
     C                   ENDIF
     C                   ENDDO
     C                   EVAL      *INLR = *ON
     C                   IF        HACCUM = HRDWR AND SACCUM = SPORT
     C                   WRITE     DETAIL
     C                   WRITE     MATCH
     C                   ELSE
     C                   WRITE     DETAIL
     C                   WRITE     ERROR
     C                   ENDIF
     C                   EVAL      *INLR = *ON
     C                   RETURN
     C*----------------------------------------------------------------------
**CTDATA ACCTNH
1116
5111
4111
4112
1117
5112
4113
4114