//********************************************************************
//*                                                                  *
//* SAMPLE JCL TO COMPARE ACS TEST LISTINGS IN BATCH                 *
//*                                                                  *
//*   INSTRUCTIONS BEFORE SUBMITTING:                                *
//*                                                                  *
//*     CHANGE JOBCARD                                               *
//*     CHANGE PREFIX                                                *
//*     CHANGE PARAMETERS                                            *
//*                                                                  *
//*   PARAMETERS:                                                    *
//*                                                                  *
//*     BASELIST - BASE ACS TEST LISTING (INPUT)                     *
//*     NEWLIST  - NEW ACS TEST LISTING (INPUT)                      *
//*     TESTBED  - TEST CASE PDS (REFERENCE INPUT)                   *
//*     RSLTDSN  - COMPARISON RESULTS DATA SET (OUTPUT)              *
//*     XCPTPDS  - EXCEPTION TEST CASE PDS (OUTPUT)                  *
//*     XCPSPACE - SPACE values of Except DS (Optional)    3a@WA32832*
//*       Values: (Primary Tracks,Secondary Tracks,Directory Blocks) *
//*         which are positional and optional. Defaults: (3,1,20).   *
//*                                                                  *
//*   NOTE:  If you receive message IEC217I B14-0C on your exception *
//*       data set, you need to increase your data set size by using *
//*       the XCSPACE parameter (specially the directory blocks)     *
//*                                                                  *
//********************************************************************
//CMPRSTEP EXEC  ACBJBAOB,PLIB1=SYS1.DGTPLIB,TABL2=userid.TEST.ISPTABL
//SYSTSIN  DD *
 PROFILE PREFIX(IBMUSER)
DEL COMPARE.LISTING
DEL TESTCASE.EXCP

ISPSTART CMD(%ACBQBAC1 +
BASELIST(BASE.TESTLIST) +
NEWLIST(NEW.TESTLIST) +
TESTBED(TESTCASE.LIBRARY) +
RSLTDSN(COMPARE.LISTING) +
XCPTPDS(TESTCASE.EXCP) +
XCPSPACE(5,3,30)) +
BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//********************************************************************
//*                                                                  *
//* COPY THE COMPARISON LISTINGS DATA SET                            *
//*                                                                  *
//*    SYSUT1 - INPUT (FROM PREVIOUS STEP)                           *
//*    SYSUT2 - OUTPUT                                               *
//*                                                                  *
//********************************************************************
//REPGEN   EXEC PGM=IEBGENER
//SYSUT1   DD DISP=SHR,DSN=IBMUSER.COMPARE.LISTING
//SYSUT2   DD SYSOUT=*
//SYSIN    DD DUMMY
//SYSPRINT DD SYSOUT=*
//