IBM Mainframe Forum

//REPORT   EXEC PGM=ICETOOL                                           
//RACFDATA DD DISP=SHR,DSN=IFXZDL.RACF.UNLOAD                         
//TEMP0001 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(200,100))           
//TOOLMSG  DD SYSOUT=*                                               
//PRINT    DD SYSOUT=*                                               
//DFSMSG   DD SYSOUT=*                                               
//SYSPRINT DD SYSOUT=*                                               
//SYSMSG   DD SYSOUT=*                                               
//SYSOUT   DD SYSOUT=*                                               
//SYSIN    DD *                                                       
/*                                                                   
//*------------------------------------------------------------------
//TOOLIN   DD *                                                       
 COPY    FROM(RACFDATA) TO(TEMP0001) USING(RACF)                     
 DISPLAY FROM(TEMP0001) LIST(PRINT) -                                 
         PAGE -                                                       
         TITLE('IS THIS A GROUP DATA SET') -                         
         DATE(MDY/) -                                                 
         TIME(24:)  -                                                 
         BLANK      -                                                 
         ON(10,43,CH)   HEADER('DATA SET NAME') -                     
         ON(78,8,CH)  HEADER('NAME')     -                           
         ON(133,8,CH)  HEADER('UACC LVL') -                           
         ON(192,48,CH)  HEADER('INSTALL DATA')                       
/*                                                                   
//*------------------------------------------------------------------
//RACFCNTL DD *                                                       
  SORT FIELDS=(10,8,CH,A)                                             
  INCLUDE COND=(5,4,CH,EQ,C'0400',AND,62,3,CH,EQ,C'YES')               
OPTION VLSHRT                                                         
/*