LMMFREE issue



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

LMMFREE issue

Postby chidams78 » Mon Oct 13, 2008 8:58 pm

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
chidams78
 
Posts: 16
Joined: Fri Sep 19, 2008 6:35 pm
Has thanked: 0 time
Been thanked: 0 time

Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post