icetool error
Posted: Fri Dec 19, 2008 9:45 pmgetting a rc 16
jcl below:
I just can't see the error off hand.
please assist
jcl below:
//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
/*
//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
/*
I just can't see the error off hand.
please assist