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
                                                                parm  imgmov
                                                                parm  enmsg
                                                                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" <cobol400-l@midrange.com>
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
> the parameter as longer than it is.  The COBOL compiler  generates
> (for any fields/structures that are used as parms) in the "gap" between
> 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
> 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-L-request@midrange.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.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 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.