RE: CL Parm memory issue

[michael@xxxxxxxxxxxxxxxxxx]

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.