Here's the actual job. If I change SEQOUT to UNIT=(3390,59) the JCL
fails.
//HERC01S JOB (MYNAME),'TEST SORT',
// CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//GENERATE EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=X
//SEQOUT DD UNIT=WORK,DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000),
// DSN=&&SORTTEMP,DISP=(,PASS),SPACE=(CYL,(500,100),RLSE)
//SYSIN DD DATA
DSD OUTPUT=(SEQOUT) ,,
FD NAME=F1,LENGTH=2,STARTLOC=1,FORMAT=RA
FD NAME=F2,LENGTH=4,STARTLOC=3,FORMAT=RA
FD NAME=F3,LENGTH=4,STARTLOC=7,FORMAT=RA
FD NAME=F4,LENGTH=10,STARTLOC=11,FORMAT=ZD,INDEX=1
FD NAME=F5,LENGTH=60,STARTLOC=21
CREATE QUANTITY=10000000,NAME=(F1,F2,F3,F4,F5)
END
/*
//SORT EXEC PGM=SORT,REGION=1024K,PARM='MSG=AP'
//SORTIN DD DSN=&&SORTTEMP,DISP=(OLD,DELETE)
//SYSOUT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//SYSPRINT DD SYSOUT=X
//SORTLIB DD DSNAME=SYS1.SORTLIB,DISP=SHR
//SORTOUT DD DUMMY,DCB=(BLKSIZE=80,RECFM=F)
//SYSIN DD *
SORT FIELDS=(1,10,CH,A)
RECORD TYPE=F,LENGTH=(80)
END
/*
//
