× 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.



Justin,

I could have sworn I tried that but THANK YOU! That did it!

RUNSQL SQL('update qclsrc set srcdta = ''PUT ''''long file name 2016-02-03
11.40.02.csv'''''' where upper(left(srcdta,3)) = ''PUT''')
COMMIT(*NC)
NAMING(*SYS)

Yours truly,

Glenn Gundermann
Email: glenn.gundermann@xxxxxxxxx
Work: (416) 675-9200 ext. 89224
Cell: (416) 317-3144


On 3 February 2016 at 12:06, Justin Dearing <zippy1981@xxxxxxxxx> wrote:

Just use 4 apostrophes since your inside double apostrophes.

RUNSQL SQL('update qclsrc set srcdta = ''PUT ''''long file name 2016-02-03
11.40.02.csv'''' ''
where upper(left(srcdta,3)) = ''PUT''')

On Wed, Feb 3, 2016 at 11:54 AM Glenn Gundermann <
glenn.gundermann@xxxxxxxxx>
wrote:

Hi all,

I'm having a problem with RUNSQL along with apostrophes in my CL program.

I have a CL source member with one record containing PUT. I want to
replace it with PUT followed by the file name surrounded by appostrophes.

OVRDBF FILE(QCLSRC) TOFILE(GLENNLIB/QCLSRC) MBR(FTPSRCMBR) OVRSCOPE(*JOB)

The following will work in a STRSQL session:

update qclsrc
set srcdta = 'PUT ''long file name 2016-02-03 11.40.02.csv'''
where upper(left(srcdta,3)) = 'PUT'

In the CL program, I can get it to work with quotes. It's hard to see
but
I have a quote " before long and after csv. All others are apostrophes
'.

RUNSQL SQL('update qclsrc set srcdta = ''PUT "long file name 2016-02-03
11.40.02.csv"''
where upper(left(srcdta,3)) = ''PUT''')
COMMIT(*NC)
NAMING(*SYS)

I can't get it to work in a CL program replacing the quotes with
apostrophes.

Yours truly,

Glenn Gundermann
Email: glenn.gundermann@xxxxxxxxx
Work: (416) 675-9200 ext. 89224
Cell: (416) 317-3144

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.