Thanks very much for all the assistance on this.... to all that helped.
Thanks to all I have a solution that will work for this situation.
It's hokey, but it accompliashes the task at hand.
1) Create a command that can can be run by limited capability users (ALWLMTCPB(*YES). This command will run a CL that:
a) Collects commands from the users using a subfile pgm with SFLSIZ 24. (24 being the allowable number of options on a generic S36 message File Menu.
b) If the subfile is updated,
- Update a data file keyed by USER / Menu Option (1-24) that includes the command to run.
- Check for the existance of a MSGF that has the same name as the user,
if exists - CHGMSGD for each of the 24 options... (e.g. msg USR0001 - USR0024).
if Not exist - CRTMSGF &userID *CAT '##'
ADDMSGD USR0001-USR0024 (for the menu options)
CRTMSGFMNU
This creates a S36 menu that displays and runs the commands that were entered into the subfile by the user.
Once the user has populated the menu with commands, it is checked by the appropriate folks, and when approved, the menu for the user is locked down so that no more changes will be allowed. (The command are locked)
For the End user to get to the menu...(when they have limited capabilities)
1) Create a command that runs a CL pgm that does a STS36PRC, where the procedure is generic, allowing '?1? ?2?'
I send the parms MENU and USERID to the PROC... which displays the Command menu for that user.
the user selects a menu option and regardless of CL or S36 commands, the commands are executed.
I have tested this pretty well, and although I need to secure the commands and files and do some more testing, It looks good.
Again, Thanks to all for the help,
Dan
Dan Riehl | Director of Services
The PowerTech Group, Inc.
19426 68th Ave. S
Kent, WA 98032
(636) 519-7917
Dan.Riehl@xxxxxxxxxxxxx
www.powertech.com <
https://mail.powertech.com/exchweb/bin/redir.asp?URL=http://www.powertech.com>
------------------------------------------------------------------------------------
This e-mail message, including any attachments, is for the sole use of the intended recipient(s) and may contain confidential or privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy the message.
midrange.com
