1、Header在这里显示的Text ID:0001,Text Object:VBBP,以及Text Name:0080000023000010,这几个字段在后面取值时要使用到编写程序*&-*ReportY10028REPORTY10028.DATAIT_DATATYPESTANDARDTABLEOFTLINE.W_DATATLINE.IDLIKETHEAD-TDID.LANGUAGETHEAD-TDSPRAS.NAMETHEAD-TDNAME.OBJECTTHEAD-TDOBJECT.START-OF-SELECTION.=0001EN0080000023000010VBBPCALLFUNCTI
2、ONREAD_TEXTEXPORTING*CLIENTSY-MANDTIDLANGUAGENAMEOBJECTARCHIVE_HANDLELOCAL_CATIMPORTINGHEADER=TABLESLINESIT_DATAEXCEPTIONS123NOT_FOUND45REFERENCE_CHECK6WRONG_ACCESS_TO_ARCHIVE7OTHERS8IFSY-SUBRC0.MESSAGESY-MSGIDSY-MSGTYNUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.LOOPATINTOW_DATA.WRITE:/W
3、_DATA-TDLINE.ENDLOOP.显示结果1.1.2. 写入长文本有时需要将其他的系统的资料Upload到长文本字段中,或者将资料从文字档、Excel档Upload到长文本字段中,使用BDC比较麻烦,这个时候可以使用SAVE_TEXT Function来写入长文本。查找Text ID,Text Object的方法在上一个章节已经说明,这里不再重复。REPORT Y10028.DATA HEADER LIKE THEAD.DATA LINES TYPE STANDARD TABLE OF TLINE .DATA W_LINE TYPE TLINE. HEADER-TDOBJECT = H
4、EADER-TDNAME = HEADER-TDID = HEADER-TDSPRAS = W_LINE = 测试资料写入 APPEND W_LINE TO LINES. CALL FUNCTION SAVE_TEXT EXPORTING* CLIENT = SY-MANDT HEADER = HEADER INSERT = X SAVEMODE_DIRECT = * OWNER_SPECIFIED = * LOCAL_CAT = * IMPORTING* FUNCTION =* NEWHEADER = TABLES LINES = LINES EXCEPTIONS ID = 1 LANGUAGE = 2 NAME = 3 OBJECT = 4 OTHERS = 5 . IF SY-SUBRC 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.COMMIT WORK.结果显示为:1.1.3. 删除长文本DELETE_TEXTSAVEMODE_DIRECTTEXTMEMORY_ONLY