Re: sql update of srcdta in cl source

[Luis Rodriguez <luisro58@xxxxxxxxx>]

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.