Quellcode-Bibliothek USERPR.REXX   Sprache: REXX

/* REXX  */                                                                     
/* Ermitteln des zur USER-ID gehörigen PRINTERs               */                
/* mittels fester Tabelle                                     */                
/*                                                            */                
                                                                                
   Version     = "Version 0.50 vom 18.06.2001"                                  
   Autor       = "JD"                                                           
   Redakteur1  = "NN ........"                                                  
                                                                                
   user = userid()                                                              
   pr = 'dummy'                                                                 
                                                                                
   select                                                                       
   when user = "ANWFI"   /* Finke */       then pr = "U005222"                  
   /* ... */
   otherwise          say "Error in Printer Assignment ,RC = "rc                
                      say "User " user " unknown."                              
                      pr = "dummy"                                              
                      exit (12)                                                 
   end                                                                          
                                                                                
   return pr