RE: Parameters Stepping on each other

Shailendra,

Thanks for the link.  I did try the archives (hardly ever think to check
the FAQ...I should do that more often).  Guess I couldn't quite work out
the best keywords to search on.  "Parameters stepping on each other"
didn't yield much.  I guess "CL" and "Parameters" might have done
better.

And thanks to all who responded, as well.  Since, in this case, the CL
program is being called from another RPG procedure, I think we'll just
put the parms in a datastructure and pass it through the CL to the final
RPG program.  I think that should avoid the problem...

Greg


|-----Original Message-----
|From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
|On Behalf Of Shailendra_SKumar
|Sent: Monday, June 26, 2006 8:19 AM
|To: RPG programming on the AS400 / iSeries
|Subject: Re: Parameters Stepping on each other
|
|
|
|My turn to chime in with 'try the FAQ.'  This mistaken impression about
|CL and parameters is a very old chestnut indeed.
|
|http://faq.midrange.com/data/cache/70.html
|
|Hope this would help you.
|
|Regards
|Shailendra
|
|-----Original Message-----
|From: rpg400-l-bounces@xxxxxxxxxxxx
|[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Fleming, Greg (ED)
|Sent: Saturday, June 24, 2006 2:17 AM
|To: rpg400-l@xxxxxxxxxxxx
|Subject: Parameters Stepping on each other
|
|This is weird.  We have a CL submitting an RPG.  When we debug, the
|parameters look fine in the CL, but they seem to be stepping on each
|other when we look at them in the RPG.
|
|Here's some code snippets:
|
|DCL        VAR(&PUSERID10) TYPE(*CHAR) LEN(10)
|
|DCL        VAR(&PASSWRD10) TYPE(*CHAR) LEN(10)
|
|DCL        VAR(&PIPADDRS) TYPE(*CHAR) LEN(48)
|
|DCL        VAR(&PFMDIR) TYPE(*CHAR) LEN(256)
|
|DCL        VAR(&PTODIR) TYPE(*CHAR) LEN(256)
|
|DCL        VAR(&PFILENAME) TYPE(*CHAR) LEN(50)
|
|DCL        VAR(&PPRODTYPE) TYPE(*CHAR) LEN(1)
|
|SBMJOB     CMD(CALL PGM(FF407AR) PARM(&PUSERID10 +
|
|                          &PASSWRD10 &PIPADDRS &PFMDIR &PTODIR +
|
|                          &PFILENAME &PPRODTYPE)) JOB(FTP_PC2PC) +
|
| JOBQ(QBATCH2) HOLD(*NO)
|
|-----------------------------------------------------------------------
-
|---------------------------------------
|
|D $Entry_Parms    Pr                  ExtPgm('FF407AR')
|
|D  Pr_UserId                    10A
|
|D  Pr_UserPwrd                  10A
|
|D  Pr_IPAddress                 48A
|
|D  Pr_FrmDir                   256A
|
|D  Pr_ToDir                    256A
|
|D  Pr_FileName                  50A
|
|D  Pr_ProductType...
|
|D                                1A
|
| *
|
|D $Entry_Parms    Pi
|
|D  P_UserId                     10A
|
|D  P_UserPwrd                   10A
|
|D  P_IPAddress                  48A
|
|D  P_FrmDir                    256A
|
|D  P_ToDir                     256A
|
|D  P_FileName                   50A
|
|D  P_ProductType...
|
|D                                1A
|
|
|
|The first two parms look OK in the RPG, but the IPAddress has the first
|five chars of the FrmDir tacked onto the end, and all the subsequent
|parms are likewise including the ones after them, except the last one,
|which is correct.
|
|Any ideas ?
|
|Thanks
|
|
|
|Greg Fleming
|
|Programmer/Analyst
|
|Everglades Direct, Inc.
|
|
|
|--
|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.
|
|
|
|
|DISCLAIMER:
|This email (including any attachments) is intended for the sole use of
the
|intended recipient/s and may contain material that is CONFIDENTIAL AND
|PRIVATE COMPANY INFORMATION. Any review or reliance by others or
copying or
|distribution or forwarding of any or all of the contents in this
message is
|STRICTLY PROHIBITED. If you are not the intended recipient, please
contact
|the sender by email and delete all copies; your cooperation in this
regard
|is appreciated.
|
|
|--
|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.