Use of the INFEASDIAGNOSTIC Option (cpme17)

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: CPME17                                              */
 /*   TITLE: Use of the INFEASDIAGNOSTIC Option (cpme17)         */
 /* PRODUCT: OR                                                  */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: CPM                                                 */
 /*   PROCS: CPM                                                 */
 /*    DATA:                                                     */
 /*                                                              */
 /* SUPPORT:                             UPDATE:                 */
 /*     REF: Example 17 from the CPM Chapter (PM User's Guide)   */
 /*    MISC:                                                     */
 /*                                                              */
 /****************************************************************/


 /* Activity-on-Arc representation of the project */
data widgr17;
   input task $ 1-12 days tail head deseng mktan prodeng money;
   datalines;
Approve Plan   5   1   2  1  1  1  200
Drawings      10   2   3  1  .  1  100
Study Market   5   2   4  .  1  1  100
Write Specs    5   2   3  1  .  1  150
Prototype     15   3   5  1  .  1  300
Mkt. Strat.   10   4   6  .  1  .  150
Materials     10   5   7  .  .  .  300
Facility      10   5   7  .  .  1  500
Init. Prod.   10   7   8  .  .  .  250
Evaluate      10   8   9  1  .  .  150
Test Market   15   6   9  .  1  .  200
Changes        5   9  10  1  .  1  200
Production     0  10  11  1  .  1  600
Marketing      0   6  12  .  1  .    .
Dummy          0   8   6  .  .  .    .
;


title 'Use of the INFEASDIAGNOSTIC Option';
title2 'Data Set WIDGR17';
proc print;
   run;

data resin17;
input per date7. otype $ 11-18 deseng mktan prodeng money;
format per date7.;
datalines;
.         restype  1  1 1 4
01dec03   reslevel 1  . 1 .
;


title 'Use of the INFEASDIAGNOSTIC Option';
title2 'Data Set RESIN17';
proc print;
   run;

data holdata;
format hol date7.;
input hol date7. name $ 10-18;
datalines;
25dec03  Christmas
01jan04  New Year
;

proc cpm date='01dec03'd interval=weekday
         data=widgr17 holidata=holdata resin=resin17
         out=widgo17s;
   tailnode tail;
   duration days;
   headnode head;
   holiday hol;
   resource deseng / period=per obstype=otype
                     delayanalysis;
   id task;
   run;


title 'Use of the INFEASDIAGNOSTIC Option';
title2 'Resource Constrained Schedule: Single Resource';
proc print data=widgo17s;
   run;

proc cpm date='01dec03'd interval=weekday
         data=widgr17 holidata=holdata resin=resin17
         out=widgo17m resout=widgro17;
   tailnode tail;
   duration days;
   headnode head;
   holiday hol;
   resource deseng prodeng mktan money / period=per obstype=otype
                                         delayanalysis
                                         delay=5
                                         infeasdiagnostic
                                         cumusage
                                         rcprofile avprofile;
   id task;
   run;

title 'Use of the INFEASDIAGNOSTIC Option';
title2 'Resource Constrained Schedule: Multiple Resources';
proc print data=widgo17m;
run;

title 'Use of the INFEASDIAGNOSTIC Option';
title2 'Usage Profile: Multiple Resources';
proc print data=widgro17;
   run;