Obsolete Product Report

   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         'Buy group ID'                5A
BOTH    IDREGN         'Region ID'                   5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub supplier ID'            10A 
BOTH    SBSUPLGP1      'Supplier Group 1'           10A
BOTH    SBSUPLGP2      'Supplier Group 2'           10A
BOTH    SBSUPLGP3      'Supplier Group 3'           10A
BOTH    SBSUPLGP4      'Supplier Group 4'           10A
BOTH    SBSUPLGP5      'Supplier Group 5'           10A
BOTH    SBPRODGP1      'Product Group 1'            10A
BOTH    SBPRODGP2      'Product Group 2'            10A 
BOTH    SBPRODGP3      'Product Group 3'            10A
BOTH    SBPRODGP4      'Product Group 4'            10A                                                              
BOTH    SBPRODGP5      'Product Group 5'            10A
BOTH    SBEMAIL        'Target Email '              50A 
BOTH    SBPER12        'Periodicity 12'              2 0
BOTH    SBPER13        'Periodicity 13'              2 0
BOTH    SBPER52        'Periodicity 52'              2 0
BOTH    SBSHOWOH       'Show O/H Qty on Report?'     1 0
BOTH    SBRPTSEQ       'Type of Report'              1A