RE: Tabbed files for 3rd party vendor

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

John,
Can it be something like this:

TOSTMF('c:tabbedfile') 

>-----Original Message-----
>From: John Cunha
>Sent: July 25, 2003 1:53 PM
>To: 'RPG programming on the AS400 / iSeries'
>Subject: RE: Tabbed files for 3rd party vendor
>
>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.