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

     H
     F*---------------------------------------------------------------------
     F*- THIS IS SENIOR PROJECTS MOD-4, PRINT PURCHASE ORDERS            ---
     F*-                                                                 ---
     F*-                  AUTHOR: BROWNING, 05/05/99    (C)              ---
     F*-                                                                 ---
     F*-                 PURPOSE:  To print a purchase order, to be sent ---
     F*-                           to each vendor. One purchase order is ---
     F*-                           printed for each vendor. A copy of the---
     F*-                           purchase order is recorded in the     ---
     F*-                           purchase order file for future        ---
     F*-                           reference.                            ---
     F*-                                                                 ---
     F*-              INDICATORS:  39-- CONDITIONAL                      ---
     F*-                           40-- SCRN2 ERROR                      ---
     F*-                           69-- Page Overflow                    ---
     F*-                           70-- CHAIN SPRINV                     ---
     F*-                           71-- CHAIN SPRVMF                     ---
     F*-                           90-- READ SPRSNF                      ---
     F*-                           91-- READ SPRHED                      ---
     F*-                                                                 ---
     F*-        ASSOCIATED FILES:  SPRSNF-- STOCK NEEDS FILE    (STNEED) ---
     F*-                           SPRINV-- INVENTORY FILE      (INVMAST)---
     F*-                           SPRVMF-- VENDOR MASTER FILE  (VMFREC) ---
     f*-                           SPRPOF-- PURCHASE ORDERS FILE(PURORD) --- 
     F*-                           SPRP02-- PRINTER FILE                 ---
     F*-                           SPRSC1-- SCREEN 1 & 2                 ---
     F*-                                                                 ---
     F*ILENAME++IPEASFRLEN+LKLEN+AIDEVICE+.KEYWORDS+++++++++++++++++++++++++
     FSPRSNF    UF   E           K DISK
     FSPRVMF    IF   E           K DISK
     FSPRINV    UF   E           K DISK
     FSPRPOF    UF A E           K DISK
     FSPRHED    IF   E             DISK
     FSPRSC1    CF   E             WORKSTN
     FSPRP02    O    E             PRINTER OFLIND(*IN69)
     F*
     D*AME+++++++++++ETDSFROM+++TO/L+++IDC.KEYWORDS+++++++++++++++++++++++++
     D HOLD            S              4A
     D*
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C                   EXSR      PREP
     C                   DOW       *IN90 = *OFF
     C                   EXSR      ENDOF
     C                   EXSR      CHANGE
     C                   READ      SPRSNF                                 90
     C                   EXSR      BREAK
     C                   ENDDO
     C                   EVAL      *INLR = *ON
     C                   RETURN
     C*---------------------------------------------------------------------
     C     PREP          BEGSR
     C                   DOW       *IN39 = *OFF
     C                   EXFMT     SCRN2
     C                   IF        PNUM <> *ZEROS AND DTE <> *BLANKS
     C                   EVAL      *IN40 = *OFF
     C                   READ      SPRHED                                 91
     C                   READ      SPRSNF                                 90
     C     VENDOR        CHAIN     SPRVMF                             71
     C     ITEMNO        CHAIN     SPRINV                             70
     C                   EVAL      HOLD = VENDOR
     C                   WRITE     TITLE
     C                   WRITE     HEADER
     C                   EVAL      *IN39 = *ON
     C                   ELSE
     C                   EVAL      *IN40 = *ON
     C                   EVAL      *IN39 = *OFF
     C                   ENDIF
     C                   ENDDO
     C                   ENDSR
     C*---------------------------------------------------------------------
     C     ENDOF         BEGSR
     C                   IF        *IN69 = *ON
     C                   READ      SPRHED                                 91
     C                   WRITE     TITLE
     C                   WRITE     HEADER
     C                   EVAL      *IN69 = *OFF
     C                   ENDIF
     C                   ENDSR
     C*---------------------------------------------------------------------
     C     BREAK         BEGSR
     C                   IF        HOLD <> VENDOR
     C     VENDOR        CHAIN     SPRVMF                             71
     C                   EVAL      PNUM = PNUM +1
     C                   WRITE     TITLE
     C                   WRITE     HEADER
     C                   ENDIF
     C                   ENDSR
     C*---------------------------------------------------------------------
     C     CHANGE        BEGSR
     C     ITEMNO        CHAIN     SPRINV                             70
     C                   EVAL      ORDERD = RECREQ
     C                   UPDATE    INVMAST
     C                   WRITE     PURORD
     C                   WRITE     PURDET
     C                   EVAL      HOLD = VENDOR
     C                   DELETE    STNEED
     C                   IF        *IN69 = *ON
     C                   EXSR      ENDOF
     C                   ENDIF
     C                   ENDSR