Re: Called RPG returns MCH3601

["Semiha Balkaya" <sbalkaya@xxxxxxxxxxxxx>]

You are right Jon, it was the "enout" parameter causing this fault.I removed
it from my parameter list and call the RPG program using "envg" "imgmov-1"
and "enmgs" parameters.Now everything seems ok.

Thanks to everybody helping
Semiha

----- 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
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-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>