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 'Buy group ID' 5A
BOTH IDLOCN 'Location ID' 5A
BOTH IDSUPL 'Supplier ID' 10A
BOTH IDSUPLSUB 'Sub supplier ID' 10A
BOTH IDSOQSEQN 'Suggest order seq #' 5 0
BOTH IDPROD 'Product ID' 25A
BOTH SBFORCAST 'Product Average' 9 2
BOTH SBFORCINT 'Product Interval' 3 0
BOTH SBFORDEVP 'Product Deviation' 3 1
BOTH SBBUYMULT 'Buy Multiple' 7 0
BOTH SBMINQTY 'Minimum Quantity' 7 0
BOTH SBSERVICE 'Service Level' 3 1
BOTH SBREPCARY 'Carry Rate' 3 1
BOTH SBLINECST 'Line Cost' 5 2
BOTH SBCOSTEAC 'Cost Each' 13 6
BOTH SBLEADTM 'Lead Time' 3 0
BOTH SBLEADTMV 'Lead Time Variance' 3 1
BOTH SBORCYCLE 'Order Cycle ' 3 0
BOTH RVCURSAFS 'Current Safety Stock' 6 3
BOTH RVNEWSAFS 'New Safety Stock' 6 3
BOTH RVDOLDIFF 'Inventory' 7 0
BOTH RVSIGNVAL 'Sign Value' 1A
BOTH RVANNUALU 'Annual Units' 9 0
BOTH RVSPLEADT 'Supplier Lead Time' 3 0
