Re: Writing and FTP'ing IFS Stream File -- RPG400-L

Scott,
Changed to: callp write(fd: %addr(edata): %len(%trimr(edata));
Makes more sense and works just fine. And as to “why would you do that?” well…… some days you just don’t see the forest through the trees :)

Thanks,
MLR

On Aug 26, 2015, at 4:21 PM, Mary Lynn Riggins <cmcdmlr@xxxxxxx> wrote:

Scott,

Thank you for your kind insights. And I must admit that this is the first time I’ve actually taken on the task of writing to the IFS directly, usually I’ve used the CPYTOIMPF or CPYTOSTMF, but being that the client had restrictions about the CRLF that’s what took me down this path, and fumbling a bit to start with as you can see. The edata field is a field from a file that is populated during the program and then written to the file, but I see what you are saying.

As for the conversion - yes it would make sense to create it with 819 on one hand, on the other hand, if I create it as 37 and convert to another file, which is the file that will be sent to the client and then removed from the IFS, I will have the original on the IFS folder in a format that is readable as a reference if the client has questions about the data and/or file sent.

Thank you,
MLR

On Aug 26, 2015, at 2:55 PM, Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> wrote:

Hello Mary,

Yes, you should %trim() the filename like Raul said.. sounds like you're all set there...

Two other things you mentioned are bothering me, though. The first is this one:

wrdata = %trim(edata);
callp write(fd: %addr(wrdata): %len(%trim(wrdata)));

What is the point behind the %trim(edata) and copy into wrdata? Assuming that wrdata is a fixed-length variable, you are trimming off the blanks and then just adding them right back on again when they are assigned to wrdata. why would you do that?

Instead, consider doing this:

callp write(fd: %addr(edata): %len(%trimr(edata));

Or else, consider using a VARYING/VARCHAR field. (Actually, it's my opinion that RPGers should be using VARYING/VARCHAR for most things these days..)

The other thing is this:

iconv -f 37 -t 819 /edi/out/myfolder/edi7850.txt > /edi/out/pleatco/edi7850c.txt &&setccsid 819 /edi/out/myfolder/edi7850c.txt

Why are you doing that? You're telling it to duplicate the entire file and translate it. If you want the data in CCSID 819, why not just tell the open() API to write it in CCSID 819 in the first place? What does it gain you to write it in 37, then copy it to another file in 819?

Just change your flags like this:

flags = O_WRONLY + O_CREAT + O_TRUNC + O_CCSID + O_TEXTDATA + O_TEXT_CREAT

And your open() call like this:

fd = open(filename : flags : mode: 819: 0);

If there's an existing file in the IFS, delete it to start fresh. Now the open() API will automatically translate data to 819 when writing it, and automatically translate from 819 to the job ccsid when reading it. No need for the extra copying of the file...

-SK

On 8/25/2015 12:23 PM, Mary Lynn Riggins wrote:

Need some help with IFS stream file.

Client requires a file to be sent to them with no trailing spaces and no CRLF or EOR.

I thought the best way to accomplish this was to write to a stream file on the IFS directly from RPGLE program and then FTP stream file to client from CL program.

The program does create the stream file. I can see it using WRKLNK and can display that there is data, however when trying to FTP the file, I get the error message:

“No such path or directory: /edi/out/myfolder/edi7850.txt. The directory or a component of the path name does not exist.”

Also receive CPFA0A9 Object not found when trying to use IFS command on file. Also receive error message when trying to use QShell to convert ccsid:

iconv: 001-0023 Error found opening file /edi/out/myfolder/edi7850.txt.

However, if manually using WRKLNK green screen, I use option 7- Rename, and rename the file I can then successfully work with the file and use the QShell command and FTP the file. So, there must be something I’m missing when creating the file to begin with. If anyone can lend some insight I would appreciate it.

RPG Code to write to IFS:

**********************************************************************

* Write the IFS Ascii file directly

**********************************************************************

/free

begsr writeIFS;

flags = O_WRONLY + O_CREAT + O_TRUNC;

mode = S_IRUSR + S_IWUSR + S_IRGRP + S_IROTH + S_IWOTH;

filename = '/edi/out/myfolder/edi7850.txt';

fd = open(filename : flags : mode);

if fd < 0;

Msg = 'open() : failed for writing';

eval *Inlr = *on;

return;

endif;

// write the line of data to the IFS file

wrdata = %trim(edata);

callp write(fd: %addr(wrdata): %len(%trim(wrdata)));

//close the file

callp close(fd);

endsr;

Qshell Command used for conversion:

iconv -f 37 -t 819 /edi/out/myfolder/edi7850.txt > /edi/out/pleatco/edi7850c.txt &&setccsid 819 /edi/out/myfolder/edi7850c.txt

Thanks in advance for any help or insights.

MLR

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