Friday, January 24, 2020

Special Character Check in ABAP

Use function module - CHECK_STRING_SPEC_CHARACTERS

Wednesday, January 15, 2020

PO Header text and item text

DATABEGIN OF LTEXT OCCURS 50.
        INCLUDE STRUCTURE TLINE.
DATAEND OF LTEXT.

DATANAME TYPE THEAD-TDNAME.
DATALINE TYPE STANDARD TABLE OF TLINE.

TYPESBEGIN OF ST_2,
        JK(1),
        TJ(1),
        TENDERID TYPE TDLINE,
      END OF ST_2.

DATAIT TYPE STANDARD TABLE OF ST_2.
DATAWA_2 LIKE LINE OF IT.




LOOP AT ITAB_PO INTO WA_PO.
  NAME WA_PO-EBELN.
  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      CLIENT   SY-MANDT
      ID       'F17'
      LANGUAGE 'E'
      NAME     NAME
      OBJECT   'EKKO'
    TABLES
      LINES    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 EQ 0.
    READ TABLE line INDEX INTO WA_2.
    WA_PO-TENDERID WA_2-TENDERID.
    MODIFY ITAB_PO FROM WA_PO.
  ENDIF.
  CLEARWAWA_2.
ENDLOOP.