Rectfy

Question

Dear all
     The following coding not working  how to rectify
        REPORT ZV_F4 .
TABLES: LFB1.
SELECTION-SCREEN: BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
SELECT-OPTIONS : S_AKONT FOR LFB1-AKONT.
SELECT-OPTIONS : S_LIFNR FOR LFB1-LIFNR . "Vendor
SELECTION-SCREEN: END OF BLOCK B3.
DATA  BEGIN OF IT_RETN OCCURS 0.
       INCLUDE STRUCTURE DDSHRETVAL.
DATA  END OF IT_RETN.
*AT SELECTION-SCREEN ON S_AKONT.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_LIFNR-LOW.
DATA: BEGIN OF LT_LFB1 OCCURS 0,
LIFNR LIKE LFB1-LIFNR,
END OF LT_LFB1.
IF  S_AKONT[] IS not INITIAL.
SELECT LIFNR FROM LFB1 INTO TABLE LT_LFB1 WHERE AKONT IN S_AKONT.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'LIFNR'
DYNPPROG = 'ZV_F4'
DYNPNR = '1000'
DYNPROFIELD = 'S_LIFNR-LOW'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = LT_LFB1
RETURN_TAB = IT_RETN
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.
LOOP AT IT_RETN WHERE RETFIELD = 'LIFNR'.
S_LIFNR-LOW = IT_RETN-FIELDVAL.
EXIT.
ENDLOOP.
Regards
Suresh

Answer 1

Write this coding :
REPORT ZV_F4 .
TABLES: LFB1.
SELECTION-SCREEN: BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
SELECT-OPTIONS : S_AKONT FOR LFB1-AKONT.
SELECT-OPTIONS : S_LIFNR FOR LFB1-LIFNR . "Vendor
SELECTION-SCREEN: END OF BLOCK B3.
DATA BEGIN OF IT_RETN OCCURS 0.
        INCLUDE STRUCTURE DDSHRETVAL.
DATA END OF IT_RETN.
DATA: BEGIN OF DYNP_TAB OCCURS 1.
          INCLUDE STRUCTURE DYNPREAD.
DATA: END OF DYNP_TAB.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_LIFNR-LOW.
  DATA: BEGIN OF LT_LFB1 OCCURS 0,
  LIFNR LIKE LFB1-LIFNR,
  END OF LT_LFB1.
  CLEAR DYNP_TAB. REFRESH DYNP_TAB.
  DYNP_TAB-FIELDNAME  = 'S_AKONT-LOW'.
  DYNP_TAB-STEPL      = 0.
  APPEND DYNP_TAB.
CALL FUNCTION 'DYNP_VALUES_READ'
  EXPORTING
    DYNAME                               = SY-REPID
    DYNUMB                               = '1000'
  TRANSLATE_TO_UPPER                   = ' '
  REQUEST                              = ' '
  PERFORM_CONVERSION_EXITS             = ' '
  PERFORM_INPUT_CONVERSION             = ' '
  DETERMINE_LOOP_INDEX                 = ' '
  START_SEARCH_IN_CURRENT_SCREEN       = ' '
  START_SEARCH_IN_MAIN_SCREEN          = ' '
  START_SEARCH_IN_STACKED_SCREEN       = ' '
  START_SEARCH_ON_SCR_STACKPOS         = ' '
  SEARCH_OWN_SUBSCREENS_FIRST          = ' '
  SEARCHPATH_OF_SUBSCREEN_AREAS        = ' '
  TABLES
    DYNPFIELDS                           = DYNP_TAB
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 SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
  S_AKONT-low = DYNP_TAB-FIELDVALUE.
  S_AKONT-sign = 'I'.
  S_AKONT-option = 'EQ'.
  append S_AKONT.
  IF S_AKONT[] IS NOT INITIAL.
    SELECT LIFNR FROM LFB1 INTO TABLE LT_LFB1 WHERE AKONT IN S_AKONT.
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        RETFIELD        = 'LIFNR'
        DYNPPROG        = 'ZV_F4'
        DYNPNR          = '1000'
        DYNPROFIELD     = 'S_LIFNR-LOW'
        VALUE_ORG       = 'S'
      TABLES
        VALUE_TAB       = LT_LFB1
        RETURN_TAB      = IT_RETN
      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.
    LOOP AT IT_RETN WHERE RETFIELD = 'LIFNR'.
      S_LIFNR-LOW = IT_RETN-FIELDVAL.
      EXIT.
    ENDLOOP.
  ENDIF.