quote:

-SET &T2DAY = &YYMD;
-SET &NWDAY = CHGDAT('YYMD','MDTYY',&T2DAY,'A17');
-SET &TNWDAY = TRUNCATE(NWDAY);

-SET &HAGE = AYMD(&YYMD,-&AGEX.EVAL,'I8YYMD');
-SET &SRDAY = CHGDAT('YYMD','MDTYY',&HAGE,'A17');
-SET &TSRDAY = TRUNCATE(SRDAY);

TABLE FILE MMDB1
PRINT
DYMD AS 'RCVD,DATE'
COMPUTE TNUM/A11V = TRIMV('T',NUMBER,11,'',1,TNUM); NOPRINT
COMPUTE TSTRT/A25V = TRIMV('T',STREET,25,'',1,TSTRT); NOPRINT
COMPUTE ADDRESS/A37V = TNUM || (' ' | TSTRT);
COMPUTE WDCX/A34 = WDC || (' ' | WORKDESC); AS 'WORK DESCRIPTION'
ASSIGNEE
STATUS NOPRINT
BY HIGHEST DIFF AS '#DAYS,OPEN' NOPRINT
BY WO

WHERE ASSIGNEE EQ '&ASGX';

WHERE STATUS EQ 'O';
WHERE DYYMD GE AGEDIF;

IF RECORDLIMIT EQ 80
-*
HEADING
" LIST OF OPEN ORDERS "
" ORDERS FROM &TSRDAY TO &TNWDAY "
" ORDERS ASSIGNED TO &ASGX "
" DATE OF REPORT: &TNWDAY "
" "
-*
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET PAGE-NUM NOPAGE
ON TABLE NOTOTAL
-*
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,GRID=OFF, SIZE=10, FONT=TIMES NEW ROMAN,$
TYPE=DATA, COLOR=BLACK, SIZE=9, BACKCOLOR=( 'RED' RGB(100 149 237 ) ),$
TYPE=HEADING, JUSTIFY=CENTER,$
TYPE=HEADING, SIZE=12,$
TYPE=HEADING, LINE=1, STYLE=BOLD,$
TYPE=HEADING, SIZE=12,$
TYPE=HEADING, LINE=2, STYLE=ITALIC,$
TYPE=TITLE, SIZE=10, STYLE=BOLD,$

ENDSTYLE
-XZEBRA
END
-RUN

-EXIT

quote:

LIST OF OPEN WORK ORDERS
ORDERS FROM AUG 05 2012 TO SEP 04 2012
DATE OF REPORT: SEP 04 2012

quote:

LIST OF OPEN ORDERS
ORDERS FROM SRDAY TO NWDAY
DATE OF REPORT: NWDAY

-SET &TNWDAY = TRUNCATE(NWDAY);

Francis

Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server

quote:

-SET &TNWDAY = TRUNCATE(NWDAY);

  
-SET &TNWDAY = TRUNCATE(&NWDAY);