-SET &ECHO = ALL; SET ASNAMES = ON TABLE FILE OSC HEADING CENTER "NOVEMBER 2012" "" -*COUNT SUM CNT.CUSTACCT BY SACTDATE ON SACTDATE SKIP-LINE COLUMN-TOTAL AS 'TOTAL' -*BY FDT -*ON FDT SKIP-LINE COLUMN-TOTAL AS 'TOTAL' BY SACTCODE NOPRINT ACROSS CTY ROW-TOTAL WHERE SACTCODE EQ '0303'; WHERE SACTREAS EQ '001'; WHERE (SACTDATE GE '121101') AND (SACTDATE LE '121130'); IF RECORDLIMIT EQ 30 ON TABLE HOLD AS W01 END -RUN ? HOLD W01 -RUN TABLE FILE OSC HEADING CENTER "DECEMBER 2012" "" -*COUNT SUM CNT.CUSTACCT BY SACTDATE ON SACTDATE SKIP-LINE COLUMN-TOTAL AS 'TOTAL' BY SACTCODE NOPRINT ACROSS CTY ROW-TOTAL WHERE SACTCODE EQ '0303'; WHERE SACTREAS EQ '001'; WHERE (SACTDATE GE '121201') AND (SACTDATE LE '121231'); IF RECORDLIMIT EQ 30 ON TABLE HOLD AS W02 END -RUN TABLE FILE OSC HEADING CENTER "JANUARY 2013" "" -*COUNT SUM CNT.CUSTACCT BY SACTDATE ON SACTDATE SKIP-LINE COLUMN-TOTAL AS 'TOTAL' BY SACTCODE NOPRINT ACROSS CTY ROW-TOTAL WHERE SACTCODE EQ '0303'; WHERE SACTREAS EQ '001'; WHERE (SACTDATE GE '130101') AND (SACTDATE LE '130131'); IF RECORDLIMIT EQ 30 ON TABLE HOLD AS W03 END -RUN TABLE FILE OSC HEADING CENTER "FEBRUARY 2013" "" -*COUNT SUM CNT.CUSTACCT BY SACTDATE ON SACTDATE SKIP-LINE COLUMN-TOTAL AS 'TOTAL' BY SACTCODE NOPRINT ACROSS CTY ROW-TOTAL WHERE SACTCODE EQ '0303'; WHERE SACTREAS EQ '001'; WHERE (SACTDATE GE '130201'); IF RECORDLIMIT EQ 30 ON TABLE HOLD AS W04 END -RUN TABLE FILE W01 PRINT * ON TABLE HOLD AS WOTOT MORE FILE W02 MORE FILE W03 MORE FILE W04 END -RUN ? HOLD WOTOT -RUN -TYPE ... DEFINE FILE WOTOT XYR/A2 = EDIT(SACTDATE,'99$$$$'); XMN/A2 = EDIT(SACTDATE,'$$99$$'); XDY/A2 = EDIT(SACTDATE,'$$$$99'); FDT/A8 = XMN | '/' | XDY | '/' | XYR; -*MCUSM/I5 MISSING ON = IF CUSM NE 0 THEN CUSM ELSE MISSING; -*MCUSP/I5 MISSING ON = IF CUSP NE 0 THEN CUSP ELSE MISSING; END GRAPH FILE WOTOT SUM CUSM CUSP -*CUSROWTOTAL ACROSS SACTDATE AS '' ON GRAPH PCHOLD FORMAT PNG ON GRAPH SET GRAPHDEFAULT ON ON GRAPH SET VZERO OFF ON GRAPH SET HTMLENCODE ON ON GRAPH SET GRID ON ON GRAPH SET HAXIS 700 ON GRAPH SET VAXIS 405 -*ON GRAPH SET HAXIS 600 -*ON GRAPH SET VAXIS 315 ON GRAPH SET UNITS PIXELS ON GRAPH SET LOOKGRAPH VBAR ON GRAPH SET GRMERGE ON ON GRAPH SET GRMULTIGRAPH 0 ON GRAPH SET GRLEGEND 0 ON GRAPH SET GRXAXIS 2 ON GRAPH SET GRAPHSTYLE * setReportParsingErrors(false); setSelectionEnableMove(false); setDepthRadius(5); setPlace(true); setCurveEquationDisplay(false); -*GOTO XTOT -*** set Totals on vBar setDisplay(getDataText(), true); setFillColor(getDataText(), new Color(0,0,255)); -*** position Totals relative to vBar setDataTextPosition(); setDataTextRadiusDefault(30); -XTOT setFillMissingData(0); setO1LabelRotate(0); -GOTO XSER setSeriesLabel(0,"Montg. Cnty Enroll."); setSeriesLabel(1,"Pr. Geo. Cnty Enroll."); setSeriesLabel(2,"Total Enroll.");\ -XSER -*** Control fonts of x-axis setFontName(getO1Label(0),"TimesRoman"); setAutoFit(getO1Label(0),false); setFontSizeAbsolute(getO1Label(0),true); setFontSize(getO1Label(0),12); -*** Control fonts of y-axis setFontName(getY1Label(0),"TimesRoman"); setAutoFit(getY1Label(0),false); setFontSizeAbsolute(getY1Label(0),true); setFontSize(getO1Label(0),12); -*setTemplateFile("/images/tdg/template/IBISouthWestern.txt"); -*setTemplateFile("/images/tdg/template/IBIColorToWhite.txt"); -*setTemplateFile("/images/tdg/template/IBIPurpleLight.txt"); setTemplateFile("/images/tdg/template/IBITrueColors.txt"); setTransparentBorderColor(getSeries(0),true); setTransparentBorderColor(getSeries(1),true); -GOTO XTITL setTransparentBorderColor(getSeries(2),true); setTransparentBorderColor(getSeries(3),true); setTitleString("E-Bill Enrollments"); setTextJustHoriz(getTitle(),1); -XTITL ENDSTYLE END -RUN -EXITThis message has been edited. Last edited by: Kerry,
SACTYRMO/YYM=SACTDATE
GRAPH FILE WOTOT SUM CUSM CUSP -*CUSROWTOTAL ACROSS SACTDATE/YYM AS ''
DEFINE FILE XXXX MONTHD/YYM=SACTDATE; CUSM=IF CTY EQ 'M' THEN SALES ELSE 0; CUSP..... END TABLE FILE XXXX SUM CUSM CUSP BY MONTH ON TABLE HOLD END GRAPH FILE HOLD ...
Frank | |
prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |