A Design for a Three-Step Process

/****************************************************************/
/*          S A S   S A M P L E   L I B R A R Y                 */
/*                                                              */
/*    NAME: FACTEX19                                            */
/*   TITLE: A Design for a Three-Step Process                   */
/* PRODUCT: QC                                                  */
/*  SYSTEM: ALL                                                 */
/*    KEYS: Design of Experiments, Factorial Designs,           */
/*   PROCS: FACTEX GLM                                          */
/*    DATA:                                                     */
/*                                                              */
/*     REF: SAS/QC Software:  Usage and Reference, Version 6,   */
/*          First Edition, Volume 1 and Volume 2                */
/*                                                              */
/*          Ramirez, J. G. and Weisz, J. T. (2009), "Designing  */
/*             Multi-Step Fractional Factorial Split-Plots: A   */
/*             Combined JMP and SAS User Application," in       */
/*             Proceedings of the SAS Global Forum 2009         */
/*             Conference, Cary, NC: SAS Institute Inc.         */
/*    MISC:                                                     */
/*                                                              */
/****************************************************************/

%let F1 = Z;
%let F2 = A B C D E F G;
%let F3 = P Q R S T U V W;
proc factex;
   factors &F1 &F2 &F3;
   model r=max;
   size design=128;
   blocks units=(Step1=8 Step2=8);
   uniteffect Step1       / whole=(&F1) sub=(&F2 &F3);
   uniteffect Step1*Step2 / whole=(&F2) sub=(    &F3);
   examine aliasing(units) summary;
quit;

%let F1 = Z;
%let F2 = A B C D E F G;
%let F3 = P Q R S T U V W;
proc factex order=random(restart seed=1);
   factors &F1 &F2 &F3;
   model r=max / maxclear;
   size design=128;
   blocks units=(Step1=8 Step2=8);
   uniteffect Step1       / whole=(&F1) sub=(&F2 &F3);
   uniteffect Step1*Step2 / whole=(&F2) sub=(    &F3);
   examine summary;
quit;

%let F1 = Z;
%let F2 = A B C D E F G;
%let F3 = P Q R S T U V W;
proc factex;
   factors &F1 &F2 &F3;
   model r=max;
   size design=256;
   blocks units=(Step1=8 Step2=8);
   uniteffect Step1       / whole=(&F1) sub=(&F2 &F3);
   uniteffect Step1*Step2 / whole=(&F2) sub=(    &F3);
   examine aliasing(units);
quit;