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


proc pmenu cat=sasuser.profile;
   menu mymenu;                
   item HELP;                  
   item END;                   
   item CANCEL;                
quit;                          


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


save sasuser.profile.mymenu.source


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


copy sasuser.profile.mymenu.source


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


catalog sasuser.profile


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


FSEINIT:                                    
   rc=pmenu('sasuser.profile.mymenu.pmenu');
   call execcmd('pmenu on;');               
return;                                     


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


proc fsview data=sasuser.class             
     formula=sasuser.formula.class.formula;
run;                                       


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


setpmenu sasuser.profile.mymenu.pmenu


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


INIT:                                                      
   rc=filename('listing','
                          /* my.listing.file */
                                               ');      
return;                                                    

MAIN:                                                      
   call execcmd('fslist listing;');                        
   call execcmd('pmenu on;'||                              
                'set pmenu sasuser.profile.mymenu.pmenu;');
return;                                                    

TERM:                        
   rc=filename('listing','');                                             
return;

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


INIT:                                                    
   rc=filename('listing','
                          /* my.listing.file */
                                               ');
return;                                                  

MAIN:                                                    
   call execcmd('pmenu on;'||                            
                'setpmenu sasuser.profile.mymenu.menu;');
   call fslist('listing');                               
return;                                                  

TERM:                                                    
   rc=filename('listing','');                            
return;                                                  


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


proc pmenu cat=sasuser.profile; 
   menu edbrow;                 
   item 'GOBACK' selection=end; 
   item 'EDIT'   selection=ed;  
   item 'BROWSE' selection=brow;
   selection ed   'EDIT';       
   selection brow 'BROWSE';     
   selection end  'END';        
quit;                           


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


INIT:                                                     
   control always;                                        
return;                                                   

MAIN:                                                     
   cmd=word(1,'U');                                      
   select (cmd);                                          
     when ('EDIT')    call fsedit('sasuser.class','',cmd);
     when ('BROWSE')  call fsedit('sasuser.class','',cmd);
     otherwise;                                           
   end;                                                   
return;                                                   

TERM:                                                     
return;    


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


proc pmenu cat=sasuser.profile;
   menu null;                  
   item '' selection=blank;    
   selection blank '';         
run;


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