하단부의 READ_SCREEN_FIELD 부분 이용해서 파서블 엔트리 만드시면 됩니다.

*&---------------------------------------------------------------------*
*&      Form  FILL_ARBPL_F4
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM FILL_ARBPL_F4  USING   P_ARBPL.

  "스크린 FIELD값 읽기
  PERFORM READ_SCREEN_FIELD  USING  SY-CPROG
                                    SY-DYNNR
                                    'S_WERKS-LOW'
                                    S_WERKS-LOW.

  DATA : BEGIN OF LT_ARBPL OCCURS 0,
            WERKS      LIKE M_CRAMN-WERKS,
            ARBPL      LIKE M_CRAMN-ARBPL,
            KTEXT      LIKE M_CRAMN-KTEXT,
         END OF LT_ARBPL.

  DATA : L_TITLE(50).

  CLEAR   : G_SELECTFIELD, GT_FIELDS, G_SELECT_VALUE, G_TABIX.
  REFRESH : GT_FIELDS.

  DATA : L_WRK(5).

  L_WRK = S_WERKS-LOW.

  SELECT  DISTINCT WERKS ARBPL KTEXT
    INTO  CORRESPONDING FIELDS OF TABLE LT_ARBPL
    FROM  M_CRAMN
   WHERE  WERKS LIKE L_WRK.

  DESCRIBE TABLE LT_ARBPL LINES G_CNT.

  SORT LT_ARBPL BY WERKS ARBPL.

  DELETE ADJACENT DUPLICATES FROM LT_ARBPL.

  GT_FIELDS-TABNAME   = 'M_CRAMN'.
  GT_FIELDS-FIELDNAME = 'WERKS'.
  GT_FIELDS-SELECTFLAG = ' '.
  APPEND GT_FIELDS.

  GT_FIELDS-TABNAME   = 'M_CRAMN'.
  GT_FIELDS-FIELDNAME = 'ARBPL'.
  GT_FIELDS-SELECTFLAG = 'X'.  
  APPEND GT_FIELDS.

  GT_FIELDS-TABNAME   = 'M_CRAMN'.
  GT_FIELDS-FIELDNAME = 'KTEXT'.
  GT_FIELDS-SELECTFLAG = ' '.
  APPEND GT_FIELDS.

  DESCRIBE TABLE LT_ARBPL LINES G_CNT.
  IF G_CNT = 1.
    READ TABLE LT_ARBPL INDEX 1.
    P_ARBPL = LT_ARBPL-ARBPL.        "SELECT_VALUE.
  ELSE.
    CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME'
      EXPORTING
        CUCOL                        = 20
        CUROW                        = 05
        SELECTFIELD                  = G_SELECTFIELD
        TITEL                        = L_TITLE
      IMPORTING
        IND                          = G_TABIX
        SELECT_VALUE                 = G_SELECT_VALUE
      TABLES
        FIELDS                       = GT_FIELDS
        FULL_TABLE                   = LT_ARBPL
      EXCEPTIONS
        FULL_TABLE_EMPTY             = 1
        NO_TABLESTRUCTURE_GIVEN      = 2
        NO_TABLEFIELDS_IN_DICTIONARY = 3
        MORE_THEN_ONE_SELECTFIELD    = 4
        NO_SELECTFIELD               = 5
        OTHERS                       = 6.

    CHECK NOT G_TABIX IS INITIAL.
    READ TABLE LT_ARBPL INDEX G_TABIX.
    P_ARBPL = LT_ARBPL-ARBPL.        
  ENDIF.

ENDFORM.                    " FILL_ARBPL_F4

*&---------------------------------------------------------------------*
*&      Form  READ_SCREEN_FIELD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM READ_SCREEN_FIELD  USING  P_PROG
                               P_DYNNR
                               P_FIELD
                               P_VALUE.

  DATA : LT_FIELDS  LIKE  DYNPREAD OCCURS 0 WITH HEADER LINE.

  LT_FIELDS-FIELDNAME = P_FIELD.
  APPEND  LT_FIELDS.

  "현재 화면의 특정 필드 값 읽기
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      DYNAME               = P_PROG   
      DYNUMB               = P_DYNNR  
    TABLES
      DYNPFIELDS           = LT_FIELDS
    EXCEPTIONS
      INVALID_ABAPWORKAREA = 1
      INVALID_DYNPROFIELD  = 2
      INVALID_DYNPRONAME   = 3
      INVALID_DYNPRONUMMER = 4
      INVALID_REQUEST      = 5
      NO_FIELDDESCRIPTION  = 6
      INVALID_PARAMETER    = 7
      UNDEFIND_ERROR       = 8
      DOUBLE_CONVERSION    = 9
      STEPL_NOT_FOUND      = 10
      OTHERS               = 11.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO
       WITH    SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ELSE.
    READ TABLE LT_FIELDS INDEX 1.
    MOVE LT_FIELDS-FIELDVALUE TO P_VALUE .
  ENDIF.

ENDFORM.                    " READ_SCREEN_FIELD

써니님 답변 감사드려요~

그리고 샘플 자료 정리해서 주셨던 '띵호아빠'님도 감사드립니다~^^

HELP_VALUES_GET_NO_DD_NAME 함수는 폐기대상 입니다. 참고 하십시요.

다른 함수를 사용 해야 될거 같네요.. ^^;;