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


  1.  Home
  2. MIDRANGE-L
  3. November 2013

RE: battle with quotes in CL ---- round 2

Yeah my co-worker was trying to cram TWO parm arguments into ONE parm argument.

I should have noticed that right away.

Thanks!


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Brian Johnson
Sent: Friday, November 08, 2013 3:38 PM
To: Midrange Systems Technical Discussion
Subject: Re: battle with quotes in CL ---- round 2

On Fri, Nov 8, 2013 at 3:03 PM, Stone, Joel <Joel.Stone@xxxxxxxxxx> wrote:
Thanks for all the supportive comments (except for Robs snide comment - what is that all about???)


I tried all the suggestions and none of them seem to work.




Your simplified example can be simplified to this:

PGM
dcl &libname *char 10 value( no_no_no )
DCL &OBJPARM *CHAR 30 value('/HOME/CONTRACTS')
sav dev('/QSYS.LIB/' |< &libname |< '.LIB' ) OBJ(&OBJPARM )
monmsg cpf0000
endpgm


Created with LOG(*YES)... here's the logged command:

400 - SAV DEV('/QSYS.LIB/NO_NO_NO.LIB') OBJ(('/HOME/CONTRACTS'))





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.