How to find a given number ODD or EVEN?

Kumar Saraboji · New User Joined: 15 Sep 2009 Posts: 8 Location: India

I have the following in input file (LRECL=20,RECFM=FB)

Acct No(1-8) Sequence No(10-12,Format Type=ZD)
AAAAAAAA 001
AAAAAAAB 002
AAAAAAAC 003
AAAAAAAD 004
AAAAAAAE 005

I need an output like below (LRECL=20,RECFM=FB) using DFSORT/ICETOOL

Acct No(1-8) Sequence No(10-12) Type(14-17)
AAAAAAAA 001 ODD
AAAAAAAB 002 EVEN
AAAAAAAC 003 ODD
AAAAAAAD 004 EVEN
AAAAAAAE 005 ODD

I have achieved the above output with the help of FILEAID bach,
(
$$DD01 COPY IF=(12,EQ,B'01'),MOVE=(C'ODD',14)
COPY IF=(12,EQ,B'00'),MOVE=(C'EVEN',14)
)

but not sure how to get it done with DFSORT/ICETOOL. Can any one of you help me out. Many thanks in advance

gcicchet · Posted: Tue Sep 22, 2009 7:34 am

Hi,

this might assist

gcicchet · Posted: Tue Sep 22, 2009 7:45 am

Hi,

or like this

Kumar Saraboji · New User Joined: 15 Sep 2009 Posts: 8 Location: India

Hi Gerry,

Woov.....! Thanks a lot for the solution.

Regards,
Kumar

Frank Yaeger · Posted: Tue Sep 22, 2009 9:14 pm

Kumar,

You can use a bit test with DFSORT as you did with FileAid.

Kumar Saraboji · New User Joined: 15 Sep 2009 Posts: 8 Location: India

Thanks a lot Frank for the solution, from bit wise point of view. It is simply great! replying to the developer of DFSORT/ICETOOL