|
midrange.com
Or you can prototype the CL
DsetEnvironmentVariables...
D PR extpgm('SETENVVAR')
SETENVVAR is a CL Program
I call it like this:
/free
setEnvironmentVariables();
/end-free
Thanks,
Mark
Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com
RPower@xxxxxxxxxx
Sent by:
rpg400-l-bounces@ To
midrange.com RPG programming on the AS400 /
iSeries <rpg400-l@xxxxxxxxxxxx>
cc
06/29/2005 07:00
AM Subject
Re: Calling CL from RPG
Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>
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
-=-=-=-=-=-=-=-=-=-=-=-=-=-
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
