RE: QCMDEXC Wrapper

["Joe Giusto II \(E-mail\)" <juicenetdps@xxxxxxxxxxxxxx>]

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