John McKown wrote:
>I want to write an ISPF application which is self contained. I vaguely
>remembered that someone, sometime, said it is possible to "embed" the ISPF
>panels / message / et al in the REXX itself.
I have posted on RACF-L many moons ago that I wrote a self contained REXX
program with LIBDEF panels, message library, etc., which, using pop-up ISPF
panels, captures data to create/re-assign/delete many RACF ids [1] and then
write out a dataset containing RACF commands for later review and executing.
When finished, that REXX program drops everything it aquired and just leave a
dataset for review/editing later.
Is this what you want? I can e-mail that REXX program/panels/messages to you
off-list.
Groete / Greetings
Elardus Engelbrecht
[1] - Screen grab, all driven by REXX:
Menu RefList RefMode Utilities Help
-----------------------------------------------------------
Data Set List Utility
Option ===> TSO ADDIDS
blank Dis .-------- Add/Delete Userids To RACF --------.
V Dis | |
| 1 Add Userids (New Workfile) |
Enter one or | 2 Add Userids (Same Workfile, but |
Dsname Le | new commands added to Workfile) |
Volume se | 3 Delete Userids (Same Workfile) |
| |
Data set lis | Your Choice : _ |
Initial V | |
1 1. Vol | For support please call |
2. Spa | Racf Team at ...., .... or .... |
3. Att | |
4. Tot | ENTER - Continue |
| PF1/PF13 - Help |
| PF3/PF15 - Exit |
'--------------------------------------------'
------------------------------------------------------------------------------
Data Set List Utility
Option ===> TSO ADDIDS
blank Dis .-------- Add/Delete Userids To RACF --------. t list
V Dis | | formation
.----------------------------- Add Userids -----------------------------.
Enter | |
Ds | Please enter the fields and press enter |
Vo | |
| Enter Id Prefix : ID PREFX Full id if only one or just Prefix |
Data | Enter Group Owner : GROUP___ Put = in either Owner or Group, that |
In | Enter Default Group : GROUP___ field will get value from other |
1 | Enter Username : USERNAME____________ |
| Enter Installation Data: |
| CREATED ON 2017/03/14 |
| |
| Begin Value : 1000 |
| End Value : 0000 (Only used if Count = 0) |
| Count : 0__ (Count takes preference) |
When | Suffix Length : 3 |
"/" | Revoked? : Y |
an | Password? : N |
"=" | Extra Groups : ________ ________ ________ |
| ENTER - Continue PF3/15 - Cancel |
'-----------------------------------------------------------------------'
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
