The COMPRESS and PCOMPRESS Options (netdr4)
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: NETDR4 */
/* TITLE: The COMPRESS and PCOMPRESS Options (netdr4) */
/* PRODUCT: OR */
/* SYSTEM: ALL */
/* KEYS: NETDRAW */
/* PROCS: CPM, NETDRAW */
/* DATA: */
/* */
/* SUPPORT: UPDATE: */
/* REF: Example 4 from the NETDRAW Chapter (PM User's Guide)*/
/* MISC: */
/* */
/****************************************************************/
/* Activity-on-Node representation of the project */
data widget;
format task $12. succ1-succ3 $12.;
input task & days succ1 & succ2 & succ3 & ;
datalines;
Approve Plan 5 Drawings Study Market Write Specs
Drawings 10 Prototype . .
Study Market 5 Mkt. Strat. . .
Write Specs 5 Prototype . .
Prototype 15 Materials Facility .
Mkt. Strat. 10 Test Market Marketing .
Materials 10 Init. Prod. . .
Facility 10 Init. Prod. . .
Init. Prod. 10 Test Market Marketing Evaluate
Evaluate 10 Changes . .
Test Market 15 Changes . .
Changes 5 Production . .
Production 0 . . .
Marketing 0 . . .
;
proc cpm data=widget out=sched
date='1dec03'd;
activity task;
successor succ1 succ2 succ3;
duration days;
run;
goptions border;
pattern1 v=e c=green;
pattern2 v=e c=red;
title j=l h=3 ' Project: Widget Manufacture';
title2 j=l h=2 ' Schedule Information';
footnote j=r h=2 'COMPRESS Option ';
proc netdraw data=sched graphics;
actnet / act=task
succ=(succ1 succ2 succ3)
dur = days
carcs=blue
ccritarcs=red
separatearcs
font=swiss
height=1.5
compress;
run;
footnote j=r h=2 'PCOMPRESS Option ';
proc netdraw data=sched graphics;
actnet / act=task
succ=(succ1 succ2 succ3)
dur = days
carcs=blue
ccritarcs=red
separatearcs
font=swiss
height=1.5
pcompress
novcenter;
run;