Re: Passing parms to RPG

["Denis Robitaille" <DRobitaille@xxxxxxxxxxxx>]

CL does pass packed data but i suspect that the RPG has the parameter defined 
as zoned. Look at the compile listing of the RPG. The default is packed in RPG 
but there are some exception. If the parameter is part of a DS, it will not be 
packed.

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

>>> "Moore, Rob" <moorer@londonhydro.com> 09/29 11:12 am >>>
I have a CL program that calls an RPG program with a number of parms
including *DEC type parms.

All *CHAR parms pass fine, but I have a parm in the CL program defined as
TYPE(*DEC) LEN(3 0)

The corresponding parm in RPG is  PARM  3   0

When I run this I get a decimal data error....I think I read something about
this in the past and don't remember if I need something here.

RPG is expecting PACKED data...I don't know if CL passes that.


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 22, 1998 3:26 PM
                To:     'RPG400-L@midrange.com' 
                Subject:        RE: Panel Groups

                On Tuesday, September 22, 1998 2:17 PM, Moore, Rob 
                [SMTP:moorer@londonhydro.com] wrote:
                > I am trying to use Panel Groups for help text on fields
for a command I
                > have
                > written.

                The UIM manuals are a pretty good place to look once you've
got a skeleton 
                to tinker with...  Also, scoot over to Midrangecomputing.com
or 
                news400.com and search their archives for panel groups.  You
may get a 
                complete application out of it!

                QCMDSRC
                             CMD        PROMPT('UIM help test')
                             PARM       KWD(RELNUM) TYPE(*CHAR) LEN(10)
                             PARM       KWD(DEF) TYPE(*CHAR) LEN(10)

                CRTCMD CMD(BUCK/PRTDEFXX)
                       PGM(BUCK/PRTDEFXX)
                       SRCFILE(BUCK/QCMDSRC)
                       SRCMBR(PRTDEFXX)
                       HLPPNLGRP(BUCK/PRTDEFXX)
                       HLPID(*CMD)
                       REPLACE(*YES)

                QPNLSRC
                .* Help panel for PRTDEFXX (test)
                .*
                :PNLGRP.
                .* =======================================
                .* Command-wide help
                .*
                :HELP NAME='PRTDEFXX'.PRTDEFXX
                :P.This is the help for command PRTDEFXX.
                :EHELP.
                .* =======================================
                .* REL#
                .*
                :HELP NAME='PRTDEFXX/RELNUM'.Rel
                :P.This is the help for REL#.
                :EHELP.
                .* =======================================
                .* DEF
                .*
                :HELP NAME='PRTDEFXX/DEF'.Def
                :P.This is the help for DEF.
                :EHELP.
                .* =======================================
                .* End of source
                .*
                :EPNLGRP.

                CRTPNLGRP PNLGRP(BUCK/PRTDEFXX)
                          SRCFILE(BUCK/QPNLSRC)
                          SRCMBR(PRTDEFXX)
                          REPLACE(*YES)

                hth,

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