Z-DIS04X

Dieses Dokument behandelt die folgenden Themen:


Beschreibung

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

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.

Return-Codes

00 Erfolg
77 Ende der Liste
90 Der Rubrikname ist erforderlich
91 Die Rubrik existiert nicht

Subprogramme

Keine

Beispiel

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