SUM FIELDS - To add a byte if sign field is there

vinu78 · Active User Joined: 02 Oct 2008 Posts: 179 Location: India

Hi,

I have an input file of 160 bytes (Fixed Byte) and I need to sum the amount field for same Type code field
Type code - X(5) - starting at 42nd byte, length - 5 bytes
Amount field S9(4)V99 - starting at 77th byte, length - 6 bytes

When I did SUM FIELDS, it seems the data got overflow and got incorrect results.

dick scherrer · Posted: Fri Jul 16, 2010 12:45 am

Hello,

Post some sample input records and the output you want from these input records.

Mention the dsorg and lrecl of the files. Post any "rules" for getting form the input to the output.

Post the jcl and sort control statements ysed and the informational output from this run (including the message id's).

vinu78 · Active User Joined: 02 Oct 2008 Posts: 179 Location: India

Hi,

Please find the sample input and output and JCL used.

Type Code is at 42nd byte X(5).
Amount is at 77th byte - S9(4)V99

Input data

CICS Guy · Posted: Fri Jul 16, 2010 1:12 am

Since you need to convert the signed numeric to a valid ZD format, you will need an INREC converting the CSF/SFF to ZD before summing.

vinu78 · Active User Joined: 02 Oct 2008 Posts: 179 Location: India

Hi CICS guy,

Is it mandatory to convert the signed field to ZD before doing summing ?

Thanks
Vinu

Frank Yaeger · Posted: Fri Jul 16, 2010 1:21 am

Vinu,

That amount is NOT a ZD value - it's an SFF value. SFF cannot be used in SUM. Here's a DFSORT job that will do what you asked for. I assumed the amount was actually in positions 77-84 (8 bytes), and that you only wanted the Type code and amount in the output records as shown in your example.

vinu78 · Active User Joined: 02 Oct 2008 Posts: 179 Location: India

Hi Frank,

Thanks for the code.
My Amount field is S9(4)V99 - 6 bytes.

So I have changed EDIT=(SIIIT.TT) to EDIT=(SIT.TT)
This truncated the output values.

Another example where the output can go past 6 bytes
For ex

Frank Yaeger · Posted: Fri Jul 16, 2010 2:05 am

Hmm ... I think we're getting a bit mixed up here with the internal representation of the value vs the external representation. Based on your example, and this statement:

vinu78 · Active User Joined: 02 Oct 2008 Posts: 179 Location: India

Hi Frank,

My values look like those mentioned in input records.

Amt can be +100.00, +2000.99 ie., it is S9(4)V99. (6 bytes).
While summing it overflows the 4 bytes. As you have mentioned, we can't do summing if Signed byte is there.
The code you have mentioned worked fine. Only problem is the length of bytes in it. Here ZD is not there.
My reqt is just to have the sum of amount for the similar Type codes.

Thanks
Vinu

Frank Yaeger · Posted: Fri Jul 16, 2010 3:15 am

You are absolutely making NO SENSE. You keep contradicting yourself as to what the values look like and how many bytes they occupy.

+2000.99 (X'4EF2F0F0F04BF9F9') would occupy 8 bytes and would be SFF format. 200099 (X'F2F0F0F0F9F9') would occupy 6 bytes and would be ZD format.

Then you say "it overflows the 4 bytes". 4, 6, 8? Eeeek.

I can't figure out what your data really looks like or what you want to do since you keep making confusing statements about it.

Please show what the +100.00 and +2000.99 values look like in HEXADECIMAL ... that will clear up once and for all what type of values you have.

Frank Yaeger · Posted: Fri Jul 16, 2010 3:42 am

vinu78 · Active User Joined: 02 Oct 2008 Posts: 179 Location: India

Hi Frank,

Thanks for the information.
Eventhough with IT.TT itself, it didnt give the desired results.
I have the Type code 1000C,1012A, 1012D, 1115A etc in input however it gave me the truncated result for 1012D,1115A. Not sure whether it combines all other Type codes.

When I tried using IIIT.TT, got error stating that the Input and Output LRECL is mismatching.

Thanks
Chidam

Frank Yaeger · Posted: Sat Jul 17, 2010 3:38 am

We were talking about the amount field. So why are you saying what the Type Code field looks like? What does the amount field look like? Isn't the amount field the field you're trying to add?

vinu78 · Active User Joined: 02 Oct 2008 Posts: 179 Location: India

Thanks Frank.
I was trying to increase the Amount field. I tried increasing IIIT and it worked fine.

Thanks
Vinu