|
View previous topic :: View next topic
|
| Author |
Message |
kokido
New User
Joined: 20 Jun 2024
Posts: 8
Location: Netherlands
|
|
|
|
Here is a little rexx:
/* REXX */
rc=isfcalls('ON')
isfprefix='*'
isfowner='*'
isfsysname='*'
isfdest=' ' || ,
' ' || ,
' ' || ,
' '
Address SDSF "ISFEXEC 'DA' (" verbose ")"
I know from here on I can pick up all kinds of variables.
What I want is to display the corresponding SDSF panel, directly from this rexx.
Does anyone know how to do this?
regards,
Hans Kok |
|
| Back to top |
|
 |
sergeyken
Senior Member
Joined: 29 Apr 2008
Posts: 2141
Location: USA
|
|
|
|
Mandatory Rule #1:
| kokido wrote: |
Here is a little rexx:
| Code: |
/* REXX */
rc=isfcalls('ON')
isfprefix='*'
isfowner='*'
isfsysname='*'
isfdest=' ' || ,
' ' || ,
' ' || ,
' '
Address SDSF "ISFEXEC 'DA' (" verbose ")" |
I know from here on I can pick up all kinds of variables.
What I want is to display the corresponding SDSF panel, directly from this rexx.
Does anyone know how to do this?
regards,
Hans Kok |
|
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2594
Location: Silicon Valley
|
|
|
|
If I recall correctly, the SDSF panels are formatted dynamically from assembler programs. I do not think the rexx API and the SDSF panels interact with each other in the way that you desire.
You can probably take the information returned from rexx and format it to look like the SDSF panels, but it is actually a pretty daunting task.
Separately, you can create a slimmed down panel that is somewhat similar to SDSF. Use an ISPF table and use table processing services. In this way you can have your own line commands.
----
Or you might be able to display the actual SDSF panel:
| Code: |
| Address ISPEXEC "SELECT CMD(sdsf ; da)" |
or maybe
| Code: |
| Address TSO "sdsf da" |
but you lose control and the user can do whatever they want within SDSF.
Sorry, I am retired and can no longer verify before posting, but it is something like that. |
|
| Back to top |
|
|
kokido
New User
Joined: 20 Jun 2024
Posts: 8
Location: Netherlands
|
|
|
|
Thank you for you clarifiing answer.
Sorry I broke the rule, won't do it again.
regards,
Hans Kok |
|
| Back to top |
|
|
kokido
New User
Joined: 20 Jun 2024
Posts: 8
Location: Netherlands
|
|
|
|
Made some improvements.
| Code: |
/* Rexx
ADDRESS ISPEXEC
cmd = 'SDSF;DA OTSU;OWNER;PRE 'userid()';SYSID *'
"DISPLAY PANEL(IPWBPRIM) COMMAND(CMD)"
|
The panel is the primary panel. By entering SDSF this way you can stack your commands.
Grateful you put me in the right direction.
kind regards,
Hans Kok |
|
| Back to top |
|
|
|
|
