Get the Serial Number based on the Delivery

Question

Hi Experts,
I want to fetch the serial number based on the delivery number  and Item.
If I see in the LIPS table we have the field like SERNR but we dont have data in that field.
But in the VL03n transaction Serial Number exists for the same delivery.
Please any one Suggest me Using which table we can fetch the serial number.
Thnx ,
Sam

Answer 1

TABLES: RSEROB.
DATA : S_LV_IRSEROB TYPE STANDARD TABLE OF RSEROB WITH HEADER LINE.
*       S_LV_ORSEROB TYPE STANDARD TABLE OF RSEROB WITH HEADER LINE,
*       WA_RSEROB TYPE RSEROB.
CLEAR : S_LV_IRSEROB , S_LV_ORSEROB , WA_RSEROB .
*LOOP AT ITAB_LT_ITEMS INTO WA_ITEMS.
  S_LV_IRSEROB-TASER   = 'SER01'.
  S_LV_IRSEROB-LIEF_NR = WA_ITEMS-VGBEL.---delivery no.
  S_LV_IRSEROB-POSNR   = WA_ITEMS-VGPOS.--delivery item
  APPEND S_LV_IRSEROB.
  CALL FUNCTION 'GET_SERNOS_OF_DOCUMENT'
    EXPORTING
      KEY_DATA                  = S_LV_IRSEROB
*   STATUS_PRE_READ           = ' '
*   EQUNR_CORR                = 'X'
    TABLES
      SERNOS                    = S_LV_ORSEROB
*   SERXX                     =
   EXCEPTIONS
     KEY_PARAMETER_ERROR       = 1
     NO_SUPPORTED_ACCESS       = 2
     NO_DATA_FOUND             = 3
     OTHERS                    = 4.
*  IF SY-SUBRC EQ 0.
*    Loop at S_LV_ORSEROB INTO WA_RSEROB.
*      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
*  EXPORTING
*    INPUT         =  WA_RSEROB-SERNR
* IMPORTING
*   OUTPUT        = WA_RSEROB-SERNR        .
*      WA_ITEMS-SERIAL_NO = WA_RSEROB-SERNR(18).
*      MODIFY ITAB_LT_ITEMS FROM WA_ITEMS.
*    ENDLOOP.
*  ENDIF.
*ENDLOOP.