Re: Calling CL from RPG

You can either call it directly, or use QCMDEXC.  I usually prototype the 
call to QCMDEXC.

d*-------------------------------------------------- 
d* Procedure name: Qcmdexc 
d* Purpose:        To allow the running of CL commands 
d* Returns: 
d* Parameter:      Cmd => Command to run 
d* Parameter:      CmdLen => Length of command to run 
d*-------------------------------------------------- 
d QCmdExc         PR                  EXTPGM('QCMDEXC') 
d  Cmd                        3000A   Const Options(*VARSIZE) 
d  CmdLen                       15P 5 Const 
d  Cmddbcs                       3A   Const Options(*NOPASS) 


c                   Eval      Cmd = 'CALL CLPROGRAM'
c                   CallP(E)  QCmdExc(Cmd:%Len(Cmd)) 

or you could just
c                   Call        CLPROGRAM

HTH,

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Brian Piotrowski" <bpiotrowski@xxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2005/06/29 10:48 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Calling CL from RPG






Hi All,

 

Can someone please tell me how I can call a CL program from RPG?

 

Thanks!

 

Brian.

 

-=-=-=-=-=-=-=-=-=-=-=-=-=-

Brian Piotrowski

Specialist - I.T.

Simcoe Parts Service, Inc.

Ph: 705-435-7814 x343

Fx: 705-435-6746

bpiotrowski@xxxxxxxxxxxxxxx

-=-=-=-=-=-=-=-=-=-=-=-=-=-