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


INIT:                                                       
   \ob SCL statements \obe                                  
      /* Initialize system variable                       */
   system=symget('SYSSCP') ;                                
      \ob more SCL statements \obe                          
return;                                                     


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


   /*   Note:  Host-dependent Code                        */            
select(system);                                                         
   when('OS')                                                           
   do;


                                                                  
   end;                                                                 
   when('CMS')                                                          
   do;                                                                  



   end;                                                                 
   when('VMS')                                                          
   do;                                                                  



   end;                                                                 
   when('OS2')                                                          
   do;                                                                  



   end;                                                                 
   otherwise;                                                           
end;


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


select(phsystem);                                
   when('OS')  batfile='&batfile';               
   when('CMS') batfile='batfile temp a3';        
   when('VMS') batfile='sas$worklib:batfile.dat';
   when('OS2') batfile='\bslash batfile.tmp';    
   otherwise;                                    
end; 


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


select(phsystem);                       
   when('OS') call method('batmvs.scl');
   when('CMS') call method('batcms.scl');
   when('VMS') call method('batvms.scl');
   when('OS2') call method('batos2.scl');
   otherwise;                            
end;                                     
 

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


   /* Call child window                                   */
if winfo('ICON') then call display('icontab.program');      
else call display('menutab.program');                       

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


   /* Reset PF keys as necessary                          */
do indx=1 to numfkeys() ;                                   
   command=upcase(getfkey(fkeyname(indx))) ;                
   if ((index(command, 'BYE'))       |                      
       (index(command, 'ENDSAS'))    |                      
       (index(command, 'KEYS'))      |                      
       (index(command, 'LOG'))       |                      
       (index(command, 'NEXT'))      |                      
       (index(command, 'OUT'))       |                      
       (index(command, 'PGM'))       |                      
       (index(command, 'PMENU'))     |                      
       (index(command, 'PREVWIN'))   |                      
       (index(command, 'PROGRAM'))) then                    
   call setfkey(fkeyname(indx), ' ') ;                      
end;


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


call execcmd('pgm off;log off;');
                                                                                                                                                                       
 
/**********************************************************************/