REXX: How to read the Dataset and Member Name

In order to read the dataset and member name of the opened member, use the following REXX code. 

After executing this REXX code, the variable PDSNAME will contain the Dataset Name and Member will contain the member name. If the same REXX is applied to a PS file, then PS file name will be stored in variable PDSNAME and Member name will be empty. 

/*REXX*/
 "ISPEXEC CONTROL ERRORS RETURN"

 "ISREDIT MACRO (PARMS) NOPROCESS"                                              
 "ISREDIT (PDSNAME) = DATASET"                                                  
 "ISREDIT (MEMBER)  = MEMBER"