Total Product Quantities for all locations.

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            IDPROD            'Selected Product ID'           25A
BOTH            RVLASTPER         'Last Period closed'             3 0
BOTH            RVQTYOHND         'Quantity On Hand'               7 0
BOTH            RVQTYOORD         'Quantity On Order'              7 0
BOTH            RVQTYBSUM         'Back Out Quantities'            7 0
BOTH            RVPRD1DEM         'Period 1 Demand'                7 0
BOTH            RVACCDEM          'Period to Date Demand'          7 0
BOTH            RVFORCAST         'Forecast'                      11 2
BOTH            RVOVERUNT         'Excess'                         7 0