Difference between revisions of "SAP ABAP FIELD EXIT"

From SapWiki
(Created page with "*NOTA: Para poder activar los Field Exits debemos tener el parámetro abap/fieldexit = YES seteado en el servidor (Transacción RZ10). *Crear field exit: # ejecutar reporte...")
 
 
(3 intermediate revisions by the same user not shown)
Line 7: Line 7:
 
*Ejemplo, validar campo KBSTAT en trn. VK11, VK12 & VK13
 
*Ejemplo, validar campo KBSTAT en trn. VK11, VK12 & VK13
  
−
  FUNCTION field_exit_kbstat.
+
  <nowiki>FUNCTION field_exit_kbstat.
−
*"----------------------------------------------------------------------
+
*"----------------------------------------------------------------------
−
*"*"Interfase local
+
*"*"Interfase local
−
*"  IMPORTING
+
*"  IMPORTING
−
*"    REFERENCE(INPUT)
+
*"    REFERENCE(INPUT)
−
*"  EXPORTING
+
*"  EXPORTING
−
*"    REFERENCE(OUTPUT)
+
*"    REFERENCE(OUTPUT)
−
*"----------------------------------------------------------------------
+
*"----------------------------------------------------------------------
−
  DATA wa_por_niv_sec TYPE zsd_por_niv_sec.
+
  DATA wa_por_niv_sec TYPE zsd_por_niv_sec.
−
  DATA: w_eval LIKE dynpread-fieldvalue.
+
  DATA: w_eval LIKE dynpread-fieldvalue.
−
  DATA: w_eval_2 LIKE dynpread-fieldvalue.
+
  DATA: w_eval_2 LIKE dynpread-fieldvalue.
−
  DATA: w_eval_3 LIKE dynpread-fieldvalue.
+
  DATA: w_eval_3 LIKE dynpread-fieldvalue.
−
  DATA l_matnr TYPE mara-matnr.
+
  DATA l_matnr TYPE mara-matnr.
−
  DATA l_spart TYPE mara-spart.
+
  DATA l_spart TYPE mara-spart.
−
  DATA l_por TYPE zsd_por_niv_sec-por_01.
+
  DATA l_por TYPE zsd_por_niv_sec-por_01.
−
  DATA l_por_i TYPE konp-kbetr.
+
  DATA l_por_i TYPE konp-kbetr.
−
  DATA l_input(1).
+
  DATA l_input(1).
−
  DATA l_sizec LIKE gt_t691i-sizec.
+
  DATA l_sizec LIKE gt_t691i-sizec.
−
  DATA t185v TYPE t185v.
+
  DATA t185v TYPE t185v.
−
  DATA ls_t681s TYPE t681s.
+
  DATA ls_t681s TYPE t681s.
−
  DATA l_kschl TYPE rv13a-kschl.
+
  DATA l_kschl TYPE rv13a-kschl.
−
  DATA: lw_var(40) TYPE c.
+
  DATA: lw_var(40) TYPE c.
−
 
−
  FIELD-SYMBOLS <fs> TYPE any.
 
−
 
−
  lw_var = '(SAPMV13A)T681S'.
 
−
  ASSIGN (lw_var) TO <fs>.
 
−
  IF sy-subrc = 0 AND <fs> IS ASSIGNED.
 
−
    MOVE <fs> TO ls_t681s.
 
−
  ENDIF.
 
−
 
−
  IMPORT t185v FROM MEMORY
 
−
              ID 'SD_COND_MEM_01'.
 
−
 
−
  CHECK sy-tcode = 'VK12' OR sy-tcode = 'VK11' OR sy-tcode = 'VK13'.
 
−
  CHECK sy-title(1) <> 'V'.  "Visualizar
 
−
 
−
  GET PARAMETER ID 'VKS' FIELD l_kschl.
 
−
  CHECK l_kschl = 'ZAB0'
 
−
      OR l_kschl = 'ZAB1'
 
−
      OR l_kschl = 'ZAB2'
 
−
      OR l_kschl = 'ZAB3'
 
−
      OR l_kschl = 'ZAB4'
 
−
      OR l_kschl = 'ZAB5'.
 
−
 
−
  MOVE input TO l_input.
 
−
 
−
  IF l_input IS INITIAL.
 
−
    MESSAGE e000(0k) WITH 'Error:'
 
−
                          'debe ingresar valor en Status de tratamiento'.
 
−
  ENDIF.
 
−
 
−
  l_por = 0.
 
−
  l_por_i = 0.
 
−
  CLEAR w_eval.
 
  
−
  CALL FUNCTION 'Z_C14Z_DYNP_READ_FIELD'
+
   FIELD-SYMBOLS <fs> TYPE any.
−
    EXPORTING
 
−
      i_program      = 'SAPMV13A'
 
−
      i_dynpro      = ls_t681s-dynpronr   "'1305'
 
−
      i_fieldname    = 'KOMG-MATNR'
 
−
      i_fieldname_2  = 'KONP-KBETR'
 
−
      i_fieldname_3  = 'KOMG-SPART'
 
−
      i_flg_steploop = 'X'
 
−
      i_flg_request  = 'X'
 
−
    CHANGING
 
−
      e_value        = w_eval    "material
 
−
      e_value_2      = w_eval_2  "porcentaje
 
−
      e_value_3      = w_eval_3.  "sector
 
−
 
−
 
−
    MOVE w_eval TO l_matnr.
 
−
 
−
    CONDENSE w_eval_3.
 
−
    MOVE w_eval_3 TO l_spart.
 
−
 
−
    CONDENSE w_eval_2.
 
−
    TRANSLATE w_eval_2 USING ',.'.
 
−
    MOVE w_eval_2 TO l_por_i.
 
−
 
−
* insert some logic here
 
−
 
−
*
 
−
 
−
  IF 1 = 2 .  "dummy, asignación de valor posible a campo
 
−
    output = 'B'.
 
−
  ELSE.
 
−
    output = 'L'.
 
−
  ENDIF.
 
−
 
−
  IF l_input <> output.
 
−
    MESSAGE e000(0k) WITH 'Error en Status de tratamiento:'
 
−
                          'Solo se permite valor'
 
−
                            output.
 
−
  ENDIF.
 
−
 
−
ENDFUNCTION.
 
  
−
  FUNCTION Z_C14Z_DYNP_READ_FIELD.
+
  lw_var = '(SAPMV13A)T681S'.
−
  *"----------------------------------------------------------------------
+
  ASSIGN (lw_var) TO <fs>.
−
*"*"Interfase local
+
  IF sy-subrc = 0 AND <fs> IS ASSIGNED.
−
*"  IMPORTING
+
    MOVE <fs> TO ls_t681s.
−
*"    VALUE(I_PROGRAM) LIKE  D020S-PROG
+
  ENDIF.
−
*"    VALUE(I_DYNPRO) LIKE  D020S-DNUM
+
 
−
*"    VALUE(I_FIELDNAME) LIKE  DYNPREAD-FIELDNAME
+
  IMPORT t185v FROM MEMORY
−
*"    REFERENCE(I_FIELDNAME_2) TYPE  DYNPREAD-FIELDNAME OPTIONAL
+
              ID 'SD_COND_MEM_01'.
−
*"    REFERENCE(I_FIELDNAME_3) LIKE  DYNPREAD-FIELDNAME OPTIONAL
+
 
−
*"    VALUE(I_FLG_STEPLOOP) TYPE  C
+
  CHECK sy-tcode = 'VK12' OR sy-tcode = 'VK11' OR sy-tcode = 'VK13'.
−
*"    VALUE(I_FLG_REQUEST) TYPE  ESP1_BOOLEAN DEFAULT ESP1_FALSE
+
  CHECK sy-title(1) <> 'V'. "Visualizar
−
*"  EXPORTING
+
 
−
*"    VALUE(E_STEPL) LIKE  SY-STEPL
+
  GET PARAMETER ID 'VKS' FIELD l_kschl.
−
*"    VALUE(E_FLG_FIELD_INPUT) TYPE  ESP1_BOOLEAN
+
  CHECK l_kschl = 'ZAB0'
−
*"  CHANGING
+
    OR l_kschl = 'ZAB1'
−
*"    VALUE(E_VALUE) LIKE  DYNPREAD-FIELDVALUE
+
    OR l_kschl = 'ZAB2'
−
*"    VALUE(E_VALUE_2) LIKE  DYNPREAD-FIELDVALUE OPTIONAL
+
    OR l_kschl = 'ZAB3'
−
*"    VALUE(E_VALUE_3) LIKE  DYNPREAD-FIELDVALUE OPTIONAL
+
    OR l_kschl = 'ZAB4'
−
*"----------------------------------------------------------------------
+
    OR l_kschl = 'ZAB5'.
−
+
 
−
  DATA: BEGIN OF DYNPTAB OCCURS 1.
+
  MOVE input TO l_input.
−
          INCLUDE STRUCTURE DYNPREAD.
+
 
−
  DATA: END OF DYNPTAB.
+
  IF l_input IS INITIAL.
−
+
    MESSAGE e000(0k) WITH 'Error:'
−
  DATA: STEPL LIKE SY-STEPL.
+
                          'debe ingresar valor en Status de tratamiento'.
−
+
  ENDIF.
−
* Begin Correction 05.07.2004 751985 ***********************************
+
 
−
  DATA: request LIKE  d020s-type.
+
  l_por = 0.
−
* End Correction 05.07.2004 751985 *************************************
+
  l_por_i = 0.
−
+
  CLEAR w_eval.
−
* Initialization
+
 
−
  TRANSLATE i_program  TO UPPER CASE.                  "#EC TRANSLANG
+
* copia de C14Z_DYNP_READ_FIELD, permite leer valores de una línea de tabla
−
  " translate i_dynpro    to upper case.
+
  CALL FUNCTION 'Z_C14Z_DYNP_READ_FIELD'
−
  TRANSLATE I_FIELDNAME TO UPPER CASE.                  "#EC TRANSLANG
+
    EXPORTING
−
+
      i_program      = 'SAPMV13A'
−
* Get the currently entered value
+
      i_dynpro      = ls_t681s-dynpronr  "'1305'
−
  CLEAR E_STEPL.
+
      i_fieldname    = 'KOMG-MATNR'
−
  clear e_value_2.
+
      i_fieldname_2  = 'KONP-KBETR'
−
  IF I_FLG_STEPLOOP = 'X'.
+
      i_fieldname_3  = 'KOMG-SPART'
−
*    CALL FUNCTION 'DYNP_GET_STEPL'
+
      i_flg_steploop = 'X'
−
*        IMPORTING
+
      i_flg_request  = 'X'
−
*              POVSTEPL        = STEPL
+
    CHANGING
−
*        EXCEPTIONS
+
      e_value        = w_eval    "material
−
*              STEPL_NOT_FOUND = 01.
+
      e_value_2      = w_eval_2  "porcentaje
−
*    E_STEPL = STEPL.
+
      e_value_3      = w_eval_3.  "sector
−
    move sy-STEPL to E_STEPL.
+
 
−
    move sy-STEPL to STEPL.
+
 
−
  ENDIF.
+
    MOVE w_eval TO l_matnr.
−
+
 
−
  DYNPTAB-FIELDNAME = I_FIELDNAME.
+
    CONDENSE w_eval_3.
−
  DYNPTAB-STEPL    = STEPL.
+
    MOVE w_eval_3 TO l_spart.
−
  APPEND DYNPTAB.
+
 
−
+
    CONDENSE w_eval_2.
−
* Begin Correction 05.07.2004 751985 ***********************************
+
    TRANSLATE w_eval_2 USING ',.'.
−
* Check whether the field accepts input
+
    MOVE w_eval_2 TO l_por_i.
−
  IF ( i_flg_request = 'X' ).
+
 
−
    request = 'A'.
+
* insert some logic here
−
  ELSE.
+
 
−
    CLEAR: request.
+
*
−
  ENDIF.                              " IF ( i_flg_request = esp1_true
+
 
−
+
  IF 1 = 2 . "dummy, asignación de valor posible a campo
−
  CALL FUNCTION 'DYNP_VALUES_READ'
+
    output = 'B'.
−
    EXPORTING
+
  ELSE.
−
      DYNAME              = I_PROGRAM
+
    output = 'L'.
−
      DYNUMB              = I_DYNPRO
+
  ENDIF.
−
      request              = request
+
 
−
    TABLES
+
  IF l_input <> output.
−
      DYNPFIELDS          = DYNPTAB
+
    MESSAGE e000(0k) WITH 'Error en Status de tratamiento:'
−
*    TRANSLATE_TO_UPPER  = ' '
+
                          'Solo se permite valor'
−
    EXCEPTIONS
+
                          output.
−
      INVALID_ABAPWORKAREA = 01
+
  ENDIF.
−
      INVALID_DYNPROFIELD  = 02
+
 
−
      INVALID_DYNPRONAME  = 03
+
ENDFUNCTION.
−
      INVALID_DYNPRONUMMER = 04
+
 
−
      INVALID_REQUEST      = 05
+
FUNCTION Z_C14Z_DYNP_READ_FIELD.
−
      NO_FIELDDESCRIPTION  = 06
+
*"----------------------------------------------------------------------
−
      UNDEFIND_ERROR      = 07.
+
*"*"Interfase local
−
* End Correction 05.07.2004 751985 *************************************
+
*"  IMPORTING
−
+
*"    VALUE(I_PROGRAM) LIKE  D020S-PROG
−
*  IF i_flg_steploop = 'X'.
+
*"    VALUE(I_DYNPRO) LIKE  D020S-DNUM
−
*    READ TABLE DYNPTAB WITH KEY FIELDNAME = I_FIELDNAME STEPL = STEPL.
+
*"    VALUE(I_FIELDNAME) LIKE  DYNPREAD-FIELDNAME
−
*  ELSE.
+
*"    REFERENCE(I_FIELDNAME_2) TYPE  DYNPREAD-FIELDNAME OPTIONAL
−
*    READ TABLE DYNPTAB WITH KEY FIELDNAME = I_FIELDNAME.
+
*"    REFERENCE(I_FIELDNAME_3) LIKE  DYNPREAD-FIELDNAME OPTIONAL
−
*  ENDIF.
+
*"    VALUE(I_FLG_STEPLOOP) TYPE  C
−
+
*"    VALUE(I_FLG_REQUEST) TYPE  ESP1_BOOLEAN DEFAULT ESP1_FALSE
−
*  read TABLE DYNPTAB with key FIELDNAME = 'KONP-KONWA' STEPL = STEPL.
+
*"  EXPORTING
−
*  if sy-subrc = 0 and dynptab-fieldvalue = '%'.
+
*"    VALUE(E_STEPL) LIKE  SY-STEPL
−
    READ TABLE DYNPTAB WITH KEY FIELDNAME = I_FIELDNAME STEPL = STEPL.
+
*"    VALUE(E_FLG_FIELD_INPUT) TYPE  ESP1_BOOLEAN
−
    if sy-subrc = 0.
+
*"  CHANGING
−
      e_value = dynptab-fieldvalue.
+
*"    VALUE(E_VALUE) LIKE  DYNPREAD-FIELDVALUE
−
    endif.
+
*"    VALUE(E_VALUE_2) LIKE  DYNPREAD-FIELDVALUE OPTIONAL
−
    read TABLE DYNPTAB with key FIELDNAME = I_FIELDNAME_2 STEPL = STEPL.
+
*"    VALUE(E_VALUE_3) LIKE  DYNPREAD-FIELDVALUE OPTIONAL
−
    if sy-subrc = 0.
+
*"----------------------------------------------------------------------
−
      e_value_2 = dynptab-fieldvalue.
+
 
−
    endif.
+
  DATA: BEGIN OF DYNPTAB OCCURS 1.
−
*  endif.
+
          INCLUDE STRUCTURE DYNPREAD.
−
+
  DATA: END OF DYNPTAB.
−
    READ TABLE DYNPTAB WITH KEY FIELDNAME = I_FIELDNAME_3 STEPL = STEPL.
+
 
−
    if sy-subrc = 0.
+
  DATA: STEPL LIKE SY-STEPL.
−
      e_value_3 = dynptab-fieldvalue.
+
 
−
    endif.
+
* Begin Correction 05.07.2004 751985 ***********************************
−
+
  DATA: request LIKE  d020s-type.
−
* Begin Correction 05.07.2004 751985 ***********************************
+
* End Correction 05.07.2004 751985 *************************************
−
  e_flg_field_input = dynptab-fieldinp.
+
 
−
* End Correction 05.07.2004 751985 *************************************
+
* Initialization
−
+
  TRANSLATE i_program  TO UPPER CASE.                  "#EC TRANSLANG
−
*  e_value = dynptab-fieldvalue.
+
  " translate i_dynpro    to upper case.
−
+
  TRANSLATE I_FIELDNAME TO UPPER CASE.                  "#EC TRANSLANG
−
ENDFUNCTION.
+
 
 +
* Get the currently entered value
 +
  CLEAR E_STEPL.
 +
  clear e_value_2.
 +
  IF I_FLG_STEPLOOP = 'X'.
 +
*    CALL FUNCTION 'DYNP_GET_STEPL'
 +
*        IMPORTING
 +
*              POVSTEPL        = STEPL
 +
*        EXCEPTIONS
 +
*              STEPL_NOT_FOUND = 01.
 +
*    E_STEPL = STEPL.
 +
    move sy-STEPL to E_STEPL.
 +
    move sy-STEPL to STEPL.
 +
  ENDIF.
 +
 
 +
  DYNPTAB-FIELDNAME = I_FIELDNAME.
 +
  DYNPTAB-STEPL    = STEPL.
 +
  APPEND DYNPTAB.
 +
 
 +
* Begin Correction 05.07.2004 751985 ***********************************
 +
* Check whether the field accepts input
 +
  IF ( i_flg_request = 'X' ).
 +
    request = 'A'.
 +
  ELSE.
 +
    CLEAR: request.
 +
  ENDIF.                              " IF ( i_flg_request = esp1_true
 +
 
 +
  CALL FUNCTION 'DYNP_VALUES_READ'
 +
    EXPORTING
 +
      DYNAME              = I_PROGRAM
 +
      DYNUMB              = I_DYNPRO
 +
      request              = request
 +
    TABLES
 +
      DYNPFIELDS          = DYNPTAB
 +
*    TRANSLATE_TO_UPPER  = ' '
 +
    EXCEPTIONS
 +
      INVALID_ABAPWORKAREA = 01
 +
      INVALID_DYNPROFIELD  = 02
 +
      INVALID_DYNPRONAME  = 03
 +
      INVALID_DYNPRONUMMER = 04
 +
      INVALID_REQUEST      = 05
 +
      NO_FIELDDESCRIPTION  = 06
 +
      UNDEFIND_ERROR      = 07.
 +
* End Correction 05.07.2004 751985 *************************************
 +
 
 +
*  IF i_flg_steploop = 'X'.
 +
*    READ TABLE DYNPTAB WITH KEY FIELDNAME = I_FIELDNAME STEPL = STEPL.
 +
*  ELSE.
 +
*    READ TABLE DYNPTAB WITH KEY FIELDNAME = I_FIELDNAME.
 +
*  ENDIF.
 +
 
 +
*  read TABLE DYNPTAB with key FIELDNAME = 'KONP-KONWA' STEPL = STEPL.
 +
*  if sy-subrc = 0 and dynptab-fieldvalue = '%'.
 +
    READ TABLE DYNPTAB WITH KEY FIELDNAME = I_FIELDNAME STEPL = STEPL.
 +
    if sy-subrc = 0.
 +
      e_value = dynptab-fieldvalue.
 +
    endif.
 +
    read TABLE DYNPTAB with key FIELDNAME = I_FIELDNAME_2 STEPL = STEPL.
 +
    if sy-subrc = 0.
 +
      e_value_2 = dynptab-fieldvalue.
 +
    endif.
 +
*  endif.
 +
 
 +
    READ TABLE DYNPTAB WITH KEY FIELDNAME = I_FIELDNAME_3 STEPL = STEPL.
 +
    if sy-subrc = 0.
 +
      e_value_3 = dynptab-fieldvalue.
 +
    endif.
 +
 
 +
* Begin Correction 05.07.2004 751985 ***********************************
 +
  e_flg_field_input = dynptab-fieldinp.
 +
* End Correction 05.07.2004 751985 *************************************
 +
 
 +
*  e_value = dynptab-fieldvalue.
 +
 
 +
ENDFUNCTION.</nowiki>

Latest revision as of 21:03, 4 April 2020

  • NOTA: Para poder activar los Field Exits debemos tener el parámetro abap/fieldexit = YES seteado en el servidor (Transacción RZ10).
  • Crear field exit:
  1. ejecutar reporte RSMODPRF
  2. Crear módulo de función con nombre FIELD_EXIT_*
  • Ejemplo, validar campo KBSTAT en trn. VK11, VK12 & VK13
FUNCTION field_exit_kbstat.
*"----------------------------------------------------------------------
*"*"Interfase local
*"  IMPORTING
*"     REFERENCE(INPUT)
*"  EXPORTING
*"     REFERENCE(OUTPUT)
*"----------------------------------------------------------------------
  DATA wa_por_niv_sec TYPE zsd_por_niv_sec.
  DATA: w_eval LIKE dynpread-fieldvalue.
  DATA: w_eval_2 LIKE dynpread-fieldvalue.
  DATA: w_eval_3 LIKE dynpread-fieldvalue.
  DATA l_matnr TYPE mara-matnr.
  DATA l_spart TYPE mara-spart.
  DATA l_por TYPE zsd_por_niv_sec-por_01.
  DATA l_por_i TYPE konp-kbetr.
  DATA l_input(1).
  DATA l_sizec LIKE gt_t691i-sizec.
  DATA t185v TYPE t185v.
  DATA ls_t681s TYPE t681s.
  DATA l_kschl TYPE rv13a-kschl.
  DATA: lw_var(40) TYPE c.

  FIELD-SYMBOLS <fs> TYPE any.

  lw_var = '(SAPMV13A)T681S'.
  ASSIGN (lw_var) TO <fs>.
  IF sy-subrc = 0 AND <fs> IS ASSIGNED.
    MOVE <fs> TO ls_t681s.
  ENDIF.

  IMPORT t185v FROM MEMORY
              ID 'SD_COND_MEM_01'.

  CHECK sy-tcode = 'VK12' OR sy-tcode = 'VK11' OR sy-tcode = 'VK13'.
  CHECK sy-title(1) <> 'V'.  "Visualizar

  GET PARAMETER ID 'VKS' FIELD l_kschl.
  CHECK l_kschl = 'ZAB0'
     OR l_kschl = 'ZAB1'
     OR l_kschl = 'ZAB2'
     OR l_kschl = 'ZAB3'
     OR l_kschl = 'ZAB4'
     OR l_kschl = 'ZAB5'.

  MOVE input TO l_input.

  IF l_input IS INITIAL.
    MESSAGE e000(0k) WITH 'Error:'
                          'debe ingresar valor en Status de tratamiento'.
  ENDIF.

  l_por = 0.
  l_por_i = 0.
  CLEAR w_eval.

* copia de C14Z_DYNP_READ_FIELD, permite leer valores de una línea de tabla
  CALL FUNCTION 'Z_C14Z_DYNP_READ_FIELD'
    EXPORTING
      i_program      = 'SAPMV13A'
      i_dynpro       = ls_t681s-dynpronr   "'1305'
      i_fieldname    = 'KOMG-MATNR'
      i_fieldname_2  = 'KONP-KBETR'
      i_fieldname_3  = 'KOMG-SPART'
      i_flg_steploop = 'X'
      i_flg_request  = 'X'
    CHANGING
      e_value        = w_eval     "material
      e_value_2      = w_eval_2  "porcentaje
      e_value_3      = w_eval_3.  "sector


    MOVE w_eval TO l_matnr.

    CONDENSE w_eval_3.
    MOVE w_eval_3 TO l_spart.

    CONDENSE w_eval_2.
    TRANSLATE w_eval_2 USING ',.'.
    MOVE w_eval_2 TO l_por_i.

* insert some logic here

*

  IF 1 = 2 .  "dummy, asignación de valor posible a campo
    output = 'B'.
  ELSE.
    output = 'L'.
  ENDIF.

  IF l_input <> output.
    MESSAGE e000(0k) WITH 'Error en Status de tratamiento:'
                          'Solo se permite valor'
                           output.
  ENDIF.

ENDFUNCTION.

FUNCTION Z_C14Z_DYNP_READ_FIELD.
*"----------------------------------------------------------------------
*"*"Interfase local
*"  IMPORTING
*"     VALUE(I_PROGRAM) LIKE  D020S-PROG
*"     VALUE(I_DYNPRO) LIKE  D020S-DNUM
*"     VALUE(I_FIELDNAME) LIKE  DYNPREAD-FIELDNAME
*"     REFERENCE(I_FIELDNAME_2) TYPE  DYNPREAD-FIELDNAME OPTIONAL
*"     REFERENCE(I_FIELDNAME_3) LIKE  DYNPREAD-FIELDNAME OPTIONAL
*"     VALUE(I_FLG_STEPLOOP) TYPE  C
*"     VALUE(I_FLG_REQUEST) TYPE  ESP1_BOOLEAN DEFAULT ESP1_FALSE
*"  EXPORTING
*"     VALUE(E_STEPL) LIKE  SY-STEPL
*"     VALUE(E_FLG_FIELD_INPUT) TYPE  ESP1_BOOLEAN
*"  CHANGING
*"     VALUE(E_VALUE) LIKE  DYNPREAD-FIELDVALUE
*"     VALUE(E_VALUE_2) LIKE  DYNPREAD-FIELDVALUE OPTIONAL
*"     VALUE(E_VALUE_3) LIKE  DYNPREAD-FIELDVALUE OPTIONAL
*"----------------------------------------------------------------------

  DATA: BEGIN OF DYNPTAB OCCURS 1.
          INCLUDE STRUCTURE DYNPREAD.
  DATA: END OF DYNPTAB.

  DATA: STEPL LIKE SY-STEPL.

* Begin Correction 05.07.2004 751985 ***********************************
  DATA: request LIKE  d020s-type.
* End Correction 05.07.2004 751985 *************************************

* Initialization
  TRANSLATE i_program   TO UPPER CASE.                   "#EC TRANSLANG
  " translate i_dynpro    to upper case.
  TRANSLATE I_FIELDNAME TO UPPER CASE.                   "#EC TRANSLANG

* Get the currently entered value
  CLEAR E_STEPL.
  clear e_value_2.
  IF I_FLG_STEPLOOP = 'X'.
*    CALL FUNCTION 'DYNP_GET_STEPL'
*         IMPORTING
*              POVSTEPL        = STEPL
*         EXCEPTIONS
*              STEPL_NOT_FOUND = 01.
*    E_STEPL = STEPL.
    move sy-STEPL to E_STEPL.
    move sy-STEPL to STEPL.
  ENDIF.

  DYNPTAB-FIELDNAME = I_FIELDNAME.
  DYNPTAB-STEPL     = STEPL.
  APPEND DYNPTAB.

* Begin Correction 05.07.2004 751985 ***********************************
* Check whether the field accepts input
  IF ( i_flg_request = 'X' ).
    request = 'A'.
  ELSE.
    CLEAR: request.
  ENDIF.                               " IF ( i_flg_request = esp1_true

  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      DYNAME               = I_PROGRAM
      DYNUMB               = I_DYNPRO
      request              = request
    TABLES
      DYNPFIELDS           = DYNPTAB
*     TRANSLATE_TO_UPPER   = ' '
    EXCEPTIONS
      INVALID_ABAPWORKAREA = 01
      INVALID_DYNPROFIELD  = 02
      INVALID_DYNPRONAME   = 03
      INVALID_DYNPRONUMMER = 04
      INVALID_REQUEST      = 05
      NO_FIELDDESCRIPTION  = 06
      UNDEFIND_ERROR       = 07.
* End Correction 05.07.2004 751985 *************************************

*  IF i_flg_steploop = 'X'.
*    READ TABLE DYNPTAB WITH KEY FIELDNAME = I_FIELDNAME STEPL = STEPL.
*  ELSE.
*    READ TABLE DYNPTAB WITH KEY FIELDNAME = I_FIELDNAME.
*  ENDIF.

*  read TABLE DYNPTAB with key FIELDNAME = 'KONP-KONWA' STEPL = STEPL.
*  if sy-subrc = 0 and dynptab-fieldvalue = '%'.
    READ TABLE DYNPTAB WITH KEY FIELDNAME = I_FIELDNAME STEPL = STEPL.
    if sy-subrc = 0.
      e_value = dynptab-fieldvalue.
    endif.
    read TABLE DYNPTAB with key FIELDNAME = I_FIELDNAME_2 STEPL = STEPL.
    if sy-subrc = 0.
      e_value_2 = dynptab-fieldvalue.
    endif.
*  endif.

    READ TABLE DYNPTAB WITH KEY FIELDNAME = I_FIELDNAME_3 STEPL = STEPL.
    if sy-subrc = 0.
      e_value_3 = dynptab-fieldvalue.
    endif.

* Begin Correction 05.07.2004 751985 ***********************************
  e_flg_field_input = dynptab-fieldinp.
* End Correction 05.07.2004 751985 *************************************

*  e_value = dynptab-fieldvalue.

ENDFUNCTION.
Retrieved from "https://sapwiki.cl/wiki/index.php?title=SAP_ABAP_FIELD_EXIT&oldid=439"