GET CURSOR FIELD fld OFFSET off VALUE val LENGTH len.的用法

GET CURSOR FIELD fld OFFSET off VALUE val LENGTH len.

 

fld:名称

off:偏移量

val:内容

len:长度

 

我输入的字段abc(20) type c,当我输入为5的时候，off为1，val为5，len为20.

*************************************************************************************

PROGRAM demo_dynpro_get_cursor .

DATA: ok_code TYPE sy-ucomm,
      save_ok LIKE ok_code.

DATA: input_output(20) TYPE c,
      fld(20) TYPE c,
      off     TYPE i,
      val(20) TYPE c,
      len     TYPE i.

CALL SCREEN 100.

MODULE init_screen_0100 OUTPUT.
  SET PF-STATUS 'STATUS_100'.
ENDMODULE.

MODULE user_command_0100 INPUT.
  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'CANCEL'.
      LEAVE PROGRAM.
    WHEN 'SELE'.
      GET CURSOR FIELD fld OFFSET off VALUE val LENGTH len.
  ENDCASE.
ENDMODULE.