PHS - Sample Report

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