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
 

 

SORT: Getting the error RC 16, ICE114A

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

New User


Joined: 31 Jan 2006
Posts: 49

PostPosted: Mon Jun 18, 2007 5:06 pm    Post subject: SORT: Getting the error RC 16, ICE114A
Reply with quote

I have given the valid input, sorting field is pic s9(5) comp3

Here I am getting the error RC 16, ICE114A

Code:

//SYSIN DD *                       
  OPTION COPY
  INCLUDE COND=(4,3,PD,EQ,C'11833')


Raj
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Mon Jun 18, 2007 5:23 pm    Post subject:
Reply with quote

If you had looked up the message, you would have seen that you have an invalid comparison, C'11833' is not PD (packed decimal).
Just remove the "C" and the quotes.
Back to top
View user's profile Send private message
bhoja

New User


Joined: 31 Jan 2006
Posts: 49

PostPosted: Mon Jun 18, 2007 6:12 pm    Post subject:
Reply with quote

NO, FOR PACKED DECIMAL, IF I DONT GIVE THAT PARAMETER WILL IT WORK? OR IS IT RIGHT?
MY SORT CARD IS LIKE THIS,
//SYSIN DD *
INCLUDE COND=(4,3,PD,EQ,X'1833')
SORT FIELDS=COPY

BUT I AM GETTING THIS ERROR
ICE113A E COMPARISON FIELD ERROR


RAJ
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Mon Jun 18, 2007 6:21 pm    Post subject:
Reply with quote

bhoja
Dont type everything in CAPS... Its against board rules.

Check this
Code:
INCLUDE COND=(4,3,PD,EQ,1833)
Back to top
View user's profile Send private message
bhoja

New User


Joined: 31 Jan 2006
Posts: 49

PostPosted: Mon Jun 18, 2007 6:32 pm    Post subject:
Reply with quote

Hi,
I am extremely sorry for that.

By using your sort card, it is not giving any error but it is not writing any output. The input what I given is valid one only.

Please help me in this.

Raj
Back to top
View user's profile Send private message
bhoja

New User


Joined: 31 Jan 2006
Posts: 49

PostPosted: Mon Jun 18, 2007 6:42 pm    Post subject:
Reply with quote

Hi,
For your reference my input datas are
Code:
A01  011832      2005 09 1314.00.001EA2005-09-1408.00.00
A01  011833      2005 09 1314.00.003DD2005 09 1314.00.00
A01  011834      2005-09-1407.55.005AS2005-09-1407.55.00
A01  011835      2005-09-1408.05.007OD2005-09-1408.05.00

Raj
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Mon Jun 18, 2007 7:14 pm    Post subject:
Reply with quote

bhoja

For the i/p you have shown, this should work good enough.

Code:
//S1       EXEC  PGM=ICEMAN                                             
//SYSOUT   DD  SYSOUT=*                                                 
//SORTIN   DD *                                                         
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
A01 011832 2005 09 1314.00.001EA2005-09-1408.00.00                     
A01 011833 2005 09 1314.00.003DD2005 09 1314.00.00                     
A01 011834 2005-09-1407.55.005AS2005-09-1407.55.00                     
A01 011835 2005-09-1408.05.007OD2005-09-1408.05.00                     
/*                                                                     
//SORTOUT  DD SYSOUT=*                                                 
//SYSIN    DD    *                                                     
  OPTION COPY                                                           
  INCLUDE COND=(7,4,ZD,EQ,1833)                                         
/*                                                                     
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 Jun 18, 2007 8:53 pm    Post subject:
Reply with quote

Raj,

Your posts are contradictory and confusing.

First you say your field is pic s9(5) comp3. That's a 3-byte PD field, so 4,3,PD makes sense. But later you show input that appears to have ZD fields, not PD fields and it's unclear where the field you're interested in starts.

Whether it's a PD field or a ZD field, you can only compare it to a decimal constant of n, +n or -n. So 1833 or +1833 would be valid.

But you have to figure out the correct starting position, length and format of the field and use it.
Back to top
View user's profile Send private message
bhoja

New User


Joined: 31 Jan 2006
Posts: 49

PostPosted: Tue Jun 19, 2007 12:25 pm    Post subject:
Reply with quote

Hi Frank,
Sorry I wrongly send the input data.
The field is s9(5) comp3 only,
and my sort card is
SORT FIELDS=COPY
INCLUDE COND=(4,3,PD,EQ,X'02164C')

but this is giving the error ICE114A E INVALID COMPARISON

Could you please help me in this.


Raj
Back to top
View user's profile Send private message
Phrzby Phil

Active Member


Joined: 31 Oct 2006
Posts: 962
Location: Richmond, Virginia

PostPosted: Tue Jun 19, 2007 5:50 pm    Post subject:
Reply with quote

3 tries for a quarter
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 Jun 19, 2007 8:29 pm    Post subject:
Reply with quote

Raj,

I already answered your question:

Quote:
Whether it's a PD field or a ZD field, you can only compare it to a decimal constant of n, +n or -n.


You need:

Code:

  INCLUDE COND=(4,3,PD,EQ,+2164)
Back to top
View user's profile Send private message
bhoja

New User


Joined: 31 Jan 2006
Posts: 49

PostPosted: Wed Jun 20, 2007 11:31 am    Post subject:
Reply with quote

Hi Frank,
Thank you very much,
Now it is working fine.

Raj
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 OO COBOL compile error Virendra Shambharkar COBOL Programming 3 Tue Jan 10, 2017 6:05 pm
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts Limit duplicate records in the SORT pshongal SYNCSORT 6 Mon Nov 21, 2016 12:54 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm


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