아래 소스에 뭐가 부족해서 subscreen에 데이터가 안나오나요? 

소스중에 call screen 100으로 더블클릭해서

layout에 들어가서 subscreen를 만들고 이름을 area1로 하고 element list에서 area1과 ok_code가 있고

flow logic에도 작성했고요.

보시고 자세한 조언부탁합니다.

REPORT  z_taw10_16_43.

CONSTANTS: actvt_display TYPE activ_auth VALUE '03',
           actvt_change TYPE activ_auth VALUE '02'.

PARAMETERS pa_anum TYPE sbook-agencynum.

DATA: wa_booking TYPE sbook.
DATA: wa_sbook TYPE sbook.
DATA: ok_code TYPE sy-ucomm.

TABLES sbook.


START-OF-SELECTION.

  SELECT carrid connid fldate bookid customid
    FROM sbook
    INTO CORRESPONDING FIELDS OF wa_booking
    WHERE agencynum = pa_anum.


    AUTHORITY-CHECK OBJECT 'S_CARRID'
    ID 'CARRID' FIELD wa_booking-carrid
    ID 'ACTVT' FIELD actvt_display.

    IF sy-subrc = 0.

      WRITE: / wa_booking-carrid COLOR COL_KEY,
               wa_booking-connid COLOR COL_KEY,
               wa_booking-fldate COLOR COL_KEY,
               wa_booking-bookid COLOR COL_KEY.

      HIDE: wa_booking-carrid,
            wa_booking-connid,
            wa_booking-fldate,
            wa_booking-bookid.

    ENDIF.

  ENDSELECT.

AT LINE-SELECTION.

  AUTHORITY-CHECK OBJECT 'S_CARRID'
    ID 'CARRID' FIELD wa_booking-carrid
    ID 'ACTVT' FIELD actvt_change.

  IF sy-subrc = 0.

    SELECT SINGLE *
      FROM sbook
      INTO wa_sbook
      WHERE carrid = wa_booking-carrid
      AND connid = wa_booking-connid
      AND fldate = wa_booking-fldate
      AND bookid = wa_booking-bookid.

    IF sy-subrc = 0.
      MOVE-CORRESPONDING wa_sbook TO sbook.

      CALL SCREEN 100.

    ENDIF.

  ELSE.

    MESSAGE ID 'BC400' TYPE 'S' NUMBER '047'
    WITH wa_booking-carrid.

  ENDIF.

  CLEAR: wa_sbook, wa_booking.

*&---------------------------------------------------------------------*
*&      Module  clear_ok_code  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE clear_ok_code OUTPUT.

  CLEAR ok_code.

ENDMODULE.                 " clear_ok_code  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  CASE ok_code.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'SAVE'.
      MOVE-CORRESPONDING sbook TO wa_sbook.
      MESSAGE ID 'BC400' TYPE 'I' NUMBER '060'.
      LEAVE TO SCREEN 0.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100  INPUT