block letters

//DISP1 JOB 1,'MAHA',
// MSGLEVEL=(1,1),
// REGION=512K,
// NOTIFY=KC03H11,MSGCLASS=A,CLASS=A
//PROC1 PROC
//STEP1 EXEC PGM=GENCHAR,
// PARM='RULES'
//GENFILE DD DSNAME=&&ONE,SPACE=(TRK,1),UNIT=SYSDA,DISP=(NEW,PASS)
//ALPHA DD DSNAME=TSOEFFF.STUDENT.BIGTYPE.JCL,DISP=SHR
//STEPLIB DD DSNAME=TSOEFFF.STUDENT.LOADLIB.JCL,DISP=SHR
//SYSPRINT DD SYSOUT=*
//STEP2 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSNAME=&&ONE,DISP=(SHR,PASS)
//SYSUT2 DD SYSOUT=*
//SYSIN DD DSNAME=TSOEFFF.STUDENT.SYSIN.JCL,DISP=SHR
// PEND
//STEP1 EXEC PROC1,REGION=512K
//STEP1.GENFILE DD SPACE=(TRK,2)