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
 

 

how to perform 3.13 ( datasets compare program) using REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
ynmurthy

New User


Joined: 25 Jul 2003
Posts: 4
Location: bngalore

PostPosted: Tue Feb 14, 2006 2:45 pm    Post subject: how to perform 3.13 ( datasets compare program) using REXX
Reply with quote

Hi everybody,

We have requirement like in one panel if user selects two datasets then we need to compare two datasets and result would be displayed in next panel. I have searched past topics. I have executed below code it was not working can u please let me know correct code.
Code:

"Profile Noprefix"                                               
"Alloc Fi(NEWDD) Da('myfile1') SHR"                             
"Alloc Fi(OLDDD) Da('myfile2') SHR"                             
"Alloc Fi(OUTDD) Da('myoutput') ",                               
"New Catalog Unit(SYSALL)",                                         
"Space(1,1) Cyl DsOrg(PS) RecFM(F,B) LrecL(133) BlkSize(10108)"
ADDRESS linkmvs ISRSUPC DELTAL LINECMP                           
Exit Rc 


While executing this code screen is getting strucked.

Please let me know correct syntax for "ADDRESS linkmvs ISRSUPC DELTAL LINECMP "

Thanks
Murthy
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: Tue Feb 14, 2006 6:38 pm    Post subject: Re: how to perform 3.13 ( datasets compare program) using RE
Reply with quote

Your code worked fine for me, presuming that myfile1 and myfile2 are Physical Sequential (PS) datasets.

If they are Partitioned
(PO) datasets, then you also need to provide a SYSIN DD with the list of member names for comparison, or with a DD DUMMY if you want all members.
Back to top
View user's profile Send private message
ann

New User


Joined: 10 Aug 2005
Posts: 3

PostPosted: Mon Jul 31, 2006 5:18 pm    Post subject: Re: how to perform 3.13 ( datasets compare program) using RE
Reply with quote

Hello, superk,

Is there any possible case that cause the command "ADDRESS LINKMVS" doesn't work?
Back to top
View user's profile Send private message
ap_mainframes

Active User


Joined: 29 Dec 2005
Posts: 181
Location: Canada

PostPosted: Tue Aug 01, 2006 9:03 am    Post subject:
Reply with quote

I think this rexx will do what you need.
Let me know if doesnt.

SAY ' ENTER MEMBER 1:'
PULL MEM1
SAY 'ENTER MEMBER 2:'
PULL MEM2
SP = POS(' ',MEM1)
IF SP /= 0 THEN MEM1 = SUBSTR(MEM1,1,SP-1)
IF SYSDSN("'"MEM1"'") /= 'OK' THEN DO
SAY ' MEMBER ' MEM1 'DOESNT EXISTS'
RETURN
END
SP = POS(' ',MEM2)
IF SP /= 0 THEN MEM2 = SUBSTR(MEM2,1,SP-1)
IF SYSDSN("'"MEM2"'") /= 'OK' THEN DO
SAY ' MEMBER ' MEM2 'DOESNT EXISTS'
RETURN
END
IF SYSDSN(COMP.LIST) = 'OK' THEN DO
ADDRESS TSO "DELETE COMP.LIST "
IF RC /= 0 THEN DO
SAY ' COMP.LIST DATASET IN USE'
EXIT(0)
END
END
IF SYSDSN(COMP.SYSIN) = 'OK' THEN DO
ADDRESS TSO "DELETE COMP.SYSIN"
IF RC /= 0 THEN DO
SAY ' COMP.SYSIN DATASET IN USE'
EXIT(0)
END
END
ADDRESS ISPEXEC
ADDRESS TSO
"ALLOC DD(NEWDD) SHR REUS DA('"MEM1"')"
"ALLOC DD(OLDDD) SHR REUS DA('"MEM2"')"
"ALLOC DD(OUTDD) DA(COMP.LIST) SP(10,10) TR NEW RELEASE REU",
"LRECL(133) BLKSIZE(13566) RECFM(F,B,A) ",
"MGMTCLAS(MCDCOMM)"
"ALLOC DD(SYSIN) DA(COMP.SYSIN) SP(10,10) TR NEW RELEASE",
"LRECL(80) BLKSIZE(800) RECFM(F,B) REU ",
"MGMTCLAS(MCDCOMM)"

ADDRESS TSO CALL "'SYS1.SISPLPA(ISRSUPC)','DELTAL,LINECMP'"
"FREE DD(OLDDD) "
"FREE DD(NEWDD) "
"FREE DD(OUTDD) "
ADDRESS ISPEXEC
"VPUT (A) PROFILE"
"EDIT DATASET(COMP.LIST)
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
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 Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm
No new posts Need Suggestion on COBOL program vickey_dw COBOL Programming 5 Thu Jan 05, 2017 10:55 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts REXX DB2: Dynamic allocation of DB2.D... BHAS CLIST & REXX 3 Mon Dec 19, 2016 8:26 pm


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