IBM Mainframe Forum

Hello i have an input file like below:
AB1 j
AB1 j
AHA j
AHA p
AHA j
AHA j
AHA j
AHA j
AHA j
AHB j
AHB p
AJR p
AJR j
AJR j
AJR j
AJR j

my output needs to look like below:

dept j-count p-count

AB1 2 0
AHA 6 1
AHB 1 1
AJR 1 4


While i can create the layout using header1,my doubt is if i can use sum fields to achieve the result? If yes,then can anyone tell me how i can compare two fields using sum.
Thank You.

sorry,this is my sample output:

dept j-count p-count

AB1 2 0
AHA 6 1
AHB 1 1
AJR 4 1

You would use OUTFIL reporting features, REMOVECC, NODETAIL and SECTIONS with TRAILER3 and TOT/TOTAL.

Use INREC to create two fields which you set to either 0 or 1 depending on whether a p or a j. (so if a j, p-field will be zero, j-field will be one, and vice versa). Those are the two fields you use TOT/TOTAL on.

in my sample input i have given only 4 unique values but in reality there are hundreds of values.
i could easily use:

Can someone tell me an easier way to do it

Hello,

What BillyBoyo meant was an INREC similar to below code. 4 unique values or more, is impertinent here; the values that matter are the 'p' and 'j' combinations.

Please note that I've taken liberty with the OVERLAY columns:



I'll leave the SECTIONS code for you to explore, it is relatively simple. Just go by what was posted and refer the DFSORT programming guide, you'll have everything you need to work it out. All the heavy-lifting of control break for various items will be taken care of by DFSORT itself.

Using the above code i can get the total j count and p count. But i want the counts based on the dept name. How is that possible?

Hello,

Sanjana wrote:Using the above code i can get the total j count and p count. But i want the counts based on the dept name. How is that possible?

I hope you read my complete post, relevant portions are highlighted:

Aki88 wrote:Hello,

What BillyBoyo meant was an INREC similar to below code. 4 unique values or more, is impertinent here; the values that matter are the 'p' and 'j' combinations.

Please note that I've taken liberty with the OVERLAY columns:

Select all

 INREC IFTHEN=(WHEN=(5,1,CH,EQ,C'p'),    
              OVERLAY=(10:C'1',12:C'0')),
       IFTHEN=(WHEN=(5,1,CH,EQ,C'j'),    
              OVERLAY=(10:C'0',12:C'1'))
 

I'll leave the SECTIONS code for you to explore, it is relatively simple. Just go by what was posted and refer the DFSORT programming guide, you'll have everything you need to work it out. All the heavy-lifting of control break for various items will be taken care of by DFSORT itself.

In simple words, you'll have to couple the above code with SECTIONS to get the final result.

Hello,

Could someone point out to me the error in outfil syntax pls. Am i going in the right direction?

Well, you can only continue (filling up the line and continuing is a fool's game) after a comma or a colon. You can't leave that opening bracket like that.

You can only use IFTHEN within INREC, OUTREC and OUTFIL. You can't use them within TRAILER3 or anywhere else.