Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________           PGM01 
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        *************** Beginning of data ************************************* 
     H
     F*-----------------------------------------------------------------------
     F*- This is program 1, Inventory File Listing  ©                    ---
     F*-                  Author:  Browning, 9/8/98                        ---
     F*-                                                                   ---
     F*-                 PURPOSE:                                          ---
     F*-                                                                   ---
     F*-              INDICATORS:  90-- READ  SPRINV                       ---
     F*-                                                                   ---
     F*-        Associated Files:                                          ---
     F*-                                                                   ---
     F*ILENAME++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++--
     FSPRINV    UF   E           K DISK
     FQPRINT    O    F  132        PRINTER OFLIND(*INOF)
     D*AME+++++++++++ETDsFrom+++To/L+++IDc.keywords+++++++++++++++++++++++++
     D RDATE           S             20
     D SUBTIT          S             20
     D RCODE           S              1
     D LBLOUT          S              8
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C     'Subtitle ?'  DSPLY                   SUBTIT
     C     'Date'        DSPLY                   RDATE
     C     'Enter C or P'DSPLY                   RCODE
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2Extended-FACTOR2++++++++++++++++++
     C                   SELECT
     C                   WHEN      RCODE = 'C'
     C                   EVAL      LBLOUT = 'Complete'
     C                   WHEN      RCODE = 'c'
     C                   EVAL      LBLOUT = 'Complete'
     C                   WHEN      RCODE = 'P'
     C                   EVAL      LBLOUT = 'Partial'
     C                   WHEN      RCODE = 'p'
     C                   EVAL      LBLOUT = 'Partial'
     C                   OTHER
     C                   EVAL      LBLOUT = '        '
     C                   ENDSL
     C                   EXSR      PREPP
     C                   DOW       *IN90 = *OFF
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2Extended-FACTOR2++++++++++++++++++
     C                   IF        *INOF = *ON
     C                   EXCEPT    HEAD
     C                   EVAL      *INOF = *OFF
     C                   ENDIF
     C                   IF        LBLOUT = 'Partial'
     C                   IF        ICODE  = 'U'
     C                   EXCEPT    DETAIL
     C                   EVAL      ICODE = 'A'
     C                   UPDATE    INVMAST
     C                   ENDIF
     C                   ELSE
     C                   EXCEPT    DETAIL
     C                   ENDIF
     C                   READ      SPRINV                                 90
     C                   ENDDO
     C                   EVAL      *INLR = *ON
     C                   RETURN
     C*-----------------------------------------------------------------------
     C     PREPP         BEGSR
     C                   READ      SPRINV                                 90
     C                   EXCEPT    TITLE
     C                   EXCEPT    HEAD
     C                   ENDSR
     O*ilename++DF..N01N02N03Excnam++++B++A++Sb+Sa+.........................
     OQPRINT    E            TITLE          2  2
     O                                           69 'Inventory Listing'
     O          E            TITLE          1
     O                                           51 'As of'
     O                       RDATE               73
     O          E            TITLE          1
     O                       SUBTIT              69
     O          E            TITLE          2
     O                       LBLOUT             130
     O*.............N01N02N03Field+++++++++YB.End++PConstant/editword/DTform
     O          E            HEAD           1
     O                                           31 'Selling'
     O                                           39 'AVG Un'
     O                                           45 'Bin'
     O                                           49 'On'
     O                                           55 'On'
     O                                           63 'Back'
     O                                           73 'Reorder'
     O                                           78 'Max'
     O                                           86 'Sold /'
     O                                           96 'Gros Prof'
     O                                          103 'Vendor'
     O                                          111 'Vendor'
     O                                          130 'Action'
     O          E            HEAD           2
     O                                            6 'Item #'
     O                                           21 'Description'
     O                                           30 'Price'
     O                                           38 'Cost'
     O                                           45 'Loc'
     O                                           50 'Hand'
     O                                           57 'Order'
     O                                           65 'Ordered'
     O                                           72 'Level'
     O                                           79 'Level'
     O                                           86 'Month'
     O                                           95 '/ Month'
     O                                          103 'Number'
     O                                          112 'U/ Cost'
     O                                          123 'Committed'
     O                                          129 'Code'
     O          E            DETAIL         1
     O                       ITEMNO               6
     O                       DESC                23
     O                       PRICE         3     32
     O                       AVGCST        3     41
     O                       LOCATE              45
     O                       ONHAND        3     50
     O                       ORDERD        3     56
     O                       BO            3     63
     O                       RLEVEL        3     71
     O                       MAX           3     78
     O                       SOLD          3     85
     O                       PROFIT        3     95
     O                       VENDOR             102
     O                       VCOST         3    112
     O                       COMIT         3    120
     O                       ICODE              127