Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Identify currently open PDS in macro

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
Author Message
lohithegde

New User


Joined: 18 May 2008
Posts: 21
Location: Chennai

PostPosted: Sat May 31, 2008 5:27 pm    Post subject: Identify currently open PDS in macro
Reply with quote

I've used the following code to get the CURRENT PDS name, but it's not working:

Code:
 
/* rexx */
"ISREDIT MACRO"       
"ISREDIT (OPENPD1) = DATAID"
SAY OPENPD1


But it is not displaying the current PDS name. ISR00024 is what is is displaying. I want to use it for further processing.
Back to top
View user's profile Send private message
References
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 3258
Location: Charlotte,NC USA

PostPosted: Sat May 31, 2008 6:10 pm    Post subject: Reply to: Identify currently open PDS in macro
Reply with quote

Quote:

The DATAID assignment statement retrieves the data ID for the data set currently being edited and places it in a variable.

The data ID is created by the LMINIT service to identify a data set.

If you begin an edit session with a data ID, the data ID is returned when you issue this command. If you begin an edit session without a data ID, then an LMINIT service obtains a data ID and returns it. On return from a top-level macro, the editor releases any data ID it has obtained.


I don't see where you've used the LMINIT service in your code, so I don't think you chose the right command.

I think you want DATASET:

"ISREDIT (OPENPD1) = DATASET"
Back to top
View user's profile Send private message
lohithegde

New User


Joined: 18 May 2008
Posts: 21
Location: Chennai

PostPosted: Mon Jun 02, 2008 9:31 am    Post subject:
Reply with quote

Hi thanks..it solved my problem
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1