Dieses Dokument behandelt die folgenden Themen:
Die Empfangsmeldung eines bestimmten Teilnehmers ausgeben - einschließlich des Zeitraums, in dem sie angezeigt werden soll.
Die Zeitzone ist immer GMT. Andere Zeitzonen werden nicht berücksichtigt.
Dieses Subprogramm entspricht Z-MLSGET mit der Ausnahme, dass es zusätzliche Parameter enthält.
Sie können dieses Subprogramm vor Z-MAILA oder Z-MAILAX aufrufen, um festzustellen, ob der Teilnehmer eine Empfangsmeldung eingeschaltet hat. Sie können dieses Subprogramm jedoch auch unabhängig von Z-MAILA oder Z-MAILAX benutzen.
Sie können nicht mehrere Kennzeichen gleichzeitig im Parameter Buero angeben. Wenn Sie die Empfangsmeldungen von mehreren Teilnehmern ausgeben wollen, müssen Sie dieses Subprogramm für jeden Teilnehmer separat aufrufen.
Bei allen Büros (außer Ihrem eigenen) wird die Empfangsmeldung nur dann ausgegeben, wenn sie eingeschaltet wurde (d.h. wenn der Teilnehmer das "Meldung einschalten"-Feld markiert hat).
Für Ihr eigenes Büro wird die Empfangsmeldung auch ausgegeben, wenn sie nicht eingeschaltet wurde.
| Parameter | Format | Ein | Aus | Bemerkung |
|---|---|---|---|---|
| Return-Code | N2 | X | ||
| Buero | A8 | E | Das Büro, für das die Empfangsmeldung ausgegeben werden soll. | |
| Eingeschaltet | A1 | X | Markiert, wenn die Empfangsmeldung eingeschaltet wurde. | |
| Startdatum | A8 | X | Format yyymmdd. | |
| Startzeit | A4 | X | Format hhmm. | |
| Enddatum | A8 | X | Format yyymmdd. | |
| Endzeit | A4 | X | Format hhmm. | |
| Empfangsmeldung | A37/1:10 | X | Der Text der Empfangsmeldung. |
| 00 | Erfolg |
| 02 | Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt |
Keine
0010 ********************************************************************* 0020 * Empfangsmeldung eines Teilnehmers ausgeben 0030 ********************************************************************* 0040 * 0050 DEFINE DATA 0060 * 0070 LOCAL 0080 * 0090 1 RETURN-CODE (N2) 0100 1 BUERO (A8) 0110 1 EINGESCHALTET (A1) 0120 1 STARTDATUM (A8) 0130 1 STARTZEIT (A4) 0140 1 ENDDATUM (A8) 0150 1 ENDZEIT (A4) 0160 1 EMPFANGSMELDUNG (A37/1:10) 0170 * 0180 END-DEFINE 0190 * 0200 * Eingabe der API-Parameter 0210 * 0220 * 0230 INPUT (AD=I'_') 0240 // 25X '********** Z-MLGETA **********' / 0250 ' Buero' BUERO / 0260 * 0270 CALLNAT 'Z-MLGETA' RETURN-CODE 0280 BUERO 0290 EINGESCHALTET 0300 STARTDATUM 0310 STARTZEIT 0320 ENDDATUM 0330 ENDZEIT 0340 EMPFANGSMELDUNG(*) 0350 * 0360 IF RETURN-CODE EQ 0 0370 WRITE 0380 '=' BUERO / 0390 '=' EINGESCHALTET // 0400 'Empfangsmeldung :' // 0410 ' 1' EMPFANGSMELDUNG (1) / 0420 ' 2' EMPFANGSMELDUNG (2) / 0430 ' 3' EMPFANGSMELDUNG (3) / 0440 ' 4' EMPFANGSMELDUNG (4) / 0450 ' 5' EMPFANGSMELDUNG (5) / 0460 ' 6' EMPFANGSMELDUNG (6) / 0470 ' 7' EMPFANGSMELDUNG (7) / 0480 ' 8' EMPFANGSMELDUNG (8) / 0490 ' 9' EMPFANGSMELDUNG (9) / 0500 '10' EMPFANGSMELDUNG (10) // 0510 WRITE '=' STARTDATUM 0520 WRITE '=' STARTZEIT 0530 WRITE '=' ENDDATUM 0540 WRITE '=' ENDZEIT 0550 ELSE 0560 WRITE '=' RETURN-CODE 0570 END-IF 0580 * 0590 END