Display text Using Procedure

//DISP1 JOB 1,'MCA',                                            
// MSGLEVEL=(1,1),                                                
// REGION=512K,                                                  
// NOTIFY=KC03H0E,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)