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

[Charles Wilt <charles.wilt@xxxxxxxxx>]

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.