Calculate the Actually On Hand Inventory and Theoretical. 

   K3SOBJ         'K3S Object Library'         10A
BOTH    COMP           'Company'                     1A
BOTH    COMPCOD        'Company Code                3A
BOTH    USER           'User calling the program'   10
BOTH    ERRORS         'Error indicator'             1A
BOTH    ERRMSG         'Error message'             100A
BOTH    ERRFIELD       'Field in error'             20A
BOTH    IDBUYR         'Buy group ID'                5A
BOTH    IDLOCN         'Location ID'                 5A
BOTH    IDSUPL         'Supplier ID'                10A
BOTH    IDSUPLSUB      'Sub supplier ID'            10A 
BOTH    IDPROD         'Product ID'                 25A
BOTH    RVACTLINV      'Actual Inv. Investment'     11 0
BOTH    RVTHEOINV      'Theoretical Inv. Invest.'   11 0
BOTH    RVACTTHEO      'Actual/Theoretical %'        5 2