× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: RE: Passing parms to RPG
  • From: "Moore, Rob" <moorer@xxxxxxxxxxxxxxx>
  • Date: Wed, 30 Sep 1998 10:17:58 -0400

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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2023 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.