This updates the status within the product attributes

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       'ID Location'                  5A
BOTH     IDSUPL       'ID Supplier'                 10A
BOTH     IDSUPLSUB    'ID Supplier sub code'        10A
BOTH     IDPROD       'ID Product'                  25A
BOTH     SBUSRSTAT    'User status'                  1A
BOTH     SBFORFREZ    'Freeze forecast until date'  10A
BOTH     SBPROBDAT    'Probation date'              10A