Z-MOD05J

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

Die Empfangsmeldung im Teilnehmerprofil eines bestimmten Büros ändern.

Dieses Subprogramm entspricht Z-MOD05H mit der Ausnahme, dass Sie auch die Cc-Informationen ändern können. Ein Cc in der Empfangsmeldung informiert darüber, wer Kopien der Post erhält, die an diesen Teilnehmer gesendet werden. Dies kann ein Rufname, ein Teilnehmerkennzeichen, ein Büroname oder eine Rubrik sein.

Dieses Subprogramm kann von einem Supervisor, einem Büroadministrator, dem Inhaber eines Privatbüros oder von einem Teilnehmer benutzt werden, der dazu berechtigt wurde, die Empfangsmeldung zu ändern. Das Teilnehmerprofil des Büros SYSCNT kann mit diesem Subprogramm nicht geändert werden.

Um die ISN des gewünschten Büros auszugeben, können Sie vor dem Aufruf dieses Subprogramms entweder Z-ADD05 oder Z-DIS05 aufrufen.

Um die Parameter mit bereits bestehenden Empfangsmeldungswerten zu füllen, können Sie vor dem Aufruf dieses Subprogramms Z-MLGETB aufrufen.

Die Parameter, die nicht mit Werten gefüllt werden, werden aus dem Teilnehmerprofil gelöscht. Um die bestehenden Werte beizubehalten, müssen Sie sie daher vor dem Aufruf dieses Subprogramms erneut angeben.

Der Zeitraum zwischen Startdatum und Enddatum muss entweder kleiner oder gleich 1095 Tagen sein (sonst wird der Return-Code 43 ausgegeben). Startdatum und Enddatum werden entsprechend der vorgegebenen Zeitzone berechnet.

Wenn keine Zeitzone angegeben wird, werden Startzeit und Endzeit als GMT (0) interpretiert. Wenn diese Werte in eine andere Zeitzone umgerechnet werden sollen, müssen Sie die Differenz im Parameter Zeitzone eingeben.

Wenn Startzeit und Endzeit nicht angegeben werden, wird automatisch der Zeitraum von 0:00 Uhr bis 23:59 Uhr eingetragen. In diesem Fall erscheint die Empfangsmeldung während des ganzen Tages.

Nach der erfolgreichen Ausführung von Z-MOD05H erfolgt immer ein END TRANSACTION. Sie können die Transaktionsverarbeitung nicht kontrollieren.

Parameter

Parameter Format Ein Aus Bemerkung
Return-Code N2   X  
Buero A8 E   Das Bürokennzeichen eines Supervisors, Büroadministrators, Privatbüros oder eines Teilnehmers, der dazu berechtigt wurde, die Empfangsmeldung zu ändern.
Passwort A8 E   Das Passwort des o.g. Büros.
Bueroname A8 E*   Der Name des Büros, in dem das Profil geändert werden soll. Entweder Bueroname oder Buero-ISN, nicht beides.
Buero-ISN P10 E*   Die ISN des Büros, in dem das Profil geändert werden soll. Entweder Buero-ISN oder Bueroname, nicht beides.
Meldung-einschalten A1 O   Wenn markiert, wird die Empfangsmeldung angezeigt, wenn ein Teilnehmer Post an dieses Büro sendet.
Empfangsmeldung A37/1:10 O   Die Nachricht, die angezeigt werden soll, wenn ein Teilnehmer Post an dieses Büro sendet. Wenn Sie keine Nachricht eingeben, wird eine bereits definierte Empfangsmeldung gelöscht.
Startdatum A8 E   Das (Start-)Datum für die Empfangsmeldung. Format yyyymmdd.
Startzeit A8 O   Die Startzeit für die Empfangsmeldung. Format hhmm.
Enddatum A8 O   Das Enddatum für die Empfangsmeldung. Es darf nicht mehr als 3 Jahre (1095 Tage) nach dem Startdatum liegen. Format yyyymmdd.
Endzeit A8 O   Die Endzeit für die Empfangsmeldung. Format hhmm.
Zeitzone N2 O   Vorgabe: 0 (GMT). Werte -12 bis +11.
Cc-Flag A1 O   Wenn markiert, wird Cc gesetzt.
Cc A20 O   Empfänger einer Kopie der Post: Adresse, Büro, Teilnehmerkennzeichen oder Rubrik.
Cc-Adresstyp N2 O   Wenn Cc angegeben wird, muss dies einer der folgenden sein: 1=Adresse (Rufname), 4=Rubrik, 5=Büro, 33=Teilnehmerkennzeichen.
Cc-Adressquelle A1 O   Nur wenn Cc-Adresstyp 1 (Adresse) ist: S=Adresse von Büro SYSCNT. Leer=Adresse von Bueroname.

Return-Codes

00 Erfolg
02 Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt
03 Falsches Passwort
08 Geben Sie entweder ISN oder Name ein - nicht beides
15 Ungültiger Administratorstatus
41 Ungültiges Startdatum
42 Ungültige Startzeit
43 Ungültiges Enddatum
44 Ungültige Endzeit
47 Ungültige Zeitzone
91 Geben Sie Bueroname oder Buero-ISN ein
94 Ungültiger Cc
95 Cc wurde nicht gefunden
96 Angabe im Parameter Bueroname ist ungültig
97 Ungültige Buero-ISN
99 Das Büro SYSCNT darf nicht geändert werden

Subprogramme

N-IDATCM
Z-GETMSM
Z-0106C
Z-120
Z-122
Z-123
Z-160
Z-175
Z-723
Z-1200&0

Beispiel

0010 *********************************************************************
0020 * Empfangsmeldung eines Teilnehmers aendern
0030 *********************************************************************
0040 *
0050 DEFINE DATA
0060 *
0070 LOCAL
0080 *
0090 1 RETURN-CODE           (N2)
0100 1 BUERO               (A8)
0110 1 PASSWORT              (A8)
0120 1 BUERONAME          (A8)
0130 1 BUERO-ISN           (P10)
0140 1 MELDUNG-EINSCHALTEN           (A1)
0150 1 EMPFANGSMELDUNG   (A37/1:10)
0160 1 STARTDATUM            (A8)
0170 1 STARTZEIT            (A5)
0180 1 ENDDATUM              (A8)
0190 1 ENDZEIT              (A5)
0200 1 ZEITZONE              (N2)
0210 1 CC-FLAG               (A1)
0220 1 CC                    (A20)
0230 1 CC-ADRESSTYP      (N2)
0240 1 CC-ADDESSQUELLE     (A1)
0250 *
0260 1 #INX                  (P3)
0270 *
0280 END-DEFINE
0290 *
0300 RESET RETURN-CODE
0310 MOVE 'BUERO'  TO BUERO
0320 MOVE 'PASSWORT' TO PASSWORT
0330 MOVE 'BUERONAME' TO BUERONAME
0340 MOVE 'X'        TO MELDUNG-EINSCHALTEN
0350 FOR #INX 1 TO 10
0360   MOVE 'Bin naechsten Montag wieder hier' TO EMPFANGSMELDUNG(#INX)
0370 END-FOR
0380 MOVE '20000117' TO STARTDATUM
0390 MOVE '08:00'    TO STARTZEIT
0400 MOVE '20000124' TO ENDDATUM
0410 MOVE '18:00'    TO ENDZEIT
0420 MOVE 1          TO ZEITZONE
0430 MOVE 'X'        TO CC-FLAG
0440 MOVE 'CAB-NEXT' TO CC
0450 MOVE 33         TO CC-ADRESSTYP
0460 *
0470 CALLNAT 'Z-MOD05J'
0480     RETURN-CODE
0490     BUERO
0500     PASSWORT
0510     BUERONAME
0520     BUERO-ISN
0530     MELDUNG-EINSCHALTEN
0540     EMPFANGSMELDUNG(*)
0550     STARTDATUM
0560     STARTZEIT
0570     ENDDATUM
0580     ENDZEIT
0590     ZEITZONE
0600     CC-FLAG
0610     CC
0620     CC-ADRESSTYP
0630     CC-ADRESSQUELLE
0640 *
0650   IF RETURN-CODE EQ 0
0660     WRITE 'Bueo wurde geaendert'
0670   ELSE
0680     WRITE 'Return-Code' RETURN-CODE
0690   END-IF
0700 *
0710 END