Dieses Dokument behandelt die folgenden Themen:
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 | 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. |
| 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 |
Z-120
Z-122
Z-123
Z-1200&0
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