Code: Alles auswählen.
* INITIALS
DATA: init_flag3 LIKE sy-input,
init_flag4 LIKE sy-input.
*-----------------------------------------------------------------------*
MODULE status_0400 OUTPUT.
SET PF-STATUS 'SCREEN_100'.
PERFORM d100_initial.
ENDMODULE. " status_0400 OUTPUT
*&---------------------------------------------------------------------*
*& Form D100_INITIAL
*&---------------------------------------------------------------------*
* Spezielle Anweisungen beim Initialem Aufruf von Dynpro 400
*----------------------------------------------------------------------*
FORM d100_initial.
swl_widisp_get_init init_flag1.
CHECK init_flag1 IS INITIAL.
* Anweisungen...
ENDFORM. " D100_INITIAL
*-----------------------------------------------------------------------*
MODULE status_0200 OUTPUT.
SET PF-STATUS 'SCREEN_200'.
PERFORM d200_initial.
ENDMODULE. " status_0400 OUTPUT
*&---------------------------------------------------------------------*
*& Form D200_INITIAL
*&---------------------------------------------------------------------*
* Spezielle Anweisungen beim Initialem Aufruf von Dynpro 400
*----------------------------------------------------------------------*
FORM d200_initial.
swl_widisp_get_init init_flag2.
CHECK init_flag2 IS INITIAL.
* Anweisungen...
ENDFORM. " D200_INITIAL
Code: Alles auswählen.
FUNCTION SWL1_USER_WIDISP_GET_INIT.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" EXPORTING
*" VALUE(INIT) TYPE XFELD
*"----------------------------------------------------------------------
INIT = INIT_USERSTRIP.
INIT_USERSTRIP = CROSS.
ENDFUNCTION.
Code: Alles auswählen.
if screen_100_called is initial. screen_100_called = 'X'. endif.
Code: Alles auswählen.
data:
G_FIRST_TIME_301 value 'X',
G_FIRST_TIME_302 value 'X'.
Code: Alles auswählen.
IF NOT G_FIRST_TIME_301 is INITIAL.
*
... mach was beim ersten mal
*
ENDIF.
Code: Alles auswählen.
CLEAR G_FIRST_TIME_301