//MORESMF  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
//*
//*
//SELECT    EXEC PGM=ICETOOL,REGION=0M
//*SELECT    EXEC PGM=SYNCTOOL,REGION=0M
//TOOLMSG   DD SYSOUT=*
//PRINT     DD SYSOUT=*
//DFSMSG    DD DUMMY
//INDD      DD DISP=SHR,DSN=UNPP01.PRDA.SMF.UNLOAD
//TEMP0001  DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(20,5,0))
//TOOLIN    DD *
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR01)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('ADDVOL 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(843,20,CH)  HEADER('User name') -
         ON(553,8,CH)   HEADER('Class') -
         ON(286,80,CH)  HEADER('Resource name')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR02)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('RENAMEDS 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(1083,20,CH) HEADER('User name') -
         ON(553,8,CH)   HEADER('Class') -
         ON(286,80,CH)  HEADER('Resource name')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR03)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('DELRES 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(827,20,CH)  HEADER('User name') -
         ON(553,8,CH)   HEADER('Class') -
         ON(286,80,CH)  HEADER('Resource name')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR04)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('DELVOL 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(827,20,CH)  HEADER('User name') -
         ON(553,8,CH)   HEADER('Class') -
         ON(286,80,CH)  HEADER('Resource name')
**********************************************************************
 COPY    FROM(INDD) TO(TEMP0001) USING(IR05)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -
         PAGE -
         TITLE('DEFINE 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(1090,20,CH) HEADER('User name') -
         ON(553,8,CH)   HEADER('Class') -
         ON(286,80,CH)  HEADER('Resource name')
/*
//IR01CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'ADDVOL  ')
 OPTION   VLSHRT
/*
//IR02CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'RENAMEDS')
 OPTION   VLSHRT
/*
//IR03CNTL  DD *
 SORT    FIELDS=(63,8,CH,A,32,10,CH,A,23,8,CH,A)
 INCLUDE COND=(5,8,CH,EQ,C'DELRES  ')
 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'DELVOL  ')
 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'DEFINE  ')
 OPTION   VLSHRT
/*