Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Urgent U0016 abend- need help

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: Urgent U0016 abend- need help
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    Post subject: Found soln myself.
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Urgent Mainframe Requirments (2-10 yr... Shankar779 Mainframe Jobs 0 Sun Nov 27, 2016 1:48 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm
No new posts S213-14 ABEND explantion Apurva Mehta JCL & VSAM 5 Thu Jul 07, 2016 10:56 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us