Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Run a REXX program within ISPF panels

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: Run a REXX program within ISPF panels
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: 8593
Location: Back in jolly old England

PostPosted: Wed Jul 15, 2009 3:34 pm    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Wed Jul 15, 2009 5:01 pm    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Wed Jul 15, 2009 5:20 pm    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Jul 16, 2009 11:29 am    Post subject:
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    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts REXX cdoe to purge a JOB from spool a... Sulabh Agrawal CLIST & REXX 11 Thu Mar 09, 2017 11:36 am
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm
No new posts Overriding PS data in rexx Shaheen Shaik CLIST & REXX 8 Fri Mar 03, 2017 5:08 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts ISPF - How to come out of ISPF Panel parasmalik20 TSO/ISPF 5 Tue Feb 21, 2017 7:44 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us