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
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.
TABLE FILE AC
ON TABLE HOLD AS PERMSML
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';
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
if FLAG eq 'yes'
print ac:wname ac:dao ac:psnseq ac:posit16 ac:empdate
after match hold as permrpt old
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
"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
If you have any questions about the report, refer to your FOCUS documentation or call the CIRS Hotline.
Related Topics: Original Hire Date For Current Employees.
Last Updated: November 3, 2005