Sample Request: Blank Or Multiple Employment Dates

The sample request below is based on feedback we received from last month's article about identifying the Original Hire Date For Current Employees. This report identifies active/onleave employees who have a blank value for employment date and/or who have multiple position sequences with different employment dates. A partial report is shown below. The complete report request is available in the CIRS common library as FOC5008.

psn employment current position

employee social seq date number

-------- ------ --- ---------- ----------------

anaconda, claude 456-78-9123 01 09/19/1989 000-031-2360-001

02 09/01/2004 000-040-2481-005

ardvark, susan 789-01-2345 01 10/01/2003 000-076-2354-007

03 08/29/2005 000-067-1032-005

bear, joe 123-45-6789 01 000-088-1032-002

Part 1

To begin, the Active Current Status (AC) file is used to identify all active/onleave position sequences and their associated employment date for your current employees. The data is then held to your PERMSML file for further processing.

EX AC

TABLE FILE AC

PRINT AC:EMPDATE

BY AC:SSA

BY AC:PSNSEQ

ON TABLE HOLD AS PERMSML

END

Part II

Using the data held in PERMSML, a define is written to identify all employees who have a blank value for employment date, and/or different employment dates if they have multiple active/onleave position sequences.

DEFINE FILE PERMSML

FLAG/A3 = IF AC:EMPDATE EQ ' ' THEN 'YES' ELSE

IF (AC:SSA EQ LAST AC:SSA) AND (AC:EMPDATE NE LAST AC:EMPDATE)

THEN 'YES' ELSE 'NO';

END

Part III

A match is used between the data held in PERMSML and the AC file to get all position and employment dates for 'flagged' employees with blank values or multiple employment dates.

match file PERMSML

print flag

by ac:ssa

if FLAG eq 'yes'

run

file ac

print ac:wname ac:dao ac:psnseq ac:posit16 ac:empdate

by ac:ssa

after match hold as permrpt old

end

Part IV:

The final report is generated from the matched data held in PERMRPT. It is written to produce a printed report, but it can be modified to produce a hold file by un-commenting the ON TABLE HOLD.... line before the END command. Please note that all formatting will be lost if a hold file in a lotus format is created.

table file PERMrpt

heading center

"active/onleave employees with blank or multiple employment dates"

"common focexec: foc5008"
"DATA AS OF: <AC:DAO"

print ac:empdate as 'employment date'

ac:posit16 as 'current position,number'

by ac:wname as 'employee'

by ac:ssa as 'social'

by ac:psnseq as 'psn,seq'

on ac:ssa skip-line

-* on table hold as permlrg format lotus

end

If you have any questions about the report, refer to your FOCUS documentation or call the CIRS Hotline.