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,

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,

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

quote:

SET TEMPERASE = OFF

Bad idea Francis without mentioning the pitfalls

Nice example though

T

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,

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.

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

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?

 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

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.

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.