Re: RPGIV MoveA issue.

A few years ago I had a similar problem,
does not matter who looked at the code, the parms kepts getting messed up.

The only work-around I resolved to in the end was to
MOVE the parm-fld  into another new-field,
then reference that new -field throughout the program.

just my experience.
kmh



At 12:37 PM 01/22/2001 -0800, you wrote:
>Hi John,
>
>You showed us everything except how PA, PRM1 and PRM2 are defined in the
>calling program. If they are defined as shorter fields than in the program
>you showed, you may very well get overlapping fields. For example, if PRM1
>and PRM2 are defined as 10A in the calling program, they will most likely be
>placed in 20 bytes of contiguous storage. Your RPG program's references to
>PRM1 will overwrite PRM2, and some undefined storage beyond that.
>
>HTH,
>Peter Dow
>Dow Software Services, Inc.
>909 425-0194 voice
>909 425-0196 fax
>
>
>
>
> > It sounds funny, but when a "movea" instruction occurs for one
> > field, another field is updated.   Its all outlined in the "movea
> > issue.txt" file.  The fields updated are defined within the program and
> > defined as parameters.  I have included the code listing and RPG dump for
> > reference.   This code is working currently running on a AS/400 Advanced
>36
> > Machine.
>
> >    Why is PRM1 updated when a movea instruction for PRM2 occurs?
> >    Position 34 to 87 are blanked out.  Why?
>
>
> > ---------------------------------
> > John Jones
> > IBM AS/400 Lansa Developer
> > Pacific Information Systems - An IBM Premier Business Partner
> > Cell 503-784-4422
> > Fax 503-244-5300
> > "WE KNOW TECHNOLOGY"
> > johnj@pacinfosys.com
> > ---------------------------------
> >
> >
> >
> > +---
> > | This is the RPG/400 Mailing List!
> > | To submit a new message, send your mail to RPG400-L@midrange.com.
> > | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
>david@midrange.com
> > +---
>
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: david@midrange.com
>+---

********************************************************
Kevin M Howcroft                www.kmtcinc.com
AS/400 Technical Consultant     Voice:407.830.5960
kevinh@kmtcinc.com              Fax: 407.650.2638

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---