Calculate the Forward Bought and Overstock Units

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         'ID buy group'                5A
BOTH    IDLOCN         'ID location'                 5A
BOTH    IDSUPL         'ID supplier'                10A
BOTH    IDSUPLSUB      'ID sub supplier'            10A
BOTH    IDSOQSEQN      'ID sugg order sequence #'    5 0
BOTH    IDPROD         'Product ID'                 25A
BOTH    RVFWDBUYQ      'Forward Buy Quantity'        7 0
BOTH    RVFWDBUYD      'Forward Buy Dollars'        11 2
BOTH    RVOVRSTKQ      'OverStock Quantity'          7 0
BOTH    RVOVRSTKD      'OverStock Dollars'          11 2