Re: Passing Parms To An RPG Program

Robert,

You are passing a single parameter (SL415RD-Linkage) to a program that is
expecting 3 parameters.
Changing the CALL statement in your COBOL program to:
Call "SL415RD" Using SL415RD_SSN SL415RD_Loan_Number
SL415RD_Reporting_MDCY
should solve the problem.

You could also change the prototype and interface in your RPG program as
described in Tommy's note.

Have fun!
Richard Casey

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert Munday
Sent: Tuesday, May 27, 2008 11:42 AM
To: COBOL
Subject: [COBOL400-L] Passing Parms To An RPG Program

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. Is there something I need to add to either
program or will I need to revert to the fixed-format *Entry parm method in
my RPG program?

* Parameters For Call To SL415RD - Calculate First Date Of Reporting
01 SL415RD-Linkage.
05 SL415RD_SSN Pic X(9).
05 SL415RD_Loan_Number Pic X(2).
05 SL415RD_Reporting_MDCY Pic X(8).

* Call Program SL415RD To Calculate The First Date Of Reporting
Call "SL415RD" Using SL415RD-Linkage.


* Program Prototype

D SL415RD PR ExtPgm('SL415RD')

D Borrower_SSN 9A
Borrower SSN
D Loan_Number 2A
Loan Number
D Report_Date 8A
Report Date MDCY


* Program Interface

D SL415RD PI

D SSN 9A
Borrower SSN
D Loan# 2A
Loan Number
D Report_MDCY 8A
Report Date MDCY


Thanks,



Robert Munday
Munday Software Consultants
Montgomery, AL
on assignment in Columbia, SC
soon to be somewhere else...