You are right. It seems that the OS does not allow prompting for the
CALL command.
If there are no parameter to the program that you want your programmer
to call, there is a work around. But if there is some unknown parameters
that need to be passed, then I do not know how to help you.
Here is my 2nd suggestion if the unknown program has no parameter:
- create a menu that can call command CMD1
- the command CMD1 has 2 parameters (library and program name) (10
characters each)
- CMD1 calls PGM1
- PGM1 looks like this
PGM PARM(&LIB &PGM)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&PGM) TYPE(*CHAR) LEN(10)
CALL PGM(&LIB/&PGM)
ENDPGM
Then you can prompt (with ?) the CMD1 which will give to CALL the
program name.
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 12:37 >>>
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.
midrange.com
