Z-DIS33

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Eine Liste von Teilnehmern (nicht Büros) zusammen mit der Büroanschrift anzeigen.

Sie müssen entweder das Teilnehmerkennzeichen oder den Teilnehmernamen angeben. Sie dürfen nicht beides angeben. Um eine Liste aller Teilnehmer anzuzeigen, können Sie einen Stern (*) eingeben. Um eine Liste aller Teilnehmer anzuzeigen, die mit einem oder mehreren bestimmten Buchstaben beginnen, können Sie die Anfangsbuchstaben gefolgt von einem Stern angeben (zum Beispiel sm*).

Die Ausgabe in der Datenliste ist abhängig von den Feldern, die Sie definieren - siehe die folgende Tabelle:

Nr. Feld Format Bemerkung
01 Teilnehmerkennzeichen A8  
02 Nachname A32  
03 Vorname A32  
04 2. Vorname A1  
05 Titel A32  
06 Firma A32  
07 Ort A32  
08 Adresse A60 Nur die erste Zeile der Adresszeilen.
09 Stadt A32  
10 Land A8  
11 Abteilungsname A32  
12 Abteilungsnummer A10  
13 Telefon A15  
14 Landesvorwahl A2  
15 Durchwahl A5  
16 Postleitzahl A10  
17 Staat A8 Das Feld rechts neben "Stadt" im "Teilnehmeradresse zeigen"-Schirm.

Um ein Feld zu definieren, müssen Sie dessen Nummer im Parameter Felder angeben. Wenn Sie zum Beispiel die Feldnummern 02, 03, 13 und 15 definieren, werden Nachname und Vorname eines Teilnehmers zusammen mit der Telefonnummer und der Durchwahl ausgegeben.

Die Länge aller definierten Felder darf nicht größer als 200 Bytes sein.

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

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2 O X Eingabe -1: kein ET.
Buero A8 E   Jeder Teilnehmer kann dieses Subprogramm aufrufen.
Passwort A8 E   Das Passwort des o.g. Büros.
Teilnehmerkennzeichen A8 E*   Entweder Teilnehmerkennzeichen oder Teilnehmername, nicht beides.
Teilnehmername A32 E*   Entweder Teilnehmername oder Teilnehmerkennzeichen, nicht beides.
Anzahl N2 O   Die maximale Anzahl von Teilnehmern, die mit jedem Aufruf ausgegeben werden. Wenn Sie keinen Wert definieren oder einen Wert, der größer ist als 12, wird der Vorgabewert 12 benutzt.
Felder N2/1:17 E   Siehe die Tabelle oben.
Datenliste A200/1:12   X Die Ausgabe in der Datenliste ist abhängig von den Feldern, die Sie definieren.
Work-Parameter A46     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
77 Ende der Liste
90 Datenelement in Datenliste ist zu groß
91 Das Feld wurde nicht definiert
92 Geben Sie entweder Teilnehmerkennzeichen oder Teilnehmername ein - nicht beides
93 Teilnehmerkennzeichen oder Teilnehmername wurde nicht definiert

Subprogramme

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

Beispiel

0010 DEFINE DATA
0020 *
0030 LOCAL
0040 *
0050 1 RETURN-CODE                  (N2)
0060 1 BUERO                        (A8)
0070 1 PASSWORT                     (A8)
0080 1 TEILNEHMERKENNZEICHEN        (A8)
0090 1 TEILNEHMERNAME               (A32)
0100 1 ANZAHL                       (N2)
0110 1 FELDER                       (N2/1:17) INIT <1,2,3,13>
0120 1 DATENLISTE                   (1:12)
0130   2 DATENELEMENT               (A200)
0140   2 REDEFINE DATENELEMENT
0150     3 DE-TEILNEHMERKENNZEICHEN (A8)
0160     3 DE-NACHNAME              (A32)
0170     3 DE-VORNAME               (A32)
0180     3 DE-TELEFON               (A15)
0190 1 WORK-PARAMETER               (A46)
0200 *
0210 1 #INDEX                       (P03)
0220 *
0230 END-DEFINE
0240 *
0250 INPUT (IP=OFF AD=A'_')
0260         'Buero        ' BUERO
0270      /  'Passwort     ' PASSWORT (AD=N)
0280      /  'Start mit Teilnehmerkennzeichen' TEILNEHMERKENNZEICHEN
0290 *
0300 REPEAT
0310      CALLNAT 'Z-DIS33'
0320           RETURN-CODE
0330           BUERO
0340           PASSWORT
0350           TEILNEHMERKENNZEICHEN
0360           TEILNEHMERNAME
0370           ANZAHL
0380           FELDER (*)
0390           DATENLISTE (*)
0400           WORK-PARAMETER
0410      IF   RETURN-CODE EQ 0 OR EQ 77
0420           WRITE NOTITLE 'Liste der Telefonnummern' /
0430           FOR  #INDEX EQ 1 TO 12
0440                IF   DE-TEILNEHMERKENNZEICHEN (#INDEX) NE ' '
0450                     WRITE NOTITLE
0460                          DE-TEILNEHMERKENNZEICHEN (#INDEX)
0470                          DE-NACHNAME (#INDEX)
0480                          DE-VORNAME (#INDEX) (AL=20)
0490                          DE-TELEFON (#INDEX)
0400                END-IF
0510           END-FOR
0520           IF   RETURN-CODE EQ 77
0530                WRITE NOTITLE / 'Ende der Liste'
0540           ELSE
0550                NEWPAGE
0560           END-IF
0570      ELSE
0580           WRITE NOTITLE 'Teilnehmer wurden nicht gefunden:' RETURN-CODE
0590      END-IF
0600 UNTIL RETURN-CODE GT 0
0610 END-REPEAT
0620 *
0630 END