This updates a products permanent and temporary split codes.

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     IDLOCN        'ID Location'                    5A
BOTH     IDSUPL        'ID Supplier'                   10A
BOTH     IDSUPLSUB     'ID Supplier sub code'          10A
BOTH     IDPROD        'ID Product'                    25A
BOTH     SBSPLTPRM     'Split code permanent'           1 0
BOTH     SBSPLTTMP     'Split code temporary'           1 0