RE: QCMDEXC Wrapper

here's an outline:

     H nomain
     D mySubProc       pr              n
     D  pr_cpy                        3  0 value
     D  pr_cust                       9  0 value
     D
     P mySubProc       b                   export
     D mySubProc       pi              n
     D  cpy                           3  0 value
     D  cust                          9  0 value
     D
     D error           s               n

...... do stuff here

     C                 return       error
     P mySubProc       e

Whatever your plist is, name them the same in the PI definition.  The names
in the PR definition don't matter.  Only the data type must match.

If you omit H nomain, you must set *inlr on.

Phil


> -----Original Message-----
> From: midrange-l-admin@midrange.com
> [mailto:midrange-l-admin@midrange.com]On Behalf Of Joel R. Cochran
> Sent: Wednesday, August 15, 2001 5:29 PM
> To: 'MIDRANGE-L@midrange.com'
> Subject: RE: QCMDEXC Wrapper
>
>
> I've been messing around with Prototyping 'normal' calls.  I've
> gotten this
> to work fine when calling an external program that has a *ENTRY
> plist.  How
> do I change from *ENTRY to a PI in the called program? Do I need
> any special
> keywords or can I just make it a copy of the PR and change the PR to PI?
>
> Joel R. Cochran
> Director of Internet Services
> VamaNet.com
> 800-480-8810 (va toll free)
> 540-885-8050 (phone)
> 540-886-1589 (fax)
> www.vamanet.com
> mailto:custservice@vamanet.com
>
>
> >-----Original Message-----
> >From: Joe Giusto II (E-mail) [mailto:juicenetdps@crosswinds.net]
> >Sent: Monday, August 06, 2001 1:12 PM
> >To: MIDRANGE-L@midrange.com
> >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 Systems Technical Discussion (MIDRANGE-L)
> mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
>


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com