The following common library program: FOC1098 generates a detail report of payments issued to employees in the last 5 years.
EX PHS
DEFINE FILE PHS ADD
LITERALS/A9='TAX YEAR:';
PHS:RETSTSHR/D7.2=PHS:RETSTSHR;
PHS:GROSSPAY/D8.2=PHS:GROSSPAY;
PHS:FEDWH/D7.2=PHS:FEDWH;
PHS:STEWH/D7.2=PHS:STEWH;
PHS:SSTAXWH/D7.2=PHS:SSTAXWH;
PHS:RETIREWH/D7.2=PHS:RETIREWH;
PHS:SSTAXWHS/D7.2=PHS:SSTAXWHS;
END
TABLE FILE PHS
IF RECORDLIMIT EQ 10
HEADING CENTER
"THE CALIFORNIA STATE UNIVERSITY"
"PAYMENT HISTORY SUMMARY"
"COMMON(FOC1098)"
"DATA AS OF &DATE"
PRINT PHS:PAYPDDTE AS 'PAY,PERIOD'
PHS:ISSUEDTE AS 'ISSUE,DATE'
PHS:WRNTNMBR AS 'WARRANT,NUMBER'
PHS:CLEARTYP AS 'C,T' IN +1
PHS:ROLLCODE AS 'R,L' IN +1
PHS:PAYMETYP AS 'P,T' IN +1
PHS:PAYTYPSF AS 'P,S' IN +1
PHS:ADJCODE AS 'A,C' IN +1
PHS:SHIFTDIF AS 'S,D' IN +1
PHS:GROSSTYP AS 'G,T' IN +1
PHS:OVERTIME AS 'O,T' IN +1
PHS:ACCNTCD AS 'RET,SYS,ID'
PHS:POSIT16 AS 'POSITION,NUMBER'
PHS:SALRATE AS 'SALARY,RATE' IN +1
PHS:GROSSPAY AS 'GROSS,PAY' IN +1
PHS:FEDTAXGR AS 'FEDERAL,TAX,GROSS' IN +1
PHS:FEDWH AS 'FEDERAL,WH' IN +1
PHS:STTAXGR AS 'STATE,TAX,GROSS' IN +1
PHS:STEWH AS 'STATE,WH' IN +1
BY PHS:SSA AS '' SKIP-LINE
BY PHS:WNAME AS '' IN +1
BY LITERALS AS '' IN +1
BY PHS:TAXYEAR AS '' IN +1 FOLD-LINE
ON PHS:TAXYEAR
SUBTOTAL PHS:GROSSPAY PHS:FEDTAXGR PHS:FEDWH PHS:STTAXGR
PHS:STEWH AS ' TOTAL FOR TAX YEAR'
ON TABLE NOTOTAL
END
The following is only an excerpt from the actual report.
THE CALIFORNIA STATE UNIVERSITY
PAYMENT HISTORY SUMMARY
COMMON(FOC1098)
DATA AS OF 03/09/98
PAY ISSUE WARRANT C R P P A S G O SYS POSITION SALARY GROSS TAX FEDERAL TAX STATE
PERIOD DATE NUMBER T L T S C D T T ID NUMBER RATE PAY GROSS WH GROSS WH
------ ----- ------- - - - - - - - - --- -------- ------ ----- ----- ------- ----- -----
111-22-3333 BADGER, THERESA A TAX YEAR: 1994
1994/07 1994/08/04 03246999 1 0 Q 0 5 TM 000-374-2357-924 996.00 2,988.00 2763.90 304.59 2763.90 52.58
1994/09 1994/10/28 03887999 1 0 Q 0 5 TY 111-463-4660-990 249.00 1,494.00 1381.95 207.30 1381.95 47.59
1994/11 1994/12/08 01157999 1 0 Q 0 5 TY 111-463-4660-990 249.00 1,494.00 1381.95 207.30 1381.95 47.59
TOTAL FOR TAX YEAR 1994 5,976.00 5527.80 719.19 5527.80 147.76