Re: Passing Parms To An RPG Program

[Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx]

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