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
 

 

Getting U0126 abend for sort

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
rupesh gullu

New User


Joined: 12 Dec 2008
Posts: 96
Location: Gurgaon

PostPosted: Mon Apr 06, 2009 2:42 pm    Post subject: Getting U0126 abend for sort
Reply with quote

Hi,

I am trying to display PD data into o/p file by using following sort card:

Code:

 SORT FIELDS=COPY                                                       
 OUTREC FIELDS=(1:1,4,6:8,6,PD,M4,17:20,7,PD,EDIT=(SI,III,III,IIT.TTT),
              SIGNS=(,-),                                             
               31:35,5,PD,EDIT=(TT-TT-TTTT))   


I am getting U0126 for this saying

Code:
ICE126A INCONSISTENT *OUTREC  IFTHEN 0 REFORMATTING FIELD FOUND


my data is in PD format. following is input data

Code:

WEST   +1524900810    +0000000020000   +05122003
EAST   -0065781053    +0721500532006   +11292003
NORTH  +0000000000    -0000982630735   +02152004
SOUTH  -0000003562    -0003826254999   +12032003   


field-1 : 1-4 ch
field-2: 8-13 pd
field-3 : 20-26 pd
field 4 : 35-39 pd

regards,
rupesh gupta

Edited: Please use BBcode when You post some code/error, that's rather readable, Thanks... Anuj
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Mon Apr 06, 2009 9:02 pm    Post subject:
Reply with quote

The reason for the error message is that your use of 17: and 31: doesn't allow enough room for your edited fields. You end up with overlapping output fields. For example, 6:8,6,PD,M4 would give you output fields that end at position 20, so you can't use 17: for the next output field.

If you leave out the 17: and 31:, the job will work and you'll get this output:

Code:

WEST  +15,249,008.10            20.00005-12-2003     
EAST     -657,810.53   721,500,532.00611-29-2003     
NORT           +0.00      -982,630.73502-15-2004     
SOUT          -35.62    -3,826,254.99912-03-2003     


If you want to edit that output further, then you need to make sure you aren't overlapping any output fields.
Back to top
View user's profile Send private message
rupesh gullu

New User


Joined: 12 Dec 2008
Posts: 96
Location: Gurgaon

PostPosted: Tue Apr 07, 2009 2:43 pm    Post subject: Reply to: Getting U0126 abend for sort
Reply with quote

Hi Frank,

I tried with your solution but still I am getting the error.Can you share the code which you ran.

regards,
Ruepsh Gupta
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Apr 07, 2009 9:03 pm    Post subject:
Reply with quote

Quote:
Can you share the code which you ran.


Here's the job I ran - it worked fine:

Code:

//S1    EXEC  PGM=SORT                                               
//SYSOUT    DD  SYSOUT=*                                             
//SORTIN DD DSN=...  input file (FB/39)                                 
//SORTOUT DD SYSOUT=*                                                 
//SYSIN    DD    *                                                   
 SORT FIELDS=COPY                                                     
 OUTREC FIELDS=(1:1,4,6:8,6,PD,M4,20,7,PD,EDIT=(SI,III,III,IIT.TTT), 
               SIGNS=(,-),                                           
                35,5,PD,EDIT=(TT-TT-TTTT))                           


Quote:
I tried with your solution but still I am getting the error.


If you still can't get it to run, show me the job you used and the //SYSOUT messages you received.
Back to top
View user's profile Send private message
rupesh gullu

New User


Joined: 12 Dec 2008
Posts: 96
Location: Gurgaon

PostPosted: Wed Apr 08, 2009 3:14 pm    Post subject: Reply to: Getting U0126 abend for sort
Reply with quote

Hi Frank,

Job ran successfully.. thanks for help.

regards,
rupesh gupta
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Wed Apr 08, 2009 9:06 pm    Post subject:
Reply with quote

Can you share what changed between the unsuccessful run and the successful one? It will benefit others.
Back to top
View user's profile Send private message
rupesh gullu

New User


Joined: 12 Dec 2008
Posts: 96
Location: Gurgaon

PostPosted: Thu Apr 09, 2009 11:47 am    Post subject: Reply to: Getting U0126 abend for sort
Reply with quote

Hi Terry,

problem was related to overlapping of the fields which I gave in outrec. I tried with Frank's solution and it worked fine.

regards,
rupesh gupta
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SORT to unpack a feild shr_amar DFSORT/ICETOOL 7 Fri Jul 07, 2017 4:32 am
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts Optimize sort inrec parse vishwakotin DFSORT/ICETOOL 6 Mon Jun 26, 2017 11:15 pm
No new posts Reduce CPU Times for Join Sort santoshn SYNCSORT 12 Sat Jun 10, 2017 1:40 pm
No new posts Db2 load job abending in SORT mistah kurtz DB2 4 Mon Jun 05, 2017 3:58 pm


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