Figure 1. Sample JCL for ACBJBAG2//********************************************************************
//* *
//* GENERATE TEST CASES FROM A PREVIOUSLY SAVED ISMF DATA SET LIST *
//* *
//* TABLENM - SAVED ISMF DATA SET LIST (INPUT) *
//* PRFX - MEMBER NAME PREFIX *
//* TESTPDS - TEST CASE PDS (OUTPUT) *
//* REPLACE - REPLACE CONTENTS IF DSN EXISTS *
//* INTEST - DEBUG MODE YES/NO (KEEP IT AS NO) *
//* *
//********************************************************************
//GENTC EXEC ACBJBAOB,PLIB1=SYS1.DGTPLIB,TABL2=userid.TEST.ISPTABL
//SYSTSIN DD *
PROFILE PREFIX(IBMUSER)
ISPSTART CMD(%ACBQBAG3 TABLENM(DSNLIST) +
INTEST(NO) PRFX(TEST) +
TESTPDS('IBMUSER.TESTCASE.LIBRARY') REPLACE(Y)) +
BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//********************************************************************