Across Report Sample Report Screens and Rule DEPT_EXPENSE_SUM Report The following illustration shows the definition for the DEPT_EXPENSE_SUM report: DEFINE REPORT: DEPT_EXPENSE_SUM Unit: USR40 Command ===> Page Length: 60 Page Width : 132 Fill Missing Data : . REPORTTABLES: Origin Max Max Title Blank Title Heading Title Final Name Row Col Occ Acr Only Overlap Rows Rows Cols Cols ---------------- --- --- ---- ---- - - -- -- --- --- _ DEPT_EXPENSE_SUM 1 1 * * N 1 2 11 24 _ _ _ _ CONTROL BREAKS: Max Repeat Title Body Control Name Acr Head Rows Reporttable Break Field ---------------- ---- - -- ---------------- --------------- _ 0 DEPT_EXPENSE_SUM MONTH_NUMBER _ TOTAL_EXP_BR * N 0 DEPT_EXPENSE_SUM _ 0 PFKEYS: 3=SAVE 12=CANCEL 2=DOC 22=DELETE 6=PAINT 13=PRT 21=DISPLAY 16=LITERAL DEPT_EXPENSE_SUM Rule The following illustration shows the definition for the DEPT_EXPENSE_SUM rule: RULE EDITOR ===> SCROLL: P DEPT_EXPENSE_SUM(MEDIA); _ _ --------------------------------------------------------------------------- _ ------------------------------------------------------------+-------------- _ FORALL $EMPLOYEE_EXPENS : | 1 _ DEPT_EXPENSE_SUM.MONTH_NUMBER = $DATE_PIC(’MM’, | _ $EMPLOYEE_EXPENS.MONTH); | _ FORALL EMPLOYEE_EXPENSE($EMPLOYEE_EXPENS.MONTH) : | _ DEPT_EXPENSE_SUM.* = EMPLOYEE_EXPENSE.*; | _ INSERT DEPT_EXPENSE_SUM(’DEPT_EXPENSE_SUM’); | _ END; | _ END; | _ CALL $SETRPTMEDIUM(’DEPT_EXPENSE_SUM’, ‘VISUAL’, ‘SCR’); | 2 _ PRINT DEPT_EXPENSE_SUM; | 3 _ --------------------------------------------------------------------------- _ _ _ _ _ _ _