|
View previous topic :: View next topic
|
| Author |
Message |
ynmurthy
New User
Joined: 25 Jul 2003
Posts: 4
Location: bngalore
|
|
|
|
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 |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
ann
New User
.jpg)
Joined: 10 Aug 2005
Posts: 3
|
|
|
|
Hello, superk,
Is there any possible case that cause the command "ADDRESS LINKMVS" doesn't work? |
|
| Back to top |
|
|
ap_mainframes
Active User
Joined: 29 Dec 2005
Posts: 181
Location: Canada
|
|
|
|
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 |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
