View previous topic :: View next topic
|
Author |
Message |
smileseenu
New User
Joined: 27 Sep 2006 Posts: 13 Location: India
|
|
|
|
Hi,
I need to run a rexx program within the ISPF panels.
Cheers,
Srini |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Please explain your requirement in more detail to get the best answer.
Your current explanation is not clear. |
|
Back to top |
|
|
smileseenu
New User
Joined: 27 Sep 2006 Posts: 13 Location: India
|
|
|
|
)PROC
&DYNAREA = &PADDYNA
IF (&DSN ¬= ' ')
VER(&DSN DSNAME)
IF (.MSG = '')
&DSNRC = '00'
*REXX(*,DSNRC)
DSNRC = LISTDSI(DSN)
If DSNRC <= 4 Then
Do
DYNAREA = ,
'Data set name: ' Left(sysdsname,44) || ,
'Volume serial ID: ' Left(sysvolume,44) || ,
'Unit on which volume resides: ' Left(sysunit,44) || ,
'Data set organisation: ' Left(sysdsorg,44) || ,
'Record format: ' Left(sysrecfm,44) || ,
'Logical record length: ' Left(syslrecl,44) || ,
'Block size: ' Left(sysblksize,44)
End
Return
*ENDREXX
IF (&DSNRC > 4) .MSG = ISRD028
i want some thing like this |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Yes, and ................
The idea of me asking you to explain in detail was for you to let us know exactly what it is that you want to achieve. Your reply has left me more confused than before. |
|
Back to top |
|
|
smileseenu
New User
Joined: 27 Sep 2006 Posts: 13 Location: India
|
|
|
|
i am getting a variable in ISPF panel, and i need to check that in the list that i maintain in a seperate member, this is my requoirement |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
And why do you need the REXX program to be executed from within the panel ? Why not just use the REXX program to display the panel, and then go do the checking outside of the panel once the user has entered the required information. |
|
Back to top |
|
|
smileseenu
New User
Joined: 27 Sep 2006 Posts: 13 Location: India
|
|
|
|
actually i will be going through serious of panels and at the last panel i will be triggering REXX program.
Actually i am doing the check at panels now, issue is i need to do the same check in many panels and its getting difficult to maintain the list at many places.
Cheers,
Srini |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Use a REXX program to start off with, allow it to display all of the panels, and then you only need to write the verification routine once, which you can then call from anywhere else in the REXX program. |
|
Back to top |
|
|
|