Mit diesem User-Exit können Sie Regeln für die Erstellung für Rufnamen definieren. Sie können zum Beispiel angeben, dass bei einem bestimmten Empfängertyp nur die ersten 5 Zeichen des Nach- und Vornamens für die Erstellung des Rufnamens benutzt werden sollen.
Sie können USR0060C entweder online (in der Bibliothek SYSCNT2) oder im Batch-Modus (in der Bibliothek SYSCNT2B) aufrufen. Weitere Informationen finden Sie in der Dokumentation Con-nect Installation and Operations, Abschnitt Invoking Con-nect.
Wenn dieser User-Exit nicht in der aktuellen Bibliothek katalogisiert ist, werden die im "Adressen synchronisieren - Profil eingeben"-Bildschirm definierten Importregeln verwendet.
| Parameter | Format | Ein | Aus | Bemerkung |
|---|---|---|---|---|
| Addressee-type | N2 | X | 1=Adresse (Rufname), 4=Rubrik, 5=Büro (offenes Büro, Gruppenbüro oder unabhängiges Büro), 33=Privatbüro, 74=externe Adresse. | |
| Mail-ID | A8 | X | #1 | |
| Node-name | A8 | X | #2 - Name des Knotens, von dem die Adresse stammt. | |
| Last-name | A32 | X | #3 - Nachname des Empfängers. | |
| First-name | A32 | X | #4 - Vorname des Empfängers. | |
| CD-name | A8 | X | #5 - Name des zentralen Verzeichnisses. | |
| Alias | A8 | X | #6 - Eindeutiges, vom System vergebenes Kennzeichen. | |
| Addressee | A32 | X | #7 - Name des Empfängers (Beschreibung oder Büroname, vollständiger Name des Teilnehmers, Rufname, Rubrik oder externe Adresse). | |
| Address-nickname | A20 | X | Rufname. | |
| Address-nickname-exc | A20 | X | Im Falle von doppelten Rufnamen überschreibt dieser Parameter den Parameter Address-nickname. |
Das folgende Programm erstellt Rufnamen für importierte Adressen. Die Importregeln und Ausnahme-Importregeln werden berücksichtigt.
0010 DEFINE DATA 0020 * 0030 PARAMETER 0040 * 0050 /* INPUT: 0060 1 #ADDRESSEE-TYPE (N2) /* Addressee type. The following 0070 /* values are used: 0080 /* 01 Addressee is a nickname 0090 /* 04 Addressee is a bulletin board 0100 /* 05 Addressee is a public, shared or 0110 /* standalone cabinet 0120 /* 33 Addressee is a private cabinet 0130 /* 74 Addressee is an external address 0140 /* The following fields are identical 0150 /* to those in the 'Directory 0160 /* Synchronization - Add Profile' 0170 /* screen: 0180 1 #MAIL-ID (A8) /* #1 Addressee's user ID 0190 1 #NODE-NAME (A8) /* #2 Node name from which address 0200 /* originates 0210 1 #LAST-NAME (A32) /* #3 Addressee's last name 0220 1 #FIRST-NAME (A32) /* #4 Addressee's first name 0230 1 #CD-NAME (A8) /* #5 Name of central directory 0240 1 #ALIAS (A8) /* #6 Unique ID which is assigned by 0250 /* the system 0260 1 #ADDRESSEE (A32) /* #7 Addressee's name 0270 /* OUTPUT: 0280 1 #ADDRESS-NICKNAME (A20) /* Address' nickname 0290 1 #ADDRESS-NICKNAME-EXC (A20) /* Address' nickname if in the case 0300 /* parameter address-nickname is not 0310 /* unique. 0320 END-DEFINE 0330 * 0340 RESET #ADDRESS-NICKNAME 0350 RESET #ADDRESS-NICKNAME-EXC 0360 * 0370 DECIDE FOR FIRST CONDITION 0380 WHEN #ADDRESSEE-TYPE EQ 01 /* #2 #7 0390 MOVE SUBSTRING(#NODE-NAME,1,6) TO SUBSTRING(#ADDRESS-NICKNAME,1,6) 0400 MOVE '.' TO SUBSTRING(#ADDRESS-NICKNAME,7,1) 0410 MOVE SUBSTRING(#O,1,13) TO SUBSTRING(#ADDRESS-NICKNAME,8,13) 0420 * /* #6 0430 MOVE #ALIAS TO #ADDRESS-NICKNAME-EXC 0440 * 0450 WHEN #ADDRESSEE-TYPE EQ 04 /* #2 #7 0460 MOVE SUBSTRING(#NODE-NAME,1,6) TO SUBSTRING(#ADDRESS-NICKNAME,1,6) 0470 MOVE SUBSTRING(#ADDRESSEE,1,14) TO SUBSTRING(#ADDRESS-NICKNAME,7,14) 0480 * /* #6 0490 MOVE #ALIAS TO #ADDRESS-NICKNAME-EXC 0500 * 0510 WHEN #ADDRESSEE-TYPE EQ 05 /* #7 #2 #1 0520 MOVE SUBSTRING(#OBJECT-NAME,1,8) TO SUBSTRING(#ADDRESS-NICKNAME,1,8) 0530 MOVE '.' TO SUBSTRING(#ADDRESS-NICKNAME,9,1) 0540 MOVE SUBSTRING(#NODE-NAME,1,5) TO SUBSTRING(#ADDRESS-NICKNAME,10,5) 0550 MOVE '.' TO SUBSTRING(#ADDRESS-NICKNAME,15,1) 0560 MOVE SUBSTRING(#Mail-ID,1,5) TO SUBSTRING(#ADDRESS-NICKNAME,16,5) 0570 * /* #6 0580 MOVE #ALIAS TO #ADDRESS-NICKNAME-EXC 0590 * 0600 WHEN #ADDRESSEE-TYPE EQ 33 /* #7 #4 #1 0610 MOVE SUBSTRING(#OBJECT-NAME,1,8) TO SUBSTRING(#ADDRESS-NICKNAME,1,8) 0620 MOVE '.' TO SUBSTRING(#ADDRESS-NICKNAME,9,1) 0630 MOVE SUBSTRING(#FIRST-NAME,1,4) TO SUBSTRING(#ADDRESS-NICKNAME,10,4) 0640 MOVE '.' TO SUBSTRING(#ADDRESS-NICKNAME,14,1) 0650 MOVE SUBSTRING(#Mail-ID,1,6) TO SUBSTRING(#ADDRESS-NICKNAME,15,6) 0660 * /* #6 0670 MOVE #ALIAS TO #ADDRESS-NICKNAME-EXC 0680 * 0690 WHEN #ADDRESSEE-TYPE EQ 74 /* #3 #4 #1 0700 MOVE SUBSTRING(#LAST-NAME,1,6) TO SUBSTRING(#ADDRESS-NICKNAME,1,6) 0710 MOVE '.' TO SUBSTRING(#ADDRESS-NICKNAME,7,1) 0720 MOVE SUBSTRING(#FIRST-NAME,1,6) TO SUBSTRING(#ADDRESS-NICKNAME,8,6) 0730 MOVE '.' TO SUBSTRING(#ADDRESS-NICKNAME,14,1) 0740 MOVE SUBSTRING(#Mail-ID,1,6) TO SUBSTRING(#ADDRESS-NICKNAME,15,6) 0750 * /* #6 0760 MOVE #ALIAS TO #ADDRESS-NICKNAME-EXC 0770 * 0780 WHEN NONE 0790 IGNORE 0800 END-DECIDE 0810 * 0820 END