Resources

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;