November 2022 - Wu_bp_2022w

G02 P03
by Kattavenos-Lukan, Maria 06 Nov '22

06 Nov '22

Liebe Alle, Hier unsere beiden Programme: 1: [cid:B13129D0-AE0A-4A28-9233-D245F4DCDB8E] [cid:02FF709A-8FEB-401F-8AE3-F2E3F6B4A367] 2: [cid:57A2512B-66AF-41BD-8B78-A4D8CDA01A68] [cid:1C3350BE-B547-47F2-9B03-0A425EE86638] LG Magda und Maria

1 0

Fwd: Erklärung ... (Re: G03 T03
by Rony G. Flatscher 04 Nov '22

04 Nov '22

Liebe Alle, oops, meine Antwort erging nur an Jana, hier an alle. Mit freundlichem Gruß Rony G. Flatscher -------- Forwarded Message -------- Subject: Erklärung ... (Re: [Wu_bp_2022w] G03 T03 Date: Fri, 4 Nov 2022 18:02:47 +0100 From: Rony G. Flatscher <Rony.Flatscher(a)wu.ac.at> To: Jana Korunovska <jana.korunovska(a)wu.ac.at> On 03.11.2022 15:32, Jana Korunovska wrote: > > Ups, ich war ein bisschen übereifrig, dies ist der richtige E-Mail-Betreff. > > Und eine Frage: weiß jemand, warum wir bei unserer ersten Übung den Befehl RAISE USER > something_raised in der vorletzten Zeile nicht sehen? > Ja! ;) Hier eine Variante des Programms, danach die Erklärung: CALL ON ANY /* intercept anything that is not caught explicitly */ CALL ON USER GRUNDSTUFE /* intercept a user exception GRUNDSTUFE*/ CALL ON USER UNTERSTUFE /* intercept a user exception UNTERSTUFE */ CALL ON USER OBERSTUFE /* intercept a user exception OBERSTUFE */ CALL stufe 1 CALL stufe 2 CALL stufe "oberstufe" /* <- this is line # 7 */ CALL stufe 4 /* <- this is line # 8 */ CALL stufe 3 CALL stufe "grundstufe" /* <- this is line # 10 */ CALL stufe "uni" /* <- this is line # 11 */ EXIT 0 ANY : SAY "in Linie:" SIGL "Exception:" CONDITION("C"); RETURN grundstufe: SAY "[caught exception 'GRUNDSTUFE' ]"; RETURN unterstufe: SAY "[ caught exception 'UNTERSTUFE']"; RETURN oberstufe:SAY "[caught exception 'OBERSTUFE' ]"; RETURN ::ROUTINE stufe PARSE ARG stufe SAY ':STUFE:' STUFE *say "-> stufe>3:" stufe ">" 3":" (stufe > 3)* IF STUFE =1 | stufe = "grundstufe" THEN RAISE USER grundstufe; if stufe = 2 | stufe = "unterstufe" then raise user unterstufe; if stufe =3 | stufe = "oberstufe" then raise user oberstufe ELSE IF stufe > 3 THEN RAISE USER irrelevant ELSE SAY '--> checked o.k.' Hier die Ausgaben: REXXout>:STUFE: 1 REXXout>*-> stufe>3: 1 > 3: 0* REXXout>[caught exception 'GRUNDSTUFE' ] REXXout>:STUFE: 2 REXXout>*-> stufe>3: 2 > 3: 0* REXXout>[ caught exception 'UNTERSTUFE'] REXXout>:STUFE: oberstufe REXXout>*-> stufe>3: oberstufe > 3: 1* REXXout>[caught exception 'OBERSTUFE' ] REXXout>:STUFE: 4 REXXout>*-> stufe>3: 4 > 3: 1* REXXout>in Linie: 10 Exception: USER IRRELEVANT REXXout>:STUFE: 3 REXXout>*-> stufe>3: 3 > 3: 0* REXXout>[caught exception 'OBERSTUFE' ] REXXout>:STUFE: grundstufe REXXout>*-> stufe>3: grundstufe > 3: 1* REXXout>[caught exception 'GRUNDSTUFE' ] REXXout>:STUFE: uni REXXout>*-> stufe>3: uni > 3: 1* REXXout>in Linie: 13 Exception: USER IRRELEVANT Hier die Erklärung: Nachdem in Rexx alles Zeichenketten sind, wird Zeichen für Zeichen verglichen (führende und nachfolgende Leerzeichen werden normalerweise ignoriert). Die Position eines Zeichens in der Zeichensatztabelle [1],[2] bestimmt, ob ein Zeichen kleiner oder größer als ein anderes ist. Ein Zeichen ist dann kleiner als ein anderes, wenn dessen Position in der Zeichensatztabelle kleiner (niedriger ist), sonst ist es entweder gleich (wenn es mit dem gleichen Zeichen verglichen wird) oder größer. Eine "Zeichensatztabelle" besteht üblicherweise aus 256 Zeichen, deren Positionen von 0 bis 255 nummeriert sind. Die ersten 128 Zeichen (in den Positionen von 0 bis 127) sind der "ASCII"-Zeichensatz [3] und ist in allen Zeichensatztabellen gleich belegt. Die 128 weiteren Zeichen (von Position 128 bis 255) sind je nach Zeichensatztabelle unterschiedlich mit Zeichen belegt. In unseren Breiten wird die Zeichensatztabelle 850, "Western Europe", [4] (oder in Windows, z.B. in MS Word die Zeichensatztabelle 1252, "Latin 1", [5]) verwendet, die die häufigst gebrauchten westeuropäischen Zeichen in den Positionen von 128 bis 255 beinhaltet, so z.B. unsere deutschen Sonderzeichen und das scharfe s. Die folgenden Vergleiche ergeben "1" (wahr, .true): **-> *stufe>3: grundstufe > 3: 1 **-> stufe>3: uni > 3: 1* Also "grundstufe" ist größer als "3", "uni" ist größer als "3" ! Wenn man jetzt die Positionen von "g" (erster Buchstabe in "grundstufe") und "3" in der Zeichensatztabelle sucht ist "g" auf Position 103 (dezimal), "3" auf Position 51 (dezimal). 103 ist tatsächlich größer 51, daher ist das Ergebnis des Vergleichs "1" (wahr, .true)! Bei "uni" suchen wir den ersten Buchstaben "u", der auf Position 117 (dezimal) liegt. 117 ist auch hier größer als 51, daher ist das Ergebnis des Vergleichs "1" (wahr, .true)! Um in Eurem Beispiel "USER SOMETHING_RAISED" aufzurufen ist es notwendig, die Bezeichnung mit einem Zeichen beginnen zu lassen, das vor der Position 51 (die Ziffer "3") liegt, z.B. die Raute ("#" auf Position 35). Eine mögliche Bezeichnung wäre dann z.B. "#uni". Wenn Ihr dann folgende Anweisung einfügt: CALL stufe "#uni" Dann wird die Ausgabe des Programms wie folgt sich ändern: ... cut ... REXXout>:STUFE: #uni REXXout>->*stufe>3: #uni > 3: 0* REXXout>--> checked o.k. REXXout>*in Linie: 12 Exception: USER SOMETHING_RAISED* Einfach im eigenen Code ausprobieren! Zeichensatztabellen werden uns wieder begegnen, daher zahlt es sich aus, sich ein wenig damit auseinanderzusetzen. Die beigefügten deutschen und englischen Links liefern die entsprechenden Hintergrundinformationen. Eine schöne Wochenendlektüre! ;) HTH ---rony [1] <https://de.wikipedia.org/wiki/Zeichensatztabelle> [2] <https://en.wikipedia.org/wiki/Code_page> [3] <https://en.wikipedia.org/wiki/ASCII> [4] <https://de.wikipedia.org/wiki/Codepage_850> [5] <https://en.wikipedia.org/wiki/Code_page_850> [6] <https://de.wikipedia.org/wiki/Windows-1252> [7] <https://en.wikipedia.org/wiki/Windows-1252> -- -- __________________________________________________________________________________ Prof. Dr. Rony G. Flatscher Department Wirtschaftsinformatik und Operations Management Institut für Wirtschaftsinformatik und Gesellschaft D2c 2.086 WU Wien Welthandelsplatz 1 A-1020 Wien/Vienna, Austria/Europe http://www.wu.ac.at __________________________________________________________________________________

1 0

GR1 HÜ3
by Selak, Kenan 04 Nov '22

04 Nov '22

Liebe alle, nachstehend unsere HÜ: Liebe Grüße Kenan Bsp1: SAY pp("Ich") CALL testroutine /* routine is called */ SAY pp("ich") EXIT 0 pp : RETURN "<<<" || ARG(1) || ">>>" :: ROUTINE testroutine SAY pp("bin") EXIT 0 pp : RETURN "[" || ARG(1) || "]" Bsp2: CALL ON USER TOO_SMALL CALL ON USER TOO_BIG CALL checkWeight 100 CALL checkWeight 85 CALL checkWeight 60 CALL checkWeight 40 CALL checkWeight 50 EXIT 0 TOO_SMALL: SAY "// caught exception 'TOO_SMALL' \\"; RETURN TOO_BIG : SAY "// caught exception 'TOO_BIG' \\"; RETURN ::ROUTINE checkWeight PARSE ARG weight SAY '--> weight:' weight IF weight < 50 THEN RAISE USER too_small ELSE IF weight > 80 THEN RAISE USER too_big ELSE SAY '--> checked o.k.' EXIT 0 OUTPUT: REXXout>--> weight: 100 REXXout>// caught exception 'TOO_BIG' \\ REXXout>--> weight: 85 REXXout>// caught exception 'TOO_BIG' \\ REXXout>--> weight: 60 REXXout>--> checked o.k. REXXout>--> weight: 40 REXXout>// caught exception 'TOO_SMALL' \\ REXXout>--> weight: 50 REXXout>--> checked o.k.

1 0

HÜ Gruppe 5
by Johnsen, Claudia 03 Nov '22

03 Nov '22

Liebe alle, anbei unsere HÜ Liebe Grüße Hans und Claudia Programm 1: Signal on user zu_leicht Call checkGewicht 100 Call checkGewicht 30 Call checkGewicht 50 Exit 0 zu_leicht: Say "zu leicht" Exit -1 ::Routine checkGewicht Parse Arg Gewicht Say "Gewicht:" Gewicht If Gewicht < 50 Then Raise User zu_leicht Else Say "-> ok" Exit 0 Output: REXXout>Gewicht: 100 REXXout>-> ok REXXout>Gewicht: 30 REXXout>zu leicht Programm 2: Call on user zu_leicht Call checkGewicht 100 Call checkGewicht 30 Call checkGewicht 50 Exit 0 zu_leicht: Say "zu leicht" Return ::Routine checkGewicht Parse Arg Gewicht Say "Gewicht:" Gewicht If Gewicht < 50 Then Raise User zu_leicht Else Say "-> ok" Exit 0 Output: REXXout>Gewicht: 100 REXXout>-> ok REXXout>Gewicht: 30 REXXout>zu leicht REXXout>Gewicht: 50 REXXout>-> ok

1 0

G03 T03
by Jana Korunovska 03 Nov '22

03 Nov '22

Ups, ich war ein bisschen übereifrig, dies ist der richtige E-Mail-Betreff. Und eine Frage: weiß jemand, warum wir bei unserer ersten Übung den Befehl RAISE USER something_raised in der vorletzten Zeile nicht sehen? Danke!

1 0

G04 T04
by Jana Korunovska 03 Nov '22

03 Nov '22

Liebe alle, hier unsere HÜ. MFG, Jana und Birgit ### 1 ### CALL ON ANY /* intercept anything that is not caught explicitly */ CALL ON USER GRUNDSTUFE /* intercept a user exception GRUNDSTUFE*/ CALL ON USER UNTERSTUFE /* intercept a user exception UNTERSTUFE */ CALL ON USER OBERSTUFE /* intercept a user exception OBERSTUFE */ CALL stufe 1 CALL stufe 2 CALL stufe "oberstufe" /* <- this is line # 7 */ CALL stufe 4 /* <- this is line # 8 */ CALL stufe 3 CALL stufe "grundstufe" /* <- this is line # 10 */ CALL stufe "uni" /* <- this is line # 11 */ EXIT 0 ANY : SAY "in Linie:" SIGL "Exception:" CONDITION("C"); RETURN grundstufe: SAY "[caught exception 'GRUNDSTUFE' ]"; RETURN unterstufe: SAY "[ caught exception 'UNTERSTUFE']"; RETURN oberstufe:SAY "[caught exception 'OBERSTUFE' ]"; RETURN ::ROUTINE stufe PARSE ARG stufe SAY ':STUFE:' STUFE IF STUFE =1 | stufe = "grundstufe" THEN RAISE USER grundstufe; if stufe = 2 | stufe = "unterstufe" then raise user unterstufe; if stufe =3 | stufe = "oberstufe" then raise user oberstufe ELSE IF stufe > 3 THEN RAISE USER irrelevant ELSE SAY '--> checked o.k.' RAISE USER something_raised EXIT 0 OUTPUT. :STUFE: 1 [caught exception 'GRUNDSTUFE' ] :STUFE: 2 [ caught exception 'UNTERSTUFE'] :STUFE: oberstufe [caught exception 'OBERSTUFE' ] :STUFE: 4 in Linie: 8 Exception: USER IRRELEVANT :STUFE: 3 [caught exception 'OBERSTUFE' ] :STUFE: grundstufe [caught exception 'GRUNDSTUFE' ] :STUFE: uni in Linie: 11 Exception: USER IRRELEVANT Process finished with exit code 0 ### 2 ### Program rexx.rexx SAY "1. Wie ist dein Vorname??" PARSE PULL Vorname SAY "Dein Vorname ist" pp(Vorname) say -- empty line SAY "2.Wie ist dein Nachname?" parse PULL Nachname SAY "Dein Nachname ist" pp(Nachname) say -- empty line SAY "3. Wie alt bist du??" parse pull alt if alt <25 then say "Du bist" alt "Jahre alt. Wow, du bist jung!" if alt >= 25 then say "Du bist" alt "Jahre alt. Wow, du bist klug!" EXIT PP : RETURN "[" || ARG(1) || "]" -- "pretty print" ;) File myinput.txt: Max Bauer 44 Moritz Fischer 12 ## in CMD: C:\Users\jkorunov> cd IdeaProjects\untitled C:\Users\jkorunov\IdeaProjects\untitled>rexx.rexx <myinput.txt 1. Wie ist dein Vorname?? Dein Vorname ist [Max] 2.Wie ist dein Nachname? Dein Nachname ist [Bauer] 3. Wie alt bist du?? Du bist 44 Jahre alt. Wow, du bist klug!

1 0

2025

2024

2023

2022

Wu_bp_2022w November 2022