Compare a group of programs



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

Compare a group of programs

Postby vegafacundodaniel » Wed Mar 30, 2011 11:48 pm

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 !
vegafacundodaniel
 
Posts: 61
Joined: Tue Jul 20, 2010 4:27 pm
Has thanked: 1 time
Been thanked: 0 time

Re: Compare a group of programs

Postby enrico-sorichetti » Thu Mar 31, 2011 1:23 am

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 /*
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2994
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 164 times


Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post