Re: sql update of srcdta in cl source

David,

Using Birgitta's OVRDBF suggestion, this works for me:

*update @testlib/qclsrc *
* set srcdta = *
* substr(srcdta, 1, POSSTR(upper(srcdta), 'PGM(MGR') + 6) *
* || '****' ||*
* substr(srcdta, POSSTR(upper(srcdta), 'PGM(MGR') + 11) *
* *
*where POSSTR(upper(srcdta), 'PGM(MGR') <> 0 *

HTH,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--



On Tue, Dec 7, 2010 at 12:23 PM, David FOXWELL <David.FOXWELL@xxxxxxxxx>wrote:

Hi,

I want to modify this in a clp source :

MY_LABEL: CALL PGM(MGR123401)

So it becomes

MY_LABEL: CALL PGM(MGR589801)


I'm trying to use the REPLACE function in sql. I've added the label for the
WHERE clause. The program name is a standard, ie, prefix MGR 4 numbers and
suffix(in this case 01) I know the new number, 5898, but I cannot be sure of
the old number to replace. I could presume the program name occupies the
same position in the field SRCDTA but that won't always work.

Something like UPDATE Myfile SET SRCDTA = REPLACE ( SRCDTA, '1234',
MyNewNumber) WHERE SRCDTA LIKE 'MY_LABEL:%'


Ideas?
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.