How can I sum record with conditions like this ?

reinawar3 · New User Joined: 12 Sep 2006 Posts: 1

Please help me, I have some conditions that show in below this sentence.

My input data has 2 fields
01 TEST001-REC.
??05 TEST001-ACCT ??PIC S9(10) COMP-3.
??05 TEST001-AMOUNT ??PIC S9(13)V99 COMP-3.

Example records
TEST001-ACCT ? TEST001-AMOUNT
0011222222 ??? 200.00
0011222223 ??? 200.00
0012111111 ??? 500.00
0021123456 ??? 100.00

It impossible to use only JCL to generate output with conditions
- Sum records when first 4 digits are same.
- Sum amount of items.

Output look like this.

01 TEST002-REC.
?? 05 TEST002-BRANCH ??PIC S9(04) COMP-3.
?? 05 TEST002-AMOUNT ??PIC S9(13)V99 COMP-3.
?? 05 TEST002-ITEMS ??PIC 9(05).

TEST002-BRANCH ?????TEST002-AMOUNT ????? TEST002-ITEMS
0011 ????? 400.00 ???? 2
0012 ????? 500.00 ???? 1
0021 ????? 100.00 ???? 1

Thank you very much.

Frank Yaeger · Posted: Wed Mar 28, 2007 9:00 pm

This is a bit tricky because you want to sort and extract part of a PD field, but here's a DFSORT job that will do what you asked for:

murmohk1 · Posted: Thu Mar 29, 2007 9:13 am

Frank,

Could you explain what PDO stands for? By going through control card and the original post, I understood we are considering a part of PD.

Frank Yaeger · Posted: Thu Mar 29, 2007 8:22 pm

PD0 (zero, not oh) is packed decimal, with first digit and sign ignored.

So for your 6-byte PD value (in hex) of:

00011222222C

1,3,PD0 works with 000112 and treats it as x0011x where x is ignored.