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
 

 

Unable to compare two datasets using ISRSUPC

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

New User


Joined: 16 Sep 2008
Posts: 72
Location: Bangalore

PostPosted: Wed Jun 16, 2010 7:24 pm    Post subject: Unable to compare two datasets using ISRSUPC
Reply with quote

I am in need to compare two datasets to check whether the code in both the datasets is same, say

DSN1 is 'LST.CODE.CMPR.ONE(MEM1)'
DSN2 is 'LST.CODE.CMPR.TWO(MEM2)'

I am using the below REXX routine for the same, as i am running a loop where in i am comparing many datasets sequentially.


Code:

 
 NEWDD1= "LST.CODE.CMPR.ONE(MEM1)"
 OLDDD1 = "LST.CODE.CMPR.TWO(MEM1)"

 "ALLOC FI(NEWDD) DA('"NEWDD1"') REUSE SHR "               
 "ALLOC FI(OLDDD) DA('"OLDDD1"') REUSE SHR "               
 "ALLOC FI(SYSIN) DUMMY          REUSE SHR "               
                                                           
 PARMS = "DELTAL,LINECMP,NOSEQ"                           
 ADDRESS ISPEXEC "SELECT PGM(ISRSUPC) PARM("PARMS")"       



But even when both the datasets are same i get the return code as 1 which tells that there is a difference between the two datasets. I am not sure whether the parameters that i am using are correct.
Could any one help me on this?
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Wed Jun 16, 2010 7:37 pm    Post subject: Reply to: Unable to compare two datasets using ISRSUPC
Reply with quote

I use code like this:

Code:

/* REXX */
...
"ALLOC FI(newdd) DA('"newdd1"') REU SHR"       
"ALLOC FI(olddd) DA('"olddd1"') REU SHR"       
"ALLOC FI(outdd) DUMMY REU"                     
"ALLOC FI(sysin) DUMMY REU"                     
"ISPEXEC SELECT PGM(ISRSUPC)"                   
Say rc           


and I get rc=0 when both datasets are identical, rc=1 if they aren't.
Back to top
View user's profile Send private message
Debasis Misra
Warnings : 1

New User


Joined: 16 Sep 2008
Posts: 72
Location: Bangalore

PostPosted: Wed Jun 16, 2010 8:29 pm    Post subject: Reply to: Unable to compare two datasets using ISRSUPC
Reply with quote

Thank you for the reply,

I added the line "ALLOC FI(OUTDD) DUMMY REUSE SHR "

and now the results are as you told above,

RC = 0 Identical
RC = 1 not identical

Problem solved icon_smile.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 Unable to catalog a gdg dataset resid... Shovan JCL & VSAM 7 Fri Mar 24, 2017 2:24 pm
No new posts Storing huge volume of data, compare ... Pradeep K M All Other Mainframe Topics 3 Mon Jan 16, 2017 5:08 pm
No new posts DUMP DATASETS VS TRACE DATASETS! lind sh CICS 4 Tue Dec 06, 2016 11:31 pm
No new posts Match or compare two files in VB Format anatol DFSORT/ICETOOL 14 Thu Nov 03, 2016 7:41 pm
No new posts Single COPY CICS TS datasets and when... Kyle Carroll CICS 2 Tue Oct 11, 2016 9:47 pm


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