Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'DYNTEST'.
SET TITLEBAR 'DYNTEST'.
concatenate '===>' mycnt into mytext.
CALL FUNCTION 'C14Z_DYNP_WRITE_FIELD'
EXPORTING
i_program = dyname
i_dynpro = dynumb
i_fieldname = 'MYTEXT'
i_line = 0
i_value = mytext.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CASE ok_code.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
WHEN OTHERS.
add 1 to mycnt.
concatenate '===>' mycnt into mytext.
CALL FUNCTION 'C14Z_DYNP_WRITE_FIELD'
EXPORTING
i_program = dyname
i_dynpro = dynumb
i_fieldname = 'MYTEXT'
i_line = 0
i_value = mytext.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT