Welcome to Code400.com    Okay...We all like to get free stuff..Right?!? Well thats what we are offering here....Free Stuff Free storage for your source code. Post Your Source Free access to code samples. (site search) Free place to ask questions or just say what you want.  Share your thoughts We are interested in what you have to say. If you can’t find what your’e looking for on this site....   Tell us  We will add it. The small print says: We provide the source code on this site as only a guide. We do not recommend that anyone run any of the code provided on this site without first testing it. If you choose to download source from this site directly onto your production box without testing....Well, YOU are completely to blame and we don’t want to hear about it. Random Quote We say we love flowers, yet we pluck them. We say we love trees, yet we cut them down. And some people still wonder why some are afraid when they are told they are loved --Unknown

Write to IFS
This example program will write an XML file directly to the 
IFS from there you can email it to anyone in the PC world.

The program is SQLRPGLE but can be easily modified to read any
table on the Iseries.


It would be nice to write out html emails and send them to customers.
Could be ASN’s or even copies of invoices.


I would appreciate if you would return modified code to me 
so that I may repost.  I will include your name/email unless your 
request that I do not.



Read the file back example
 Why Read IFS Files?

Why would you ever need to read the data from a 
non-DB2/400 file? There are lots of possibilities. 
For example, if you are writing RPG IV CGI applications 
to push data to the users' Web browser, you might want 
to store HTML source code in the IFS. In that case, 
you might want to read those HTML files into your CGI 
program at runtime so you could then push them to the Web. 
Another use might be if you have data stored in a simple text, 
RTF, or other type of file, and you want to get that data into 
your AS/400 application. Using a little imagination, I'm sure 
you can think of a lot of great reasons for storing data in 
the IFS and then reading it into an RPG program.