Hi Jon I have defined parameter record at 01 level, it seems as: 01 param-list-1. 02 envg pic x. 02 imgmov-1 pic x(436). 02 enmsg pic x(79) 02 enout pic x. i have seen in the RPG *ENTRY Plist parm envg 1 parm imgmov parm enmsg 79 parm enout when i debug the RPG prog and display the value in parameter list i see the my values for the first record but when it comes to second record i only see the values are same as mine for imgmov, enmsg ,enout parameters but RPG returns MCH3601 for the first parameter envg. ----- Original Message ----- From: "Jon Paris" <Jon.Paris@partner400.com> To: "COBOL Programming on the iSeries/AS400" <firstname.lastname@example.org> Sent: Thursday, January 30, 2003 1:34 AM Subject: RE: Called RPG returns MCH3601 > > when i read first record and call RPG program everything seems > > allright but when it comes second record RPG returns MCH3601 for > > one of its parameters (first parameter in the Plist). > > It is almost certain that the problem is caused by the RPG program treating > the parameter as longer than it is. The COBOL compiler generates pointers > (for any fields/structures that are used as parms) in the "gap" between one > 01 level and the next. If COBOL defines a 20 character field and the RPG > treats it as 50 long and (say) moves blanks to it "boom" no more valid > pointer. > > If that is not it, can you tell us just what field etc. is being passed. > i.e. is it in the record buffer or working storage? What version of COBOL > are you using? etc. > > Jon Paris > Partner400 > > > _______________________________________________ > This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list > To post a message email: COBOL400-L@midrange.com > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo.cgi/cobol400-l > or email: COBOL400-Lemail@example.com > Before posting, please take a moment to review the archives > at http://archive.midrange.com/cobol400-l. >
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.