Release 5.06 Technical Notes
0001.00 ------------------------------------------------------------------------
0002.00 Notes for Release 5.06 Jan 01, 2011 rel_5.06.doc
0003.00 (Name in parenthesis is person who had the idea for the change)
0004.00 ------------------------------------------------------------------------
0005.00
0006.00 01) K3S_CVRT22 - Changes to table code records/New table code records:
0007.00
0008.00 APP Application codes
0009.00
0010.00 K3S_0010 RMV_BORDER
0011.00 This will enable a customer to
0012.00 remove the border around the
0013.00 K3S information box that some
0014.00 GUI tools see as a WINDOW.
0015.00
0016.00 K3S_1015 F17=
0017.00 This will enable a user to run an
0018.00 exit point program CL K3S_1015X1
0019.00 that could be used to re-send a
0020.00 PO transmission.
0021.00
0022.00 K3S_1040 LAST_21
0023.00 This will enable a customer to
0024.00 display the last 21 days demand
0025.00 in weeks.
0026.00
0027.00 K3S_1500 G1_MINSVC
0028.00 This is an existing table code;
0029.00 want the default to be flag1 = 1
0030.00
0031.00 K3S_3100 LIB_FILE
0032.00 Library where K_PRODUCT exists
0033.00 Description2 - K3S_5DTA
0034.00
0035.00 K3S_3100 LIB_QRY
0036.00 Library where QRY exists
0037.00 Description2 - K3S_5QRY
0038.00
0039.00 02) K3S_C170 - (Pete @ Core Mark)
0040.00 K3S_C171 Include work fields for Unit 7, 8, 9
0041.00 in Order Cycle Analysis calculations
0042.00
0043.00 03) K3S_FX506A - (Brantley)
0044.00 Taking out abbreviations from screen titles to use
0045.00 all of the room we now have.
0046.00
0047.00 04) K3S_FX506B - (Les Schwab)
0048.00 Ability to update Car Count field PR_CARCOUN from
0049.00 interface K_INTPROD and K_INTPRDD. Updated
0050.00 descripton 2 field for APP record
0051.00 'K3S_1500 CAR_COUNT' to read:
0052.00 Update PR_CARCOUN from IP_CARCOUN and
0053.00 IY_CARCOUN? use flag 2
0054.00
0055.00 05) K3S_FX506C - (Core Mark)
0056.00 Un-protect units 7, 8, 9 for SDU Supplier discount
0057.00 units, so that customer can change text.
0058.00
0059.00 06) K3S_LNKAFT - (DPS @ FJ Wadden)
0060.00 This program would be running out of exit point
0061.00 k3S_X145CL (part of K3S_NITECL process) and is
0062.00 responsible for updating just the PK_TO_SUPL and
0063.00 PK_TO_SUB fields.
0064.00 *Program K3S_LNKAFT and K3S_LNKBEF work together.
0065.00 They are needed when a customer has K_PRODLNK
0066.00 records for a new product replacing an old
0067.00 product, and Change Product Source is used.
0068.00
0069.00 07) K3S_LNKBEF - (DPS @ FJ Wadden)
0070.00 This program would be running out of K3S night job
0071.00 k3S_NIGHT (prior to K3S_NITECL process) and is
0072.00 responsible for updating just the PK_FRMSUPL and
0073.00 PK_FRMSUB fields.
0074.00 *Program K3S_LNKAFT and K3S_LNKBEF work together.
0075.00 They are needed when a customer has K_PRODLNK
0076.00 records for a new product replacing an old
0077.00 product, and Change Product Source is used.
0078.00
0079.00 08) K3S_M080 - (Pete @ Core Mark)
0080.00 Products not flagging as PE1 check soon enough.
0081.00 For slow movers where previous average is between
0082.00 0 and 1, and the new calculated average is between
0083.00 0 and 1, with a demand coming in this period > 1,
0084.00 they were not flagging as PE1.
0085.00
0086.00 09) K3S_REPLFM - Update with new K3S address and phone numbers.
0087.00
0088.00 10) K3S_QRYRUN - (Larry @ Les Schwab)
0089.00 Ability to run QRY type batch for Store Level
0090.00
0091.00 11) K3S_SNDMSG - This command brought forward from Release 4.
0092.00
0093.00 12) K3S_0010 - Update with new R5.06 label and date.
0094.00 K3S_0010FM Update new K3S phone number.
0095.00 New APP record 'K3S_0010 RMV_BORDER' will
0096.00 control border around Information box for
0097.00 Coastal Wholesale's use of GUI tool.
0098.00
0099.00 13) K3S_1010 - (Pete @ Core Mark)
0100.00 For both View 9 and View 0 that use the User ID,
0101.00 when User was in F21=Start mode, then F12=Previous
0102.00 after working a few orders in K3S_1020, the buyer
0103.00 would use Page Down and the subfile was not positioned
0104.00 properly. A full KLIST was needed in two subroutines.
0105.00
0106.00 14) K3S_1015 - (King III)
0107.00 K3s_1015FM Taking out the toggle to 2 of 3 and 3 of 3
0108.00 K3S_1015X1 because all info now fits onto first screen.
0109.00 - New F17= capability that is controlled by APP
0110.00 record 'K3S_1015 F17= ' and will call CL
0111.00 program K3S_1015X1.
0112.00 - (Larry Gerke @ Les Schwab)
0113.00 New *exclude capability to exclude showing
0114.00 sub suppliers.
0115.00
0116.00 15) K3S_1030 - (Scott)
0117.00 K3S_1030FM Scott had copied a product from a different
0118.00 location into order. This fix keeps divide by 0
0119.00 error from occuring.
0120.00 - F16=Search NDC/UPC for match (enhancement)
0121.00 - New PARM for K3S_1070 to enable roll up/down
0122.00 for 9=Available on Alternate Source entries
0123.00
0124.00 16) K3S_1040 - (Scott)
0125.00 K3S_1040FM When Combined Suppliers used, needed to pass the
0126.00 K3S_1041 correct PARMs to K3S_9940 (text line program).
0127.00 K3S_1041FM Fix to K3S_1041FM, where ZZ_CMBNAME needed to be
0128.00 30 in length like K3S_1040FM (Release 4 was 18).
0129.00 New logic for 'Last 21 days demand'.
0130.00
0131.00 17) K3S_1042 - (Larry @ Les Schwab)
0132.00 In store level environment, and with products in a
0133.00 supplier sub group like 'batteries', the wrong
0134.00 information appears.
0135.00
0136.00 18) K3S_1045 Provided better spacing between fields in the subfile
0137.00 K3S_1045FM for readability. No RPG changes made.
0138.00
0139.00 19) K3S_1046 Develop results for last 21 days demand. This program
0140.00 provides answers for programs K3S_1040 and K3S_1041,
0141.00 to display 3 weekly buckets of information.
0142.00
0143.00 20) K3S_1050 - (Larry @ Les Schwab)
0144.00 The Arrival date should not be allowed to be in the
0145.00 past. Problem could occur when buyer over-rides system
0146.00 generated Arrival date for January 2011, and enters
0147.00 date with January 2010 value.
0148.00
0149.00 21) K3S_1070 - (Steven @ Resnick)
0150.00 New capability to roll up/down when viewing
0151.00 alternate source entries.
0152.00
0153.00 22) K3S_1100 - Customization of ID_PRODSEQ can be performed.
0154.00 Default will be PQ_PRODSEQ.
0155.00
0156.00 23) K3S_1220 - (Rob @ Resnick)
0157.00 For Combined Suppliers the F14=Retrieve process
0158.00 did not pick up the Bracket Costs and
0159.00 Permanent Deals properly.
0160.00
0161.00 24) K3S_1500 - (Dick @ USA Drug)
0162.00 New capability to have $0 cost products within a
0163.00 supplier line, that all use Man Min/Max, and then
0164.00 also set supplier to Fixed Cycle, to have the
0165.00 Fixed Cycle date automatically advance, without
0166.00 having to F5=Approve order.
0167.00
0168.00 25) K3S_1510 - (Ed @ Ohio Valley)
0169.00 When program executing in FB check mode, then
0170.00 products with EOQ larger than Order Cycle, that
0171.00 had fallen below Order Point, were not ordering
0172.00 to their EOQ maximum. Tested fix for 10 days at
0173.00 Ohio Valley, then applied at customer sites who
0174.00 needed it 5/29/2010 and in the week or two after
0175.00 that date.
0176.00 - (Vicki @ Southco)
0177.00 When program executing on a supplier that uses
0178.00 Daily Replenishment, the logic was defaulting to
0179.00 the Supplier Day of the Week percentages, and not
0180.00 picking up any possible Product Day of the Week
0181.00 percentages.
0182.00
0183.00 26) K3S_2040 - (Pete @ Core Mark)
0184.00 K3S_2040FM Include Unit 7, 8, 9 in calculations
0185.00 K3S_2041 for Order Cycle Analysis for both
0186.00 K3S_2045 on-line and report
0187.00 K3S_P2045
0188.00
0189.00 27) K3S_3007 - (Bonnie)
0190.00 K3S_3007FM No logic changes in RPG, this was cosmetic adjustment.
0191.00 On '3c of 5' screen, the heading of 'Rebt %' was dropped, 0192.00 since no field was associated with that heading. The
0193.00 heading for P0_REPCARY was changed to read 'Replenish
0194.00 Carry % (future)'. We are not currently using field
0195.00 PR_REPCARY but will in future release.
0196.00
0197.00 28) K3S_3016 - (Larry @ Les Schwab)
0198.00 Fix when using 4=Delete on a record where supplier
0199.00 no longer exists. Program would loop.
0200.00 - New capability to default cursor to From Supplier ID
0201.00 when coming in from K3S_0020 Special Programs Menu
0202.00
0203.00 29) K3S_3030 - (Pete @ Core Mark)
0204.00 K3S_3031 When using F6=Seasonality analyzer for
0205.00 a Combined Supplier that includes
0206.00 multiple locations, program needed a fix
0207.00 to send correct location.
0208.00
0209.00 30) K3S_3100 - (Larry @ Les Schwab)
0210.00 Ability to run QRY type batch for Store Level
0211.00
0212.00 31) K3S_3210 - (Dick @ USA Drug)
0213.00 When adjusting negative values, the Forecast
0214.00 After value did not display the correct result.
0215.00
0216.00 32) K3S_4131 - (Larry @ Les Schwab)
0217.00 K3S_4131FM Three fields not updating during change, which were
0218.00 Memo, Base Service, Exclude type
0219.00 New records need ability to use both Product
0220.00 Group 1 and Group 2 values
0221.00 Supplier sub code needs lower case capability
0222.00
0223.00 33) K3S_4138 - (Larry @ Les Schwab)
0224.00 K3S_4138FM Supplier sub code needs lower case capability
0225.00
0226.00 34) K3S_5300 - (Tina @ Core Mark)
0227.00 For products displaying 'Not on K_PRODUCT' and user
0228.00 tried 2=Change, went into loop.
0229.00
0230.00 35) K3S_8510 - Usability adjustments.
0231.00
0232.00 36) K3S_8517 - No RPG changes, just changes to screen.
0233.00 K3S_8517FM - Change to display Regular supplier.
0234.00 - Add Transfer supplier Sub-code text.
0235.00 - Copy Demand flag moved to right.
0236.00
0237.00 37) K3S_8520 - Usability adjustments.
0238.00
0239.00 38) K3S_8527 - Turn off alarm after subfile built.
0240.00 K3S_8527FM - Change text on screen to Regular supplier.
0241.00
0242.00 39) K3S_9015 - (Ed @ Ohio Valley)
0243.00 The Discontinue Link field was not being used in the
0244.00 logic.
0245.00
0246.00 40) K3S_9110CL - (Leanne @ JL Gaddy)
0247.00 Logic to hold printed output, then delete spool file
0248.00 for 'Products rejected report' with Alternate source
0249.00 entries.
0250.00
0251.00 41) K3S_9256 - (King III)
0252.00 Clean up to handle multi-locaton environment without
0253.00 hard coded info, plus adjust the accumulation on
0254.00 'ship' field.
0255.00
0256.00 42) K3S_9991FM - Update new K3S phone numbers.
0257.00
0258.00 -----------------------------------------------------------------------
0259.00 Physical and logical files added or changed during this release
0260.00 -----------------------------------------------------------------------
0261.00
0262.00 There were no Physical or Logical files added during this release.
0263.00
0264.00 After this release installed, there should be exactly 425 objects
0265.00 in library K3S_5DTA(data files library) (Rel 5.05 had 425 objects)
0266.00
0267.00 Updated help document included (replaces the current version
0268.00 in library K3S_5OBJ: file K_F1_DOC)
0269.00
0270.00 -----------------------------------------------------------------------
0271.00 Special conditions for some customers
0272.00 -----------------------------------------------------------------------
0273.00
0274.00 Store Level customers - to take advantage of running QRY batches:
0275.00
0276.00 1) Adjust APP record 'K3S_3100 LIB_FILE' from K3S_5DTA
0277.00 to K3S_5STDTA
0278.00
0279.00 2) Adjust APP record 'K3S_3100 LIB_QRY ' from K3S_5QRY
0280.00 to K3S_5STQRY
0281.00
0282.00 3) Go into query definition called K_PRODQRY1 using 2=Change,
0283.00 and adjust two things:
0284.00 a) Specify file selections - change library from K3S_5DTA
0285.00 to K3S_5STDTA
0286.00 b) Select output type -
0287.00 3=Database file change library from K3S_5DTA
0288.00 to K3S_5STDTA
0289.00
0290.00 -----------------------------------------------------------------------
0291.00 Programs in library K3S_MOD506
0292.00 -----------------------------------------------------------------------
0293.00
0294.00 -- RPGLE
0295.00 K3S_CVRT22 New Table Code entries
0296.00 K3S_1050 PO Approval
0297.00 K3S_1100 Suggested Order supplier approval header/detail
0298.00 K3S_9015 Update K_INTPROD via K_PRODLNK
0299.00 K3S_9256 Update K_INTPROD with daily demand from K_INTDALY
0300.00
0301.00 -- CLLE
0302.00 K3S_1015X1 Exit from K3S_1015 for F17= processing
0303.00 K3S_9110CL Alternate source processing - create orders
0304.00
0305.00 -- CMD
0306.00 none
0307.00
0308.00 -- DSPF
0309.00
0310.00 -- PF
0311.00
0312.00 -----------------------------------------------------------------------
0313.00 Programs in library K3S_5CNV
0314.00 -----------------------------------------------------------------------
0315.00
0316.00 -- RPGLE
0317.00
0318.00 -- CLLE
0319.00 none
0320.00
0321.00 -- CMD
0322.00 none
0323.00
0324.00 -- DSPF
0325.00 none
0326.00
0327.00 -----------------------------------------------------------------------
0328.00 Implementation steps for this release
0329.00 -----------------------------------------------------------------------
0330.00
0331.00 Standard LODRUN *OPT
0332.00
0333.00 The changes required for K3S_5MOD after the new release has been
0334.00 installed will be on these 4 programs:
0335.00
0336.00 1. K3S_1050 PO Approval
0337.00 2. K3S_9015 Update K_INTPROD via K_PRODLNK
0338.00 3. K3S_1015X1 Exit from K3S_1015 for F17= processing
0339.00 4. K3S_9110CL Alternate source processing - create orders
0340.00
0341.00 --- change 1 -----------------------------------------------------------
0342.00
0343.00 K3S_1050 PO Approval has new capability to edit the arrival date
0344.00 and ensure it is a future date. This is helpful when
0345.00 close to the end of the year, and buyer changes
0346.00 arrival date for January, but forgets its next year.
0347.00
0348.00 Two sections of logic to add, shown below
0349.00
0350.00 --> section 1 to add
0351.00
0352.00 c exsr $_edt_arv
0353.00 c endif
0354.00 --> * edit user entry of arrival date
0355.00 --> c if errors = *off
0356.00 --> c exsr $_edt_arvD
0357.00 --> c endif
0358.00 * edit user entry
0359.00 c if errors = *off 0360.00 c exsr $_edt_beg
0361.00
0362.00 -----------------------------------------------------------------------------
0363.00
0364.00 --> section 2 to add, just before $_edt_reas subroutine
0365.00
0366.00 c endsr
0367.00
0368.00 --> * //////////////////////////////////////// Edit arival date for future
0369.00 -->
0370.00 --> c $_edt_arvD begsr
0371.00 -->
0372.00 --> * Arrival date can not be in the past
0373.00 --> c if xx_arvdate < cm_sysdate
0374.00 --> c eval errors = *on
0375.00 --> c eval *in60 = *on
0376.00 --> c eval @msg_id = 'K3_9999'
0377.00 --> c eval @msg_text='Invalid arrival date, in the past'
0378.00 --> c exsr $_add_msg
0379.00 --> c else
0380.00 --> c eval *in60 = *off
0381.00 --> c endif
0382.00 -->
0383.00 --> c endsr 0384.00 -->
0385.00 * //////////////////////////////////////////////////// Edit begin date
0386.00
0387.00 c $_edt_reas begsr
0388.00
0389.00 --- change 2 -------------------------------------------------------------
0390.00
0391.00 K3S_9015 Update K_INTPROD via K_PRODLNK
0392.00 This program now includes capability to use the
0393.00 Discontinue Link date field. Perform a 54= compare to
0394.00 see if customization was done for this customer. If not
0395.00 replace source and object.
0396.00
0397.00 --- change 3 -------------------------------------------------------------
0398.00
0399.00 K3S_1015X1 Exit from K3S_1015 for F17= processing
0400.00 Just ensure both source and object get placed into
0401.00 K3S_5MOD in case customer wants to use it in the future.
0402.00
0403.00 --- change 4 -------------------------------------------------------------
0404.00
0405.00 K3S_9110CL Alternate source processing - create orders
0406.00 For customers who process alternate source orders, this
0407.00 logic will DLTSPLF on the large matching report, seldom used. 0408.00 2 sections to change
0409.00
0410.00 --> section 1 to add three parms to be used
0411.00
0412.00 /* Job name */
0413.00 DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
0414.00 /* User name */
0415.00 DCL VAR(&USER) TYPE(*CHAR) LEN(10)
0416.00 /* Job number */
0417.00 DCL VAR(&NBR) TYPE(*CHAR) LEN(6)
0418.00
0419.00 --> section 2 to perform the RTVJOBA, and then after K3S_9100 runs,
0420.00 to perform the DLTSPLF
0421.00
0422.00 /* get new entries into k_intaltr file */
0423.00 RTVJOBA JOB(&JOB) USER(&USER) NBR(&NBR)
0424.00 OVRPRTF FILE(K3S_P9100) HOLD(*YES)
0425.00
0426.00 CALL PGM(K3S_9100) PARM(&COMP)
0427.00
0428.00 DLTSPLF FILE(K3S_P9100) JOB(&NBR/&USER/&JOB) +
0429.00 SPLNBR(*LAST)
0430.00 MONMSG MSGID(CPF3303)
0431.00
