The following common library program: HSTSUMRY joins the EH, PS and AGYCAMP files to print a history summary report.
EX JEHPSAG
DEFINE FILE EH ADD
OVERFLOW/A18 = IF EH:OVERFLOW EQ 'X' THEN 'data overflow: yes'
else 'data overflow: no';
TRANSUF/A4=EH:TRANCODE|EH:SUFFIX;
PSEQ/A11='PSN SEQ: '|EH:PSNSEQ;
overflow/a18 =
END
TABLE FILE EH
HEADING CENTER
"<+43 THE CALIFORNIA STATE UNIVERSITY <+25 DATA AS OF &DATE"
"EMPLOYMENT HISTORY SUMMARY"
"COMMON FOCEXEC: HSTSUMRY"
" "
PRINT
EH:EFFDATE IN +1
TRANSUF AS 'TRAN,CODE' IN +1
EH:POSIT16 AS 'POSITION NUMBER' IN +1
EH:SEPCODE AS 'S,E,P' IN +1
EH:RANGE AS 'R,N,G' IN +1
EH:CBID AS 'CB,ID' IN +1
EH:SALARY AS 'SALARY,TOTAL' IN +0
EH:BASEPAY AS 'BASE,PAY' IN +0
EH:TIMEBASE IN +1
PS:TITLEA AS 'TITLE' IN +1
EH:JOBCODE AS 'JOB,CODE' IN +1
EH:ANNIDATE IN +1
EH:PROBCODE IN +1
EH:PROBDATE IN +1
EH:EMPDATE IN +1
EH:DEPT IN +1
BY EH:SSA AS ''
BY EH:WNAME AS ''
BY OVERFLOW AS ''
BY PSEQ AS ''
BY CAMPUSCD AS '' IN +3
BY CAMPUS AS '' FOLD-LINE
WHERE (EH:CLASS GT '0') AND (EH:RANGE GE '0')
END
The following is only an excerpt from the actual report, which displays additional fields.
THE CALIFORNIA STATE UNIVERSITY
EMPLOYMENT HISTORY SUMMARY
COMMON FOCEXEC: HSTSUMRY
S R
EFFECT TRAN POSITION E N CB SALARY BASE TIME
DATE CODE NUMBER P G ID TOTAL PAY BASE TITLE
----- ---- -------- - - -- ------ --------- ---- -------------
000-01-0101 SMART, JB data overflow: no PSN SEQ: 01 10 POMONA
06/21/93 A52 199-444-2358-911 3 R03 $483.67 $2,902.00 010060 LECTURER B,AY
09/05/89 S31 199-444-2358-911 S 3 R03 $879.67 $2,639.00 005015 LECTURER B,AY
06/19/89 A52 199-444-2358-911 3 R03 $879.67 $2,639.00 005015 LECTURER B,AY
PSN SEQ: 02 10 POMONA
06/21/93 A52 199-333-2358-911 3 R03 $902.84 $3,869.33 014060 ASSIS PROF,EQ
09/08/92 S31 199-333-2358-911 S 3 R03 $902.84 $3,869.33 014060 ASSIS PROF,EQ
06/22/92 A52 199-333-2358-911 3 R03 $902.84 $3,869.33 014060 ASSIS PROF,EQ
Last Updated: January 3, 2006