Figure 1. Sample JCL for ACBJBAI1//********************************************************************
//* *
//* SAMPLE JCL TO GENERATE TEST CASES FROM SMF TYPE 127 RECORDS *
//* WRITTEN BY THE STORAGE CLASS EXIT IGDACSSC; USE A STANDARD *
//* UTILITY LIKE IFASMFDP TO UNLOAD THE TYPE 127 RECORDS FROM THE *
//* SMF LOG DATA SETS; ALSO ACSTST PROGRAM (FROM CBIPO) SHOULD BE *
//* AVAILABLE *
//* *
//* INDD - DATA SET CONTAINING SMF DATA (INPUT) *
//* OUTDD - TEST CASE PDS (OUTPUT) *
//* *
//********************************************************************
//GENTEST EXEC PGM=ACSTST,REGION=512K,
// COND=(0,NE,DATA1)
//SYSPRINT DD SYSOUT=*
//INDD DD DSN=IBMUSER.SMF.TYPE127.DATA,DISP=SHR
//OUTDD DD DSN=IBMUSER.TESTCASE.LIBRARY,DISP=(NEW,CATLG,DELETE),
// SPACE=(80,(1250,200,50),,,ROUND),
// UNIT=3380,VOL=SER=M4RS05,
// DCB=(BLKSIZE=80,LRECL=80,RECFM=F)
//********************************************************************