|
Your RPG PARM needs to be 15 5. Regards, ~~~~~~~~~~~~~~~~~~~~~ Jon A. Erickson Viking Industries, Inc. http://www.vikingindustries.com ~~~~~~~~~~~~~~~~~~~~~ <<Jon Erickson.vcf>> -----Original Message----- From: Moore, Rob [mailto:moorer@londonhydro.com] Sent: Tuesday, September 29, 1998 8:12 AM To: RPG400-L@midrange.com Subject: Passing parms to RPG 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 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
midrange.com
