Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

LMMLIST not retreiving all the members

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Nandananilchintala

New User


Joined: 25 Mar 2009
Posts: 19
Location: Hyderabad

PostPosted: Wed Apr 01, 2009 11:06 am    Post subject: LMMLIST not retreiving all the members
Reply with quote

Hi,

I have coded the follwoing macro, to view a member from SCLM, The member name is retrieved from the cursor position. i.e. it reads the 8 characters at the present cursor position, and those characters would be the name of some other module. that module must be opened in view mode. I have used the LMLIST for this purpose. I will scan all the members from all the levels of SLCM one after the other.

but when it is not retrieving all the members from each of SCLM levels.

Instead, it is scanning(or retrieving) only some members from the SCLM.
As a result im am unable to open the required member in view mode(as it is not being retrieved)

Please let me know why im facing this problem and how can i make the following command to retrieve all the members.


Code:

"ISREDIT (DATA) = LINE" .ZCSR                               
MEMBER1 = SUBSTR(DATA,COL,8)                                                     
LEN1 = LENGTH(MEMBER1)                                       
MEMBER2 = STRIP(MEMBER1)                                     
TEMP1 = SUBSTR(MEMBER2,8,1)                                 
IF (TEMP1 = '(' | TEMP1 = ')')                               
THEN DO                                                     
FLAG = 'YES'                                                 
TEMP2 = SUBSTR(MEMBER1,1,7)                                 
MEMBER1 = TEMP2||' '                                         
END                                                         
VARFIN = 'FOUND'                                             
         /* OPENING OF THE MODULE STARTS */                 
DDN = 'RCBR033.IN16608.PLINCL'                               
ADDRESS ISPEXEC "LMINIT DATAID(DSET) DATASET('"DDN"')"       
ADDRESS ISPEXEC "LMOPEN DATAID("DSET")"                     
DO WHILE (RC = 0 & VARFIN = 'FOUND')                         
      ADDRESS ISPEXEC "LMMLIST DATAID("DSET") OPTION(LIST)",
                      "MEMBER(MEMBER) STATS(YES)"                       
              IF RC = 0 THEN DO                                         
                  IF MEMBER = MEMBER1 THEN DO                           
                     VARFIN = 'HI'                                     
                     IF FLAG = 'YES' THEN                               
                     ADDRESS ISPEXEC "VIEW DATASET('"DDN"("TEMP2")')"   
                     ELSE                                               
                     ADDRESS ISPEXEC "VIEW DATASET('"DDN"("MEMBER2")')"
                     END                                               
              END                                                       
              ELSE                                                     
               DO                                                       
         /*      ADDRESS ISPEXEC "LMCLOSE DATAID("DSET")"  */           
                 SELECT                                                 
                 WHEN(DDN = 'RCBR033.IN16608.PLINCL') THEN             
                 DDN = 'RCBR033.DEVELOP.PLINCL'                       
                 WHEN(DDN = 'RCBR033.DEVELOP.PLINCL') THEN             
                 DDN = 'RCBR033.SYSTEM.PLINCL'                         
                 WHEN(DDN = 'RCBR033.SYSTEM.PLINCL') THEN             
                 DDN = 'RCBR033.SHIPPED.PLINCL'                       
                 WHEN(DDN = 'RCBR033.SHIPPED.PLINCL') THEN DO         
                  ADDRESS ISPEXEC "LMCLOSE DATAID("DSET")"             
                  LEAVE                                               
                  END                                                 
                 END /* SELECT */                                     
                 ADDRESS ISPEXEC "LMINIT DATAID(DSET) DATASET('"DDN"')"
                 ADDRESS ISPEXEC "LMOPEN DATAID("DSET")"               
               END                                                     
   END /* DO WHILE */ 
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Apr 01, 2009 11:46 am    Post subject:
Reply with quote

Is the member name always 8 bytes long or can it be shorter
Back to top
View user's profile Send private message
Nandananilchintala

New User


Joined: 25 Mar 2009
Posts: 19
Location: Hyderabad

PostPosted: Wed Apr 01, 2009 11:52 am    Post subject:
Reply with quote

It can be shorter, it may be of either 7 or 8 characters,

I observed that LMMLIST retrieves the members assuming it as 8 chars( my understanding)

i.e, if a member name is actually 'ABCXXXX', then LMMLIST retrieves it as 'ABCXXXX ' . I have coded my Macro assuming this...

if the member name i read from cursor position is of 7 chars , then i appended a blank at the end of it, before comparing .....

is my logic wrong?

do i have to use only the member name(without using the blank at the end)
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Copying Panvalet members to PDS LOGESHWARAN K CA Products 4 Mon Mar 06, 2017 10:45 am
No new posts Single step utility for compare and u... ramprakashn JCL & VSAM 5 Fri Apr 29, 2016 3:43 pm
No new posts Differences between copying members b... E.LAI TSO/ISPF 8 Wed Mar 30, 2016 12:35 pm
No new posts JCL to replace string in all PDS members bhamarekm All Other Mainframe Topics 8 Thu May 28, 2015 8:44 pm
No new posts Issue with copying PDS members to ano... Senthilkumar k CLIST & REXX 13 Mon Apr 20, 2015 1:28 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us