The following common library program: PAYSUMRY prints a payment history summary. The report provides both payment and deduction information.
EX PY
DEFINE FILE PY ADD
OVERFLOW/A18 = IF EH:OVERFLOW EQ 'X' THEN 'data overflow: yes'
else 'data overflow: no';
PY:PAYperiod/A14 = ' PP:'|PY:PAYperiod;
PY:GROSSPAY/D7.2 = PY:GROSSPAY;
PY:FEDWH/D7.2 = PY:FEDWH;
PY:STEWH/D7.2 = PY:STEWH;
PY:DEDAMT/D7.2 = PY:DEDAMT;
END
TABLE FILE PY
HEADING CENTER
"THE CALIFORNIA STATE UNIVERSITY"
"PAYMENT HISTORY SUMMARY"
"COMMON(PAYSUMRY)"
"DATA AS OF &DATE"
PRINT PY:DEDID AS 'DED:'
PY:DEDPPDTE AS 'PP:' IN +1
PY:DEDAMT AS 'AMT:' IN +1
PY:DEDTYPE AS 'TYPE:' IN +1
PY:HBSTATE AS 'STATE:' IN +1 OVER
PY:HBADCST AS ' ADMIN:' IN +1
PY:HBPRTCD AS 'PARTY:'
PY:HBPLAN AS 'PLAN:' IN +1
BY ALL.PY:SSA AS ''
BY PY:WNAME AS ''
by overflow as ''
BY PY:PAYPERIOD NOPRINT
BY ALL.PY:WRNTNMBR AS 'WARRANT,NUMBER' IN +24
BY PY:POSIT16 AS 'POSITION,NUMBER'
BY PY:PAYTYP AS 'P,T' IN +1
BY PY:ADJCODE AS 'A,C' IN +1
BY PY:SALTYP AS 'S,T, IN +1
BY PY:ACCNTCD AS 'PERS' IN +1
BY PY:ISSUEDTE AS 'ISSUE,DATE IN +1 FOLD-LINE
BY PY:PAYPERIOD AS ''
BY PY:GROSSPAY AS 'GROSS,PAY' IN +1
BY PY:NETPAY AS 'NET' IN +1
BY PY:FEDWH AS 'FEDERAL,WH' IN +1
BY PY:STEWH AS 'STATE,WH' IN +1
END
Note: Due to the width of the report, only selected fields from the report are displayed below:
THE CALIFORNIA STATE UNIVERSITY
PAYMENT HISTORY SUMMARY
COMMON FOCEXEC: PAYSUMRY
DATA AS OF XX/XX/XX
WARRANT POSITION P A S ISSUE
NUMBER NUMBER T C T PERS DATE
------- ------- - - - ---- ----
FEDERAL STATE
PAY PER GROSS WH WH
------- ----- ------- -----
000-00-0000 APE, AA data overflow: no 01303303 999-111-0440-909 1 0 4 NO 2003/02/07
2003/01 162.12 43.77 9.73 DED: . PP: . AMT: . TYPE: . STATE:
ADMIN: PARTY: PLAN:
999-111-0440-909 2 0 4 08 2003/02/07
2003/02 387.20 99.32 22.07 DED: . PP: . AMT: . TYPE: . STATE:
ADMIN: PARTY: PLAN: