The following common library program: FOC1040 counts separated MPP employees by reason for resignation. A match between the SP and AC file is used to identify only those employees who are permanently separated.
EX AC
EX SP
-*
MATCH FILE AC
PRINT AC:LASTNAME
BY AC:SSA
RUN
-*
FILE SP
WHERE SP:EFFDATE GT 07012002
WHERE SP:CBID EQ 'M80'
WHERE SP:TRANCODE EQ 'S10'
PRINT SP:SEPREASN
BY SP:SSA AS 'AC:SSA'
AFTER MATCH HOLD AS PERMLRG NEW-NOT-OLD
END
-*
DEFINE FILE PERMLRG
REASON/A40 = DECODE E03
(01 'PROFESSIONAL ADVANCEMENT'
02 'BETTER SALARY'
03 'BETTER WORKING CONDITIONS'
04 'DISSATISFIED WITH CSU'
05 'DISSATISFIED WITH PROMOTION/SALARY'
06 'PERSONAL REASONS' ELSE 'OTHER/UNKNOWN')
END
-*
TABLE FILE PERMLRG
COUNT AC:SSA
BY REASON
HEADING CENTER
"THE CALIFORNIA STATE UNIVERSITY"
"COUNT OF SEPARATED MPP SINCE 7/1/2002"
"BY RESIGNATION REASON"
"COMMON(FOC1040)"
END
The following is only an excerpt from the actual report.
THE CALIFORNIA STATE UNIVERSITY
COUNT OF PERMANENTLY SEPARATED MPP SINCE 7/1/2002
BY RESIGNATION REASON
COMMON(FOC1040)
REASON COUNT
------ -----
BETTER SALARY 4
BETTER WORKING CONDITIONS 1
OTHER/UNKNOWN 133
PERSONAL REASONS 22
PROFESSIONAL ADVANCEMENT 19