|
/* 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
¤ Dauer der Verarbeitung: 0.2 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
