Dieses Dokument behandelt die folgenden Themen:
Ein Objekt ausgeben, das in einer bestimmten Rubrik enthalten ist.
Dieses Subprogramm entspricht Z-GET04 mit der Ausnahme, dass der Parameter ISN das Format P10 hat.
Sie müssen die ISN des gewünschten Objekts angeben. Um die ISN zu erfahren, müssen Sie zuerst Z-DIS04X aufrufen.
Wenn Sie den Parameter Alle-Objekte leer lassen, werden nur Dokumente ausgegeben (alle anderen Objekte werden ignoriert). In diesem Fall wird im Parameter Text-Array der Dokumenttext ausgegeben, einschließlich Begleitschreiben und Anlagen.
Wenn Sie den Parameter Alle-Objekte markieren, werden auch die Objekte ausgegeben, die keine Dokumente sind (z.B. Referenzdokumente oder Anwendungen). In diesem Fall wird im Parameter Text-Array nur das Begleitschreiben des Objekts ausgegeben.
Sie sollten dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 gekennzeichnet wird. Die Art des gerade bearbeiteten Textes wird im Parameter Texttyp ausgegeben.
Parameter | Format | Ein | Aus | Bemerkung |
---|---|---|---|---|
Return-Code | N2 | X | ||
ISN | P8 | E | Die ISN des Objekts, das Sie ausgeben wollen. Z-DIS04X gibt die ISN für jedes Objekt in einer Rubrik aus. | |
Alle-Objekte | A1 | O | Wenn leer, werden nur Dokumente ausgegeben. Wenn markiert, werden alle Objekte ausgegeben. | |
Betreff | A60 | X | Der Betreff des Objekts, das an die Rubrik gesendet wurde. | |
Dokumentformat | A1 | X | Alle Werte außer 0 bis 9 bedeuten, dass das Objekt kein Dokument ist. Siehe Dokumentformate. | |
Texttyp | A1 | X | C=Begleitschreiben, T=Dokumenttext, E=Anlage. | |
Texttyp-Gesamt | P3 | X | Die Anzahl der Begleitschreiben und Anlagen. 0 für Typ T. | |
Texttyp-Aktuell | P3 | X | Die Folgenummer des gerade ausgegebenen Begleitschreibens oder der Anlage. 0 für Typ T. | |
Text-Array | A251/1:20 | X | Der Text des Dokuments, des Begleitschreibens oder der Anlage. | |
Work-Parameter-1 | A240 | Für den internen Gebrauch. Siehe Work-Parameter. | ||
Work-Parameter-2 | A79 | Für den internen Gebrauch. Siehe Work-Parameter. |
00 | Erfolg |
04 | ISN wurde nicht gefunden |
09 | ISN zeigt nicht auf das richtige Objekt |
77 | Ende des Objekts (Begleitschreiben, Dokument, Anlagen) |
90 | ISN zeigt nicht auf ein Objekt in einer Rubrik |
Keine
0010 * 0020 * Objekt ausgeben, das in einer bestimmten 0030 * Rubrik enthalten ist 0040 * 0050 DEFINE DATA 0060 LOCAL 0070 1 RETURN-CODE (N2) 0080 1 ISN (P10) 0090 1 ALLE-OBJEKTE (A1) 0100 1 BETREFF (A60) 0110 1 DOKUMENTFORMAT (A1) 0120 1 TEXTTYP (A1) 0130 1 TEXTTYP-GESAMT (P3) 0140 1 TEXTTYP-AKTUELL (P3) 0150 1 TEXT-ARRAY (A251/1:20) 0160 1 WORK-PARAMETER-1 (A240) 0170 1 WORK-PARAMETER-2 (A79) 0180 1 #INDEX (N2) 0190 * 0200 END-DEFINE 0210 * 0220 RESET RETURN-CODE 0230 MOVE 1234567890 TO ISN 0240 MOVE 'X' TO ALLE-OBJEKTE 0250 * 0260 REPEAT UNTIL RETURN-CODE NE 0 0270 * 0280 CALLNAT 'Z-GET04X' 0290 RETURN-CODE 0300 ISN 0310 ALLE-OBJEKTE 0320 BETREFF 0330 DOKUMENTFORMAT 0340 TEXTTYP 0350 TEXTTYP-GESAMT 0360 TEXTTYP-AKTUELL 0370 TEXT-ARRAY(*) 0380 WORK-PARAMETER-1 0390 WORK-PARAMETER-2 0400 * 0410 WRITE NOTITLE (SG=OFF ZP=OFF AD=L) 0420 'Betreff' BETREFF / 0430 'Dokumentformat' DOKUMENTFORMAT 2X 0440 'Texttyp' TEXTTYP 2X 0450 'Texttyp-Gesamt' TEXTTYP-GESAMT 2X 0460 'Texttyp-Aktuell' TEXTTYP-AKTUELL / 0470 * 0480 FOR #INDEX 1 TO 20 0490 WRITE NOTITLE (SG=OFF ZP=OFF AD=L) TEXT-ARRAY(#INDEX) (AL=79) 0500 END-FOR 0510 * 0520 END-REPEAT 0530 * 0540 WRITE 'Return-Code ' RETURN-CODE 0550 * 0560 END