Z-MLGETA

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

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

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.

Return-Codes

00 Erfolg
02 Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt

Subprogramme

Keine

Beispiel

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