IBM Mainframe Forum

hi ,

i have a i/p file that is CSV file i want to convert it into noncsv. i am facing a issue in one of the field.

i/p file :
999,222573,4829.94609700308

expected o/p :
999 222573 4829.94610

field3 = 4829.94609 is a S9(13)V9(5)

My JCl :
IFTHEN=(WHEN=(5,3,CH,EQ,C'999'),
PARSE=(%90=(ENDBEFR=C',',FIXLEN=3),
%91=(ENDBEFR=C',',FIXLEN=17),
%92=(ENDBEFR=C',',FIXLEN=19)),
BUILD=(1,4,%90,%91,SFF,TO=PD,LENGTH=9,
(%92,SFF,ADD,+500000),DIV,+1000000, X
TO=PD,LENGTH=10,1053C' '))

its working fine for the above i/p. but field3 format is not constant it can be
i/p file :
999,587378,10367.7517399912

expected o/p:
999 587378 10367.75174

but we are getting
999 587378 1036.77517

But i am not able to get the desired output as we are appling the standard rule for all format.

richagoyal,

What is the purpose of the addition and dividing? Are you rounding the decimal? What is the rule for rounding?

Richagoyal,


Based on the assumption that you need to round the decimal if the 6th decimal byte is greater than 5 , the following DFSORT control cards will give you the desired results.

Thanks Skolusu , the solution worked !