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 Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm
No new posts Need Suggestion on COBOL program vickey_dw COBOL Programming 5 Thu Jan 05, 2017 10:55 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts REXX DB2: Dynamic allocation of DB2.D... BHAS CLIST & REXX 3 Mon Dec 19, 2016 8:26 pm
No new posts find particular member name in PDS us... ravi243 CLIST & REXX 10 Mon Dec 19, 2016 6:44 pm


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