× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.