View previous topic :: View next topic
|
Author |
Message |
bhoja
New User
Joined: 31 Jan 2006 Posts: 49
|
|
|
|
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 |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
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 |
|
|
bhoja
New User
Joined: 31 Jan 2006 Posts: 49
|
|
|
|
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 |
|
|
krisprems
Active Member
Joined: 27 Nov 2006 Posts: 649 Location: India
|
|
|
|
bhoja
Dont type everything in CAPS... Its against board rules.
Check this
Code: |
INCLUDE COND=(4,3,PD,EQ,1833)
|
|
|
Back to top |
|
|
bhoja
New User
Joined: 31 Jan 2006 Posts: 49
|
|
|
|
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 |
|
|
bhoja
New User
Joined: 31 Jan 2006 Posts: 49
|
|
|
|
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 |
|
|
krisprems
Active Member
Joined: 27 Nov 2006 Posts: 649 Location: India
|
|
|
|
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 |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
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 |
|
|
bhoja
New User
Joined: 31 Jan 2006 Posts: 49
|
|
|
|
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 |
|
|
Phrzby Phil
Senior Member
Joined: 31 Oct 2006 Posts: 1042 Location: Richmond, Virginia
|
|
|
|
3 tries for a quarter |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
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 |
|
|
bhoja
New User
Joined: 31 Jan 2006 Posts: 49
|
|
|
|
Hi Frank,
Thank you very much,
Now it is working fine.
Raj |
|
Back to top |
|
|
|