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
 
Sort Problem

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

Active User


Joined: 22 Dec 2005
Posts: 116

PostPosted: Wed Mar 08, 2006 5:52 pm    Post subject: Sort Problem
Reply with quote

I am getting a problem while using these sort cards. The sysout error message is like this.
Code:

ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 07:16 ON WED MAR
            SORT FIELDS=(1,55,CH,A)                                             
            INCLUDE COND=(1,1,CH,EQ,C'2',OR,                                   
                          1,1,CH,EQ,C'3')                                       
            INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'2'),                               
            BUILD=(1:95,30,31:77,15,46:93,1,47:C'01',49:32,9,56:1,1000)),       
            IFTHEN=(WHEN=(1,1,CH,EQ,C'3'),                                     
            BUILD=(1:95,30,31:77,15,46:93,1,47:C'02',49:43,9,56:1,1000))       
ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
ICE126A 2 INCONSISTENT *INREC   IFTHEN 1 REFORMATTING FIELD FOUND               
ICE751I 0 C5-K05352 C6-Q95214 C7-K90000 C8-K05352 E7-K90000                     
ICE052I 3 END OF DFSORT                                                         


But if I change the sort card to
Code:

            SORT FIELDS=(1,55,CH,A)                                             
            INCLUDE COND=(1,1,CH,EQ,C'2',OR,                                   
                          1,1,CH,EQ,C'3')                                       
            INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'2'),                               
            BUILD=(1:95,30,31:77,15,46:93,1,47:32,9,56:1,1000)),       
            IFTHEN=(WHEN=(1,1,CH,EQ,C'3'),                                     
            BUILD=(1:95,30,31:77,15,46:93,1,47:43,9,56:1,1000))       

it is running fine.

Another problem:
Code:

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001                               
ICE200I J IDENTIFIER FROM CALLING PROGRAM IS 0001                               
ICE000I I - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 07:16 ON WED MAR
            INCLUDE COND=(1,12,CH,EQ,C'583731      ')                           
            INREC FIELDS=(1:89,30,31:64,15,46:192,1,47:41,2,49:55,9,56:1,200)   
            SORT FIELDS=(1,55,CH,A)                                             
ICE146I J END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW   
          DEBUG NOABEND,ESTAE                                                   
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL1,SORTIN=IN,SO
                         TOUT=OUT1,DYNALLOC                                     
          SORT FIELDS=COPY                                                     
ICE201I J RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
ICE126A J INCONSISTENT *INREC   IFTHEN 0 REFORMATTING FIELD FOUND               
ICE052I J END OF DFSORT                                                         


When I change the sort card to
Code:

            INCLUDE COND=(1,12,CH,EQ,C'583731      ')                           
            INREC FIELDS=(1:89,30,31:64,15,46:192,1,47:55,9,56:1,200)   
            SORT FIELDS=(1,55,CH,A)                                             

it's working fine.

Any idea why it's failing.
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: Wed Mar 08, 2006 9:50 pm    Post subject:
Reply with quote

Code:

  BUILD=(1:95,30,31:77,15,46:93,1,47:C'01',49:32,9,56:1,1000)),           


You have 49:32,9 - that would put the next field at 58 (49+9). But you have 56: which means you're trying to put the next field at 56, which would overlap the previous field. You need 58: instead of 56: in this case. But why are you specifying columns (c:) if you are just building the fields contiguously? You don't need columns in that case - just let DFSORT figure them out automatically. If you want to use columns, then each column must not overlap the previous field.

Code:

  BUILD=(1:95,30,31:77,15,46:93,1,47:32,9,56:1,1000)),


This works because you don't have overlapping columns. 47:32,9 puts the next field at 56 and you have 56: for the next field.

Code:

  INREC FIELDS=(1:89,30,31:64,15,46:192,1,47:41,2,49:55,9,56:1,200) 


Same problem as first one. 49:55,9 -> 58 for next column, but you have 56: for the next field.

Code:

  INREC FIELDS=(1:89,30,31:64,15,46:192,1,47:55,9,56:1,200)     


Ok because 47:55,9 -> 56 for next column and you have 56: for the next field.
Back to top
View user's profile Send private message
pjnithin

Active User


Joined: 22 Dec 2005
Posts: 116

PostPosted: Thu Mar 09, 2006 3:50 am    Post subject:
Reply with quote

Thank You.
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: Thu Mar 09, 2006 3:59 am    Post subject:
Reply with quote

Glad I could help.
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 records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts JOINKEYS Paired and Unpaired Sort MFwhiz DFSORT/ICETOOL 4 Fri Sep 29, 2017 1:48 am
No new posts Difference in SORT & ICETOOL Mohan Kothakota DFSORT/ICETOOL 5 Fri Sep 22, 2017 4:56 pm
No new posts LMINIT problem - not finding DDNAME Danielle.Filteau CLIST & REXX 7 Tue Sep 19, 2017 9:57 pm
No new posts OC4 in SORT Mohan Kothakota DFSORT/ICETOOL 2 Tue Sep 12, 2017 6:30 pm

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