Code: Alles auswählen.
CALL SCREEN 5000
STARTING AT 5 20
ENDING AT 105 40.
Code: Alles auswählen.
FREE REF_DOCKING_CONTAINER_p.
CLEAR O_SALV2.
CASE WA_OUTPUT-VKORG.
WHEN VKORG0.
cl_salv_table=>factory(
EXPORTING r_container = ref_docking_container_p
IMPORTING r_salv_table = o_salv2 "
CHANGING t_table = IT_vkorg0 ).
o_salv2->display( ).
WHEN VKORG1.
cl_salv_table=>factory(
EXPORTING r_container = ref_docking_container_p
IMPORTING r_salv_table = o_salv2 "
CHANGING t_table = IT_vkorg1 ).
o_salv2->display( ).
ENDCASE.
Code: Alles auswählen.
IF sy-ucomm = 'BACK'.
LEAVE TO SCREEN 0.
ENDIF.
Code: Alles auswählen.
REF_DOCKING_CONTAINER_p->free( ).