This will select the current discount bracket level for the supplier.

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    IDBUYR         'ID buyer'                    5A
BOTH    IDSUPL         'ID Supplier'                10A
BOTH    IDSUPLSUB      'ID sub supplier ID'         10A
BOTH    IDBKTLVL       'Discount bracket level'     1  0