RE: Tabbed files for 3rd party vendor

["John Cunha" <John.Cunha@xxxxxxxxxxxx>]

Thanks John,
Can you please let me know what is the layout of the value which goes
into TOSTMF(&TOSTMF) -->To stream file?
Thanks,
John Cunha
NGR

>-----Original Message-----
>From: John Brandt Sr. [mailto:pgmr@xxxxxxxxxxxxxxx]
>Sent: July 25, 2003 1:20 PM
>To: 'RPG programming on the AS400 / iSeries'
>Subject: RE: Tabbed files for 3rd party vendor
>
>Do it programmatically using a variable defined as a hex 5. The output
>file,
>if you look from the iSeries side, will be a hex 09.
>DCL        VAR(&TAB) TYPE(*CHAR) LEN(1) VALUE(X'05')
>CPYTOIMPF  FROMFILE(&FROMLIB/&FROMFILE &FROMMBR) +
>             TOSTMF(&TOSTMF) RCDDLM(*CRLF) FLDDLM(&TAB)
>You get the idea.
>I created a copy of CPYTOIMPF of my own to allow named delimiters.
>John Brandt
>iStudio400.com
>
>
>-----Original Message-----
>From: John Cunha [mailto:John.Cunha@xxxxxxxxxxxx]
>Sent: Friday, July 25, 2003 11:53 AM
>To: RPG programming on the AS400 / iSeries
>Subject: Tabbed files for 3rd party vendor
>
>
>Here's my challenge:
>
>I am looking for a way (procedure) to take a PF DDS described file tab
>it and sent it as flat file (.GO) to another server.
>
>We have one way of doing that which is writing a program per file and
>add X'05' between the fields to insert the tabs. This solution is quite
>cumbersome and time consuming due to the number of files that need to
be
>transferred.
>
>
>
>Ps. CPYTOIMPF does seem to work since it only has '|' not a real *TAB!
>
>
>
>....5..
>
>RS- A- 45
>
>DE0C0FF
>
>9251545
>
>
>
>Any suggestions?
>
>Thanks for the help.
>
>John Cunha
>
>NGR
>
>_______________________________________________
>
>>This is the RPG programming on the AS400 / 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.
>
>
>
>_______________________________________________
>This is the RPG programming on the AS400 / 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.
>
>---
>Incoming mail is certified Virus Free.
>Checked by AVG anti-virus system (http://www.grisoft.com).
>Version: 6.0.504 / Virus Database: 302 - Release Date: 7/24/03
>
>
>---
>Outgoing mail is certified Virus Free.
>Checked by AVG anti-virus system (http://www.grisoft.com).
>Version: 6.0.502 / Virus Database: 300 - Release Date: 7/18/03
>
>_______________________________________________
>This is the RPG programming on the AS400 / 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.