Adrian_Chimirel
Legendary Poster
The Search site returns way too many posts ... can't use it (tried flat + file, text + file, read + text, ....)
I want to read a flat file but B76B0220 Fetch Next Line From Fat File returns error code = 1. This is my code:
Listing of ER for Report: Report : Load Ceridian (Payroll) Flat File (R560904)
=======================================================================
SECTION: Driver [GROUP SECTION] (S3)
=======================================================================
OBJECT: SECTION
EVENT: Do Section
-----------------------------------------------------------------------
0001 // Open Flat File
0002 Open Flat File
RV Error Code <- cErrorCode
RV Error Message <- szErrorMessageId
<Zero> -> cAppendMode
VA rpt_mnFilePointer_GENLNG <- idFilePtr
VA rpt_szPathAndFile_EFRM -> szFilePath
0003 RV File Pointer = VA rpt_mnFilePointer_GENLNG
0004 While VA rpt_szFlatFileRecord_FFRC is not equal to <Blank> And VA rpt_szFlatFileRecord_FFRC is not equal to <Null>
0005 // Fetch Line from Flat File while it returns a record
0006 Fetch Next Line from Flat File
VA rpt_szPathAndFile_EFRM -> szFlatFileName
VA rpt_mnFilePointer_GENLNG -> idFilePtr
VA rpt_szFlatFileRecord_FFRC <- szFlatFileRecord
VA rpt_mnRecordLength_RCLN <- mnRecordLength
RV Error Code <- cErrorCode
RV Error Message <- szErrorMessageID
0007 RV My File Record = VA rpt_szFlatFileRecord_FFRC
0008 If RV Error Code is equal to <Zero>
0009 Do Custom Section(RS My Text File Upload)
0010 VA rpt_mnRecordCounter1_CNR1 = [VA rpt_mnRecordLength_RCLN]+1
0011 End If
0012 End While
0013 Close Flat File
RV Error Code <- cErrorCode
RV Error Message <- szErrorMessageId
VA rpt_mnFilePointer_GENLNG -> idFilePtr
Friday March 06, 2009 15:37
I want to read a flat file but B76B0220 Fetch Next Line From Fat File returns error code = 1. This is my code:
Listing of ER for Report: Report : Load Ceridian (Payroll) Flat File (R560904)
=======================================================================
SECTION: Driver [GROUP SECTION] (S3)
=======================================================================
OBJECT: SECTION
EVENT: Do Section
-----------------------------------------------------------------------
0001 // Open Flat File
0002 Open Flat File
RV Error Code <- cErrorCode
RV Error Message <- szErrorMessageId
<Zero> -> cAppendMode
VA rpt_mnFilePointer_GENLNG <- idFilePtr
VA rpt_szPathAndFile_EFRM -> szFilePath
0003 RV File Pointer = VA rpt_mnFilePointer_GENLNG
0004 While VA rpt_szFlatFileRecord_FFRC is not equal to <Blank> And VA rpt_szFlatFileRecord_FFRC is not equal to <Null>
0005 // Fetch Line from Flat File while it returns a record
0006 Fetch Next Line from Flat File
VA rpt_szPathAndFile_EFRM -> szFlatFileName
VA rpt_mnFilePointer_GENLNG -> idFilePtr
VA rpt_szFlatFileRecord_FFRC <- szFlatFileRecord
VA rpt_mnRecordLength_RCLN <- mnRecordLength
RV Error Code <- cErrorCode
RV Error Message <- szErrorMessageID
0007 RV My File Record = VA rpt_szFlatFileRecord_FFRC
0008 If RV Error Code is equal to <Zero>
0009 Do Custom Section(RS My Text File Upload)
0010 VA rpt_mnRecordCounter1_CNR1 = [VA rpt_mnRecordLength_RCLN]+1
0011 End If
0012 End While
0013 Close Flat File
RV Error Code <- cErrorCode
RV Error Message <- szErrorMessageId
VA rpt_mnFilePointer_GENLNG -> idFilePtr
Friday March 06, 2009 15:37