FOCUS/WebFOCUS 1990 - 2011 |
ACROSS PERIOD_YYM NOPRINT ACROSS PERIOD_M AS 'Month'
Frank | |
prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |
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 |
FOCUS/WebFOCUS 1990 - 2011 |
In Focus since 1979///7706m/5 ;wintel 2008/64;OAM security; Oracle db, ///MRE/BID |
-* File fiscyear.fex -SET &FSTART1 = '891001'; -SET &FSTART2 = '901001'; -SET &FSTART3 = '911001'; -SET &F1=EDIT('&FSTART1.EVAL','99/99'); -SET &F2=EDIT('&FSTART2.EVAL','99/99'); -*SET &FSTART4 = '20061001'; -*SET &FSTART5 = '20071001'; DEFINE FILE SALHIST PLOTDATE/YYM= IF EFFECTDATE GE '&FSTART1' AND EFFECTDATE LT '&FSTART2' THEN EFFECTDATE ELSE IF EFFECTDATE GE '&FSTART2' AND EFFECTDATE LT '&FSTART3' THEN DATEADD(EFFECTDATE,'Y',-1); SALEM3/D12=IF EFFECTDATE GE '&FSTART1' AND EFFECTDATE LT '&FSTART2' THEN OLDSALARY ELSE 0; SALEM2/D12=IF EFFECTDATE GE '&FSTART2' AND EFFECTDATE LT '&FSTART3' THEN OLDSALARY ELSE 0; md/TRM=EFFECTDATE; END TABLE FILE SALHIST SUM SALEM2 SALEM3 -*BY EFFECTDATE BY PLOTDATE BY md ON TABLE HOLD END DEFINE FILE HOLD PM/M=PLOTDATE; END -* will give GRAPH FILE HOLD SUM SALEM2 AS 'Sales FY &F1' SALEM3 AS 'Sales FY &F2' ACROSS PLOTDATE ON GRAPH SET LOOKGRAPH VLINE 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 VAXIS 400 ON GRAPH SET HAXIS 800 ON GRAPH PCHOLD FORMAT PNG ON GRAPH SET GRAPHSTYLE * setUseTimeScaleAxis(true); setLevelInterval(0,6); setLevelTextFormat(0,1); setMarkerDisplay(true); setConnectLineMarkers(true); setConnectScatterMarkers(true); setO1LabelDisplay(true); setO1AxisSide(0); setO1MajorGridDisplay(false); setO1MinorGridDisplay(false); setAxisAssignment(0,0); setAxisAssignment(1,0); setY1LabelDisplay(true); setY1AxisSide(0); setY1MajorGridDisplay(false); setY1MinorGridDisplay(false); setTextFormatPreset(getY1Label(),-1); setTextFormatPattern(getY1Label(),"#.##"); setPieFeelerTextDisplay(1); setPieLabelDisplay(0); setTextFormatPreset(getPieSliceLabel(),1); setRiserBorderMode(1); setSeriesDefaultTransparentBorderColor(true); setUseSeriesBorderDefaults(true); setLegendDisplay(true); setTitleString("Fiscal year starting &F1.EVAL \nand starting &F2.EVAL"); setTextJustHoriz(getTitle(),1); setFontSizeAbsolute(getTitle(),true); setFontSize(getTitle(),12); setFillColor(getTitle(),new Color(0,0,128)); setTextRotation(getTitle(),0); setTextWrap(getTitle(),false); setTextJustHoriz(getLegendText(),1); setFontSizeAbsolute(getLegendText(),true); setFontSize(getLegendText(),12); setFillColor(getLegendText(),new Color(0,0,128)); setTextRotation(getLegendText(),0); setTextWrap(getLegendText(),false); setFontSizeAbsolute(getY1Title(),true); setFontSizeAbsolute(getY1Label(),true); setFontSizeAbsolute(getY2Title(),true); setFontSizeAbsolute(getY2Label(),true); setFontSizeAbsolute(getO1Title(),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); setPlace(true); ENDSTYLE ON GRAPH SET STYLE * PAGESIZE='Letter', LEFTMARGIN=0.250000, RIGHTMARGIN=0.250000, TOPMARGIN=0.250000, BOTTOMMARGIN=0.250000, SQUEEZE=ON, ORIENTATION=PORTRAIT, TITLETEXT='Fiscal year starting &F1.EVAL', $ TYPE=REPORT, GRID=OFF, FONT='TIMES NEW ROMAN', SIZE=10, BACKCOLOR='NONE', STYLE=NORMAL, $ ENDSTYLE END
Frank | |
prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |