Controlling Display Format (netdr5)
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: NETDR5 */
/* TITLE: Controlling Display Format (netdr5) */
/* PRODUCT: OR */
/* SYSTEM: ALL */
/* KEYS: NETDRAW */
/* PROCS: CPM, NETDRAW */
/* DATA: */
/* */
/* SUPPORT: UPDATE: */
/* REF: Example 5 from the NETDRAW Chapter (PM User's Guide)*/
/* MISC: */
/* */
/****************************************************************/
data ex;
format activity $20. success1 $20. success2 $20. success3 $20.
success4 $20.;
input activity dur success1-success4;
datalines;
form 4 pour . . .
pour 2 core . . .
core 14 strip spray_fireproof insulate_walls .
strip 2 plumbing curtain_wall risers doors
strip 2 electrical_walls balance_elevator . .
curtain_wall 5 glaze_sash . . .
glaze_sash 5 spray_fireproof insulate_walls . .
spray_fireproof 5 ceil_ducts_fixture . . .
ceil_ducts_fixture 5 test . . .
plumbing 10 test . . .
test 3 insulate_mechanical . . .
insulate_mechanical 3 lath . . .
insulate_walls 5 lath . . .
risers 10 ceil_ducts_fixture . . .
doors 1 port_masonry . . .
port_masonry 2 lath finish_masonry . .
electrical_walls 16 lath . . .
balance_elevator 3 finish_masonry . . .
finish_masonry 3 plaster marble_work . .
lath 3 plaster marble_work . .
plaster 5 floor_finish tiling acoustic_tiles .
marble_work 3 acoustic_tiles . . .
acoustic_tiles 5 paint finish_mechanical . .
tiling 3 paint finish_mechanical . .
floor_finish 5 paint finish_mechanical . .
paint 5 finish_paint . . .
finish_mechanical 5 finish_paint . . .
finish_paint 2 caulking_cleanup . . .
caulking_cleanup 4 finished . . .
finished 0 . . . .
;
proc cpm finishbefore date='1jan04'd out=sched;
activity activity;
duration dur;
successors success1-success4;
run;
proc sort;
by e_start;
run;
goptions hsize=9.0 in vsize=6.26 in;
goptions hpos=147 vpos=75 border;
pattern1 v=e c=green;
pattern2 v=e c=red;
title j=l h=3 ' Site: Multi-Story Building'
j=r ' Date: January 1, 2004';
footnote j=r h=2 'Controlling Display Format ';
proc netdraw data=sched graphics;
actnet / act = activity
succ = (success1-success4)
id = ( activity dur )
nolabel nodefaultid
boxwidth = 6
ybetween = 6
separatearcs;
run;
footnote j=r h=2 'Controlling Number of Pages';
proc netdraw data=sched graphics;
actnet / act = activity
succ = (success1-success4)
id = ( activity dur )
nolabel nodefaultid
boxwidth = 6
ybetween = 6
separatearcs
htext=2
nopagenumber
hpages=3 vpages=1;
run;