× 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

QCMDEXC on v5r1

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

Thanks 
Bill Hopkins

As an Amazon Associate we earn from qualifying purchases.

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