Z-GET01E

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Die Büro- und Privatanschrift für ein Büro oder einen Rufnamen ausgeben, einschließlich der Informationen für Cc und Verschiedenes.

Dieses Subprogramm entspricht Z-GET01D mit der Ausnahme, dass es von allen Teilnehmertypen aufgerufen werden kann. Zusätzlich enthält die Parameterliste neue Cc-3-Parameter für die Empfangsmeldung und das Format der Verschiedenes-Parameter wurde auf 10 Zeilen vergrößert.

Die Parameter sind entsprechend ihrer Position auf dem Online-Bildschirm sortiert (mit Ausnahme der Verschiedenes-Parameter, die am Ende der Liste erscheinen).

Die Cc-Parameter gelten nur für Büros (Objektnummer 5 und 33). Bei Rufnamen (Objektnummer 1) sind sie immer leer.

Die folgenden Funktionen stehen zur Verfügung: die Anschriften für alle Büros ausgeben, für Rufnamen im Büro SYSCNT oder für Rufnamen im Privatbüro des Teilnehmers.

In den Parametern Bueroname oder Rufname können Sie Folgendes eingeben:

  • Um alle Anschriften in alphabetischer Reihenfolge auszugeben, geben Sie einen Stern (*) ein.

  • Um die Anschriften für alle Büros oder für alle Rufnamen auszugeben, die mit bestimmten Buchstaben beginnen, geben Sie die Buchstaben gefolgt von einem Stern ein (z.B. SAG*).

  • Um die Anschrift für ein bestimmtes Büro oder einen bestimmten Rufnamen auszugeben, geben Sie dessen Name ein.

Sie können dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 gekennzeichnet wird.

Die folgende Tabelle zeigt, welche Parameter für die verschiedenen Funktionen dieses Subprogramms benutzt werden:

Funktion Buero Bueroname Rufname
Anschrift für ein Büro ausgeben. Name des Büros des Teilnehmers. Name eines bestimmten Büros; oder ein Stern (*); oder Buchstaben gefolgt von einem Stern (*).  
Rufname im Büro SYSCNT ausgeben. Der Büroname "SYSCNT".   Ein bestimmter Rufname; oder ein Stern (*); oder Buchstaben gefolgt von einem Stern (*).
Rufname im eigenen Privatbüro ausgeben. Name des Büros, in dem der Rufname abgelegt ist.   Ein bestimmter Rufname; oder ein Stern (*); oder Buchstaben gefolgt von einem Stern (*).

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E X Um die Anschrift für ein Büro auszugeben, muss dies das Teilnehmerkennzeichen eines Büroadministrators sein. Um die Anschrift für einen Rufnamen auszugeben, muss dies der Name des Büros sein, in dem der Rufname abgelegt ist. Wenn der Rufname im angegebenen Büro nicht gefunden wird, sondern im Büro SYSCNT, wird SYSCNT ausgegeben.
Passwort A8 E   Das Passwort des o.g. Büros.
Bueroname A8 E* X Siehe die Beschreibung oben. Entweder Bueroname oder Rufname, nicht beides.
Rufname A32 E* X Siehe die Beschreibung oben. Entweder Rufname oder Bueroname, nicht beides.
Objekt-ISN P10   X Die ISN des Büros oder Rufnamens.
Objektnummer N2   X Einer der Folgenden: 1=Adresse (Rufname), 5=Büro, 33=Teilnehmerkennzeichen (Privatbüro).
Persoenlich-Flag A1   X Markiert, wenn die Anschrift als persönliches Objekt definiert wurde.
Nachname A32   X Gilt nur für ein Privatbüro oder eine externe Adresse.
Vorname A32   X Gilt nur für ein Privatbüro oder eine externe Adresse.
2-Vorname A1   X Gilt nur für ein Privatbüro oder eine externe Adresse.
Geschlecht A10   X Gilt nur für ein Privatbüro oder eine externe Adresse.
Rufname-fuer A44   X Gilt nur für einen Rufnamen. Nachname und Vorname, durch ein Komma getrennt.
Rufname-Status N1   X Gilt nur für einen Rufnamen. Überprüft die Struktur (z.B. Komma) des Parameters Rufname-fuer. 0=korrekt, 1=nicht korrekt.
Rufname-Ursprung A8   X Der Name des Büros, in dem der Rufname enthalten ist.
Buero-Firma A32   X  
Buero-Titel A32   X  
Buero-Abteilungsname A32   X  
Buero-Abteilungsnummer A10   X  
Buero-Ort A32   X  
Buero-Adresse A60/1:3   X  
Buero-Stadt A32   X  
Buero-Staat A8   X  
Buero-Postleitzahl A10   X  
Buero-Land A8   X  
Buero-Telefon-1-Land N3   X  
Buero-Telefon-1 A15   X  
Buero-Telefon-1-Durchwahl A5   X  
Buero-Telefon-2-Land N3   X  
Buero-Telefon-2 A15   X  
Buero-Telefon-2-Durchwahl A5   X  
Mobiltelefon-Land N3   X  
Mobiltelefon A15   X  
Mobiltelefon-Durchwahl A5   X  
Fax-Land N3   X  
Fax A15   X  
Fax-Durchwahl A5   X  
Cc-Flag A1   X Wenn markiert, wurde Cc gesetzt.
Cc A20   X Cc aus der Teilnehmeradresse.
Cc-Adresstyp N2   X Einer der Folgenden: 1=Adresse (Rufname), 4=Rubrik, 5=Büro, 33=Teilnehmerkennzeichen.
Cc-Adressquelle A1   X Nur wenn Cc-Adresstyp 1 (Adresse) ist: S=Adresse von Büro SYSCNT. Leer=Adresse von Bueroname.
Cc-Nach-Vor-Name A20   X Nur wenn Cc-Adresstyp 1 (externe Adresse) oder 33 (Teilnehmerkennzeichen) ist. Leer, wenn Cc 1 ist, dies aber keine externe Adresse ist (z.B. Rufname für ein Teilnehmerkennzeichen).
Cc-Knotenname A8   X Nur wenn Cc-Adresstyp 1 (externe Adresse) ist.
Cc-Status A1   X Leer=Cc ist gültig. X=Cc des angegebenen Cc-Adresstyp wurde in Con-nect nicht gefunden.
Cc-2-Flag A1   X Wenn markiert, wurde Cc-2 gesetzt.
Cc-2 A20   X Cc 2 aus der Teilnehmeradresse.
Cc-2-Adresstyp N2   X Einer der Folgenden: 1=Adresse (Rufname), 4=Rubrik, 5=Büro, 33=Teilnehmerkennzeichen.
Cc-2-Adressquelle A1   X Nur wenn Cc-2-Adresstyp 1 (Adresse) ist: S=Adresse von Büro SYSCNT. Leer=Adresse von Bueroname.
Cc-2-Nach-Vor-Name A20   X Nur wenn Cc-2-Adresstyp 1 (externe Adresse) oder 33 (Teilnehmerkennzeichen) ist. Leer, wenn Cc-2-Adresstyp 1 ist, dies aber keine externe Adresse ist (z.B. Rufname für ein Teilnehmerkennzeichen).
Cc-2-Knotenname A8   X Nur wenn Cc-2-Adresstyp 1 (externe Adresse) ist.
Cc-2-Status A1   X Leer=Cc-2 ist gültig. X=Cc-2 des angegebenen Cc-2-Adresstyp wurde in Con-nect nicht gefunden.
Cc-3-Flag A1   X Wenn markiert, wurde Cc-3 (d.h. Cc aus der Empfangsmeldung) gesetzt.
Cc-3 A20   X Cc aus der Empfangsmeldung.
Cc-3-Adresstyp N2   X Einer der Folgenden: 1=Adresse (Rufname), 4=Rubrik, 5=Büro, 33=Teilnehmerkennzeichen.
Cc-3-Adressquelle A1   X Nur wenn Cc-3-Adresstyp 1 (Adresse) ist: S=Adresse von Büro SYSCNT. Leer=Adresse von Bueroname.
Cc-3-Nach-Vor-Name A20   X Nur wenn Cc-3-Adresstyp 1 (externe Adresse) oder 33 (Teilnehmerkennzeichen) ist. Leer, wenn Cc-3-Adresstyp 1 ist, dies aber keine externe Adresse ist (z.B. Rufname für ein Teilnehmerkennzeichen).
Cc-3-Knotenname A8   X Nur wenn Cc-3-Adresstyp 1 (externe Adresse) ist.
Cc-3-Status A1   X Leer=Cc-3 ist gültig. X=Cc-3 des angegebenen Cc-3-Adresstyp wurde in Con-nect nicht gefunden.
E-mail A64   X  
Internet A64   X  
Privat-Adresse A60/1:2   X  
Privat-Stadt A32   X  
Privat-Staat A8   X  
Privat-Postleitzahl A10   X  
Privat-Land A8   X  
Privat-Telefon-Land N3   X  
Privat-Telefon A15   X  
Privat-Telefon-Durchwahl A5   X  
Privat-Fax-Land N3   X  
Privat-Fax A15   X  
Privat-Fax-Durchwahl A5   X  
Privat-E-mail A64   X  
Verschiedenes-Kopfzeilen A12/1:10   X  
Verschiedenes-Beschreibung A64/1:10   X  
Work-Parameter A83     Für den internen Gebrauch. Siehe Work-Parameter.

Return-Codes

00 Erfolg
02 Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt
03 Falsches Passwort
24 Datenschutz-Sicherheitsübertretung
53 Das gewünschte Objekt existiert nicht
77 Ende der Liste
92 Geben Sie entweder Büroname oder Rufname an, nicht beides
93 Geben Sie den Parameter Bueroname oder Rufname an

Subprogramme

Z-120
Z-122
Z-123
Z-710
Z-723
Z-1200&0

Beispiel

0010 *
0020 * Beispiel: Aufruf von Z-GET01E
0030 *
0040 DEFINE DATA
0050 LOCAL
0060 1 RETURN-CODE               (N2)
0070 1 BUERO                     (A8)
0080 1 PASSWORT                  (A8)
0090 1 BUERONAME                 (A8)
0100 1 RUFNAME                   (A32)
0110 1 OBJEKT-ISN                (P10)
0120 1 OBJEKT-NUMMER             (N2)
0130 1 PERSOENLICH-FLAG          (A1)
0140 1 NACHNAME                  (A32)
0150 1 VORNAME                   (A32)
0160 1 2-VORNAME                 (A1)
0170 1 GESCHLECHT                (A10)
0180 1 RUFNAME-FUER              (A44)
0190 1 RUFNAME-STATUS            (N1)
0200 1 RUFNAME-URSPRUNG          (A8)
0210 1 BUERO-FIRMA               (A32)
0220 1 BUERO-TITEL               (A32)
0230 1 BUERO-ABTEILUNGSNAME      (A32)
0240 1 BUERO-ABTEILUNGSNUMMER    (A10)
0250 1 BUERO-ORT                 (A32)
0260 1 BUERO-ADRESSE             (A60/1:3)
0270 1 BUERO-STADT               (A32)
0280 1 BUERO-STAAT               (A8)
0290 1 BUERO-POSTLEITZAHL        (A10)
0300 1 BUERO-LAND                (A8)
0310 1 BUERO-TELEFON-1-LAND      (N3)
0320 1 REDEFINE BUERO-TELEFON-1-LAND
0330   2 BUERO-TELEFON-1-L-A     (A3)
0340 1 BUERO-TELEFON-1           (A15)
0350 1 BUERO-TELEFON-1-DURCHWAHL (A5)
0360 1 BUERO-TELEFON-2-LAND      (N3)
0370 1 REDEFINE BUERO-TELEFON-2-LAND
0380   2 BUERO-TELEFON-2-L-A     (A3)
0390 1 BUERO-TELEFON-2           (A15)
0400 1 BUERO-TELEFON-2-DURCHWAHL (A5)
0410 1 MOBILTELEFON-LAND         (N3)
0420 1 REDEFINE MOBILTELEFON-LAND
0430   2 MOBILTELEFON-L-A        (A3)
0440 1 MOBILTELEFON              (A15)
0450 1 MOBILTELEFON-DURCHWAHL    (A5)
0460 1 FAX-LAND                  (N3)
0470 1 REDEFINE FAX-LAND
0480   2 FAX-L-A                 (A3)
0490 1 FAX                       (A15)
0500 1 FAX-DURCHWAHL             (A5)
0510 1 CC-FLAG                   (A1)
0520 1 CC                        (A20)
0530 1 CC-ADRESSTYP              (N2)
0540 1 REDEFINE CC-ADRESSTYP
0550   2 CC-ADRESSTYP-A          (A2)
0560 1 CC-ADRESSQUELLE           (A1)
0570 1 CC-NACH-VOR-NAME          (A20)
0580 1 CC-KNOTENNAME             (A8)
0590 1 CC-STATUS                 (A1)
0600 1 CC-2-FLAG                 (A1)
0610 1 CC-2                      (A20)
0620 1 CC-2-ADRESSTYP            (N2)
0630 1 CC-2-ADRESSQUELLE         (A1)
0640 1 CC-2-NACH-VOR-NAME        (A20)
0650 1 CC-2-KNOTENNAME           (A8)
0660 1 CC-2-STATUS               (A1)
0670 1 CC-3-FLAG                 (A1)
0680 1 CC-3                      (A20)
0690 1 CC-3-ADRESSTYP            (N2)
0700 1 CC-3-ADRESSQUELLE         (A1)
0710 1 CC-3-NACH-VOR-NAME        (A20)
0720 1 CC-3-KNOTENNAME           (A8)
0730 1 CC-3-STATUS               (A1)
0740 1 E-MAIL                    (A64)
0750 1 INTERNET                  (A64)
0760 1 PRIVAT-ADRESSE            (A60/1:2)
0770 1 PRIVAT-STADT              (A32)
0780 1 PRIVAT-STAAT              (A8)
0790 1 PRIVAT-POSTLEITZAHL       (A10)
0800 1 PRIVAT-LAND               (A8)
0810 1 PRIVAT-TELEFON-LAND       (N3)
0820 1 REDEFINE PRIVAT-TELEFON-LAND
0830   2 PRIVAT-TELEFON-L-A      (A3)
0840 1 PRIVAT-TELEFON            (A15)
0850 1 PRIVAT-TELEFON-DURCHWAHL  (A5)
0860 1 PRIVAT-FAX-LAND           (N3)
0870 1 REDEFINE PRIVAT-FAX-LAND
0880   2 PRIVAT-FAX-L-A          (A3)
0890 1 PRIVAT-FAX                (A15)
0900 1 PRIVAT-FAX-DURCHWAHL      (A5)
0910 1 PRIVAT-E-MAIL             (A64)
0920 1 VERSCHIEDENES-KOPFZEILEN  (A12/1:10)
0930 1 VERSCHIEDENES-BESCHREIBUNG (A64/1:10)
0940 1 WORK-PARAMETER            (A83)
0950 *
0960 END-DEFINE
0970 *
0980 MOVE 'Buero'     TO BUERO
0990 MOVE 'Passwort'  TO PASSWORT
1000 MOVE 'Bueroname' TO BUERONAME
1010 *
1020 REPEAT UNTIL RETURN-CODE NE 0
1030 *
1040   CALLNAT 'Z-GET01E' RETURN-CODE
1050      BUERO
1060      PASSWORT
1070      BUERONAME
1080      RUFNAME
1090      OBJEKT-ISN
1100      OBJEKT-NUMMER
1110      PERSOENLICH-FLAG
1120      NACHNAME
1130      VORNAME
1140      2-VORNAME
1150      GESCHLECHT
1160      RUFNAME-FUER
1170      RUFNAME-STATUS
1180      RUFNAME-URSPRUNG
1190      BUERO-FIRMA
1200      BUERO-TITEL
1210      BUERO-ABTEILUNGSNAME
1220      BUERO-ABTEILUNGSNUMMER
1230      BUERO-ORT
1240      BUERO-ADRESSE(*)
1250      BUERO-STADT
1260      BUERO-STAAT
1270      BUERO-POSTLEITZAHL
1280      BUERO-LAND
1290      BUERO-TELEFON-1-LAND
1300      BUERO-TELEFON-1
1310      BUERO-TELEFON-1-EXT
1320      BUERO-TELEFON-2-LAND
1330      BUERO-TELEFON2
1340      BUERO-TELEFON-2-EXT
1350      MOBILTELEFON-C
1360      MOBILTELEFON
1370      MOBILTELEFON-EXT
1380      FAX-C
1390      FAX
1400      FAX-EXT
1410      CC-FLAG
1420      CC
1430      CC-ADRESSTYP
1440      CC-ADRESSQUELLE
1450      CC-NACH-VOR-NAME
1460      CC-KNOTENNAME
1470      CC-STATUS
1480      CC-2-FLAG
1490      CC-2
1500      CC-2-ADRESSTYP
1510      CC-2-ADRESSQUELLE
1520      CC-2-NACH-VOR-NAME
1530      CC-2-KNOTENNAME
1540      CC-2-STATUS
1550      CC-3-FLAG
1560      CC-3
1570      CC-3-ADRESSTYP
1580      CC-3-ADRESSQUELLE
1590      CC-3-NACH-VOR-NAME
1600      CC-3-KNOTENNAME
1610      CC-3-STATUS
1620      E-MAIL
1630      INTERNET
1640      PRIVAT-ADRESSE(*)
1650      PRIVAT-STADT
1660      PRIVAT-STAAT
1670      PRIVAT-POSTLEITZAHL
1680      PRIVAT-LAND
1690      PRIVAT-TELEFON-C
1700      PRIVAT-TELEFON
1710      PRIVAT-TELEFON-EXT
1720      PRIVAT-FAX-C
1730      PRIVAT-FAX
1740      PRIVAT-FAX-EXT
1750      PRIVAT-E-MAIL
1760      VERSCHIEDENES-KOPFZEILEN(*)
1770      VERSCHIEDENES-BESCHREIBUNG(*)
1780      WORK-PARAMETER
1790 *
1800   IF RETURN-CODE EQ 0  OR  RETURN-CODE EQ 77
1810     NEWPAGE
1820     WRITE NOTITEL NOHDR (AD=IOW' ')
1830     25T 'B u e ro a d r e s s e' /
1840      4T 'Nachname' NACHNAME 2X '2. Vorname' 2-VORNAME 7X 'Geschlecht' GESCHLECHT /
1850      3T 'Vorname' VORNAME /
1860      6T 'Firma' BUERO-FIRMA 2X 'Titel' BUERO-TITEL (AL=24) /
1870      3T 'Abteilung' BUERO-ABTEILUNGSNAME 'Nummer' BUERO-ABTEILUNGSNUMMER /
1880      5T 'Ort' BUERO-ORT /
1890      6T 'Adresse' BUERO-ADRESSE(1) /
1900      9T 'Stadt' BUERO-STADT BUERO-STAAT /
1910         'Postleitzahl' BUERO-POSTLEITZAHL 'Land' BUERO-LAND /
1920      6T 'Telefon 1' BUERO-TELEFON-1-L-A BUERO-TELEFON-1 BUERO-TELEFON-1-DURCHWAHL6X
1930         'Telefon 2' BUERO-TELEFON-2-L-A BUERO-TELEFON2 BUERO-TELEFON-2-DURCHWAHL/
1940      7T 'Mobil' MOBILTELEFON-L-A MOBILTELEFON MOBILTELEFON-DURCHWAHL10X
1950         'Fax' FAX-L-A FAX FAX-DURCHWAHL/
1960      3T 'Setzen' CC-FLAG 'Cc  ' CC ' Typ' CC-ADRESSTYP
1970         'Knoten' CC-KNOTENNAME '  Quelle' CC-ADRESSQUELLE /
1980      7T 'E-mail' E-MAIL /
1990     25T 'P r i v a t a d r e s s e' /
2000         'Privatadresse' PRIVAT-ADRESSE(1) /
2010      9T 'Stadt' PRIVAT-STADT PRIVAT-STAAT /
2020      2T 'Postleitzahl' PRIVAT-POSTLEITZAHL 'Land' PRIVAT-LAND /
2030      8T 'Telefon' PRIVAT-TELEFON-L-A PRIVAT-TELEFON PRIVAT-TELEFON-DURCHWAHL/
2040     10T 'Fax' PRIVAT-FAX-L-A PRIVAT-FAX PRIVAT-FAX-DURCHWAHL/
2050      7T 'E-mail' PRIVAT-E-MAIL /
2060     25T 'V e r s c h i e d e n e s' /
2070          VERSCHIEDENES-KOPFZEILEN(1) VERSCHIEDENES-BESCHREIBUNG(1) /
2080          VERSCHIEDENES-KOPFZEILEN(2) VERSCHIEDENES-BESCHREIBUNG(2)
2090   ELSE
2100     WRITE 'Return-Code' RETURN-CODE
2110   END-IF
2120 END-REPEAT
2130 END