<![CDATA[
-*
-* THIS FOCEXEC WILL LIST OUT THE AGES FOR FULL TIME EMPLOYEES.
-*
JOIN CLEAR *
-*
-* RETRIEVE EMPLOYEE ASSIGNMENT
-*
DEFINE FILE EBFILE
THS_DATE/A10='&DATEMDYY';
CONV_DATE/A8=EDIT(THS_DATE,'$$$$$$9999')|EDIT(THS_DATE,'99')|
EDIT(THS_DATE,'$$$99');
-*
JOIN_KEY/A12=('(Site ID)'|EMP_ID_210);
END
TABLE FILE EBFILE
PRINT ASGN_END_DT EARN_210_CD JOB_CD_210 BY JOIN_KEY
-*
-* RETRIEVE CURRENT FULL-TIME EMPLOYEES
-*
WHERE ASGN_END_DT GE CONV_DATE;
-*
-* Substitute the information below with the earnings code(s)
-* for your site's employees.
-*
WHERE EARN_210_CD EQ '010' OR
EARN_210_CD EQ '011' OR
EARN_210_CD EQ '012';
-*
-* Substitute the information below with the job code(s)
-* for your site's employees.
-*
WHERE (JOB_CD_210 EQ 'A') OR (JOB_CD_210 EQ 'C') OR
(JOB_CD_210 EQ 'G') OR (JOB_CD_210 EQ 'J');
ON TABLE HOLD AS EBTEMP1
END
-*
-* RETRIEVE EMPLOYEE NAME
-*
DEFINE FILE EAFILE
EMP_NAME_HOR/A70=EMP_NAME_PRE||(' '|EMP_NAME_FST||(' '|EMP_NAME_MID||
(' '|EMP_NAME_LST||(' '|EMP_NAME_SUF))))||'*';
TOK_NAME/A32=GETTOK(EMP_NAME_HOR,70,1,'*',32,TOK_NAME);
LJUST_NAME/A32=LJUST(32,TOK_NAME,LJUST_NAME);
-*
JOIN_KEY/A12=('(Site ID)'|EMP_ID_100);
END
TABLE FILE EAFILE
PRINT DOB_EA EMP_NAME_LST LJUST_NAME BY JOIN_KEY
ON TABLE HOLD AS EATEMP1
END
-*
-* MERGE EMPLOYEE NAME WITH EMPLOYEE ASSIGNMENTS
-*
JOIN JOIN_KEY IN EBTEMP1 TO JOIN_KEY IN EATEMP1 AS J1
DEFINE FILE EBTEMP1
THS_DATE/A10='&DATEMDYY';
CONV_DATE/A8=EDIT(THS_DATE,'$$$$$$9999')|EDIT(THS_DATE,'99')|
EDIT(THS_DATE,'$$$99');
END
TABLE FILE EBTEMP1
PRINT DOB_EA EMP_NAME_LST LJUST_NAME BY JOIN_KEY
ON TABLE HOLD AS EBTEMP2
-*
-* RETRIEVE CURRENT FULL-TIME EMPLOYEES
-*
WHERE ASGN_END_DT GE CONV_DATE;
-*
-* Substitute the information below with the earnings code(s)
-* for your site's employees.
-*
WHERE EARN_210_CD EQ '010' OR
EARN_210_CD EQ '011' OR
EARN_210_CD EQ '012';
-*
-* Substitute the information below with the job code(s)
-* for your site's employees.
-*
WHERE (JOB_CD_210 EQ 'A') OR (JOB_CD_210 EQ 'C') OR
(JOB_CD_210 EQ 'G') OR (JOB_CD_210 EQ 'J');
END
-*
-* CREATE REPORT
-*
DEFINE FILE EBTEMP2
HOR_ID/A9=EDIT(JOIN_KEY,'$$$999999999');
THS_REC/A1=IF JOIN_KEY NE LAST JOIN_KEY THEN 'Y' ELSE 'N';
-*
-* Determine age.
-*
BD/I8=EDIT(DOB_EA);
AGE/I4=(&YYMD-BD)/10000;
END
TABLE FILE EBTEMP2
HEADING
"Some site"
" "
"AGE OF FULL TIME EMPLOYEES"
" "
-*
PRINT AGE AS 'Age' COLUMN-TOTAL
BY EMP_NAME_LST NOPRINT
BY LJUST_NAME AS 'Employee Name' IN 1
BY HOR_ID AS 'Employee ID'
WHERE EMP_NAME_LST NE '';
WHERE THS_REC EQ 'Y';
ON TABLE SAVE AS PLAY FORMAT WP
END
JOIN CLEAR *
]]>
This page hosted by 
Get your own Free Homepage
