Project Definition (intpm1)
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: INTPM1 */
/* TITLE: Project Definition (intpm1) */
/* PRODUCT: OR */
/* SYSTEM: ALL */
/* KEYS: NETDRAW */
/* PROCS: NETDRAW */
/* DATA: */
/* */
/* SUPPORT: UPDATE: */
/* REF: Example 1 from the chapter, Introduction to Project */
/* Management. */
/* MISC: */
/* */
/****************************************************************/
data survey;
input id $ 1-20
activity $ 22-29
duration
succ1 $ 34-41
succ2 $ 43-50
succ3 $ 52-59
phase $ 61-69;
label phase = 'Project Phase'
id = 'Description';
datalines;
Plan Survey plan sur 4 hire per design q Plan
Hire Personnel hire per 5 trn per Prepare
Design Questionnaire design q 3 trn per select h print q Plan
Train Personnel trn per 3 cond sur Prepare
Select Households select h 3 cond sur Prepare
Print Questionnaire print q 4 cond sur Prepare
Conduct Survey cond sur 10 analyze Implement
Analyze Results analyze 6 Implement
;
goptions hpos=100 vpos=55 border;
pattern1 v=e c=green;
pattern2 v=e c=red;
pattern3 v=e c=magenta;
title ' ';
title2 h=2.5 'Conducting a Market Survey';
proc netdraw data=survey graphics;
actnet/act=activity
succ=(succ1-succ3)
separatearcs
xbetween=3 pcompress
id=(id)
height=2
nodefid
nolabel
zone=phase
zonepat
frame;
run;