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
 

 

LMCOPY and ISRSUPC not working as expected

 
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 Aug 19, 2009 2:39 pm    Post subject: LMCOPY and ISRSUPC not working as expected
Reply with quote

I have treid to use LMCOPY and ISRSUPC in REXX exec.
in Step 1) I copied a module XXXX from dataset A to dataset B
step 2) I compared the Module XXXX in A and B.

I'm expecting the return code of ISRSUPC as zero. but the return code I am getting is one(changes found).
To cross check i compared the modules from the SuperC ispf panel. I have noted that some junk values. Could any one tell me how and why LMCOPY is producing this result

the other thing i noticed is, When i used the COMP commad in the command line the result is "no differences found". I could not make out why these reults are so confusing. please let me know if any information is needed.
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 Aug 19, 2009 4:35 pm    Post subject:
Reply with quote

I have just performed a copy using LMCOPY and then a compare using ISRSUPC and there are no discreprancies.

Quote:
Could any one tell me how and why LMCOPY is producing this result

Not without seeing how you have coded things, no.
Are there any differences between the attributes of the two PDS
Back to top
View user's profile Send private message
Nandananilchintala

New User


Joined: 25 Mar 2009
Posts: 19
Location: Hyderabad

PostPosted: Wed Aug 19, 2009 6:39 pm    Post subject: Reply to: LMCOPY and ISRSUPC not working as expected
Reply with quote

Code:

/* REXX */                                                           
DS11 = 'HLQ1.TEST.PLISQL'                                     
DS22 = 'HLQ1.MYID.PLISQL'                                     
DS2 = 'HLQ1.MYID.PLISQL(TESTPROG)'                             
DS1 = 'HLQ1.TEST.PLISQL(TESTPROG)'                             
MEM = 'TESTPROG'                                                     
ADDRESS TSO                                                         
ADDRESS ISPEXEC "LMINIT DATAID(INDD1) DATASET('"DS11"')"             
ADDRESS ISPEXEC "LMINIT DATAID(OUTDD1) DATASET('"DS22"')"           
ADDRESS ISPEXEC                                                     
 "LMCOPY FROMID("INDD1") TODATAID("OUTDD1") FROMMEM("MEM")           
  TOMEM("MEM") REPLACE PACK"                                         
  SAY 'RETURN CODE OF COPY IS' RC                                   
     ADDRESS TSO                                                     
         "ALLOC FI(NEWDD) DA('"DS1"') REUSE SHR "                   
         "ALLOC FI(OLDDD) DA('"DS2"') REUSE SHR "                   
         "ALLOC FI(SYSIN) DUMMY          REUSE SHR "                 
          OUTDAT = "MYID.TEMP10.DATASET.CHANGES"                         
         IF "OK" == SYSDSN("'"OUTDAT"'") THEN                           
           DO                                                           
             SAY 'OUT DSET EXISTS TRYING TO DELETE'                     
             ADDRESS TSO "DELETE '"OUTDAT"'"                           
             SAY "RETURN CODE FOR DELETE IS " RC                       
             IF RC ¬= 0 THEN                                           
               DO                                                       
                 SAY "CLOSE THE DSET :" OUTDAT                         
                   "FREE F(NEWDD,OLDDD,SYSIN)"                         
                 EXIT                                                   
               END                                                     
           END                                                         
         ELSE DO                                                       
          SAY 'THE OUTDAT DOESNOT EXISTS'                               
           END                                                         
         ADDRESS TSO "ALLOC DA('"OUTDAT"') F(OUTDD) NEW RECFM(F,B)",   
           "LRECL(80) SPACE(5,10) TRACK BLKSIZE(0)"                     
  ADDRESS ISPEXEC "SELECT PGM(ISRSUPC)                           
                 PARM(DELTAL,LINECMP,SEQ)"                       
                 SAY 'RETURN CODE OF COMPARE IS' RC               

Back to top
View user's profile Send private message
Nandananilchintala

New User


Joined: 25 Mar 2009
Posts: 19
Location: Hyderabad

PostPosted: Wed Aug 19, 2009 6:42 pm    Post subject:
Reply with quote

Hi expat,

above is the code I haev written.
and reagrding the attributes,both the datasets are PDS and The LRECL of both are same.
let me know if we need to check some other attributes as well?
Back to top
View user's profile Send private message
prino

Active Member


Joined: 07 Feb 2009
Posts: 989
Location: Oostende, Belgium

PostPosted: Wed Aug 19, 2009 6:49 pm    Post subject:
Reply with quote

This is the culprit:

Code:
LMCOPY FROMID("INDD1") TODATAID("OUTDD1") FROMMEM("MEM") TOMEM("MEM") REPLACE PACK"


SuperC needs the CKPACKL to compare packed datasets. Edit and View automatically unpack datasets before displaying them.

Why do you use the PACK option of LMCOPY???
Back to top
View user's profile Send private message
Nandananilchintala

New User


Joined: 25 Mar 2009
Posts: 19
Location: Hyderabad

PostPosted: Wed Aug 19, 2009 7:11 pm    Post subject: Reply to: LMCOPY and ISRSUPC not working as expected
Reply with quote

Hi ,

Thanks a lot!!!
I removed the 'PACK' in LMCOPY and it is working fine now... icon_lol.gif
I have included because of ignorance icon_sad.gif
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 SCRNAME not working on my mainframe? mrsidhu12 TSO/ISPF 7 Thu Sep 01, 2016 2:17 pm
No new posts 2 same CLIST pgm but with different n... boyti ko CLIST & REXX 5 Fri Jun 03, 2016 4:55 pm
No new posts REXX Screen not working due to LINKED... sundarkudos CLIST & REXX 1 Mon May 09, 2016 1:44 pm
No new posts Free FILE not working for specific users sankalp-goyal CLIST & REXX 12 Mon Apr 25, 2016 6:33 pm
No new posts ISRSUPC SRCHFOR tool - Query while us... soundarr JCL & VSAM 7 Wed Mar 16, 2016 8:55 pm


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