//USER989 JOB (USER989),'RUN SELECT',CLASS=2,MSGCLASS=H,NOTIFY=&SYSUID
//STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=USER989.TEST.MY(INFILE1),DISP=SHR
//OUT1 DD DSN=USER989.TEST.MY(OUTPF),SPACE=(CYL,(5,5)),
// DISP=(MOD,CATLG,DELETE)
//TOOLIN DD
SELECT FROM(IN1) TO(OUT1) ON(1,10,CH) FIRST
/*
//STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=USER989.TEST.MY(INFILE1),DISP=SHR
//OUT1 DD DSN=USER989.TEST.MY(OUTPF),SPACE=(CYL,(5,5)),
// DISP=(MOD,CATLG,DELETE)
//TOOLIN DD
SELECT FROM(IN1) TO(OUT1) ON(1,10,CH) FIRST
/*
COMMAND INPUT ===> SCROLL ===> PAGE
ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED
ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPLES
ICE632I 0 SOURCE FOR ICETOOL STATEMENTS: TOOLIN
ICE630I 0 MODE IN EFFECT: STOP
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE: 00