-* 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,

how much $ r u ready to spend !!

What are you trying to achieve, is it the horizontal lines, or something else ?