Euro-Spende: Euro-Umrechner für die AS/400

Die Firma Kapital & Wert, bestens betreut durch die Rudas EDV-Beratung, spendet einen AS/400-Euro-Rechner!

So sieht er aus:

Damit ist auch unsere Lieblings-Plattform endlich mit einem einfach zu bedienenden, korrekt rechnendem Euro-Rechner ausgestattet. Ihre Eingabe in einer der teilnehmenden Währungen (bzw. Euro) wird in alle teilnehmenden Währungen plus Euro umgerechnet. Das erfolgt natürlich, wie gesetzlich vorgeschrieben, über den Euro.

Sie können den Spender dieses Tools auch im Internet besuchen: http://www.kapital-wert.com

Auch der Autor des Programms freut sich über Ihren Besuch: http://www.rudas.at

Download:

Voraussetzungen: AS/400 mit RPG-Compiler, PC mit Verbindung zur AS/400

  1. Laden Sie das file euro.zip auf Ihren PC.
  2. Entpacken Sie das Programm mit WinZip. (www.winzip.com)
  3. Übertragen Sie die Dateien in Ihr QDLS-Dateisystem (also in einen Ordner).
  4. Holen Sie die Dateien mit folgenden Befehlen in Quellenteildateien: CPYFRMPCD FROMFLR(Ordnername) TOFILE(Bibliothek/Quellendatei) FROMDOC(EURO.DAT) TOMBR(EURO) TRNTBL(*NONE) TRNFMT(*NOTEXT) CPYFRMPCD FROMFLR(Ordnername) TOFILE(Bibliothek/Quellendatei) FROMDOC(EUROFM.DAT) TOMBR(EUROFM) TRNTBL(*NONE) TRNFMT(*NOTEXT)
  5. Erstellen Sie das Bildschirmformat mit CRTDSPF FILE(Bibliothek/EUROFM) SRCFILE(Bibliothek/Quellendatei) SRCMBR(EUROFM) ENHDSP(*YES) RSTDSP(*YES) DFRWRT(*NO)
  6. Erstellen Sie das RPG-Programm mit CRTRPGPGM PGM(Bibliothek/EURO) SRCFILE(Bibliothek/Quellendatei) SRCMBR(EURO)
  7. MitCALL Bibliothek/EUROsollten Sie nun in der Lage sein, das Programm zu starten.

Falls Sie nicht in der Lage sein sollten, die Sourcen in der oben beschriebenen Weise auf Ihre AS/400 zu übertragen, finden Sie hier die Listings, die Sie in diesem Fall mit "Copy & Paste" in eine Editorsession auf der AS/400 kopieren können.

Quelle für RPG-Programm EURO:

A*%%TS SD 19990118 164716 ZVPROG1 REL-V4R2M0 5769-PW1 A*%%EC A* UMWANDELN MIT ENHDSP(*YES), RSTDSP(*YES), DFRWRT(*NO) A DSPSIZ(24 80 *DS3) A PRINT A* ------------------------------------------------------------ A* B I L D 1: RECHENAUFGABE EURO-UMRECHNUNG A* ------------------------------------------------------------ A R BILD1 A*%%TS SD 19990118 164716 ZVPROG1 REL-V4R2M0 5769-PW1 A WINDOW(*DFT 14 39 *NOMSGLIN) A OVERLAY A CF03 A CF12 A 1 6' U m r e c h n u n g: ' A COLOR(YLW) A DSPATR(RI) A INP001 11Y 2B 3 1EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A CHECK(ER) A INP002 11Y 2B 4 1EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A CHECK(ER) A INP003 11Y 2B 5 1EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A CHECK(ER) A INP004 11Y 2B 6 1EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A CHECK(ER) A INP005 11Y 2B 7 1EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A CHECK(ER) A INP006 11Y 2B 8 1EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A CHECK(ER) A INP007 11Y 2B 9 1EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A CHECK(ER) A INP008 11Y 2B 10 1EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A CHECK(ER) A INP009 11Y 2B 11 1EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A CHECK(ER) A INP010 11Y 2B 12 1EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A CHECK(ER) A INP011 11Y 2B 13 1EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A CHECK(ER) A INP012 11Y 2B 14 1EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A CHECK(ER) A WHR001 3A O 3 16COLOR(PNK) A WHR002 3A O 4 16COLOR(PNK) A WHR003 3A O 5 16COLOR(PNK) A WHR004 3A O 6 16COLOR(PNK) A WHR005 3A O 7 16COLOR(PNK) A WHR006 3A O 8 16COLOR(PNK) A WHR007 3A O 9 16COLOR(PNK) A WHR008 3A O 10 16COLOR(PNK) A WHR009 3A O 11 16COLOR(PNK) A WHR010 3A O 12 16COLOR(PNK) A WHR011 3A O 13 16COLOR(PNK) A WHR012 3A O 14 16COLOR(PNK) A OUT001 15Y 2O 3 20EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A OUT002 15Y 2O 4 20EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A OUT003 15Y 2O 5 20EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A OUT004 15Y 2O 6 20EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A OUT005 15Y 2O 7 20EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A OUT006 15Y 2O 8 20EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A OUT007 15Y 2O 9 20EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A OUT008 15Y 2O 10 20EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A OUT009 15Y 2O 11 20EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A OUT010 15Y 2O 12 20EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A OUT011 15Y 2O 13 20EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A OUT012 15Y 2O 14 20EDTCDE(2) A DSPATR(UL) A COLOR(WHT) A* ------------------------------------------------------------ A* OVERLAY DES BILDSCHIRMS IM CALLERPROGRAMM OD. MENU A* ------------------------------------------------------------ A R §MENUE A ASSUME A OVERLAY A PROTECT A PUTOVR A OVRATR A 1 3' ' A* ------------------------------------------------------------

Quelle für displayfile EUROFM:

H D J EURO F* ============================= F* UMRECHNUNG VIA EURO (GÜLTIG AB 1.1.1999) F* ============================= F* KAPITAL & WERT, WIEN AUTHOR: I. RUDAS FEUROFM CF E WORKSTN E* ------------------------------------------------------------ E NAM 1 12 3 KURS 15 6 WÄHRUNG/KURS E INP 12 11 2 EINGABE-GELD E OUT 12 15 2 AUSGABE E CAL 12 19 6 RECHENWERT E* ------------------------------------------------------------ I* ------------------------------------------------------------ ISIBERT DS I 1 132 INP I 1 112INP001 I 12 222INP002 I 23 332INP003 I 34 442INP004 I 45 552INP005 I 56 662INP006 I 67 772INP007 I 78 882INP008 I 89 992INP009 I 100 1102INP010 I 111 1212INP011 I 122 1322INP012 I* ------------------------------------------------------------ ISIDOR DS I 1 180 OUT I 1 152OUT001 I 16 302OUT002 I 31 452OUT003 I 46 602OUT004 I 61 752OUT005 I 76 902OUT006 I 91 1052OUT007 I 106 1202OUT008 I 121 1352OUT009 I 136 1502OUT010 I 151 1652OUT011 I 166 1802OUT012 I* ------------------------------------------------------------ IRINA DS I 1 36 NAMO I 1 3 WHR001 I 4 6 WHR002 I 7 9 WHR003 I 10 12 WHR004 I 13 15 WHR005 I 16 18 WHR006 I 19 21 WHR007 I 22 24 WHR008 I 25 27 WHR009 I 28 30 WHR010 I 31 33 WHR011 I 34 36 WHR012 I* ------------------------------------------------------------ C MOVEANAM NAMO WÄHRG BEZEICHNUNG C Z-ADD0 INP C Z-ADD0 OUT C Z-ADD0 CAL C *INKC DOUEQ*ON C *INKL OREQ *ON C WRITEBILD1 C Z-ADD0 INP C READ BILD1 20 C 20 COR KC COR KL LEAVE C* C Z-ADD0 OUT C Z-ADD0 CAL C* EINGABE IN EURO UMWANDELN C 1 DO 12 X 20 C INP,X IFNE 0 C INP,X DIV KURS,X CAL,1 C ENDIF C ENDDO X 1-12 C* TABELLE VON OBEN NACH UNTEN NEU ERRECHNEN C 1 DO 12 X C INP,X IFEQ 0 C CAL,1 MULT KURS,X CAL,X C CAL,X MULT 1 OUT,X H C ELSE C Z-ADDINP,X OUT,X C Z-ADD0 INP,X C ENDIF C ENDDO X 1-12 C* C ENDDO KC DO UNTIL *ON C SETON LR C* ------------------------------------------------------------ ** WÄHRUNGSUMRECHNUNG ÜBER EURO-LEITKURS VOM 31.12.1998: EUR000000001000000 1 ATS000000013760300 2 DEM000000001955830 3 BFR000000040339900 4 PTS000000166386000 5 FFR000000006559570 6 IRL000000000787564 7 LIT000001936270000 8 LUX000000040339900 9 HFL000000002203710 10 ESC000000200482000 11 FIM000000005945730 12