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.

 

Related Topics:  Original Hire Date For Current Employees.