RE: Calling service program procedure from OPM via program wrappe r.

Matt,

I suppose that the RPG wrapper is the better solution, as that way I can
take advantage of the prototypes.

But the QZRUCLSP is kind of slick, I can even use the same name for the
program and the procedure.

Downside is having to having to have this defined:
  dcl  &wNbrParms  *CHAR    4     value(x'00000000')
  dcl  &wRtnFmt    *CHAR    4     value(x'00000000')
  dcl  &wParmFmt   *CHAR    4     value(x'00000000')
  dcl  &wErrCd     *CHAR    4     value(x'00000000')

Luckily, these two procedure don't take parameters.  Trying to do it from CL
with parms would not be fun.


Charles


> -----Original Message-----
> From: Haas, Matt [mailto:Matt.Haas@xxxxxxxxxxx]
> Sent: Wednesday, September 22, 2004 4:55 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Calling service program procedure from OPM via program
> wrapper.
> 
> 
> I have wrapper programs written in RPG (mostly used from 
> Net.Data). Most of them are extremely simple but some of them 
> get as fancy as converting data from numeric to character or 
> translating a status code into something that's human understandable.
> 
> Matt
> 
> -----Original Message-----
> From: CWilt@xxxxxxxxxxxx [mailto:CWilt@xxxxxxxxxxxx]
> Sent: Wednesday, September 22, 2004 4:43 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Calling service program procedure from OPM via 
> program wrapper.
> 
> 
> I've got a couple of service program procedures that I also 
> need to be able
> to call from an OPM program.
> 
> So, I need to add a program front end to both procedures.
> 
> My first thought was a CLLE program that used the CALLPRC 
> command.  However,
> CRTBNDCL doesn't allow you to specify a BNDDIR to use.
> 
> So, I seem to have two choices
> 
> 1) CLLE module, then use CRTPGM
> 
> 2) RPGLE bound program.
> 
> 
> I'm using ACMS so option 1 requires two objects to be 
> defined, a *MODULE and
> a *PGM.  Whereas option 2 only requires the *PGM object.
> 
> Seems kind of wasteful to have an RPG program that only has 
> two lines, CALLP
> and EVAL *INLR=*ON.
> 
> I had wanted to have the procedures and the program have the 
> same name,
> certainly don't think I could do this in RPGLE, don't know if 
> it would even
> work in CLLE.
> 
> How do you all handle this?
> 
> Thanks,
> Charles
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>