Spool von Jobs auslesen

[Jutta3793]

Hallo Zusammen,

wir haben folgende Anforderung:

Bei uns werden Arbeitszeiten aus der CATS automatisch genehmigt. (CATS_APPR_LITE) Diese Transaktion läuft als Job mehrmals am Tag. Die dadurch erzeugten Protokolle liegen ja in den erzeugten Spoolaufträgen. Wie kann ich diese per System/Programm automatisch auslesen, aufbereiten und an die zuständige Sachbearbeiter verteilen. Wir wollen nicht jedem Hansel die Zugriffsberechtigung auf die SM37 geben. Damit wären alle überfordert.

Ziel soll es sein, das abgelehnte Zeiten, egal ob vom BADI oder vom System abgelehnt, direkt beim "Verursacher" aufschlagen.

Ich hoffe ich habe das so einigermaßen Verständlich beschrieben. Für Ideen bin ich sehr dankbar.

Grüße
Jens

[Tron]

Moin Jens.
Ich schlage vor :
Für die Freigabe (als Job) einen kleinen eigenen Report laufen zu lassen, dessen Kernstück der Baustein CATS_APPROVAL ist. So stehen Dir die Ergenisse nach dem Aufruf zu verfügung und Du kannst bequem die Rejections an die Mitarbeiter als Email oder Druck senden. Datenbasis ist die Tabelle CATSDB.
Den Spool zurücklesen - Auswerten - und Drucken ist aufwendig.

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. *&---------------------------------------------------------------------*
2. *&      Form  approval
3. *&---------------------------------------------------------------------*
4. *       text
5. *----------------------------------------------------------------------*
6. FORM approval.
7.   DATA msg TYPE REF TO cl_message_handler_catsxt.
8.   DATA profile_name TYPE catsvarian VALUE 'FRGT2'.
9.  
10.   DATA processed_records TYPE TABLE OF cats_approval_out.
11.   DATA ls_res TYPE cats_approval_out.
12.   DATA record_error TYPE xfeld.
13.   DATA idx TYPE sy-tabix.
14.  
15.  
16.   IF NOT lt_records[] IS INITIAL.
17.     CREATE OBJECT msg.
18.  
19.     CALL FUNCTION 'CATS_APPROVAL'
20.       EXPORTING
21.         message_handler            = msg
22.         mail                       = ' '
23. *       MAIL_TEXT_ADD_ON           =
24. *       DIRECT_HR                  =
25. *       AUTH_CHECK                 = 'X'
26. *       ENQUEUE_PERNR              = 'X'
27.         profile_name               = profile_name
28.         records                    = lt_records
29.       IMPORTING
30.         processed_records          = processed_records
31.         record_error               = record_error
32.       EXCEPTIONS
33.         update_error               = 1
34.         number_range_error         = 2
35.         longtext_error             = 3
36.         message_handler_not_active = 4
37.         OTHERS                     = 5.
38.  
39.     IF sy-subrc = 0.
40.       FREE msg.
41.  
42.       LOOP AT lt_records INTO ls_records.
43.    :
44.    :
45.    :
46.  

GeSHi ©

gruß (auch) Jens

[Jutta3793]

Moin Jens ,

das wäre in der Tat eine Idee. Ich müsste mir den Baustein mal genauer anschauen was da im Fehlerfall genau zurückkommt. Auch muss ich noch testen ob dann unsere Userexits noch durchlaufen werden. Oder ich bau die ganzen Logiken einfach im Report nach. Danke für die Idee. Hät ich aber auch selbst drauf kommen können.

Grüße nach Hamburg
Jens