Release 5.3 Technical Notes
0001.00 -----------------------------------------------------------------------
0002.00 Notes for Release 5.3 Jan 01, 2016 rel_5.3.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_C131 REVERSE
0011.00 New table code record that will enable
0012.00 a customer to reverse the sequence used
0013.00 when developing suggested orders, and also
0014.00 using the Manual Min/Max capabilities.
0015.00 The default is Units logic is 1st, and
0016.00 Days logic is 2nd. With Flag1 = 1, the
0017.00 Days logic is 1st, Units logic is 2nd.
0018.00
0019.00 K3S_1040 PROTECT
0020.00 New table code record that will enable
0021.00 a customer to protect several fields on
0022.00 the K3S_1040 screen, which are Order Cost,
0023.00 Divisor, Rounding. Also, Alternate Source
0024.00 Orders can have these fields protected.
0025.00
0026.00 K3S_1500 DELAY_FC
0027.00 New table code record that will enable
0028.00 a customer to control when order is shown:
0029.00 1 = do delay Fixed Cycle orders until
0030.00 exact date
0031.00 0 = do NOT delay, prompt early if
0032.00 requirement exists
0033.00
0034.00 K3S_1500 DELAY_VOC
0035.00 New table code record that will enable
0036.00 a customer to control when order is shown:
0037.00 1 = do delay Fixed Cycle orders until
0038.00 exact date
0039.00 0 = do NOT delay, prompt early if
0040.00 requirement exists
0041.00
0042.00 K3S_1900 CMB_SPLITS
0043.00 New table code record that will enable
0044.00 a single location customer to perform
0045.00 a temp or perm code split on combined
0046.00 suppliers.
0047.00
0048.00 K3S_3010 COMBINE
0049.00 New table code record that will enable
0050.00 a customer to have day time environment
0051.00 (on-line only) to update Combined
0052.00 Suppliers Product record when a
0053.00 F5=Copy History has been processed.
0054.00 With Flag1=1 program K3S_3013 is
0055.00 called from K3S_3010.
0056.00
0057.00 K3S_3016 COPY_ALL
0058.00 Change to existing tablcode to utilize
0059.00 flag3. Fix program K3S_FX530A will
0060.00 patch text for existing customers.
0061.00 Description3 to say "If Flag1=1 use
0062.00 Flag3 to skip writing links for locns
0063.00 where FROM/TO products aren't found
0064.00 0=No, 1=Yes "
0065.00
0066.00 K3S_3020 DEV_UPDATE
0067.00 Allow Deviation % update?
0068.00
0069.00 K3S_5050 ALLOW_PCT
0070.00 Allow percent to use 4 decimals
0071.00
0072.00 K3S_9010 PE_SNPSHOT
0073.00 Change to existing tablcode to utilize
0074.00 flag2. Fix program K3S_FX530B will
0075.00 patch TA_FLAG1 and TA_FLAG2 setting
0076.00 to a 1=yes. Description2 to say
0077.00 'Flag2=1 to Ignore type "G" Period
0078.00 End snapshots'
0079.00
0080.00 FCF Fixed Cycle Frequencies
0081.00
0082.00 6 - Every 6 weeks
0083.00 New option follows 1 - 5
0084.00
0085.00 OST Order Split Types
0086.00
0087.00 USP - User System Supplier
0088.00 New option for order splits
0089.00
0090.00 PFC Product Forecast Change types
0091.00
0092.00 I - Ignore Period End snapshots
0093.00 which becomes the default.
0094.00
0095.00 SPR Selected Records Review Types
0096.00
0097.00 PE6, PE7, PE8, PE9, WP2
0098.00 Flag 5=1 Automatically "C" Close
0099.00 this type of batch
0100.00 Fix program K3S_FX530D will set these
0101.00
0102.00 02) K3S_C131_R - /COPY Calculate manual min/max values reversed
0103.00
0104.00 03) K3S_C170 - /COPY Calculate order cycle values 'D' specs
0105.00 K3S_C171 - /COPY Calculate order cycle values 'C' specs
0106.00
0107.00 04) K3S_FX530A - Patch text in TA_CODEDS3 for tablcode record
0108.00 K3S_3016 COPY_ALL.
0109.00 If Flag1=1 use Flag3 to skip writing links
0110.00 for locations where FROM/TO products
0111.00 are not found 0=No,1=Yes
0112.00
0113.00 05) K3S_FX530B - Prime K_TABLCOD 'APP' K3S_9010 PE_SNPSHOT
0114.00 defaults become TA_FLAG1 and TA_FLAG2 to 1=Yes
0115.00 description 2 describes the use of TA_FLAG2
0116.00
0117.00 ***** warning !!! store level customers likely
0118.00 to NOT need the extra storage space for
0119.00 this enhancement
0120.00
0121.00 06) K3S_FX530C - Patch two fields SP_BIRTH and SP_LASTUPD by
0122.00 checking K_SUPLLOG and looking for the
0123.00 S0_CHGTYPE = 'A' record.
0124.00
0125.00 07) K3S_FX530D - Prime K_TABLCOD SPR records for types of
0126.00 PE6 - PE9 & WP2 to automatically
0127.00 'C' Close at Period End.
0128.00
0129.00 08) K3S_M070 - Via new APP record 'K3S_5050 ALLOW_PCT'
0130.00 a customer has choice to use 2 decimals,
0131.00 or 4 decimals, for Allowance Percents
0132.00
0133.00 09) K3S_RESTOR - Statements added to grant object authority for
0134.00 restoring GUI updates.
0135.00
0136.00 (new development by K3S)
0137.00 10) K3S_SUMHIS - Add new product history records for *SUM
0138.00 K3S_SUMPRD - Automatic add of products Consolidated *SUM
0139.00 K3S_SUMQTY - Get qty OH & OO by LOCN for _9940
0140.00 K3S_SUMSUP - Automatic add of suppliers Consolidated *SUM
0141.00 K3S_SUMSYN - One time sync of PTD in K_PRODUCT for *SUM
0142.00
0143.00 11) K3S_0010 - Display new Release info R5.3 January 1st, 2016
0144.00 K3S_0010FM
0145.00
0146.00 12) K3S_0020 - Option 10. Manage Daily Information now
0147.00 calls CL program K3S_1043CL instead of
0148.00 RPG program K3S_1043. Taking this option
0149.00 will prompt the user to 'Contact K3S for
0150.00 more information on this menu option.
0151.00
0152.00 13) K3S_1016 - Approved Orders detail now displays the
0153.00 K3S_1016FM line cost used on this PO.
0154.00
0155.00 14) K3S_1020 - Order now remembers when Product Bracket
0156.00 K3S_1020FM costs retrieved.
0157.00
0158.00 (Gummer)
0159.00 15) K3S_1030 - When the customer does a search in description 1 or
0160.00 K3S_1030FM description 2, display the product ID in the message
0161.00 when we get a match
0162.00 - When suggested order has been approved, do not allow
0163.00 use of 'Add product to Replenish' capability.
0164.00
0165.00 (Gummer)
0166.00 16) K3S_1035 - Totals by permanent/temporary split code were not
0167.00 working for Combined suppliers.
0168.00
0169.00 17) K3S_1040 - New APP record 'K3S_1040 PROTECT' will enable a
0170.00 K3S_1040FM customer to protect certain fields on the screen:
0171.00 K3S_1041 Protect Order Cost
0172.00 K3S_1041FM Divisor
0173.00 Rounding
0174.00 Alternate source orders Cost,Divisor, Rounding
0175.00
0176.00 18) K3S_1043 - Manage Daily Information program and screen source move
0177.00 K3S_1043FM to library K3S_5MOD for customer use if required.
0178.00 (both objects K3S_1043 & K3S_1043FM removed)
0179.00 K3S_1043CL - This new CL program is called from the Special Programs
0180.00 Menu. If a customer wants to re-enable K3S_1043 & FM,
0181.00 then this program can be adjusted to do so.
0182.00
0183.00 19) K3S_1046 - Discovered issue with building "Last 21 days" demand.
0184.00
0185.00 (David at Myers-Cox)
0186.00 20) K3S_1050 - Added new option to the Fixed Cycle ordering options, of
0187.00 ordering every 6 weeks.
0188.00 (new K3S function)
0189.00 - Clear SP_USERN1 that counts how many days buyer let
0190.00 order sit due without ordering.
0191.00
0192.00 21) K3S_1050AU - Added new option to the Fixed Cycle ordering options, of
0193.00 ordering every 6 weeks.
0194.00 (new K3S function)
0195.00 - Clear SP_USERN1 that counts how many days buyer let
0196.00 order sit due without ordering.
0197.00
0198.00 22) K3S_1050PB - Added new option to the Fixed Cycle ordering options, of
0199.00 ordering every 6 weeks.
0200.00 (new K3S function)
0201.00 - Clear SP_USERN1 that counts how many days buyer let
0202.00 order sit due without ordering.
0203.00
0204.00 23) K3S_1220 - Save off Bracket Level retrieved into SO_USERA2
0205.00 as 'RTx' where x is 1 thru 9.
0206.00
0207.00 (David at Myers-Cox)
0208.00 24) K3S_1500 - New capability to delay Fixed Cycle suppliers until
0209.00 their actual order day. Delay set back to 1 day.
0210.00 (David at Myers-Cox)
0211.00 - New capability to delay Variable OrCyc suppliers until
0212.00 their actual order day. Delay set back to 1 day.
0213.00 (Debbie at Variety)
0214.00 - New capability to reverse sequence used when calculating
0215.00 Manual Min/Max. Effective in Store Level processing.
0216.00 (new K3S function)
0217.00 - Clear PR_BRKFLAG used in Bracket Level determination
0218.00 Clear SO_USERA2 for Bracket Level determination
0219.00 Save off PQ_BRKCOST from PR_BRKCOST
0220.00
0221.00 (Debbie at Variety)
0222.00 25) K3S_1510 - New capability to reverse sequence used when calculating
0223.00 Manual Min/Max. Effective in Store Level processing.
0224.00
0225.00 (new K3S functionality)
0226.00 26) K3S_1550 - Capture night job totals for new file K_NITETOT
0227.00
0228.00 (Gummer)
0229.00 27) K3S_1900 - New capability to allow splitting of combined supls
0230.00 K3S_1900FM by temp or perm split codes; controlled with an
0231.00 K3S_1910 APP record. This works for single location combined
0232.00 supls only.
0233.00 (new K3S function)
0234.00 - Enable splitting an order by the User's Supplier ID,
0235.00 effective for a Dot Foods environmenet. type USP
0236.00
0237.00 (David at Myers-Cox)
0238.00 28) K3S_2000 - New function of 6 week cycle defaults Order Cycle
0239.00 K3S_2000FM to 42 days.
0240.00 - If Fixed Cycle frequencies being used, do not allow
0241.00 user to manually adjust Order Cycle days, its
0242.00 automatically populated.
0243.00
0244.00 (David at Myers-Cox)
0245.00 29) K3S_2005 - Understand new 6 week cycle option for suppliers
0246.00
0247.00 30) K3S_2008 - Changed to use K3S_M090 instead of using UMONTH,
0248.00 UDAY, UYEAR, to develop SP_BIRTH and SP_LASTUPD
0249.00 when adding new supplier.
0250.00
0251.00 31) K3S_2009 - Enable program to understand CALL from PHP
0252.00 environment.
0253.00
0254.00 (new K3S function)
0255.00 32) K3S_2040 - Enable user to filter results by User's system
0256.00 K3S_2040FM supplier. Effective for a Dot Foods environment.
0257.00 - Also enable filtering by Product Groups, like
0258.00 'KELLOGS'
0259.00 - Do not allow updating of Order Cycle if this is a
0260.00 Fixed Cycle supplier.
0261.00
0262.00 33) K3S_2041 - Understand how to calculate totals when either
0263.00 filtering by User's system supplier, or by
0264.00 product groups.
0265.00
0266.00 34) K3S_2045 - Ensure that only suppliers that are not under a
0267.00 Fixed Cycle scenario can have their Order Cycles
0268.00 automatically updated by this report.
0269.00
0270.00 35) K3S_3001 - Only display the product description 1 value
0271.00 K3S_3001FM into the screen when errors are off.
0272.00
0273.00 (Jordan at SAS)
0274.00 36) K3S_3010 - New capability to have the 'day time' use of
0275.00 Copy History to also update the product records
0276.00 when under a Combined Supplier. Controlled by
0277.00 new APP record 'K3S_3010 COMBINE'. Calls new
0278.00 program K3S_3013 to perform update.
0279.00
0280.00 37) K3S_3013 - Called from K3S_3010 to perform updates on product.
0281.00
0282.00 (Chris Hendricks at Duncan)
0283.00 38) K3S_3016 - If the company is set to add product links to all
0284.00 K3S_3016FM locations, Flag 3 of APP record 'K3S_3016 COPY_ALL'
0285.00 tells us if we should skip writing K_PRODLNK records
0286.00 for locations that do NOT have the from or to
0287.00 products (Flag3=1 = Yes, skip writing when not found).
0288.00 Also, when Flag3=1 and we skip writing records, show a
0289.00 large warning in red telling the users which locations
0290.00 were bypassed.
0291.00
0292.00 (Patty at Core-Mark)
0293.00 39) K3S_3020 - Safety Stock simulator. New APP record
0294.00 K3S_3020FM 'K3S_3020 DEV_UPDATE' controls if buyer can update
0295.00 product deviation directly.
0296.00
0297.00 (Debbie at Variety)
0298.00 40) K3S_3025 - New capability to reverse sequence used when calculating
0299.00 Manual Min/Max. Effective in Store Level processing.
0300.00
0301.00 41) K3S_3030X1 - Exit to Daily Sales - expanded program. Took out
0302.00 unneccesary statements.
0303.00
0304.00 (new K3S function)
0305.00 42) K3S_3040 - New Product Forecast Change type of 'I' will Ignore
0306.00 Period End snapshots when displaying data.
0307.00
0308.00 43) K3S_3085 - Populate expanded fields in file K_PRODSEDX which
0309.00 gets emailed via CSV.
0310.00
0311.00 44) K3S_3090 - When a closed Batch is being opened, adjust the
0312.00 'Records to display' to show all records.
0313.00
0314.00 45) K3S_3110 - For batches of PE6 thru PE9, create them with
0315.00 Status of 'C' Closed, based upon flag settings.
0316.00
0317.00 46) K3S_3301 - Several programs affected due to the expanded
0318.00 K3S_3340* K_RNKPRD and K_RNKSPL files which will email more info
0319.00 K3S_3351 in the CSV file when user runs reports. All programs
0320.00 K3S_3764* are just a recompile unless noted with an asterisk*.
0321.00 K3S_3765
0322.00 K3S_4040
0323.00 K3S_4041
0324.00 K3S_4141
0325.00
0326.00 47) K3S_3360 - Capture days that a Due order has been left sitting.
0327.00 - Don't penalize buyer on Purchase Adjustments for
0328.00 Temporary records from options 1,3,4 from 'Add to order',
0329.00 or on the 1st day a product is added from option 2 from
0330.00 'Add to order'.
0331.00
0332.00 48) K3S_3439 - For batch WP2, go ahead and create them with
0333.00 Status of 'C' Closed
0334.00
0335.00 49) K3S_3920 - Change to use PF K_DLYPROD instead of LF
0336.00 K_DLYPRODA. Output instead of Update, Add.
0337.00
0338.00 50) K3S_4500CL - K_RANKPRD and K_RANKSPL not needed in these programs
0339.00 K3S_4500 so the source for these files was removed.
0340.00 K3S_4501CL
0341.00 K3S_4501
0342.00
0343.00 (House-Hasson)
0344.00 51) K3S_5050 - New capability to use either 2 decimals or
0345.00 K3S_5051 4 decimals when calculating allowance percents.
0346.00
0347.00 (new K3S function)
0348.00 52) K3S_8000 - by-pass using any products with PR_LOCN = '*SUM'
0349.00 from totals.
0350.00
0351.00 (Ryan at Raben Tires)
0352.00 53) K3S_8011 - Add 3 message lines for a transfer to file
0353.00 K3s_8011FM K_PRODOVR.
0354.00 these programs only re-compiled, no logic chg:
0355.00 K3S_4500
0356.00 K3S_4501
0357.00 K3S_8000
0358.00 K3S_8010
0359.00 K3S_8020
0360.00 K3S_9505
0361.00 this program in K3S_5MOD for customer who use it:
0362.00 K3S_8100
0363.00
0364.00
0365.00 54) K3S_8520 - Cosmetic clean up for screen fields
0366.00
0367.00 (Raben)
0368.00 55) K3S_8530 - Write log record to new file K_TRCPLOG when adding
0369.00 new K_TRANCPY record.
0370.00
0371.00 (Raben)
0372.00 56) K3S_8540 - Call new logging program K3S_8547, not K3S_3041.
0373.00 We were running into an issue of not logging all
0374.00 changes because we did not have unique timestamp.
0375.00 Also, change descriptoin passed to K3S_8547
0376.00 provides more detail.
0377.00
0378.00 (Raben)
0379.00 57) K3S_8547 - New log add program to write records to K_PRODFOR
0380.00 when product moved into a hub.
0381.00
0382.00 (Raben)
0383.00 58) K3S_8550 - Write log record to new file K_TRCPLOG when deleting
0384.00 K_TRANCPY record.
0385.00
0386.00 (Raben)
0387.00 59) K3S_8557 - New program to write log records to K_TRCPLOG file.
0388.00
0389.00
0390.00 60) K3S_9011 - Suplsub needed in keylist to add product daytime for
0391.00 customers who pass suplsub in night job.
0392.00
0393.00 61) K3S_9259 - Enable display of color RED, and exclude from
0394.00 K3S_9259FM demand accumulation
0395.00 - Enable some customer environments to use different
0396.00 value building key list for SUPL,SUPLSUB
0397.00 K3S_9259SM - Logic for customers using Locn *SUM
0398.00
0399.00 62) K3S_9260 - Accumulate bottles into cases for K_INTPROD
0400.00
0401.00 63) K3S_9505 - Recompiled for change to file K_PRODOVR
0402.00
0403.00 -----------------------------------------------------------------------
0404.00 Physical & logical files added/changed/deleted in release for K3S_5DTA
0405.00 -----------------------------------------------------------------------
0406.00
0407.00 There were 2 Physical files & 2 Logical files added in this release.
0408.00
0409.00 K_INTDALYF LF Interface for Daily Demand Feed - by PROD for LOCN *SUM
0410.00 K_NITETOT PF Night Job totals for select agenda tasks
0411.00 K_NITETOTA LF Night Job totals for select agenda tasks
0412.00 K_TRCPLOG PF Transfer Sys Log of Changes to K_TRANCPY
0413.00
0414.00 There were 6 Physical files & 4 Logical files changed in this release.
0415.00 *1 file needed to save data
0416.00 K_PRODOVR PF*Product Overstock Transfer requests new fields
0417.00 K_PRODOVRA LF Product Overstock Transfer requests
0418.00 K_PRODOVRB LF Product Overstock Transfer requests
0419.00 K_PRODOVRC LF Product Overstock Transfer requests
0420.00 K_PRODOVRD LF Product Overstock Transfer requests
0421.00 K_PRODSEDX PF Product Selected for Review work file new fields
0422.00 K_RANKPRD PF Ranking products for reports new fields
0423.00 K_RANKPRDX PF Ranking products for reports new fields
0424.00 K_RANKSPL PF Ranking suppliers for reports new fields
0425.00 K_RANKSPLX PF Ranking suppliers for reports new fields
0426.00
0427.00 (both K_RANKPRDX and K_RANKSPLX were created using CRTDUPOBJ
0428.00 on K_RANKPRD and K_RANKSPL and then using CHGPF
0429.00 to set MAXMBRS = *NOMAX)
0430.00
0431.00 There were 4 Logical files deleted in this release.
0432.00 K_DLYPRODB LF Daily Products by FORCYR,FORCPER,DLYSALE
0433.00 K_DLYPRODC LF Daily Products by FORCYR,FORCPER,DLYOUTS
0434.00 K_DLYPRODD LF Daily Products by BIRTH (Descend)
0435.00 K_DLYPRODE LF Daily Products by LOCN,SUPLUSR,PROD,BIRTH,BATCH
0436.00
0437.00 -both K_DLYPRODB and K_DLYPRODC were only used in program
0438.00 K3S_1043, which was not used by any customers consistently.
0439.00 Source for both LFs along with source for K3S_1043 & FM moved
0440.00 to K3S_5MOD if a customer wants to re-enable that function.
0441.00
0442.00 -K_DLYPRODD was only used in program K3S_9505, and the code was
0443.00 reworked to not need that logical.
0444.00
0445.00 -K_DLYPRODE was only used in program K3S_1046, and the code was
0446.00 reworked to not need that logical.
0447.00
0448.00 After this release installed, there should be exactly 492 objects
0449.00 in library K3S_5DTA (data files library) (Rel 5.2 had 492 objects)
0450.00
0451.00 -----------------------------------------------------------------------
0452.00 Programs and Files in library K3S_MOD530
0453.00 -----------------------------------------------------------------------
0454.00
0455.00 -- RPGLE
0456.00 K3S_CVRT22 New Table Code entries
0457.00 K3S_SUMHIS Add new product history records for LOCN *SUM
0458.00 K3S_SUMPRD Automatic add of products Consolidated LOCN *SUM
0459.00 K3S_SUMQTY Get qty OH & OO by LOCN for _9940
0460.00 K3S_SUMSUP Automatic add of suppliers Consolidated LOCN *SUM
0461.00 K3S_SUMSYN One time Sync of PTD in K_PRODUCT for LOCN *SUM
0462.00 K3S_1043 Product manage daily information from Menu 0020
0463.00 K3S_1050 Suggested Order Approval
0464.00 K3S_1050AU Suggested Order automaatic approvel
0465.00 K3S_1050PB Suggested Order batch approval
0466.00 K3S_9259 Display daily demand - expanded
0467.00 K3S_9259SM Display daily demand - expanded logic for LOCN *SUM
0468.00 K3S_9260 Accumulate bottles into cases for K_INTPROD
0469.00
0470.00 -- CLLE
0471.00 K3S_RESTOR K3S GUI. Restore updates.
0472.00 K3S_1043CL Manage Daily Information
0473.00 K3S_3030X1 Exit from K3S_3030 for F18=Sales inquiry
0474.00
0475.00 -- CMD
0476.00 none
0477.00
0478.00 -- DSPF
0479.00 K3S_1043FM Manage Daily Information from Menu 0020
0480.00 K3S_9259FM Daily demand display - expanded
0481.00
0482.00 -- DDS logical files used with RPG program K3S_1043
0483.00 K_DLYPRODB Daily Products sequenced by daily sales
0484.00 K_DLYPRODC Daily Products sequenced by daily outs
0485.00
0486.00 -----------------------------------------------------------------------
0487.00 Special instructions for all customers
0488.00 -----------------------------------------------------------------------
0489.00
0490.00 1. K_RANKPRD
0491.00 with changes to K_RANKPRD to expand fields, double check that no
0492.00 custom code developed in K3S_5MOD for a customer. Specifically
0493.00 you can FNDSTRPDM for K_RANKPRD in QRPGLESRC/K3S_5MOD, and if an
0494.00 RPG program was developed, re-compile it for new file signature.
0495.00 The following two customers will need this process:
0496.00 S. Abraham & Sons
0497.00 Southco Distributing
0498.00
0499.00 2. K3S_1043CL
0500.00 use 3=Copy on the source and object from K3S_530MOD to K3S_5MOD
0501.00
0502.00 3. K3S_1050 (some customers may use K3S_1050AU and/or K3S_1050PB)
0503.00 there are two adjustments to be made:
0504.00 a. new capability for Fixed Cycle to handle every 6 weeks
0505.00 b. clear counter field SP_USERN1 that shows how many days buyer let
0506.00 due order sit without ordering.
0507.00
0508.00 -----------------------------------------------------------------------
0509.00 Special instructions for some customers
0510.00 -----------------------------------------------------------------------
0511.00
0512.00 Duncan Supply
0513.00 Add back DPG - BUYERS K3S_4031 - Product Group Service Level Targets
0514.00
0515.00 Raben Tires
0516.00 has K_TRCPLOG in K3S_5MOD. Copy off prior to install, then copy back.
0517.00
0518.00 Raben Tires & House-Hasson Hardware
0519.00 Copy off K_PRODOVR prior to install, then copy back.
0520.00
0521.00 FJ Wadden
0522.00 Apply new K3S_1040 protect capability
0523.00
0524.00 Store Level customers, turn off APP 'PE_SNPSHOT' collection,
0525.00 which is APP record 'K3S_9010 PE_SNPSHOT' set Flag 1 = 0
0526.00
0527.00 -----------------------------------------------------------------------
