INIT:                                                
   control asis;                                      
return;                                              

MAIN:                                                
return;                                              

TERM:                                                
   if _status_='C' then return;                       
   if idŽ=_blank_ and dsnameŽ=_blank_ then do;        
      submit;                                          
   //JOBNAME JOB (,X111),'&id',NOTIFY=,TIME=(,5)        
   /*JOBPARM FETCH                                      
   // EXEC SAS606                                       
   //SYSIN DD *                                         
libname test '
              /* your.test.library */
                                     ';
proc print data=test.&dsname;                        
run;                                                 
   endsubmit;                                       
   rc=filename('fref','
                       /* your.flat.file */
                                           ');            
   rc=preview('file','fref');                       
   rc=preview('clear');                             
   rc=filename('fref','');                          
   rc=system("submit '                               
                      /* your.flat.file */
                                          '")       
   end;                                             
else do;                                           
   _msg_='You must enter values for ID and DSNAME.';
   _status_='R';
   end;
return;