Focal Point Banner
Community Center Education Summit Technical Support User Groups
Let's Get Social!

Facebook Twitter LinkedIn YouTube
Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] Powerpoint report with multiple graphs in one slide
Go
New
Search
Notify
Tools
Reply
  
[SOLVED] Powerpoint report with multiple graphs in one slide
 Login/Join
 
Gold member
posted
I am trying to create a Powerpoint report with multiple graphs in one slide, I have tried few approaches, but all I can see is the first graph/header in the report. Any suggestions would be appreciated ?

 -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

									   								 
 


Thanks,
KK

This message has been edited. Last edited by: Kerry,


Test - Webfocus 7.6.7
Prod - Webfocus 7.6.7
Win2003
Sql Server 2000 and 2008
 
Posts: 59 | Registered: May 01, 2007Reply With QuoteReport This Post
Expert
posted Hide Post
This example appears to work as expected. I had to change the file names to lower case because my server in on AIX - case sensitive. Try this fex in your environment.

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


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
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Reply With QuoteReport This Post
Gold member
posted Hide Post
Francis,

I tried to run this sample in car database, but I can see the header and red 'x' image panels for all the graphs.

Please advise. Thank you.

KK


Test - Webfocus 7.6.7
Prod - Webfocus 7.6.7
Win2003
Sql Server 2000 and 2008
 
Posts: 59 | Registered: May 01, 2007Reply With QuoteReport This Post
Expert
posted Hide Post
quote:
SET TEMPERASE = OFF

Bad idea Francis without mentioning the pitfalls Confused

Nice example though Smiler

T



In FOCUS
since 1986
WebFOCUS Server 8.2.01M, thru 8.2.06 on Windows Svr 2008 R2  
WebFOCUS App Studio 8.2.06 standalone on Windows 10 
 
Posts: 5595 | Location: United Kingdom | Registered: April 08, 2004Reply With QuoteReport This Post
Expert
posted Hide Post
Tony, I just followed through on the posted fex - I assume KK is already aware of TEMPERASE issues.

Meanwhile, this fex works in a multi-tier Win/AIX environment, I can't say why it isn't working on KK's environment.


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
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Reply With QuoteReport This Post
Gold member
posted Hide Post
Francis,

Thank you for your help, it worked on my report.
A small change though, called image directly "IMAGE=BARGR.GIF" without the amper variable and it worked.

Thank you much.


Test - Webfocus 7.6.7
Prod - Webfocus 7.6.7
Win2003
Sql Server 2000 and 2008
 
Posts: 59 | Registered: May 01, 2007Reply With QuoteReport This Post
Expert
posted Hide Post
quote:
I just followed through on the posted fex

Sorry Francis, I didn't notice that KK had it in their code - when I see that amount of code in a question I skip through it!!!

KK, I mention the same to you, make sure you understand the pitfalls - I know some folks "develop" using their live box and using TEMPERASE=OFF could seriously impact performance.

T



In FOCUS
since 1986
WebFOCUS Server 8.2.01M, thru 8.2.06 on Windows Svr 2008 R2  
WebFOCUS App Studio 8.2.06 standalone on Windows 10 
 
Posts: 5595 | Location: United Kingdom | Registered: April 08, 2004Reply With QuoteReport This Post
Virtuoso
posted Hide Post
quote:
-SET &TEMPDIR=TEMPPATH(60,'A60');
-SET &GIFFILE=&TEMPDIR || 'BARGR.GIF';
. . .
SET TEMPERASE = OFF


FOCCACHE should avoid those pitfalls. -- But is there a method to capture the location of the session's foccache directory?
 
Posts: 1925 | Location: NYC | In FOCUS since 1983 | Registered: January 11, 2005Reply With QuoteReport This Post
Guru
posted Hide Post
 0 ERROR AT OR NEAR LINE    103  IN PROCEDURE powerpoints
 (FOC3315) IMAGE FILE NOT FOUND:
 /home/webfocus/ibi/srv76/wfs/edatemp/ts000449/bargr.gif
  


I ran Francis's codes in Reproting Server and in Managed Reporting and got this same error. Is there something wrong with our environment?

Hua


Developer Studio 7.6.11
AS400 - V5R4
HTML,PDF,XLS
 
Posts: 305 | Location: Winnipeg,MB | Registered: May 12, 2008Reply With QuoteReport This Post
Expert
posted Hide Post
If you don't have SET TEMPERASE=OFF, the files (graph images) in the temporary folders do not get saved and so, are not available after the final report request. SET TEMPERASE=OFF keeps the files, but keeps them permanently and they have to be manually cleaned up.


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
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Reply With QuoteReport This Post
Guru
posted Hide Post
quote:
SET TEMPERASE=OFF


Francis, I should have this code because it was part of your code. And I have the same question as Jack's, that I want to make use of FOCCACHE in my apps.


Developer Studio 7.6.11
AS400 - V5R4
HTML,PDF,XLS
 
Posts: 305 | Location: Winnipeg,MB | Registered: May 12, 2008Reply With QuoteReport This Post
  Powered by Social Strata  
 

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] Powerpoint report with multiple graphs in one slide

Copyright © 1996-2018 Information Builders, leaders in enterprise business intelligence.