Z-GET04X

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

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

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.

Return-Codes

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

Subprogramme

Keine

Beispiel

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