Comparing Two PDS????

hisabarish · New User Joined: 19 Jul 2005 Posts: 4 Location: Bangalore

I have two PDS like old.pds and new.pds. I want to compare(line by line) to those pds members and the output of the line comparison would be loaded into separate pds.(like SUPERC) Can any one let me know the solution please.

I written a jcl for comparing 2 pds ie., like SUPERCE comparison, , the problem is here we will enter the each member name in to that jcl . yeah that is not automated. My teammate told REXX have these provision , I don?t know REXX. Pls. help my request.

mikeym · New User Joined: 18 Aug 2005 Posts: 7

Hi,

SUPERCE will work without the need write the list of members. You can use * if you're working online in ISPF (3.13), or if you're using a job, run SUPERC with the following parm PARM=(DELTAL,LINECMP,'','')

Good luck

hisabarish · New User Joined: 19 Jul 2005 Posts: 4 Location: Bangalore

Thankx for your answer

But my requirement is....

I will give only 2 PDS names? it will be compare(line by line) to the corresponding members in the PDS and the output will be dump to the other PDS. ie., . R0001Z.LNT. REPORTS.SUPERCE

This my proc.
PROC.

//SUPERC EXEC PGM=ISRSUPC,
// PARM=(DELTAL,LINECMP,
// 'COBOL',
// '')
//NEWDD DD DSN=R0001Z.LNT.&DSNEW..&PROCGRP(&DS),
// DISP=SHR
//OLDDD DD DSN=R0001Z.LNT.&DSOLD..&PROCGRP(&DS),
// DISP=SHR
//OUTDD DD DSN=R0001Z.LNT.REPORTS.SUPERCE(&DS),
// DISP=(MOD,CATLG),SPACE=(TRK,(30,20,13),RLSE)
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
//

This is my Main Program.
//R0001ZS JOB (1019,XXXX,1),'SABARI',CLASS=L,
// MSGCLASS=X,NOTIFY=&SYSUID,MSGLEVEL=(1,1)
/*JOBPARM R=C739
//*
// JCLLIB ORDER=(R0001Z.CHK.COMPRE.PDS)
//STEP01 EXEC SUPERCEP,
// DSNEW=XYZNEW,DSOLD=XYZOLD,PROCGRP=C2BNNN,DS=C910001
//STEP02 EXEC SUPERCEP,
// DSNEW=XYZNEW,DSOLD=XYZOLD,PROCGRP=C2BNNN,DS=DPATEST1
//STEP03 EXEC SUPERCEP,
// DSNEW=XYZNEW,DSOLD=XYZOLD,PROCGRP=C2BNNN,DS=E070103
//STEP04 EXEC SUPERCEP,
// DSNEW=XYZNEW,DSOLD=XYZOLD,PROCGRP=C2BNNN,DS=HR00957

In that main program, each and every time, I am typing the members name and the processor group name. Instead of this manual work, I want give only the PDS names.
I want to make the above program as automated.

Pls. any body help me... I Struggled lot for last three days.

mikeym · New User Joined: 18 Aug 2005 Posts: 7

Is your problem that the output of SUPERCE is a line by line comparison of corrisponding members with the output going into only ONE PDS FILE?

If that is the only problem, i can give you a little rexx i have that reads the compare output and seperates it into a pds by member name...

mikeym · New User Joined: 18 Aug 2005 Posts: 7

Maybe i wasn't clear before. you can run SUPERC and only give the PDS names (one old and one new). It will compare all members with the same names, but the output will go into one sequential file with the comparisons of all the members in it. eg:
//SUPERC EXEC PGM=ISRSUPC,
// PARM=(DELTAL,LINECMP,
// '',
// '')
//NEWDD DD DSN=MYUSER.JOBS,
// DISP=SHR
//OLDDD DD DSN=MYUSER.JOBS.NEW,
// DISP=SHR
//OUTDD DD DSN=MYUSER.JOBS.COMPARE.OUT, <---sequential file
// DISP=SHR

You can run an additional step on the file MYUSER.JOBS.COMPARE.OUT which seperates the comparisons into a pds by member name.