[Func] 롱텍스트 가져오는 함수

[우승권]

롱텍스트 가져오는 함수. 

FORM READ_LONG_TEXT USING P1 P2 P3.

  CLEAR : THEAD, IT_LINE, IT_LINE[].

  THEAD-TDID = P1.
  THEAD-TDSPRAS  = SY-LANGU.
  THEAD-TDNAME   = P2.
  THEAD-TDOBJECT = P3.

  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      CLIENT                        = SY-MANDT
      ID                            = THEAD-TDID
      LANGUAGE                      = THEAD-TDSPRAS
      NAME                          = THEAD-TDNAME
      OBJECT                        = THEAD-TDOBJECT
*   ARCHIVE_HANDLE                   = 0
*   LOCAL_CAT                        = ' '
* IMPORTING
*   HEADER                          =
    TABLES
      LINES                         = IT_LINE
   EXCEPTIONS
     ID                            = 1
     LANGUAGE                      = 2
     NAME                          = 3
     NOT_FOUND                     = 4
     OBJECT                        = 5
     REFERENCE_CHECK               = 6
     WRONG_ACCESS_TO_ARCHIVE       = 7
     OTHERS                        = 8  .

  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

QM에서 사용한 경우 : id -> 'LTQM' / language -> 'E' / name -> viqm-qmnum+viqm-fenum  / object -> 'QMFE'

MM(Material text) :    id -> 'LTXT' / language -> 'E' / name -> PLNBEZ / object -> 'MDTXT'

reference : STXH table