Hi SureshKumar,
I Created lot of Batches. Here i am sending event rules of one of my
batch. It may help full to you.
Here we use Business Function "Fetch Next Line from Flat File"
v WO Information Interface transfers work order released from PS-
P(Flat File Information) to E1 for processing of MRP messages in E1.
The Flat file information is divided into the Header record, which has
to update in to F4801 and Routing record, which had to be update in
F3112 in E1.
=D8 // Read flat file specified in the processing option
=D8 Fetch Next Line from Flat File
=D8 PO szVariableLengthField1 -> szFlatFileName
=D8 VA sec_idGenericLong_GENLNG <> idFilePtr
=D8 VA sec_szFlatFileRecord_APTA <- szFlatFileRecord
=D8 "100" -> mnRecordLength
=D8 VA sec_cEverestEventPoint01_EV01 <- cErrorCode
=D8 // Read flat file until the END of the file
=D8 While VA sec_cEverestEventPoint01_EV01 is equal to <Zero>
o VA rpt_szIdentifier2ndItem_LITM =3D substr([VA
sec_szFlatFileRecord_APTA],0,9)
o VA rpt_szFillerSpaces_AA09 =3D substr([VA sec_szFlatFileRecord_APTA ],9,9)
o VA rpt_szPLCCategory_PLC =3D substr([VA sec_szFlatFileRecord_APTA], 18,3)
o VA rpt_szDispoBulletin_AA10 =3D substr([VA
sec_szFlatFileRecord_APTA],21,10)
o Convert String to Math Numeric
=D8 VA rpt_szDispoBulletin_AA10 -> szInputString
=D8 VA rpt_mnDispoBulletin_DOCO <- mnOutputMathNumeric
o VA rpt_szActiondate_AA10 =3D substr([VA sec_szFlatFileRecord_APTA], 31,10)
=D8 ! VA rpt_szsubstryear_AA04 =3D substr([VA rpt_szActiondate_AA10 ],31,4)
=D8 ! VA rpt_szsubstring_AA05 =3D substr([VA rpt_szActiondate_AA10] ,36,5)
=D8 ! VA rpt_szconvertedstr_VC10A =3D concat(concat([VA
rpt_szsubstring_AA05],'-'),[VA rpt_szsubstryear_AA04])
o Convert String to Date Using Format Mask
=D8 VA rpt_jdFSCActionDate_FSCACJ <- ConvertedDate
=D8 VA rpt_szActiondate_AA10 -> StringToConvert
=D8 "OSASE" -> FormatMask
o VA rpt_szFSCDirection_FSCD =3D substr([VA sec_szFlatFileRecord_APTA ],41,2)
o VA rpt_szFillerspaces_AA06 =3D substr([VA sec_szFlatFileRecord_APTA ],43,6)
o F552203.Insert
=D8 VA rpt_szIdentifier2ndItem_LITM -> TK 2nd Item Number
=D8 VA rpt_mnDispoBulletin_DOCO -> TK Document (Order No, Invoice, etc .)
=D8 VA rpt_jdFSCActionDate_FSCACJ -> TK Date - FSC Action
=D8 VA rpt_szFSCDirection_FSCD -> TK FSC Direction
=D8 VA rpt_szPLCCategory_PLC -> TK PLC Category
o Fetch Next Line from Flat File
=D8 PO szVariableLengthField1 -> szFlatFileName
=D8 VA sec_idGenericLong_GENLNG <> idFilePtr
=D8 VA sec_szFlatFileRecord_APTA <- szFlatFileRecord
=D8 "100" -> mnRecordLength
=D8 VA sec_cEverestEventPoint01_EV01 <- cErrorCode
o End While
Thanks.........
fields?
--
Bindu K