|
在 PAI写
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
DATA G_FIELD(8) TYPE C.
CASE OK_CODE.
WHEN 'ENTR'.
get cursor field g_field.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
在PBO写
*&---------------------------------------------------------------------*
*& Module SET_CUSSOR OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE SET_CUSSOR OUTPUT.
CASE g_field.
WHEN 'EDIT1'.
SET CURSOR FIELD 'EDIT2'.
WHEN OTHERS.
SET CURSOR FIELD 'EDIT1'.
ENDCASE.
ENDMODULE. " SET_CUSSOR OUTPUT |
|