RE: CL Parm memory issue

Thanks for the link.  I can't believe I have never hit this before in
the last 11 years. 

-----Original Message-----
From: rpg400-l-bounces+mike.tobey=foremostfarms.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+mike.tobey=foremostfarms.com@xxxxxxxxxxxx] On
Behalf Of michael@xxxxxxxxxxxxxxxxxx
Sent: Tuesday, December 06, 2005 10:19 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: CL Parm memory issue

http://faq.midrange.com/data/cache/70.html

> -------- Original Message --------
> Subject: CL Parm memory issue
> From: "Mike Tobey" <Mike.Tobey@xxxxxxxxxxxxxxxxx>
> Date: Tue, December 06, 2005 11:13 am
> To: <RPG400-L@xxxxxxxxxxxx>
> 
> I have encountered a problem I cannot figure out.  I have a CL program

> that accepts 8 parms (defined below).
> 
> 
>              PGM        PARM(&INEMAIL &INMINUTES &INFILLER &INFROMDATE
+
>                           &INTHRUDATE &INFROMTIME &INTHRUTIME
> &INRNGETYPE)
> 
>              DCL        VAR(&INMINUTES) TYPE(*CHAR) LEN(3)
>              DCL        VAR(&INFILLER) TYPE(*CHAR) LEN(5)
>              DCL        VAR(&INFROMDATE) TYPE(*CHAR) LEN(10)
>              DCL        VAR(&INTHRUDATE) TYPE(*CHAR) LEN(10)
>              DCL        VAR(&INFROMTIME) TYPE(*CHAR) LEN(6)
>              DCL        VAR(&INTHRUTIME) TYPE(*CHAR) LEN(6)
>              DCL        VAR(&INRNGETYPE) TYPE(*CHAR) LEN(1)
>              DCL        VAR(&INEMAIL) TYPE(*CHAR) LEN(70)      
> 
> I call the program as follows:
> Type command, press Enter.
> 
> ===> call ppl374p parm('mike.tobey@xxxxxxxxxxxxxxxxx' '015' '*ALL'
> '2005-11-14'
> '2005-11-14' '000000' '000000' 'P')     
> 
> In debug I check to values of the parms and find that INEMAIL contains

> parm 1, 2 and 3.
> INEMAIL = 'mike.tobey@xxxxxxxxxxxxxxxxx  015           *ALL' (the
> spacing is not exact)
> INMINUTE = '015'
> INFILLER = '*ALL'
> 
> If I change INEMAIL to remove the everything after the email address 
> both INMINUTES and INFILLER also get cleared.  It seems that the 
> memory address of parms 2 and 3 are overlaying parm 1 after the email
address.
> 
> 
> I originally had email as the last parm, when I did that I got the 
> email address and then grabage.
> I tried calling the program from another CL with the same parameter 
> list but got the same result.
> 
> Does anyone have any idea why this would happen?
>                                        
>  
> 
> Michael Tobey
> Applications Analyst
> Foremost Farms USA (Consumer Products) mike.tobey@xxxxxxxxxxxxxxxxx
> 
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
> list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, 
> unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a 
> moment to review the archives at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.