//********************************************************************
//*                                                                  *
//* SAMPLE JCL TO TEST ACS ROUTINES IN BATCH                         *
//*                                                                  *
//*   INSTRUCTIONS BEFORE SUBMITTING:                                *
//*                                                                  *
//*      CHANGE JOBCARD                                              *
//*      CHANGE PREFIX                                               *
//*                                                                  *
//********************************************************************
//********************************************************************
//*                                                                  *
//*   TEST STEP                                                      *
//*                                                                  *
//*    SCDSNAME - NAME OF SCDS THAT CONTAINS THE TRANSLATED,         *
//*               VALIDATED ACS ROUTINES TO BE TESTED (INPUT)        *
//*    TESTBED  - PDS CONTAINING TEST CASES THAT THE ACS ROUTINES    *
//*               SHOULD BE TESTED FOR (INPUT)                       *
//*    MEMBER   - MEMBERS TO BE TESTED IN TESTBED (INPUT)            *
//*    DC,SC,MC,SG - ROUTINES TO BE TESTED Y OR N (INPUT)            *
//*    LISTNAME - TEST LISTING (OUTPUT)                              *
//*                                                                  *
//********************************************************************
//********************************************************************
//TESTACS  EXEC ACBJBAOB,
//         PLIB1='SYS1.DGTPLIB',
//         TABL2=userid.TEST.ISPTABL
//SYSTSIN  DD *
PROFILE PREFIX(IBMUSER)
DEL NEW.TESTLIST
ISPSTART CMD(ACBQBAIA +
SCDSNAME(MYSCDS) +
TESTBED(TESTCASE.LIBRARY) MEMBER(*) +
LISTNAME(NEW.TESTLIST) +
DC(Y) SC(Y) MC(Y) SG(Y)) +
NEWAPPL(DGT) BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//********************************************************************/
//*                                                                  */
//*   COPY TEST LISTING                                              */
//*                                                                  */
//*    SYSUT1 - INPUT (FROM PREVIOUS STEP)                           */
//*    SYSUT2 - OUTPUT                                               */
//*                                                                  */
//********************************************************************/
//TESTGEN  EXEC  PGM=IEBGENER
//SYSUT1   DD  DSN=IBMUSER.NEW.TESTLIST,DISP=SHR
//SYSUT2   DD  SYSOUT=*
//SYSIN    DD  DUMMY
//SYSPRINT DD  SYSOUT=*