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

Facebook Twitter LinkedIn YouTube
Page 1 2 
Go
New
Search
Notify
Tools
Reply
  
Gantt Charts
 Login/Join
 
Silver Member
posted
I know this has been asked before, but from what I can tell it has been a few years since it has been discussed.

Does anyone know if you can reproduce a chart that looks and functions like a Gantt chart? If so can someone supply an example. I am using version 7.6.5.

Thanks,
Josh


WebFOCUS 8.0.09
Windows, DB2 iSeries, ODBC
Output: Excel, HTML, PDF, AHTML
 
Posts: 37 | Registered: October 26, 2007Reply With QuoteReport This Post
<JG>
posted
still not supported Josh
 
Reply With QuoteReport This Post
Virtuoso
posted Hide Post
It is my understanding and according to documentation you can. If you use Advanced Graph Assistant...it should have a Graphtype of Gantt. I've never done it...but is there.
SET LOOKGRAPH=GANTT


In Focus since 1993. WebFOCUS 7.7.03 Win 2003
 
Posts: 1903 | Location: San Antonio | Registered: February 28, 2005Reply With QuoteReport This Post
<JG>
posted
Prarie, Yes that setting is doicumented but I do not think that it actually works.

The only documentation that I can find is

"Provides a visual representation of project oriented time critical events.
Gantt charts require six display fields and one sort field, in that order.
Conditional styling and drill-down are not supported for GANTT charts."

However an example associated with an IB MIP still does not work (the focus short db is in IBISAMP)

GRAPH FILE SHORT
SUM ARGENTINA_PESO BRAZIL_REAL CANADA_DOLLAR GUATEMALA_QUETZAL
HONDURAS_LEMPIRAS MEXICO_PESO
ACROSS CONTINENT
ON GRAPH SET LOOKGRAPH GANTT
END
 
Reply With QuoteReport This Post
Silver Member
posted Hide Post
Thanks for the info JG. I can confirm that setting LOOKGRAPH to GANTT does not work.

Do you know of an alternative?

Thanks,
Josh


WebFOCUS 8.0.09
Windows, DB2 iSeries, ODBC
Output: Excel, HTML, PDF, AHTML
 
Posts: 37 | Registered: October 26, 2007Reply With QuoteReport This Post
Virtuoso
posted Hide Post
Interesting.


In Focus since 1993. WebFOCUS 7.7.03 Win 2003
 
Posts: 1903 | Location: San Antonio | Registered: February 28, 2005Reply With QuoteReport This Post
<JG>
posted
As far as I know, it was a prototype feature put in place but never finalized.

However it has remained in the documentation even though it is not part of the
advanced graph assistant which should support it if it was.

Ideally it should either be made to work or dropped from the documentation.

At least instead of causing HTTP errors, in 766, it now just returns nothing.

? is that actually better ?
 
Reply With QuoteReport This Post
Silver Member
posted Hide Post
I found a post from 2005 that says IBI does not plan to pursue the support of Gantt charts in the future. 2005 Post

So, yes I agree it should be dropped from the documentation.

I'm going to try to use a stacked bar graph to accomplish my task.

Thanks,
Josh


WebFOCUS 8.0.09
Windows, DB2 iSeries, ODBC
Output: Excel, HTML, PDF, AHTML
 
Posts: 37 | Registered: October 26, 2007Reply With QuoteReport This Post
Virtuoso
posted Hide Post
I did a GANTT for a customer some years ago. Should I try and find the code?


Daniel
In Focus since 1982
wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF

 
Posts: 1960 | Location: Tel Aviv, Israel | Registered: March 23, 2006Reply With QuoteReport This Post
Silver Member
posted Hide Post
Danny,

I would be interested in seeing that if you do not mind.

Thanks,
Josh


WebFOCUS 8.0.09
Windows, DB2 iSeries, ODBC
Output: Excel, HTML, PDF, AHTML
 
Posts: 37 | Registered: October 26, 2007Reply With QuoteReport This Post
Expert
posted Hide Post
Josh,

Checking back on the trial I was attempting in 2005 and I found that it didn't work (dates and non dates Frowner), so looking through old libraries I have I found this which does actually produce a graph in 7.6.2 but the axis doesn't display the date format correctly. Anyway, FWIW -

SET HOLDLIST = PRINTONLY
APP FI GANTT DISK GANTT.MAS (LRECL 80
-RUN
-WRITE GANTT
-WRITE GANTT FILE=GANTT,SUFFIX=FOC
-WRITE GANTT SEGNAME=SEG1
-WRITE GANTT FIELD=AREA,,A15,A15,$
-WRITE GANTT FIELD=TASK,,A27,A27,$
-WRITE GANTT FIELD=BEGDATE,,YYMD,YYMD,$
-WRITE GANTT FIELD=ENDDATE,,YYMD,YYMD,$
-RUN

CREATE FILE GANTT
MODIFY FILE GANTT
FIXFORM AREA/A15 TASK/A27 BEGDATE/A8 ENDDATE/A8
DATA
Engineering     1 Site Survey             2000101820001115
Engineering     2 Draft Survey Results    2000101820001204
Engineering     3 GMBH Review             2000120420001229
Engineering     4 Survey RPT (Final)      2001010120010122
Engineering     5 GMBH RFV Approval       2001010320010206
Engineering     6 System Design           2001021420010320
Engineering     7 HMBC Review             2001032020010404
Engineering     8 Bid and Award           2001040420010604
Engineering     9 Construction Support    2001042720010905
END
-RUN
DEFINE FILE GANTT
  CURRDATE/YYMD = 20010113;
END
TABLE FILE GANTT
  SUM MAX.ENDDATE/I8
      MIN.BEGDATE/I8
      MAX.CURRDATE/I8
   ON TABLE SAVE FORMAT ALPHA
END
-RUN
-READ SAVE X4 &MaxDate.A8. X4 &MinDate.A8. X4 &CurrDate.A8.
-SET &MinDate = &MinDate - 14;
-SET &MaxDate = &MaxDate + 14;
-SET &CurrDate = &CurrDate + 0;
-RUN
DEFINE FILE GANTT ADD
  OFFSET/I9     = &MinDate + 14;
  DURATION/I9   = ENDDATE - BEGDATE;
  REMAIN/I9     = IF ENDDATE LT CURRDATE THEN 0
             ELSE IF CURRDATE FROM BEGDATE TO ENDDATE THEN ENDDATE - CURRDATE
             ELSE DURATION ;
  BEGIN/I9      = BEGDATE - OFFSET;
  COMPLETED/I9  = IF ENDDATE LT CURRDATE THEN DURATION
             ELSE IF CURRDATE FROM BEGDATE TO ENDDATE THEN CURRDATE - BEGDATE
             ELSE 0 ;
END

GRAPH FILE GANTT
SUM OFFSET
    BEGIN
    COMPLETED
    REMAIN
BY TASK
ON GRAPH SET GRAPHEDIT OFF
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET VZERO OFF
ON GRAPH SET GRID ON
ON GRAPH SET GRMERGE ON
ON GRAPH SET GRAPHSTYLE *
 setGraphType(25);
 setTransparentFillColor(getSeries(0), true);
 setTransparentBorderColor(getSeries(0), true);
 setSeriesLabel(0, "");
 setTransparentFillColor(getSeries(1), true);
 setTransparentBorderColor(getSeries(1), true);
 setSeriesLabel(1, "");
-* Y1 scale
 setY1ScaleMaxAuto(false);
 setY1ScaleMax(&MaxDate);
 setY1ScaleMinAuto(false);
 setY1ScaleMin(&MinDate);
 setTextFormatPreset(getY1Scale, 19);
setUseTimeScaleAxis(true);
END

TABLE FILE GANTT
SUM OFFSET DURATION
    BEGIN BEGDATE ENDDATE
    COMPLETED
    REMAIN
BY TASK
END


T



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 
 
Posts: 5684 | Location: United Kingdom | Registered: April 08, 2004Reply With QuoteReport This Post
Virtuoso
posted Hide Post
This is what it looks like:



The bars are a function of the dates. I used the CAR file and created some fictitious dates. The output is produced by TABLE. The bars are generated from IBI pixels:
  
<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=hh WIDTH=ww>

where hh and ww are variables containing the number of pixels for the thickness and the length of the bar.

My example is a bit complex because I had to show how to insert a "today" black mark so each bar is composed of 3, from start to today, today, from today to end.

Also by clicking on a country, the gantt adds another level of detail.

I can try and create a more simple example.

This message has been edited. Last edited by: Danny-SRL,


Daniel
In Focus since 1982
wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF

 
Posts: 1960 | Location: Tel Aviv, Israel | Registered: March 23, 2006Reply With QuoteReport This Post
Expert
posted Hide Post
Danny,

Very unlike you to leave an image pointing to localhost!!

T



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 
 
Posts: 5684 | Location: United Kingdom | Registered: April 08, 2004Reply With QuoteReport This Post
Expert
posted Hide Post
have a read on this
its a very simple technique that produces a variant on the GRAPHTYPE concept that you can use to create GANTTs. You'll be creating your underlying matrix with a table and alot of .css.




In Focus since 1979///7706m/5 ;wintel 2008/64;OAM security; Oracle db, ///MRE/BID
 
Posts: 3811 | Location: Manhattan | Registered: October 28, 2003Reply With QuoteReport This Post
Virtuoso
posted Hide Post
Tony,

Ooooops! I didn't realize that the forum would insert the URL. I thought it would use it to copy the image.

So, I should put it on a web site somewhere...

Done (I hope)!

This message has been edited. Last edited by: Danny-SRL,


Daniel
In Focus since 1982
wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF

 
Posts: 1960 | Location: Tel Aviv, Israel | Registered: March 23, 2006Reply With QuoteReport This Post
Expert
posted Hide Post
Daany,

That's better Smiler and a good alternative to the "normal" Gantt chart. Great display of "thinking outside the box". Having seen the output (now Wink) I can probably work out the code - a good chance to get the grey cells working Smiler

T



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 
 
Posts: 5684 | Location: United Kingdom | Registered: April 08, 2004Reply With QuoteReport This Post
Virtuoso
posted Hide Post
Tony,

Thanks for the "heads up". As you can gather, the output is from TABLE. Here is a little peek on the code:
TDY= today's date
SDATE=start date of the work element
EDATE=end date of the work element
BARCOL=bar color of the work element
BT1, BT2, BT3 are lengths of the bar pieces
&HT is the bar height
&XT is the height of today's black mark
  
COMPUTE SBAR/A400=
-* The bar starts after today:
IF TDY LT SDATE THEN
'<IMG SRC="/ibi_html/vis/gffffff.gif" HEIGHT=&HT WIDTH=' |
BT1 | '>' |
'<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=&XT WIDTH=1>' |
'<IMG SRC="/ibi_html/vis/gffffff.gif" HEIGHT=&HT WIDTH=' |
BT2 | '>' |
'<IMG SRC="/ibi_html/vis/' | BARCOL | '.gif" HEIGHT=&HT WIDTH=' |
BT3 | '>'

ELSE IF TDY LT EDATE THEN
-* The bar ends after today:
'<IMG SRC="/ibi_html/vis/gffffff.gif" HEIGHT=&HT WIDTH=' |
BT1 | '>' |
'<IMG SRC="/ibi_html/vis/' | BARCOL | '.gif" HEIGHT=&HT WIDTH=' |
BT2 | '>' |
'<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=&XT WIDTH=1>' |
'<IMG SRC="/ibi_html/vis/' | BARCOL | '.gif" HEIGHT=&HT WIDTH=' |
BT3 | '>'
ELSE
-* The bar ends before today:
'<IMG SRC="/ibi_html/vis/gffffff.gif" HEIGHT=&HT WIDTH=' |
BT1 | '>' |
'<IMG SRC="/ibi_html/vis/' | BARCOL | '.gif" HEIGHT=&HT WIDTH=' |
BT2 | '>' |
'<IMG SRC="/ibi_html/vis/gffffff.gif" HEIGHT=&HT WIDTH=' |
BT3 | '>' |
'<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=&XT WIDTH=1>'
;  AS ''


Daniel
In Focus since 1982
wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF

 
Posts: 1960 | Location: Tel Aviv, Israel | Registered: March 23, 2006Reply With QuoteReport This Post
Expert
posted Hide Post
Thanks Danny, but I already had that code which is basically what Susannah uses in her article (link in Susannah's post above) from 2004(?). Nice to see her methods reused.

Always a good method to use and one I have taken advantage of many times!

T



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 
 
Posts: 5684 | Location: United Kingdom | Registered: April 08, 2004Reply With QuoteReport This Post
Expert
posted Hide Post
I hope you don't mind if I add this to my library...




   In FOCUS Since 1983 ~ from FOCUS to WebFOCUS.
   Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206
 
Posts: 3103 | Location: Middle Tennessee | Registered: February 23, 2005Reply With QuoteReport This Post
Silver Member
posted Hide Post
Danny,

Thank you for you ideas. I understand the 'gantt' part of the chart. I am however having a problem understanding where the time scale at the top of the 'graph' comes from. Can you please post the code on how you did this?

Thanks,
Josh


WebFOCUS 8.0.09
Windows, DB2 iSeries, ODBC
Output: Excel, HTML, PDF, AHTML
 
Posts: 37 | Registered: October 26, 2007Reply With QuoteReport This Post
Virtuoso
posted Hide Post
Josh,

Here is the HEADING:
  
HEADING
"<SP Start <+1 End <+1 &SCALE "
"<SP &SDATEF <+1 &EDATEF <LO"


Here are the variables used:
  
in a DEFINE statement:
SP/A1=' ';
LO/A2400='<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=&ST WIDTH=1>'
-REPEAT #SCALE FOR &I FROM 1 TO &MAXWKS;
| '<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=&HT WIDTH=&SCW1 >'
| '<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=&ST WIDTH=1>'
-#SCALE
;

variables:
-SET &SDATEF=EDIT(&SDATE,'99/99/9999');
-SET &EDATEF=EDIT(&EDATE,'99/99/9999');
-SET &TDYF=EDIT(&TDY,'99/99/9999');
-SET &DASHES='----------------------------------------';
-SET &SCALE=EDIT(&SDATEF,'$$$9999999');
-SET &SMONTH=EDIT(&SDATEF,'$$$$$$9999') | EDIT(&SDATEF,'$$$99');
-SET &EMONTH=EDIT(&EDATEF,'$$$$$$9999') | EDIT(&EDATEF,'$$$99');
-SET &MAXSCALE=&MAXWKS / 28 * &INTRVL;
-REPEAT #BSCALE FOR &I FROM 1 TO &MAXSCALE;
-SET &SMONTH=AYM(&SMONTH,1,'I6');
-SET &NMONTH=EDIT(&SMONTH,'$$$$99/') | EDIT(&SMONTH,'9999');
-SET &NDASH=4 * (&SC - 2) + 1;
-SET &DASH=SUBSTR(40, &DASHES, 1, &NDASH, &NDASH, 'A&NDASH.EVAL');
-SET &SCALE=&SCALE || &DASH || &NMONTH;
-IF &SMONTH GE &EMONTH GOTO #ESCALE;
-#BSCALE
-#ESCALE


&SDATE is the start date of the retrieval
&EDATE is the end date of the retrieval
&TDY is today's date
&MAXWKS is the number of ticks between the min start date and the maximum end date of all operations
&INTRVAL is interval in days between ticks
&NDASH is the number of dashes between dates, depending upon the scale (&SC) chosen - in this example &SC=4
&ST is the height of the tick on the time scale
&HT is the height of the time scale bar

I hope I didn't forget anything. This code is 5 years old +/-.

If you want, I can send you the whole fex and the data files...


Daniel
In Focus since 1982
wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF

 
Posts: 1960 | Location: Tel Aviv, Israel | Registered: March 23, 2006Reply With QuoteReport This Post
Virtuoso
posted Hide Post
Great idea...I'm going to use this for an overall report based on a project and time registration database of our IT department.!!!
They need a report and they are not able to create something themselves...




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

 
Posts: 2387 | Location: Amsterdam, the Netherlands | Registered: December 03, 2006Reply With QuoteReport This Post
Virtuoso
posted Hide Post
Frank,

Thanks. If you want all the code and the data files, just ask.


Daniel
In Focus since 1982
wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF

 
Posts: 1960 | Location: Tel Aviv, Israel | Registered: March 23, 2006Reply With QuoteReport This Post
Silver Member
posted Hide Post
Daniel,

Can you send me the fex? I'm not sure of the best way to deliver this though.

Thanks,
Josh


WebFOCUS 8.0.09
Windows, DB2 iSeries, ODBC
Output: Excel, HTML, PDF, AHTML
 
Posts: 37 | Registered: October 26, 2007Reply With QuoteReport This Post
Platinum Member
posted Hide Post
An old article but one well worth to keep around for such questions... Hope it helps.
Ira
http://techsupport.informationbuilders.com/tech/wbf/wbf_tcn_085.html


aix-533,websphere 5.1.1,apache-2.0,
wf 538(d), 537 (p),
==============
7.6.11 (t) aix 5312
websphere 6.1.19
apache 2.0
 
Posts: 195 | Registered: October 27, 2006Reply With QuoteReport This Post
Virtuoso
posted Hide Post
Suggestion: If you use DM to factor out the recurring SRC=" ... .gif" code, Dan's (Susannah's) COMPUTE code becomes appreciably more succinct and maintainable.

-SET &White='SRC="/ibi_html/vis/gffffff.gif"';
-SET &Black='SRC="/ibi_html/vis/g000000.gif"';
-SET &Color='SRC="/ibi_html/vis/' || BARCOL || '.gif"';

COMPUTE SBAR/A400=
IF TDY LT SDATE THEN
-* The bar starts after today:
 '<IMG &White HEIGHT=&HT WIDTH=' | BT1 | '>' |
 '<IMG &Black HEIGHT=&XT WIDTH=1>' |
 '<IMG &White HEIGHT=&HT WIDTH=' | BT2 | '>' |
 '<IMG &Color HEIGHT=&HT WIDTH=' | BT3 | '>'

ELSE IF TDY LT EDATE THEN
-* The bar overlaps today:
 '<IMG &White HEIGHT=&HT WIDTH=' | BT1 | '>' |
 '<IMG &Color HEIGHT=&HT WIDTH=' | BT2 | '>' |
 '<IMG &Black HEIGHT=&XT WIDTH=1>' |
 '<IMG &Color HEIGHT=&HT WIDTH=' | BT3 | '>'

ELSE
-* The bar ends before today:
 '<IMG &White HEIGHT=&HT WIDTH=' | BT1 | '>' |
 '<IMG &Color HEIGHT=&HT WIDTH=' | BT2 | '>' |
 '<IMG &White HEIGHT=&HT WIDTH=' | BT3 | '>' |
 '<IMG &Black HEIGHT=&XT WIDTH=1>'
;  AS ''


- Jack Gross
WF through 8.1.05
 
Posts: 1925 | Location: NYC | In FOCUS since 1983 | Registered: January 11, 2005Reply With QuoteReport This Post
Master
posted Hide Post
quote:
If you want, I can send you the whole fex and the data files...

If you don't mind Daniel, I would LOVE the sample fex. I'll PM you in a moment.

There are not many threads on Gantt Charts, and this post seems to be the only one with a solution.

I know this is a 'vintage post', but many belated thanks to the contributors. :-)




Pilot: WebFOCUS 8.2.06 Test: WebFOCUS 8.1.05M Prod: WebFOCUS 8.1.05M Server: Windows Server 2016/Tomcat Standalone Workstation: Windows 10/IE11+Edge Database: Oracle 12c, Netezza, & MS SQL Server 2019 Output: AHTML/XLSX/HTML/PDF/JSCHART Tools: WFDS, Repository Content, BI Portal Designer & ReportCaster
 
Posts: 806 | Registered: April 23, 2003Reply With QuoteReport This Post
Platinum Member
posted Hide Post
You rock Susannah! and Danny too!


Vivian Perlmutter
Aviter, Inc.


WebFOCUS Keysheet Rel. 8.0.2
(Almost) 1001 Ways to Work with Dates thru Rel. 8.0.2
Focus since 1982
WebFOCUS since the beginning
Vivian@aviter.com

 
Posts: 191 | Location: Henderson, Nevada | Registered: April 29, 2003Reply With QuoteReport This Post
Platinum Member
posted Hide Post
I kinda wonder if at this point it would be easier to just use google charts to build it. I know their visualization tool has that chart type in it, although it wouldn't be "IBI approved".

The only challenging part would be to get the data out of WF and into the right formats for it to read into the graph.


WebFOCUS App Studio 8.2.02
Windows 7, All Outputs
 
Posts: 141 | Location: Mclean, VA | Registered: December 04, 2012Reply With QuoteReport This Post
Master
posted Hide Post
D3 Charts are IBI approved and are actually easily added in 8.2..

https://d3js.org/



- FOCUS Man, just FOCUS!
-----------------------------
Product: WebFOCUS
Version: 8.1.04
Server: Windows 2008 Server
 
Posts: 578 | Registered: October 01, 2014Reply With QuoteReport This Post
  Powered by Social Strata Page 1 2  
 


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