IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Run a REXX program within ISPF panels


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
smileseenu

New User


Joined: 27 Sep 2006
Posts: 13
Location: India

PostPosted: Wed Jul 15, 2009 3:31 pm
Reply with quote

Hi,

I need to run a rexx program within the ISPF panels.

Cheers,
Srini
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Jul 15, 2009 3:34 pm
Reply with quote

Please explain your requirement in more detail to get the best answer.

Your current explanation is not clear.
Back to top
View user's profile Send private message
smileseenu

New User


Joined: 27 Sep 2006
Posts: 13
Location: India

PostPosted: Wed Jul 15, 2009 4:52 pm
Reply with quote

)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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Jul 15, 2009 5:01 pm
Reply with quote

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
View user's profile Send private message
smileseenu

New User


Joined: 27 Sep 2006
Posts: 13
Location: India

PostPosted: Wed Jul 15, 2009 5:07 pm
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Jul 15, 2009 5:20 pm
Reply with quote

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
View user's profile Send private message
smileseenu

New User


Joined: 27 Sep 2006
Posts: 13
Location: India

PostPosted: Thu Jul 16, 2009 8:38 am
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Jul 16, 2009 11:29 am
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top