RE: Rép. : CALL an Unspecified Program Without a Command Line

Try creating a display file with a field 10 bytes long for the program,
and a second field with space for any parameters (just a blank line,
he'll have to do any formatting manually. In your CL program use SNDRCVF
to display and read this screen. Your CL program can then call the program
using those fields.

Steve

Steven Morrison
Fidelity Express





"Burns, Bryan" <Bryan_Burns@xxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
12/12/2008 11:46 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
cc

Subject
RE: Rép. : CALL an Unspecified Program Without a Command Line






How does that question mark work? When I compiled the CL, it blew up
with:

* CPD0782 40 Prompt character not allowed for command CALL.
1900- ENDPGM
* CPD0729 10 No executable commands found in source file.



-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Denis Robitaille
Sent: Friday, December 12, 2008 10:47 AM
To: MIDRANGE-L@xxxxxxxxxxxx
Subject: Rép. : CALL an Unspecified Program Without a Command Line

Create for him a menu.

On that menu, call a program (pgm1)

PGM1 would do the following:

pgm
?call
endpgm

The programmer would get prompted for the name of the program to call.

Note: that could create a security breach because he could call the
program QCMD that gives a command line. So make sure that he has LMTCPB
= *YES

Denis Robitaille
Directeur services technique TI
819 363 6130

SUPPORT
Jour (EST) Daytime : 819-363-6134
En-dehors des heures (EST) After hour : 819-363-6158
Network Status : 819-363-6157

"Burns, Bryan" <Bryan_Burns@xxxxxxxxxxxx> 2008-12-12 11:22 >>>

I need to give a former programmer the ability to CALL a program and I
don't know which program and I don't want to give him command line
access. This will be temporary until he can specify the programs, at
which time I'll just create menu options for him.

Is this possible?

Bryan Burns
iSeries Specialist
ECHO, Incorporated
Lake Zurich, Illinois

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.