Joe Pluta wrote:
Robert Munday wrote:
I am attempting to call an RPG program from a COBOL program, passing three parameters. My RPG incoming parms are set up using the program prototype/interface method. The RPG program receives the first parameter but not the second or third.
When you say "doesn't receive", do you mean that %PARMS returns 1 (meaning the other two aren't passed) or are the variables passed (%PARMS = 3), but blank/zero?
Reinforcing Tommy's point, I think your linkage section creates a data structure. I pass multiple parameters by just naming them separately on the call instruction:

CALL "PSCBAPI0" USING PSCRCD PSCTYP

My COBOL is barely capable and perhaps it shows, but this works for me. Both PSCRCD and PSCTYP are defined in as level 77 variables my working storage.

Joe

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.