Re: RPGIV MoveA issue.

[JohnJ@xxxxxxxxxxxxxx]

That was my issue.   The way I called the original program was by value.
This was my original calling program:

CALL       PGM(PGMA) PARM(' ' ' ' ' ')

After changing the call statement to:

CALL       PGM(PGMA) PARM(&P100 &P101 &P102)

It worked.  I added &P100, &P101, &P102 parms were defined like the other
programs.
This was my first time using midrange.com mailing list.  Thank you for all
your responses.
---------------------------------
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
---------------------------------




                                                                                
           
                    John Hall                                                   
           
                    <jhall@hillmgt.co        To:     RPG400-L@midrange.com      
           
                    m>                       cc:                                
           
                    Sent by:                 Subject:     Re: RPGIV MoveA 
issue.           
                    owner-rpg400-l@mi                                           
           
                    drange.com                                                  
           
                                                                                
           
                                                                                
           
                    01/22/2001 04:13                                            
           
                    PM                                                          
           
                    Please respond to                                           
           
                    RPG400-L                                                    
           
                                                                                
           
                                                                                
           




It this program called from a CL ?

You need to look at the original declaration of PA, PRM1, PRM2

This only declares "pointers" to space that was allocated by the top
level calling program.

John Hall


JohnJ@pacinfosys.com wrote:
>
> This is the code for the calling program.  CALD value is the called
program
> "DODATE".
>
> 0103.00 C     *ENTRY        PLIST
> 0103.01 C                   PARM                    PA              128
> 0103.02 C                   PARM                    PRM1            256
> 0103.03 C                   PARM                    PRM2            256
>
> 0326.00 C                   CALL      CALD
> 0326.01 C                   PARM                    PA
> 0326.02 C                   PARM                    PRM1
> 0326.03 C                   PARM                    PRM2
>
> ---------------------------------
+---
| 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
+---