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 / 15 / 8 / 1 ) » 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 / 15 / 8 / 1 ) » 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

Datenquelle einer Query ändern
vor 20 Stunden von Level83 3 / 65
Spaltennummer-Umwandlung Excel.
Gestern von il.ost 7 / 168
Black out im Bereich Objekterzeugung bei Vererbung gelöst
Gestern von Thomas R. 4 / 101

Unbeantwortete Forenbeiträge

Transaktion VL06 Verteilung ausgehender Lieferungen
vor 2 Tagen von SAP_ENTWICKLER 1 / 53
FuBa EXIT_SAPLVEDC_003 S/4 1809
vor 4 Tagen von SAP_ENTWICKLER 1 / 87
CDS VIEW mit BOPF Framework update
vor einer Woche von Abapanfänger 1 / 85
SAP Document Builder: Dokumenterzeugung
vor einer Woche von robin.heidrich 1 / 202
Lohnsteuerbescheinigung
vor einer Woche von kaim77 1 / 121