Re: RE: Passing parms to RPG -- RPG400-L

I had forgotten this special case. Her we go around that by using a command as 
a front end to our programs. This way if we SBMJOB the command, the parameter 
description stay unchanged.

Denis Robitaille
Cascades inc.
Tel: 819-363-5187
DRobitaille@cascades.com

>>> "Moore, Rob" <moorer@londonhydro.com> 09/30 10:17 am >>>
Ok, I have found the problem.

Because my CL program uses the SBMJOB command to CALL my RPG program, the
SBMJOB command translates all my parameters to constants first, therefore
forcing my RPG program to except only 15,5 DEC variables as the rules state
for passing constants.

When you pass decimal constants to a program, the receiving program must
declare the parameters as *DEC with length 15,5.  There is no allowance for
any other length. (CL for the AS/400 - 2nd edition, Bryan Meyers & Dan
Riehl).

It was fine if I removed the SBMJOB and just did a plain CALL....which isn't
what I really wanted to do.  So I will stick with the SBMJOB and the 15,5.

Thanks for the great discussion.

BTW - I would highly recommend the CL programming book noted above...it is
most excellent.


Rob Moore                       Phone: (519) 661-5893
Technical Analyst               Fax: (519) 661-4760
London Hydro                    E-mail : moorer@londonhydro.com 
<mailto:moorer@londonhydro.com> 




                -----Original Message-----
                From:   Buck Calabro [mailto:mcalabro@commsoft.net] 
                Sent:   Tuesday, September 29, 1998 2:50 PM
                To:     'RPG400-L@midrange.com' 
                Subject:        RE: Passing parms to RPG

                On Tuesday, September 29, 1998 1:02 PM, Moore, Rob 
                [SMTP:moorer@londonhydro.com] wrote:
                > Oh yes, thanks.  I think I remember reading somewhere that
the default
                > parm
                > size for DEC is 15 5.

                Yes, it's the default, but you're not using the default
here: you've 
                specified *DEC (3 0) in the CL and PARM 3 0 in the RPG.  I
think Dennis R 
                hit the nail on the head when he mentioned data structures.
See if your 
                RPG program is putting the parm in a DS.  If it is, then the
DS will 
                change the definition from PACK to ZONE - check the compile
listing to 
                verify this.


                Buck Calabro
                Commsoft, Albany, NY
                mailto:mcalabro@commsoft.net 

                * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * *
                * This is the RPG/400 Discussion Mailing List!  To submit a
new         *
                * message, send your mail to "RPG400-L@midrange.com".  To
unsubscribe   *
                * from this list send email to MAJORDOMO@midrange.com and
specify       *
                * 'unsubscribe RPG400-L' in the body of your message.
Questions should *
                * be directed to the list owner / operator:
david@midrange.com          *
                * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *