/*��bung 1*/

text = "Buch,Internationale Gesch��ftst��tigkeiten in der Nach-BEPS-Welt,2018,Verlag Dr. Otto Schmidt,K��ln,J��rgen L��dicke,1. Auflage,978-3-504-61546-8,http://www.juris.de/jportal/?quelle=jlink&docid=samson-ovsFIB46T0000&psml=jurisw.psml&max=true&action=JLoginUser&username=SPE20027.autologin,"
parse var text Art "," Titel "," Erscheinungsjahr "," Verlag "," Ort "," AutorenHerausgeber "," Auflage "," ISBN "," URL 
say Art
say Titel
say Erscheinungsjahr
say Verlag
say Ort
say AutorenHerausgeber
say Auflage
say ISBN 
say URL
EXIT

/*��bung 2*/

SIGNAL ON USER too_old_literature
CALL CheckYear 2020
CALL CheckYear 2018
CALL CheckYear 2016
EXIT 0
too_old_literature: 
SAY "// caught exception 'too_old_literature' \\"
EXIT -1
::ROUTINE checkYear
PARSE ARG year
Say "--> year:" year
If year <= 2017 THEN RAISE USER too_old_literature
ELSE SAY "--> checked ok"
Exit 0