I am trying to run this JCL to convert a tape format dataset to a disk format dataset, however as the source dataset is too big, i want to convert only the first 500 into DISK
I run into a JCL error when i run it.
Any anyone help please ...
Here is the JCL
000100 // NEWBEE77 JOB (2533,010),'JOBSORT1',CLASS=6,MSGCLASS=X,
000200 // NOTIFY=&SYSUID
000300 //*==================================================================*
000400 //STEP001 EXEC PGM=ICETOOL
000500 //INFILE DD DSN=TAPE.SOURCE.IN.DATASET(0),
000600 // DISP=SHR
000700 //OUTFILE DD DSN=DISC.TARGET.OUT.DATASET,
000800 // DISP=(,CATLG,DELETE),
000900 // SPACE=(CYL,(1000,1000),RLSE),
001000 // DCB=*.INFILE
001100 //SYSOUT DD SYSOUT=*
001200 //TOOLMSG DD SYSOUT=*
001300 //DFSMSG DD SYSOUT=*
001400 //*
001500 //TOOLIN DD *
001600 SORT FROM(INFILE) TO(OUTFILE) USING(CTL1)
001700 /*
001800 //CTL1CNTL DD *
001900 SORT FIELDS=COPY,STOPAFT=1000000
002000 /*
002100 //*
000100 // NEWBEE77 JOB (2533,010),'JOBSORT1',CLASS=6,MSGCLASS=X,
000200 // NOTIFY=&SYSUID
000300 //*==================================================================*
000400 //STEP001 EXEC PGM=ICETOOL
000500 //INFILE DD DSN=TAPE.SOURCE.IN.DATASET,
000600 // DISP=SHR
000700 //OUTFILE DD DSN=DISC.TARGET.OUT.DATASET,
000800 // DISP=(,CATLG,DELETE),
000900 // SPACE=(CYL,(1000,1000),RLSE),
001000 // DCB=*.INFILE
001100 //SYSOUT DD SYSOUT=*
001200 //TOOLMSG DD SYSOUT=*
001300 //DFSMSG DD SYSOUT=*
001400 //*
001500 //TOOLIN DD *
001600 SORT FROM(INFILE) TO(OUTFILE) USING(CTL1)
001700 /*
001800 //CTL1CNTL DD *
001900 SORT FIELDS=COPY,STOPAFT=1000000
002000 /*
002100 //*