//********************************************************************
//*                                                                  *
//* 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)
//********************************************************************