Fortführen der Schleife

Getting started ... Alles für einen gelungenen Start.
2 Beiträge Seite 1 von 1
2 Beiträge Seite 1 von 1

Fortführen der Schleife

Beitrag von ichse18577 (ForumUser / 11 / 8 / 0 ) » 18. Apr 2019 07:33

Hallo zusammen,
ich habe da eine kleine Aufgabe bekommen, bei der ich Formulare welche in einer Tabelle zusammengefasst sind, bzw. deren Funktionsbausteine aufrufen/testen soll.
Das ganze um die Verwendungsnachweise zu aktualisieren.
Soweit habe ich das ganze auch schon geschafft, nur mir fehlt ein Zusatz der quasi automatisch F3 "drückt" um vom einen zum nächsten Formular zu springen, bzw wieder zum Anfang meiner Schleife bringt. Ich habe schon viel mit CONTINUE, LEAVE PROGRAM oder LEAVE SCREEN bla bla versucht aber bin nicht auf die Lösung gekommen. Hier mal mein Code zum besseren Verständnis (bitte nicht zu sehr auf die Namenskonventionen achten :D). In der letzten IF-Schleife bin ich am probieren.
Am besten sollte man das ganze auch Nachts in einem JOB laufen lassen können.

Vielen Dank schonmal!

Code: Alles auswählen.

DATA: gt_forms    TYPE TABLE OF fpcontext-name,
      gf_forms    LIKE LINE OF gt_forms,
      gf_funcn       LIKE rs38l-name,
      gf_seq         LIKE rs38l-head,
      gf_trace       LIKE rs38l-head,
      gf_lines       TYPE i,
      gf_lines_c     TYPE string,
      gf_counter_c   TYPE string,
      gf_counter     TYPE i VALUE 1,
      gf_prozent     TYPE numc3,
      gf_text        TYPE string,
      gf_timer       TYPE i.

**********************************************************************
" Selektion der Tabelle mit nötigen FuBas
SELECT fpcontext~name FROM fpcontext INTO TABLE gt_forms.

**********************************************************************

DESCRIBE TABLE gt_forms LINES gf_lines.

LOOP AT gt_forms INTO gf_forms.

**********************************************************************
" Progress Indicator zur Statusanzeige des momentanen FuBa's
  gf_prozent = ( gf_counter / gf_lines ) * 100.
  gf_counter_c = gf_counter.
  gf_lines_c = gf_lines.
  CONCATENATE gf_counter_c '/' gf_lines_c 'Formulare' INTO gf_text SEPARATED BY space.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = gf_prozent
      text       = gf_text.

**********************************************************************

**********************************************************************
"Umwandlung Tabelleneintrag in Name des FuBa's
  CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
    EXPORTING
      i_name     = gf_forms
    IMPORTING
      e_funcname = gf_funcn.

**********************************************************************

**********************************************************************
" Testen des jeweiligen FuBa's
  CALL FUNCTION 'SFCS_FA_TEST_FUNCTION'
    EXPORTING
      funcname            = gf_funcn
      sequence            = gf_seq
      run_time_on         = 'X'
      trace_special_units = gf_trace
    EXCEPTIONS
      OTHERS              = 1.
  IF sy-subrc <> 0.
    IF sy-batch = space.
      IF NOT sy-msgid IS INITIAL.
        MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.

      SET SCREEN 0. LEAVE SCREEN.
    ENDIF.

  ELSE.
  ENDIF.

  ADD 1 TO gf_counter.

IF sy-tabix <> 0.

      wait up to 1 SECONDS.
      SET SCREEN 0.
*      LEAVE PROGRAM.
      CONTINUE.
ENDIF.

ENDLOOP. 


Re: Fortführen der Schleife

Beitrag von ichse18577 (ForumUser / 11 / 8 / 0 ) » 18. Apr 2019 08:08

Okay ich denke ich habe mein Problem gelöst.

Bei der CALL FUNCTION einfach ein IN BACKGROUND TASK hinzugefügt und mein IF schaut jetzt so aus:

Code: Alles auswählen.

  IF sy-tabix <> gf_counter.

      CONTINUE.
      LEAVE TO SCREEN 0.

ENDIF.

Seite 1 von 1

Aktuelle Forenbeiträge

ABAP Clean Code
vor 2 Stunden von ralf.wenzel 40 / 898
Userexit vor dem Transport-import
vor 4 Stunden von ewx 6 / 101
Abrechnung Konditionskontrakte Wildcards
vor 4 Stunden von SAP_ENTWICKLER 3 / 46
ADOBE Forms - geschachtelte Tabellen
vor 20 Stunden von a-dead-trousers 3 / 55
Merkmale in Abhängigkeit vom Beziehungswissen
vor 23 Stunden von wreichelt 6 / 181

Unbeantwortete Forenbeiträge

[GELÖST] Feld KNVV-BOIDT
vor 5 Tagen von SAP_ENTWICKLER 1 / 54
Sortierbegriffe einer Stückliste ändern
vor 5 Tagen von mbiesenb 1 / 41
Feiertagsklasse und Lohnart Verknüpfung entfernen
vor 5 Tagen von Flashtie 1 / 41
Berechtigungen für Batch User
vor einer Woche von JohnLocklay 1 / 88