Import memory id

Question

Hi i need to import memory ID
weather i need to declare the same structure for importing the memory id or same structure with different names
because i am downloading the memory ID from a query report
if i declare the same structure in the programe it is not accepting the structure it is saying uniocode check is active ...
the how to use import memory id from the memory with same structure different names

Answer 1

*"Table declarations...................................................
TABLES:
  SPFLI.                               " Flight Data
*"Selection Screen Elements............................................
SELECT-OPTIONS:
  S_CARRID FOR SPFLI-CARRID.           " Carrier ID
*" Data declarations...................................................
Work variables                                                      *
DATA:
   BEGIN OF FS_SPFLI,
     CARRID    TYPE SPFLI-CARRID,      " Carrier ID
     CONNID    TYPE SPFLI-CONNID,      " Flight Connection ID
     COUNTRYFR TYPE SPFLI-COUNTRYFR,   " Country From
     CITYFROM  TYPE SPFLI-CITYFROM,    " City from
     AIRPFROM  TYPE SPFLI-AIRPFROM,    " Airport from
     COUNTRYTO TYPE SPFLI-COUNTRYTO,   " Destination
     CITYTO    TYPE SPFLI-CITYTO,      " Cityto
     AIRPTO    TYPE SPFLI-AIRPTO,      " Airport to
     FLTIME    TYPE SPFLI-FLTIME,      " Flight Time
  END OF FS_SPFLI.
DATA:
  W_CHECKBOX TYPE C.                   " Checkbox.
Internal table to hold Flight data                                  *
DATA:
  T_SPFLI LIKE
STANDARD TABLE
       OF FS_SPFLI.
                      START-OF-SELECTION EVENT                      *
START-OF-SELECTION.
  PERFORM SPFLI_SELECTION.
                      END-OF-SELECTION EVENT                        *
END-OF-SELECTION.
  SET PF-STATUS 'FLIGHT'.
  PERFORM DISPLAY.
                      AT USER COMMAND                               *
AT USER-COMMAND.
  CASE SY-UCOMM.
    WHEN 'DISPLAY'.
      PERFORM SELECTION.
  ENDCASE.
*&      Form  SPFLI_SELECTION
      Subroutine to select records from SPFLI
      No interface parameters available
FORM SPFLI_SELECTION .
  SELECT CARRID                        " Carrier ID
         CONNID                        " Flight Connection ID
         COUNTRYFR                     " Country From
         CITYFROM                      " City From
         AIRPFROM                      " Airport From
         COUNTRYTO                     " Country to
         CITYTO                        " City to
         AIRPTO                        " Airport To
         FLTIME                        " Flight Time
    INTO TABLE T_SPFLI
    FROM SPFLI
   WHERE CARRID IN S_CARRID.
  IF SY-SUBRC EQ 0.
  ENDIF.
ENDFORM.                               " SPFLI_SELECTION
*&      Form  DISPLAY
      Subroutine to Display the records
      No interface parameters available
FORM DISPLAY .
  IF SY-SUBRC EQ 0.
    LOOP AT T_SPFLI INTO FS_SPFLI.
      WRITE:
        /  W_CHECKBOX AS CHECKBOX,
            FS_SPFLI-CARRID,
            FS_SPFLI-CONNID,
            FS_SPFLI-COUNTRYFR,
            FS_SPFLI-CITYFROM,
            FS_SPFLI-AIRPFROM,
            FS_SPFLI-COUNTRYTO,
            FS_SPFLI-CITYTO,
            FS_SPFLI-AIRPTO,
            FS_SPFLI-FLTIME.
    ENDLOOP.
  ELSE.
    WRITE: 'No Records Found'(001).
  ENDIF.
ENDFORM.                             " DISPLAY
*&      Form  SELECTION
      Subroutine to select data from different table
      No Interface parameters Available
FORM SELECTION .
*" Data declarations...................................................
Work variables                                                      *
  DATA:
    LW_LINE TYPE I,                    " Line Count
    LW_LNO  TYPE I VALUE '3'.          " Line Number
  DATA:
    BEGIN OF LFS_SPFLI,
      CARRID LIKE SPFLI-CARRID,
      CONNID LIKE SPFLI-CONNID,
    END OF LFS_SPFLI.
Internal table to hold SPFLI data                                   *
  DATA:
    LT_SPFLI LIKE
    STANDARD TABLE
          OF LFS_SPFLI.
  DESCRIBE TABLE T_SPFLI LINES LW_LINE.
  DO LW_LINE TIMES.
    READ LINE LW_LNO FIELD VALUE W_CHECKBOX INTO W_CHECKBOX
                            FS_SPFLI-CARRID INTO FS_SPFLI-CARRID
                            FS_SPFLI-CONNID INTO FS_SPFLI-CONNID.
    IF SY-SUBRC EQ 0.
      IF W_CHECKBOX = 'X'.
        LFS_SPFLI-CARRID = FS_SPFLI-CARRID.
        LFS_SPFLI-CONNID = FS_SPFLI-CONNID.
        APPEND LFS_SPFLI TO LT_SPFLI.
      ENDIF.
    ENDIF.
    ADD 1 TO LW_LNO.
  ENDDO.                               " DO LW_LINE TIMES
  EXPORT LT_SPFLI FROM LT_SPFLI TO MEMORY ID 'ZMEMORY'.
  SUBMIT Z_TEST.                  " Calling another report
ENDFORM.                               " SELECTION
<b>Now in the other Report with name Z_TEST</b>.
*" Data declarations...................................................
Work variables                                                      *
DATA:
  BEGIN OF FS_SPFLI,
    CARRID    TYPE SPFLI-CARRID,       " Carrier ID
    CONNID    TYPE SPFLI-CONNID,       " Flight Connection ID
  END OF FS_SPFLI.
Internal table to hold SPFLI data                                   *
DATA:
  T_SPFLI LIKE
STANDARD TABLE
       OF FS_SPFLI.
*" Data declarations...................................................
Work variables                                                      *
DATA:
  BEGIN OF FS_SFLIGHT,
    CARRID   TYPE SFLIGHT-CARRID,      " Carrier ID
    CONNID   TYPE SFLIGHT-CONNID,      " Flight Connection ID
    FLDATE   TYPE SFLIGHT-FLDATE,      " Flight Date
    PRICE    TYPE SFLIGHT-PRICE,       " Price
    CURRENCY TYPE SFLIGHT-CURRENCY,    " Currency
  END OF FS_SFLIGHT.
Internal table to hold SFLIGHT data                                 *
DATA:
  T_SFLIGHT LIKE
   STANDARD TABLE
         OF FS_SFLIGHT.
IMPORT LT_SPFLI TO T_SPFLI FROM MEMORY ID 'ZMEMORY'.
                                       " Importing the records
IF NOT T_SPFLI[] IS INITIAL.
  SELECT CARRID                        " Carrier ID
         CONNID                        " Flight Connection ID
         FLDATE                        " Flight Date
         PRICE                         " Price
         CURRENCY                      " Currency
    INTO TABLE T_SFLIGHT
    FROM SFLIGHT
     FOR ALL ENTRIES IN T_SPFLI
   WHERE CARRID = T_SPFLI-CARRID AND
         CONNID = T_SPFLI-CONNID.
  IF SY-SUBRC EQ 0.
    LOOP AT T_SFLIGHT INTO FS_SFLIGHT.
      WRITE:
        / FS_SFLIGHT-CARRID,
          FS_SFLIGHT-CONNID,
          FS_SFLIGHT-FLDATE,
          FS_SFLIGHT-PRICE CURRENCY FS_SFLIGHT-CURRENCY,
          FS_SFLIGHT-CURRENCY.
    ENDLOOP.
  ELSE.
    WRITE: 'No Records Found'(001).
  ENDIF.
ELSE.
  WRITE: 'No Records Selected'(002).
ENDIF.
Regards,
Pavan