This updates the Promotional Qty, Beg-End Dates. "0" Qty clears dates. 

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     SBPROMQTY    'Promotional Qty'              7 0
BOTH     SBPROMBEG    'Beginning Promotional Date'  10A
BOTH     SBPROMEND    'Ending Promotional Date'     10A