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

     H
     F*---------------------------------------------------------------------
     F*- THIS IS SENIOR PROJECTS MOD-3, UPDATE STOCK NEEDS FILE          ---
     F*-                                                                 ---
     F*-                  AUTHOR: BROWNING, 05/05/99   (C)               ---
     F*-                                                                 ---
     F*-                 PURPOSE:  An interactive program that allows the---
     F*-                           user to make changes, deletions, or   ---
     F*-                           additions to the stock needs file from---
     F*-                           the modified stock needs report       ---
     F*-                           produced by the purchasing agent.     ---
     F*-                                                                 ---
     F*-              INDICATORS:  30-- CHAIN FAILURE (CHANGE SUBROUTINE)---
     F*-                           31-- CHAIN FAILURE (ADD SUBROUTINE)   ---
     F*-                           32-- CHAIN FAILURE (DELETE SUBROUTINE)---
     F*-                           70-- CHAIN SPRSNF                     ---
     F*-                           71-- CHAIN CATKEY TO SPRSNF           ---
     F*-                           90-- READ SPRSNF                      ---
     F*-                                                                 ---
     F*-        ASSOCIATED FILES:  SPRSNF-- STOCK NEEDS FILE (PF)        ---
     F*-                           SPRSC1-- SCRN1                        ---
     F*-                                                                 ---
     F*ILENAME++IPEASFRLEN+LKLEN+AIDEVICE+.KEYWORDS+++++++++++++++++++++++++
     FSPRSNF    UF A E           K DISK
     FSPRSC1    CF   E             WORKSTN
     F*
     D*AME+++++++++++ETDSFROM+++TO/L+++IDC.KEYWORDS+++++++++++++++++++++++++
     D*
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2EXTENDED-FACTOR2++++++++++++++++++
     C     CATKEY        KLIST
     C                   KFLD                    VENDOR2
     C                   KFLD                    ITEMNO2
     C                   DOW       *IN03 = *OFF
     C                   EVAL      *IN30 = *OFF
     C                   EVAL      *IN31 = *OFF
     C                   EVAL      *IN32 = *OFF
     C                   EVAL      FLAG1 = ' '
     C                   EVAL      FLAG2 = ' '
     C                   EXFMT     SCRN1
     C                   IF        *IN03 = *ON
     C                   LEAVE
     C                   ENDIF
     C                   SELECT
     C                   WHEN      *IN02 = *ON
     C                   EXSR      CHGREC
     C                   WHEN      *IN04 = *ON
     C                   EXSR      DELETREC
     C                   WHEN      *IN05 = *ON
     C                   EXSR      ADDREC
     C                   ENDSL
     C                   EVAL      VENDOR2 = *BLANKS
     C                   EVAL      ITEMNO2 = *BLANKS
     C                   EVAL      REOREC = *ZEROS
     C                   ENDDO
     C                   EVAL      *INLR = *ON
     C                   RETURN
     C*--------------------------------------------------- PAGE 170 - 177 --
     C     CHGREC        BEGSR
     C     CATKEY        CHAIN     SPRSNF                             71
     C                   IF        *IN71 = *ON
     C                   EVAL      *IN30 = *ON
     C                   EVAL      FLAG1 = '*'
     C                   EVAL      FLAG2 = '*'
     C                   ELSE
     C                   EVAL      FLAG1 = ' '
     C                   EVAL      FLAG2 = ' '
     C                   EVAL      VENDOR = VENDOR2
     C                   EVAL      ITEMNO = ITEMNO2
     C                   EVAL      RECREQ = REOREC
     C                   EVAL      CODE = 'C'
     C                   UPDATE    STNEED
     C                   ENDIF
     C                   ENDSR
     C*---------------------------------------------------------------------
     C     ADDREC        BEGSR
     C     CATKEY        CHAIN     SPRSNF                             71
     C                   IF        *IN71 = *OFF
     C                   EVAL      *IN31 = *ON
     C                   EVAL      FLAG1 = '*'
     C                   EVAL      FLAG2 = '*'
     C                   ELSE
     C                   EVAL      FLAG1 = ' '
     C                   EVAL      FLAG2 = ' '
     C                   EXSR      INITIAL
     C                   EVAL      VENDOR = VENDOR2
     C                   EVAL      ITEMNO = ITEMNO2
     C                   EVAL      RECREQ = REOREC
     C                   EVAL      CODE = 'A'
     C                   WRITE     STNEED
     C                   ENDIF
     C                   ENDSR
     C*---------------------------------------------------------------------
     C     DELETREC      BEGSR
     C     CATKEY        CHAIN     SPRSNF                             71
     C                   IF        *IN71 = *ON
     C                   EVAL      *IN32 = *ON
     C                   EVAL      FLAG1 = '*'
     C                   EVAL      FLAG2 = '*'
     C                   ELSE
     C                   EVAL      FLAG1 = ' '
     C                   EVAL      FLAG2 = ' '
     C                   DELETE    STNEED
     C                   ENDIF
     C                   ENDSR
     C*---------------------------------------------------------------------
     C     INITIAL       BEGSR
     C                   EVAL      VENDOR = *BLANKS
     C                   EVAL      ITEMNO = *BLANKS
     C                   EVAL      RECREQ = *ZEROS
     C                   EVAL      CODE = *BLANKS
     C                   ENDSR