Figure 1. Sample JCL for ACBJBAG1//********************************************************************
//* *
//* SAMPLE JCL TO GENERATE TEST CASES FROM DCOLLECT DATA *
//* *
//* INSTRUCTIONS BEFORE SUBMITTING: *
//* *
//* CHANGE JOBCARD *
//* CHANGE PREFIX *
//* CHANGE PARAMETERS *
//* *
//* THE PARAMETERS TO ACBQBAG1 ARE AS FOLLOWS: *
//* *
//* PARAMETER 1 IS DATA SET CONTAINING DCOLLECT DATA (INPUT) *
//* PARAMETER 2 IS NUMBER OF TEST CASES TO BE GENERATED *
//* PARAMETER 3 IS MEMBER NAME PREFIX *
//* PARAMETER 4 IS TEST CASE PDS (OUTPUT) *
//* PARAMETER 5 IS REPLACE CONTENTS IF DSN EXISTS *
//* *
//********************************************************************
//GENTEST EXEC ACBJBAOB,PLIB1=SYS1.DGTPLIB,TABL2=userid.TEST.ISPTABL
//SYSTSIN DD *
PROFILE PREFIX(IBMUSER)
ISPSTART CMD(%ACBQBAG1 'IBMUSER.DCOLLECT.DATA' 10 TEST +
'IBMUSER.TESTCASE.LIBRARY' Y) +
BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//********************************************************************