ABAP培训第一节(2021-05-23)

*&---------------------------------------------------------------------*
*& Report ZMM009
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zmm009.

DATA: xing TYPE c LENGTH 4.  "char
DATA: ming TYPE c LENGTH 6.
DATA: xm TYPE c LENGTH 10 .

"alv

DATA: gs_layout TYPE slis_layout_alv .
DATA: gt_fieldcat TYPE TABLE OF  slis_fieldcat_alv.
DATA: gs_fieldcat TYPE slis_fieldcat_alv.




xing = '张' .  "赋值
ming = '飞' . "赋值

xm = xing && ming   . "联合 再赋值 hana 专用 ECC无法用

CONCATENATE : xing  ming INTO xm .  "ECC 和HANA 都可以用

WRITE xm . "输入到屏幕

"线 结构
DATA : BEGIN OF gs_cjd ,  " s struct 结构  G GLOBLE 全局
         xm TYPE c LENGTH 10 , "姓名
         bj TYPE c LENGTH 10,  "班级
         fs TYPE i ,           " 分数
       END OF gs_cjd .
DATA : gt_cjd LIKE TABLE OF gs_cjd . "定义一个表

gs_cjd-xm = '张飞' .
gs_cjd-bj = '一二班' .
gs_cjd-fs = 98 .

APPEND gs_cjd TO gt_cjd .
gs_cjd-xm = '赵云' .
gs_cjd-bj = '一三班' .
gs_cjd-fs = 97 .

APPEND gs_cjd TO gt_cjd .

APPEND gs_cjd TO gt_cjd .
gs_cjd-xm = '关羽' .
gs_cjd-bj = '一三班' .
gs_cjd-fs = 97 .

APPEND gs_cjd TO gt_cjd .

    gs_fieldcat-fieldname = 'XM'.
    gs_fieldcat-seltext_l =  '姓名or中文名'.
    APPEND gs_fieldcat TO gt_fieldcat.
    CLEAR: gs_fieldcat.

    gs_fieldcat-fieldname = 'BJ'.
    gs_fieldcat-seltext_l =  '班级'.
    APPEND gs_fieldcat TO gt_fieldcat.
    CLEAR: gs_fieldcat.

    gs_fieldcat-fieldname = 'FS'.
    gs_fieldcat-seltext_l =  '分数'.
    APPEND gs_fieldcat TO gt_fieldcat.
    CLEAR: gs_fieldcat.

  gs_layout-colwidth_optimize = 'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
*      i_callback_pf_status_set = 'FRM_STATUS_SET'
*      i_callback_user_command  = 'FRM_USER_COMMAND'
*
*     I_GRID_SETTINGS          =
      is_layout                = gs_layout
      it_fieldcat              = gt_fieldcat
*     ES_EXIT_CAUSED_BY_USER   =
    TABLES
      t_outtab                 = gt_cjd
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.