RE: [MI400] Pass parameters by value

["Steve Richter" <srichter@xxxxxxxxxxxxx>]

Giuseppe, do you possibly mean that QLICNV accepts its parms directly using
PARM addressability?

The standard parm passing convention is have a space pointer with PARM addr
that points to the actual variable being passed:
   DCL SPCPTR  p1  PARM ;
   DCL InName  char(30) bas(p1) ;
   DCL OL *Entry ( p1 ) EXT PARM ;
   CPYBLA  somewhere, InName ;

And on the calling side to pass by pointer:
  DCL sName CHAR(30) AUTO ;
  DCL SPP pName AUTO ;
  DCL OL OL1 ( pName ) ;
  SETSPP pName, sName ;
  CALLX  "sysptr to pgm", OL1, *

Maybe QLICNV dispenses with the intermediate ptr:
  DCL InName char(30) PARM ;
  DCL OL *ENTRY ( InName ) EXT PARM ;

and is called like so:
  DCL sName CHAR(30) AUTO ;
  DCL OL OL1 ( sName ) ;
  CALLX  "sysptr to pgm", OL1, *

if so, then you would have to use MI to call QLICNV.

Steve Richter


-----Original Message-----
From: mi400-admin@midrange.com [mailto:mi400-admin@midrange.com]On
Behalf Of Giuseppe Costagliola
Sent: Wednesday, November 20, 2002 12:28 PM
To: mi400@midrange.com
Subject: [MI400] Pass parameters by value


Some internal programs (like QLICNV) accept parameters by value.
Is it possible to call them in (RPG)ILE or we must write a MI interface?

Giuseppe Costagliola
gcosta@sidin.it

_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
or email: MI400-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.