Page 1 of 1

LMMFREE issue

PostPosted: Mon Oct 13, 2008 8:58 pm
by chidams78
Hi,

I am currently doing tranformation process (Changing the prod qualifiers to test) to all members in a PDS.

I will open a PDS and will execute the REXX JCLEDITJ in command name. It will ask for details such as what qualifier we should put. On giving that it will get all the members of PDS in a list and will execute that. But the problem is even after finishing executing the REXXa dn closing the PDS and, if I am just running the same macro again by opening the PDS and without giving any qualifier details, it will take the previously given qualifier. How to free the REXX. I had put the givne code but freeing is not done.

JCLEDITJ
ADDRESS ISPEXEC                         
"LMOPEN DATAID("OPENPDS") OPTION(INPUT)"
MBR = ' '                                                         
SAVERC = 0                                                         
DO WHILE (SAVERC = 0)                                             
  "LMMLIST DATAID("OPENPDS") MEMBER(MBR) OPTION(LIST) STATS(NO)"   
   SAVERC = RC                                                     
   IF (SAVERC = 0) & (MBR \= OPENMBR) THEN                         
    DO                                                             
      "EDIT DATAID("OPENPDS") MEMBER("MBR") MACRO(ISPF macro)"       
    END                                                           
END                                                               
"LMMLIST DATAID("OPENPDS") OPTION(FREE)"   
"LMFREE DATAID("OPENPDS")"                 
"LMCLOSE DATAID("OPENPDS")"               
EXIT 0                                     


Plz help