-
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
-
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.
-
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)
-
Zitat von Fuerchau
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.
-
Zitat von RobertMack
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.
-
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?
-
Zitat von Fuerchau
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.
-
... 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
-
Zitat von BenderD
... 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.
-
... current_server zieht seine Info (wohl) aus dem RDBDIR und sollte ebensowenig wie NETA auf der Maschinennummer stehen.
D*B
-
Zitat von BenderD
... 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.
-
Zitat von dschroeder
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...
Similar Threads
-
By B.Hauser in forum NEWSboard Programmierung
Antworten: 4
Letzter Beitrag: 16-01-15, 15:20
-
By mott in forum NEWSboard Programmierung
Antworten: 0
Letzter Beitrag: 15-10-14, 12:43
-
By Ottersberg in forum NEWSboard Programmierung
Antworten: 13
Letzter Beitrag: 04-09-14, 10:31
-
By harkne in forum NEWSboard Programmierung
Antworten: 17
Letzter Beitrag: 03-04-14, 11:51
-
By delphix in forum IBM i Hauptforum
Antworten: 5
Letzter Beitrag: 30-11-01, 14:42
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks