|
Thank you. I found by trial & error that I could not use the actual names defined in the prototype as constants on the callp statement. I like how you passed the length parm. I am curious about the cmdopt parm in the prototype. What would I use this for? Would it be for a return error code or other parameters for certain commands? Thanks again, Joe Giusto II Programmer/Analyst Ritz Camera Beltsville, MD 301-419-3209 x347 410-813-2812 x347 -----Original Message----- From: Charlie Massoglia [mailto:cmassoglia@voyager.net] Sent: Monday, August 06, 2001 8:34 PM To: MIDRANGE-L@midrange.com Cc: juicenetdps@crosswinds.net Subject: Re: QCMDEXC Wrapper Try the following: * Prototype for runqry d CMD pr extpgm('QCMDEXC') d command 3000 options(*varsize) d const d cmdlength 15p 5 const d cmdopt 3 options(*nopass) d const * d ovrdbf s 80 * * Runqry for the requested file * C EVAL ovrdbf = 'OVRDBF WHLDE1 SHARE(*YES)' c callp cmd(%trim(ovrdbf) : %len(%trim(ovrdbf))) Charles L.Massoglia, President Massoglia Technical Consulting, Inc. cmassoglia@voyager.net In MI 517-676-9700 or in NC 919-363-9395 ----- Original Message ----- From: "Joe Giusto II (E-mail)" <juicenetdps@crosswinds.net> To: <MIDRANGE-L@midrange.com> Sent: Monday, 06 August, 2001 13:12 Subject: QCMDEXC Wrapper > I am having trouble compiling a program with the following prototype and > callp statements. The compiler keeps telling me that the procedure is not > defined. Any ideas? > > 0032.00 D CMD PR EXTPGM('QCMDEXC') > 0033.00 D COMMAND 300A CONST > 0034.00 D LENGTH 15P 5 CONST > 0058.00 C EVAL COMMAND = 'OVRDBF WHLDE1 SHARE(*YES)' > 0059.00 C CALLP CMD(COMMAND:LENGTH) > > Joe Giusto II > Programmer/Analyst > Ritz Camera > Beltsville, MD > 301-419-3209 x347 > 410-813-2812 x347 > > > > +--- > | This is the Midrange System Mailing List! > | To submit a new message, send your mail to MIDRANGE-L@midrange.com. > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. > | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: david@midrange.com > +--- > +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | 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.