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
 

 

ABEND U0016 in SYNCSORT tool

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
emman

New User


Joined: 01 Jun 2006
Posts: 8

PostPosted: Thu Jun 01, 2006 10:01 am    Post subject: ABEND U0016 in SYNCSORT tool
Reply with quote

Hi All,

Currently I am running a job with SYNCSORT. I am encountering an abend U0016. For my output file I need it to be fixed block record format and having a lrecl of 203. But when I declare it for my output file, it did not allow it.This is the error message, below:

WER108I SORTIN : RECFM=FB ; LRECL= 770; BLKSIZE= 27720
WER237I OUTREC RECORD LENGTH = 203
WER107A SORTOF1 RECFM INCOMPATIBLE WITH REPORT WRITING
WER110I SORTOF1 : RECFM=FB ; LRECL= 203; BLKSIZE= 27811

And this is the sort step I have:
Code:

//STEP040 EXEC PGM=SORT
//*
//SORTIN   DD DSN=WXX055.IB.IBCN250.AUDIT.TOBE.SENT.PEN.SAMPLE,
//             DISP=(OLD,KEEP,KEEP)
//*
//SORTWK01 DD  UNIT=SYSDA,         
//             AVGREC=M,           
//             SPACE=(1,(7,7),RLSE)
//SORTWK02 DD  UNIT=SYSDA,         
//             AVGREC=M,           
//             SPACE=(1,(7,7),RLSE)
//SORTWK03 DD  UNIT=SYSDA,         
//             AVGREC=M,           
//             SPACE=(1,(7,7),RLSE)
//SORTWK04 DD  UNIT=SYSDA,         
//             AVGREC=M,           
//             SPACE=(1,(7,7),RLSE)
//SORTWK05 DD  UNIT=SYSDA,         
//             AVGREC=M,           
//             SPACE=(1,(7,7),RLSE)
//*
//SORTOF1  DD  DSN=WXX055.IB.IBCN250.GNAT.FILE.SAMPLE,
//             DISP=(,CATLG,DELETE),
//             RECFM=FB,           
//             LRECL=203,           
//             BLKSIZE=0,           
//             DATACLAS=STANDARD   
//SYSIN    DD *                                                       
  SORT FIELDS=COPY                                                   
  OUTFIL FILES=1,HEADER1=(1:C'1',16:&DATE,29:C'CMLDPEN'),             
                          TRAILER1=(1:C'9',16:COUNT15)               
  OUTREC FIELDS=(1:C'2',12,15,80,26,106,30,136,30,166,30,196,52,248,2,
                 250,9,55,8)                                         
//*                                                                   
//SYSOUT   DD  SYSOUT=*                                               
//SYSUDUMP DD  SYSOUT=*                                               
//*                                                                   


Then, I also try to just commented out the RECFM attribute, the job automatically assigned an FBA record format type to the file and added a single byte in the first field of the file (which is unncessary) that causes my file doesnt match with the copybook. Is that the FBA format caused it? What is FBA? What is the difference betwwen FB and FBA record format? How can I achieve an FB record format type of file in this step?

I hope anyone could help me.. :cry:
Back to top
View user's profile Send private message

sunnyk

New User


Joined: 20 Oct 2004
Posts: 59

PostPosted: Thu Jun 01, 2006 11:04 am    Post subject:
Reply with quote

Hi Emman,
Since Header and Trailer is a report parameter, you have to declare it as FBA instead of FB. That's why it is taking the output file as FBA as it is Report/print file.

NOTE : The "RECFM=FBA" is a parameter of the DCB option in MVS JCL and indicates that a print file will be fix blocked and contain ASA type printer carriage control characters in the first position of the record written. 1 Byte extra is for page eject.

If you don't want that extra ANSI char to be there in output use REMOVECC.

OUTFIL FILES=1,REMOVECC,HEADER1=(1:C'1',16:&DATE,29:C'CMLDPEN'),
TRAILER1=(1:C'9',16:COUNT15)

You just try with above and i guess it 'll work fine.
Regds
Sunny
Back to top
View user's profile Send private message
sunnyk

New User


Joined: 20 Oct 2004
Posts: 59

PostPosted: Thu Jun 01, 2006 11:13 am    Post subject:
Reply with quote

One thing i forgot to mention, now you can use RECFM=FB. Correct me if i am wrong.
Back to top
View user's profile Send private message
emman

New User


Joined: 01 Jun 2006
Posts: 8

PostPosted: Thu Jun 01, 2006 11:13 am    Post subject: Re: Help me pleasseeee....in SYNCSORT tool
Reply with quote

youre a genius!!!thanks!!!it works!!!mwah!!!
Back to top
View user's profile Send private message
sunnyk

New User


Joined: 20 Oct 2004
Posts: 59

PostPosted: Thu Jun 01, 2006 11:28 am    Post subject:
Reply with quote

Well thanks Emman!!! But my sincere advice to you and others ...... Plz first try solving the problem by yourself by going onto different books/sites or by using valuable Search Engines. You 'll definitely(99% times) get an answer to your queries. Then come to share your problem with forum as the replies here may take long which can dealy your deliveries. Or else you can do both the things simultaneoulsy i.e taking help from forum and searching on different sites.
Hope you take it positively.

Regds
Sunny
Back to top
View user's profile Send private message
emman

New User


Joined: 01 Jun 2006
Posts: 8

PostPosted: Thu Jun 01, 2006 11:35 am    Post subject:
Reply with quote

Oh thanks for the additional advice. Yeah I'll follow you,actually It took me to 3 days to soleve this problem. I cant find any documents on the net regarding this problem. And I remembered that I of my friend gave this site to me. So i tried to open a topic here. Great!!!
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 IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts SYNCSORT SEQNUM and FI fields. nartcr SYNCSORT 7 Sat Jan 21, 2017 4:02 am
No new posts Syncsort Help to group fields sudhakarraju SYNCSORT 6 Thu Dec 29, 2016 1:38 am
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm


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