Re: Updating a program described file

What am I missing? Can he just use a remove member command? Either in CL or in RPG?

* Prototypes.
D wQcmdExc pr ExtPgm('QCMDEXC')
D 1024 const
D 15 5 const

* Delete Member.
C eval wCmdString = 'RMVM FILE(QCLSRC) MBR('
C + %trim(filename) + ')'
C callp wQCmdExc(wCmdString:
C %len(%trim(wCmdString)) )



Antonio Fernandez-Vicenti wrote:

Tim, let me point something about your code:
- you mention "I can read the file (qclsrc) member without issue", so I assume you do an OVRDBF prior to executing your program to point to the proper member.
- you are using a "program described file", so I believe there's NO NEED AT ALL to redifine record name to make its name different from file name... (some people told you to do so, but not needed in my opinion).
- you coded your file as "F QCLSRC UF F 92 DISK"
This, is NOT correct, I believe. "UF" means "update Full procedural", which (since there NO Key (K in some column I don't recall by heart between the 92 and "Disk" ) implies you HAVE TO ACCESS record via CHAIN op.code by record number..., and there's no Chain in your code!!!

I don't know how many records your FTP script has, but guess at least you'll have one for the Login, another for the Password, etc.
Is your "DELETE" record always in same record number? Let's say, the fourth...?
Then you should change your "READ" line for a line with say, " 4 CHAIN QCLRSC +indicatorXX in for NOT-found

Make sure the NOT-found indicator is OFF, or your "update" will fail!!!

HTH,
Antonio
--------------------------------------------------------------------------------------------------
Tim Gornall escribió:

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 *