-* graph's size
-SET &V_AXIS = 350;
-SET &H_AXIS = 800;
-* graph's format
-SET &OUTPUT1 = 'JPEG';
-SET &OUTPUT2 = 'JPG';
-* randomkey
-SET &RANDOMNR1 = RDUNIF('D4.3') * 100000000;
-SET &RANDOMNR2 = HNAME(HGETC(10, 'HYYMDm'), 'mc', 'A6');
-SET &RANDKEY= &RANDOMNR1 - &RANDOMNR2;
-* set graph's folder
APP HOLD TMPAPP
-* name of hold file of graph, saved into APP
-SET &GRAPH_NAME = REST_GRAPH | '_' | &RANDKEY..;
-* build link to graph file
-SET &IMG_LINK = &&WEBCSS | &GRAPH_NAME | '.' | &OUTPUT2;
-SET &IMG_LINK = 'IMAGE=' | LOCASE(&IMG_LINK.LENGTH, &IMG_LINK, 'A&IMG_LINK.LENGTH');
GRAPH FILE REST_AGG_REL_DATA
-* Created by Advanced Graph Assistant
SUM
COMPUTE PERC_IN_TIME/P10% = (IN_TIME / NO_ST_CALLS) * 100;
BY S1_CODE_L
ACROSS ARR_DATE AS '' COLUMNS &SORT_COLUMNS.EVAL
ON GRAPH HOLD AS &GRAPH_NAME FORMAT '&OUTPUT1.EVAL'
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET VZERO ON
ON GRAPH SET HAXIS &H_AXIS
ON GRAPH SET VAXIS &V_AXIS
ON GRAPH SET UNITS PIXELS
ON GRAPH SET LOOKGRAPH VLINE
ON GRAPH SET GRMERGE ON
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 1
ON GRAPH SET GRXAXIS 1
ON GRAPH SET GRAPHSTYLE *
setTemplateFile("/images/tdg/template/IBISouthWestern.txt");
setReportParsingErrors(false);
setSelectionEnableMove(false);
setTransparentBorderColor(getAllSeries(),true);
setDepthRadius(0);
setUseSeriesShapes(true);
setMarkerSizeDefault(50);
setTransparentBorderColor(getChartBackground(),true);
setPlace(true);
setScaleMinAuto(getY1Axis(),false);
setScaleMin(getY1Axis(),0.0);
setScaleMaxAuto(getY1Axis(),false);
setScaleMax(getY1Axis(),100.0);
setMarkerDisplay(false);
setUseSeriesShapes(false);
setLegendPosition(5);
setDisplay(getY1Title(),false);
setDisplay(getO1Title(),false);
setO1LabelRotate(1);
setTextFormatPreset(getY1Label(),28);
setTransparentBorderColor(getFrame(),true);
setBorderColor(getO1AxisLine(),new Color(192,192,192));
setBorderColor(getY1AxisLine(),new Color(192,192,192));
setDisplay(getO1MajorGrid(),false);
setBorderColor(getY1MajorGrid(),new Color(192,192,192));setTickStyle(getO1MajorTick(),3);
setBorderColor(getO1MajorTick(),new Color(192,192,192));
setDisplay(getO1MinorGrid(),false);
setDisplay(getO1MinorTick(),true);setTickStyle(getO1MinorTick(),3);
setBorderColor(getO1MinorTick(),new Color(192,192,192));
setDisplay(getO1MajorTick(),false);
ENDSTYLE
END
-RUN
-* deactivate graphics folder path
APP HOLD
-* print the graph
SET COMPOUND='OPEN'
TABLE FILE REST_AGG_REL_DATA
BY S1_CODE_L NOPRINT
ON TABLE SUBHEAD
"&HEAD1 <+5> Name: &FOCFOCEXEC"
" <+0> <+0> "
" <+0> <+0> "
" Filters:"
" Date: &TIME_PERIOD_TEXT from &FYM_FROM_NAME to &FYM_TO_NAME"
" STEP1: &ST_RG "
" STEP2: &ST_SR "
" STEP3: &ST_AR "
" STEP4: &ST_SA "
" STEP5: &ST_LOC "
" STEP6: &S1G "
" STEP7: &S1 "
" "
"In Time: &IN_TIME_TEXT "
" "
" User: &USER"
HEADING
" TEXT<+0> &HEAD1 <+0> Text"
FOOTING BOTTOM
"Data from &&DTRDT<+0> <+2> &FOOT_INFO <+0> <+0> Created on &DATEtrMDYY"
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT &WFFMT
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=REPORT, &IMG_LINK.EVAL, POSITION=(0.5 10), SIZE=(20 9),$
ENDSTYLE
END
-RUN
SET COMPOUND=CLOSE
-* Tabular report
TABLE FILE REST_AGG_REL_DATA
SUM
NO_ST_CALLS AS 'No,Step,Calls'
IN_TIME AS 'in,Time'
COMPUTE PERC_IN_TIME/P10% = (IN_TIME / NO_ST_CALLS) * 100; AS '% in,Time'
BY S1_CODE AS 'S1,Code'
BY INTERNET_S1 CODE AS 'Int S1,Code'
BY NAME AS 'Name'
BY LOC_NAME AS 'Location,Name'
BY LOC_CODE NOPRINT
ACROSS ARR_DATE AS '' COLUMNS &SORT_COLUMNS.EVAL
HEADING
"TEXT<+0>&HEAD1<+0>Text"
FOOTING BOTTOM
"Data from &&DEXTRDT_11 <+0> <+2> &FOOT_INFO <+0> <+0> Created on &DATEtrMDYY"
ON S1_CODE RECOMPUTE AS 'Average'
ON TABLE COLUMN-TOTAL AS 'Grand Total'
ON TABLE PCHOLD FORMAT &WFFMT
ON TABLE SET HTMLCSS ON
ON TABLE SET BYPANEL ON
ON TABLE SET STYLE *
TYPE=SUBTOTAL, &SUB_TOTAL$
TYPE=GRANDTOTAL, &GRAND_TOTAL$
TYPE=TITLE, COLUMN = C*, JUSTIFY = RIGHT,$
TYPE=DATA, COLUMN = C*, JUSTIFY = RIGHT,$
TYPE=ACROSSVALUE, ACROSS=ARR_DATE, BACKCOLOR=RGB(193 195 219), JUSTIFY=CENTER,$
TYPE = REPORT, COLUMN=P1, WRAP=2,$
TYPE = REPORT, COLUMN=P2, WRAP=3,$
TYPE = REPORT, COLUMN=P3, WRAP=3,$
TYPE = REPORT, COLUMN=P4, WRAP=4,$
ENDSTYLE
END
-RUN
WebFOCUS 8.0.0.8, 8.2.0.3
Windows, All Outputs