请直接在帖子中粘贴小程序，这样更容易理解您的问题。

报告 z_zfplanerep01。

 表格：zfplane。
 类型：ty_zfplane的开始，
       carrid TYPE zfplane-carrid，
       connid TYPE zfplane-connid，
       pname TYPE zfplane-pname，
       pfromdate TYPE zfplane-pfromdate，
       ptodate TYPE zfplane-ptodate，
       pchec TYPE zfplane-pchec，
       prpos类型zfplane-prpos，
       灯（1）TYPE C，
 ty_zfplane的结尾。
 数据：ty_zfplane的lt_zfplane类型表，
       ls_zfplane类型ty_zfplane。
 数据：lt_fcat类型lvc_t_fcat，
       ls_fcat类型lvc_s_fcat。
 数据：ls_layo类型lvc_s_layo。


 选择开始。

   执行get_form。
   执行layo_form。
   执行display_form。


 * -------------------------------------------------  --------------------- *
 FORM get_form。

   选择香菜
          纵容
          pname
          pdate
          to
          che
          prpos从zfplane插入表lt_zfplane。

   SORT lt_zfplane按pfromdate ptodate排序。
 ENDFORM。  " get_form

 * -------------------------------------------------  --------------------- *
 FORM display_form。

   PERFORM field_cat使用：
     'CARRID''航空公司代码''lt_zfplane'1 4，
     'CONNID''飞行连接号''lt_zfplane'2 10，
     'PNAME''旅客姓名''lt_zfplane'3 15
     'PFROMDATE''出发日期''lt_zfplane'4 10，
     'PTODATE''到达日期''lt_zfplane'5 10，
     'PCHEC''欺骗目的''lt_zfplane'6 15
     'PRPOS''C +上的正数''lt_zfplane'7 10，
     'LIGHTS''Signal''lt_zfplane'8 2。

   通话功能'REUSE_ALV_GRID_DISPLAY_LVC'
    出口
      i_callback_program = sy-repid
 * I_CALLBACK_TOP_OF_PAGE =''
      is_layout_lvc = ls_layo
      it_fieldcat_lvc = lt_fcat
     桌子
       t_outtab = lt_zfplane
    例外情况
      程序错误= 1
      其他= 2
             。
   如果sy-subrc <> 0。
     消息ID sy-msgid类型sy-msgty编号sy-msgno
             与sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4。
   万一。
 ENDFORM。  " display_form

 * -------------------------------------------------  --------------------- *
 FORM field_cat使用p_fieldname TYPE字段名
                      p_coltext TYPE文本
                      p_tabname TYPE标签名
                      p_col_pos TYPE col_pos
                      p_outputlen TYPE outputlen。

   ls_fcat-fieldname = p_fieldname。
   ls_fcat-coltext = p_coltext。
   ls_fcat-tabname = p_tabname。
   ls_fcat-col_pos = p_col_pos。
   ls_fcat-outputlen = p_outputlen。

   附加ls_fcat至lt_fcat。
   清除ls_fcat。
 ENDFORM。  " field_cat

 * -------------------------------------------------  --------------------- *
 FORMlayo_form。

   在lt_zfplane处循环进入ls_zfplane。
     如果ls_zfplane-pchec ='CHECKED'。
       ls_zfplane-lights ='1'。
     ELSEIF ls_zfplane-pchec ='未检查'。
       ls_zfplane-lights ='3'。
     万一。
     从ls_zfplane TRANSPORTING灯修改lt_zfplane。
   结局。
   ls_layo-excp_fname ='指示灯'。

 ENDFORM。  " layo_form