|
Are you sure it's the "procedure" that's not defined? You didn't (at least, in the code that you included in your message) define the variables called "COMMAND" and "LENGTH". I cut & pasted your code, and created a test program that looks like this: D CMD PR EXTPGM('QCMDEXC') D COMMAND 300A CONST D LENGTH 15P 5 CONST D COMMAND S 300A D LENGTH S 15P 5 C EVAL COMMAND = 'SNDMSG MSG(TEST) ' + C 'TOUSR(KLEMSCOT)' C EVAL LENGTH = 300 C CALLP CMD(COMMAND:LENGTH) C EVAL *INLR = *ON This code compiles and runs just fine for me... On Mon, 6 Aug 2001, Joe Giusto II (E-mail) wrote: > > 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 +---
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.