jimjung27
Active Member
I have a need to read a flat file into a JDE Table (F0911Z1) and need the ability to choose different locations by UBE version in the Processing Options. I am trying to use B76B0220 but can't get it to work. I think I'm close. Anyone see something wrong?
Here's my code:
PO szPathFilenameExtension = ltrim(rtrim([PO szPathFilenameExtension],' '),' ' )
VA rpt_FilePointer_GENLNG = 0
//
Open Flat File
VA rpt_ErrorCode_ERRC <- cErrorCode
VA rpt_ErrMsgID_DTAI <- szErrorMessageId
"1" -> cAppendMode
VA rpt_FilePointer_GENLNG <- idFilePtr
PO szPathFilenameExtension -> szFilePath
Fetch Next Line from Flat File
PO szPathFilenameExtension -> szFlatFileName
VA rpt_FilePointer_GENLNG <> idFilePtr
VA rpt_Text2000_DESCR <- szFlatFileRecord
"2000" -> mnRecordLength
VA rpt_ErrorCode_ERRC <- cErrorCode
VA rpt_ErrMsgID_DTAI <- szErrorMessageID
While VA rpt_FilePointer_GENLNG is not equal to "0"
Fetch Next Line from Flat File
PO szPathFilenameExtension -> szFlatFileName
VA rpt_FilePointer_GENLNG <> idFilePtr
VA rpt_Text2000_DESCR <- szFlatFileRecord
"2000" -> mnRecordLength
VA rpt_ErrorCode_ERRC <- cErrorCode
VA rpt_ErrMsgID_DTAI <- szErrorMessageID
End While
//
Close Flat File
VA rpt_ErrorCode_ERRC <- cErrorCode
VA rpt_ErrMsgID_DTAI <- szErrorMessageId
VA rpt_FilePointer_GENLNG -> idFilePtr
Here's my code:
PO szPathFilenameExtension = ltrim(rtrim([PO szPathFilenameExtension],' '),' ' )
VA rpt_FilePointer_GENLNG = 0
//
Open Flat File
VA rpt_ErrorCode_ERRC <- cErrorCode
VA rpt_ErrMsgID_DTAI <- szErrorMessageId
"1" -> cAppendMode
VA rpt_FilePointer_GENLNG <- idFilePtr
PO szPathFilenameExtension -> szFilePath
Fetch Next Line from Flat File
PO szPathFilenameExtension -> szFlatFileName
VA rpt_FilePointer_GENLNG <> idFilePtr
VA rpt_Text2000_DESCR <- szFlatFileRecord
"2000" -> mnRecordLength
VA rpt_ErrorCode_ERRC <- cErrorCode
VA rpt_ErrMsgID_DTAI <- szErrorMessageID
While VA rpt_FilePointer_GENLNG is not equal to "0"
Fetch Next Line from Flat File
PO szPathFilenameExtension -> szFlatFileName
VA rpt_FilePointer_GENLNG <> idFilePtr
VA rpt_Text2000_DESCR <- szFlatFileRecord
"2000" -> mnRecordLength
VA rpt_ErrorCode_ERRC <- cErrorCode
VA rpt_ErrMsgID_DTAI <- szErrorMessageID
End While
//
Close Flat File
VA rpt_ErrorCode_ERRC <- cErrorCode
VA rpt_ErrMsgID_DTAI <- szErrorMessageId
VA rpt_FilePointer_GENLNG -> idFilePtr