Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________           SPCOSD 
        *************** Beginning of data ************************************* 
     A*%%TS  SD  19990409  180952  GOLFP       REL-V4R2M0  5769-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A          R SCRN1
     A*%%TS  SD  19990409  164539  GOLFP       REL-V4R2M0  5769-PW1
     A                                      CF03(03 'F3 END')
     A                                  6 31'Order Shipment Data'
     A                                      COLOR(WHT)
     A                                  8 15'Customer Number........ '
     A                                      COLOR(WHT)
     A                                 11 15'Tota shipping weight... '
     A                                      COLOR(WHT)
     A                                 18 15'F3 to END'
     A                                      COLOR(BLU)
     A            CONAME    R        O  3 21REFFLD(HEDREC/CONAME GOLFP/SPRHE-
     A                                      D)
     A            SHIPDT2         L  B 10 40
     A            SHIPWT2        4S 0B 11 40
     A                                 18 25' '
     A            CUSTNO2        4A  B  8 40
     A  47                                  ERRMSG('INVALID CUSTOMER NUMBER - P-
     A                                      RESS CONTROL TO CONTINUE')
     A            ORDNO2         4A  B  9 40
     A  48                                  ERRMSG('INVALID ORDER NUMBER - PRES-
     A                                      S CONTROL TO CONTINUE')
     A                                  9 15'Order Number...........'
     A                                      COLOR(WHT)
     A                                 10 15'Ship Date..............'
     A                                      COLOR(WHT)
     A                                 18 28' '
     A          R SCRN2
     A*%%TS  SD  19990409  174929  GOLFP       REL-V4R2M0  5769-PW1
     A                                      OVERLAY
     A                                      PRINT
     A                                 21 31'Enter to accept data'
     A                                 19 30'Roll up for more items'
     A                                 20 29'No more items to display'
     A          R SFL1                      SFL
     A*%%TS  SD  19990409  180952  GOLFP       REL-V4R2M0  5769-PW1
     A            ITNUM          5A  O 11 13
     A            DSCR          15A  O 11 24
     A            QTYOR          4Y 0O 11 47EDTCDE(4)
     A            QTYSH          4S 0B 11 61
     A          R CTL1                      SFLCTL(SFL1)
     A*%%TS  SD  19990409  180952  GOLFP       REL-V4R2M0  5769-PW1
     A                                      OVERLAY
     A                                      PRINT
     A N50                                  SFLDSP
     A N50                                  SFLDSPCTL
     A  50                                  SFLINZ
     A                                      SFLSIZ(0030)
     A                                      SFLPAG(0010)
     A  60                                  SFLMSG('Quantity shipped is greater-
     A                                       than quantity ordered')
     A                                 10 66' '
     A                                 10 69' '
     A                                  1 24'Browning Hardware & Sporting goods'
     A                                  3 31'Order Shipment Data'
     A                                 10  6' '
     A                                  5 11'Customer Number'
     A                                  7 11'Ship Date(MMDDYYYY)'
     A                                  5 45'Order Number'
     A                                  7 45'Total Shipping Weight'
     A            CUSTNO2        4A  O  5 31
     A            SHPDTE2        8A  O  7 31
     A            ORDNO2         4A  O  5 68
     A            SHIPWT2        4S 0B  7 68
     A                                  9 13'Item No.    Description        Qty-
     A                                       Ordered   Qty Shipped'