IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Urgent U0016 abend- need help


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
gandhire

New User


Joined: 23 Oct 2004
Posts: 5

PostPosted: Sat Nov 06, 2004 1:47 am
Reply with quote

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.
Back to top
View user's profile Send private message
gandhire

New User


Joined: 23 Oct 2004
Posts: 5

PostPosted: Sat Nov 06, 2004 2:40 am
Reply with quote

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.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts ISAM and abend S03B JCL & VSAM 9
No new posts Abend S0C4 11 (Page Translation Excep... PL/I & Assembler 16
No new posts WER999A - UNSUCCESSFUL SORT 8ED U Ab... SYNCSORT 5
No new posts the system or user abend SF0F R=NULL COBOL Programming 0
No new posts Need to get an DLI abend like U0200 IMS DB/DC 2
Search our Forums:

Back to Top