RE: Tabbed files for 3rd party vendor

Just expanding on what Matt just said, (even thought he didn't want it 
mentioned on the rpg list).  You create a directory called /QNTC on your 
iSeries and then, (other settings being correct) you should be save the 
file to a pc with //QNTC/mypcname/mysharename... providing you have a 
share on that PC.  See the midrange-l archives for QNTC.

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 





"Haas, Matt" <Matt.Haas@xxxxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/25/2003 01:26 PM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     "RPG programming on the AS400 / iSeries" 
<rpg400-l@xxxxxxxxxxxx>
        cc: 
        Fax to: 
        Subject:        RE: Tabbed files for 3rd party vendor


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.


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