RE: Panel Groups -- RPG400-L

Final question.  How do I force a carriage return (newline) in the text.


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