Re: RPG/400 pgm strange behaviour -- RPG400-L

Hi Silvio,

Another possibility is that you're calling it with a first parameter that is
not defined as 256A, but only 33A. The calling program is the one that
allocates the memory, so if PGMA has defined:

    D fld1     s       33A
    D fld2     s        8A

they will generally be allocated one after the other. If PGMB is created
with *ENTRY parms of fld1 and fld2 defined as:


    c    *entry    plist
    c              parm        fld1    256
    c              parm        fld2      8

and you

    c              movel'*FOUND'    fld2

it will actually be moved  to pos.34 of fld1, because PGMB is actually
getting pointers to fld1 and fld2 in PGMA, and the pointer for fld2 points
to storage immediately following fld1.

hth

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax





----- Original Message -----
From: <STEVEN_J_RYAN@denso.com.au>
To: <RPG400-L@midrange.com>
Sent: Wednesday, July 12, 2000 3:28 PM
Subject: Re: RPG/400 pgm strange behaviour


>
>
> Is it possible that somewhere in your program you have some I specs like
>
> I    DS
> I                      1 256 MSDT$E
> I                   34     41$RTC$E
>
> That would explain your problem.
>
>
>
>
> "Silvio Santos" <Silvio.Santos@brainag.com> on 12/07/2000 21:00:39
>
> Please respond to RPG400-L@midrange.com
>
> To:   RPG400-L@midrange.com
> cc:    (bcc: STEVEN J RYAN/DIAU)
>
> Subject:  RPG/400 pgm strange behaviour
>
>
>
>
>
>
> I have a program (RPG/400) that checks if some record exists and return.
>
> These two filds are *ENTRY parms of the PGM:
> MSDT$E - length 256
> $RTC$E (*FOUND or *ERROR) - length 8A
>
>
> The condition used is like this:
>
> *IN,96    IFEQ '0'
>           MOVEL'*FOUND'  $RTC$E
>           MOVELMSDTOH  MSDT$E
>           ELSE
>           MOVEL'*ERROR'  $RTC$E
>           ENDIF
>
> It works fine, excepts for one thing: if the condition is true, when it
moves
> the MSDTOH content to MSDT$E, it erases the $RTC$E field. For the other
hand,
> when the first move is done, the '*Found' is placed in the 34th position
of the
> field MSDT$E.
>
> Is there any restriction about entry parms lenght ?
> How can I resolve this?
>
> Thanks
>                      ,,,,,,
>                    (o o)
> -----------------------oOO--(_)--OOo------------------------
> Silvio Santos                                BRAIN Portugal
> Tel:    +351 252 248-120             Av. Joao Canavarro, 305
> Fax:    +351 252 248-111            4480-668 Vila do Conde
>                                                           Portugal
> Email: silvio.santos@brainag.com
> Web-Page: www.brainag.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
> +---



__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.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
+---