Hi,
Is there a way to include a count of a field within the subtotal. I have four fields - Name, date, accnt no. and amount. I want a subtotal off of the name summing up amount which I can already do. However, within that subtotal, I want to count the number of account no. for each name. Here is my code:

  DEFINE FILE REFUNDS
NEWMDY/A10=EDIT(DATE, '99/99/9999');
TYPE/A10=DECODE REFUNDTYPE( 98 'Override' 97 'Bank Error' ELSE 'Other' );
END
TABLE FILE REFUNDS
PRINT
     REFUNDAMT/D10.2M AS 'Refund Amount'
BY FULLNAME AS 'Name'
BY NEWMDY AS 'Date Posted'
BY ACCTNUMBER AS 'Accnt No.'

ON FULLNAME SUBTOTAL
     SUM. REFUNDAMT AS '*TOTAL'
HEADING
"&TEAM<+0>'S<+0> <+0>&TYPE<+0> Refund Report"
"From <+0>&dte<+0> through <+0>&edte"
FOOTING
""
WHERE MARKETTEAM EQ '&TEAM';
WHERE TYPE EQ '&TYPE';
WHERE NEWMDY GE '&dte' AND NEWMDY LE '&edte';
ON TABLE SET PAGE-NUM OFF
ON TABLE SUMMARIZE REFUNDS.REFUNDS.REFUNDAMT AS 'TOTAL'
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     UNITS=IN,
     PAGESIZE='Letter',
     LEFTMARGIN=0.500000,
     RIGHTMARGIN=0.500000,
     TOPMARGIN=0.500000,
     BOTTOMMARGIN=0.500000,
     SQUEEZE=ON,
     ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
     FONT='ARIAL',
     SIZE=10,
     COLOR='BLACK',
     BACKCOLOR='NONE',
     STYLE=ITALIC,
     RIGHTGAP=0.125000,
     TOPGAP=0.013889,
     BOTTOMGAP=0.027778,
$
TYPE=DATA,
     BORDER-LEFT=MEDIUM,
     BORDER-RIGHT=MEDIUM,
     BACKCOLOR='WHITE',
$
TYPE=DATA,
     COLUMN=ROWTOTAL(1),
     STYLE=BOLD+ITALIC,
$
TYPE=TITLE,
     BORDER-TOP=MEDIUM,
     BORDER-BOTTOM=MEDIUM,
     BORDER-LEFT=MEDIUM,
     BORDER-RIGHT=MEDIUM,
     COLOR='WHITE',
     BACKCOLOR='BLACK',
     STYLE=BOLD+ITALIC,
$
TYPE=TITLE,
     COLUMN=ROWTOTAL(1),
     BORDER-TOP=MEDIUM,
     BORDER-BOTTOM=MEDIUM,
     BORDER-LEFT=MEDIUM,
     BORDER-RIGHT=MEDIUM,
     COLOR='WHITE',
     STYLE=BOLD+ITALIC,
$
TYPE=TABHEADING,
     SIZE=16,
     STYLE=BOLD+ITALIC,
$
TYPE=TABFOOTING,
     SIZE=12,
     STYLE=BOLD+ITALIC,
$
TYPE=HEADING,
     SIZE=16,
     STYLE=BOLD+ITALIC,
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=1,
     FONT='PHOTINA CASUAL BLACK',
     COLOR=RGB(51 102 255),
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=2,
     FONT='PHOTINA CASUAL BLACK',
     COLOR=RGB(51 102 255),
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=3,
     FONT='PHOTINA CASUAL BLACK',
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=4,
     FONT='PHOTINA CASUAL BLACK',
     COLOR='RED',
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=5,
     FONT='PHOTINA CASUAL BLACK',
$
TYPE=HEADING,
     LINE=2,
     OBJECT=TEXT,
     ITEM=1,
     FONT='PHOTINA CASUAL BLACK',
     SIZE=12,
$
TYPE=HEADING,
     LINE=2,
     OBJECT=TEXT,
     ITEM=2,
     FONT='PHOTINA CASUAL BLACK',
     SIZE=12,
     COLOR='RED',
$
TYPE=HEADING,
     LINE=2,
     OBJECT=TEXT,
     ITEM=3,
     FONT='PHOTINA CASUAL BLACK',
     SIZE=12,
$
TYPE=HEADING,
     LINE=2,
     OBJECT=TEXT,
     ITEM=4,
     FONT='PHOTINA CASUAL BLACK',
     SIZE=12,
     COLOR='RED',
$
TYPE=FOOTING,
     SIZE=12,
     STYLE=BOLD+ITALIC,
$
TYPE=SUBTOTAL,
     STYLE=BOLD+ITALIC,
$
TYPE=ACROSSVALUE,
     ACROSS=1,
     BORDER-TOP=MEDIUM,
     BORDER-BOTTOM=MEDIUM,
     BORDER-LEFT=MEDIUM,
     BORDER-RIGHT=MEDIUM,
     COLOR='WHITE',
     BACKCOLOR='BLACK',
     STYLE=ITALIC,
     TOPGAP=0.013889,
     BOTTOMGAP=0.027778,
$
TYPE=ACROSSVALUE,
     COLUMN=ROWTOTAL(1),
     BACKCOLOR='WHITE',
     STYLE=BOLD+ITALIC,
$
TYPE=ACROSSTITLE,
     COLOR='WHITE',
     BACKCOLOR='BLACK',
     STYLE=BOLD+ITALIC,
     TOPGAP=0.013889,
     BOTTOMGAP=0.027778,
$
TYPE=ACROSSTITLE,
     ACROSS=1,
     BORDER-TOP=MEDIUM,
     BORDER-BOTTOM=MEDIUM,
     BORDER-LEFT=MEDIUM,
     BORDER-RIGHT=MEDIUM,
     STYLE=BOLD+ITALIC,
     TOPGAP=0.013889,
     BOTTOMGAP=0.027778,
$
TYPE=GRANDTOTAL,
     COLOR='WHITE',
     BACKCOLOR='BLACK',
     STYLE=BOLD+ITALIC,
     TOPGAP=0.013889,
     BOTTOMGAP=0.027778,
$
ENDSTYLE
END

I appreciate any help on this.

Thanks!

quote:

PRINT
REFUNDAMT/D10.2M AS 'Refund Amount'
BY FULLNAME AS 'Name'
BY NEWMDY AS 'Date Posted'

You might try inserting a computed field with noprint option and then print it in the subfoot

COMPUTE ACCTS/I4 = IF FULLNAME EQ LAST FULLNAME THEN LAST AACTS + 1 ELSE 1; NOPRINT

Thanks for the reply. I get these errors:
0 ERROR AT OR NEAR LINE 13 IN PROCEDURE newrefundteamroll.
(FOC281) ALPHA ARGUMENTS IN PLACE WHERE NUMERIC ARE CALLED FOR
0 ERROR AT OR NEAR LINE 13 IN PROCEDURE newrefundteamroll
(FOC125) RECAP CALCULATIONS MISSING
(FOC009) INCOMPLETE REQUEST STATEMENT
BYPASSING TO END OF COMMAND

This seems this should be so simple. All I want to do is to place somewhere the number of accounts to fullname next to the amount total.

Joe

Joe,

If you want to count the different account numbers, try CNT.DST.Acctnumber otherwise try
CNT.Acctnumber on your subtotal line.

Joe,
For each FULLNAME you can have many NEWMDY. And for each NEWMDY you can have many ACCTNUMBER. What do you want to count? The number of lines per FULLNAME? The number of distinct ACCTNUMBERs per FULLNAME?

If you want to count the number of lines per FULLNAME, here is a possibility (example with the CAR file):

  
-* File Joe.fex
TABLE FILE CAR
PRINT SALES
COMPUTE CC/I3=1; NOPRINT
BY COUNTRY
BY BODYTYPE
BY MODEL
ON COUNTRY RECAP 
Count/I3=CC;
ON COUNTRY SUBTOTAL 
END

However if you want to count the number of distinct ACCTNUMBERs per FULLNAME:

  
TABLE FILE CAR
SUM CNT.CAR NOPRINT
BY COUNTRY
PRINT SALES
BY COUNTRY
BY BODYTYPE
BY CAR
ON COUNTRY RECAP 
Count/I3=CNT.CAR;
ON COUNTRY SUBTOTAL
ON TABLE NOTOTAL 
END

This works well because the CAR file is a hierarchy. If your file is not, some extra coding might be necessary.

Good luck!

This message has been edited. Last edited by: Danny-SRL,

What Danny states is possible, so use a multi verb request such as this -

APP PREPENDPATH IBISAMP IBINCCEN
TABLE FILE CAR
WRITE CNT.MODEL
   BY COUNTRY
WRITE CNT.MODEL
   BY COUNTRY
   BY CAR
  SUM CNT.MODEL
      RCOST
      DCOST
   BY COUNTRY
   BY CAR
   BY MODEL
ON TABLE SUMMARIZE
ON TABLE SET HTMLCSS ON
ON TABLE SET PAGE NOLEAD
ON TABLE SET STYLE *
GRID=OFF, SIZE=9, $
ENDSTYLE
END
-RUN

Notice that, in this example, providing you apply the count to the correct fieldname it doesn't matter about the position. Just make sure that you know and understand your data first.

T