gandhire
New User
Joined: 23 Oct 2004 Posts: 5
|
|
|
|
am getting U0016 abend.
What I am doing is reformatting a VB file (2082) to give a 2807 length VB file.
I am getting this error in copying the last few fields (of variable length)
My sort step is:
//STEP30 EXEC PGM=SORT
//SORTIN DD DSN=TSRG.FSBFC.RC199,
// DISP=(SHR,KEEP,KEEP)
//SORTOUT DD DSN=TSRG.FSBFC.RC199.REFORM,
// DISP=(OLD,CATLG,DELETE),
// DCB=(RECFM=VB,LRECL=2807,BLKSIZE=0,
// DSORG=PS),SPACE=(CYL,(900,100),RLSE),
// LABEL=RETPD=10,
// UNIT=DISK
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY,STOPAFT=100
OMIT COND=(15,3,CH,EQ,C'CIF')
OUTREC FIELDS=(1,4,C'LB306AA07',8X,C'BP',3X,66,11,17X,6X'00',
64X,C'54664',10,1742,2X,1874:36X'00',6X,9X'00',X,
4X'00',10X,4X'00',4X,53X'00',10X,8X'00',8X,4X'00',
33X,62X'00',4X,2X'00',7X,17X'00',178X,32X'00',33X,
6X'00',7X,15X'00',50X,1752,3,1755,52)
/*
Till 1752,3 all is fine....
Also 1755,52 works with couple of records but not when number of records is more(e.g. 100).
Looks like space issue. Any inputs?
|
|