Add a Non-Stock Product to the Order

BOTH            K3SOBJ            'K3S Object library'            10A
BOTH            COMP              'Company'                        1A
BOTH            COMPCOD           'Company code'                   3A
BOTH            USER              'User calling the program'      10A
BOTH            ERRORS            'Error indicator'                1A
BOTH            ERRMSG            'Error message'                100A
BOTH            ERRFIELD          'Field in error'                20A
BOTH            IDBUYR            'Buyer ID'                       5A 
BOTH            IDLOCN            'Location ID'                    5A
BOTH            IDSUPL            'Supplier ID          '         10A
BOTH            IDSUPLSUB         'Sub supplier ID      '         10A
BOTH            IDSOQSEQN         'Sequence Number'                5 0
BOTH            SBPROD            'Product Number'                25A
BOTH            SBDESC1           'Description 1'                 40A
BOTH            SBDESC2           'Description 2'                 40A
BOTH            SBPRODSEQ         ' Product Sequence'             40A
BOTH            SBMANUF           'Manufacturer'                  25A
BOTH            SBNDCUPC          'NDC/UPC'                       25A
BOTH            SBPACKSZ          'Pack Size'                     10A
BOTH            SBUOM             'Unit of Measure'                3A
BOTH            SBREGCOST         'Regular Cost'                  11 4
BOTH            SBCSTDIV          'Cost Divisor'                   5 0
BOTH            SBTIHI            'Ti/Hi'                         10A
BOTH            SBWGHT            'Weight'                         7 3
BOTH            SBWGTDIV          'Weight Divisor'                 5 0
BOTH            SBWHSLOC          'Warehouse Location'            10A
BOTH            SBVOLUM           'Volume'                         7 3 
BOTH            SBVOLDIV          'Volume Divisor'                 5 0
BOTH            SBGRP1            'Group 1'                       10A
BOTH            SBGRP2            'Group 2'                       10A
BOTH            SBGRP3            'Group 3'                       10A
BOTH            SBGRP4            'Group 4'                       10A
BOTH            SBGRP5            'Group 5'                       10A
BOTH            SBPURINC          'Purchase Increment'             5 0
BOTH            SBCNVPACK         'Convenience Pack'               7 0
BOTH            SBREBFCT          'Rebate by Factor'               3 1
BOTH            SBFORTYP          'Forecast Type'                  1 0
BOTH            SBSTAT            'Status '                        1A
BOTH            SBMINQTY          'Minimum Quantity'               7 0
BOTH            SBBUYMULT         'Buy Multiple'                   7 0
BOTH            SBCONTR           'Contract Exists'                1 0
BOTH            SBMFOUT           'Manufacture out of Stock'       1 0
BOTH            SBALTSRC          'Alternate Source Flag'          1 0