Re: Passing Parms To An RPG Program

* Program Prototype
D SL415RD PR ExtPgm('SL415RD')
d MyDS LikeDS(LoanDS)

* Program Interface
D SL415RD PI
d MyDS LikeDS(LoanDS)

dLoanDS ds
D Borrower_SSN 9A
D Loan_Number 2A
D Report_Date 8A

Thanks,
Tommy Holden



From:
Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx
To:
COBOL Programming on the iSeries/AS400 <cobol400-l@xxxxxxxxxxxx>
Date:
05/27/2008 10:47 AM
Subject:
Re: [COBOL400-L] Passing Parms To An RPG Program



change the RPG prototype and interface to be a DS defined like your
linkage section.

Thanks,
Tommy Holden



From:
Robert Munday <rwmunday@xxxxxxxxxxxxx>
To:
COBOL <cobol400-l@xxxxxxxxxxxx>
Date:
05/27/2008 10:43 AM
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...