Import memory id

Former Member — Mon, 23 Jul 2007 11:28:34 GMT

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

Re: Import memory id

Former Member — Mon, 23 Jul 2007 11:32:45 GMT

Check this

DATA: TEXT(10) VALUE '0123456789',
      IDEN(3)  VALUE 'XYZ'.

EXPORT TEXT TO MEMORY ID IDEN.

TEXT = 'xxxxxxxxxx'.
IMPORT TEXT FROM MEMORY ID IDEN.
WRITE: / SY-SUBRC, TEXT.

FREE MEMORY.

TEXT = 'xxxxxxxxxx'.
IMPORT TEXT FROM MEMORY ID IDEN.
WRITE: / SY-SUBRC, TEXT.

reward all helpful answers

Regards

Pavan

Re: Import memory id

Former Member — Mon, 23 Jul 2007 11:47:22 GMT

*"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.

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

topic Import memory id in Application Development and Automation Discussions

Import memory id

Re: Import memory id

Re: Import memory id