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

     H
     F*---------------------------------------------------------------------
     F*- THIS IS SENIOR PROJECTS MOD-2, CREATE STOCK NEEDS FILE          ---
     F*-                                                                 ---
     F*-                  AUTHOR: BROWNING, 05/05/99   (C)               ---
     F*-                                                                 ---
     F*-                 PURPOSE:  TO PRINT STOCK NEEDS REPORT WHICH     ---
     F*-                           CAN SERVE AS A WORKING DOCUMENT FOR   ---
     F*-                           THE PURCHASING AGENT WHEN DECIDING    ---
     F*-                           WHICH MERCHANDISE TO PURCHASE.        ---
     F*-                                                                 ---
     F*-              INDICATORS:  70-- CHAIN SPRINV                     ---
     F*-                           71-- CHAIN SPRVMF                     ---
     F*-                           90-- READ SPRSNF                      ---
     F*-                                                                 ---
     F*-        ASSOCIATED FILES:  SPRSNF-- STOCK NEEDS FILE (PF)        ---
     F*-                           SPRP01-- PRINTER FILE                 ---
     F*-                           SPRINV-- INVENTORY FILE               ---
     F*-                           SPRVMF-- VENDOR MASTER FILE           ---
     F*-                                                                 ---
     F*ILENAME++IPEASFRLEN+LKLEN+AIDEVICE+.KEYWORDS+++++++++++++++++++++++++
     FSPRSNF    IF   E           K DISK
     FSPRVMF    IF   E           K DISK
     FSPRINV    IF   E           K DISK
     FSPRHED    IF   E             DISK
     FSPRP01    O    E             PRINTER OFLIND(*IN70)
     F*
     D*AME+++++++++++ETDSFROM+++TO/L+++IDC.KEYWORDS+++++++++++++++++++++++++
     D HOLD            S              4A
     D PCOST           S              7S 2
     D VENCST          S              7S 2
     D REPCST          S              9S 2
     D*
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C                   EXSR      PREP
     C                   DOW       *IN90 = *OFF
     C                   EXSR      ENDOF
     C     ITEMNO        CHAIN     SPRINV                             70
     C     VENDOR        CHAIN     SPRVMF                             71
     C                   IF        HOLD <> VENDOR
     C                   WRITE     VENTOT
     C                   EVAL      REPCST = VENCST + REPCST
     C                   EVAL      VENCST = *ZEROS
     C                   EXSR      CALC
     C                   ELSE
     C                   EXSR      CALC
     C                   ENDIF
     C                   READ      SPRSNF                                 90
     C                   ENDDO
     C                   WRITE     VENTOT
     C                   EVAL      REPCST = VENCST + REPCST
     C                   WRITE     REPTOT
     C                   EVAL      *INLR = *ON
     C                   RETURN
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2EXTENDED-FACTOR2++++++++++++++++++
     C     PREP          BEGSR
     C                   READ      SPRHED
     C                   READ      SPRSNF                                 90
     C                   WRITE     TITLE
     C                   WRITE     HEADER
     C                   EVAL      HOLD = VENDOR
     C                   ENDSR
     C*--- ENDOF SUBROUTINE ------------------------------------------------
     C     ENDOF         BEGSR
     C                   IF        *IN70 = *ON
     C                   WRITE     HEADER
     C                   EVAL      *IN70 = *OFF
     C                   ENDIF
     C                   ENDSR
     C*--- CALC SUBROUTINE -------------------------------------------------
     C     CALC          BEGSR
     C                   EVAL      PCOST = *ZEROS
     C                   EVAL      PCOST = RECREQ * VCOST
     C                   EVAL      VENCST = PCOST + VENCST
     C                   EVAL      HOLD = VENDOR
     C                   WRITE     DETAIL
     C                   ENDSR