Dieses Kapitel behandelt folgende Themen:
Sie haben zwei Möglichkeiten, ein Diensteverzeichnis (Service Directory) zu verwenden:
Verwendung eines Service Directory in einem
Natural-Subprogramm
Normalerweise verwendet der Natural RPC zum Auffinden eines
Dienstes ein Service Directory in einem Natural-Subprogramm. Dieses Verzeichnis
ist eine initialisierte LDA-Datenstruktur im Programm NATCLTGS,
die in der SYSRPC Utility mit der Funktion
Service Directory
Maintenance generiert wird und jeder RPC-Client-Anwendung
zur Verfügung stehen muss.
Sie können ein Remote Directory verwenden, um einen Dienst zu finden. Ein Remote Directory Server (RDS) ermöglicht es Ihnen, Verzeichnisdefinitionen an einer Stelle zu definieren, so dass die Dienste des RDS von allen Clients in Ihrer Umgebung verwendet werden können.
In diesem Abschnitt wird beschrieben, wie Sie einen Remote Directory Server verwenden, um einen Dienst zu finden.
Der Remote Directory Server wird in Form eines Natural-Subprogramms implementiert.
Ein Beispiel für ein solches Subprogramm ist in der Library
SYSRPC enthalten. Es heißt RDSSCDIR und liest die
erforderlichen Verzeichnisinformationen aus einer Arbeitsdatei. Die
Schnittstelle dieses Subprogramms ist dokumentiert, so dass Sie Ihren eigenen
Remote-Verzeichnisdienst entwickeln können. Weitere Informationen finden Sie im
Abschnitt Erstellen
einer RDS-Schnittstelle.
Die RDS-Schnittstelle ist der Natural-Parameterdatenbereich (PDA)
des Natural-Subprogramms und die Verzeichnisdienstroutine ist der Codeteil des
Natural-Subprogramms. Wenn ein Remote-CALLNAT nicht im lokalen
Service Directory des Clients gefunden wird, kontaktiert die RPC-Laufzeit den
Remote Directory Server, indem sie einen internen Remote-CALLNAT
ausführt.
Ein interner Verzeichnisspeicher (Directory Cache) minimiert den Zugriff auf das Remote Directory. Die Cache-Informationen werden durch eine Verfallszeit gesteuert, die vom Remote Directory Server festgelegt wird.
Um einen Remote Directory Server zu verwenden:
Erstellen Sie eine Directory-Datei für den Remote Directory
Service mit Hilfe der Service Directory
Maintenance-Funktion der SYSRPC Utility. Das
Subprogramm RDSSCDIR wird in der Library SYSRPC
bereitgestellt und liest die Verzeichnisinformationen aus einer
Natural-Arbeitsdatei (Fixed-Block, Satzlänge 80 Byte). Dies ist die
Arbeitsdatei CMWKF01, die dem entsprechenden Dataset in der Server
Startup JCL zugewiesen ist.
Starten Sie den Remote Directory Server und fahren Sie mit den folgenden Schritten fort.
Sie haben zwei Möglichkeiten:
Geben Sie den Remote Directory Server im
Schlüsselwort-Subparameter RDS
des Profilparameters RPC oder des
Parameter-Makros
NTRPC
an.
Oder Sie verwenden die Maintenance-Funktion der Utility
SYSRPC, die um Remote Directory Server zu definieren (siehe
Service Directory
Maintenance in der SYSRPC Utility-Dokumentation). Die
Definition von Remote Directory Servern wird aus Kompatibilitätsgründen
weiterhin unterstützt. Sie sollten jedoch Ihren RDS im
Schlüsselwort-Subparameter RDS
des Profilparameters RPC oder des
Parameter-Makros
NTRPC
definieren. Zu diesem Zweck werden Einträge bereitgestellt, die es ermöglichen,
den Standort des Directory Servers zu definieren. Auf diese Weise können Sie
bestehende lokale Directory-Informationen um eine oder mehrere Remote Directory
Server-Definitionen erweitern.
Nachfolgend finden Sie ein Beispiel für die Definition eines Remote
Directory Servers im Service Directory NATCLTGS.
| Service Directory | |||||
|---|---|---|---|---|---|
| NODE | SERVER | LIBRARY | PROGRAM | LOGON | |
| 1 | NODE1 |
||||
| 2 | SERVER1 |
||||
| 3 | SYSTEM |
||||
| 4 | TESTS1 |
||||
| 5 | TESTS2 |
||||
| 6 | RDSNODE |
||||
| 7 | DIRSRV1 |
||||
| 8 | #ACI |
||||
| 9 | RDSSCDIR |
||||
In diesem Beispiel wird lokal ein Server namens SERVER1
definiert. Dieser Server kann die Dienste TESTS1 und
TESTS2 ausführen.
Zusätzlich gibt es Definitionen für den Remote Directory Server
DIRSRV1. Ein Remote Directory Server wird in der
Library-Definition durch ein vorangestelltes Rautenzeichen (#)
gekennzeichnet.
Die Definitionen von NODE und SERVER
werden wie in Natural RPC üblich verwendet. Die Library-Definition definiert
das Transportprotokoll (ACI), das für die Verbindung mit dem RDS verwendet
werden muss.
Der Eintrag PROGRAM schließlich enthält den Namen des
Remote-Subprogramms, das den Remote Directory Service repräsentiert (in diesem
Fall verweist er auf das Beispiel-Subprogramm RDSSCDIR).
Die RDS-Schnittstelle ist der Parameterdatenbereich (PDA) eines Natural-Subprogramms.
Um Ihre eigene RDS-Schnittstelle zu erstellen, können Sie den unten abgebildeten Parameterdatenbereich verwenden.
DEFINE DATA PARAMETER
1 P_UDID(B8) /* OUT
1 P_UDID_EXPIRATION(I4) /* OUT
1 P_CURSOR(I4) /* INOUT
1 P_ENTRIES(I4) /* IN
1 P_REQUEST(A16/1:250) /* IN
1 P_EXTENT (A16/1:250) /* OUT
1 P_RESULT(A32) /* OUT
1 REDEFINE P_RESULT
2 SRV_NODE(A8)
2 SRV_NODE_EXT(A8)
2 SRV_NAME(A8)
2 SRV_NAME_EXT(A8)
END-DEFINE
Eine Erläuterung der Parameter finden Sie in der nachstehenden Tabelle.
| Parameter | Format/Läange | Erläuterung |
|---|---|---|
P_UDID
|
B8 | Eindeutige Verzeichniskennung, sollte nach Änderung der Verzeichnisinformationen erhöht werden. Der Client speichert diese Kennung in seinem Cache. Erhöht sich die Binärzahl von einer Client-Anfrage zur nächsten, führt dies dazu, dass der Client seine lokalen Cache-Informationen löscht, da sie nicht mehr mit den Remote-Directory-Informationen übereinstimmen. |
P_UDID_EXPIRATION
|
I4 | Definiert die Verfallszeit in Sekunden,
d. h. die Anzahl der Sekunden, in denen der Client seine lokalen
Cache-Informationen verwenden kann, ohne eine Verbindung zum RDS herzustellen,
um die UDID-Einstellung zu validieren. Damit können Sie
eine Zeitspanne festlegen, nach der Sie sicher sein können, dass Ihre
Verzeichnisänderungen für alle Clients aktiv sind. Wenn Sie diese Zeit auf
einen unnötig niedrigen Wert setzen, können Sie erheblichen Netzwerkverkehr zum
RDS verursachen.
|
P_CURSOR
|
I4 | Der Remote Procedure Call hat die
Möglichkeit, nach einem alternativen Server zu suchen, wenn keine Verbindung
zum vorherigen Server hergestellt werden kann (siehe Schlüsselwort-Subparameter
TRYALT
des Profilparameters RPC oder des
Parameter-Makros
NTRPC.
Dieser Parameter enthält den Wert Null für eine Suche von Beginn an und kann vom RDS geändert werden, um sich den Speicherort des Datensatzes zu merken und die Suche fortzusetzen. Der Wert wird vom Client nicht ausgewertet, er wird nur aus dem Cache eingefügt, um die Suche fortzusetzen. |
P_ENTRIES
|
I4 | Dieser Parameter enthält die Anzahl der
Service-Definitionen in P_REQUEST.
|
P_REQUEST
|
A16/1:250 | Eine Liste mit Services, für die eine
Serveradresse abgefragt werden kann. Ein Eintrag ist wie folgt aufgebaut:
Programmname (A8) |
P_EXTENT
|
A16/1:250 | Reserviert für künftige Verwendung. |
SRV_NODE
|
A8 | Enthält den Serverknoten. |
SRV_NODE_EXT
|
A8 | Enthält die Erweiterung des Serverknotens. |
SRV_NAME
|
A8 | Enthält den Servernamen. |
SRV_NAME_EXT
|
A8 | Enthält die Erweiterung des Servernamens. |
Die Remote Directory Service Routine ist der Codebereich eines
Natural-Subprogramms (die Standardversion dieses Codebereichs ist das
Subprogramm RDSSCDIR in der Library SYSRPC).
Um Ihre eigene RDS-Routine zu erstellen:
Ändern Sie den unten dokumentierten Pseudocode.
Set UDID and UDID_EXPIRATION values
IF P_ENTRIES = 0
ESCAPE ROUTINE
IF P_CURSOR != 0
position to next server entry after P_CURSOR
Scan for server which may execute P_REQUEST(*)
IF found
SRV_NODE = found node name
SRV_NODE_EXT = node extension
SRV_NAME = found server name
SRV_NAME_EXT = server extension
P_CURSOR = position of found server
ELSE
P_CURSOR = 0
Dieses Programm befindet sich in der Library SYSRPC. Es
liest die Directory-Informationen aus einer Arbeitsdatei (Fixed-Block,
Satzlänge 80 Byte).
Ihr Programm könnte die Directory-Informationen auch von anderer
Stelle lesen (z.B. aus einer Datenbank). Bei der ausgelieferten Version von
RDSSCDIR ist dies die Arbeitsdatei CMWKF01, die dem
entsprechenden Dataset in der Server Startup JCL zugeordnet ist.
* comment UDID definition UDID_EXPIRATION definition node definition ... node definition
(UDID) binary number
(UDID_EXPIRATION) number of seconds
(NODE) namevalue (logon-option) server definition ... server definition
(SERVER) namevalue (logon-option) library definition ... library definition
(LIBRARY) namevalue program definition ... program definition
(PROGRAM) namevalue ... namevalue
Max. 8 characters in uppercase
Die logon-option nach
namevalue sowie die folgenden
Definitionszeilen sind optional. Die möglichen Werte für
logon-option finden Sie unter
Service Directory
Maintenance in der SYSRPC
Utility-Dokumentation.
(UDID)
ACB8AAB4777CA000
(UDID_EXPIRATION)
3600
* this is a comment
(NODE)
NODE1
(SERVER)
SERVER1
(LIBRARY)
SYSTEM
(PROGRAM)
TESTS1
TESTS2
TESTS3
(SERVER)
SERVER2 (logon-option)
(LIBRARY)
SYSTEM
(PROGRAM)
TESTS4
(NODE)
NODE2 (logon-option)
(SERVER)
SERVER1
(LIBRARY)
SYSTEM
(PROGRAM)
TESTS1
TESTS2
TESTS3
TESTS4
Im obigen Beispiel enthält das Verzeichnis:
Zwei Server SERVER1 und SERVER2, die
auf dem Knoten NODE1 laufen.
Der Server SERVER1 darf die Programme
TESTS1, TESTS2 und TESTS3 in der Library
SYSTEM ausführen.
Der Server SERVER2 darf das Programm
TESTS4 in der Library SYSTEM ausführen.
Ein Server SERVER1 auf dem Knoten
NODE2, der die Programme TESTS1 - TESTS4
in der Library SYSTEM ausführen darf.
Die Einrückung der Zeilen im obigen Beispiel ist nicht erforderlich. Alle Zeilen können an beliebiger Stelle (eins) beginnen. Sie können diese Datei manuell ändern oder sie mit der SYSRPC Utility-Funktion Service Directory Maintenance generieren.