/* Appendix 2 Sample Application Stream and Job JCL           */


// JOB CARD
//P1 EXEC SAS
//SYSIN    DD *

   /* Application Stream Initialization                       */
options source nosource2 S=72 S2=72; /* HOST                  */

   /* HOST change for %let stmts                              */
%let mfcsrref=source; /* DATA step source fileref             */
%let mfcsrlib=hilevel.sas.applica; /* HOST lib location       */
filename &mfcsrref "&mfcsrlib" dsorg=po shr; /* HOST          */

   /* Different streams or applications can use the same      */
   /* MFC code via different INIT files.                      */
%include &mfcsrref(mfcinita); /* HOST                         */
   /* End Initialization */

   /* Other application code could go here prior to using     */
   /* MFC in the stream.                                      */

           /* DATA step name    MFC choice                    */
%mfcdrivr(mfcchpgm=mfcsamp1,mfcch=sourced); /* driver macro   */

   /* example DATA step not be compiled, MFCSAMP2 input       */
data intosamp;  stateabr='NY';  state='NEW YORK';
 var1=-1; var2=2;  var3=3;   output;
 var1=1;  var2=-2; var3=3;   output;
 var1=-1; var2=2;  var3=-3;  state='TESTIT'; output;
run;

%let macvar=state;      /* needed by DATA step                */
        /* DATA step name    MFC choice                       */
%mfcdrivr(mfcchpgm=mfcsamp2,mfcch=cpendit); /* driver macro   */

proc print; run; /* output of mfcsamp2                        */