Code: Alles auswählen.
FORM test2 .
DATA: dyname LIKE d020s-prog,
dynumb LIKE d020s-dnum,
request LIKE d020s-type VALUE 'A',
ssf TYPE c VALUE 'X',
startdynpro(8) TYPE c VALUE 'STACKPOS',
start_search_on_scr_stackpos TYPE sytabix,
searchpath_of_subscreen_areas TYPE string,
dpovtab TYPE STANDARD TABLE OF dpov.
DATA: subrc1 TYPE sysubrc,
subrc2 TYPE sysubrc.
FIELD-SYMBOLS:<startdynpro> TYPE clike.
dyname = sy-repid.
DO 9999 TIMES.
dynumb = sy-index.
start_search_on_scr_stackpos = 1.
CALL 'HELP_GET_FIELDS' ID 'DYNAME' FIELD dyname
ID 'DYNUMB' FIELD dynumb
ID 'REQUEST' FIELD request
ID 'DPOVNAME' FIELD syst-repid
ID 'DPOVNUMB' FIELD syst-dynnr
ID 'SSF' FIELD ssf
ID 'PROOT' FIELD startdynpro
ID 'STACKPOS' FIELD start_search_on_scr_stackpos
ID 'PATH' FIELD searchpath_of_subscreen_areas
ID 'DPOV' FIELD dpovtab."#EC CI_CCALL
subrc1 = sy-subrc.
start_search_on_scr_stackpos = 2.
CALL 'HELP_GET_FIELDS' ID 'DYNAME' FIELD dyname
ID 'DYNUMB' FIELD dynumb
ID 'REQUEST' FIELD request
ID 'DPOVNAME' FIELD syst-repid
ID 'DPOVNUMB' FIELD syst-dynnr
ID 'SSF' FIELD ssf
ID 'PROOT' FIELD startdynpro
ID 'STACKPOS' FIELD start_search_on_scr_stackpos
ID 'PATH' FIELD searchpath_of_subscreen_areas
ID 'DPOV' FIELD dpovtab."#EC CI_CCALL
subrc2 = sy-subrc.
IF subrc1 = 0 AND subrc2 <> 0.
* was hier ankommt ist genau eine Aufrufhierarchie über der aktuellen
* Dynpronummer steht in Feld DYNUMB
BREAK-POINT.
ENDIF.
ENDDO.
ENDFORM. " test2