We just finished a project doing this.
We made a work file defined as
R IMPF
DATA 4096
In RPG did this
D Tab C x'05'
EVAL Data = Mhcrs1 + TAB +
Mhcrs2 + Mhcrs3 + TAB +
Mhsec + TAB +
Desc + TAB +
Instructor + TAB +
M + T + W + H + F + S + U + TAB +
Mdbldg + TAB +
Mdroom + TAB +
Start_Time + TAB +
End_Time + TAB +
Start_Date + TAB +
End_Date + TAB +
%editc(Attendance:'X')
WRITE Impf
In CL did this
/* Copy the temporary import work file to the IFS directory */
CPYTOIMPF FROMFILE(QTEMP/UTPIMPF) TOSTMF(&TOSTMF) +
MBROPT(*REPLACE) STMFCODPAG(*PCASCII) +
RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM(*NONE) +
STRESCCHR(*NONE) RMVBLANK(*TRAILING) +
FLDDLM(*TAB)
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Richard Reeve
Sent: Thursday, July 17, 2014 11:13 AM
To: RPG programming on the AS400 / iSeries
Subject: Help creating a pipe delimited file
All,
I need to build an extract file from the I that will end up being a pipe delimited text file. My issues are as follows;
1. There are multiple record types (with unique formats per record type).
2. The delimited file needs to be ordered by employee and record type
I am struggling to come up with an efficient way of doing this. Any thoughts or suggestions would be much appreciated.
Sincerely,
Richard Reeve
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
