Re: problem in Infoset Query

Hello Jelena,

I have added this extra field in the same you explained.

code which i added in code tab...

data :

DATA : GV_NAME TYPE  THEAD-TDNAME,
        GV_DOCNO TYPE THEAD-TDNAME.
DATA : IT_LINE TYPE STANDARD TABLE OF TLINE,
        WA_LINE LIKE LINE OF IT_LINE.
DATA : GV_VGBEL TYPE THEAD-TDNAME.

Start-OF-selection

BREAK-POINT.
GV_NAME = VBRP-VBELN.
SELECT SINGLE VGBEL INTO GV_VGBEL
                     FROM VBRP
                     WHERE VBELN = GV_NAME.
REFRESH IT_LINE.
CLEAR   TRANSPORETRS_NAME.
*CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
*  EXPORTING
*    input         = GV_VGBEL
*  IMPORTING
*    OUTPUT        = GV_DOCNO
*          .
CALL FUNCTION 'READ_TEXT'
   EXPORTING
    CLIENT                         = SY-MANDT
     id                            = 'Z003'
     language                      = 'E'
     NAME                          = GV_VGBEL
     OBJECT                        = 'VBBK'
*   ARCHIVE_HANDLE                = 0
*   LOCAL_CAT                     = ' '
* IMPORTING
*   HEADER                        =
*   OLD_LINE_COUNTER              =
   TABLES
     lines                         = IT_LINE
  EXCEPTIONS
    ID                            = 1
    LANGUAGE                      = 2
    NAME                          = 3
    NOT_FOUND                     = 4
    OBJECT                        = 5
    REFERENCE_CHECK               = 6
    WRONG_ACCESS_TO_ARCHIVE       = 7
    OTHERS                        = 8
           .
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
LOOP AT IT_LINE INTO WA_LINE.
   READ TABLE IT_LINE INTO WA_LINE INDEX 1.
   IF SY-SUBRC = 0.
      TRANSPORETRS_NAME = WA_LINE-TDLINE.
   ENDIF.
ENDLOOP.

Regards,

Anuja dhondge