RE: Tabbed files for 3rd party vendor

["Haas, Matt" <Matt.Haas@xxxxxxxxxxxxxxxxxxx>]

John,

Maybe, but not in the way I think you're thinking it will. This parameter is 
the path to the IFS of the exported file. Since OS/400 has no concept of drive 
letters, all this will do (assuming a colon is valid in a file name in the file 
system where the current directory is located) is put a file called 
"c:filename" in the current directory for the user running the command.

What you should consider doing is specifying and absolute path for the file. 
Let say you are doing this for My Co, Inc and export files normally go into a 
directory called /exports. You could, in the CL, build a name that ends up 
being "/export/mycoinc/filename" and then use FTP, map network drives, or 
e-mail it as an attachment from this location. If you really want to be clever, 
you could even make the CL create the directories if they don't exist.

If you set up your system to remote mount non-native file systems (like a 
Novell share or even an NTFS share), you could copy it directly to the 
destination but that's not a topic for RPG-L.

Matt

-----Original Message-----
From: John Cunha [mailto:John.Cunha@xxxxxxxxxxxx]
Sent: Friday, July 25, 2003 2:08 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Tabbed files for 3rd party vendor


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.


_______________________________________________
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.