Urgent U0016 abend- need help

gandhire · New User Joined: 23 Oct 2004 Posts: 5

I am reformatting a VB file (2082) to give a 2807 length VB file.
This is giving me U0016 abend
This happens when copying the last field (of variable length)
This is defined as Table 4char occuring 82 times (total length - 328)

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....

The data starts from 1751 posn - variable length and is like -

MAY YAY LAY OAY AVY PYY PUY CYY VP1 TAP FUPUCTACRE00
DTY ATY MAY YAY LAY OAY AVY PYY PUY CYY VP1 TAP FUPUCTACRE00
LAY OAY VP1 TAP SF4UXF04FUPURE00BC01
MAY YAY LAY OAY AVY PUY TAP FUPUCTACRE00

It starts at position 1751 and length is variable as this particular field is variable.
I also tried copying only the variable block records into a file separately.
SORT FIELDS=COPY
INREC FIELDS=(1,4,10:1755,328)
This also did not work.

gandhire · New User Joined: 23 Oct 2004 Posts: 5

for getting variable length records on o/p file, the last entry should not have length value
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) works.