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: 4649
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 I want to retire TRX and use only Rex... Abhinav Sharma CLIST & REXX 4 Sat Jul 29, 2017 2:53 am
No new posts Iterative use of a REXX script causin... bryonyh CLIST & REXX 4 Fri Jul 28, 2017 12:52 pm
No new posts Passing data from REXX to C programme... chong.zhou CLIST & REXX 3 Wed Jul 26, 2017 9:11 pm
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am


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