조회 스크린을 만드는데

로직이 잘 안풀려서요.
스크린 2000에서 조회조건인
IO DYSEQ BUINO를 만족하면
스크린 2100으로 이동하고
테이블에 있는 데이타를 스크린
2100에 뿌려줘야 하는 로직입니다.
 
근데 문제가 조건인 IO DYSEQ BUINO만
화면에 뿌려지고 나머지
BNAME BCOND BEVEN BUIBD BLANS WAERS
SUPPR TAXPR ARMCD MCCOD BLANK는
나오지를 않습니다. 어떻게 된 영문인지..;;
제가 초보라서 많이 서투릅니다.
고수님들 도와주세요.

  DATA: l_flag TYPE c.
  CLEAR l_flag.

  IF gs_zsailing_s_001-io <> 0 AND gs_zsailing_s_001-dyseq <> 0 AND
     gs_zcustom_s_001-buino <> 0.
  ELSE.
     MESSAGE i001(00) WITH '필수 항목에 0보다 큰수를 입력하세요'.
     CLEAR : gs_zsailing_s_001-io, gs_zsailing_s_001-dyseq,
             gs_zcustom_s_001-buino.
     LEAVE TO SCREEN '2000'.
  ENDIF.

       SELECT B~IO B~DYSEQ A~BUINO A~BNAME A~BCOND A~BEVEN
              B~BUIBD B~BLANS B~WAERS B~SUPPR B~TAXPR B~ARMCD
              B~MCCOD B~BLANK
       INTO CORRESPONDING FIELDS OF TABLE IT_DATA
       FROM
       ZCUSTOM_T_001  AS  A  INNER JOIN  ZSAILING_T_001  AS  B
                                     ON  A~MANDT = B~MANDT
                                    AND  A~BUINO = B~BUINO.

          LOOP AT it_data WHERE io = gs_zsailing_s_001-io
                      AND dyseq = gs_zsailing_s_001-dyseq
                      AND buino = gs_zcustom_s_001-buino.
       l_flag = 'X'.
       ENDLOOP.

       IF l_flag = 'X'.
         MESSAGE i001(00) WITH 'DATA를 삭제하시겠습니까?'.
         CALL SCREEN '2100'.

         GS_ZSAILING_S_001-IO    = IT_DATA-IO.
         GS_ZSAILING_S_001-DYSEQ = IT_DATA-DYSEQ.
         GS_ZCUSTOM_S_001-BUINO  = IT_DATA-BUINO.
         GS_ZCUSTOM_S_001-BNAME  = IT_DATA-BNAME.
         GS_ZCUSTOM_S_001-BCOND  = IT_DATA-BCOND.
         GS_ZCUSTOM_S_001-BEVEN  = IT_DATA-BEVEN.
         GS_ZSAILING_S_001-BUIBD = IT_DATA-BUIBD.
         GS_ZSAILING_S_001-BLANS = IT_DATA-BLANS.
         GS_ZSAILING_S_001-WAERS = IT_DATA-WAERS.
         GS_ZSAILING_S_001-SUPPR = IT_DATA-SUPPR.
         GS_ZSAILING_S_001-TAXPR = IT_DATA-TAXPR.
         GS_ZSAILING_S_001-ARMCD = IT_DATA-ARMCD.
         GS_ZSAILING_S_001-MCCOD = IT_DATA-MCCOD.
         GS_ZSAILING_S_001-BLANK = IT_DATA-BLANK.
       ELSE.
         MESSAGE i001(00) WITH 'DATA가 존재하지 않습니다.'.
       CLEAR : gs_zsailing_s_001-io, gs_zsailing_s_001-dyseq,
               gs_zcustom_s_001-buino.
       LEAVE TO SCREEN '2000'.
       ENDIF.
         CLEAR l_flag.