Value getting truncated in display while using F4IF_INT_TABLE_VALUE_REQUEST

[Sivakumar_Subramaniam]

Hi.,

I am using FM F4IF_INT_TABLE_VALUE_REQUEST to display F4 for a Particular field .

But while displaying a field(ISBN) with 13 characters is displayed only with value of 8 characters only. kindly advice.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'ESTNO'.

APPEND IT_FT.

*

• IT_FT-TABNAME = 'ZC001_ESTMAST_HD'.

• IT_FT-FIELDNAME = 'VERSN'.

• APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'VERSN'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'SIRNO'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'TITNR'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'KUNNR'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'NAME1'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'JBDVN'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'MAKTX'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'TPWRK'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'ISBNO'.

APPEND IT_FT.

• IT_FT-TABNAME = 'ZC002_ESTNOF4'.

• IT_FT-FIELDNAME = 'ORDDAT'.

• APPEND IT_FT.

*************************************************

IT_DM-FLDNAME = 'ESTNO'.

IT_DM-DYFLDNAME = 'IT_ESTMAS-ESTNO'.

APPEND IT_DM.

IT_DM-FLDNAME = 'VERSN'.

IT_DM-DYFLDNAME = 'IT_ESTMAS-VERSN'.

APPEND IT_DM.

IT_DM-FLDNAME = 'SIRNO'.

IT_DM-DYFLDNAME = 'IT_ESTMAS-SIRNO'.

APPEND IT_DM.

• IT_DM-FLDNAME = 'SERIS'.

• IT_DM-DYFLDNAME = 'ZV001_TITLMAS_HD'.

• APPEND IT_DM.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = 'IT_VALUE'

• DDIC_STRUCTURE = 'ZC002_ESTNOF4'

RETFIELD = 'ESTNO'

• PVALKEY = ' '

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'IT_ESTMAS-ESTNO'

VALUE_ORG = 'S'

STEPL = 0

TABLES

VALUE_TAB = IT_MESTNO_F4

FIELD_TAB = IT_FT

• RETURN_TAB = IT_RT

DYNPFLD_MAPPING = IT_DM

• EXCEPTIONS

• PARAMETER_ERROR = 1

• NO_VALUES_FOUND = 2

• OTHERS = 3

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Regards.,

S.Sivakumar

[Sivakumar_Subramaniam]

Hi.,

I am using FM F4IF_INT_TABLE_VALUE_REQUEST to display F4 for a Particular field .

But while displaying a field(ISBN) with 13 characters is displayed only with value of 8 characters only. kindly advice.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'ESTNO'.

APPEND IT_FT.

*

• IT_FT-TABNAME = 'ZC001_ESTMAST_HD'.

• IT_FT-FIELDNAME = 'VERSN'.

• APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'VERSN'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'SIRNO'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'TITNR'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'KUNNR'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'NAME1'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'JBDVN'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'MAKTX'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'TPWRK'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'ISBNO'.

APPEND IT_FT.

• IT_FT-TABNAME = 'ZC002_ESTNOF4'.

• IT_FT-FIELDNAME = 'ORDDAT'.

• APPEND IT_FT.

*************************************************

IT_DM-FLDNAME = 'ESTNO'.

IT_DM-DYFLDNAME = 'IT_ESTMAS-ESTNO'.

APPEND IT_DM.

IT_DM-FLDNAME = 'VERSN'.

IT_DM-DYFLDNAME = 'IT_ESTMAS-VERSN'.

APPEND IT_DM.

IT_DM-FLDNAME = 'SIRNO'.

IT_DM-DYFLDNAME = 'IT_ESTMAS-SIRNO'.

APPEND IT_DM.

• IT_DM-FLDNAME = 'SERIS'.

• IT_DM-DYFLDNAME = 'ZV001_TITLMAS_HD'.

• APPEND IT_DM.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = 'IT_VALUE'

• DDIC_STRUCTURE = 'ZC002_ESTNOF4'

RETFIELD = 'ESTNO'

• PVALKEY = ' '

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'IT_ESTMAS-ESTNO'

VALUE_ORG = 'S'

STEPL = 0

TABLES

VALUE_TAB = IT_MESTNO_F4

FIELD_TAB = IT_FT

• RETURN_TAB = IT_RT

DYNPFLD_MAPPING = IT_DM

• EXCEPTIONS

• PARAMETER_ERROR = 1

• NO_VALUES_FOUND = 2

• OTHERS = 3

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Regards.,

S.Sivakumar

[Sandeep_Panghal]

How you declared IT_FT-TABNAME ?

[faisalatsap]

Hi, Sivakumar,

Please Text following Sample Code and let me now if any issue,

TYPES: BEGIN OF ty_ft,
  tabname TYPE tabname,
  fieldname TYPE fieldname,
  END OF ty_ft.

PARAMETERS: tabname TYPE tabname.

DATA: it_ft TYPE STANDARD TABLE OF ty_ft WITH HEADER LINE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR tabname.

  it_ft-tabname = 'ZC002_ESTNOF4'.    it_ft-fieldname = 'ESTNO'. APPEND it_ft.
  it_ft-tabname = 'ZC001_ESTMAST_HD'. it_ft-fieldname = 'VERSN'. APPEND it_ft.
  it_ft-tabname = 'ZC002_ESTNOF4'.    it_ft-fieldname = 'VERSN'. APPEND it_ft.
  it_ft-tabname ='ZC002_ESTNOF4'.     it_ft-fieldname = 'SIRNO'. APPEND it_ft.
  it_ft-tabname = 'ZC002_ESTNOF4'.    it_ft-fieldname = 'TITNR'. APPEND it_ft.
  it_ft-tabname = 'ZC002_ESTNOF4'.    it_ft-fieldname = 'KUNNR'. APPEND it_ft.
  it_ft-tabname = 'ZC002_ESTNOF4'.    it_ft-fieldname = 'NAME1'. APPEND it_ft.
  it_ft-tabname = 'ZC002_ESTNOF4'.    it_ft-fieldname = 'JBDVN'. APPEND it_ft.
  it_ft-tabname = 'ZC002_ESTNOF4'.    it_ft-fieldname = 'MAKTX'. APPEND it_ft.
  it_ft-tabname = 'ZC002_ESTNOF4'.    it_ft-fieldname = 'TPWRK'. APPEND it_ft.
  it_ft-tabname = 'ZC002_ESTNOF4'.    it_ft-fieldname = 'ISBNO'. APPEND it_ft.
  it_ft-tabname = 'ZC002_ESTNOF4'.    it_ft-fieldname = 'ORDDAT'.APPEND it_ft.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'TABNAME'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      dynprofield     = 'TABNAME'
      value_org       = 'S'
    TABLES
      value_tab       = it_ft[]
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
  IF sy-subrc NE 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

Best Regards,

Faisal

[Sivakumar_Subramaniam]

Hi.,

i think i confused u all . i will paste the entire code here .

DATA : BEGIN OF IT_MESTNO_F4 OCCURS 0,

• MANDT LIKE ZC001_ESTMAST_HD-MANDT,

ESTNO LIKE ZC001_ESTMAST_HD-ESTNO,

VERSN LIKE ZC001_ESTMAST_HD-VERSN,

SIRNO LIKE ZC001_ESTMAST_HD-SIRNO,

TITNR LIKE ZV001_TITLMAS_HD-TITNR,

TPWRK LIKE ZV001_TITLMAS_HD-TPWRK,

KUNNR LIKE ZC001_ESTMAST_HD-KUNNR,

NAME1 LIKE KNA1-NAME1,

JBDVN LIKE ZC001_ESTMAST_HD-JBDVN,

MAKTX LIKE ZV001_TITLMAS_HD-MAKTX,

ISBNO TYPE ZV001_TITLMAS_HD-ISBNO,

END OF IT_MESTNO_F4.

CLEAR: IT_MESTNO_F4[], IT_MESTNO_F4,

IT_FT[], IT_FT,

IT_DM[], IT_DM,

IT_RT[], IT_RT.

*ORDDAT

• SELECT DISTINCT ESTNO VERSN SIRNO FROM ZC001_BUDMAS_MAT INTO CORRESPONDING FIELDS OF TABLE IT_MESTNO_F4.

• SELECT ESTNO VERSN SIRNO FROM ZC001_ESTMAST_HD INTO CORRESPONDING FIELDS OF TABLE IT_MESTNO_F4 WHERE ZSAVE EQ 'X'..

SELECT DISTINCT A~ESTNO A~VERSN A~SIRNO A~TITNR A~TPWRK A~KUNNR D~NAME1 JBDVN B~MAKTX ISBNO

FROM ZC001_ESTMAST_HD AS A INNER JOIN ZV001_TITLMAS_HD AS B

ON A~TITNR = B~TITNR

INNER JOIN ZC001_BUDMAS_MAT AS C

ON A~ESTNO = C~ESTNO AND A~VERSN = C~VERSN AND A~SIRNO = C~SIRNO

INNER JOIN KNA1 AS D

ON A~KUNNR = D~KUNNR

INTO CORRESPONDING FIELDS OF TABLE IT_MESTNO_F4

WHERE ZSAVE EQ SPACE AND ZLOCK EQ SPACE.

SORT IT_MESTNO_F4 BY ESTNO DESCENDING.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'ESTNO'.

APPEND IT_FT.

*

• IT_FT-TABNAME = 'ZC001_ESTMAST_HD'.

• IT_FT-FIELDNAME = 'VERSN'.

• APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'VERSN'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'SIRNO'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'TITNR'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'KUNNR'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'NAME1'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'JBDVN'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'MAKTX'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'TPWRK'.

APPEND IT_FT.

IT_FT-TABNAME = 'ZC002_ESTNOF4'.

IT_FT-FIELDNAME = 'ISBNO'.

APPEND IT_FT.

• IT_FT-TABNAME = 'ZC002_ESTNOF4'.

• IT_FT-FIELDNAME = 'ORDDAT'.

• APPEND IT_FT.

*************************************************

IT_DM-FLDNAME = 'ESTNO'.

IT_DM-DYFLDNAME = 'IT_ESTMAS-ESTNO'.

APPEND IT_DM.

IT_DM-FLDNAME = 'VERSN'.

IT_DM-DYFLDNAME = 'IT_ESTMAS-VERSN'.

APPEND IT_DM.

IT_DM-FLDNAME = 'SIRNO'.

IT_DM-DYFLDNAME = 'IT_ESTMAS-SIRNO'.

APPEND IT_DM.

• IT_DM-FLDNAME = 'SERIS'.

• IT_DM-DYFLDNAME = 'ZV001_TITLMAS_HD'.

• APPEND IT_DM.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = 'IT_VALUE'

• DDIC_STRUCTURE = 'ZC002_ESTNOF4'

RETFIELD = 'ESTNO'

• PVALKEY = ' '

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'IT_ESTMAS-ESTNO'

VALUE_ORG = 'S'

STEPL = 0

TABLES

VALUE_TAB = IT_MESTNO_F4

FIELD_TAB = IT_FT

• RETURN_TAB = IT_RT

DYNPFLD_MAPPING = IT_DM

• EXCEPTIONS

• PARAMETER_ERROR = 1

• NO_VALUES_FOUND = 2

• OTHERS = 3

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Regards.,

S.Sivakumar

[Sivakumar_Subramaniam]

solved myself

[Former Member]

Hi Siva,

Iam getting the same problem, Could you please share the solution.

Thanks and regards,

Ravikumar Rayala