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
 
ABEND with DFSORT- ABEND=S000 U0109

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

New User


Joined: 30 Jul 2008
Posts: 2
Location: india

PostPosted: Tue Sep 02, 2008 1:08 pm    Post subject: ABEND with DFSORT- ABEND=S000 U0109
Reply with quote

I'm getting S000 U0109 while SUMming fields in DFSORT
Code:

//STP00001 EXEC PGM=SORT                                   
//SYSOUT   DD SYSOUT=(,)                                   
//SORTIN DD DSN=********.INPUT.DSN,DISP=(OLD,KEEP)             
//SORTOUT  DD DSN=*******.PA1.DSN,   
//            DISP=(,CATLG),UNIT=SYSDA,
//            SPACE=(TRK,(2,1),RLSE)
//SYSIN    DD  *                                             
  SORT FIELDS=(20,3,A),FORMAT=CH                             
  SUM FIELDS=(30,5,BI)                                       
/*


The input file is
Code:

                   20-23     30-35
KANDY              PAT       07500
ISAI               PAT       07500
VEMULA             PAT       07500
MANI               PA        00500
NAIR               PA        01500
BHUVANA            PAT       07500
SARAVAN            PA        02500




SYSOUT is

Code:

ICE201I J RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE112I J EQUALS NOT USED WITH SUM                     
ICE109A J SUM FIELD DISPLACEMENT OR LENGTH VALUE ERROR
Back to top
View user's profile Send private message

kevin isaiyarasan

New User


Joined: 30 Jul 2008
Posts: 2
Location: india

PostPosted: Tue Sep 02, 2008 1:16 pm    Post subject: Reply to: ABEND with DFSORT- ABEND=S000 U0109
Reply with quote

The input file has records like
Code:

KANDY            PAT          07500
ISAI             PAT          07500
VEMULA           PAT          07500
MANI             PA           00500
NAIR             PA           01500
BHUVANA          PAT          07500
SARAVAN          PA           02500


need to sum according to 20-23 fields
Back to top
View user's profile Send private message
senthils

Active User


Joined: 15 Nov 2005
Posts: 117
Location: Chennai, India

PostPosted: Tue Sep 02, 2008 2:20 pm    Post subject:
Reply with quote

I think the its giving error beacuse you are using BI. Try using ZD. Also according to your data the numbers start at position 31 and not 30

SUM FIELDS=(31,5,ZD)
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 Sep 02, 2008 9:09 pm    Post subject:
Reply with quote

Kevin,

Did you look up message ICE109A in "z/OS DFSORT Messages, Codes and Diagnosis"? If so, you would have seen this as the first thing in the Programmer Response:

Quote:
Make sure that the length and position values in the FIELDS operand of the SUM control statement were specified correctly. For BI and FI, length must be 2, 4, or 8 bytes; for PD, length must be 1 through 16 bytes; for ZD, length must be 1 through 31 bytes; ...


You have a BI SUM field with length 5, which is invalid. If your sum field is really BI, then you must use a length of 2, 4 or 8 bytes. If your sum field is some other format, such as ZD (as it appears to be from your example), then you need to use that format instead of BI.

The DFSORT books are available at:

www.ibm.com/systems/support/storage/software/sort/mvs/srtmpub.html
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 Formatting using DFsort Guru Nandu DFSORT/ICETOOL 5 Thu Nov 30, 2017 7:33 am
No new posts Compare VSAM files using DFSORT pshongal DFSORT/ICETOOL 5 Thu Nov 23, 2017 10:24 am
No new posts Compare and COPY using DFSORT pshongal DFSORT/ICETOOL 3 Fri Nov 17, 2017 9:49 am
No new posts Split files upto certain limit based ... bubbu75 DFSORT/ICETOOL 5 Tue Nov 14, 2017 11:11 pm
No new posts ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm

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