Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________          SPR001 
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        *************** Beginning of data ************************************* 

     H
     F*---------------------------------------------------------------------
     F*- This is SENIOR PROJECTS MOD-1, CREATE STOCK NEEDS FILE          ---
     F*-                                                                 ---
     F*-                  Author: Browning, 04/27/99  (C)                ---
     F*-                                                                 ---
     F*-                 PURPOSE:  To check the items in inventory and   ---
     F*-                           determine which items need to be      ---
     F*-                           reordered: calculate the amount to be ---
     F*-                           reordered and put this information    ---
     F*-                           into a stock needs working file       ---
     F*-                                                                 ---
     F*-              INDICATORS:  90-- READ SPRINV                      ---
     F*-                                                                 ---
     F*-        Associated Files:  SPRINV -- INVENTORY FILE(PF)          ---
     F*-                                                                 ---
     F*ILENAME++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
     FSPRINV    IF   E           K DISK
     FSPRSNF    UF A E           K DISK
     F*
     D*AME+++++++++++ETDsFrom+++To/L+++IDc.keywords+++++++++++++++++++++++++
     D QAVAIL          S              6S 2
     D*
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2Extended-FACTOR2++++++++++++++++++
     C                   READ      SPRINV                                 90
     C                   DOW       *IN90 = *OFF
     C                   EVAL      QAVAIL = (ONHAND + ORDERD) - BO
     C                   IF        QAVAIL < RLEVEL
     C                   EVAL      RECREQ = MAX - QAVAIL
     C                   EVAL      CODE = ' '
     C                   WRITE     STNEED
     C                   ENDIF
     C                   READ      SPRINV                                 90
     C                   ENDDO
     C                   EVAL      *INLR = *ON
     C                   RETURN