출력리포트에 2byte cut을 하여서 여러줄로 출력하는 로직을 구현하였습니다.

테스트 결과 정상적으로 출력이 되구요~

그런데 문제는 줄의 마지막 문자가 오타일 경우(ex. 갏, 닳 )에 바로 Dump 가떨어지면서

프로그램이 종료됩니다.

이문제를 해결할 수 있는 방법은 없을까요?

아님 message라도 뿌려서 dump를 막을 방법이 있을까요?

고수님들의 도움을 부탁드리겠습니다.!! 

-----------------------------------------------------------------------
*            Main Procedure of Function
*-----------------------------------------------------------------------

*--- if Input String doesn't exist, return
  s_len = strlen( pu_str ).
  IF s_len = 0.
    EXIT.
  ENDIF.

*- if Input length is greater than total length, check input length
*  if Input length is smaller than total length, check total length
  IF s_len > pu_len1.
    s_len = pu_len1.
  ENDIF.

*--- Begin of correction
  ASSIGN pu_str TO <str> TYPE 'X'.
  CLEAR: sta, flg.
  DO s_len TIMES.
    sta = sy-index - 1.

    ASSIGN <str>+sta(1) TO <xstr>.
    IF <xstr> >= '80'.       " 2Byte Character
      IF flg = space.
        flg = 'X'.           " 1st Byte of TWO
      ELSE.
        flg = space.         " 2nd Byte of TWO : Normal Case
      ENDIF.
    ENDIF.
  ENDDO.

*- if valid character is incompletede 2Byte,cut from pre-character
  IF flg = 'X'.           " IF Last character was cut abnormally
    s_len = s_len - 1.
  ENDIF.
  pc_str = pu_str. "i_str(s_len).     "Return Value
  pc_len1 = s_len.

ENDFORM.                    " cut_string