MVSFORUMS.com

[sabarisavi]

Thanks Kolusu.

[tt_sav]

Hi,

It is really interesting discussion and have a small clarification. When i change the Input file and the byte location, i didnt get your expected result, Please clarify.

Consider my Input file is 133 byte LRECL and the conversion numeric field starts at 15 th byte.

Input file is :-

[kolusu]

tt_sav,

You changed the pos of the numeric field but you forgot to change the position of the other fields following the numeric field. In my example I assumed the rest of the fields start at pos 19 and the input file length is 80.

Change your input to the following. Pay attention to the contents in bold.

[tt_sav]

Great Kolusu, it is working fine. I really appriciate your "workaholic", eventhough in weekend. Thanks to everyone in part of the discussion, to know this logic.

[sabarisavi]

Hi Kolusu,

My apologies for making this discussion to long, how ever it is very useful for me and everyone. Well, we are facing difficulties with this new input file.

Input LRECL = 128 and 11 byte conversion field starts at 11 th byte and also have other numeric field in this file, apart from the 11th byte field.

Input file is below,

[kolusu]

sabarisavi,

The sample data you have shown ,the numeric field at pos 11 does NOT have a decimal point. How do you plan to make it as decimal field?

All of them have whole numbers

[sabarisavi]

Thanks. Well, Some of the records are in the Position 11 have decimal point and most of them have whole number, since we stictly concentrate at Poision 11 with 11 byte field.

Since, i already tested with whole number and decimal numbers as well. The output, we expect
if whole numbers, it will take numeric field along with 3 digit fractional number.
if any decimal numbers, it will format it with 7 digit whole no. and decimal
point with 3 digit fraction number ie., 9(7).9(3).

Kolusu, Hope i cleared, please help me to resolve this problem.

[sabarisavi]

For example:
If Input file is like below

[kolusu]

sabarisavi,

use the following control cards which will give you the desired results

[sabarisavi]

Thank you Kolusu.

[sabarisavi]

Hi Kolusu,

We got an issue, when we use 2.5 or 1.2 in the 20th byte position. it will convert 2.5.0 and 1.2.0. Please help me how resolve.

My Input file is

[kolusu]

sabarisavi,

The output you show has a few problems. How did you get 0000300.500 on the first record? It doesn't have any decimal positions on the record. How did you end up with .500?

Also the last numeric field you show 5 decimals on the 2 and 3 records but on the 1st record you only 4 decimals.

What are the rules governing the decimals?

Assuming that they are typos , here is a DFSORT JCL which will give the desired results

[sabarisavi]

Thanks Kolusu,

FYI - The decimal values are not amount / pricing information , they are the drug dosages, since, the drug values /drug density are differ for each fractions. that is 0.2570 differ 0.25. So, the inputs are correct and it s not a typo.

[sabarisavi]

Kolusu - The suggested code, is changed the last numeric field, we want to format the 11 byte field only not all the numeric field.

I will recap my requirement here:
Input file LRECL = 128 and the Output file also the same. We have to change only the 11th byte of X(11) will format to 9(7).9(3).

We want to change the 11 byte alphanumeric field to 9(7).9(3) format which the position starts at 11th byte. The X(11) byte Unit dosage field may have any decimal field or whole number or any zeros.


For example,

Input

[Terry_Heinze]

Please use BBCode (see FAQ). It makes your data more readable.
_________________
....Terry