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: 2126 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: 2589 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 |
|
|
|