Translate

Thursday, 7 June 2012

Standard text special characters Display


 LOOP AT ITAB_TEXT.
        IF I <=  50  .
          STR  = ITAB_TEXT-TEXT.
          STR1 = ITAB_TEXT-TEXT.
          FIND '<(>&<)>' IN STR1 MATCH OFFSET OFF
                               MATCH LENGTH LEN.
          IF SY-SUBRC = 0.
            REPLACE SECTION OFFSET OFF LENGTH LEN OF:
                            STR1 WITH '<(>&<)>',
                            STR WITH ' &  '.
          ENDIF.

          FIND '<(><<)>' IN STR1 MATCH OFFSET OFF
                               MATCH LENGTH LEN.
          IF SY-SUBRC = 0.
            REPLACE SECTION OFFSET OFF LENGTH LEN OF:
                            STR1 WITH '<(><<)>',
                            STR WITH ' <  '.
          ENDIF.

          ITAB_TEXT-TEXT = STR.

ENDLOOP.

No comments: