Re: QCMDEXC Wrapper

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