Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________           SPRSC1 
        *************** Beginning of data ************************************* 

     A*%%TS  SD  19990510  090921  GOLFP       REL-V4R2M0  5769-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A          R SCRN1
     A*%%TS  SD  19990507  003431  GOLFP       REL-V4R2M0  5769-PW1
     A                                      CF02(02 '02 change reorder amt')
     A                                      CA03(03 '03 end program')
     A                                      CF04(04 '04 delete records')
     A                                      CF05(05 '05 add records')
     A                                  4 24'Browning Hardware & Sporting Goods'
     A                                      COLOR(RED)
     A                                  6 29'Update Stock Needs File'
     A                                      COLOR(WHT)
     A                                  9 29'Enter Vendor Number......'
     A                                      COLOR(WHT)
     A                                 10 29'Enter Item Number........'
     A                                      COLOR(WHT)
     A                                 11 29'Enter Reorder Quantity...'
     A                                      COLOR(WHT)
     A                                 13 11'F2 to CHANGE reorder amount'
     A                                      COLOR(BLU)
     A                                 14 11'F3 to END program'
     A                                      COLOR(BLU)
     A                                 15 11'F4 to DELETE record'
     A                                      COLOR(BLU)
     A                                 16 11'F5 to ADD record'
     A                                      COLOR(BLU)
     A            FLAG1          1A  O  9 66COLOR(RED)
     A            FLAG2          1A  O 10 66COLOR(RED)
     A            REOREC         6S 0B 11 56
     A            VENDOR2        4   B  9 56
     A            ITEMNO2        5   B 10 56
     A          R SCRN2
     A*%%TS  SD  19990510  090921  GOLFP       REL-V4R2M0  5769-PW1
     A                                  4 30'Purchase Orders Entry'
     A                                      COLOR(BLU)
     A                                  6  6'Use this screen to enter the date -
     A                                      and purchase order number that is t-
     A                                      o'
     A                                      COLOR(WHT)
     A                                  7  6'be used when printing the purchase-
     A                                       orders sent to the vendors.'
     A                                      COLOR(WHT)
     A                                  9  6'Note: A valid system date is forma-
     A                                      tted as -  MM-DD-YY'
     A                                      COLOR(WHT)
     A                                 10  6'    : A valid purchase order numbe-
     A                                      r contains 5 digits with no special'
     A                                      COLOR(WHT)
     A                                 14 25'Date................... '
     A                                      COLOR(WHT)
     A                                 15 25'Purchas order Number... '
     A                                      COLOR(WHT)
     A            PNUM           5S 0B 15 50CHECK(MF)
     A                                      COLOR(GRN)
     A  40                                  ERRMSG('Field must contain data.')
     A            DTE            8A  B 14 50
     A  40                                  ERRMSG('Field must contain data.')
     A                                      CHECK(MF)
     A                                      DSPATR(PC)
     A                                      COLOR(GRN)
     A                                 11 12'charcters'
     A                                      COLOR(WHT)