Re: Is it possible to call an RPGIV program that accepts a varying parm from an OPM program?

It can be done, simply define the 1st parm as a DS containing a two
byte binary field (4b 0) followed by your 240a character field.

My question to you, where is the OPM programing getting the variable
length data?

Read the Variable-Length Fields section (pp. 247 - 250) in the RPG III
User's Guide.

HTH,
Charles



On Mon, May 11, 2009 at 2:36 PM, sjl <sjl_abc@xxxxxxxxxxx> wrote:

I think I already know the answer; (I'll probably need to create a wrapper for the RPGIV program that accepts a fixed-length field and calls the program that uses the varying-length field, passing a varying value) but I'll throw the question out just for grins.

Below is the prototype for the RPGIV program that I would like to call from an OPM program.


D MAIN            PR                  EXTPGM('XDC9000')
D   pValueIn                   240A   Const Varying
D   pValueOut                  240A
D   pElemSize                   15S 0 Const
D   pElemDelim                   1A   Const
D   pDDName                      4A   Const
D   pPr_Err                      1A

D MAIN            PI
D   pValueIn                   240A   Const Varying
D   pValueOut                  240A
D   pElemSize                   15S 0 Const
D   pElemDelim                   1A   Const
D   pDDName                      4A   Const
D   pPr_Err                      1A


Thanks,
Steve

_________________________________________________________________
Hotmail® has a new way to see what's up with your friends.
http://windowslive.com/Tutorial/Hotmail/WhatsNew?ocid=TXT_TAGLM_WL_HM_Tutorial_WhatsNew1_052009
--
This is the RPG programming on the IBM i / System i (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.