-TYPE ****************************************************************** -TYPE * F C P E R 1 F O C E X E C * -TYPE ****************************************************************** -* -*- FOCEXEC NAME: FCPER1 -*- -*- FUNCTION: TO PRODUCE REPORTS FCPER1-1.5, STATISTICAL -*- SUMMARY - EMPLOYEE FTE AND HEADCOUNT -*- (6 REPORTS) -*- -*- VARIABLES -*- PARAMETERS: FT SNAPSHOT FILETYPE -*- -*- OTHERS: MMM THREE CHARACTER MONTH ABBREVIATION -*- FROM FCPCYCLE -*- YYYY FULL YEAR -*- FROM FCPCYCLE -*- PF SNAPSHOT FILE IDENTIFIER -*- FROM FCPRPTPF -*- MONTH MONTH NAME -*- FROM FCPMONM -*- -*- FILES -*- READ: SNAPSHOT -*- -*- CREATED: NONE -*- -*- UPDATED: NONE -*- -*- FOCEXECS INCLUDED: FCPCYCLE -*- FCPRPTPF -*- FCPMONM -*- FCP11LOC DEFINE -*- FCPORG DEFINE -*- FCPGRPSS DEFINE -*- -*- RERUNABLE? YES -*- -********************************************************************** -******************************************************************* -* C H A N G E L O G * -* DATE PERSON DESCRIPTION OF CHANGE * -*-----------------------------------------------------------------* -* 08/01/85 slb Fixed heading in reports FCPER1.3, * -* 10/31/86 RMB MAP CHANGES PER SR2608 * -* 11/19/87 CMW APS CHANGES PER SR #3052. * -* 05/31/88 CMW DOS CHANGES PER SR #4414. * -* ADD DEFINED FIELD, GRP3NM & 2 NEW * -* REPORTS, FCPER1.6 & 1.7 PER SR3392 * -* 07/07/88 SLB Add 'HY' to CDOS values selected * -* (SR #2523). * -* 09/04/96 CMS SR 11719. HRMI CHANGES. ADD FCPORG AND * -* FCPGRPSS DEFINES. * -* 04/13/97 CMS SR 13456. CHANGED REPORT TITLES. * -* 04/29/98 CMS YR2000 COMPLIANT. * -******************************************************************* -*CMS FI OFFLINE DISK ER1 NRPT1 T (RECFM F LRECL 133 -*OFFLINE -INCLUDE FCPCYCLE -INCLUDE FCPRPTPF -INCLUDE FCPMONM USE FCPSNAP &FT * AS SNAPSHOT END -********************************************************************** -*- -*- From Snapshot file, create a title code level Hold file within -*- employee. Sum fte at the employee and title code levels. -*- Select if employee is active, title code has a total monthly -*- gross greater than zero, and DOS is "basic". -*- -********************************************************************** DEFINE FILE SNAPSHOT EMPFTE/P6.2 = MONFTE; END TABLE FILE SNAPSHOT SUM EMPFTE TITLEPRI BY CCAMPUS BY EMPNO SUM MONFTE MONGRS CCTO CLOC2 CLOC3 CAPTTYPT BY CCAMPUS BY EMPNO BY CTITLE IF EMPACTIVT EQ 'Y' IF CDOS EQ 'AM' OR 'AV' OR 'AW' OR 'AX' OR 'HR' OR 'HY' IF TOTAL MONGRS GT 0 ON TABLE HOLD AS ER1TITL END -RUN -********************************************************************** -*- -*- Flag title code record in the Hold file that matches an employee's -*- primary title code. -*- -********************************************************************** DEFINE FILE ER1TITL -INCLUDE FCP11LOC DEFINE SCAMP/A2 = DECODE 11LOC ('PRES ' '01' 'ANR ' '02' 'BK ' '03' 'DV ' '04' 'IR ' '05' 'LA ' '06' 'RV ' '07' 'SD ' '08' 'SF ' '09' 'SB ' '10' 'SC ' '11'); NCAMP/A4 = DECODE SCAMP( 01 'PRES' 02 ' ANR' 03 'BERK' 04 ' DAV' 05 ' IRV' 06 ' LA' 07 ' RIV' 08 ' SD' 09 ' SF' 10 ' SB' 11 ' SC' ELSE 'NONE'); -INCLUDE FCPORG DEFINE -INCLUDE FCPGRPSS DEFINE PRES/P9.2 = IF SCAMP EQ '01' THEN MONFTE ELSE 0; ANR/P9.2 = IF SCAMP EQ '02' THEN MONFTE ELSE 0; BERK/P9.2 = IF SCAMP EQ '03' THEN MONFTE ELSE 0; DAV/P9.2 = IF SCAMP EQ '04' THEN MONFTE ELSE 0; IRV/P9.2 = IF SCAMP EQ '05' THEN MONFTE ELSE 0; LA/P9.2 = IF SCAMP EQ '06' THEN MONFTE ELSE 0; RIV/P9.2 = IF SCAMP EQ '07' THEN MONFTE ELSE 0; SD/P9.2 = IF SCAMP EQ '08' THEN MONFTE ELSE 0; SF/P9.2 = IF SCAMP EQ '09' THEN MONFTE ELSE 0; SB/P9.2 = IF SCAMP EQ '10' THEN MONFTE ELSE 0; SC/P9.2 = IF SCAMP EQ '11' THEN MONFTE ELSE 0; TALL/P9.2 = MONFTE; HDCT/A1 = IF CTITLE EQ TITLEPRI THEN 'Y' ELSE 'N'; FTPT/A2 = IF EMPFTE GE .99 THEN 'FT' ELSE 'PT'; TOTFT/I6 = IF FTPT EQ 'FT' THEN 1 ELSE 0; TOTPT/I6 = IF FTPT EQ 'PT' THEN 1 ELSE 0; EMPLCT/I6 = 1; END -********************************************************************** -*- -*- Set panel to any number so that FOCUS will not issue an error -*- message when the combined length of fields summed in a report -*- table request (some or all designated as NOPRINT) exceeds the -*- report page width. Set lines to 61 so that page FOOTING is -*- positioned correctly. Suppress printing of page numbers. -*- -********************************************************************** SET PANEL=125 SET LINES=58 SET PAGE-NUM=OFF -********************************************************************** -*- -*- Print first two reports which sum fte and are identical except -*- for location. -*- -********************************************************************** TABLE FILE ER1TITL HEADING "JOB ID: FCPER1" "RPT ID: FCPER1 <62 ER 1" "RUNDATE: &DATE <55 STATISTICAL SUMMARY" "EFF. DATE: &MMM &YY &PF" "TABLE I. <54 FULL-TIME EQUIVALENTS" "<25 TOTAL PERSONNEL: SR. MANAGEMENT GROUP (SMG) & MANAGERS/SR. PROFESSIONALS (M SP) <114 &MONTH &YYYY" "<42 ACADEMIC STAFF, PROFESSIONAL/SUPPORT STAFF (PSS)" " " SUM TALL AS 'TOTAL' PRES AS 'OFC OF,PRES' ANR AS 'AG &,NR' BERK AS 'BERKELEY' DAV AS 'DAVIS' IRV AS 'IRVINE' BY C1GRP NOPRINT BY GRP3NM AS '' BY CTOGRP NOPRINT BY GRP4NM AS '' BY X1CTO AS 'CTO*,OSC' ON GRP3NM FOLD-LINE SUBTOTAL MULTILINES AS 'SUB-TOTAL' ON GRP3NM NOSPLIT ON TABLE COLUMN-TOTAL FOOTING " " "SOURCE: &MONTH &YYYY CORPORATE PERSONNEL SYSTEM " " " "* THE CLASS TITLE OUTLINE(CTO), ALSO IDENTIFIED AS THE OCCUPATION SUB-CLASSIFIC ATION (OSC), IS USED TO GROUP ACADEMIC" "POSITIONS ON THE BASIS OF TEACHING AND ACADEMIC FUNCTION OR PROGRAM CONSIDERATI ONS AND STAFF POSITIONS ON THE BASIS OF" "SALARY AND OTHER PERSONNEL CONSIDERATIONS. CLASSIFICATION OF TITLE CODES TO OS C GROUPS CAN BE DETERMINED FROM THE U.C." "POSITION TITLE LISTING, AVAILABLE IN CAMPUS PERSONNEL & ACCOUNTING OFFICES." END -RUN -*OFFLINE CLOSE -*CMS FI OFFLINE DISK ER1 NRPT2 T (RECFM F LRECL 133 -*OFFLINE TABLE FILE ER1TITL HEADING "JOB ID: FCPER1" "RPT ID: FCPER1.1 <62 ER 1.1" "RUNDATE: &DATE <55 STATISTICAL SUMMARY" "EFF. DATE: &MMM &YY &PF" "TABLE I. <54 FULL-TIME EQUIVALENTS" "<25 TOTAL PERSONNEL: SR. MANAGEMENT GROUP (SMG) & MANAGERS/SR. PROFESSIONALS (M SP) <114 &MONTH &YYYY" "<42 ACADEMIC STAFF, PROFESSIONAL/SUPPORT STAFF (PSS)" " " SUM LA AS 'LOS,ANGELES' RIV AS 'RIVERSIDE' SD AS 'SAN,DIEGO' SF AS 'SAN,FRANCISCO' SB AS 'SANTA,BARBARA' SC AS 'SANTA,CRUZ' BY C1GRP NOPRINT BY GRP3NM AS '' BY CTOGRP NOPRINT BY GRP4NM AS '' BY X1CTO AS 'CTO*,OSC' ON GRP3NM FOLD-LINE SUBTOTAL MULTILINES AS 'SUB-TOTAL' ON GRP3NM NOSPLIT ON TABLE COLUMN-TOTAL FOOTING " " "SOURCE: &MONTH &YYYY CORPORATE PERSONNEL SYSTEM " " " "* THE CLASS TITLE OUTLINE(CTO), ALSO IDENTIFIED AS THE OCCUPATION SUB-CLASSIFIC ATION (OSC), IS USED TO GROUP ACADEMIC" "POSITIONS ON THE BASIS OF TEACHING AND ACADEMIC FUNCTION OR PROGRAM CONSIDERATI IONS AND STAFF POSITIONS ON THE BASIS OF" "SALARY AND OTHER PERSONNEL CONSIDERATIONS. CLASSIFICATION OF TITLE CODES TO OS C GROUPS CAN BE DETERMINED FROM THE U.C." "POSITION TITLE LISTING, AVAILABLE IN CAMPUS PERSONNEL & ACCOUNTING OFFICES." END -RUN -********************************************************************** -*- -*- Print summary headcount report. Select if title code matches -*- primary title, i.e. count each employee once by his/her primary -*- title. -*- -********************************************************************** -*OFFLINE CLOSE -*CMS FI OFFLINE DISK ER1 NRPT3 T (RECFM F LRECL 133 -*OFFLINE TABLE FILE ER1TITL HEADING "JOB ID: FCPER1" "RPT ID: FCPER1.2 <62 ER 1.2" "RUNDATE: &DATE <55 STATISTICAL SUMMARY" "EFF. DATE: &MMM &YY &PF" "TABLE II. <49 FULL-TIME & PART-TIME HEADCOUNT" "<25 TOTAL PERSONNEL: SR. MANAGEMENT GROUP (SMG) & MANAGERS/SR. PROFESSIONALS (M SP) <114 &MONTH &YYYY" "<42 ACADEMIC STAFF, PROFESSIONAL/SUPPORT STAFF (PSS)" " " SUM EMPLCT ACROSS SCAMP NOPRINT ACROSS NCAMP AS 'CAMPUS' IF HDCT EQ 'Y' ON TABLE ROW-TOTAL END -RUN -********************************************************************** -*- -*- From the title code level Hold file, create another Hold file -*- sorted the same as the final three reports, with full- and part- -*- time headcounts for each location. Select if title code matches -*- primary title, i.e. include one title code record per employee. -*- (Note: The final three reports can be produced from this second -*- Hold file which contains required totals, rather than from the -*- larger title code level Hold file.) -*- -********************************************************************** TABLE FILE ER1TITL SUM TOTFT TOTPT BY C1GRP BY GRP3NM BY CTOGRP BY GRP4NM BY X1CTO COUNT ENTRIES BY C1GRP BY GRP3NM BY CTOGRP BY GRP4NM BY X1CTO ACROSS SCAMP COLUMNS 01 AND 02 AND 03 AND 04 AND 05 AND 06 AND 07 AND 08 AND 09 AND 10 AND 11 ACROSS FTPT COLUMNS FT AND PT IF HDCT EQ 'Y' ON TABLE HOLD AS ER1TBL2 END -RUN -********************************************************************** -*- -*- Print three headcount reports, identical except for location. -*- -********************************************************************** DEFINE FILE ER1TBL2 01FT/I5 = E08; 01PT/I5 = E09; 02FT/I5 = E10; 02PT/I5 = E11; 03FT/I5 = E12; 03PT/I5 = E13; 04FT/I5 = E14; 04PT/I5 = E15; 05FT/I5 = E16; 05PT/I5 = E17; 06FT/I5 = E18; 06PT/I5 = E19; 07FT/I5 = E20; 07PT/I5 = E21; 08FT/I5 = E22; 08PT/I5 = E23; 09FT/I5 = E24; 09PT/I5 = E25; 10FT/I5 = E26; 10PT/I5 = E27; 11FT/I5 = E28; 11PT/I5 = E29; END -*OFFLINE CLOSE -*CMS FI OFFLINE DISK ER1 NRPT4 T (RECFM F LRECL 133 -*OFFLINE TABLE FILE ER1TBL2 HEADING "JOB ID: FCPER1" "RPT ID: FCPER1.3 <62 ER 1.3" "RUNDATE: &DATE <55 STATISTICAL SUMMARY" "EFF. DATE: &MMM &YY &PF" "TABLE II. <49 FULL-TIME & PART-TIME HEADCOUNT" "<25 TOTAL PERSONNEL: SR. MANAGEMENT GROUP (SMG) & MANAGERS/SR. PROFESSIONALS (M SP) <114 &MONTH &YYYY" "<42 ACADEMIC STAFF, PROFESSIONAL/SUPPORT STAFF (PSS)" " " PRINT TOTFT AS 'TOTAL , FT' TOTPT AS 'TOTAL , PT' 01FT AS 'PRES , FT' 01PT AS 'PRES , PT' 02FT AS 'ANR , FT' 02PT AS 'ANR , PT' 03FT AS 'BERK , FT' 03PT AS 'BERK , PT' BY C1GRP NOPRINT BY GRP3NM AS '' BY CTOGRP NOPRINT BY GRP4NM AS '' BY X1CTO AS 'CTO*,OSC' ON GRP3NM FOLD-LINE SUBTOTAL MULTILINES AS 'SUB-TOTAL' ON GRP3NM NOSPLIT ON TABLE PAGE-BREAK AND SUBHEAD " " "SOURCE: &MONTH &YYYY CORPORATE PERSONNEL SYSTEM " " " "* THE CLASS TITLE OUTLINE(CTO), ALSO IDENTIFIED AS THE OCCUPATION SUB-CLASSIFIC ATION (OSC), IS USED TO GROUP ACADEMIC" "POSITIONS ON THE BASIS OF TEACHING AND ACADEMIC FUNCTION OR PROGRAM CONSIDERATI IONS AND STAFF POSITIONS ON THE BASIS OF" "SALARY AND OTHER PERSONNEL CONSIDERATIONS. CLASSIFICATION OF TITLE CODES TO OS C GROUPS CAN BE DETERMINED FROM THE U.C." "POSITION TITLE LISTING, AVAILABLE IN CAMPUS PERSONNEL & ACCOUNTING OFFICES." ON TABLE RECAP TOTU/I6 = TOTFT+TOTPT; TOT01/I5 = 01FT+01PT; TOT02/I5 = 02FT+02PT; TOT03/I5 = 03FT+03PT; ON TABLE SUBFOOT " " "TOTAL STAFF <54