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



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.