quote:

On table Hold As MD

In FOCUS Since 1983 ~ from FOCUS to WebFOCUS.    Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206

ON TABLE HOLD AS MD FORMAT FOCUS

 

-SET &ECHO = ALL;

APP HOLD metricsdash

JOIN
MDFLEETREPORTDEV.MDFLEETREPORTDEV.FLEETID IN mdfleetreportdev TO MULTIPLE
MDFLEETDEV.MDFLEETDEV.FLEETID IN mdfleetdev TAG J0 AS J0
END

DEFINE FILE MDFLEETREPORTDEV
TODAY/YYMD=&YYMD;
REPORTBEGIN/YYMD=DATEADD(TODAY,'M',-6);
beginDateConv/YYMD=HDATE(MDFLEETREPORTDEV.MDFLEETREPORTDEV.BEGINDATE, 'YYMD');
END

TABLE FILE MDFLEETREPORTDEV
PRINT
     MDFLEETREPORTDEV.MDFLEETREPORTDEV.FLEETID
     MDFLEETREPORTDEV.MDFLEETREPORTDEV.BEGINDATE/HMDYY AS 'FleetBeginDate'
     MDFLEETREPORTDEV.MDFLEETREPORTDEV.MILES AS 'FleetMiles'
     MDFLEETREPORTDEV.MDFLEETREPORTDEV.TRUCKS AS 'FleetTrucks'
     COMPUTE milestruck/D12.2 = MDFLEETREPORTDEV.MDFLEETREPORTDEV.MILES / MDFLEETREPORTDEV.MDFLEETREPORTDEV.TRUCKS; AS 'FleetMilesTrucks'
     J0.MDFLEETDEV.CSRTYPE
BY  LOWEST MDFLEETREPORTDEV.MDFLEETREPORTDEV.FLEETID NOPRINT
WHERE ( fleetId EQ &fleetId ) AND ( MDFLEETREPORTDEV.MDFLEETREPORTDEV.beginDateConv GE REPORTBEGIN ) AND ( J0.MDFLEETDEV.CURRENTFLEETIND EQ 'Y' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE HOLD AS MD FORMAT FOCUS
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = enblue_theme,
$
TYPE=DATA,
     SIZE=8,
     BACKCOLOR=( 'WHITE' RGB(235 235 255) ),
$
TYPE=TITLE,
     SIZE=9,
     COLOR='WHITE',
     BACKCOLOR=RGB(45 111 205),
     STYLE=-UNDERLINE+BOLD,
$
ENDSTYLE
END
-*WHENCE MD FOCUS