Re: QCMDEXC Wrapper (was: RE: OVRPRTF within RPGILE)

On Wed, 30 May 2001, Joe Giusto (E-mail) wrote:
>
> I could not resist piping in here.
> Why bother writing a wrapper at all?  Especially with the EVAL op code.
> 
> EVAL     CMD = 'OVRPRTF .....'
> CALL      'QCMDEXC
> PARM                         CMD
> PARM                         CMDLEN           15 5
> 
> Seems simple enough.
> Am I missing something here?

Or even simpler yet:

D Cmd             PR                  ExtPgm('QCMDEXC')
D  Command                     300A   const
D  Length                       15P 5 const

c                   callp     Cmd('OVRPRTF ....': 300)
 ** ... do something ...
c                   callp     Cmd('DLTOVR ...': 300)

Now instead of an "eval", a "call" and 3 "parm" lines of code, I only have
to write one line of code for each call to QCMDEXC.

It's also easier, IMHO, to read.  Because you only define the prototype
once, and the compiler uses it to check the validity of your code from
that point on, it's also less prone to bugs from typos...

Ahhh... the wonder of prototypes...

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