Hi Everyone - This is my first exposure to WebFocus and I am having an issue that I am not understanding. When i run my results I am grouping using "by" on 3 fields, the first is fund, second index and third program. When the results are run the column headers are being placed into the results. Ideally i would like for it to be on the top of each page(for printing purposes). Can anyone point me in the right direction? Thanks in advance!

< ![CDATA[DEFINE FILE OPERATING_LEDGER_MV ADD
CC_BALANCE_FWD/P19.2=IF ACCOUNT LIKE '19%' AND ACCOUNT NE '1903' THEN SUM_YEAR_TO_DATE_ACTIVITY ELSE 0;
C_CURR_YEAR_REVENUE/P19.2=IF ACCOUNT_TYPE_LEVEL_2 EQ '51' OR ACCOUNT_TYPE_LEVEL_2 EQ '52' THEN SUM_YEAR_TO_DATE_ACTIVITY ELSE 0;
CC_ALLOCATIONS_TRANSFERS/P19.2=IF ACCOUNT EQ '1903' THEN SUM_YEAR_TO_DATE_ACTIVITY ELSE 0;
CC_CURR_YEAR_EXPENSES/P19.2=IF ACCOUNT_TYPE_LEVEL_1 EQ '60' OR ACCOUNT_TYPE_LEVEL_1 EQ '70' THEN SUM_YEAR_TO_DATE_ACTIVITY ELSE 0;
CC_CURR_YEAR_REVENUE/P19.2=IF ACCOUNT_TYPE_LEVEL_2 EQ '51' OR ACCOUNT_TYPE_LEVEL_2 EQ '52' THEN SUM_YEAR_TO_DATE_ACTIVITY ELSE 0;
CC_ENDING_BALANCE/P19.2=CC_BALANCE_FWD +CC_CURR_YEAR_REVENUE +CC_ALLOCATIONS_TRANSFERS-CC_CURR_YEAR_EXPENSES;
PROG/A42=OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.PROGRAM_CODE | ' ' | OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.PROGRAM_DESC;
MONTH/A3=
IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 07 THEN 'JAN'
ELSE IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 08 THEN 'FEB'
ELSE IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 09 THEN 'MAR'
ELSE IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 10 THEN 'APR'
ELSE IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 11 THEN 'MAY'
ELSE IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 12 THEN 'JUN'
ELSE IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 01 THEN 'JUL'
ELSE IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 02 THEN 'AUG'
ELSE IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 03 THEN 'SEP'
ELSE IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 04 THEN 'OCT'
ELSE IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 05 THEN 'NOV'
ELSE IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 06 THEN 'DEC';
END
TABLE FILE OPERATING_LEDGER_MV
SUM
CC_BALANCE_FWD/P19.2CB AS 'BALANCE,FORWARD'
CC_CURR_YEAR_REVENUE/P19.2CB AS 'CURRENT YEAR,REVENUE'
CC_ALLOCATIONS_TRANSFERS/P19.2CB AS 'ALLOCATIONS/,TRANSFERS'
CC_CURR_YEAR_EXPENSES/P19.2CB AS 'CURRENT YEAR,EXPENSES'
CC_ENDING_BALANCE/P19.2CB AS 'ENDING,BALANCE'
COMPUTE CURRENT_TIME/HMDYYIA = HGETC(8, 'HMDYYIA'); NOPRINT
BY LOWEST FUND NOPRINT
BY LOWEST INDEX_DESC AS 'INDEX' NOPRINT
BY PROG AS 'PROGRAM'

ON FUND SUBHEAD
"Fund: ON FUND SUBTOTAL MULTILINES AS '*TOTAL for FUND:'

ON PROG SUBTOTAL MULTILINES AS '*SUBTOTAL for PROGRAM:'
ON TABLE SUBHEAD
"Non Endowed Spending Funds"
"As of:ON TABLE SUBFOOT
" Page WHERE ( OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_YEAR EQ &FISCAL_YEAR.(OR(FIND OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_YEAR,OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_YEAR IN operating_ledger_mv)).Fiscal Year:. ) AND ( OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD EQ &CALENDAR_MONTH.(OR(,,,,,,,,,,)).Calendar Month:. ) AND ( OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FUND EQ &FUND.(OR(<2U0007,2U0007>,<3U0001,3U0001>,<3U0002,3U0002>,<3U0301,3U0301>,<4U0005,4U0005>,<5U0004,5U0004>,<6U0005,6U0005>,<7U0004,7U0004>)).Fund:. ) AND ( OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.CHART_OF_ACCOUNTS EQ 'U' );
ON TABLE SET EXPENDABLE ON
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT &WFFMT.(,,,,,,,).Select type of display output.
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = endeflt,
$
LEFTMARGIN=0.250000,
RIGHTMARGIN=0.250000,
TOPMARGIN=0.250000,
BOTTOMMARGIN=0.250000,
SUMMARY='FORHOO02 - Non Endowed Spending Funds Report',
TITLETEXT='FORHOO02 - Non Endowed Spending Funds Report',
$
TYPE=TABHEADING,
LINE=1,
OBJECT=TEXT,
ITEM=1,
SIZE=10,
STYLE=BOLD,
$
TYPE=TABHEADING,
LINE=2,
OBJECT=TEXT,
ITEM=1,
SIZE=10,
STYLE=BOLD,
$
TYPE=TABHEADING,
LINE=2,
OBJECT=TEXT,
ITEM=2,
SIZE=10,
STYLE=BOLD,
$
TYPE=TABHEADING,
LINE=2,
OBJECT=TEXT,
ITEM=3,
SIZE=10,
STYLE=BOLD,
$
TYPE=TABHEADING,
LINE=2,
OBJECT=FIELD,
ITEM=1,
SIZE=10,
STYLE=BOLD,
$
TYPE=TABHEADING,
LINE=2,
OBJECT=FIELD,
ITEM=2,
SIZE=10,
STYLE=BOLD,
$
TYPE=TABFOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=1,
SIZE=9,
STYLE=NORMAL,
$
TYPE=TABFOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=2,
SIZE=9,
STYLE=NORMAL,
$
TYPE=TABFOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=3,
SIZE=9,
STYLE=NORMAL,
$
TYPE=TABFOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=4,
SIZE=9,
STYLE=NORMAL,
$
TYPE=TABFOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=5,
SIZE=9,
STYLE=NORMAL,
$
TYPE=TABFOOTING,
LINE=1,
OBJECT=FIELD,
ITEM=1,
SIZE=9,
STYLE=NORMAL,
$
TYPE=TABFOOTING,
LINE=1,
OBJECT=FIELD,
ITEM=2,
SIZE=9,
STYLE=NORMAL,
$
TYPE=TABFOOTING,
LINE=1,
OBJECT=FIELD,
ITEM=3,
SIZE=9,
STYLE=NORMAL,
$
ENDSTYLE
END]]>

This message has been edited. Last edited by: Kerry,

WebFocus 8.01
Windows 7 Enterprise

If your problem is how to get "Fund: As of:" to topic of each page then use HEADING instead of ON FUND SUBHEAD. Below is a sample code with CAR file.

TABLE FILE CAR
SUM
SALES
DEALER_COST
BY COUNTRY NOPRINT
BY CAR NOPRINT
BY MODEL
HEADING
"Fund: As of:"
END

You have not mentioned about output format. Also if you want this report for printing purpose, better go for PDF format.

Thanks Ram. I am thinking you are correct. I will implement and see if it gives me the desired results.

I'd say your problem lies somewhere here - which is in your original post, but seems to have been removed....

quote:

ON FUND SUBHEAD
"Fund: ON FUND SUBTOTAL MULTILINES AS '*TOTAL for FUND:'

ON PROG SUBTOTAL MULTILINES AS '*SUBTOTAL for PROGRAM:'
ON TABLE SUBHEAD
"Non Endowed Spending Funds"
"As of:ON TABLE SUBFOOT
" Page WHERE ( OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_YEAR EQ &FISCAL_YEAR.(OR(FIND

This is a mess - don't know how you got the GUI to do it ...

You might also look up the FIYR subroutine - it will likely make calculating your fiscal months a heck of a lot easier.

You could also use DECODE instead of all the IF THEN ELSE.

And finally, if you do use IF THEN ELSE, the last one should be just ELSE, so in your case:

ELSE IF EDIT(OPERATING_LEDGER_MV.OPERATING_LEDGER_MV.FISCAL_PERIOD) EQ 05 THEN 'NOV'
ELSE 'DEC';
  

Hi George you are correct about that portion being a mess. I was handed this code and have to maintain it! Thanks for the constructive feedback, FIYR should help. I definitely need to refactor those subheaders as well.