Page 1 of 1

Compare a group of programs

PostPosted: Wed Mar 30, 2011 11:48 pm
by vegafacundodaniel
Hello.
A JCL for comparing 2 programs, it is possible. Like this :

//SUPERC EXEC PGM=ISRSUPC,
// PARM=(DELTAL,LINECMP,' SEQ MIXED','')
//NEWDD DD DSN=RHT.TEST.BIND(PROGRAM),DISP=SHR
//OLDDD DD DSN=RHT.TEST.CNTL(PROGRAM),DISP=SHR
//OUTDD DD SYSOUT=(A)

My question is: How could I compare more than 1 program at the same time without repeating the SUPERC step?

something like this:
//SUPERC EXEC PGM=ISRSUPC,
// PARM=(DELTAL,LINECMP,' SEQ MIXED','')
//NEWDD DD DSN=RHT.TEST.BIND(PROGRAM1),DISP=SHR
RHT.TEST.BIND(PROGRAM2),DISP=SHR
//OLDDD DD DSN=RHT.TEST.CNTL(PROGRAM1),DISP=SHR
RHT.TEST.CNTL(PROGRAM2),DISP=SHR
//OUTDD DD SYSOUT=(A)

I'd to want to compare the program1 against the program1, and the program2 against the program2.

Thanks in advance !

Re: Compare a group of programs

PostPosted: Thu Mar 31, 2011 1:23 am
by enrico-sorichetti
if You had been a bit more daring You might have found out by Yourself
( going to 3.13 and having ISPF generate the batch job )
and You would have not had the need to ask
here is anyway the magic
000001 //*
000002 //SUPERC  EXEC PGM=ISRSUPC,                                            *
000003 //            PARM=(DELTAL,LINECMP,
000004 //            '',
000005 //            '')
000006 //NEWDD  DD DSN=<new pds >,
000007 //          DISP=SHR
000008 //OLDDD  DD DSN=<old pds >,
000009 //          DISP=SHR
000010 //OUTDD  DD SYSOUT=(A)
000011 //SYSIN  DD *
000012 SELECT member1
000013 SELECT member2
000014 SELECT member....
000015 SELECT memberN
000016 /*