August 25, 2010, 03:32 PM
Tom FlynnErney,
I never do a RECAP that way; Use a multi-verb process. Also, ON TABLE will cause problems in later releases(so I have found), so I use DUMMY. Also, I changed your COUNT logic:
DEFINE FILE SQLOUT
DUMMY/A1 = ' ';
END
TABLE FILE SQLOUT
SUM
COMPUTE COUNT1/I9 = IF License_No EQ LAST License_No THEN COUNT1+1 ELSE 1; NOPRINT
BY DUMMY NOPRINT
PRINT
LEGAL_NAME AS 'Legal,Name'
Business_Address AS 'Business,Address'
Mailing_Address AS 'Mailing,Address'
Phone_Number AS 'Phone,Number'
LC_Return_Date/HMDYY AS 'Indicator,Effective,Date'
BY DUMMY NOPRINT
BY License_No AS 'License,Number'
BY Tax_Period AS 'Tax,Period'
BY TRADE_NAME AS 'Trade,Name'
ON License_No SUBFOOT
" "
ON DUMMY SUBFOOT
"Total Count: <TOT.COUNT1 "
WHERE Tax_Period EQ '&Tax_Period.(FIND TAX_PERIOD IN DBO_PERIOD).Tax_Period.';
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT &FMT
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
hth
August 25, 2010, 03:50 PM
Tom FlynnErney,
Sorry!! Had the COMPUTE backwards!!!!
DEFINE FILE SQLOUT
DUMMY/A1 = ' ';
END
TABLE FILE SQLOUT
SUM
COMPUTE COUNT1/I9 = IF License_No EQ LAST License_No THEN COUNT1 ELSE COUNT1+1; NOPRINT
BY DUMMY NOPRINT
PRINT
LEGAL_NAME AS 'Legal,Name'
Business_Address AS 'Business,Address'
Mailing_Address AS 'Mailing,Address'
Phone_Number AS 'Phone,Number'
LC_Return_Date/HMDYY AS 'Indicator,Effective,Date'
BY DUMMY NOPRINT
BY License_No AS 'License,Number'
BY Tax_Period AS 'Tax,Period'
BY TRADE_NAME AS 'Trade,Name'
ON License_No SUBFOOT
" "
ON DUMMY SUBFOOT
"Total Count: <TOT.COUNT1 "
WHERE Tax_Period EQ '&Tax_Period.(FIND TAX_PERIOD IN DBO_PERIOD).Tax_Period.';
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT &FMT
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE
August 26, 2010, 12:32 PM
ErneyInteresting im getting a count of 2 back, even though there are a few hundred results.
August 26, 2010, 01:29 PM
ErneyOop nevermind, I got it
thanks a bunch again.
August 26, 2010, 01:43 PM
Tom FlynnHi Erney,
You are welcome, I guess? Did you have a typo or something else?
Tom
August 26, 2010, 03:32 PM
Erney DEFINE FILE SQLOUT
DUMMY/A1 = ' ';
END
TABLE FILE SQLOUT
SUM
COMPUTE COUNT1/I9 = IF License_No EQ LAST License_No THEN COUNT1 ELSE COUNT1 + 1; NOPRINT
BY DUMMY NOPRINT
[B]BY License_No AS 'License,Number'[/B]
PRINT
Tax_Period AS 'Tax,Period'
TRADE_NAME AS 'Trade,Name'
LEGAL_NAME AS 'Legal,Name'
Business_Address AS 'Business,Address'
Mailing_Address AS 'Mailing,Address'
Phone_Number AS 'Phone,Number'
LC_Return_Date/HMDYY AS 'Indicator,Effective,Date'
BY DUMMY NOPRINT
BY License_No AS 'License,Number'
ON DUMMY SUBFOOT
"Total Count: <COUNT1 "
ON License_No SUBFOOT
" "
WHERE Tax_Period EQ '&Tax_Period.(FIND TAX_PERIOD IN DBO_PERIOD).Tax_Period.';
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT &FMT
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
Had to put
BY License_No AS 'License,Number'
after the BY DUMMY NOPRINT
August 26, 2010, 03:39 PM
Tom FlynnAHHH!!! Well Done... AND, you changed TOT.COUNT1 to COUNT1..