Specifying the Schedule Data Directly (gantt14)
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: GANTT14 */
/* TITLE: Specifying the Schedule Data Directly (gantt14) */
/* PRODUCT: OR */
/* SYSTEM: ALL */
/* KEYS: GANTT */
/* PROCS: CPM, SORT, GANTT */
/* DATA: */
/* */
/* SUPPORT: UPDATE: */
/* REF: Example 14 in the GANTT Chapter (PM User's Guide) */
/* MISC: */
/* */
/****************************************************************/
options ps=60 ls=100;
title h=1.75 'Gantt Example 14';
/* Activity-on-Node representation of the project */
data widgdir;
format task $12. rs rf e_start e_finish sdate fdate date7.;
input task & segmt_no zdur rs & date7. rf & date7.
e_start & date7. e_finish & date7.
sdate & date7. fdate & date7.;
datalines;
Approve Plan . 1 01DEC03 05DEC03 01DEC03 05DEC03 01DEC03 05DEC03
Drawings . 1 08DEC03 23DEC03 08DEC03 19DEC03 08DEC03 19DEC03
Drawings 1 1 08DEC03 09DEC03 08DEC03 19DEC03 08DEC03 19DEC03
Drawings 2 1 12DEC03 23DEC03 08DEC03 19DEC03 08DEC03 19DEC03
Study Market . 1 08DEC03 12DEC03 08DEC03 12DEC03 21JAN04 27JAN04
Write Specs . 1 08DEC03 12DEC03 08DEC03 12DEC03 15DEC03 19DEC03
Prototype . 1 24DEC03 15JAN04 22DEC03 13JAN04 22DEC03 13JAN04
Mkt. Strat. . 1 15DEC03 20JAN04 15DEC03 29DEC03 28JAN04 10FEB04
Mkt. Strat. 1 1 15DEC03 23DEC03 15DEC03 29DEC03 28JAN04 10FEB04
Mkt. Strat. 2 1 16JAN04 20JAN04 15DEC03 29DEC03 28JAN04 10FEB04
Materials . 1 16JAN04 29JAN04 14JAN04 27JAN04 14JAN04 27JAN04
Facility . 1 16JAN04 29JAN04 14JAN04 27JAN04 14JAN04 27JAN04
Init. Prod. . 1 30JAN04 12FEB04 28JAN04 10FEB04 28JAN04 10FEB04
Evaluate . 1 13FEB04 26FEB04 11FEB04 24FEB04 18FEB04 02MAR04
Test Market . 1 13FEB04 04MAR04 11FEB04 02MAR04 11FEB04 02MAR04
Changes . 1 05MAR04 11MAR04 03MAR04 09MAR04 03MAR04 09MAR04
Production . 0 12MAR04 12MAR04 10MAR04 10MAR04 10MAR04 10MAR04
Marketing . 0 13FEB04 13FEB04 11FEB04 11FEB04 10MAR04 10MAR04
;
data holdata;
format hol date7.;
input hol & date7.;
datalines;
25dec03
01jan04
;
/* set up required pattern statements */
pattern1 c=green v=s; /* duration of a non-critical activity */
pattern2 c=green v=e; /* slack time for a noncrit. activity */
pattern3 c=red v=s; /* duration of a critical activity */
pattern4 c=magenta v=e; /* slack time for a supercrit. activity */
pattern5 c=magenta v=s; /* duration of a supercrit. activity */
pattern6 c=cyan v=s; /* actual duration of an activity */
pattern7 c=black v=e; /* break due to a holiday */
pattern8 c=blue v=s; /* resource schedule of activity */
pattern9 c=brown v=s; /* baseline schedule of activity */
title2 h=1.25 'Specifying the Schedule Data Directly';
proc gantt data=widgdir holidata=holdata;
chart / holiday=(hol) dur=zdur
ss=rs sf=rf ls=sdate lf=fdate
height=1.5 pcompress;
id task;
run;