Re: Updating a program described file

Hi Tim,

If you have TAATOOLs, use the WRTSRC command.

I use it all the time for my FTP scripts, especially with our EDI.

It works great!!:-)

Otherwise in your example code, you have to rename your format name so it
is not the same as your file name. Then write to that.

Thanx,

Nick



Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct (320) 679-6683
Toll free (800) 388-2155 ext. 6683
Fax (320) 679-4516
nick_radich@xxxxxxxxxxxxxx



"Tim Gornall" <tgornall@xxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
02/26/2008 09:36 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
<midrange-l@xxxxxxxxxxxx>
cc

Subject
Updating a program described file






I have an FTP script source member that I need to update dynamically.
Basically I am attempting to update a source physical file member from
within RPGLE. I can read the file (qclsrc) member without issue, but
can't
get it to compile with update logic. I've tried a bunch of different
things, too much to put in this text. Here is an example of my code. Does
anyone have an example? Thanks, Tim

FQCLSRC UF F 92 DISK
IQCLSRC AA 01
I 1 92 SrcDta
*
C *entry plist
C parm filename 24
*
C read QCLSRC
*
C eval SrcDta = 'delete ' + filename
C update qclsrc
*
C eval *inlr = *on
*