Spool-ID zum Hintergrundjob ermitteln

Code: Alles auswählen.

       job(8) type c,
        name(32) type c.

Code: Alles auswählen.

*&---------------------------------------------------------------------*
*& Report  ZTEST71                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ztest71.

* ============ SAP Hinweis 186603 ==============
*Bei der Anzeige einer Spool-Liste in der SP01 und bei der
*Weiterverarbeitung (z.B. Senden an SAPoffice) wird die Breite
*der Liste immer auf 255 gesetzt, egal wie breit die Liste vorher war.

DATA ls_tsp01 TYPE tsp01.

DATA: numbytes TYPE i,
      pdfspoolid LIKE tsp01-rqident,
      jobname LIKE tbtcjob-jobname,
      jobcount LIKE tbtcjob-jobcount,
      is_otf.

* Job Runtime Parameters
DATA: gd_eventid LIKE tbtcm-eventid,
      gd_eventparm LIKE tbtcm-eventparm,
      gd_external_program_active LIKE tbtcm-xpgactive,
      gd_jobcount LIKE tbtcm-jobcount,
      gd_jobname LIKE tbtcm-jobname,
      gd_stepcount LIKE tbtcm-stepcount.

* Spool IDs
TYPES: BEGIN OF t_tbtcp.
        INCLUDE STRUCTURE tbtcp.
TYPES: END OF t_tbtcp.

DATA: it_tbtcp TYPE STANDARD TABLE OF t_tbtcp INITIAL SIZE 0,
      wa_tbtcp TYPE t_tbtcp.

DATA  spoolno LIKE tsp01-rqident.


* Klappt NUR als Job !!!!!!
IF sy-batch IS INITIAL.
  SKIP.
  WRITE:/ '>>> Programm muss im Hintergrund (als Job) laufen <<<'
           COLOR COL_NEGATIVE INTENSIFIED OFF .
  EXIT.
ENDIF.

* Get current job details
CALL FUNCTION 'GET_JOB_RUNTIME_INFO'
  IMPORTING
    eventid                 = gd_eventid
    eventparm               = gd_eventparm
    external_program_active = gd_external_program_active
    jobcount                = gd_jobcount
    jobname                 = gd_jobname
    stepcount               = gd_stepcount
  EXCEPTIONS
    no_runtime_info         = 1
    OTHERS                  = 2.

* Nimm das Spoolfile des vorherigen Steps
gd_stepcount = gd_stepcount - 1.

IF gd_stepcount < 1.
  MESSAGE s398(00) WITH
  'Problem - kann nicht als STEP 1 laufen !!' '' '' ''.
  EXIT.
ENDIF.

SELECT * FROM tbtcp
INTO TABLE it_tbtcp
WHERE jobname = gd_jobname
AND jobcount = gd_jobcount
AND stepcount = gd_stepcount
AND listident <> '0000000000'
ORDER BY jobname  jobcount  stepcount.

READ TABLE it_tbtcp INTO wa_tbtcp INDEX 1.
IF sy-subrc = 0.
  spoolno = wa_tbtcp-listident.
  MESSAGE s398(00) WITH 'Spoolnummer ' spoolno ' gefunden.' '' .
ELSE.
  MESSAGE s398(00) WITH 'Problem - keine Spoolnummer gefunden' '' '' ''.
  EXIT.
ENDIF.


SELECT SINGLE * FROM tsp01 INTO ls_tsp01 WHERE rqident = spoolno.
IF sy-subrc <> 0.
  WRITE: / 'Spoolauftrag existiert nicht'(003)
          COLOR COL_NEGATIVE.
  EXIT.
ENDIF.