-
per SQL: RTVNETA SYSNAME?
Hallo zusammen,
Frage: Kann man per SQL den aktuellen Systemnamen (RTVNETA SYSNAME...) zugreifen?
Danke
-
Wir wärs mit dem aktuellen Datenbanknamen (SELECT CURRENT SERVER FROM ...)?
-
Du kannst dir ein kleines CL schreiben und dieses als SQL Funktion deklarieren.
lg Andreas
-
Danke, habe das mit der SQL Funktion gemacht bzw. zeigen lassen :-). Schon geil was alles machbar ist.
-
Kannst Du die mal posten? Würde mich auch mal interessieren da ich damit noch gar nichts gemacht habe.GG
-
CLLE-Code:
PGM &SYSNAME
DCL &SYSNAME *CHAR 8
RTVNETA SYSNAME(&SYSNAME)
Das mit 15 + CRTSRVPGM umwandeln etc.
Dazu ne SQL-Funktion
create function LIB/sysname ()
returns char(8)
external name 'LIB/SYSNAME(SYSNAME)'
language cl
not deterministic
no sql
parameter style db2sql
no external action
Dann kannst mit im SQL z.B. per values(SYSNAME()) drauf zugreifen.
Funktioniert auf jeden Fall :-)
-
Hallo,
ich habe gerade den Beitrag gelesen. Wir schreiben viele Serviceprogramme, aber wir sind noch nicht auf die Idee gekommen, ein CL-Programm direkt als Serviceprogramm zu erstellen. Deshalb die Frage: Kann man ein CL-Serviceprogramm auch mit einem langen Namen versehen? Z.B: retrieveSysname() oder so?
Gruß, Dieter
-
Du kannst ein CLLE-Modul erstellen (CRTCLMOD), dass du dann per CRTSRVPGM überführst.
Du kannst CLLE-Module auch ein ein Serviceprogramm mit mehreren Modulen zusammenfassen.
-
OK, danke. Das habe ich verstanden. Aber kann man auch einen sprechenden Namen vergeben? In einem RPG-Serviceprogramm, das den Objektnamen TEST01 hat, könnte ich ja eine exportierte Procedure mit dem Namen "dies_ist_ein_langer_Name" haben. Geht das in CL auch? Oder bin ich bei CL-Serviceprogrammen auf 10 Zeichen beschränkt?
-
Das ist und bleibt nun mal CL.
Mach doch einfach einen ILERPG-Wrapper drumrum
-
Das machen wir ja. Aber durch die Diskussion oben hatte ich gehofft, es gäbe eine elegantere Möglichkeit. Z.B. ein Schlüsselwort EXPORT für CLLE.
Wenn jemandem noch etwas dazu einfällt, bitte melden.
Vielen Dank.
Dieter
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