PROR - Products On Suggested Orders

Dec 21, 2024

APIs For This Group

• TOTPROR - Product totals by permanent/temporary code
• TRSPROR - Tracking Signal
• UAVPROR - Update average of product on suggested order
• UDVPROR - Update divisor of a product on suggested order
• UOCPROR - Update Order Cost of a product on suggested order
• UPDPROR - Update product quantity to order on suggestion
• L21PROR - Last 21 Days Demand By Week
• LIEPROR - Calculate Product Line Extension Values
• DEMPROR - Last Three Periods Demand
• DAYPROR - Days On Hand On Order
• LSSPROR - Lead Time & Safety Stock Approximate Units
• CALPROR - SOQ Simulator
• SPTPROR - This updates a products permanent and temporary split codes
• RSTPROR - Reset all products from a suggested order to Temp Code 1
• FBOPROR - Calculate the Forward Bought and Overstock Units
• ATHPROR - Calculate the Actually On Hand Inventory and Theoretical
• DAVPROR - Results from Weekly Distribution Headings
• DADPROR - Results from Weekly Distribution Daily
• UOTPROR - Return of Unit Overstock of a Product
• DVPPROR - Divide Products Into Temp Codes
• SETPROR - Set Product SOQ as adjusted
• FSPPROR - Number of Periods Available for Exponential Smoothing
• FSMPROR - Forecast Summary for Product
• FPRPROR - Forecast Data for Product per Period
• CRSPROR Check If Product Status Is For Certain Reason
• HASPROR Hub And Spoke Info For Product

TOTPROR - Product totals by permanent/temporary code

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    IDSPLITTP      'Split Code type '            1A
BOTH    IDINSTANCE     'Instance  '                  1 0
BOTH    COSTREG        'Regular Cost'               19A
BOTH    COSTNET        'Net Cost'                   19A
BOTH    WEIGHT         'Weight'                     19A
BOTH    VOLUME         'Volulme'                    19A
BOTH    PURINCR        'Purchase Increase'          19A
BOTH    OTHER          'Other'                      19A
BOTH    UNIT7          'Unit 7'                     19A
BOTH    UNIT8          'Unit 8'                     19A
BOTH    UNIT9          'Unit 9'                     19A  

TRSPROR - Tracking Signal

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    RVTRAKSIG      'Tracking Signal '            3 3
BOTH    RVTSDIREC      'Direction '                  1A  

UAVPROR - Update average of product on suggested order

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    FORCAST        'Demand forecast '            9 2
BOTH	OPCMBLOCN	   'Combined location'	         5A
BOTH	OPCMBSUPL	   'Combined Supplier'			10A 
BOTH	OPCMBSUB	   'Combined Sub'				10A

UDVPROR - Update divisor of a product on suggested order

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    COSTDIV        'Product Cost Divisor'        5 0
BOTH	OPCMBLOCN	   'Combined location'	         5A
BOTH	OPCMBSUPL	   'Combined Supplier'			10A 
BOTH	OPCMBSUB	   'Combined Sub'				10A

UOCPROR - Update Order Cost of a product on suggested order

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    COSTORD        'Product Cost Order'         11 4 
BOTH	OPCMBLOCN	   'Combined location'	         5A
BOTH	OPCMBSUPL	   'Combined Supplier'			10A 
BOTH	OPCMBSUB	   'Combined Sub'				10A

UPDPROR - Update product quantity to order on suggestion

BOTH    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    IDSOQSEQN      'Suggest order seq #'         5 0
BOTH    IDPROD         'Product ID'                 25A
BOTH    SOQACT         'Suggested Qty Actual'        7 0
BOTH    SOQOVER        'Override qty Flag'           1A
BOTH	OPCMBLOCN	   'Combined location'	         5A
BOTH	OPCMBSUPL	   'Combined Supplier'			10A 
BOTH	OPCMBSUB	   'Combined Sub'				10A
BOTH    DOLREXT        'Extended Dollars"            9 0

L21PROR - Last 21 Days Demand By Week

BOTH    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    IDSOQSEQN      'Suggest order seq #'         5 0
BOTH    IDPROD         'Product ID'                 25A
BOTH	OPCMBLOCN	   'Combined location'	         5A
BOTH	OPCMBSUPL	   'Combined Supplier'			10A 
BOTH	OPCMBSUB	   'Combined Sub'				10A
BOTH    TYW3DEM        'This year Week 3 Demand'     7 0
BOTH    TYW2DEM        'This year Week 2 Demand'     7 0
BOTH    TYW1DEM        'This year Week 1 Demand'     7 0
BOTH    TYAVG          'This year Average'           9 2
BOTH    TYW2PCT        'This Year Wk 2 % vs. Wk 3'   6A
BOTH    TYW1PCT        'This Year Wk 1 % vs. Wk 3'   6A
BOTH    LYW3DEM        'Last year Week 3 Demand'     7 0
BOTH    LYW2DEM        'Last year Week 2 Demand'     7 0
BOTH    LYW1DEM        'Last year Week 1 Demand'     7 0
BOTH    LYAVG          'Last year Average'           9 2
BOTH    LYW2PCT        'Last Year Wk 2 % vs. Wk 3'   6A
BOTH    LYW1PCT        'Last Year Wk 1 % vs, Wk 3'   6A

LIEPROR - Calculate Product Line Extension Values

BOTH    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    IDSOQSEQN      'Suggest order seq #'         5 0
BOTH    IDPROD         'Product ID'                 25A
BOTH	OPCMBLOCN	   'Combined location'	         5A
BOTH	OPCMBSUPL	   'Combined Supplier'			10A 
BOTH	OPCMBSUB	   'Combined Sub'				10A
BOTH    RVEXTREG       'Extended Regular Cost  '    13 4
BOTH    RVEXTORD       'Extended Order Cost    '    13 4
BOTH    RVEXTWGT       'Extended Weight  '          13 4
BOTH    RVEXTVOL       'Extended Volume '           13 4
BOTH    RVEXTPUI       'Extended Purchase Increm.'  13 4
BOTH    RVEXTOTH       'Extended Other '            13 4
BOTH    RVEXTUN7       'Extended Unit 7'            13 4
BOTH    RVEXTUN8       'Extended Unit 8'            13 4
BOTH    RVEXTUN9       'Extended Unit 9'            13 4

DEMPROR - Last Three Periods Demand

BOTH    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    IDSOQSEQN      'Suggest order seq #'         5 0
BOTH    IDPROD         'Product ID'                 25A
BOTH	OPCMBLOCN	   'Combined location'	         5A
BOTH	OPCMBSUPL	   'Combined Supplier'			10A 
BOTH	OPCMBSUB	   'Combined Sub'				10A
BOTH    PER3DEM        'Period 3 Demand'             7 0
BOTH    PER2DEM        'Period 2 Demand'             7 0
BOTH    PER1DEM        'Period 1 Demand'             7 0
BOTH    PER3MNT        'Month 3 Identifier'          5A
BOTH    PER2MNT        'Month 2 Identifier'          5A
BOTH    PER1MNT        'Month 1 Identifier'          5A
BOTH    RVSEASON       'Seasonal Flag'               1A
BOTH    RVPD1SEFC      'Seasonal Factor 1'           5 2
BOTH    RVPD2SEFC      'Seasonal Factor 2'           5 2
BOTH    RVPD3SEFC      'Seasonal Factor 3'           5 2
BOTH    RVPTDSEFC      'Seasonal Factor PTD'         5 2

DAYPROR - Days On Hand On Order

BOTH    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    IDSOQSEQN      'Suggest order seq #'         5 0
BOTH    IDPROD         'Product ID'                 25A
BOTH	OPCMBLOCN	   'Combined location'	         5A
BOTH	OPCMBSUPL	   'Combined Supplier'			10A 
BOTH	OPCMBSUB	   'Combined Sub'				10A
BOTH    RVDAYONH       'Days On Hand'                7 1
BOTH    RVDAYOSO       'Days On Order for this Ord'  7 1
BOTH    RVDAYONO       'Days On Order'               7 1
BOTH    RVDAYBOSM      'Back out Days '              7 1
BOTH    RVADDDAYO      'Order Add Days'              3 0
BOTH    RVADDDYAP      'Product ADD Days'            3 0
BOTH    RVAUTOADD      'Auto Add Days'               3 0
BOTH    RVFORBUYX      'For Buy Extra Days'          3 0
BOTH    RVENTRDAY      'Entire Days'                 3 0
BOTH    RVALLOCDY      'Allocation Days'             3 0
BOTH    RVOTHDAYS      'Other Days'                  3 0

LSSPROR - Lead Time & Safety Stock Approximate Units

BOTH    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    IDSOQSEQN      'Suggest order seq #'         5 0
BOTH    IDPROD         'Product ID'                 25A
BOTH	OPCMBLOCN	   'Combined location'	         5A
BOTH	OPCMBSUPL	   'Combined Supplier'			10A 
BOTH	OPCMBSUB	   'Combined Sub'				10A
BOTH    UNITSLTM       'Units Lead Time'             9 2
BOTH    UNITSSST       'Units Safety Stock'          9 2
BOTH    UNITORC        'Units Order Cycle'           9 2
BOTH    UNITOTH        'Units Other Days'            9 2
BOTH    RVUPD          'Units Per Day'               9 2

CALPROR - SOQ Simulator

BOTH    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    IDSOQSEQN      'Suggest order seq #'         5 0
BOTH    IDPROD         'Product ID'                 25A
BOTH    SBQTYOHND      'On Hand Quantity'            7 0
BOTH    SBQTYOORD      'On Order Quantity'           7 0
BOTH    SBQTYBACK      'Back Out Quantity'           7 0
BOTH    SBBUYMULT      'Buy Multiple'                7 0
BOTH    SBMINQTY       'Minimum Quantity'            7 0
BOTH    SBCONVPAK      'Convenience Pack'            7 0
BOTH    SBCONVPKP      'Convenience Pack Threshold'  3 1
BOTH    SBREPCARY      'Carry Rate'                  3 1
BOTH    SBLINECST      'Line Cost'                   5 2
BOTH    SBFORCAST      'Forecast'                    9 2
BOTH    SBFORDEVP      'Deviation %'                 3 1
BOTH    SBSEASONL      'Seasonal Profile'           10A
BOTH    SBLEADTM       'Lead Time'                   3 0
BOTH    SBLEADTMV      'Lead Time Variance'          3 1
BOTH    SBORCYCLE      'Order Cycle    '             3 0
BOTH    SBOTHDAYS      'Other Days'                  3 0
BOTH    SBSERVICE      'Service Level target'        3 1
BOTH    SBLONGTRM      'Long Term Trd'               3 2
BOTH	OPCMBLOCN	   'Combined location'	         5A
BOTH	OPCMBSUPL	   'Combined Supplier'			10A 
BOTH	OPCMBSUB	   'Combined Sub'				10A
BOTH    RVQTYBALN      'Quantity Balance'            7 0
BOTH    RVOPOINTU      'Order Point Units'           7 0
BOTH    RVORUPTOU      'Order up to Units'           7 0
BOTH    RVSOQACT       'Suggested Order Quantity'    7 0
BOTH    RVOPOINTD      'Order Point Days'            3 0
BOTH    RVORUPTOD      'Order up to Days'            3 0
BOTH    RVSSTFDAY      'Safety Stock Days'           3 0
BOTH    RVCOSTREG      'Regular Cost'               11 4
BOTH    RVRGMNDLC      'Regular Cost - Deal Cost'   11 4
BOTH    RVWEIGHT       'Weight'                     11 4
BOTH    RVVOLUME       'Volume '                    11 4
BOTH    RVCOUNTER      'Purchase Increment'         11 4
BOTH    RVDISOTHR      'Other '                     11 4
BOTH    RVDISUNT7      'Unit 7 '                    11 4
BOTH    RVDISUNT8      'Unit 8 '                    11 4
BOTH    RVDISUNT9      'Unit 9 '                    11 4
BOTH    RVOCSTREG      'Total Regular Cost          13 4
BOTH    RVORGMDLC      'Tot Regular Cost-Deal Cost' 13 4
BOTH    RVOWEIGHT      'Total Weight'               13 4
BOTH    RVOVOLUME      'Total Volume '              13 4
BOTH    RVOCOUNTER     'Total Purchase Increment'   13 4
BOTH    RVODISOTHR     'Total Other '               13 4
BOTH    RVODISUNT7     'Total Unit 7 '              13 4
BOTH    RVODISUNT8     'Total Unit 8 '              13 4
BOTH    RVODISUNT9     'Total Unit 9 '              13 4 

SPTPROR - This updates a products permanent and temporary split codes

 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 Buyer'                       5A
 BOTH     IDLOCN        'ID Location'                    5A
 BOTH     IDSUPL        'ID Supplier'                   10A
 BOTH     IDSUPLSUB     'ID Supplier sub code'          10A
 BOTH     IDPROD        'ID Product'                    25A
 BOTH     SBSPLTPRM     'Split code permanent'           1 0
 BOTH     SBSPLTTMP     'Split code temporary'           1 0
 BOTH	  OPCMBLOCN	   'Combined location'	             5A
 BOTH	  OPCMBSUPL	   'Combined Supplier'			    10A 
 BOTH	  OPCMBSUB	   'Combined Sub'				    10A

RSTPROR - Reset all products from a suggested order to Temp Code 1

 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

FBOPROR - 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	 OPCMBLOCN	    'Combined location'	          5A
 BOTH	 OPCMBSUPL	    'Combined Supplier'		 	 10A 
 BOTH	 OPCMBSUB	    'Combined Sub'				 10A
 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
 BOTH    RVOVSTHRQ      'Overstock Threshold'         7 0  

ATHPROR - Calculate the Actually On Hand Inventory and Theoretical

 BOTH    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	 OPCMBLOCN	    'Combined location'	          5A
 BOTH	 OPCMBSUPL	    'Combined Supplier'			 10A 
 BOTH	 OPCMBSUB	    'Combined Sub'				 10A
 BOTH    RVACTLINV      'Actual Inv. Investment'     11 0
 BOTH    RVTHEOINV      'Theoretical Inv. Invest.'   11 0 
 BOTH    RVACTTHEO      'Actual/Theoretical %'        5 2

DAVPROR - Results from Weekly Distribution Headings

 BOTH    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    IDSOQSEQN      'Suggest order seq #'         5 0
 BOTH    IDPROD         'Product ID'                 25A
 BOTH	 OPCMBLOCN	    'Combined location'	          5A
 BOTH	 OPCMBSUPL	    'Combined Supplier'		 	 10A 
 BOTH	 OPCMBSUB	    'Combined Sub'			 	 10A
 BOTH    RVFORCINT      'Forecast Interval'           3 0
 BOTH    RVFORCAST      'Product Average'             9 2
 BOTH    RVORCYCLE      'Order Cycle '                3 0
 BOTH    RVLEADTM       'Product Lead Time'           3 0
 BOTH    RVWEEKLY       'Weekly Average '             9 2
 BOTH    RVQTYBALORD    'On Order Qty Balance'        7 0
 BOTH    RVQTYBALONH    'On Hand Qty Balance'         7 0
 BOTH    RVQTYBAKOUT    'Quantity Back Out'           7 0
 BOTH    RVSOQACTQTY    'Suggested Order Quantity'    7 0     
 BOTH    RVFINALOHND    'Final On Hand Balance'       7 0
 BOTH    RVORUPTOD      'Order Up to Days'            3 0
 BOTH    RVDAYSOHN      'O/H Number of Days covered'  4 1
 BOTH    RVDAYSORD      'Number of Days covered'      4 1 

DADPROR - Results from Weekly Distribution Daily

 BOTH    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    IDSOQSEQN      'Suggest order seq #'         5 0
 BOTH    IDPROD         'Product ID'                 25A
 BOTH    SBREQROWS      'Requested Row '              2 0
 BOTH	 OPCMBLOCN	    'Combined location'	          5A
 BOTH	 OPCMBSUPL	    'Combined Supplier'		 	 10A 
 BOTH	 OPCMBSUB	    'Combined Sub'			 	 10A
 BOTH    RVPERIOD       'Period  '                    3 0
 BOTH    RVFACTOR       'Season Factor'               5 2
 BOTH    RVUSAGEP       'Daily Usage %'               5 2
 BOTH    RVUSAGED       'Day Usage  '                10 4
 BOTH    RVSAFETYP      'Safety Stock %'              5 2
 BOTH    RVUSAGES       'Day Usage'                  10 4
 BOTH    RVDAYTOT       'Day Total  '                10 4
 BOTH    RVORDUPTO      'Order Up To '               11 4
 BOTH    RVROWDAY       'Week Day - Mon 1 SUN 7'      1 0 

UOTPROR - Return of Unit Overstock of a Product

 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	 OPCMBLOCN	    'Combined location'	          5A
 BOTH	 OPCMBSUPL	    'Combined Supplier'			 10A  
 BOTH	 OPCMBSUB	    'Combined Sub'				 10A
 BOTH    RVQTYOVST      'Overstock Threshold Qty'     7 0

DVPPROR - Divide Products Into Temp Codes

 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 Buyer'                       5A
 BOTH     IDLOCN        'ID Location'                    5A
 BOTH     IDSUPL        'ID Supplier'                   10A
 BOTH     IDSUPLSUB     'ID Supplier sub code'          10A
 BOTH     IDSOQSEQN     'ID Sequence Number'             5 0
 BOTH     SBDIVTYPE     'Divide  type'                   1 0
 BOTH     SBDIVVAL      'Divide value'                   7 0

SETPROR - Set Product SOQ as adjusted

 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    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	 OPCMBLOCN	    'Combined location'	          5A
 BOTH	 OPCMBSUPL	    'Combined Supplier'	         10A 
 BOTH	 OPCMBSUB	    'Combined Sub'		   	     10A

FSPPROR - Number of Periods Available for Exponential Smoothing

  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    IDLOCN         'ID location'                 5A
  BOTH    IDSUPL         'ID supplier'                10A
  BOTH    IDSUPLSUB      'ID sub supplier'            10A
  BOTH    IDPROD         'Product ID'                 25A
  BOTH    IDHISTORY      'History Type'               1 0
  BOTH    OPCMBLOCN      'Combined location'          5A
  BOTH    OPCMBSUPL      'Combined Supplier'         10A 
  BOTH    OPCMBSUB       'Combined Sub'              10A
  BOTH    RVPERIODS      'Number of Periods'          3 0

FSMPROR - Forecast Summary for Product

 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    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	 IDHISTORY		'History Type'				  1 0
 BOTH	 IDPERIODS		'Number of Periods'           3 0
 BOTH	 OPCMBLOCN	    'Combined location'	          5A
 BOTH	 OPCMBSUPL	    'Combined Supplier'	         10A 
 BOTH	 OPCMBSUB	    'Combined Sub'		   	     10A
 BOTH    RVTOTDMND      'Total Demand'                9 2
 BOTH	 RVFRMYEAR		'From History Year' 		  4 0
 BOTH	 RVFRMPERD		'From History Period'		  2 0
 BOTH    RVSTARTAVG     'Starting Average'            9 2
 BOTH    RVAVLPDS       'Total Available Periods'     3 0

FPRPROR - Forecast Data for Product per Period

 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    IDLOCN         'ID location'                  5A
 BOTH    IDSUPL         'ID supplier'                 10A
 BOTH    IDSUPLSUB      'ID sub supplier'             10A
 BOTH    IDPROD         'ID product'                  25A
 BOTH    IDSOQSEQN      'ID sugg order sequence #'     5 0
 BOTH    IDPRDS         'Number of periods to include' 3 0
 BOTH    IDHISTORY      'History Type'                 1 0
 BOTH	 OPCMBLOCN      'Combined location'            5A
 BOTH	 OPCMBSUPL      'Combined Supplier'           10A 
 BOTH	 OPCMBSUB       'Combined Sub'                10A
 BOTH    RVFCSTDTA      'Forecast data'                DS
           POINT1       'Period number'                2 0
           ACTDEM       'Actual demand'                7 0
           HIGHLO       'High or low'                  3A
           SEASONAL     'Is seasonal'                  1A
           SEASONFC     'Seasonal factor'              5 2
           CALCAVG      'Calculated average'           9 2
           DEVP         'Deviation percentage'         3 1
           TRAKSIG      'Tracking signal'              3 3
           TSDI         'Tracking signal direction'    1A
           ERRTYP       'Error type'                   1A
           SERR         'Smoothed Error'               3 3
           HISTYR       'History Year'                 5 0
           HISTPD       'History Period'               3 0
           HILIMIT      'High Limit for PE Checks'     9 2
           LOLIMIT      'Low Limit for PE Checks'      9 2
           SEZAVG       'Seasonal average'             9 2

CRSPROR Check If Product Status Is For Certain Reason

 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    IDLOCN         'ID location'                  5A
 BOTH    IDSUPL         'ID supplier'                 10A
 BOTH    IDSUPLSUB      'ID sub supplier'             10A
 BOTH    IDPROD         'ID product'                  25A
 BOTH    IDSTATAFT      'Status After'                 1A
 BOTH    IDPROGRAM      'Program Made Change'         10A
 BOTH    RVVALUE        'Return State, 1=T; 0=F'       1A

HASPROR Hub And Spoke Info For Product

 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    IDLOCN         'ID location'                  5A
 BOTH    IDSUPL         'ID supplier'                 10A
 BOTH    IDSUPLSUB      'ID sub supplier'             10A
 BOTH    IDPROD         'ID product'                  25A
 BOTH    RVTYPE         'HAS Type: 1=H,2=S,3=B'        1A

---