*---------------------------------------------------------------------*
*                   Z _ B J H _ J O B _ W A R T E N                   *
*                                                                     *
*                  Autor: Bernd Haase (BJH Software)                  *
*---------------------------------------------------------------------*
* Testprogramm für z_bjh_job_anstoss                                  *
* Die hier vorhandene Tabelle zzv_test dient zur Übergabe der Para-   *
* meter, hier ist es zwar nur die Sekunden, die dieser Job warten soll*
* es könnten aber auch Stücklistendaten oder Rechnungsnummer sein.    *
*---------------------------------------------------------------------*
* 07.04.2005 BHaa: Programm erstellt                                  *
*---------------------------------------------------------------------*
REPORT  z_bjh_job_warten           .

TABLES:
 zzv_test.     "Datei zur Übergabe der Parameter

DATA:
 wa_test LIKE zzv_test.

START-OF-SELECTION.

* geht nicht über Import, also über Tabelle
* IMPORT wa_sekunden FROM MEMORY ID 'ZZ_TEST_JOB_SEK'.

 SELECT SINGLE * FROM zzv_test INTO wa_test
 WHERE schl = 'A'.
 IF sy-subrc = 0.
   WRITE: / sy-datum, sy-uzeit, wa_test-wert, 'Sekunden Wartezeit'.

   WAIT UP TO wa_test-wert SECONDS.

   WRITE: / sy-datum, sy-uzeit.
 ENDIF.

END-OF-SELECTION.
 EXIT.

***** Ende *****
* Copyright BJH Software, Datei überarbeitet am: 26.5.2005