//SORT1 EXEC PGM=SORT
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15),,CONTIG)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15),,CONTIG)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15),,CONTIG)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(15),,CONTIG)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(15),,CONTIG)
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(15),,CONTIG)
//SORTIN DD DSN=INPUT.VBFILE,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(5,8,CH,A)
OUTREC FIELDS=(5,8,48,9)
//
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15),,CONTIG)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15),,CONTIG)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15),,CONTIG)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(15),,CONTIG)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(15),,CONTIG)
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(15),,CONTIG)
//SORTIN DD DSN=INPUT.VBFILE,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(5,8,CH,A)
OUTREC FIELDS=(5,8,48,9)
//
the Input file is a VB 6004 (6000+4) file
we want a listing of values at pos 1-8 and 44-9 in output file
The JCL above is failing with msg:
SORT FIELDS=(5,8,CH,A)
OUTREC FIELDS=(5,8,48,9)
R276B SYSDIAG= 6088053, 8372574, 8372574, 4403637
R164B 23,424K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
R164B 0 BYTES RESERVE REQUESTED, 1,004K BYTES USED
R146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
R108I SORTIN : RECFM=VB ; LRECL= 6004; BLKSIZE= 27998
R235A OUTREC RDW NOT INCLUDED
R211B SYNCSMF CALLED BY SYNCSORT; RC=0000
R449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
OUTREC FIELDS=(5,8,48,9)
R276B SYSDIAG= 6088053, 8372574, 8372574, 4403637
R164B 23,424K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
R164B 0 BYTES RESERVE REQUESTED, 1,004K BYTES USED
R146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
R108I SORTIN : RECFM=VB ; LRECL= 6004; BLKSIZE= 27998
R235A OUTREC RDW NOT INCLUDED
R211B SYNCSMF CALLED BY SYNCSORT; RC=0000
R449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE