Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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
No new posts C03 ABEND sjiraga PL/I & Assembler 1 Thu Jun 01, 2017 4:51 pm
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
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

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us