PROD - Product Settings

APIs For This Group

PERPROD - Last Completed Period For 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 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     RVFORCYR      'Forecast current year'          5 0
BOTH     RVFORCPER     'Forecast current period'        3 0
BOTH     RVFORCINT     'Forecast Interval'              3 0

PROPROD - This updates the Promotional Qty, Beg-End Dates. “0” Qty clears dates

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       'Buyer ID '                    5A 
BOTH     IDLOCN       'ID Location'                  5A
BOTH     IDSUPL       'ID Supplier'                 10A
BOTH     IDSUPLSUB    'ID Supplier sub code'        10A
BOTH     IDPROD       'ID Product'                  25A
BOTH     SBPROMQTY    'Promotional Qty'              7 0
BOTH     SBPROMBEG    'Beginning Promotional Date'  10A
BOTH     SBPROMEND    'Ending Promotional Date'     10A
BOTH	 OPCMBLOCN	  'Combined Location '			 5A
BOTH	 OPCMBSUPL	  'Combined Supplier'			10A
BOTH	 OPCMBSUB	  'Combined Sub'				10A

STSPROD - Set User Status 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       'Buyer ID '                    5A 
BOTH     IDLOCN       'ID Location'                  5A
BOTH     IDSUPL       'ID Supplier'                 10A
BOTH     IDSUPLSUB    'ID Supplier sub code'        10A
BOTH     IDPROD       'ID Product'                  25A
BOTH     SBUSRSTAT    'User status'                  1A
BOTH     SBFORFREZ    'Freeze forecast until date'  10A
BOTH     SBPROBDAT    'Probation date'              10A
BOTH     OPCMBLOCN    'Optional Combined Location'   5A 
BOTH     OPCMBSUPL    'Optional Combined Supplier'  10A 
BOTH     OPCMBSUB     'Optional Combined Sub-Supl'  10A 

UPDPROD - Update Product Settings

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     PRODSEQ       'Product sequence'              40A
BOTH     DESC2         'Description 2'                 40A
BOTH     NDC_UPC       'NDC UPC code'                  25A
BOTH     MFG           'Manufacturer ID'               25A
BOTH     CATALOG       'Catalog ID'                    15A
BOTH     UOM           'Unit of measure'                4A
BOTH     PACKSIZ       'Pack size'                     10A
BOTH     TIHI          'TIHI'                          10A
BOTH     GROUP1        'Group 1'                       10A
BOTH     GROUP1O       'Group 1 override'              10A
BOTH     GROUP2        'Group 2'                       10A
BOTH     GROUP2O       'Group 2 override'              10A
BOTH     GROUP3        'Group 3'                       10A
BOTH     GROUP3O       'Group 3 override'              10A
BOTH     GROUP4        'Group 4'                       10A
BOTH     GROUP4O       'Group 4 override'              10A
BOTH     GROUP5        'Group 5'                       10A
BOTH     GROUP5O       'Group 5 override'              10A
BOTH     WHSLOCN       'Warehouse location'            10A
BOTH     LINECST       'Line cost'                      5  2
BOTH     LEADTM        'Lead time'                      3  0
BOTH     LEADTMV       'Lead time variance'             3  1
BOTH     EXCLEAD       'Exclude auto updating'          1  0
BOTH     COSTREG       'Product cost regular'          11  4
BOTH     OVRCREG       'Override cost regular'         11  4
BOTH     OVRCDIV       'Override cost divisor'          5  0
BOTH     SALES         'Sales price'                   11  4
BOTH     QTYOHND       'Quantity on hand'               7  0
BOTH     QTYOORD       'Quantity on order'              7  0
BOTH     QTYBACK       'Quantity back ordered'          7  0
BOTH     FORCAST       'Demand forecast'                9  2
BOTH     MINQTYO       'Minimum quantity override'      7  0
BOTH     BUYMULO       'Buy multiple override'          7  0
BOTH     CONVPKO       'Convenience pack override'      7  0
BOTH     CONVPKP       'Convenience pack percent'       3  1
BOTH     DAYSUNT       'Days out point in units'        3  0
BOTH     MAXDAYS       'Max forward buy days'           3  0
BOTH     MAMINID       'Manual minimum in days'         3  0
BOTH     MAMINIU       'Manual minimum in units'        7  0
BOTH     MAMAXID       'Manual maximum in days'         3  0
BOTH     MAMAXIU       'Manual maximum in units'        7  0
BOTH     ADD_DAY       'Add days to order point'        3  0
BOTH     WEIGHTO       'Weight override'                7  3
BOTH     WEIGHDO       'Weight divisor override'        5  0
BOTH     VOLUMEO       'Volume override'                7  3
BOTH     VOLUMDO       'Volume divisor override'        5  0
BOTH     PURINCO       'Purchase increment override'    5  0
BOTH     SEASONL       'Seasonl profile ID'            10A
BOTH     SERVICE       'Service level target'           3  1
BOTH     LONGTRM       'Long term trend rate'           3  2
BOTH     SPLTPRM       'Split code permanent'           1  0
BOTH     SPLTTMP       'Split code tempoarary'          1  0
BOTH     POQTYDV       'PO divisor'                     5  0
BOTH     POQTYUM       'PO unit of measure'             4A
BOTH     PROCALT       'Process alternate source flag'  1  0
BOTH     FORMETH       'Forecast method'                1  0
BOTH     INVMETH       'Inventory method'               1  0
BOTH     EXCUNTL       'Exclude buying until date'     10A
BOTH     REBATE        'Rebate %'                       3  1
BOTH     DISOTHO       'Bracket build override'         9  4
BOTH     DISUN7O       'Bracket override unit 7'        9  4
BOTH     DISUN8O       'Bracket override unit 8'        9  4
BOTH     DISUN9O       'Bracket override unit 9'        9  4
BOTH	 OPCMBLOCN	   'Combined Location '		        5A
BOTH	 OPCMBSUPL	   'Combined Supplier'			   10A
BOTH	 OPCMBSUB	   'Combined Sub'				   10A

LTSPROD - Tracking Signal For Product Lead Time

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     OPCMBLOCN     'Optional Combined Location'     5A 
BOTH     OPCMBSUPL     'Optional Combined Supplier'    10A 
BOTH     OPCMBSUB      'Optional Combined Sub-Supl'    10A
BOTH     RVLEADTM      'Lead Time'                      3 0
BOTH     RVLEADTMV     'Lead Time Variance'             3 1
BOTH     RVLEADTMS     'Smoothed Error'                 3 3
BOTH     RVTRAKSIG     'Tracking Signal'                3 3 
BOTH     RVTSDIREC     'Trending '                      1A

CLPPROD - Clear Convenience Pack

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

LNKPROD - Determine If A Product Is Linked

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     RVLNKEDTO     'Is Product Linked to? '         1A
BOTH     RVMLTLNKT     'Are there multiple Links?       1A
BOTH     RVBUYRTO      'Buyer of linked to   '          5A
BOTH     RVLOCNTO      'Location of linked to '         5A
BOTH     RVSUPLTO      'Supplier of linked to '        10A
BOTH     RVSUPLSBT     'Supplier Sub of linked to'     10A
BOTH     RVPRODTO      'Product linked to'             25A
BOTH     RVLNKEDFM     'Is Product Linked From? '       1A
BOTH     RVMLTLNKF     'Are there multiple Links?       1A
BOTH     RVBUYRFM      'Buyer of linked from  '         5A
BOTH     RVLOCNFM      'Location of linked from '       5A
BOTH     RVSUPLFM      'Supplier of linked from '      10A
BOTH     RVSUPLSBF     'Supplier Sub of linked from'   10A
BOTH     RVPRODFM      'Product linked from '          25A

WCPPROD - Which was last field changed?

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	 RVFIELD	   'Last Field Changed'			   10A
BOTH	 RVLENGTH	   'Length of filed changed'        5A
BOTH	 RVVALUE	   'Value changed'	               40A

CPAPROD - Copy to All Products within same Supplier

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	 SBFIELD	   'Field to be updated in All'    10A
BOTH	 SBLENGTH	   'Length of filed ' 		        5A
BOTH	 SBVALUE	   'Value to be changed in All'    40A

CMBPROD - Check for product being in a Combined Supplier

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 Supplier sub code'          10A
BOTH     IDPROD        'ID Product'                    25A
BOTH     RVCMBFLG      'Combined Product?'              1A
BOTH	 RVCMBBUYR     'Combined Buyer'                 5A
BOTH     RVCMBLOC      'Combined Location'              5A 
BOTH     RVCMBSUPL     'Combined Supplier '            10A   
BOTH	 RVCMBSUB      'Combined Sub'                  10A