× 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. RPG400-L
  3. August 2003

Re: QCMDEXC on v5r1

Bill Hopkins wrote:

* D Qcmdexc pr Extpgm('QCMDEXC') D Cmd Like(Qcmd) Options(*Varsize) Const
D Len 15p 5 D Opt 3 Options(*NoPass) Const D Qcmd s 3000


Later in code

* C Eval Qcmd = 'CPYTOIMPF FROMFILE(FXC'+ C ')TOSTMF(''qdls/forcastx/fxc.t'+ C 'xt'') MBROPT(*REPLACE) STMFCO'+ C 'DPAG(*PCASCII) CDDLM(*OPT(*RE'+ C 'PLACE) STMFCODPAG(*PCASCII) C'+ C 'DDLM(*CR) DTAFMT(*DLM) STRDLM'+ C '(*NONE) FLDDLM(X''05'')' * C CallP Qcmdexc(Qcmd:%Len(%Trim(Qcmd)))


*RNF7542 30 1 Parameter cannot be passed by reference when it can be
changed during the call.



Thought I had seen something like this on list a few times, did I miss something, or is this v5r2.
I'm at v5r1.


Add keyword CONST to parameter LEN. As coded, LEN is passed by reference, but you need to specify a variable name for a reference parm.

Cheers! Hans



As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
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.