Copy History of a Product.    

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            IDPROD            'Product ID           '         25A
BOTH            SBLOCN            'Location ID'                    5A
BOTH            SBSUPL            'Supplier ID          '         10A
BOTH            SBSUPLSUB         'Sub supplier ID      '         10A
BOTH            SBSOQSEQN         'Sequence Number'                5 0
BOTH            SBPROD            'Product ID           '         25A
BOTH            SBUSRSTAT         'User Status'                    1A
BOTH            SBFREZEND         'Freeze Until'                  10A
BOTH            SBCLRAVG          'Clear Average 0/1'              1A
BOTH            SBMULTPLY         'Multiplier'                     9 4
BOTH            SBCPYMODE         'Add(A); Replace(R)'             1A