Hi Waz,
yes we are calling multiple procedure.
We have 3 graphs ,Which are executed by the 3 procedure file from asp page.
Please find code below.
-DEFAULT &USERID = 1058;
-DEFAULT &SBUID = 0;
-DEFAULT &YEAR = '2007';
-DEFAULT &VIEWTYPE = 'U';
-DEFAULT &RETURNTYPE='W';
-SET &PACK1= &TNS ||'FrontPage_PKG.GWD_EVENT';
SQL SQLORA SET SERVER &SRV
SQL SQLORA
-*MAKE CHANGES BASED ON THE TICKET NO 628103
EX &PACK1 '&USERID','&SBUID','&YEAR','&VIEWTYPE','&RETURNTYPE';
TABLE FILE SQLOUT
PRINT *
COMPUTE OPEN/I7=IF STATUS EQ 'Open' THEN EVENTS ELSE 0;
COMPUTE CLOSE/I7=IF STATUS EQ 'Closed' THEN EVENTS ELSE 0;
COMPUTE REOPEN/I7=IF STATUS EQ 'Re-Open' THEN EVENTS ELSE 0;
COMPUTE ARCH/I7=IF STATUS EQ 'Archived' THEN EVENTS ELSE 0;
ON TABLE HOLD AS GWD_1
END
-*-EXIT
-IF &RECORDS EQ 0 THEN GOTO NORECORDS;
TABLE FILE GWD_1
SUM MAX.EVENTS
COMPUTE EVENTMAX/D20 =MAX.EVENTS;
ON TABLE HOLD AS GWD_MAX
END
TABLE FILE GWD_MAX
PRINT EVENTMAX
COMPUTE MAXEVENT_CNT/A20 = FTOA(EVENTMAX,'(D12c)',MAXEVENT_CNT);
ON TABLE HOLD AS SUPHEAD FORMAT ALPHA
END
TABLE FILE SUPHEAD
PRINT MAXEVENT_CNT
ON TABLE SAVE AS SUPHEAD1
END
-RUN
-SET &OUTREC='';
-READ SUPHEAD1 &MAXEVENT.A20.
-SET &MAXE = &MAXEVENT+5;
-*SET &MAXE = &MAXEVENT+100;
TABLE FILE GWD_1
SUM OPEN CLOSE REOPEN ARCH
BY COMPUTERSYSTEM
BY SYSTEMID
ON TABLE HOLD AS GWD_2 FORMAT ALPHA
END
GRAPH FILE GWD_2
SUM OPEN AS 'Open' CLOSE AS 'Closed' REOPEN AS 'ReOpened' ARCH AS 'Archived'
ACROSS COMPUTERSYSTEM
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 ON
ON GRAPH SET VAXIS 3.3
ON GRAPH SET HAXIS 8.0
ON GRAPH SET GRAPHSTYLE *
-* CSA 782007 YYJ 20080403
-* Change the graph size. Original value (780,250)
setSize(780,600);
setO1TitleString("Site");
setY1TitleString("Number of Events");
setTitleString("Event Graph");
setTextJustHoriz(getTitle(),1,);
-*setLineWidth(getSeries(2), 1);
setTextRotation(getO1Label(0),0);
-*setSeriesType(2,2);
setO1MajorGridDisplay(false);
setO1MajorGridStyle(0);
setO1MinorGridDisplay(false);
setAxisAssignment(0,0);
setAxisAssignment(1,1);
setAxisAssignment(2,0);
setY1LabelDisplay(true);
setY1AxisSide(0);
setY1MajorGridDisplay(true);
setY1MajorGridStyle(0);
setY1MinorGridDisplay(true);
setTextFormatPreset(getY1Label(),-1);
setTextFormatPattern(getY1Label(),"#");
setPieFeelerTextDisplay(1);
setPieLabelDisplay(0);
setTextFormatPreset(getPieSliceLabel(),1);
setRiserBorderMode(1);
setSeriesDefaultTransparentBorderColor(true);
setUseSeriesBorderDefaults(false);
setLegendDisplay(true);
-*Original
-*setScaleMax(getY1Axis(),&MAXE);
-*setY1ScaleMaxAuto(false);
setY1ScaleMaxAuto(true);
setFontSizeAbsolute(getTitle(),true);
setFontSize(getTitle(),16);
setTextRotation(getTitle(),0);
setTextWrap(getTitle(),true);
setTextJustHoriz(getLegendText(),1);
setFontSizeAbsolute(getLegendText(),true);
setFontSize(getLegendText(),10);
setTextRotation(getLegendText(),0);
setTextWrap(getLegendText(),true);
setTextJustHoriz(getY1Label(),1);
setFontSizeAbsolute(getY1Label(),true);
setFontSize(getY1Label(),10);
setTextRotation(getY1Label(),0);
setTextWrap(getY1Label(),true);
setTextJustHoriz(getO1Label(),1);
setFontSizeAbsolute(getO1Label(),true);
setFontSize(getO1Label(),10);
setTextRotation(getO1Label(),0);
setTextWrap(getO1Label(),true);
setPlaceResize(getTitle(),0);
setPlaceRotate(getTitle(),0);
setPlaceAlign(getTitle(),0);
setPlaceWordWrap(getTitle(),0);
setPlaceResize(getLegendText(),0);
setPlaceRotate(getLegendText(),0);
setPlaceAlign(getLegendText(),0);
setPlaceWordWrap(getLegendText(),0);
setPlaceResize(getY1Label(),0);
setPlaceRotate(getY1Label(),0);
setPlaceAlign(getY1Label(),0);
setPlaceWordWrap(getY1Label(),0);
setPlaceResize(getO1Label(),0);
setPlaceRotate(getO1Label(),0);
setPlaceAlign(getO1Label(),0);
setPlaceWordWrap(getO1Label(),0);
setFontSizeAbsolute(getDataText(0),true);
setFontSizeAbsolute(getDataText(1),true);
setFontSize(getDataText(0),12);
setFontSize(getDataText(1),12);
setPlace(true);
ENDSTYLE
ON GRAPH SET STYLE *
PAGESIZE='LEGAL',
LEFTMARGIN=0.250000,
RIGHTMARGIN=0.250000,
TOPMARGIN=0.250000,
BOTTOMMARGIN=0.250000,
SQUEEZE=ON,
ORIENTATION=LANDSCAPE,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA,
JAVASCRIPT=SiteLevel(COMPUTERSYSTEM '&YEAR' 'EVENT' '&RETURNTYPE'),
ACROSSCOLUMN=N3,
COLOR = YELLOW,
STYLE=NORMAL,
$
TYPE=DATA,
JAVASCRIPT=SiteLevel(COMPUTERSYSTEM '&YEAR' 'EVENT' '&RETURNTYPE'),
ACROSSCOLUMN=N1,
COLOR = RED,
STYLE=NORMAL,
$
TYPE=DATA,
JAVASCRIPT=SiteLevel(COMPUTERSYSTEM '&YEAR' 'EVENT' '&RETURNTYPE'),
ACROSSCOLUMN=N2,
COLOR = GREEN,
STYLE=NORMAL,
$
TYPE=DATA,
JAVASCRIPT=SiteLevel(COMPUTERSYSTEM '&YEAR' 'EVENT' '&RETURNTYPE'),
ACROSSCOLUMN=N4,
COLOR = BLUE,
STYLE=NORMAL,
$
ENDSTYLE
END
-EXIT
WebFOCUS 7.6.7
Windows
Excel, PDF, HTML