-SET &ECHO=ALL; -SET &TEMPDIR=TEMPPATH(60,'A60'); -SET &GIFFILE=&TEMPDIR || 'BARGR.GIF'; -SET &GIFFILESA=&TEMPDIR || 'SAFEGR.GIF'; -SET &GIFFILESO=&TEMPDIR || 'SORTGR.GIF'; -SET &GIFFILESE=&TEMPDIR || 'SETGR.GIF'; -SET &GIFFILESH=&TEMPDIR || 'SHINEGR.GIF'; -SET &GIFFILEST=&TEMPDIR || 'STDGR.GIF'; -SET &GIFFILESU=&TEMPDIR || 'SUSGR.GIF'; SET GRAPHEDIT=SERVER SET TEMPERASE = OFF -RUN -SET &APPDATA = 'TEST' ; -INCLUDE QUALITYI0001 -RUN -INCLUDE QUALITY000I02 -RUN -DEFAULT &IYM = '201009'; -DEFAULT &IYEAR = '2009'; -DEFAULT &IFYSD = '04/01/2010'; -DEFAULT &IED = '08/31/2010'; -DEFAULT &IAREA=''; -DEFAULT &IAD=''; -DEFAULT &IUID='N533001'; -DEFAULT &IARD=''; -DEFAULT &IYMTYPE='M'; -SET &B1 = 'RGB(255,0,0)'; -* RED -SET &B2 = 'RGB(0,255,0)'; -* YELLOW -SET &B3 = 'RGB(255, 255,0)'; -SET &IFYM = '&IYEAR.EVAL' | '04'; -SET &IFYSTART = '04/01/'|'&IYEAR.EVAL'; -SET &AREA_WHERE = IF ASIS('&IAREA.EVAL') EQ '0' OR ASIS('&IAREA.EVAL') EQ '' THEN '-*' ELSE ''; -SET &AREAREP_WHERE = IF ASIS('&IUID.EVAL') EQ '0' OR ASIS('&IUID.EVAL') EQ '' THEN '-*' ELSE ''; -SET &TABLENAME = IF &IYMTYPE EQ 'M' THEN 'Q6S_METER' ELSE IF &IYMTYPE EQ 'Q' THEN 'Q6S_METER_QUARTERLY_DATA' ELSE 'Q6S_METER'; -* SAFETY GAUGE -DEFAULT &IYM = '201008'; -DEFAULT &IYEAR = '2010'; -DEFAULT &IAREA='1'; -DEFAULT &IAD=''; -DEFAULT &IUID=''; -DEFAULT &IARD=''; -DEFAULT &IYMTYPE='M'; SET EMPTYREPORT = ON -SET &APPDATA = 'TEST' ; -INCLUDE QUALITYI0001 -RUN -INCLUDE QUALITY000I02 -RUN SET DMPRECISION=3 -RUN TABLE FILE &TABLENAME PRINT * BY CATEGORY_ID &AREAREP_WHERE.EVAL WHERE MOTHERS_ID EQ '&IUID.EVAL'; &AREA_WHERE.EVAL WHERE AREA_ID EQ '&IAREA.EVAL'; WHERE Q6S_DATE GE DT('&IFYSD.EVAL'); WHERE Q6S_DATE LE DT('&IED.EVAL'); ON TABLE HOLD AS HOLD1 END -RUN DEFINE FILE HOLD1 CALCSCORE/I11 = (MAXSCORE / CLOSEDCARDS) ; CALCACTSCORE/I11 = (SCORE / CLOSEDCARDS) ; SCORE1/I4 = ((CALCACTSCORE / CALCSCORE) * 100); END GRAPH FILE HOLD1 SUM COMPUTE MAX1/D20=( CALCACTSCORE / CALCSCORE ) * 100; AS '' BY CATEGORY_NAME AS '' ON GRAPH SET LOOKGRAPH VBAR ON GRAPH SET GRAPHEDIT SERVER ON GRAPH SET BARNUMB OFF ON GRAPH SET 3D OFF ON GRAPH SET VZERO ON ON GRAPH SET GRID OFF ON GRAPH SET VMAX 100 ON GRAPH SET VAUTO OFF ON GRAPH SET VAXIS 230 ON GRAPH SET HAXIS 480 ON GRAPH SET UNITS PIXELS ON GRAPH HOLD AS BARGR FORMAT GIF -*ON TABLE PCHOLD FORMAT PPT ON GRAPH SET GRAPHSTYLE * setDisplay(getO1Title(),true); setDisplay(getTitle(),true); setDisplay(getO1Label(),true); setTextRotation(getDataText(),1); setMarkerDisplay(true); setConnectLineMarkers(false); setConnectScatterMarkers(false); setO1LabelRotate(1) setO1LabelDisplay(true); setO1AxisSide(0); setO1MajorGridDisplay(true); setO1MajorGridStyle(0); setO1MinorGridDisplay(false); setAxisAssignment(0,0); setY1LabelDisplay(true); setY1AxisSide(0); setY1MajorGridDisplay(true); setY1MajorGridStyle(0); setY1MinorGridDisplay(false); setTextFormatPreset(getY1Label(),-1); setTextFormatPattern(getY1Label(),"#.##"); setPieFeelerTextDisplay(1); setPieLabelDisplay(0); setTextFormatPreset(getPieSliceLabel(),1); setRiserBorderMode(1); setSeriesDefaultTransparentBorderColor(true); setUseSeriesBorderDefaults(true); setLegendDisplay(true); setTextJustHoriz(getLegendText(),0); setFontSizeAbsolute(getY1Title(),true); setFontSizeAbsolute(getY1Label(),true); setFontSizeAbsolute(getY2Title(),true); setFontSizeAbsolute(getY2Label(),true); setTextJustHoriz(getO1Title(),1); setFontSizeAbsolute(getO1Title(),true); setFontSize(getO1Title(),12); setTextRotation(getO1Title(),0); setTextWrap(getO1Title(),false); setTextJustHoriz(getO1Label(),0); setFontSizeAbsolute(getO1Label(),true); setFontSize(getO1Label(),12); setTextRotation(getO1Label(),0); setTextWrap(getO1Label(),false); setPlaceResize(getO1Title(),0); setPlaceRotate(getO1Title(),0); setPlaceAlign(getO1Title(),0); setPlaceWordWrap(getO1Title(),0); setPlaceResize(getO1Label(),0); setPlaceRotate(getO1Label(),0); setPlaceAlign(getO1Label(),0); setPlaceWordWrap(getO1Label(),0); setPlace(true); ENDSTYLE ON GRAPH SET STYLE * SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, GRID=OFF, FONT='TIMES NEW ROMAN', SIZE=10, $ DEFMACRO=COND0001, MACTYPE=RULE, WHEN=MAX1 GT 80, $ DEFMACRO=COND0002, MACTYPE=RULE, WHEN=MAX1 LT 80, $ DEFMACRO=COND0003, MACTYPE=RULE, WHEN=MAX1 LT 50, $ TYPE=DATA, COLOR='SILVER', $ TYPE=DATA, COLOR='RED', MACRO=COND0003, $ TYPE=DATA, COLOR='YELLOW', MACRO=COND0002, $ TYPE=DATA, COLOR='LIME', MACRO=COND0001, $ ENDSTYLE END -RUN GRAPH FILE HOLD3 -* Created by Advanced Graph Assistant SUM COMPUTE SCORE1 = ((CALCACTSCORE / CALCSCORE) * 100); AS '' BY CATEGORY_NAME ON GRAPH HOLD AS SAFEGR FORMAT GIF -*ON GRAPH PCHOLD FORMAT PPT NOBREAK -*ON GRAPH PCHOLD AS HOLD FORMAT PPT NOBREAK -*ON GRAPH PCHOLD FORMAT PPT NOBREAK ON GRAPH SET GRAPHDEFAULT OFF ON GRAPH SET GRMERGE ADVANCED ON GRAPH SET GRMULTIGRAPH 0 ON GRAPH SET GRLEGEND 0 ON GRAPH SET GRXAXIS 1 ON GRAPH SET HAXIS 130 ON GRAPH SET VAXIS 130 ON GRAPH SET UNITS PIXELS ON GRAPH SET LOOKGRAPH GAUGE1 ON GRAPH SET GRAPHSTYLE * setTemplateFile("/images/tdg/template/IBITrueColors.txt"); setReportParsingErrors(false); setSelectionEnableMove(false); setPlace(true); setDepthRadius(0); setDepthAngle(0); setTextUnderlineType(getY1Label(),1); setFontSizeInPoints(getGaugeTitle(),120); setPlaceResize(getGaugeTitle(),0); setFontSizeAbsolute(getGaugeTitle(),false); setFontSizeInPoints(getAnnotation(0),120); setPlaceResize(getAnnotation(0),0); setFontSizeAbsolute(getAnnotation(0),false); setDisplay(getY1Label(),true); setTextFormatPreset(getY1Label(),28); setFontName(getY1Label(),"Arial"); setFontStyle(getY1Label(),0); setAxisSide(getY1Axis(),0); setDisplay(getTitle(),true); setTextString(getTitle(),""); setFillColor(getChartBackground(),new Color(255,255,255)); setTransparentBorderColor(getChartBackground(),true); setGaugeBackgroundStyle(1); setFillColor(getGaugeArea(),new Color(255,255,255)); setGaugeColorCenterByQuality(false); setFontStyle(getGaugeTitle(),2); setDisplay(getGaugeValue(),true); setFillColor(getGaugeValue(),new Color(32,0,32)); setFontSizeAbsolute(getGaugeValue(),true); setFontSizeInPoints(getGaugeValue(),7); setPlaceResize(getGaugeValue(),0); setFontStyle(getGaugeValue(),2); setFillColor(getY1Label(),new Color(0,0,0)); setFontSizeAbsolute(getY1Label(),true); setFontSizeInPoints(getY1Label(),6); setPlaceResize(getY1Label(),0); setScaleMaxAuto(getY1Axis(),false); setScaleMax(getY1Axis(),100.0); setGaugeBandMin(getGaugeBand1(),0.0); setGaugeBandMax(getGaugeBand1(),50); setGaugeBandMin(getGaugeBand2(),51); setGaugeBandMax(getGaugeBand2(),80); setGaugeBandMin(getGaugeBand3(),81); setGaugeBandMax(getGaugeBand3(),100); setGaugeBandMin(getGaugeBand4(),999); setGaugeBandMax(getGaugeBand4(),999); setGaugeBandMin(getGaugeBand5(),999); setGaugeBandMax(getGaugeBand5(),999); setBorderColor(getGaugeBand2(),new Color(255,255,0)); setFillColor(getGaugeBand2(),new Color(255,255,0)); setBorderColor(getGaugeBand3(),new Color(0,255,0)); setFillColor(getGaugeBand3(),new Color(0,255,0)); setFontSizeAbsolute(getGaugeLabel(), true); setFontSizeInPoints(getGaugeLabel(),4); -* The two lines below control the font size of the Gauge title setFontSizeAbsolute(getGaugeTitle(), true); setFontSizeInPoints(getGaugeTitle(),7); ENDSTYLE ON GRAPH SET STYLE * TYPE=REPORT, GRID=OFF, FONT='ARIAL', SIZE=10, $ TYPE=HEADING, LINE=1, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=2, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=3, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=1, ITEM=1, OBJECT=TEXT, SIZE=10, STYLE=BOLD+UNDERLINE, $ TYPE=HEADING, LINE=2, ITEM=1, OBJECT=TEXT, SIZE=10, STYLE=NORMAL, $ TYPE=HEADING, LINE=3, ITEM=1, OBJECT=FIELD, SIZE=10, STYLE=BOLD, $ ENDSTYLE END -RUN -*SORT TABLE FILE &TABLENAME SUM COMPUTE CALCSCORE/P15.2 = MAXSCORE/CLOSEDCARDS ; COMPUTE CALCACTSCORE/P15.2 = SCORE/CLOSEDCARDS ; AS 'SCORE' BY CATEGORY_NAME BY YEARMO BY CLOSEDCARDS &AREAREP_WHERE.EVAL WHERE MOTHERS_ID EQ '&IUID.EVAL'; &AREA_WHERE.EVAL WHERE (AREA_ID EQ '&IAREA.EVAL' ); WHERE (CATEGORY_NAME EQ 'Sort'); WHERE (YEARMO EQ '&IYM.EVAL'); ON TABLE HOLD AS HOLD4 FORMAT ALPHA END -RUN GRAPH FILE HOLD4 -* Created by Advanced Graph Assistant SUM COMPUTE SCORE1 = ((CALCACTSCORE / CALCSCORE) * 100); AS '' BY CATEGORY_NAME ON GRAPH HOLD AS SORTGR FORMAT GIF -*ON GRAPH PCHOLD FORMAT PPT NOBREAK -*ON GRAPH PCHOLD AS HOLD FORMAT PPT -*ON GRAPH PCHOLD FORMAT PPT NOBREAK -*ON GRAPH SET GRAPHDEFAULT OFF ON GRAPH SET GRMERGE ADVANCED ON GRAPH SET GRMULTIGRAPH 0 ON GRAPH SET GRLEGEND 0 ON GRAPH SET GRXAXIS 1 ON GRAPH SET HAXIS 130 ON GRAPH SET VAXIS 130 ON GRAPH SET UNITS PIXELS ON GRAPH SET LOOKGRAPH GAUGE1 ON GRAPH SET GRAPHSTYLE * setTemplateFile("/images/tdg/template/IBITrueColors.txt"); setReportParsingErrors(false); setSelectionEnableMove(false); setPlace(true); setDepthRadius(0); setDepthAngle(0); setTextUnderlineType(getY1Label(),1); setFontSizeInPoints(getGaugeTitle(),120); setPlaceResize(getGaugeTitle(),0); setFontSizeAbsolute(getGaugeTitle(),false); setFontSizeInPoints(getAnnotation(0),120); setPlaceResize(getAnnotation(0),0); setFontSizeAbsolute(getAnnotation(0),false); setDisplay(getY1Label(),true); setTextFormatPreset(getY1Label(),28); setFontName(getY1Label(),"Arial"); setFontStyle(getY1Label(),0); setAxisSide(getY1Axis(),0); setDisplay(getTitle(),true); setTextString(getTitle(),""); setFillColor(getChartBackground(),new Color(255,255,255)); setTransparentBorderColor(getChartBackground(),true); setGaugeBackgroundStyle(1); setFillColor(getGaugeArea(),new Color(255,255,255)); setGaugeColorCenterByQuality(false); setFontStyle(getGaugeTitle(),2); setDisplay(getGaugeValue(),true); setFillColor(getGaugeValue(),new Color(32,0,32)); setFontSizeAbsolute(getGaugeValue(),true); setFontSizeInPoints(getGaugeValue(),7); setPlaceResize(getGaugeValue(),0); setFontStyle(getGaugeValue(),2); setFillColor(getY1Label(),new Color(0,0,0)); setFontSizeAbsolute(getY1Label(),true); setFontSizeInPoints(getY1Label(),6); setPlaceResize(getY1Label(),0); setScaleMaxAuto(getY1Axis(),false); setScaleMax(getY1Axis(),100.0); setGaugeBandMin(getGaugeBand1(),0.0); setGaugeBandMax(getGaugeBand1(),50); setGaugeBandMin(getGaugeBand2(),51); setGaugeBandMax(getGaugeBand2(),80); setGaugeBandMin(getGaugeBand3(),81); setGaugeBandMax(getGaugeBand3(),100); setGaugeBandMin(getGaugeBand4(),999); setGaugeBandMax(getGaugeBand4(),999); setGaugeBandMin(getGaugeBand5(),999); setGaugeBandMax(getGaugeBand5(),999); setBorderColor(getGaugeBand2(),new Color(255,255,0)); setFillColor(getGaugeBand2(),new Color(255,255,0)); setBorderColor(getGaugeBand3(),new Color(0,255,0)); setFillColor(getGaugeBand3(),new Color(0,255,0)); setFontSizeAbsolute(getGaugeLabel(), true); setFontSizeInPoints(getGaugeLabel(),4); -* The two lines below control the font size of the Gauge title setFontSizeAbsolute(getGaugeTitle(), true); setFontSizeInPoints(getGaugeTitle(),7); ENDSTYLE ON GRAPH SET STYLE * TYPE=HEADING, LINE=1, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=2, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=3, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=1, ITEM=1, OBJECT=TEXT, SIZE=10, STYLE=BOLD+UNDERLINE, $ TYPE=HEADING, LINE=2, ITEM=1, OBJECT=TEXT, SIZE=10, STYLE=NORMAL, $ TYPE=HEADING, LINE=3, ITEM=1, OBJECT=FIELD, SIZE=10, STYLE=BOLD, $ ENDSTYLE END -RUN -*SET TABLE FILE &TABLENAME SUM COMPUTE CALCSCORE/P15.2 = MAXSCORE/CLOSEDCARDS ; COMPUTE CALCACTSCORE/P15.2 = SCORE/CLOSEDCARDS ; AS 'SCORE' BY CATEGORY_NAME BY YEARMO BY CLOSEDCARDS &AREAREP_WHERE.EVAL WHERE MOTHERS_ID EQ '&IUID.EVAL'; &AREA_WHERE.EVAL WHERE (AREA_ID EQ '&IAREA.EVAL' ); WHERE (CATEGORY_NAME EQ 'Set'); WHERE (YEARMO EQ '&IYM.EVAL'); ON TABLE HOLD AS HOLD5 FORMAT ALPHA END -RUN GRAPH FILE HOLD5 -* Created by Advanced Graph Assistant SUM COMPUTE SCORE1 = ((CALCACTSCORE / CALCSCORE) * 100); AS '' BY CATEGORY_NAME -*ON GRAPH PCHOLD AS HOLD FORMAT PNG ON GRAPH HOLD AS SETGR FORMAT GIF -*ON GRAPH PCHOLD FORMAT PPT NOBREAK -*ON GRAPH PCHOLD AS HOLD FORMAT PPT -*ON GRAPH PCHOLD FORMAT PPT NOBREAK ON GRAPH SET GRAPHDEFAULT OFF ON GRAPH SET GRMERGE ADVANCED ON GRAPH SET GRMULTIGRAPH 0 ON GRAPH SET GRLEGEND 0 ON GRAPH SET GRXAXIS 1 ON GRAPH SET HAXIS 130 ON GRAPH SET VAXIS 130 ON GRAPH SET UNITS PIXELS ON GRAPH SET LOOKGRAPH GAUGE1 ON GRAPH SET GRAPHSTYLE * setTemplateFile("/images/tdg/template/IBITrueColors.txt"); setReportParsingErrors(false); setSelectionEnableMove(false); setPlace(true); setDepthRadius(0); setDepthAngle(0); setTextUnderlineType(getY1Label(),1); setFontSizeInPoints(getGaugeTitle(),120); setPlaceResize(getGaugeTitle(),0); setFontSizeAbsolute(getGaugeTitle(),false); setFontSizeInPoints(getAnnotation(0),120); setPlaceResize(getAnnotation(0),0); setFontSizeAbsolute(getAnnotation(0),false); setDisplay(getY1Label(),true); setTextFormatPreset(getY1Label(),28); setFontName(getY1Label(),"Arial"); setFontStyle(getY1Label(),0); setAxisSide(getY1Axis(),0); setDisplay(getTitle(),true); setTextString(getTitle(),""); setFillColor(getChartBackground(),new Color(255,255,255)); setTransparentBorderColor(getChartBackground(),true); setGaugeBackgroundStyle(1); setFillColor(getGaugeArea(),new Color(255,255,255)); setGaugeColorCenterByQuality(false); setFontStyle(getGaugeTitle(),2); setDisplay(getGaugeValue(),true); setFillColor(getGaugeValue(),new Color(32,0,32)); setFontSizeAbsolute(getGaugeValue(),true); setFontSizeInPoints(getGaugeValue(),7); setPlaceResize(getGaugeValue(),0); setFontStyle(getGaugeValue(),2); setFillColor(getY1Label(),new Color(0,0,0)); setFontSizeAbsolute(getY1Label(),true); setFontSizeInPoints(getY1Label(),6); setPlaceResize(getY1Label(),0); setScaleMaxAuto(getY1Axis(),false); setScaleMax(getY1Axis(),100.0); setGaugeBandMin(getGaugeBand1(),0.0); setGaugeBandMax(getGaugeBand1(),50); setGaugeBandMin(getGaugeBand2(),51); setGaugeBandMax(getGaugeBand2(),80); setGaugeBandMin(getGaugeBand3(),81); setGaugeBandMax(getGaugeBand3(),100); setGaugeBandMin(getGaugeBand4(),999); setGaugeBandMax(getGaugeBand4(),999); setGaugeBandMin(getGaugeBand5(),999); setGaugeBandMax(getGaugeBand5(),999); setBorderColor(getGaugeBand2(),new Color(255,255,0)); setFillColor(getGaugeBand2(),new Color(255,255,0)); setBorderColor(getGaugeBand3(),new Color(0,255,0)); setFillColor(getGaugeBand3(),new Color(0,255,0)); setFontSizeAbsolute(getGaugeLabel(), true); setFontSizeInPoints(getGaugeLabel(),4); -* The two lines below control the font size of the Gauge title setFontSizeAbsolute(getGaugeTitle(), true); setFontSizeInPoints(getGaugeTitle(),7); ENDSTYLE ON GRAPH SET STYLE * TYPE=HEADING, LINE=1, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=2, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=3, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=1, ITEM=1, OBJECT=TEXT, SIZE=10, STYLE=BOLD+UNDERLINE, $ TYPE=HEADING, LINE=2, ITEM=1, OBJECT=TEXT, SIZE=10, STYLE=NORMAL, $ TYPE=HEADING, LINE=3, ITEM=1, OBJECT=FIELD, SIZE=10, STYLE=BOLD, $ ENDSTYLE END -RUN TABLE FILE &TABLENAME SUM COMPUTE CALCSCORE/P15.2 = MAXSCORE/CLOSEDCARDS ; COMPUTE CALCACTSCORE/P15.2 = SCORE/CLOSEDCARDS ; AS 'SCORE' BY CATEGORY_NAME BY YEARMO BY CLOSEDCARDS &AREAREP_WHERE.EVAL WHERE MOTHERS_ID EQ '&IUID.EVAL'; &AREA_WHERE.EVAL WHERE (AREA_ID EQ '&IAREA.EVAL' ); WHERE (CATEGORY_NAME EQ 'Shine'); WHERE (YEARMO EQ '&IYM.EVAL'); ON TABLE HOLD AS HOLD7 FORMAT ALPHA END -RUN GRAPH FILE HOLD7 -* Created by Advanced Graph Assistant SUM COMPUTE SCORE1 = ((CALCACTSCORE / CALCSCORE) * 100); AS '' BY CATEGORY_NAME -*ON GRAPH PCHOLD AS HOLD FORMAT PNG ON GRAPH HOLD AS SHINEGR FORMAT GIF -*ON GRAPH PCHOLD FORMAT PPT NOBREAK -*ON GRAPH PCHOLD AS HOLD FORMAT PPT -*ON GRAPH PCHOLD FORMAT PPT NOBREAK ON GRAPH SET GRAPHDEFAULT OFF ON GRAPH SET GRMERGE ADVANCED ON GRAPH SET GRMULTIGRAPH 0 ON GRAPH SET GRLEGEND 0 ON GRAPH SET GRXAXIS 1 ON GRAPH SET HAXIS 130 ON GRAPH SET VAXIS 130 ON GRAPH SET UNITS PIXELS ON GRAPH SET LOOKGRAPH GAUGE1 ON GRAPH SET GRAPHSTYLE * setTemplateFile("/images/tdg/template/IBITrueColors.txt"); setReportParsingErrors(false); setSelectionEnableMove(false); setPlace(true); setDepthRadius(0); setDepthAngle(0); setTextUnderlineType(getY1Label(),1); setFontSizeInPoints(getGaugeTitle(),120); setPlaceResize(getGaugeTitle(),0); setFontSizeAbsolute(getGaugeTitle(),false); setFontSizeInPoints(getAnnotation(0),120); setPlaceResize(getAnnotation(0),0); setFontSizeAbsolute(getAnnotation(0),false); setDisplay(getY1Label(),true); setTextFormatPreset(getY1Label(),28); setFontName(getY1Label(),"Arial"); setFontStyle(getY1Label(),0); setAxisSide(getY1Axis(),0); setDisplay(getTitle(),true); setTextString(getTitle(),""); setFillColor(getChartBackground(),new Color(255,255,255)); setTransparentBorderColor(getChartBackground(),true); setGaugeBackgroundStyle(1); setFillColor(getGaugeArea(),new Color(255,255,255)); setGaugeColorCenterByQuality(false); setFontStyle(getGaugeTitle(),2); setDisplay(getGaugeValue(),true); setFillColor(getGaugeValue(),new Color(32,0,32)); setFontSizeAbsolute(getGaugeValue(),true); setFontSizeInPoints(getGaugeValue(),7); setPlaceResize(getGaugeValue(),0); setFontStyle(getGaugeValue(),2); setFillColor(getY1Label(),new Color(0,0,0)); setFontSizeAbsolute(getY1Label(),true); setFontSizeInPoints(getY1Label(),6); setPlaceResize(getY1Label(),0); setScaleMaxAuto(getY1Axis(),false); setScaleMax(getY1Axis(),100.0); setGaugeBandMin(getGaugeBand1(),0.0); setGaugeBandMax(getGaugeBand1(),50); setGaugeBandMin(getGaugeBand2(),51); setGaugeBandMax(getGaugeBand2(),80); setGaugeBandMin(getGaugeBand3(),81); setGaugeBandMax(getGaugeBand3(),100); setGaugeBandMin(getGaugeBand4(),999); setGaugeBandMax(getGaugeBand4(),999); setGaugeBandMin(getGaugeBand5(),999); setGaugeBandMax(getGaugeBand5(),999); setBorderColor(getGaugeBand2(),new Color(255,255,0)); setFillColor(getGaugeBand2(),new Color(255,255,0)); setBorderColor(getGaugeBand3(),new Color(0,255,0)); setFillColor(getGaugeBand3(),new Color(0,255,0)); setFontSizeAbsolute(getGaugeLabel(), true); setFontSizeInPoints(getGaugeLabel(),4); -* The two lines below control the font size of the Gauge title setFontSizeAbsolute(getGaugeTitle(), true); setFontSizeInPoints(getGaugeTitle(),7); ENDSTYLE ON GRAPH SET STYLE * TYPE=HEADING, LINE=1, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=2, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=3, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=1, ITEM=1, OBJECT=TEXT, SIZE=10, STYLE=BOLD+UNDERLINE, $ TYPE=HEADING, LINE=2, ITEM=1, OBJECT=TEXT, SIZE=10, STYLE=NORMAL, $ TYPE=HEADING, LINE=3, ITEM=1, OBJECT=FIELD, SIZE=10, STYLE=BOLD, $ ENDSTYLE END -RUN TABLE FILE &TABLENAME SUM COMPUTE CALCSCORE/P15.2 = MAXSCORE/CLOSEDCARDS ; COMPUTE CALCACTSCORE/P15.2 = SCORE/CLOSEDCARDS ; AS 'SCORE' BY CATEGORY_NAME BY YEARMO BY CLOSEDCARDS &AREAREP_WHERE.EVAL WHERE MOTHERS_ID EQ '&IUID.EVAL'; &AREA_WHERE.EVAL WHERE (AREA_ID EQ '&IAREA.EVAL' ); WHERE (CATEGORY_NAME EQ 'Standardize'); WHERE (YEARMO EQ '&IYM.EVAL'); ON TABLE HOLD AS HOLD6 FORMAT ALPHA END -RUN GRAPH FILE HOLD6 -* Created by Advanced Graph Assistant SUM COMPUTE SCORE1 = ((CALCACTSCORE / CALCSCORE) * 100); AS '' BY CATEGORY_NAME -*ON GRAPH PCHOLD AS HOLD FORMAT PNG ON GRAPH HOLD AS STDGR FORMAT GIF -*ON GRAPH PCHOLD FORMAT PPT NOBREAK -*ON GRAPH PCHOLD AS HOLD FORMAT PPT -*ON GRAPH PCHOLD FORMAT PPT NOBREAK ON GRAPH SET GRAPHDEFAULT OFF ON GRAPH SET GRMERGE ADVANCED ON GRAPH SET GRMULTIGRAPH 0 ON GRAPH SET GRLEGEND 0 ON GRAPH SET GRXAXIS 1 ON GRAPH SET HAXIS 130 ON GRAPH SET VAXIS 130 ON GRAPH SET UNITS PIXELS ON GRAPH SET LOOKGRAPH GAUGE1 ON GRAPH SET GRAPHSTYLE * setTemplateFile("/images/tdg/template/IBITrueColors.txt"); setReportParsingErrors(false); setSelectionEnableMove(false); setPlace(true); setDepthRadius(0); setDepthAngle(0); setTextUnderlineType(getY1Label(),1); setFontSizeInPoints(getGaugeTitle(),120); setPlaceResize(getGaugeTitle(),0); setFontSizeAbsolute(getGaugeTitle(),false); setFontSizeInPoints(getAnnotation(0),120) setPlaceResize(getAnnotation(0),0); setFontSizeAbsolute(getAnnotation(0),false); setDisplay(getY1Label(),true); setTextFormatPreset(getY1Label(),28); setFontName(getY1Label(),"Arial"); setFontStyle(getY1Label(),0); setAxisSide(getY1Axis(),0); setDisplay(getTitle(),true); setTextString(getTitle(),""); setFillColor(getChartBackground(),new Color(255,255,255)); setTransparentBorderColor(getChartBackground(),true); setGaugeBackgroundStyle(1); setFillColor(getGaugeArea(),new Color(255,255,255)); setGaugeColorCenterByQuality(false); setFontStyle(getGaugeTitle(),2); setDisplay(getGaugeValue(),true); setFillColor(getGaugeValue(),new Color(32,0,32)); setFontSizeAbsolute(getGaugeValue(),true); setFontSizeInPoints(getGaugeValue(),7); setPlaceResize(getGaugeValue(),0); setFontStyle(getGaugeValue(),2); setFillColor(getY1Label(),new Color(0,0,0)); setFontSizeAbsolute(getY1Label(),true); setFontSizeInPoints(getY1Label(),6); setPlaceResize(getY1Label(),0); setScaleMaxAuto(getY1Axis(),false); setScaleMax(getY1Axis(),100.0); setGaugeBandMin(getGaugeBand1(),0.0); setGaugeBandMax(getGaugeBand1(),50); setGaugeBandMin(getGaugeBand2(),51); setGaugeBandMax(getGaugeBand2(),80); setGaugeBandMin(getGaugeBand3(),81); setGaugeBandMax(getGaugeBand3(),100); setGaugeBandMin(getGaugeBand4(),999); setGaugeBandMax(getGaugeBand4(),999); setGaugeBandMin(getGaugeBand5(),999); setGaugeBandMax(getGaugeBand5(),999); setBorderColor(getGaugeBand2(),new Color(255,255,0)); setFillColor(getGaugeBand2(),new Color(255,255,0)); setBorderColor(getGaugeBand3(),new Color(0,255,0)); setFillColor(getGaugeBand3(),new Color(0,255,0)); setFontSizeAbsolute(getGaugeLabel(), true); setFontSizeInPoints(getGaugeLabel(),4); -* The two lines below control the font size of the Gauge title setFontSizeAbsolute(getGaugeTitle(), true); setFontSizeInPoints(getGaugeTitle(),7); ENDSTYLE ON GRAPH SET STYLE * TYPE=HEADING, LINE=1, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=2, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=3, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=1, ITEM=1, OBJECT=TEXT, SIZE=10, STYLE=BOLD+UNDERLINE, $ TYPE=HEADING, LINE=2, ITEM=1, OBJECT=TEXT, SIZE=10, STYLE=NORMAL, $ TYPE=HEADING, LINE=3, ITEM=1, OBJECT=FIELD, SIZE=10, STYLE=BOLD, $ ENDSTYLE END -RUN TABLE FILE &TABLENAME SUM COMPUTE CALCSCORE/P15.2 = MAXSCORE/CLOSEDCARDS ; COMPUTE CALCACTSCORE/P15.2 = SCORE/CLOSEDCARDS ; AS 'SCORE' BY CATEGORY_NAME BY YEARMO BY CLOSEDCARDS &AREAREP_WHERE.EVAL WHERE MOTHERS_ID EQ '&IUID.EVAL'; &AREA_WHERE.EVAL WHERE (AREA_ID EQ '&IAREA.EVAL' ); WHERE (CATEGORY_NAME EQ 'Sustain'); WHERE (YEARMO EQ '&IYM.EVAL'); ON TABLE HOLD AS HOLD6 FORMAT ALPHA END -RUN GRAPH FILE HOLD6 -* Created by Advanced Graph Assistant SUM COMPUTE SCORE1 = ((CALCACTSCORE / CALCSCORE) * 100); AS '' BY CATEGORY_NAME -*ON GRAPH PCHOLD AS HOLD FORMAT PNG ON GRAPH HOLD AS SUSGR FORMAT GIF -*ON GRAPH PCHOLD FORMAT PPT NOBREAK -*ON GRAPH PCHOLD AS HOLD FORMAT PPT -*ON GRAPH PCHOLD FORMAT PPT NOBREAK ON GRAPH SET GRAPHDEFAULT OFF ON GRAPH SET GRMERGE ADVANCED ON GRAPH SET GRMULTIGRAPH 0 ON GRAPH SET GRLEGEND 0 ON GRAPH SET GRXAXIS 1 ON GRAPH SET HAXIS 130 ON GRAPH SET VAXIS 130 ON GRAPH SET UNITS PIXELS ON GRAPH SET LOOKGRAPH GAUGE1 ON GRAPH SET GRAPHSTYLE * setTemplateFile("/images/tdg/template/IBITrueColors.txt"); setReportParsingErrors(false); setSelectionEnableMove(false); setPlace(true); setDepthRadius(0); setDepthAngle(0); setTextUnderlineType(getY1Label(),1); setFontSizeInPoints(getGaugeTitle(),120); setPlaceResize(getGaugeTitle(),0); setFontSizeAbsolute(getGaugeTitle(),false); setFontSizeInPoints(getAnnotation(0),120); setPlaceResize(getAnnotation(0),0); setFontSizeAbsolute(getAnnotation(0),false); setDisplay(getY1Label(),true); setTextFormatPreset(getY1Label(),28); setFontName(getY1Label(),"Arial"); setFontStyle(getY1Label(),0); setAxisSide(getY1Axis(),0); setDisplay(getTitle(),true); setTextString(getTitle(),""); setFillColor(getChartBackground(),new Color(255,255,255)); setTransparentBorderColor(getChartBackground(),true); setGaugeBackgroundStyle(1); setFillColor(getGaugeArea(),new Color(255,255,255)); setGaugeColorCenterByQuality(false); setFontStyle(getGaugeTitle(),2); setDisplay(getGaugeValue(),true); setFillColor(getGaugeValue(),new Color(32,0,32)); setFontSizeAbsolute(getGaugeValue(),true); setFontSizeInPoints(getGaugeValue(),7); setPlaceResize(getGaugeValue(),0); setFontStyle(getGaugeValue(),2); setFillColor(getY1Label(),new Color(0,0,0)); setFontSizeAbsolute(getY1Label(),true); setFontSizeInPoints(getY1Label(),6); setPlaceResize(getY1Label(),0); setScaleMaxAuto(getY1Axis(),false); setScaleMax(getY1Axis(),100.0); setGaugeBandMin(getGaugeBand1(),0.0); setGaugeBandMax(getGaugeBand1(),50); setGaugeBandMin(getGaugeBand2(),51); setGaugeBandMax(getGaugeBand2(),80); setGaugeBandMin(getGaugeBand3(),81); setGaugeBandMax(getGaugeBand3(),100); setGaugeBandMin(getGaugeBand4(),999); setGaugeBandMax(getGaugeBand4(),999); setGaugeBandMin(getGaugeBand5(),999); setGaugeBandMax(getGaugeBand5(),999); setBorderColor(getGaugeBand2(),new Color(255,255,0)); setFillColor(getGaugeBand2(),new Color(255,255,0)); setBorderColor(getGaugeBand3(),new Color(0,255,0)); setFillColor(getGaugeBand3(),new Color(0,255,0)); setFontSizeAbsolute(getGaugeLabel(), true); setFontSizeInPoints(getGaugeLabel(),4); -* The two lines below control the font size of the Gauge title setFontSizeAbsolute(getGaugeTitle(), true); setFontSizeInPoints(getGaugeTitle(),7); ENDSTYLE ON GRAPH SET STYLE * TYPE=HEADING, LINE=1, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=2, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=3, JUSTIFY=CENTER, $ TYPE=HEADING, LINE=1, ITEM=1, OBJECT=TEXT, SIZE=10, STYLE=BOLD+UNDERLINE, $ TYPE=HEADING, LINE=2, ITEM=1, OBJECT=TEXT, SIZE=10, STYLE=NORMAL, $ TYPE=HEADING, LINE=3, ITEM=1, OBJECT=FIELD, SIZE=10, STYLE=BOLD, $ ENDSTYLE END -RUN -*SET COMPOUND='OPEN NOBREAK' -*SET COMPOUND=CLOSE TABLE FILE HOLD6 SUM COMPUTE MAX1/D20 = (CALCACTSCORE / CALCSCORE) * 100 ; NOPRINT BY CATEGORY_NAME NOPRINT HEADING " Monthly Indicators for August,2010 " " " ON TABLE SET STYLE * UNITS=IN, PAGESIZE='Letter', LEFTMARGIN=0.50000, RIGHTMARGIN=0.250000,TOPMARGIN=2.395000, BOTTOMMARGIN=0.250000, SQUEEZE=ON,ORIENTATION=LANDSCAPE, $ TYPE=REPORT, FONT='ARIAL', SIZE=10, COLOR=BLACK, BACKCOLOR=NONE,STYLE=NORMAL, $ TYPE=REPORT, POSITION=(0.00 1.10000000), IMAGE=&GIFFILE,$ TYPE=REPORT, POSITION=(1.20 1.10000000), IMAGE=&GIFFILESA,$ TYPE=REPORT, POSITION=(2.70 1.10000000), IMAGE=&GIFFILESO,$ TYPE=REPORT, POSITION=(3.40 1.10000000), IMAGE=&GIFFILESE,$ TYPE=REPORT, POSITION=(5.00 1.10000000), IMAGE=&GIFFILESH,$ TYPE=REPORT, POSITION=(6.60 1.10000000), IMAGE=&GIFFILEST,$ TYPE=REPORT, POSITION=(8.20 1.10000000), IMAGE=&GIFFILESU,$ TYPE=HEADING,SIZE=12, JUSTIFY=LEFT, STYLE=BOLD+UNDERLINE,$ TYPE=TITLE,SIZE=9, STYLE=BOLD,$ TYPE=DATA,SIZE=9,$ ENDSTYLE ON TABLE SET PAGE OFF ON TABLE PCHOLD FORMAT PPT -*ON TABLE PCHOLD FORMAT PDF CLOSE -*ON TABLE PCHOLD FORMAT &IOPPTC -*ON TABLE SET COMPOUND CLOSE -*ON GRAPH PCHOLD FORMAT PPT CLOSE END -RUN -EXIT
-* File graphppt1.fex -SET &ECHO=ALL; -SET &TEMPDIR = TEMPPATH(60,'A60'); -SET &GIFFILE01 = &TEMPDIR || 'bargr.gif'; -SET &GIFFILESA = &TEMPDIR || 'safegr.gif'; -SET &GIFFILESO = &TEMPDIR || 'sortgr.gif'; -SET &GIFFILESE = &TEMPDIR || 'setgr.gif'; -SET &GIFFILESH = &TEMPDIR || 'shinegr.gif'; -SET &GIFFILEST = &TEMPDIR || 'stdgr.gif'; -SET &GIFFILESU = &TEMPDIR || 'susgr.gif'; SET GRAPHEDIT=SERVER SET TEMPERASE = OFF -RUN GRAPH FILE CAR SUM SALES BY COUNTRY AS '' ON GRAPH SET VAXIS 230 ON GRAPH SET HAXIS 480 ON GRAPH HOLD AS BARGR FORMAT GIF END -RUN GRAPH FILE CAR SUM SEATS BY COUNTRY AS '' ON GRAPH SET VAXIS 230 ON GRAPH SET HAXIS 480 ON GRAPH HOLD AS SAFEGR FORMAT GIF END -RUN GRAPH FILE CAR SUM DEALER_COST BY COUNTRY AS '' ON GRAPH SET VAXIS 230 ON GRAPH SET HAXIS 480 ON GRAPH HOLD AS SORTGR FORMAT GIF END -RUN GRAPH FILE CAR SUM RETAIL_COST BY COUNTRY AS '' ON GRAPH SET VAXIS 230 ON GRAPH SET HAXIS 480 ON GRAPH HOLD AS SETGR FORMAT GIF END -RUN GRAPH FILE CAR SUM LENGTH BY COUNTRY AS '' ON GRAPH SET VAXIS 230 ON GRAPH SET HAXIS 480 ON GRAPH HOLD AS SHINEGR FORMAT GIF END -RUN GRAPH FILE CAR SUM WIDTH BY COUNTRY AS '' ON GRAPH SET VAXIS 230 ON GRAPH SET HAXIS 480 ON GRAPH HOLD AS STDGR FORMAT GIF END -RUN GRAPH FILE CAR SUM HEIGHT BY COUNTRY AS '' ON GRAPH SET VAXIS 230 ON GRAPH SET HAXIS 480 ON GRAPH HOLD AS SUSGR FORMAT GIF END -RUN TABLE FILE CAR SUM WEIGHT NOPRINT BY COUNTRY NOPRINT HEADING " Monthly Indicators for August,2010 " " " ON TABLE SET STYLE * UNITS=IN, PAGESIZE='Letter', LEFTMARGIN=0.5, RIGHTMARGIN=0.5,TOPMARGIN=0.5, BOTTOMMARGIN=0.5, SQUEEZE=ON,ORIENTATION=LANDSCAPE, $ TYPE=REPORT, FONT='ARIAL', SIZE=10, COLOR=BLACK, BACKCOLOR=NONE,STYLE=NORMAL, $ TYPE=REPORT, POSITION=(0.00 1.10000000), IMAGE=&GIFFILE01,$ TYPE=REPORT, POSITION=(1.20 1.10000000), IMAGE=&GIFFILESA,$ TYPE=REPORT, POSITION=(2.70 1.10000000), IMAGE=&GIFFILESO,$ TYPE=REPORT, POSITION=(3.40 1.10000000), IMAGE=&GIFFILESE,$ TYPE=REPORT, POSITION=(5.00 1.10000000), IMAGE=&GIFFILESH,$ TYPE=REPORT, POSITION=(6.60 1.10000000), IMAGE=&GIFFILEST,$ TYPE=REPORT, POSITION=(8.20 1.10000000), IMAGE=&GIFFILESU,$ TYPE=HEADING,SIZE=12, JUSTIFY=LEFT, STYLE=BOLD+UNDERLINE,$ TYPE=TITLE,SIZE=9, STYLE=BOLD,$ TYPE=DATA,SIZE=9,$ ENDSTYLE ON TABLE SET PAGE OFF ON TABLE PCHOLD FORMAT PPT END -RUN
quote:SET TEMPERASE = OFF
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
quote:I just followed through on the posted fex
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
quote:-SET &TEMPDIR=TEMPPATH(60,'A60');
-SET &GIFFILE=&TEMPDIR || 'BARGR.GIF';
. . .
SET TEMPERASE = OFF
0 ERROR AT OR NEAR LINE 103 IN PROCEDURE powerpoints (FOC3315) IMAGE FILE NOT FOUND: /home/webfocus/ibi/srv76/wfs/edatemp/ts000449/bargr.gif
quote:SET TEMPERASE=OFF