JDE Technical : July 2018

Listing of ER for Report: Report : HAVI Daily PB Load Staging File (R58D0001)

=======================================================================
SECTION: HAVI Daily PB [GROUP SECTION] (S3)
=======================================================================
OBJECT: SECTION
EVENT: Initialize Section
-----------------------------------------------------------------------
OPT: Using Defaults
0001 //
0006 //
0007 // Dhana-CSC-09/27/2017-Call the New Item Report R58D0001A
0008 // If the Item is new received in the HAVI daily file, process those records
0009 // in the seperate report
0010 //
0011 // This report will read the daily product book csv file from inbound HAVI
0012 // IFS folder and write data in to JDE staging file F58D0001.
0013 //
0014 // Validate the Processing Option Version Name, If the version name is BLANK
0015 // do not process the report.
0016 If PO szR58D0003Version is greater than <Blank>
0017 //
0018 Else
0019 Stop Batch Processing
0020 End If
0021 //
0022 //
0023 VA rpt_58_szProgramId_PID = "R58D0001"
0024 Get Audit Information
VA rpt_58_szUserId_USER <- BF szUserName
VA rpt_58_jdDateApprDate_APVDTE <- BF jdDate
VA rpt_58_mnTimeOfDay_TDAY <- BF mnTime
VA rpt_58_szWorkStationId_JOBN <- BF szWorkstation_UserId
0025 VA rpt_58_cDelimiter_EV01 = ","
0026 VA rpt_58_mnSegmentNumber_MATH01 = 0
0027 VA rpt_58_mnRecordCount_MATH01 = 0
0028 VA rpt_58_mnReadCount_MATH01 = 0
0029 VA rpt_58_mnUniqueKeyID_UKID = "0"
0030 VA rpt_58_cProcessedFlag_EV01 = " "
0031 //
0032 PO 58_szFile_Path_NFLF = concat([PO 58_szFile_Path_NFLF],[PO 58_szFileName_EXFN])

-----------------------------------------------------------------------
EVENT: Do Section
-----------------------------------------------------------------------
OPT: Using Defaults
0001 //
0002 //
0003 Fetch Next Line from Flat File
PO 58_szFile_Path_NFLF -> BF szFlatFileName
VA rpt_58_sidGenericLong_GENLNG <> BF idFilePtr
VA rpt_58_szFlatfileRecord_VAR1 <- BF szFlatFileRecord
"1500" -> BF mnRecordLength
0004 While VA rpt_58_sidGenericLong_GENLNG is not equal to <Zero>
0005 //
0006 // Effective Date ~ Z57EFFD
0007 VA rpt_58_mnSegmentNumber_MATH01 = 0
0008 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szEffectiveDate_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0009 Convert String to Math Numeric
VA rpt_58_szEffectiveDate_DTAI -> BF szInputString
VA rpt_58_mnEffectiveDate_GPBT <- BF mnOutputMathNumeric
0010 Convert a julian date to jdedate
VA rpt_58_jdEffectiveDate_Z57EFFD <- BF jdDateToConvert
VA rpt_58_mnEffectiveDate_GPBT -> BF mnJulianDateInYYYYDDD
0011 //
0012 // Long Address Number ~ ALKY
0013 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0014 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szLongAddressNum_ALKY <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0015 Strip Special Characters from String
VA rpt_58_szLongAddressNum_ALKY -> BF szInputString
VA rpt_58_szLongAddressNum_ALKY <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0016 VA rpt_58_szLongAddressNum_ALKY = ltrim(rtrim([VA rpt_58_szLongAddressNum_ALKY]," ")," ")
0017 //
0018 // Customer Currency ~ Y57CCUR
0019 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0020 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szCustCuurency_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0021 Strip Special Characters from String
VA rpt_58_szCustCuurency_DTAI -> BF szInputString
VA rpt_58_szCustCuurency_DTAI <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0022 VA rpt_58_szCustCuurency_DTAI = ltrim(rtrim([VA rpt_58_szCustCuurency_DTAI]," ")," ")
0023 VA rpt_58_szCustrCurrency_Y57CCUR = [VA rpt_58_szCustCuurency_DTAI]
0024 //
0025 // Base Currency Code ~ BCRC
0026 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0027 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szBaseCurrCode_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0028 Strip Special Characters from String
VA rpt_58_szBaseCurrCode_DTAI -> BF szInputString
VA rpt_58_szBaseCurrCode_DTAI <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0029 VA rpt_58_szBaseCurrCode_DTAI = ltrim(rtrim([VA rpt_58_szBaseCurrCode_DTAI]," ")," ")
0030 VA rpt_58_szBaseCurrencyCode_BCRC = [VA rpt_58_szBaseCurrCode_DTAI]
0031 //
0032 // Currency Conversion Rate ~ CRR
0033 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0034 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szCurrCovRate_DSC1 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0035 Convert String to Math Numeric
VA rpt_58_szCurrCovRate_DSC1 -> BF szInputString
VA rpt_58_szCurrencyConvRate_CRR <- BF mnOutputMathNumeric
0036 //
0037 // Terms By Product ~ Y57CTBP
0038 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0039 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szTermsByProduct_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0040 Strip Special Characters from String
VA rpt_58_szTermsByProduct_DTAI -> BF szInputString
VA rpt_58_szTermsByProduct_DTAI <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0041 VA rpt_58_szTermsByProduct_DTAI = ltrim(rtrim([VA rpt_58_szTermsByProduct_DTAI]," ")," ")
0042 VA rpt_58_cTermsByProduct_Y57CTBP = [VA rpt_58_szTermsByProduct_DTAI]
0043 //
0044 // Vendor Number ~ Z57VEND
0045 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0046 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szVendorNumber_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0047 Convert String to Math Numeric
VA rpt_58_szVendorNumber_DTAI -> BF szInputString
VA rpt_58_mnVendorNumber_Z57VEND <- BF mnOutputMathNumeric
0048 //
0049 // Vendor Name ~ Z57VNAM
0050 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0051 ! Parse Text String
! VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
! VA rpt_58_szVendorName_Z57VNAM <- BF szOutputObjectSegment
! VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
! VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0052 ! Strip Special Characters from String
! VA rpt_58_szVendorName_Z57VNAM -> BF szInputString
! VA rpt_58_szVendorName_Z57VNAM <- BF szStrippedString
! """ -> BF szOtherCharsToStrip
0053 Do Custom Section(RS Ignore Comma Inside the String)
0054 VA rpt_58_szVendorName_Z57VNAM = ltrim(rtrim([VA rpt_TXLN_ReqString]," ")," ")
0055 //
0056 // Order Quantity ~ Y57EOQS
0057 ! VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0058 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szOrderQty_DSC1 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0059 Convert String to Math Numeric
VA rpt_58_szOrderQty_DSC1 -> BF szInputString
VA rpt_58_mnOrderQuantity_Y57EOQS <- BF mnOutputMathNumeric
0060 //
0061 // Vendor Audit Text ~ Y57VQA
0062 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0063 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szVendorAuditTxt_Y57VQA <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0064 Strip Special Characters from String
VA rpt_58_szVendorAuditTxt_Y57VQA -> BF szInputString
VA rpt_58_szVendorAuditTxt_Y57VQA <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0065 VA rpt_58_szVendorAuditTxt_Y57VQA = ltrim(rtrim([VA rpt_58_szVendorAuditTxt_Y57VQA]," ")," ")
0066 //
0067 // Mode of Transport ~ MOT
0068 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0069 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szModeOfTransport_MOT <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0070 Strip Special Characters from String
VA rpt_58_szModeOfTransport_MOT -> BF szInputString
VA rpt_58_szModeOfTransport_MOT <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0071 VA rpt_58_szModeOfTransport_MOT = ltrim(rtrim([VA rpt_58_szModeOfTransport_MOT]," ")," ")
0072 //
0073 // Transit Leadtime ~ TRLT
0074 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0075 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szTransitLeadTime_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0076 Convert String to Math Numeric
VA rpt_58_szTransitLeadTime_DTAI -> BF szInputString
VA rpt_58_mnTransitLeadtime_TRLT <- BF mnOutputMathNumeric
0077 //
0078 // Preparation Time ~ Y57PREP
0079 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0080 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szPrepTime_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0081 Convert String to Math Numeric
VA rpt_58_szPrepTime_DTAI -> BF szInputString
VA rpt_58_mnPrepTime_Y57PREP <- BF mnOutputMathNumeric
0082 //
0083 // Delivered Minimum ~ Y57DLMN
0084 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0085 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szDeliveredMin_DSC1 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0086 Convert String to Math Numeric
VA rpt_58_szDeliveredMin_DSC1 -> BF szInputString
VA rpt_58_mnDeliveredMin_Y57DLMN <- BF mnOutputMathNumeric
0087 //
0088 // Delivered Maximum ~ Y57DLMX
0089 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0090 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szDeliveredMax_DSC1 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0091 Convert String to Math Numeric
VA rpt_58_szDeliveredMax_DSC1 -> BF szInputString
VA rpt_58_mnDeliveredMax_Y57DLMX <- BF mnOutputMathNumeric
0092 //
0093 // Backhaul Minimum ~ Y57BHMN
0094 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0095 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_BackhaulMin_DSC1 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0096 Convert String to Math Numeric
VA rpt_58_BackhaulMin_DSC1 -> BF szInputString
VA rpt_58_mnBackhaulMin_Y57BHMN <- BF mnOutputMathNumeric
0097 //
0098 // Backhaul Maximum ~ Y57BHMX
0099 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0100 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szBackhaulMax_DSC1 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0101 Convert String to Math Numeric
VA rpt_58_szBackhaulMax_DSC1 -> BF szInputString
VA rpt_58_mnBackhaulMax_Y57BHMX <- BF mnOutputMathNumeric
0102 //
0103 // Unit of Measure ~ Y57UOM
0104 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0105 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szUnitOfMeasure_Y57UOM <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0106 Strip Special Characters from String
VA rpt_58_szUnitOfMeasure_Y57UOM -> BF szInputString
VA rpt_58_szUnitOfMeasure_Y57UOM <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0107 VA rpt_58_szUnitOfMeasure_Y57UOM = ltrim(rtrim([VA rpt_58_szUnitOfMeasure_Y57UOM]," ")," ")
0108 //
0109 // Change Date ~ CHD
0110 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0111 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szChangeDate_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0112 Convert String to Math Numeric
VA rpt_58_szChangeDate_DTAI -> BF szInputString
VA rpt_58_mnChangeDate_GPBT <- BF mnOutputMathNumeric
0113 Convert a julian date to jdedate
VA rpt_58_jdDateChange_CHD <- BF jdDateToConvert
VA rpt_58_mnChangeDate_GPBT -> BF mnJulianDateInYYYYDDD
0114 //
0115 // 2nd Item Number ~ LITM
0116 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0117 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_sz2ndItemNumber_LITM <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0118 Strip Special Characters from String
VA rpt_58_sz2ndItemNumber_LITM -> BF szInputString
VA rpt_58_sz2ndItemNumber_LITM <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0119 VA rpt_58_sz2ndItemNumber_LITM = ltrim(rtrim([VA rpt_58_sz2ndItemNumber_LITM]," ")," ")
0120 //
0121 // Description ~ DSC1
0122 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0123 ! Parse Text String
! VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
! VA rpt_58_szDescription_DSC1 <- BF szOutputObjectSegment
! VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
! VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0124 ! Strip Special Characters from String
! VA rpt_58_szDescription_DSC1 -> BF szInputString
! VA rpt_58_szDescription_DSC1 <- BF szStrippedString
! """ -> BF szOtherCharsToStrip
0125 Do Custom Section(RS Ignore Comma Inside the String)
0126 VA rpt_58_szDescription_DSC1 = ltrim(rtrim([VA rpt_TXLN_ReqString]," ")," ")
0127 //
0128 // Unit of Measure - Primary ~ UOM1
0129 ! VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0130 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szUOMPrimary_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0131 Strip Special Characters from String
VA rpt_58_szUOMPrimary_DTAI -> BF szInputString
VA rpt_58_szUOMPrimary_DTAI <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0132 VA rpt_58_szUOMPrimary_DTAI = ltrim(rtrim([VA rpt_58_szUOMPrimary_DTAI]," ")," ")
0133 VA rpt_58_szUnitOfMesPY_UOM1 = [VA rpt_58_szUOMPrimary_DTAI]
0134 //
0135 // Case Pack Quantity ~ Y57CPQ
0136 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0137 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szCasePackQty_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0138 Convert String to Math Numeric
VA rpt_58_szCasePackQty_DTAI -> BF szInputString
VA rpt_58_mnCasePackQty_Y57CPQ <- BF mnOutputMathNumeric
0139 //
0140 // Inner Pack Count ~ Y57IPC
0141 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0142 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szInnerPackCount_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0143 Convert String to Math Numeric
VA rpt_58_szInnerPackCount_DTAI -> BF szInputString
VA rpt_58_mnInnerPackCount_Y57IPC <- BF mnOutputMathNumeric
0144 //
0145 // Shelf Life ~ Y57LIF
0146 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0147 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szShelfLife_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0148 Convert String to Math Numeric
VA rpt_58_szShelfLife_DTAI -> BF szInputString
VA rpt_58_mnShelfLife_Y57LIF <- BF mnOutputMathNumeric
0149 //
0150 // Temperature Zone ~ Y57TZO
0151 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0152 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szTempZone_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0153 Strip Special Characters from String
VA rpt_58_szTempZone_DTAI -> BF szInputString
VA rpt_58_szTempZone_DTAI <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0154 VA rpt_58_szTempZone_DTAI = ltrim(rtrim([VA rpt_58_szTempZone_DTAI]," ")," ")
0155 VA rpt_58_cTempeZone_Y57TZO = [VA rpt_58_szTempZone_DTAI]
0156 //
0157 // MCD G/L AccountCode ~ Y57GLA
0158 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0159 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szMCDGLAccCode_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0160 Convert String to Math Numeric
VA rpt_58_szMCDGLAccCode_DTAI -> BF szInputString
VA rpt_58_mnMCDGLAcCCode_Y57GLA <- BF mnOutputMathNumeric
0161 //
0162 // Status Code ~ Y57STS
0163 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0164 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szStatusCode_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0165 Strip Special Characters from String
VA rpt_58_szStatusCode_DTAI -> BF szInputString
VA rpt_58_szStatusCode_DTAI <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0166 VA rpt_58_szStatusCode_DTAI = ltrim(rtrim([VA rpt_58_szStatusCode_DTAI]," ")," ")
0167 VA rpt_58_cStatusCode_Y57STS = [VA rpt_58_szStatusCode_DTAI]
0168 //
0169 // Item Audit Text ~ Y57ITA
0170 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0171 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szItemAuditText_Y57ITA <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0172 Strip Special Characters from String
VA rpt_58_szItemAuditText_Y57ITA -> BF szInputString
VA rpt_58_szItemAuditText_Y57ITA <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0173 VA rpt_58_szItemAuditText_Y57ITA = ltrim(rtrim([VA rpt_58_szItemAuditText_Y57ITA]," ")," ")
0174 //
0175 // Case Gross Weight ~ Y57CGW
0176 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0177 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szCaseGrossWt_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0178 Convert String to Math Numeric
VA rpt_58_szCaseGrossWt_DTAI -> BF szInputString
VA rpt_58_mnCaseGrossWt_Y57CGW <- BF mnOutputMathNumeric
0179 //
0180 // Weight Unit of Measure ~ Y57WUM
0181 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0182 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szWeightUOM_Y57WUM <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0183 Strip Special Characters from String
VA rpt_58_szWeightUOM_Y57WUM -> BF szInputString
VA rpt_58_szWeightUOM_Y57WUM <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0184 VA rpt_58_szWeightUOM_Y57WUM = ltrim(rtrim([VA rpt_58_szWeightUOM_Y57WUM]," ")," ")
0185 //
0186 // Case Cube ~ Y57CCU
0187 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0188 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szCaseCube_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0189 Convert String to Math Numeric
VA rpt_58_szCaseCube_DTAI -> BF szInputString
VA rpt_58_mnCaseCube_Y57CCU <- BF mnOutputMathNumeric
0190 //
0191 // Cube Unit of Measure ~ Y57CUM
0192 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0193 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szCubeUOM_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0194 Strip Special Characters from String
VA rpt_58_szCubeUOM_DTAI -> BF szInputString
VA rpt_58_szCubeUOM_DTAI <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0195 VA rpt_58_szCubeUOM_DTAI = ltrim(rtrim([VA rpt_58_szCubeUOM_DTAI]," ")," ")
0196 VA rpt_58_szCubeUOM_Y57CUM = [VA rpt_58_szCubeUOM_DTAI]
0197 //
0198 // Case Length ~ Y57CLN
0199 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0200 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szCaseLength_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0201 Convert String to Math Numeric
VA rpt_58_szCaseLength_DTAI -> BF szInputString
VA rpt_58_mnCaseLength_Y57CLN <- BF mnOutputMathNumeric
0202 //
0203 // Case Width ~ Y57CWD
0204 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0205 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szCaseWidth_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0206 Convert String to Math Numeric
VA rpt_58_szCaseWidth_DTAI -> BF szInputString
VA rpt_58_mnCaseWidth_Y57CWD <- BF mnOutputMathNumeric
0207 //
0208 // Case Height ~ Y57CHT
0209 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0210 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szCaseHeight_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0211 Convert String to Math Numeric
VA rpt_58_szCaseHeight_DTAI -> BF szInputString
VA rpt_58_mnCaseHeight_Y57CHT <- BF mnOutputMathNumeric
0212 //
0213 // Dimension Unit of Measure ~ Y57DUM
0214 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0215 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szDimensionUOM_Y57DUM <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0216 Strip Special Characters from String
VA rpt_58_szDimensionUOM_Y57DUM -> BF szInputString
VA rpt_58_szDimensionUOM_Y57DUM <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0217 VA rpt_58_szDimensionUOM_Y57DUM = ltrim(rtrim([VA rpt_58_szDimensionUOM_Y57DUM]," ")," ")
0218 //
0219 // Cases Per Tier ~ Y57CPT
0220 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0221 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szCasesPerTier_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0222 Convert String to Math Numeric
VA rpt_58_szCasesPerTier_DTAI -> BF szInputString
VA rpt_58_mnCasesPerTier_Y57CPT <- BF mnOutputMathNumeric
0223 //
0224 // Tiers Per Unit Load ~ Y57TPL
0225 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0226 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szTiersPerUtLoad_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0227 Convert String to Math Numeric
VA rpt_58_szTiersPerUtLoad_DTAI -> BF szInputString
VA rpt_58_mnTiersPerUtLoad_Y57TPL <- BF mnOutputMathNumeric
0228 //
0229 // Payment Terms - A/R ~ TRAR
0230 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0231 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szPaymentTerms_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0232 Strip Special Characters from String
VA rpt_58_szPaymentTerms_DTAI -> BF szInputString
VA rpt_58_szPaymentTerms_DTAI <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0233 VA rpt_58_szPaymentTerms_DTAI = ltrim(rtrim([VA rpt_58_szPaymentTerms_DTAI]," ")," ")
0234 VA rpt_58_szPaymentTermsAR_TRAR = [VA rpt_58_szPaymentTerms_DTAI]
0235 //
0236 // Category Code 6 ~ SRP6
0237 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0238 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szSalesRepCode6_SRP6 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0239 Strip Special Characters from String
VA rpt_58_szSalesRepCode6_SRP6 -> BF szInputString
VA rpt_58_szSalesRepCode6_SRP6 <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0240 VA rpt_58_szSalesRepCode6_SRP6 = ltrim(rtrim([VA rpt_58_szSalesRepCode6_SRP6]," ")," ")
0241 //
0242 // Buyer Name ~ Z57BNAM
0243 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0244 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szBuyerName_Z57BNAM <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0245 Strip Special Characters from String
VA rpt_58_szBuyerName_Z57BNAM -> BF szInputString
VA rpt_58_szBuyerName_Z57BNAM <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0246 VA rpt_58_szBuyerName_Z57BNAM = ltrim(rtrim([VA rpt_58_szBuyerName_Z57BNAM]," ")," ")
0247 //
0248 // Deliver Price ~ Y57NRTL
0249 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0250 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szDeliverPrice_DSC1 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0251 Convert String to Math Numeric
VA rpt_58_szDeliverPrice_DSC1 -> BF szInputString
VA rpt_58_mnDeliverPrice_Y57NRTL <- BF mnOutputMathNumeric
0252 VA rpt_58_mnDeliverPrice_Y57NRTL = [VA rpt_58_mnDeliverPrice_Y57NRTL]/100
0253 //
0254 // Price Change Audit Text ~ Y57PCA
0255 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0256 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szPrcChgAudTxt_Y57PCA <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0257 Strip Special Characters from String
VA rpt_58_szPrcChgAudTxt_Y57PCA -> BF szInputString
VA rpt_58_szPrcChgAudTxt_Y57PCA <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0258 VA rpt_58_szPrcChgAudTxt_Y57PCA = ltrim(rtrim([VA rpt_58_szPrcChgAudTxt_Y57PCA]," ")," ")
0259 //
0260 // BackHaul Price ~ Y57VPBH
0261 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0262 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szBackhaulPrice_DSC1 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0263 Convert String to Math Numeric
VA rpt_58_szBackhaulPrice_DSC1 -> BF szInputString
VA rpt_58_mnBackHaulPrice_Y57VPBH <- BF mnOutputMathNumeric
0264 VA rpt_58_mnBackHaulPrice_Y57VPBH = [VA rpt_58_mnBackHaulPrice_Y57VPBH]/100
0265 //
0266 // BackHaul Audit Text ~ Y57VPA
0267 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0268 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szBackhaulAudTxt_Y57VPA <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0269 Strip Special Characters from String
VA rpt_58_szBackhaulAudTxt_Y57VPA -> BF szInputString
VA rpt_58_szBackhaulAudTxt_Y57VPA <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0270 VA rpt_58_szBackhaulAudTxt_Y57VPA = ltrim(rtrim([VA rpt_58_szBackhaulAudTxt_Y57VPA]," ")," ")
0271 //
0272 // Product Price ~ Y57PUPP
0273 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0274 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szProductPrice_DSC1 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0275 Convert String to Math Numeric
VA rpt_58_szProductPrice_DSC1 -> BF szInputString
VA rpt_58_mnProductPrice_Y57PUPP <- BF mnOutputMathNumeric
0276 VA rpt_58_mnProductPrice_Y57PUPP = [VA rpt_58_mnProductPrice_Y57PUPP]/100
0277 //
0278 // Alpha Spec. Data 10 ~ AA10
0279 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0280 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szAlphaSpecData10_AA10 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0281 Strip Special Characters from String
VA rpt_58_szAlphaSpecData10_AA10 -> BF szInputString
VA rpt_58_szAlphaSpecData10_AA10 <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0282 VA rpt_58_szAlphaSpecData10_AA10 = ltrim(rtrim([VA rpt_58_szAlphaSpecData10_AA10]," ")," ")
0283 //
0284 // Batch Number ~ GPBT
0285 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0286 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szBatchNumber_DSC1 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0287 Convert String to Math Numeric
VA rpt_58_szBatchNumber_DSC1 -> BF szInputString
VA rpt_58_mnBatchNumber_GPBT <- BF mnOutputMathNumeric
0288 //
0289 // Vendor Preference Number ~ Y57VPRF
0290 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0291 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szVendorPrefNumber_DSC1 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0292 Convert String to Math Numeric
VA rpt_58_szVendorPrefNumber_DSC1 -> BF szInputString
VA rpt_58_mnVendorPrefNo_Y57VPRF <- BF mnOutputMathNumeric
0293 //
0294 // Sub Section ~ SRP2
0295 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0296 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szSRP2Code_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0297 Strip Special Characters from String
VA rpt_58_szSRP2Code_DTAI -> BF szInputString
VA rpt_58_szSRP2Code_DTAI <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0298 VA rpt_58_szSRP2Code_DTAI = ltrim(rtrim([VA rpt_58_szSRP2Code_DTAI]," ")," ")
0299 VA rpt_58_szSalesRepCode_SRP2 = [VA rpt_58_szSRP2Code_DTAI]
0300 //
0301 // Description ~ DL01
0302 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0303 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szDescription_DL01 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0304 Strip Special Characters from String
VA rpt_58_szDescription_DL01 -> BF szInputString
VA rpt_58_szDescription_DL01 <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0305 VA rpt_58_szDescription_DL01 = ltrim(rtrim([VA rpt_58_szDescription_DL01]," ")," ")
0306 //
0307 // Date - Expired ~ EXDJ
0308 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0309 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szDateExpired_EXDJ <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0310 Convert String to Math Numeric
VA rpt_58_szDateExpired_EXDJ -> BF szInputString
VA rpt_58_mnDateExpired_GPBT <- BF mnOutputMathNumeric
0311 Convert a julian date to jdedate
VA rpt_58_jdDateExpired_EXDJ <- BF jdDateToConvert
VA rpt_58_mnDateExpired_GPBT -> BF mnJulianDateInYYYYDDD
0312 //
0313 // Complete ~ YNCP
0314 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0315 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szCompleteYesorNo_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0316 Strip Special Characters from String
VA rpt_58_szCompleteYesorNo_DTAI -> BF szInputString
VA rpt_58_szCompleteYesorNo_DTAI <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0317 VA rpt_58_szCompleteYesorNo_DTAI = ltrim(rtrim([VA rpt_58_szCompleteYesorNo_DTAI]," ")," ")
0318 VA rpt_58_cComplete_YNCP = [VA rpt_58_szCompleteYesorNo_DTAI]
0319 //
0320 // Date - Updated ~ UPMJ
0321 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0322 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szDateUpdated_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0323 Convert String to Math Numeric
VA rpt_58_szDateUpdated_DTAI -> BF szInputString
VA rpt_58_mnDateUpdated_GPBT <- BF mnOutputMathNumeric
0324 Convert a julian date to jdedate
VA rpt_58_jdDateUpdated_UPMJ <- BF jdDateToConvert
VA rpt_58_mnDateUpdated_GPBT -> BF mnJulianDateInYYYYDDD
0325 //
0326 // Any Valid Value ~ ANY
0327 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0328 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szAnyValue_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0329 Strip Special Characters from String
VA rpt_58_szAnyValue_DTAI -> BF szInputString
VA rpt_58_szAnyValue_DTAI <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0330 VA rpt_58_szAnyValue_DTAI = ltrim(rtrim([VA rpt_58_szAnyValue_DTAI]," ")," ")
0331 VA rpt_58_cAnyValue_ANY = [VA rpt_58_szAnyValue_DTAI]
0332 //
0333 // Time - Last Updated ~ UPMT
0334 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0335 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szTimeLastUpdated_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0336 Convert String to Math Numeric
VA rpt_58_szTimeLastUpdated_DTAI -> BF szInputString
VA rpt_58_mnTimeLastUpdated_UPMT <- BF mnOutputMathNumeric
0337 //
0338 // Complete ~ COMPLETE
0339 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0340 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szComplete_COMPLETE <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0341 Strip Special Characters from String
VA rpt_58_szComplete_COMPLETE -> BF szInputString
VA rpt_58_szComplete_COMPLETE <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0342 VA rpt_58_szComplete_COMPLETE = ltrim(rtrim([VA rpt_58_szComplete_COMPLETE]," ")," ")
0343 VA rpt_58_cComplete_COMPLETE = [VA rpt_58_szComplete_COMPLETE]
0344 //
0345 // Storage Temperature Low ~ Y57TLO
0346 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0347 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szStorageTempLow_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0348 Convert String to Math Numeric
VA rpt_58_szStorageTempLow_DTAI -> BF szInputString
VA rpt_58_mnStorageTempLow_Y57TLO <- BF mnOutputMathNumeric
0349 //
0350 // Storage Temperature High ~ Y57THI
0351 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0352 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szStorgTempHigh_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0353 Convert String to Math Numeric
VA rpt_58_szStorgTempHigh_DTAI -> BF szInputString
VA rpt_58_mnStorgTempHigh_Y57THI <- BF mnOutputMathNumeric
0354 //
0355 // Cases Conversion Factor ~ Y57CSCN
0356 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0357 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szCaseConvFactor_DSC1 <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0358 Convert String to Math Numeric
VA rpt_58_szCaseConvFactor_DSC1 -> BF szInputString
VA rpt_58_mnConvFactCase_Y57CSCN <- BF mnOutputMathNumeric
0359 //
0360 // Sent Flag ~ GIFS
0361 VA rpt_58_mnSegmentNumber_MATH01 = [VA rpt_58_mnSegmentNumber_MATH01]+1
0362 Parse Text String
VA rpt_58_szFlatfileRecord_VAR1 -> BF szInputText
VA rpt_58_szSentFlag_DTAI <- BF szOutputObjectSegment
VA rpt_58_mnSegmentNumber_MATH01 -> BF mnSegmentNumber
VA rpt_58_cDelimiter_EV01 -> BF cDelimiter
0363 Strip Special Characters from String
VA rpt_58_szSentFlag_DTAI -> BF szInputString
VA rpt_58_szSentFlag_DTAI <- BF szStrippedString
""" -> BF szOtherCharsToStrip
0364 VA rpt_58_szSentFlag_DTAI = ltrim(rtrim([VA rpt_58_szSentFlag_DTAI]," ")," ")
0365 VA rpt_58_cSentFlag_GIFS = [VA rpt_58_szSentFlag_DTAI]
0366 //
0367 VA rpt_58_mnReadCount_MATH01 = [VA rpt_58_mnReadCount_MATH01]+1
0368 VA rpt_58_mnUniqueKeyID_UKID = [VA rpt_58_mnUniqueKeyID_UKID]+1
0369 //
0370 // Insert records in to staging file F58D0001
0371 //
0372 F58D0001.Insert
VA rpt_58_jdEffectiveDate_Z57EFFD -> TK Perseco Effective Date
VA rpt_58_szLongAddressNum_ALKY -> TK Long Address Number
VA rpt_58_szCustrCurrency_Y57CCUR -> TK Customer Currency
VA rpt_58_szBaseCurrencyCode_BCRC -> TK Currency Code - Base
VA rpt_58_szCurrencyConvRate_CRR -> TK Currency Conversion Rate - Spot Rate
VA rpt_58_cTermsByProduct_Y57CTBP -> TK Terms By Product
VA rpt_58_mnVendorNumber_Z57VEND -> TK Vendor Number
VA rpt_58_szVendorName_Z57VNAM -> TK Vendor Name
VA rpt_58_mnOrderQuantity_Y57EOQS -> TK Order Quantity
VA rpt_58_szVendorAuditTxt_Y57VQA -> TK Vendor Audit Text
VA rpt_58_szModeOfTransport_MOT -> TK Mode of Transport
VA rpt_58_mnTransitLeadtime_TRLT -> TK Transit Leadtime
VA rpt_58_mnPrepTime_Y57PREP -> TK Preparation Time
VA rpt_58_mnDeliveredMin_Y57DLMN -> TK Delivered Minimum
VA rpt_58_mnDeliveredMax_Y57DLMX -> TK Delivered Maximum
VA rpt_58_mnBackhaulMin_Y57BHMN -> TK Backhaul Minimum
VA rpt_58_mnBackhaulMax_Y57BHMX -> TK Backhaul Maximum
VA rpt_58_szUnitOfMeasure_Y57UOM -> TK Unit of Measure
VA rpt_58_jdDateChange_CHD -> TK Change Date
VA rpt_58_sz2ndItemNumber_LITM -> TK 2nd Item Number
VA rpt_58_szDescription_DSC1 -> TK Description
VA rpt_58_szUnitOfMesPY_UOM1 -> TK Unit of Measure - Primary
VA rpt_58_mnCasePackQty_Y57CPQ -> TK Case Pack Quantity
VA rpt_58_mnInnerPackCount_Y57IPC -> TK Inner Pack Count
VA rpt_58_mnShelfLife_Y57LIF -> TK Shelf Life
VA rpt_58_cTempeZone_Y57TZO -> TK Temperature Zone
VA rpt_58_mnMCDGLAcCCode_Y57GLA -> TK MCD G/L AccountCode
VA rpt_58_cStatusCode_Y57STS -> TK Status Code
VA rpt_58_szItemAuditText_Y57ITA -> TK Item Audit Text
VA rpt_58_mnCaseGrossWt_Y57CGW -> TK Case Gross Weight
VA rpt_58_szWeightUOM_Y57WUM -> TK Weight Unit of Measure
VA rpt_58_mnCaseCube_Y57CCU -> TK Case Cube
VA rpt_58_szCubeUOM_Y57CUM -> TK Cube Unit of Measure
VA rpt_58_mnCaseLength_Y57CLN -> TK Case Length
VA rpt_58_mnCaseWidth_Y57CWD -> TK Case Width
VA rpt_58_mnCaseHeight_Y57CHT -> TK Case Height
VA rpt_58_szDimensionUOM_Y57DUM -> TK Dimention Unit of Measure
VA rpt_58_mnCasesPerTier_Y57CPT -> TK Cases Per Tier
VA rpt_58_mnTiersPerUtLoad_Y57TPL -> TK Tiers Per Unit Load
VA rpt_58_szPaymentTermsAR_TRAR -> TK Payment Terms - A/R
VA rpt_58_szSalesRepCode6_SRP6 -> TK Category Code 6
VA rpt_58_szBuyerName_Z57BNAM -> TK Buyer Name
VA rpt_58_mnDeliverPrice_Y57NRTL -> TK Deliver Price
VA rpt_58_szPrcChgAudTxt_Y57PCA -> TK Price Change Audit Text
VA rpt_58_mnBackHaulPrice_Y57VPBH -> TK BackHaul Price
VA rpt_58_szBackhaulAudTxt_Y57VPA -> TK BackHaul Audit Text
VA rpt_58_mnProductPrice_Y57PUPP -> TK Product Price
VA rpt_58_szAlphaSpecData10_AA10 -> TK Alpha Spec. Data 10
VA rpt_58_mnBatchNumber_GPBT -> TK Batch Number
VA rpt_58_mnVendorPrefNo_Y57VPRF -> TK Vendor Preference Number
VA rpt_58_szSalesRepCode_SRP2 -> TK Sub Section
VA rpt_58_szDescription_DL01 -> TK Description
VA rpt_58_jdDateExpired_EXDJ -> TK Date - Expired
VA rpt_58_cComplete_YNCP -> TK Complete
VA rpt_58_jdDateUpdated_UPMJ -> TK Date - Updated
VA rpt_58_cAnyValue_ANY -> TK Any Valid Value
VA rpt_58_mnTimeLastUpdated_UPMT -> TK Time - Last Updated
VA rpt_58_cComplete_COMPLETE -> TK Complete
VA rpt_58_mnStorageTempLow_Y57TLO -> TK Storage Temperature Low
VA rpt_58_mnStorgTempHigh_Y57THI -> TK Storage Temperature High
VA rpt_58_mnConvFactCase_Y57CSCN -> TK Cases Conversion Factor
VA rpt_58_cSentFlag_GIFS -> TK Sent Flag
VA rpt_58_szUserId_USER -> TK User ID
VA rpt_58_szProgramId_PID -> TK Program ID
VA rpt_58_jdDateApprDate_APVDTE -> TK Approved Date
VA rpt_58_mnTimeOfDay_TDAY -> TK Time of Day
VA rpt_58_szWorkStationId_JOBN -> TK Work Station ID
VA rpt_58_mnUniqueKeyID_UKID -> TK Unique Key ID (Internal)
0373 //
0374 // GSFX0090 Insert Records into F58D0003 MARKO 11/15/2017 --Begin
0375 // Retrive the branch plant from UDC 58|HV
0376 If VA rpt_szALKYtoGetMCU_ALKY is not equal to VA rpt_58_szLongAddressNum_ALKY
0377 VA rpt_szALKYtoGetMCU_ALKY = lpad([VA rpt_58_szLongAddressNum_ALKY],"0",3)
0378 Get UDC
"58" -> BF szSystemCode
"HV" -> BF szRecordTypeCode
VA rpt_szALKYtoGetMCU_ALKY -> BF szUserDefinedCode
VA rpt_szCostCenter_MCU <- BF szDescription001
0379 Format Business Unit
VA rpt_szCostCenter_MCU -> BF szUnformattedBU
VA rpt_szCostCenter_MCU <- BF szFormattedBU
0380 End If
0381 If VA rpt_58_szPrcChgAudTxt_Y57PCA is greater than <Blank> Or VA rpt_58_szBackhaulAudTxt_Y57VPA is greater than <Blank> Or VA rpt_58_szVendorAuditTxt_Y57VQA is greater than <Blank> Or VA rpt_58_szItemAuditText_Y57ITA is greater than <Blank>
0382 F58D0003.Insert
VA rpt_58_jdEffectiveDate_Z57EFFD -> TK Perseco Effective Date
VA rpt_szCostCenter_MCU -> TK Business Unit
VA rpt_58_szLongAddressNum_ALKY -> TK Long Address Number
VA rpt_58_szCustrCurrency_Y57CCUR -> TK Customer Currency
VA rpt_58_szBaseCurrencyCode_BCRC -> TK Currency Code - Base
VA rpt_58_szCurrencyConvRate_CRR -> TK Currency Conversion Rate - Spot Rate
VA rpt_58_cTermsByProduct_Y57CTBP -> TK Terms By Product
VA rpt_58_mnVendorNumber_Z57VEND -> TK Vendor Number
VA rpt_58_szVendorName_Z57VNAM -> TK Vendor Name
VA rpt_58_mnOrderQuantity_Y57EOQS -> TK Order Quantity
VA rpt_58_szVendorAuditTxt_Y57VQA -> TK Vendor Audit Text
VA rpt_58_szModeOfTransport_MOT -> TK Mode of Transport
VA rpt_58_mnTransitLeadtime_TRLT -> TK Transit Leadtime
VA rpt_58_mnPrepTime_Y57PREP -> TK Preparation Time
VA rpt_58_mnDeliveredMin_Y57DLMN -> TK Delivered Minimum
VA rpt_58_mnDeliveredMax_Y57DLMX -> TK Delivered Maximum
VA rpt_58_mnBackhaulMin_Y57BHMN -> TK Backhaul Minimum
VA rpt_58_mnBackhaulMax_Y57BHMX -> TK Backhaul Maximum
VA rpt_58_szUnitOfMeasure_Y57UOM -> TK Unit of Measure
VA rpt_58_jdDateChange_CHD -> TK Change Date
VA rpt_58_sz2ndItemNumber_LITM -> TK 2nd Item Number
VA rpt_58_szDescription_DSC1 -> TK Description
VA rpt_58_szUnitOfMesPY_UOM1 -> TK Unit of Measure - Primary
VA rpt_58_mnCasePackQty_Y57CPQ -> TK Case Pack Quantity
VA rpt_58_mnInnerPackCount_Y57IPC -> TK Inner Pack Count
VA rpt_58_mnShelfLife_Y57LIF -> TK Shelf Life
VA rpt_58_cTempeZone_Y57TZO -> TK Temperature Zone
VA rpt_58_mnMCDGLAcCCode_Y57GLA -> TK MCD G/L AccountCode
VA rpt_58_cStatusCode_Y57STS -> TK Status Code
VA rpt_58_szItemAuditText_Y57ITA -> TK Item Audit Text
VA rpt_58_mnCaseGrossWt_Y57CGW -> TK Case Gross Weight
VA rpt_58_szWeightUOM_Y57WUM -> TK Weight Unit of Measure
VA rpt_58_mnCaseCube_Y57CCU -> TK Case Cube
VA rpt_58_szCubeUOM_Y57CUM -> TK Cube Unit of Measure
VA rpt_58_mnCaseLength_Y57CLN -> TK Case Length
VA rpt_58_mnCaseWidth_Y57CWD -> TK Case Width
VA rpt_58_mnCaseHeight_Y57CHT -> TK Case Height
VA rpt_58_szDimensionUOM_Y57DUM -> TK Dimention Unit of Measure
VA rpt_58_mnCasesPerTier_Y57CPT -> TK Cases Per Tier
VA rpt_58_mnTiersPerUtLoad_Y57TPL -> TK Tiers Per Unit Load
VA rpt_58_szPaymentTermsAR_TRAR -> TK Payment Terms - A/R
VA rpt_58_szSalesRepCode6_SRP6 -> TK Category Code 6
VA rpt_58_szBuyerName_Z57BNAM -> TK Buyer Name
VA rpt_58_mnDeliverPrice_Y57NRTL -> TK Deliver Price
VA rpt_58_szPrcChgAudTxt_Y57PCA -> TK Price Change Audit Text
VA rpt_58_mnBackHaulPrice_Y57VPBH -> TK BackHaul Price
VA rpt_58_szBackhaulAudTxt_Y57VPA -> TK BackHaul Audit Text
VA rpt_58_mnProductPrice_Y57PUPP -> TK Product Price
VA rpt_58_szAlphaSpecData10_AA10 -> TK Alpha Spec. Data 10
VA rpt_58_mnBatchNumber_GPBT -> TK Batch Number
VA rpt_58_mnVendorPrefNo_Y57VPRF -> TK Vendor Preference Number
VA rpt_58_szSalesRepCode_SRP2 -> TK Sub Section
VA rpt_58_szDescription_DL01 -> TK Description
VA rpt_58_jdDateExpired_EXDJ -> TK Date - Expired
VA rpt_58_cComplete_YNCP -> TK Complete
VA rpt_58_jdDateUpdated_UPMJ -> TK Date - Updated
VA rpt_58_cAnyValue_ANY -> TK Any Valid Value
VA rpt_58_mnTimeLastUpdated_UPMT -> TK Time - Last Updated
VA rpt_58_cComplete_COMPLETE -> TK Complete
VA rpt_58_mnStorageTempLow_Y57TLO -> TK Storage Temperature Low
VA rpt_58_mnStorgTempHigh_Y57THI -> TK Storage Temperature High
VA rpt_58_mnConvFactCase_Y57CSCN -> TK Cases Conversion Factor
VA rpt_58_cSentFlag_GIFS -> TK Sent Flag
VA rpt_58_szUserId_USER -> TK User ID
VA rpt_58_szProgramId_PID -> TK Program ID
VA rpt_58_jdDateApprDate_APVDTE -> TK Approved Date
VA rpt_58_mnTimeOfDay_TDAY -> TK Time of Day
VA rpt_58_szWorkStationId_JOBN -> TK Work Station ID
0383 End If
0384 VA rpt_szALKYtoGetMCU_ALKY = VA rpt_58_szLongAddressNum_ALKY
0385 // GSFX0090 Insert Records into F58D0003 MARKO 11/15/2017 --End
0386 //
0387 If SV File_IO_Status is equal to CO SUCCESS
0388 VA rpt_58_mnRecordCount_MATH01 = [VA rpt_58_mnRecordCount_MATH01]+1
0389 VA rpt_58_cProcessedFlag_EV01 = "Y"
0390 End If
0391 //
0392 Fetch Next Line from Flat File
PO 58_szFile_Path_NFLF -> BF szFlatFileName
VA rpt_58_sidGenericLong_GENLNG <> BF idFilePtr
VA rpt_58_szFlatfileRecord_VAR1 <- BF szFlatFileRecord
"1500" -> BF mnRecordLength
0393 //
0394 End While
0395 //
0396 //
0397 RV PB Generation Date = VA rpt_58_jdDateUpdated_UPMJ
0398 RV Total Records Read = VA rpt_58_mnReadCount_MATH01
0399 RV Total Records Insert = VA rpt_58_mnRecordCount_MATH01
0400 //

-----------------------------------------------------------------------
EVENT: End Section
-----------------------------------------------------------------------
OPT: Using Defaults
0001 // Call the report R58D0003, to send out the e-mails to DCs for the processed
0002 // records.
0003 //
0008 // Should kickoff when read and write count is greater than zero
0009 VA rpt_TXLN_EmailSubject = concat('HAVI Daily PB Staging File Upload Dated -',[RV PB Generation Date])
0010 //
0011 VA rpt_DS01_EmailBody = concat(concat('Total Records Read: ',[RV Total Records Read]),concat(' Total Records Inserted: ',[RV Total Records Insert]))
0012 //
0013 If PO szManagerEmailAddress is greater than <Blank>
0014 If RV Total Records Read is not equal to RV Total Records Insert
0015 Send HRM Email
"no-reply@DPPurchasing_MCD.com" -> BF szFromEmailAddress
PO szManagerEmailAddress -> BF szToEmailAddress
VA rpt_TXLN_EmailSubject -> BF szSubject
VA rpt_DS01_EmailBody -> BF szEmailBodyString
0016 End If
0017 End If
0018 //
0019 //
0020 If RV Total Records Read is greater than <Zero> And RV Total Records Insert is greater than <Zero>
0021 Call( UBE:R58D0003 , Ver: PO szR58D0003Version )
VA rpt_58_jdDateUpdated_UPMJ -> RI jdDateUpdated
PO szManagerEmailAddress -> RI szFROM
0022 //
0023 If PO szR58D0001AVersion is greater than <Blank>
0024 Call( UBE:R58D0001A , Ver: PO szR58D0001AVersion )
RV PB Generation Date -> RI jdApprovedDate
0025 End If
0026 //
0027 End If
0028 //
0030 //
0031 Delete Or Copy Flat File
PO 58_szFile_Path_NFLF -> BF szOriginalFlatFile
"1" -> BF cActionOnFlatFiles

Thursday July 26, 2018 03:51

JDE Technical

Thursday, 26 July 2018

How to Read the CSV File and insert into JDE table?