PROC 0                                                  
CONTROL MAIN ASIS  /* LIST CONLIST SYMLIST              
                                                        
RDEFINE VCICSCMD CMDSAMP UACC(NONE) +                   
        NOTIFY(IBMUSER) +                               
        ADDMEM(AUTINSTMODEL, AUTOINSTALL, +             
        CONNECTION, DSNAME, TRANSACTION, TERMINAL, +    
        TRANDUMPCODE, VTAM, SHUTDOWN) +                 
        OWNER(IBMUSER)                                  
                                                        
/* Con ACCESS(READ) solo permitiria INQUIRE. */         
/* Con UPDATE permite PERFORM, SET y DISCARD */         
PERMIT CMDSAMP CLASS(VCICSCMD) ID(CICS1) ACCESS(UPDATE) 
                                                        
SETROPTS RACLIST (CCICSCMD) REFRESH                     
SETROPTS RACLIST (TCICSTRN) REFRESH                     
                                                        
WRITENR TERMINADO                                       
WRITE                                                   
WRITENR End of DFH$CATB CLIST