/**********************************************************************/


MAIN:                     
   submit continue sql;   
      validate            
         select *         
         from test.example
         where &scrwhere; 
   endsubmit;             
   check=symgetn('sqlrc');
return;                   


/**********************************************************************/


INIT:
   dsid=open('test.example');                        
return;                                              
                                                     
MAIN:                                                
   rc=where(dsid,'num='||put(scrnum,3.));            
   submit continue sql;                              
      reset noprint;                                 
      select count(*) into :mycount from test.example
      where num=&scrnum;                             
   endsubmit;                                        
   obs=symgetn('mycount');                           
return;                                              
                                                     
TERM:                                                
   rc=close(dsid);                                   
return;                                              


/**********************************************************************/


INIT:                        
   dsid=open('test.example');
return;
                                                     
MAIN:                                                
   rc=where(dsid,'num='||put(scrnum,3.));            
   submit continue sql;                              
      reset noprint;                                 
      select count(*) into :mycount from test.example
      where num=&scrnum;                             
   endsubmit;                                        
   obs=symgetn('mycount');                           
return;                                              
                                                     
TERM:                                                
   rc=close(dsid);                                   
return;


/**********************************************************************/


INIT:                        
   dsid=open('test.example');
return;                      
                             
MAIN:                        
   rc=where(dsid,"name='"||scrname||"'");            
   submit continue sql;                              
      reset noprint;                                 
      select count(*) into :mycount from test.example
      where name="&scrname";                         
   endsubmit;                                        
   obs=symgetn('mycount');                           
return;                                              
                                                     
TERM:                                                
   rc=close(dsid);                                   
return;


/**********************************************************************/