× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Here is a program that removes highlights from a source member.
I use an input primary file. If you know the record you want to change,
just chain by that number. I don't think you can do an "update" on an
internally defined file (I could be wrong). Use Except or the cycle.

HTH,

Craig

OVRDBF FILE(SOURCE) TOFILE(&LIB/&FILE) MBR(&MBR)

FSource UP F 132 DISK
DHi c X'22'
D X S 3 0
ISource NS 01
I 1 132 SrcDta
/free
SrcDta = %xlate(Hi:' ':SrcDta);
/End-Free
OSource D 01
O SrcDta 132

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Antonio
Fernandez-Vicenti
Sent: Tuesday, February 26, 2008 12:15 PM
To: Midrange Systems Technical Discussion
Subject: Re: Updating a program described file

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
*






As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.