【正文】
*FORM SUB_SET_FIELD USING I_POS TYPE ANY I_FIELDNAME TYPE ANY I_TABNAME TYPE ANY I_KEY TYPE ANY I_OUTPUTLEN TYPE ANY I_SELTEXT TYPE ANY I_EDIT TYPE ANY I_BOX TYPE ANY I_NO_ZERO TYPE ANY. GTH_FIELDCATCOL_POS = I_POS. 顯示列的位置 GTH_FIELDCATFIELDNAME = I_FIELDNAME. 內(nèi)表的字段名 GTH_FIELDCATTABNAME = I_TABNAME. 內(nèi)表名 GTH_FIELDCATKEY = I_KEY. 設(shè)置主鍵 GTH_FIELDCATOUTPUTLEN = I_OUTPUTLEN. 控制輸出列的寬度 GTH_FIELDCATSELTEXT_M = I_SELTEXT. 設(shè)置列的名稱(chēng) GTH_FIELDCATEDIT = I_EDIT. GTH_FIELDCATCHECKBOX = I_BOX. GTH_FIELDCATNO_ZERO = I_NO_ZERO. APPEND GTH_FIELDCAT TO GTD_FIELDCAT. CLEAR GTH_FIELDCAT.ENDFORM. sub_set_field7 / 7。** 設(shè)置ALV字段的屬性*amp。**amp。** i_typ 輸出的類(lèi)型* i_key 文本* i_info 數(shù)值*amp。 Form sub_set_title*amp。** text**FORM SUB_CLEAR . FREE: GTD_DATA, GTH_DATA.ENDFORM. sub_clear*amp。**amp。** ALV 用戶(hù)事件*amp。**amp。REUSE_ALV_COMMENTARY_WRITE39。** ALV列表抬頭的設(shè)定*amp。**amp。USER_COMMAND_ALV39。SET_PF_STATUS39。ALV_TOP_OF_PAGE39。REUSE_ALV_GRID_DISPLAY39。 Form sub_display*amp。 . 設(shè)置工具欄等ENDFORM. set_pf_status*amp。. 設(shè)置報(bào)表標(biāo)題 SET PFSTATUS 39。