Re: QCMDEXC Wrapper

[Scott Klement <klemscot@xxxxxxxxxxxx>]

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