/* REXX */
/* Ermitteln des zur USER-ID gehörigen Lotus Accounts */
/* mittels fester Tabelle */
/* */
Version = "Version 0.50 vom 02.12.2002"
Autor = "JD"
Redakteur1 = "NN ........"
user = userid()
em = 'dummy'
select
when user = "ANWFI" then em = "[email protected]"
/* when ... */
otherwise say "Error in Lotus Assignment ,RC = "rc
say "User " user " unknown."
em = "dummy"
exit (12)
end
return em
¤ Dauer der Verarbeitung: 0.20 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|