RE: using QCMDEXC in an RPG pgm

[jerickson@xxxxxxx]

Title: RE: using QCMDEXC in an RPG pgm

There is a 3rd parameter that most people never use unless you use DBCS, (Double Byte Character Set).  It's of length 3.  e.g.

d Qcmdexc         pr                  Extpgm('QCMDEXC')                  
d  Cmd                                Like(Qcmd) Options(*Varsize) Const 
d  CmdLen                       15p 5 Const                              
d  CmdOpt                        3    Options(*NoPass) Const             

d Qcmd            s           3000

HTH,

Regards,
Jon A. Erickson
Sr. Programmer Analyst
800.COM Inc.
1516 NW Thurman St
Portland, OR  97209-2517
 
Direct: 503.944.3613
Fax: 503.943.9313
Web: http://800.com

-----Original Message-----
From: Shaw, David [mailto:dshaw@spartan.com]
Sent: Friday, March 23, 2001 11:40 AM
To: 'RPG400-L@midrange.com'
Subject: RE: using QCMDEXC in an RPG pgm

Answers in-line.

-----Original Message-----
From: saustad@deltadentalwi.com [mailto:saustad@deltadentalwi.com]

>When using QCMDEXC in an RPG pgm:
>
>1)  Why does the second parm have to be defined as 15,5?

Because that's how IBM defined it in the program.  Numeric parameters have
to match between calling and called programs, even when IBM writes them.

>2)  What is the 3rd parm used for?

I must have missed this one, I've never heard of a third parm for QCMDEXC.
Of course, maybe after 15 years I've gotten complacent...

>3)  Which API manual is QCMDEXC documented in?

I think it's in the CL Programming manual.  It was back in the /38 days
(when it was QCAEXEC), and I don't think they've ever moved it.

>Thanks for any info.

You're welcome.

Dave Shaw
Spartan International, Inc.
Spartanburg, SC
---
If you would like to subscribe to the MAPICS-L mailing list send email to
MAPICS-L-SUB@midrange.com or go to www.midrange.com and follow the
instructions.
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---