|
View previous topic :: View next topic
|
| Author |
Message |
shreevamsi
Active User
Joined: 23 Feb 2006
Posts: 305
Location: Hyderabad,India
|
|
|
|
Hi,
I Opened a member in the PDS.
Using REXX, is there a way to capture the name of the PDS and the Member currently opened in a varible ??
Thanks,
~Vamsi |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
Use a couple of ISPF EDIT Macro statements:
/* REXX */
"ISREDIT MACRO"
"ISREDIT currdsn = DATASET"
"ISREDIT currmem = MEMBER"
Say "'"currdsn"("currmem")'" |
|
| Back to top |
|
|
shreevamsi
Active User
Joined: 23 Feb 2006
Posts: 305
Location: Hyderabad,India
|
|
|
|
Hi,
Thanks superk.
it z working.
~Vamsi |
|
| Back to top |
|
|
gauravgupta01
New User
Joined: 29 Nov 2007
Posts: 10
Location: Delhi
|
|
|
|
Hi SuperK,
Could you please help me out.....I tried to run the above code you have given and I am facing the below error...
| Code: |
IKJ56500I COMMAND CURRDSN NOT FOUND
***
|
and then...
| Code: |
ISPF Edit Macro Error
Command ===>
******************************************************************************
* *
* Command in error . : %CURRDSN *
* *
* Command not found *
* "CURRDSN" is not an edit command or macro. *
* *
* Error message ID . : ISRE453 *
* *
* Last return code . : 20 *
* *
* Macro executing . : CURRDSN *
* *
* Press ENTER key to terminate the macro. *
* *
* *
* *
******************************************************************************
|
Please tell me what is going wrong.... |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| The code needs to be in a library which is concatenated in either SYSEXEC or SYSPROC |
|
| Back to top |
|
|
|
|
