Display text in block letters

//DISP1 JOB 1,'MCA',NOTIFY=KC03H0E                      
//MYPROC PROC                                            
//STEP1 EXEC PGM=GENCHAR,                                
//      PARM='MCA'                                      
//GENFILE DD DSN=&&ONE,DISP=(NEW,PASS),SPACE=(TRK,1)    
//ALPHA DD DSN=TSOEFFF.STUDENT.BIGTYPE.JCL,DISP=SHR      
//STEPLIB DD DSN=TSOEFFF.STUDENT.LOADLIB.JCL,DISP=SHR    
//SYSPRINT DD SYSOUT=*                                  
//STEP2 EXEC PGM=IEBPTPCH                                
//SYSPRINT DD SYSOUT=*                                  
//SYSUT1 DD DSN=&&ONE,DISP=(SHR,PASS)                    
//SYSUT2 DD SYSOUT=*                                    
//SYSIN DD DSN=TSOEFFF.STUDENT.SYSIN.JCL,DISP=SHR        
//   PEND                                                
//STEP3 EXEC MYPROC