//RACFSMF  JOB  CLASS=A,MSGCLASS=X
//*
//* WORKS WITH EITHER DFSORT'S ICETOOL OR SYNCSORT'S SYNCTOOL
//*
//* NOTE - THIS REPORT HAS BEEN EVOLVED FOR VIEWING IN SDSF
//*        AND HENCE EXCEEDS NORMAL 132 COLUMN PRINTING LIMITS
//*
//*      Updated 12th July 2001 - added ADDUSER code 
//*      Updated 12th July 2001 - fixed INVTERM code
//* Last Updated 24th July 2001 - fixed ADDSD   code
//* Last Updated 24th July 2001 - added DELUSER code
//*
//SELECT    EXEC PGM=ICETOOL,REGION=0M
//*SELECT    EXEC PGM=SYNCTOOL,REGION=0M
//TOOLMSG   DD SYSOUT=*
//PRINT     DD SYSOUT=*
//DFSMSG    DD DUMMY
//*
//* INDD IS OUTPUT FROM IRRADU00 SMF UNLOAD
//*
//INDD      DD DSN=RACF.DB1.SMF.UNLOAD(0),
//             DISP=SHR
//          DD DSN=RACF.DB2.SMF.UNLOAD(0),
//             DISP=SHR,UNIT=AFF=INDD
//TEMP0001  DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(20,5,0))
//TOOLIN    DD *
**********************************************************************
 SORT    FROM(INDD) TO(TEMP0001) USING(IR01)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('Accesses allowed because the UserID has SPECIAL') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(1126,20,CH) HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(286,36,CH)  HEADER('Resource name') -
         ON(542,8,CH)   HEADER('Requested') -
         ON(551,8,CH)   HEADER('Granted') -
         ON(564,6,CH)   HEADER('Volume') -
         ON(578,8,CH)   HEADER('Class') -
         ON(605,44,CH)  HEADER('Profile')
**********************************************************************
 SORT    FROM(INDD) TO(TEMP0001) USING(IR02)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('Accesses Allowed due to WARNING mode profiles') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(1126,20,CH) HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(286,36,CH)  HEADER('Resource name') -
         ON(542,8,CH)   HEADER('Requested') -
         ON(551,8,CH)   HEADER('Granted') -
         ON(564,6,CH)   HEADER('Volume') -
         ON(578,8,CH)   HEADER('Class') -
         ON(605,44,CH)  HEADER('Profile')
**********************************************************************
 SORT    FROM(INDD) TO(TEMP0001) USING(IR03)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('Access violations') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(1126,20,CH) HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(286,36,CH)  HEADER('Resource name') -
         ON(542,8,CH)   HEADER('Requested') -
         ON(551,8,CH)   HEADER('Granted') -
         ON(564,6,CH)   HEADER('Volume') -
         ON(578,8,CH)   HEADER('Class') -
         ON(605,44,CH)  HEADER('Profile')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR04)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('ADDSD commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(524,80,CH)  HEADER('Command Target') -
         ON(569,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR05)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('ADDGROUP commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(498,8,CH)   HEADER('Command Target') -
         ON(507,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR06)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('ADDUSER commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(508,8,CH)   HEADER('Command Target') -
         ON(517,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR07)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('ALTDSD commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(524,80,CH)  HEADER('Command Target') -
         ON(569,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR08)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('ALTGROUP commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(498,8,CH)   HEADER('Command Target') -
         ON(507,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR09)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('ALTUSER commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(522,8,CH)   HEADER('Command Target') -
         ON(531,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR10)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('CONNECT commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(498,8,CH)   HEADER('Command Target') -
         ON(507,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR11)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('DELDSD commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(524,80,CH)  HEADER('Command Target') -
         ON(569,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR12)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('DELGROUP commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(498,8,CH)   HEADER('Command Target') -
         ON(507,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR13)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('DELUSER commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(498,8,CH)   HEADER('Command Target') -
         ON(507,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR14)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('PASSWORD commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(498,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR15)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('PERMIT commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(304,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(507,80,CH)  HEADER('Command Target') -
         ON(763,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR16)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('RALTER commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(304,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(516,80,CH)  HEADER('Command Target') -
         ON(772,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR17)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('RDEFINE commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(304,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(516,80,CH)  HEADER('Command Target') -
         ON(772,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR18)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('RDELETE commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(304,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(516,80,CH)  HEADER('Command Target') -
         ON(772,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR19)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('REMOVE commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(498,8,CH)   HEADER('Command Target') -
         ON(507,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR20)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('RVARY commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(286,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(489,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR21)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('SETROPTS commands') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(286,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(14,8,CH)    HEADER('Event Q') -
         ON(489,80,CH)  HEADER('Keywords Specified')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR22)
 OCCURS  FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('UserIDs with excessive incorrect passwords') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(63,8,CH)    HEADER('UserID') -
         ON(560,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(VALCNT)     HEADER('Number of incorrect passwords') -
         HIGHER(5)
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR23)
 OCCURS  FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('UserIDs with excessive access violations') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(63,8,CH)    HEADER('UserID') -
         ON(1126,20,CH) HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(286,36,CH)  HEADER('Resource name') -
         ON(564,6,CH)   HEADER('Volume') -
         ON(578,8,CH)   HEADER('Class') -
         ON(605,44,CH)  HEADER('Profile') -
         ON(VALCNT)     HEADER('Number of violations') -
         HIGHER(5)
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR24)
 OCCURS  FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('Resources with excessive access violations') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(43,4,CH)    HEADER('System') -
         ON(286,36,CH)  HEADER('Resource name') -
         ON(564,6,CH)   HEADER('Volume') -
         ON(578,8,CH)   HEADER('Class') -
         ON(605,44,CH)  HEADER('Profile') -
         ON(VALCNT)     HEADER('Number of violations') -
         HIGHER(5)
**********************************************************************
 SORT    FROM(INDD) TO(TEMP0001) USING(IR25)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('GLOBALAUDIT accesses') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(827,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(286,36,CH)  HEADER('Resource name')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR26)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('Invalid TERMINAL records') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(43,4,CH)    HEADER('System') -
         ON(184,8,CH)   HEADER('Job name') -
         ON(700,8,CH)   HEADER('Port of entry') -
         ON(709,8,CH)   HEADER('POE class')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR27)
 OCCURS  FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('Terminals with excessive incorrect passwords') -
         DATE(YMD/) -
         TIME(12:) -
         BLANK -
         ON(43,4,CH)    HEADER('System') -
         ON(175,8,CH)   HEADER('Terminal ID') -
         ON(VALCNT)     HEADER('Number of incorrect passwords') -
         HIGHER(5)
**********************************************************************
 SORT    FROM(INDD) USING(IR28)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('USS Access Violations') -
         DATE(YMD/) -
         TIME(12:)  -
         BLANK -
         ON(23,8,CH)    HEADER('Time') -
         ON(32,10,CH)   HEADER('Date') -
         ON(63,8,CH)    HEADER('UserID') -
         ON(295,20,CH)  HEADER('User name') -
         ON(43,4,CH)    HEADER('System') -
         ON(576,50,CH)  HEADER('Resource name') -
         ON(1655,14,CH) HEADER('Access Intent') -
         ON(1684,14,CH) HEADER('Access allowed') -
         ON(1675,8,CH)  HEADER('Access type') -
         ON(286,8,CH)   HEADER('Class')
/*
//*-------------------------------------------------------------------
/*
//IR01CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'ACCESS',AND,
               86,3,CH,EQ,C'YES')
 OPTION   VLSHRT
/*
//IR02CNTL  DD *
 SORT    FIELDS=(286,36,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'ACCESS  ',AND,
               58,3,CH,EQ,C'YES')
 OPTION   VLSHRT
/*
//IR03CNTL  DD *
 SORT    FIELDS=(286,36,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'ACCESS',AND,
               48,3,CH,EQ,C'YES')
 OPTION   VLSHRT
/*
//IR04CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'ADDSD   ')
 OPTION   VLSHRT
/*
//IR05CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'ADDGROUP')
 OPTION   VLSHRT
/*
//IR06CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'ADDUSER ')
 OPTION   VLSHRT
/*
//IR07CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'ALTDSD  ')
 OPTION   VLSHRT
/*
//IR08CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'ALTGROUP')
 OPTION   VLSHRT
/*
//IR09CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'ALTUSER ')
 OPTION   VLSHRT
/*
//IR10CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'CONNECT ')
 OPTION   VLSHRT
/*
//IR11CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'DELDSD  ')
 OPTION   VLSHRT
/*
//IR12CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'DELGROUP')
 OPTION   VLSHRT
/*
//IR13CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'DELUSER ')
 OPTION   VLSHRT
/*
//IR14CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'PASSWORD')
 OPTION   VLSHRT
/*
//IR15CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'PERMIT  ')
 OPTION   VLSHRT
/*
//IR16CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'RALTER  ')
 OPTION   VLSHRT
/*
//IR17CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'RDEFINE ')
 OPTION   VLSHRT
/*
//IR18CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'RDELETE ')
 OPTION   VLSHRT
/*
//IR19CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'REMOVE  ')
 OPTION   VLSHRT
/*
//IR20CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'RVARY   ')
 OPTION   VLSHRT
/*
//IR21CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'SETROPTS')
 OPTION   VLSHRT
/*
//IR22CNTL  DD *
 INCLUDE COND=(5,8,CH,EQ,C'JOBINIT ',AND,
               14,8,CH,EQ,C'INVPSWD ')
 OPTION   VLSHRT
/*
//IR23CNTL  DD *
 SORT    FIELDS=(286,36,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'ACCESS',AND,
               48,3,CH,EQ,C'YES')
 OPTION   VLSHRT
/*
//IR24CNTL  DD *
 SORT    FIELDS=(286,36,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'ACCESS',AND,
               48,3,CH,EQ,C'YES')
 OPTION   VLSHRT
/*
//IR25CNTL  DD *
 SORT    FIELDS=(286,36,CH,A)
 INCLUDE COND=(14,8,CH,EQ,C'SUCCESS',AND,
               156,3,CH,EQ,C'YES')
 OPTION   VLSHRT
/*
//IR26CNTL  DD *
 INCLUDE COND=(14,8,CH,EQ,C'INVTERM ')
 OPTION   VLSHRT
/*
//IR27CNTL DD *
 INCLUDE COND=(5,8,CH,EQ,C'JOBINIT',AND,
               14,8,CH,EQ,C'INVPSWD')
 OPTION VLSHRT
/*
//IR28CNTL  DD *
 SORT    FIELDS=(286,36,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'FACCESS ',AND,
               14,8,CH,EQ,C'NOTAUTH ')
 OUTFIL FNAMES=TEMP0001,
  OUTREC=(1,1654,
   1655:1655,3,CHANGE=(3,C'YES',C'R',
               C'NO',C'-'),
               NOMATCH=(1655,3),
   1660:1660,3,CHANGE=(3,C'YES',C'W',
               C'NO',C'-'),
               NOMATCH=(1660,3),
   1665:1665,3,CHANGE=(3,C'YES',C'X',
               C'NO',C'-'),
               NOMATCH=(1665,3),
   1670:1670,12,
   1684:1684,3,CHANGE=(3,C'YES',C'R',
               C'NO',C'-'),
               NOMATCH=(1684,3),
   1689:1689,3,CHANGE=(3,C'YES',C'W',
               C'NO',C'-'),
               NOMATCH=(1689,3),
   1694:1694,3,CHANGE=(3,C'YES',C'X',
               C'NO',C'-'),
               NOMATCH=(1694,3),
   1699:1699)
/*