Dieses Dokument behandelt die folgenden Themen:
Den Inhalt einer bestimmten Rubrik in chronologischer Reihenfolge anzeigen.
Dieses Subprogramm entspricht Z-DIS04A mit der Ausnahme, dass der Parameter ISN das Format P10 hat.
Sie sollten dieses Subprogramm solange iterativ aufrufen, bis das Ende der Liste durch den Return-Code 77 gekennzeichnet wird. Der Parameter Anzahl kann zwischen iterativen Aufrufen geändert werden.
Anmerkung:
Sie können dieses Subprogramm zusammen mit
Z-GET04X benutzen.
Parameter | Format | Ein | Aus | Bemerkung |
---|---|---|---|---|
Return-Code | N2 | O | X | Eingabe -1: kein ET. |
Rubrikname | A15 | E | Der Name der Rubrik, deren Inhalt Sie anzeigen wollen. | |
Startdatum | A8 | O | Wenn Sie ein ungültiges Format angeben, wird es auf 0 zurückgesetzt. | |
Ablagefolge | N1 | O | 1 (steigend) oder 2 (absteigend). Vorgabe: 1. | |
Alle-Objekte | A1 | O | Wenn gefüllt, werden alle Objekte ausgegeben. Wenn leer, werden nur Dokumente ausgegeben. | |
Anzahl | N2 | O | Die maximale Anzahl von Objekten, die mit jedem Aufruf ausgegeben werden. Wenn Sie keinen Wert definieren oder einen Wert, der größer ist als 20, wird der Vorgabewert 20 benutzt. | |
Vorkommen | N2 | X | Die Anzahl der Objekte, die mit diesem Aufruf ausgegeben werden. | |
Rubrikliste (20) | ||||
ISN | P8 | X | Die ISN des Objekts, das an die Rubrik gesendet wurde. | |
Betreff | A60 | X | Der Betreff des Objekts, das an die Rubrik gesendet wurde. | |
Zustellungsdatum | N8 | X | Format yyyymmdd. Das Datum, an dem das Objekt in die Rubrik gestellt wurde. | |
Absendername | A20 | X | Der Name des Teilnehmers, der das Objekt an die Rubrik gesendet hat. | |
Dokumentformat | A1 | X | Alle Werte außer 0 bis 9 bedeuten, dass das Objekt kein Dokument ist. Siehe Dokumentformate. | |
Work-Parameter | A34 | Für den internen Gebrauch. Siehe Work-Parameter. |
00 | Erfolg |
77 | Ende der Liste |
90 | Der Rubrikname ist erforderlich |
91 | Die Rubrik existiert nicht |
Keine
0010 * 0020 * Inhalt einer bestimmten Rubrik in 0030 * chronologischer Reihenfolge anzeigen 0040 * 0050 DEFINE DATA 0060 LOCAL 0070 1 RETURN-CODE (N2) 0080 1 RUBRIKNAME (A15) 0090 1 STARTDATUM (A8) 0100 1 ABLAGEFOLGE (N1) 0110 1 ALLE-OBJEKTE (A1) 0120 1 ANZAHL (N2) 0130 1 VORKOMMEN (N2) 0140 1 RUBRIKLISTE (20) 0150 2 ISN (P10) 0160 2 BETREFF (A60) 0170 2 ZUSTELLUNGSDATUM (N8) 0180 2 ABSENDERNAME (A20) 0190 2 DOKUMENTFORMAT (A1) 0200 /* 0 Txt 0210 /* 1 Cnf 0220 /* 2 Bin 0230 /* 3 Zwi 0240 /* 4 RFT-DCA 0250 /* 5 Druckerprofil 0260 /* 6 Src 0270 /* 7 FFT-DCA 0280 /* 8 Obj 0290 /* 9 Spr 0300 /* alles andere: kein Dokument 0310 * 0320 1 WORK-PARAMETER (A34) 0330 1 #INDEX (N2) 0340 * 0350 END-DEFINE 0360 * 0370 RESET RETURN-CODE 0380 MOVE 'RUBRIK ' TO RUBRIKNAME 0390 MOVE '20000101' TO STARTDATUM 0400 MOVE 1 TO ABLAGEFOLGE 0410 MOVE 'X' TO ALLE-OBJEKTE 0420 MOVE 20 TO ANZAHL 0430 * 0440 REPEAT UNTIL RETURN-CODE NE 0 0450 * 0460 CALLNAT 'Z-DIS04X' RETURN-CODE 0470 RUBRIKNAME 0480 STARTDATUM 0490 ABLAGEFOLGE 0500 ALLE-OBJEKTE 0510 ANZAHL 0520 VORKOMMEN 0530 RUBRIKLISTE(*) 0540 WORK-PARAMETER 0550 * 0560 FOR #INDEX 1 TO VORKOMMEN 0570 IF ISN(#INDEX) NE 0 0580 WRITE NOTITLE (SG=OFF ZP=OFF AD=L) 0590 '=' #INDEX 0600 / 'ISN ' ISN(#INDEX) 0610 / 'Betreff ' BETREFF(#INDEX) (AL=15) 0620 / 'Gesendet am ' ZUSTELLUNGSDATUM(#INDEX) 0630 / 'Gesendet von ' ABSENDERNAME(#INDEX) 0640 / 'Dokumentformat ' DOKUMENTFORMAT(#INDEX) / 0650 NEWPAGE 0660 END-IF 0670 END-FOR 0680 END-REPEAT 0690 * 0700 WRITE 'Return-Code ' RETURN-CODE 0710 * 0720 END