
| Features: |
|
| Other features: |
|
options formchar="|----|+|---+=|-/\<>*";
data grant;
input jobnum Task $ 4-22 Days Succ1 $ 27-45 aldate : date7. altype $
_cal_ $;
format aldate date7.;
datalines;
1 Run Exp 1 11 Analyze Exp 1 . . Student
2 Analyze Exp 1 5 Send Report 1 . . Prof.
3 Send Report 1 0 Run Exp 2 . . Prof.
4 Run Exp 2 11 Analyze Exp 2 . . Student
5 Analyze Exp 2 4 Send Report 2 . . Prof.
6 Send Report 2 0 Write Final Report . . Prof.
7 Write Final Report 4 Send Final Report . . Prof.
8 Send Final Report 0 . . Student
9 Site Visit 1 18jul07 ms Prof.
;
data nowork; format holista date7. holifin date7.; input holista : date7. holifin : date7. name $ 17-32 _cal_ $; datalines; 04jul07 04jul07 Independence Day Prof. 03sep07 03sep07 Labor Day Prof. 04jul07 04jul07 Independence Day Student 03sep07 03sep07 Labor Day Student 16jul07 17jul07 PROF Vacation Prof. 16aug07 17aug07 STUDENT Vacation Student ;
proc cpm data=grant
date='01jul07'd
interval=weekday
out=gcpm1
holidata=nowork;
activity task;
successor succ1;
duration days;
calid _cal_;
id task;
aligndate aldate;
aligntype altype;
holiday holista / holifin=holifin;
run;
proc print data=gcpm1; title 'Data Set GCPM1, Created with PROC CPM'; run;
proc sort data=gcpm1; by e_start; run;
proc calendar data=gcpm1
holidata=nowork
interval=workday;
start e_start;
fin e_finish;
calid _cal_ / output=combine;
holistart holista;
holifin holifin;
holivar name;
var task;
title 'Schedule for Experiment X-15';
title2 'Professor and Student Schedule';
run;
data grant;
input jobnum Task $ 4-22 Days Succ1 $ 27-45 aldate : date7. altype $
_cal_ $;
format aldate date7.;
datalines;
1 Run Exp 1 11 Analyze Exp 1 . . Student
2 Analyze Exp 1 5 Send Report 1 . . Prof.
3 Send Report 1 0 Run Exp 2 . . Prof.
4 Run Exp 2 11 Analyze Exp 2 . . Student
5 Analyze Exp 2 4 Send Report 2 . . Prof.
6 Send Report 2 0 Write Final Report . . Prof.
7 Write Final Report 4 Send Final Report . . Prof.
8 Send Final Report 0 . . Student
9 Site Visit 1 18jul07 ms Prof.
;data nowork; format holista date7. holifin date7.; input holista : date7. holifin : date7. name $ 17-32 _cal_ $; datalines; 04jul07 04jul07 Independence Day Prof. 03sep07 03sep07 Labor Day Prof. 04jul07 04jul07 Independence Day Student 03sep07 03sep07 Labor Day Student 16jul07 17jul07 PROF Vacation Prof. 16aug07 17aug07 STUDENT Vacation Student ;
proc cpm data=grant
date='01jul07'd
interval=weekday
out=gcpm1
holidata=nowork;
activity task;
successor succ1;
duration days;
calid _cal_;
id task;
aligndate aldate;
aligntype altype;
holiday holista / holifin=holifin;
run;
