Re: Called RPG returns MCH3601

["Semiha Balkaya" <sbalkaya@xxxxxxxxxxxxx>]

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