//$01ALIAS JOB CLASS=A,MSGCLASS=Q,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//* DEFINIMOS UN ALIAS                                         
//PASO001 EXEC PGM=IDCAMS,REGION=1024K                         
//SYSPRINT DD SYSOUT=*                                         
//SYSIN DD *                                                   
 DEFINE ALIAS (NAME(OPC) -                                     
 RELATE(CATALOG.APL)) -                                        
 CATALOG(CATALOG.Z25A.MASTER)                                  
/*