-* File urgentnews.fex -******************************************************************************************************* -* WORKGROUP NAME: SALES FLOOR -* REPORT NAME: TASK REPORTING DASHBOARD -* FILE NAME: urgentnews.fex -* OUTPUT TYPE: -* DEVELOPED BY: VINODKUMAR.Y -******************************************************************************************************* -* BASIC SET COMMANDS THAT ARE COMMON ACROSS REPORTS -******************************************************************************************************* -SET &ECHO=ON ; SET ALL = PASS SET NULL=ON SET ASNAMES = ON SET LINES = 9999 SET PAGE-NUM=NOPAGE; SET BYDISPLAY = ON SET NODATA = N/A -SET &UNIQ = 'Task Reporting Dashboard' ; -******************************************************************************************************* -* JOIN -******************************************************************************************************* JOIN T_SQL_UGT_NEWS_RESP_E.T_SQL_UGT_NEWS_RESP_E.MSG_I IN T_SQL_UGT_NEWS_RESP_E TO MULTIPLE T_SQL_UGT_NEWS_MSG_E.T_SQL_UGT_NEWS_MSG_E.MSG_I IN T_SQL_UGT_NEWS_MSG_E AS J0 END -******************************************************************************************************* -* DEFINE FIELDS -******************************************************************************************************* DEFINE FILE T_SQL_UGT_NEWS_RESP_E CRESP/I4 = IF RESP_C EQ 'C' THEN 1 ELSE 0 ; CNCRESP/I4 = IF RESP_C IN ('C' 'N') THEN 1 ELSE 0; NRESP/I4 = IF RESP_C EQ 'N' THEN 1 ELSE 0 ; RESP/A15 = IF RESP_C EQ 'C' THEN 'Complete' ELSE IF RESP_C EQ 'N' THEN 'Not Complete' ELSE ''; UPDT/YYMD = HDATE(UPDT_TS, 'YYMD'); RESPT/YYMD = HDATE(RESP_TS, 'YYMD'); MSGEFFT/YYMD = HDATE(MSG_EFF_D, 'YYMD'); MSGEXPT/YYMD = HDATE(MSG_EXPR_D, 'YYMD'); END -******************************************************************************************************* -* MAIN PROGRAM -******************************************************************************************************* TABLE FILE T_SQL_UGT_NEWS_RESP_E PRINT UPDT NOPRINT BY HIGHEST RESPT ON TABLE SAVE AS SRES END -RUN -READ SRES &RESD.A8. -SET &RESD1 = EDIT (&RESD,'9999/99/99') ;
TABLE FILE ACCT_DATE PRINT WK_BEGIN_D WK_END_D WHERE ACCT_D EQ '&RESD1' ON TABLE SAVE AS SDATE END -RUN -READ SDATE &EFFT.A8. &EXPT.A8. -******************************************************************************************************** -*TASK COMPLETED -******************************************************************************************************** TABLE FILE T_SQL_UGT_NEWS_RESP_E SUM CRESP CNCRESP COMPUTE PNT/P4% = CRESP/CNCRESP *100 ; BY LOC_I WHERE LOC_I IN ('69' '803' '804' '878' '1170' '1767' '1791' '1901' '1939' '2041') -*WHERE DIST_I EQ '105' ; WHERE RESPT FROM '&EFFT' TO '&EXPT' ON TABLE HOLD AS H11 END -******************************************************************************************************** DEFINE FILE H11 RES/A15 = PTOA(PNT,'(P4%)','A15') ; T_DESC/A1024 = 'z%TASKS COMPLETED' ; END -******************************************************************************************************** TABLE FILE H11 PRINT LOC_I RES T_DESC PNT ON TABLE HOLD AS HPER END -******************************************************************************************************** TABLE FILE T_SQL_UGT_NEWS_RESP_E PRINT LOC_I RESP MSG_SUBJ_T COMPUTE PNT/P4% = 0; WHERE RESPT FROM '&EFFT' TO '&EXPT' WHERE LOC_I IN ('69' '803' '804' '878' '1170' '1767' '1791' '1901' '1939' '2041') -*WHERE DIST_I EQ '105' ON TABLE HOLD AS HMAIN END -******************************************************************************************************** -*TASK COMPLETED ONTIME -******************************************************************************************************** TABLE FILE T_SQL_UGT_NEWS_RESP_E SUM CNT.RESP_C COMPUTE PONT/P4% = CNT.RESP_C/CNT.CRESP *100 ; BY LOC_I WHERE RESP_C EQ 'C' WHERE LOC_I IN ('69' '803' '804' '878' '1170' '1767' '1791' '1901' '1939' '2041') WHERE RESPT FROM '&EFFT' TO '&EXPT' ON TABLE HOLD AS H22 END -******************************************************************************************************** DEFINE FILE H22 RES/A15 = PTOA(PONT,'(P4%)','A15') ; T_DESC/A1024 = 'z%TASKS COMPLETED ON TIME' ; END -******************************************************************************************************** TABLE FILE H22 PRINT LOC_I RES T_DESC PONT ON TABLE HOLD AS HPER1 END -******************************************************************************************************** -*TASK COMPLETED LATE -******************************************************************************************************** TABLE FILE T_SQL_UGT_NEWS_RESP_E SUM CNT.RESP_C COMPUTE PONT/P4% = CNT.RESP_C/CNT.CRESP *100 ; BY LOC_I WHERE RESP_C EQ 'C' WHERE LOC_I IN ('69' '803' '804' '878' '1170' '1767' '1791' '1901' '1939' '2041') WHERE RESPT FROM '&EXPT' TO &YYMD -*WHERE RESPT FROM '&EFFT' TO '&EXPT' ON TABLE HOLD AS H33 END -IF &RECORDS EQ 0 AND &LINES EQ 0 THEN GOTO F1 ELSE GOTO F2 ; -F1 TABLE FILE T_SQL_UGT_NEWS_RESP_E SUM CNT.RESP_C NOPRINT COMPUTE PONT/P4% = 0 ; BY LOC_I WHERE RESP_C EQ 'C' WHERE LOC_I IN ('69' '803' '804' '878' '1170' '1767' '1791' '1901' '1939' '2041') ON TABLE HOLD AS H33 END -GOTO F2 -F2 -******************************************************************************************************** DEFINE FILE H33 RES/A15 = PTOA(PONT,'(P4%)','A15') ; T_DESC/A1024 = 'z%TASKS COMPLETED THAT ARE LATE' ; END -******************************************************************************************************** TABLE FILE H33 PRINT LOC_I RES T_DESC PONT ON TABLE HOLD AS HPER2 END -******************************************************************************************************** -*TASK NOT COMPLETED -******************************************************************************************************** TABLE FILE T_SQL_UGT_NEWS_RESP_E SUM NRESP COMPUTE PONT1/P4% = NRESP/CNCRESP * 100 ; BY LOC_I -*WHERE RESP_C EQ 'N' WHERE LOC_I IN ('69' '803' '804' '878' '1170' '1767' '1791' '1901' '1939' '2041') WHERE RESPT FROM '&EFFT' TO '&EXPT' ON TABLE HOLD AS H44 END -******************************************************************************************************** DEFINE FILE H44 RES/A15 = PTOA(PONT1,'(P4%)','A15') ; T_DESC/A1024 = 'z%TASKS NOT COMPLETED' ; END -******************************************************************************************************** TABLE FILE H44 PRINT LOC_I RES T_DESC PONT1 ON TABLE HOLD AS HPER3 END -******************************************************************************************************** TABLE FILE HMAIN PRINT * ON TABLE HOLD AS HCAL1 MORE FILE HPER MORE FILE HPER1 MORE FILE HPER2 MORE FILE HPER3 END
-******************************************************************************************************** DEFINE FILE HCAL1 CRESP/P4 = IF RESP EQ 'Complete' THEN 1 ELSE IF RESP EQ 'Not Compelte' THEN 0 ELSE PNT; CNRESP/I2 = IF RESP IN ('Complete' 'Not Complete') THEN 1 ELSE 0 ; PNTCNT/I2 = IF PNT EQ '' THEN 0 ELSE 1 ; END
TABLE FILE HCAL1 SUM CRESP NOPRINT AS 'RESP' CNRESP NOPRINT PNTCNT NOPRINT BY MSG_SUBJ_T AS '' SUM RESP AS '' BY MSG_SUBJ_T AS '' ACROSS LOC_I AS '' COMPUTE PCT/D4% = IF RESP IN ('Complete' 'Not Complete') THEN C1/C2 * 100 ELSE C1/C3 ; ON TABLE SUBHEAD "Urgent News" ON TABLE NOTOTAL ON TABLE SET HTMLCSS ON ON TABLE PCHOLD FORMAT HTML ON TABLE SET STYLE * UNITS=IN, SQUEEZE=ON, ORIENTATION=LANDSCAPE, TOPMARGIN=0.000, BOTTOMMARGIN=0.000, LEFTMARGIN=0.500, $ TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=10, COLOR='BLACK', BACKCOLOR='NONE', STYLE=NORMAL, $ TYPE=TABHEADING, STYLE=BOLD, FONT='ARIAL', SIZE=12, $ ENDSTYLE END
-EXIT
I need the styling as
T3 T4 T5 TOT ____________________________________________ Urgene News _____________________________________________ D94 Product Com Com NCom 67% Store Isp Com Com NCom 67% _____________________________________________ %Tasks Com 100% 100% 0% 67% _____________________________________________ %T C OT 100% 100% NA 100% %T C L 0% 0% NA 0% _____________________________________________ %Tasks NCom 0% 0% 100% 33% _____________________________________________This message has been edited. Last edited by: Kerry,