[NEWSboard IBMi Forum]
Seite 1 von 2 1 2 Letzte
  1. #1
    Registriert seit
    Jan 2012
    Beiträge
    1.102

    Systemname per Programm ermitteln

    Hallo,
    wenn man sich in einer Betriebssystemmaske befindet (z.b: in der Signon-Maske), steht doch ganz ober rechts der Systemname. Weiß jemand, wie man den in einem Programm ermitteln kann? (RPG, CL, oder SQL.)

    Hintergrund: Wir haben 2 Systeme. Ein Programm muss jetzt wissen, ob es auf dem Echtsystem oder dem Testsystem läuft. Ich könnte per RTVNETA den Systemnamen auslesen. Das ist aber nicht der Klartextname, sondern eine Nummer (D4412345). Die wird sich ja beim Kauf einer neuen iSeries wahrscheinlich ändern, denke ich.

    Dieter

  2. #2
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    Das ist aber genau dieser Wert.
    Den Wert kannst du per CHGNETA anpassen, was beim Systemumzug sehr hilfreich ist.
    Per Default steht da halt meist die Serien-Nr. der AS/400.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  3. #3
    Registriert seit
    Jan 2003
    Beiträge
    746
    Alternative: Eine DTAARA mit Inhalt 'TEST' oder 'PROD' in der QGPL (oder einer eigenen Bibliothek in QSYSLIBL).
    Vorteil: Der Datenbereich kann auch je Bibliothek abgelegt werden (falls Produktion und Testumgebung auf dem gleichen Blech laufen) oder weitere Ausprägungen haben (ja nach Anwendung, z.B. 'STOP' als Buchungssperre)

  4. #4
    Registriert seit
    Jan 2012
    Beiträge
    1.102
    Zitat Zitat von Fuerchau Beitrag anzeigen
    Das ist aber genau dieser Wert.
    Den Wert kannst du per CHGNETA anpassen, was beim Systemumzug sehr hilfreich ist.
    Per Default steht da halt meist die Serien-Nr. der AS/400.
    Merkwürdig. Bei uns liefert RTVNETA für den Parameter SYSNAME diese Nummer. In unserer Signon-Maske (und in allen anderen OS-Masken) steht aber etwas anderes (in dem Fall unser Firmenname). Wenn jemand den Namen mit CHGNETA angepasst hätte, müsste der RTVNETA eigentlich auch den angepassten Wert liefern. Ich forsche mal weiter.

  5. #5
    Registriert seit
    Jan 2012
    Beiträge
    1.102
    Zitat Zitat von RobertMack Beitrag anzeigen
    Alternative: Eine DTAARA mit Inhalt 'TEST' oder 'PROD' in der QGPL (oder einer eigenen Bibliothek in QSYSLIBL).
    Vorteil: Der Datenbereich kann auch je Bibliothek abgelegt werden (falls Produktion und Testumgebung auf dem gleichen Blech laufen) oder weitere Ausprägungen haben (ja nach Anwendung, z.B. 'STOP' als Buchungssperre)
    Danke für den Tipp. Daran habe ich auch schon gedacht. Ich finde es aber etwas "doppelt gemoppelt", den Wert nochmal abzulegen. Wenn wir keine bessere Lösung finden, werden wir das aber so machen. Bei solchen Lösungen befürchte ich immer, dass irgendwer mal die Bibliothek des Echtsystems auf das Testsystem überträgt und wir dann ein Problem bekommen.

  6. #6
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    Ich nehme mal an, da hat einer an der QDSIGNON gedreht.
    D.h., die DSPF ist für euer System angepasst worden und zeigt nicht mehr den NETA-Namen an.
    Es hindert dich schließlich niemand daran, diese DSPF unter Einhaltung der Restriktionen, zu ändern.
    M.a.W: In deiner QDSIGNON wird nicht der echte Systemname angezeigt.
    Was zeigt dann z.B. WRKSYSSTS an?
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  7. #7
    Registriert seit
    Jan 2012
    Beiträge
    1.102
    Zitat Zitat von Fuerchau Beitrag anzeigen
    Ich nehme mal an, da hat einer an der QDSIGNON gedreht.
    D.h., die DSPF ist für euer System angepasst worden und zeigt nicht mehr den NETA-Namen an.
    Es hindert dich schließlich niemand daran, diese DSPF unter Einhaltung der Restriktionen, zu ändern.
    M.a.W: In deiner QDSIGNON wird nicht der echte Systemname angezeigt.
    Was zeigt dann z.B. WRKSYSSTS an?
    Mea culpa! (oder wie der der Lateinamerikaner so ähnlich sagt). Ich habe einen dicken Klops gebaut! Du hast recht. RTVNETA liefert das korrekte Ergebnis. Ich wollte das gestern abend genau so bauen auf die Schnelle (nämlich RTVNETA auslesen). Dann bin ich jedoch auf eine Funktion in QSYS2 gestoßen, die mir den current_server zurückliefert. Daran habe ich gar nicht mehr gedacht. Deshalb liefert mein Tool den current_server (das ist der Datenbankname!). Ich habe das jetzt wirklich auf RTVNETA umgestellt: Und schon geht es!

    Sorry für meine Dummheit. Vielen Dank an alle, die sich mit der Anfrage beschäftigt haben.

  8. #8
    Registriert seit
    Mar 2002
    Beiträge
    5.286
    ... das sieht mir so aus, als ob da in eurem RDBDIR der *local Eintrag ein wenig schräg eingetragen ist, sprich: nach Änderung von CHGNETA nicht angepasst wurde.

    D*B
    AS400 Freeware
    http://www.bender-dv.de
    Mit embedded SQL in RPG auf Datenbanken von ADABAS bis XBASE zugreifen
    http://sourceforge.net/projects/appserver4rpg/

  9. #9
    Registriert seit
    Jan 2012
    Beiträge
    1.102
    Zitat Zitat von BenderD Beitrag anzeigen
    ... das sieht mir so aus, als ob da in eurem RDBDIR der *local Eintrag ein wenig schräg eingetragen ist, sprich: nach Änderung von CHGNETA nicht angepasst wurde.

    D*B
    Danke. Der Fehler ist aber gefunden. Siehe mein Post von 09.26 Uhr. War meine eigene Blödheit. Ich dachte, dass mein Tool RTVNETA macht. Es hat aber per QSYS2 SQL-Funktion den current_server ermittelt.

    Vielen Dank.

  10. #10
    Registriert seit
    Mar 2002
    Beiträge
    5.286
    ... current_server zieht seine Info (wohl) aus dem RDBDIR und sollte ebensowenig wie NETA auf der Maschinennummer stehen.

    D*B
    AS400 Freeware
    http://www.bender-dv.de
    Mit embedded SQL in RPG auf Datenbanken von ADABAS bis XBASE zugreifen
    http://sourceforge.net/projects/appserver4rpg/

  11. #11
    Registriert seit
    Jan 2012
    Beiträge
    1.102
    Zitat Zitat von BenderD Beitrag anzeigen
    ... current_server zieht seine Info (wohl) aus dem RDBDIR und sollte ebensowenig wie NETA auf der Maschinennummer stehen.
    D*B
    Mein Kollege sagte, die Nummer sei der Datenbankname. Es ist nicht die gleiche Nummer wie die QSRLNBR aus den Sysvals.

  12. #12
    Registriert seit
    Mar 2002
    Beiträge
    5.286
    Zitat Zitat von dschroeder Beitrag anzeigen
    Mein Kollege sagte, die Nummer sei der Datenbankname. Es ist nicht die gleiche Nummer wie die QSRLNBR aus den Sysvals.
    ... das war mal die frühere QSRLNBR, vor einem eurer letzten upgrades/Migrationen, der Datenbankname ist via WRKRDBDIRE einstellbar...
    AS400 Freeware
    http://www.bender-dv.de
    Mit embedded SQL in RPG auf Datenbanken von ADABAS bis XBASE zugreifen
    http://sourceforge.net/projects/appserver4rpg/

Similar Threads

  1. IBM i Partitions-Nr. via Programm ermitteln
    By B.Hauser in forum NEWSboard Programmierung
    Antworten: 4
    Letzter Beitrag: 16-01-15, 16:20
  2. Antworten: 0
    Letzter Beitrag: 15-10-14, 13:43
  3. aktuelles Statement in einem ILE-Programm eines fremden Jobs ermitteln
    By Ottersberg in forum NEWSboard Programmierung
    Antworten: 13
    Letzter Beitrag: 04-09-14, 11:31
  4. Aufrufendes Programm ermitteln
    By harkne in forum NEWSboard Programmierung
    Antworten: 17
    Letzter Beitrag: 03-04-14, 12:51
  5. Systemname ändern
    By delphix in forum IBM i Hauptforum
    Antworten: 5
    Letzter Beitrag: 30-11-01, 15:42

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • You may not post attachments
  • You may not edit your posts
  •