Dieses Dokument behandelt die folgenden Themen:
Den Text einer Agenda ausgeben, die mit einem Termin, einer Besprechung oder einer Einladung verknüpft wurde. Dies beinhaltet auch geänderte Besprechungen und Absagemitteilungen.
Dieses Subprogramm gibt eine Agenda in den folgenden Formaten aus: Txt, Cnf, Bin, RFT, FFT und Spr.
Bei einer Agenda, die mit Entire Connection importiert wurde, können Sie den Parameter Konvertieren markieren. Die Agenda wird dann in das alte Übertragungsformat von Entire Connection konvertiert.
Die Parameter Letzte-Zeile-gefuellt und Letzte-Zeile-Text werden nur für die Dokumentformate Txt und Cnf ausgegeben.
Sie sollten dieses Subprogramm solange iterativ aufrufen, bis der Return-Code 77 ausgegeben wird. Der Return-Code 77 bedeutet, dass die Agenda gelesen wurde.
| Parameter | Format | Ein | Aus | Bemerkung |
|---|---|---|---|---|
| Return-Code | N2 | O | X | Eingabe -1: kein ET. |
| Buero | A8 | E | Das Büro, in dem das gewünschte Dokument enthalten ist. | |
| Passwort | A8 | E | Das Passwort des o.g. Büros. | |
| Kalender-ISN | P10 | E | Die ISN des ersten Satzes des Kalendereintrags (Besprechung, Termin oder Einladung), für den eine Agenda ausgegeben werden soll. | |
| Agendaname | A32 | X | Der Name des Dokuments, das als Agenda benutzt wird. | |
| Dokumentformat | A1 | X | 0=Txt, 1=Cnf, 2=Bin, 4=RTF, 7=FFT, 9=Spr. | |
| Text-Array | A251/1:20 | X | Text (Txt oder Cnf) oder Binärdaten (Bin, RFT, FFT oder Spr). Das erste Zeichen, das in jedem Element des Text-Arrays ausgegeben wird, zeigt die Anzahl der zu wiederholenden Zeilen. | |
| Letzte-Zeile-gefuellt | N2 | X | Die Anzahl aller Zeilen des aktuellen Datensatzes, einschließlich aller Leerzeilen am Textende. Wird nur für Txt- und Cnf-Dokumente ausgegeben. | |
| Letzte-Zeile-Text | N2 | X | Die Nummer der letzten Textzeile. Leerzeilen am Textende werden nicht berücksichtigt. Wird nur für Txt- und Cnf-Dokumente ausgegeben. | |
| Konvertieren | A1 | O | Gilt für die Dokumentformate Bin, RFT, FFT und Spr. Wenn markiert, werden Binärdaten (B90) in das alte Übertragungsformat von Entire Connection (A120) konvertiert. | |
| Work-Parameter | A25 | Für den internen Gebrauch. Siehe Der Work-Parameter. |
| 00 | Erfolg |
| 02 | Ungültiger Büroname oder - nur im Batch-Betrieb - Büro gesperrt |
| 03 | Falsches Passwort |
| 04 | ISN wurde nicht gefunden |
| 09 | ISN zeigt nicht auf das richtige Objekt (Besprechung, Termin oder Einladung) |
| 77 | Ende des Objekts |
Z-120
Z-122
Z-123
Z-165
Z-175
Z-177
Z-194
Z-197
Z-222
Z-223
Z-400
Z-401
Z-1200&0
* Agenda einer Besprechung ausgeben
*
DEFINE DATA
LOCAL
1 RETURN-CODE (N2)
1 BUERO (A8)
1 PASSWORT (A8)
1 KALENDER-ISN (P10)
1 AGENDANAME (A32)
1 DOKUMENTFORMAT (A1)
1 TEXT-ARRAY (A251/1:20)
1 LETZTE-ZEILE-GEFUELLT (N2)
1 LETZTE-ZEILE-TEXT (N2)
1 KONVERTIEREN (A1)
1 WORK-PARAMETER (A25)
*
END-DEFINE
*
RESET WORK-PARAMETER
MOVE 'Buero' TO BUERO
MOVE 'Passwort' TO PASSWORT
MOVE 102760 TO KALENDER-ISN
*
REPEAT UNTIL RETURN-CODE NE 0
CALLNAT 'Z-GETAG'
RETURN-CODE
BUERO
PASSWORT
KALENDER-ISN
AGENDANAME
DOKUMENTFORMAT
TEXT-ARRAY(*)
LETZTE-ZEILE-GEFUELLT
LETZTE-ZEILE-TEXT
KONVERTIEREN
WORK-PARAMETER
*
IF RETURN-CODE EQ 0 OR EQ 77
NEWPAGE
WRITE '=' AGENDANAME / '=' KALENDER-ISN /
*
WRITE
'=' DOKUMENTFORMAT
'=' KONVERTIEREN /
'=' LETZTE-ZEILE-GEFUELLT
'=' LETZTE-ZEILE-TEXT
*
IF LETZTE-ZEILE-GEFUELLT GT 0
IF NOT ( DOKUMENTFORMAT EQ ' '
OR DOKUMENTFORMAT EQ '0'
OR DOKUMENTFORMAT EQ '1' )
* Text in Bin (kein Format von Entire Connection)
* oder Bin, RFT, FFT, Spr (Format von Entire Connection)
* wird im hexadezimalen Format ausgegeben
*
WRITE
/ 'BIN-ARR(1) ' TEXT-ARRAY(1)
(AL=30 EM=HHHHHHHHHHHHHHHHHHHHHHHHH)
/ 'BIN-ARR(2) ' TEXT-ARRAY(2)
(AL=30 EM=HHHHHHHHHHHHHHHHHHHHHHHHH)
/ 'BIN-ARR(LETZTE-ZEILE-GEFUELLT) '
TEXT-ARRAY(LETZTE-ZEILE-GEFUELLT)
(AL=30 EM=HHHHHHHHHHHHHHHHHHHHHHHHH)
ELSE
WRITE
/ 'TEXT-ARR(1) ' TEXT-ARRAY(1)(AL=30)
/ 'TEXT-ARR(2) ' TEXT-ARRAY(2)(AL=30)
/ 'TEXT-ARR(LETZTE-ZEILE-GEFUELLT) '
TEXT-ARRAY(LETZTE-ZEILE-GEFUELLT)(AL=30)
END-IF
END-IF
END-IF
END-REPEAT
WRITE 'Return-Code: ' RETURN-CODE
END