/* Method 2: Open Code with the CALL EXECUTE Routine      */

data _null_;
   set pfile;
   filename=compress(strand||grade||form);
   call execute('data '||filename||';'||
    'infile dd('||filename||');'||
    'input @'||mstart||' (m1-m'||left(mnum)||') ($1.)'||
    '@'||ostart||' (o1-o'||left(onum)||') (1.);run;'||
    'proc freq; tables m1-m'||left(mnum)||
    ' o1-o'||left(onum)||'; run;');
run;