Delete and internal table with not eqaul to fields

Hi I have an internal table I want delete few records with fields not equal to the variable v_lifnr, v_name1 and v_city,
structure of internal table has fields LIFNR, NAME1, CITY, TEXT1 and TEXT2.
I dont want to go by deletin in loop.

Hi ,
i want to delete a internal table record based on the values which are NOT in the ranges ..
I am facing a syntax error with not operation in some system s
code looks like below !
i am not facing this problem when there in no not in ranges.
Thanks .
RANGES: RA_FFIDS FOR /VIRSA/ZFFUSERS-ZVIRFFID.
data : BEGIN OF IZVIRFFTRANSLOG OCCURS 0.
        INCLUDE STRUCTURE /VIRSA/ZFFTNSLOG.
DATA:   DESC LIKE RS38M-REPTI,
      END OF IZVIRFFTRANSLOG.
data : IT_ZFlight_T LIKE IZVIRFFTRANSLOG OCCURS 0 WITH HEADER LINE.
IF NOT IT_ZFlight_T_TCODE[] IS INITIAL.
    DELETE IT_ZFlight_T_TCODE WHERE ZVIRFFID NOT IN RA_FFIDS.
   DELETE IT_ZFlight_T WHERE ZVIRFFID NOT IN RA_FFIDS.
ENDIF.

Similar Messages

Sorting internal table with variable no of fields

Hi ,
I want to sort the internal table with variable no of fields . Every time the report is run the number of fields as well as the sequence by which the table has to be sorted changes . How to do this .
regards

Hi,
Please try this.
DATA: BEGIN OF ITAB OCCURS 0,
        F1(4),
      END OF ITAB.
DATA: BEGIN OF ITAB2 OCCURS 0,
        F1(1),
        F2(1),
        F3(4),
      END OF ITAB2.
ITAB-F1 = '01AC'.
APPEND ITAB.
ITAB-F1 = '02AB'.
APPEND ITAB.
ITAB-F1 = '01CD'.
APPEND ITAB.
ITAB-F1 = '02CA'.
APPEND ITAB.
LOOP AT ITAB.
ITAB2-F1 = ITAB-F1+2(1).
ITAB2-F2 = ITAB-F1+3(1).
ITAB2-F3 = ITAB-F1.
APPEND ITAB2.
ENDLOOP.
SORT ITAB2 BY F1 ASCENDING
              F2 DESCENDING.
LOOP AT ITAB2.
WRITE: / ITAB2-F3.
ENDLOOP.
REWARD POINTS IF HELPFUL

Field catalog & internal table are not mutually convertible

Hi friends,
 please help me for this problem, actually i m trying to display three alv reports from the three buttond i have given on my first basic report. its working fine till first & getting the data into the internal table for the second also. but when coming to the field catalog for the second report its giving syntax error as my "field catalog and internal table are not mutually convertible'".i have tried by giving different fieldcatalog also but its giving the same problem.please help for this & try to give an example if u can. Thanks a lot.
Regards
Pankaj

This is my code :
TABLES: PLAF,
 MARA,
 MAKT,
 AFPO,
 T023T,
 VSAUFK,
 T006A,
 MBEW,
 ZCDR_D.
Type Pools for ALV *************************
TYPE-POOLS: SLIS,
 ABAP.
 KKBLO.
DATA DECLARATION. ****************************
DATA: FLAG TYPE I,
 FLAG1 TYPE I,
 FLAG2 TYPE I,
 FLAG3 TYPE I,
 FLAG4 TYPE I,
 FLAG5 TYPE I.
********Declaration for field catalog
DATA: LAYOUT TYPE SLIS_LAYOUT_ALV,
 IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 IT_SORT TYPE SLIS_T_SORTINFO_ALV,
 WA_SORT TYPE SLIS_SORTINFO_ALV,
 WA_SUBT LIKE SLIS_EV_SUBTOTAL_TEXT,
 IT_EVENTS TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
 LAYOUT1 TYPE SLIS_LAYOUT_ALV,
 IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,
 IT_SORT TYPE SLIS_T_SORTINFO_ALV,
 WA_SORT TYPE SLIS_SORTINFO_ALV,
 WA_SUBT LIKE SLIS_EV_SUBTOTAL_TEXT,
 IT_EVENTS TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
 WA_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV,
 LAYOUT2 TYPE SLIS_LAYOUT_ALV,
 IT_FIELDCAT2 TYPE SLIS_T_FIELDCAT_ALV,
 IT_SORT TYPE SLIS_T_SORTINFO_ALV,
 WA_SORT TYPE SLIS_SORTINFO_ALV,
 WA_SUBT LIKE SLIS_EV_SUBTOTAL_TEXT,
 IT_EVENTS TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
 WA_FIELDCAT2 TYPE SLIS_FIELDCAT_ALV,
 LAYOUT3 TYPE SLIS_LAYOUT_ALV,
 IT_FIELDCAT3 TYPE SLIS_T_FIELDCAT_ALV,
 IT_SORT TYPE SLIS_T_SORTINFO_ALV,
 WA_SORT TYPE SLIS_SORTINFO_ALV,
 WA_SUBT LIKE SLIS_EV_SUBTOTAL_TEXT,
 IT_EVENTS TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
 WITH HEADER LINE INITIAL SIZE 0,
 WA_FIELDCAT3 TYPE SLIS_FIELDCAT_ALV.
TYPES DECLARATION. ****************************
TYPES: BEGIN OF TY_MARA,
 MATNR LIKE MARA-MATNR, " Material Number
 MATKL LIKE MARA-MATKL, " Material Group
 END OF TY_MARA.
TYPES: BEGIN OF TY_PLAF,
 PERTR LIKE PLAF-PERTR, " Date
 PLNUM LIKE PLAF-PLNUM, " Planned Order Number
 MATNR LIKE PLAF-MATNR, " Material number
 PLWRK LIKE PLAF-PLWRK, " Plant
 KDAUF LIKE PLAF-KDAUF, " Sales Order Number
 KDPOS LIKE PLAF-KDPOS, " SO Line Item
 END OF TY_PLAF.
TYPES: BEGIN OF TY_MAKT,
 MATNR LIKE PLAF-MATNR, " Material Number
 MAKTX LIKE MAKT-MAKTX, " Material Description
 END OF TY_MAKT.
TYPES: BEGIN OF TY_AFPO,
 PLNUM LIKE AFPO-PLNUM, " Planned Order Number
 MATNR LIKE AFPO-MATNR, " Material Number
 KDAUF LIKE AFPO-KDAUF, " Sales Order Number
 KDPOS LIKE AFPO-KDPOS, " SO Line Item
 AUFNR LIKE AFPO-AUFNR, " Production Order
 STRMP LIKE AFPO-STRMP,
 DWERK LIKE AFPO-DWERK,
 END OF TY_AFPO.
TYPES: BEGIN OF TY_ZCDR_D,
 MANDT LIKE ZCDR_D-MANDT, " Client
 CBNO LIKE ZCDR_D-CBNO, " Customs Book Number
 PLNUM LIKE ZCDR_D-PLNUM, " Planned Order Number
 MATNR LIKE ZCDR_D-MATNR, " Material Number
 MAKTX LIKE ZCDR_D-MAKTX, " Material Description
 KDAUF like ZCDR_D-KDAUF, " Sales Order Number
 KDPOS like ZCDR_D-KDPOS, " SO Line Item
 AUFNR LIKE ZCDR_D-AUFNR, " Production Order
 END OF TY_ZCDR_D.
TYPES: BEGIN OF TY_VSAUFK,
 INACT LIKE VSAUFK-INACT, " Status Indicator
 END OF TY_VSAUFK.
TYPES: BEGIN OF TY_PLAF_MAKT,
 CBNO LIKE ZCDR_D-CBNO, " Customs Book Number
 PLNUM LIKE PLAF-PLNUM, " Planned Order Number
 CHK TYPE C, " Check Box
 MATNR LIKE PLAF-MATNR, " Material Number
 MAKTX LIKE MAKT-MAKTX, " Material Description
 KDAUF LIKE PLAF-KDAUF, " Sales Order Number
 KDPOS LIKE PLAF-KDPOS, " SO Line Item
 AUFNR LIKE AFPO-AUFNR, " Production Order
 END OF TY_PLAF_MAKT.
TYPES: BEGIN OF TY_HELP_ITEM,
 CBNO TYPE ZCDR_D-CBNO, " Customs Book Number
 PLNUM LIKE ZCDR_D-PLNUM, " Planned Order Number
 MATNR LIKE ZCDR_D-MATNR, " Material Number
 MAKTX LIKE ZCDR_D-MAKTX, " Material Description
 KDAUF LIKE ZCDR_D-KDAUF, " Sales Order Number
 KDPOS LIKE ZCDR_D-KDPOS, " SO Line Item
 AUFNR LIKE ZCDR_D-AUFNR, " Production Order
 END OF TY_HELP_ITEM.
WORK AREA ******************************
DATA: WA_MARA TYPE TY_MARA,
 WA_PLAF TYPE TY_PLAF,
 WA_MAKT TYPE TY_MAKT,
 WA_AFPO TYPE TY_AFPO,
 WA_ZCDR_D TYPE TY_ZCDR_D,
 WA_VSAUFK TYPE TY_VSAUFK,
 WA_PLAF_MAKT TYPE TY_PLAF_MAKT,
 WA_HELP_ITEM TYPE TY_HELP_ITEM.
INTERNAL TABLES ****************************
DATA: IT_MARA TYPE TABLE OF TY_MARA,
 IT_PLAF TYPE TABLE OF TY_PLAF,
 IT_MAKT TYPE TABLE OF TY_MAKT,
 IT_AFPO TYPE TABLE OF TY_AFPO,
 IT_ZCDR_D TYPE TABLE OF TY_ZCDR_D,
 IT_VSAUFK TYPE TABLE OF TY_VSAUFK,
 IT_PLAF_MAKT TYPE TABLE OF TY_PLAF_MAKT,
 IT_HELP_ITEM TYPE TABLE OF TY_HELP_ITEM.
*it_events TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
*WITH HEADER LINE INITIAL SIZE 0.
TYPES: BEGIN OF TY_BOM,
 MATMK LIKE STPOX-MATMK,
 MTNRV LIKE ZCDR_D-MATNR,
 IDNRK LIKE STPOX-IDNRK,
 MNGLG LIKE STPOX-MNGLG,
 MMEIN LIKE STPOX-MMEIN,
 VPRSV LIKE STPOX-VPRSV,
 UPRICE LIKE MBEW-STPRS,
 TPRICE LIKE MBEW-STPRS,
 END OF TY_BOM,
 BEGIN OF TY_QUAN,
 MATMK LIKE STPOX-MATMK,
 MTNRV LIKE ZCDR_D-MATNR,
 IDNRK LIKE STPOX-IDNRK,
 MNGLG LIKE STPOX-MNGLG,
 MMEIN LIKE STPOX-MMEIN,
 UPRICE LIKE MBEW-STPRS,
 TPRICE LIKE MBEW-STPRS,
 END OF TY_QUAN,
 BEGIN OF TY_T023T,
 MATKL LIKE T023T-MATKL,
 WGBEZ LIKE T023T-WGBEZ,
 END OF TY_T023T,
 BEGIN OF TY_T006A,
 MMEIN LIKE T006A-MSEHI,
 MSEHT LIKE T006A-MSEHT,
 END OF TY_T006A,
 BEGIN OF TY_IMP_FINAL,
 SNO TYPE SY-INDEX,
 HSCODE LIKE ZHSCODE-HSCODE,
 WGBEZ TYPE T023T-WGBEZ,
 SPEC(20) TYPE C,
 MNGLG LIKE STPOX-MNGLG,
 MSEHT LIKE T006A-MSEHT,
 CNTRY(13) TYPE C,
 UPRICE TYPE P LENGTH 16 DECIMALS 2,
 TPRICE TYPE P LENGTH 16 DECIMALS 2,
 CURRCODE TYPE C LENGTH 5,
 END OF TY_IMP_FINAL,
 BEGIN OF TY_MBEW,
 MATNR LIKE MBEW-MATNR,
 VPRSV LIKE MBEW-VPRSV,
 STPRS LIKE MBEW-STPRS,
 VERPR LIKE MBEW-VERPR,
 END OF TY_MBEW.
DATA: WA_BOM TYPE TY_BOM,
 WA_QUAN TYPE TY_QUAN,
 WA_IMP_FINAL TYPE TY_IMP_FINAL,
 WA_T023T TYPE TY_T023T,
 WA_T006A TYPE TY_T006A,
 WA_MBEW TYPE TY_MBEW.
DATA: IT_BOM TYPE TABLE OF TY_BOM,
 IT_QUAN TYPE TABLE OF TY_QUAN,
 IT_IMP_FINAL TYPE TABLE OF TY_IMP_FINAL,
 IT_MBEW TYPE TABLE OF TY_MBEW.
SELECTION-SCREEN **************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS : PR_CBNO LIKE ZCDR_D-CBNO OBLIGATORY. "Customs Book number
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION **************************
INITIALIZATION.
**PERFORM CLEAR_DATA.
**CLEAR: wa_layout.
*PERFORM set_events USING it_events[].
SELECT OPTION ****************************************
SELECTION-SCREEN : BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-002.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS:
 SO_PERTR for PLAF-PERTR, "----
Date
 SO_MATNR for MARA-MATNR, "----
Material
 SO_MATKL for MARA-MATKL, "----
Material Group
 SO_PLWRK for PLAF-PLWRK OBLIGATORY, "----
Plant
 SO_KDAUF for PLAF-KDAUF. "----
Sales Order
SELECTION-SCREEN : END OF BLOCK BLK.
SELECTION SCREEN F4 HELP *********************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR PR_CBNO.
DATA: DYNFIELDS TYPE TABLE OF DYNPREAD WITH HEADER LINE.
 DYNFIELDS-FIELDNAME = PR_CBNO.
 APPEND DYNFIELDS.
 CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 DYNAME = SY-CPROG
 DYNUMB = SY-DYNNR
 TRANSLATE_TO_UPPER = 'X'
 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 = DYNFIELDS
 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.
 READ TABLE DYNFIELDS WITH KEY FIELDNAME = 'CBNO'.
 PR_CBNO = DYNFIELDS-FIELDVALUE.
 SELECT
 CBNO
 PLNUM
 MATNR
 MAKTX
 KDAUF
 KDPOS
 AUFNR
 FROM ZCDR_D
 INTO TABLE IT_HELP_ITEM .
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 DDIC_STRUCTURE = ' '
 RETFIELD = 'CBNO'
 PVALKEY = ' '
 DYNPPROG = SY-CPROG
 DYNPNR = SY-DYNNR
 DYNPROFIELD = 'PR_CBNO'
 STEPL = 0
 WINDOW_TITLE =
 VALUE = ' '
 VALUE_ORG = 'S'
 MULTIPLE_CHOICE = ' '
 DISPLAY = ' '
 CALLBACK_PROGRAM = ' '
 CALLBACK_FORM = ' '
 MARK_TAB =
IMPORTING
 USER_RESET =
 TABLES
 VALUE_TAB = IT_HELP_ITEM
 FIELD_TAB =
 RETURN_TAB =
 DYNPFLD_MAPPING =
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.
***********************SELECTION SCREEN VALIDATION.*******************
AT SELECTION-SCREEN ON PR_CBNO.
SELECT SINGLE *
FROM ZCDR_D
WHERE CBNO = PR_CBNO.
IF SY-SUBRC EQ 0.
 MESSAGE E000(ZCBR) WITH PR_CBNO.
ENDIF.
AT SELECTION-SCREEN ON SO_PERTR.
IF SO_PERTR IS NOT INITIAL.
 SELECT SINGLE *
 FROM PLAF
 WHERE PERTR IN SO_PERTR.
 IF SY-SUBRC NE 0.
 MESSAGE W001(ZCBR) WITH SO_PERTR-LOW.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON SO_MATNR.
IF SO_MATNR IS NOT INITIAL.
 SELECT SINGLE *
 FROM MARA
 WHERE MATNR IN SO_MATNR.
 IF SY-SUBRC NE 0.
 MESSAGE W002(ZCBR) WITH SO_MATNR-LOW.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON SO_MATKL.
IF SO_MATKL IS NOT INITIAL.
 SELECT SINGLE *
 FROM MARA
 WHERE MATKL IN SO_MATKL.
 IF SY-SUBRC NE 0.
 MESSAGE W003(ZCBR) WITH SO_MATKL-LOW.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON SO_PLWRK.
IF SO_PLWRK IS NOT INITIAL.
 SELECT SINGLE * FROM PLAF
 WHERE PLWRK IN SO_PLWRK.
 IF SY-SUBRC NE 0.
 MESSAGE W004(ZCBR) WITH SO_PLWRK-LOW.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON SO_KDAUF.
IF SO_KDAUF IS NOT INITIAL.
 SELECT SINGLE * FROM PLAF
 WHERE KDAUF IN SO_KDAUF.
 IF SY-SUBRC NE 0.
 MESSAGE W005(ZCBR) WITH SO_KDAUF-LOW.
 ENDIF.
ENDIF.
*********************START-OF-SELECTION.*****************************
START-OF-SELECTION.
IF so_pertr IS NOT INITIAL.
 FLAG = 1.
ENDIF.
IF SO_MATNR IS NOT INITIAL.
 FLAG1 = 1.
ENDIF.
IF so_matkl IS NOT INITIAL.
 FLAG2 = 1.
ENDIF.
IF so_plwrk IS NOT INITIAL.
 FLAG3 = 1.
ENDIF.
IF so_kdauf IS NOT INITIAL.
 FLAG4 = 1.
ENDIF.
 Select data into its internal table from different database tables
SELECT
 MATNR
 MATKL
 MTART
 INTO CORRESPONDING FIELDS OF TABLE IT_MARA
 FROM MARA
 WHERE MTART = 'ZFGS'.
IF FLAG2 NE 0.
 DELETE IT_MARA WHERE
 NOT ( MATKL IN SO_MATKL )
ENDIF.
IF FLAG1 NE 0.
 DELETE IT_MARA WHERE
 NOT ( MATNR IN SO_MATNR )
ENDIF.
SELECT
 PERTR
 PLNUM
 MATNR
 PLWRK
 KDAUF
 KDPOS
 FROM PLAF
 INTO CORRESPONDING FIELDS OF TABLE IT_PLAF
 FOR ALL ENTRIES IN IT_MARA
 WHERE PLWRK IN SO_PLWRK
 AND MATNR = IT_MARA-MATNR.
 SELECT
 MATNR
 PLNUM
 AUFNR
 KDAUF
 KDPOS
 STRMP
 DWERK
 INACT
 FROM AFPO
 INTO CORRESPONDING FIELDS OF TABLE IT_AFPO
 FOR ALL ENTRIES IN IT_MARA
 WHERE DWERK IN SO_PLWRK
 AND MATNR = IT_MARA-MATNR.
 WHERE MATNR = IT_MARA-MATNR
 AND STRMP = IT_PLAF-PERTR
 AND KDAUF = IT_PLAF-KDAUF
 AND DWERK = IT_PLAF-PLWRK.
 End of Data selection
 Keep only those records which the user wants from his selection screen
IF FLAG NE 0.
 DELETE IT_PLAF WHERE
 NOT ( PERTR IN SO_PERTR )
 DELETE IT_AFPO WHERE
 NOT ( STRMP IN SO_PERTR )
ENDIF.
IF FLAG3 NE 0.
 DELETE IT_PLAF WHERE
 NOT ( PLWRK IN SO_PLWRK )
 DELETE IT_AFPO WHERE
 NOT ( DWERK IN SO_PLWRK )
ENDIF.
IF FLAG4 NE 0.
 DELETE IT_PLAF WHERE
 NOT ( KDAUF IN SO_KDAUF )
 DELETE IT_AFPO WHERE
 NOT ( KDAUF IN SO_KDAUF )
ENDIF.
 SELECT
 MATNR
 MAKTX
 FROM MAKT
 INTO CORRESPONDING FIELDS OF TABLE IT_MAKT
 FOR ALL ENTRIES IN IT_PLAF
 WHERE MATNR = IT_PLAF-MATNR
 AND SPRAS = 'EN'.
SELECT
 FROM ZCDR_D
 INTO TABLE IT_ZCDR_D.
 Put data into final internal table from different internal tables
LOOP AT IT_MARA INTO WA_MARA.
LOOP AT IT_PLAF INTO WA_PLAF WHERE MATNR = WA_MARA-MATNR.
 READ TABLE IT_ZCDR_D
 INTO WA_ZCDR_D
 WITH KEY PLNUM = WA_PLAF-PLNUM.
 IF SY-SUBRC <> 0.
 MOVE WA_PLAF-PLNUM TO WA_PLAF_MAKT-PLNUM.
 MOVE WA_PLAF-MATNR TO WA_PLAF_MAKT-MATNR.
 MOVE WA_PLAF-KDAUF TO WA_PLAF_MAKT-KDAUF.
 MOVE WA_PLAF-KDPOS TO WA_PLAF_MAKT-KDPOS.
 READ TABLE IT_AFPO INTO WA_AFPO WITH KEY PLNUM = WA_PLAF-PLNUM.
 MOVE WA_AFPO-AUFNR TO WA_PLAF_MAKT-AUFNR.
 SELECT
 SINGLE * FROM VSAUFK
 INTO TABLE IT_VSAUFK
 WHERE AUFNR = WA_AFPO-AUFNR
 AND STAT = 'I0012'.
 IF SY-SUBRC <> 0.
 MOVE WA_AFPO-AUFNR TO IT_PLAF_MAKT-AUFNR.
 ELSE.
 CHECK IT_VSAUFK-INACT = 'X'.
 MOVE WA_AFPO-AUFNR TO IT_PLAF_MAKT-AUFNR.
 ENDIF.
 ENDLOOP.
 READ TABLE IT_MAKT
 INTO WA_MAKT
 WITH KEY MATNR = WA_MARA-MATNR.
 MOVE WA_MAKT-MAKTX TO WA_PLAF_MAKT-MAKTX.
 APPEND WA_PLAF_MAKT TO IT_PLAF_MAKT.
 CLEAR WA_PLAF_MAKT.
 ENDIF.
ENDLOOP.
ENDLOOP.
LOOP AT IT_PLAF_MAKT .
LOOP AT IT_MARA INTO WA_MARA.
LOOP AT IT_PLAF INTO WA_PLAF WHERE MATNR = WA_MARA-MATNR.
 LOOP AT IT_AFPO INTO WA_AFPO WHERE MATNR = WA_MARA-MATNR.
 READ TABLE IT_ZCDR_D
 INTO WA_ZCDR_D
 WITH KEY PLNUM = WA_AFPO-PLNUM.
 IF SY-SUBRC <> 0.
 LOOP AT IT_AFPO INTO WA_AFPO.
 WHERE MATNR IN SO_MATNR
 AND STRMP = SO_PERTR
 AND PLNUM IN SO_PLNUM
 AND KDAUF IN SO_-KDAUF
 AND MATKL IN SO_MATKL.
 SELECT
 SINGLE INACT FROM VSAUFK
 INTO WA_VSAUFK
 WHERE AUFNR = WA_AFPO-AUFNR
 AND STAT = 'I0012'.
 IF SY-SUBRC <> 0.
 WA_PLAF_MAKT-PLNUM = WA_AFPO-PLNUM.
 WA_PLAF_MAKT-KDAUF = WA_AFPO-KDAUF.
 WA_PLAF_MAKT-KDPOS = WA_AFPO-KDPOS.
 WA_PLAF_MAKT-MATNR = WA_AFPO-MATNR.
 WA_PLAF_MAKT-AUFNR = WA_AFPO-AUFNR.
 READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_AFPO-MATNR.
 WA_PLAF_MAKT-MAKTX = WA_MAKT-MAKTX.
 APPEND WA_PLAF_MAKT TO IT_PLAF_MAKT .
 APPEND WA_AFPO TO IT_PLAF_MAKT.
 MOVE WA_AFPO-AUFNR TO IT_PLAF_MAKT-AUFNR.
 ELSE.
 CHECK WA_VSAUFK-INACT = 'X'.
 WA_PLAF_MAKT-PLNUM = WA_AFPO-PLNUM.
 WA_PLAF_MAKT-KDAUF = WA_AFPO-KDAUF.
 WA_PLAF_MAKT-KDPOS = WA_AFPO-KDPOS.
 WA_PLAF_MAKT-MATNR = WA_AFPO-MATNR.
 WA_PLAF_MAKT-AUFNR = WA_AFPO-AUFNR.
 READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_AFPO-MATNR.
 WA_PLAF_MAKT-MAKTX = WA_MAKT-MAKTX.
 APPEND WA_PLAF_MAKT TO IT_PLAF_MAKT .
 APPEND WA_AFPO TO IT_PLAF_MAKT.
 MOVE WA_AFPO-AUFNR TO IT_PLAF_MAKT-AUFNR.
 ENDIF.
 ENDIF.
 ENDLOOP.
 EXIT.
 ENDIF.
ENDLOOP.
ENDLOOP.
LOOP AT IT_PLAF_MAKT INTO WA_PLAF_MAKT.
 WA_PLAF_MAKT-CBNO = PR_CBNO.
 MODIFY IT_PLAF_MAKT FROM WA_PLAF_MAKT TRANSPORTING CBNO.
ENDLOOP.
ENDLOOP.
PERFORM CHANGE_CATALOG.
PERFORM ALV_DISPLAY.
*& Form CHANGE_CATALOG
 text
FORM CHANGE_CATALOG.
 LAYOUT-ZEBRA = 'X'.
DATA: L_POS TYPE I.
L_POS = L_POS + 1.
WA_FIELDCAT-col_pos = L_POS.
WA_FIELDCAT-SELTEXT_M = 'Planned Order Nos.'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-FIELDNAME = 'PLNUM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
L_POS = L_POS + 1.
WA_FIELDCAT-COL_POS = L_POS.
WA_FIELDCAT-INPUT = 'X'.
WA_FIELDCAT-SELTEXT_M = 'Check Box'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-CHECKBOX = 'X'.
WA_FIELDCAT-EDIT = abap_true.
WA_FIELDCAT-FIELDNAME = 'CHK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
L_POS = L_POS + 1.
WA_FIELDCAT-COL_POS = L_POS.
WA_FIELDCAT-OUTPUTLEN = '12'.
WA_FIELDCAT-SELTEXT_M = 'Material'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
L_POS = L_POS + 1.
WA_FIELDCAT-COL_POS = L_POS.
WA_FIELDCAT-OUTPUTLEN = '35'.
WA_FIELDCAT-SELTEXT_M = 'Material Description'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-FIELDNAME = 'MAKTX'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
L_POS = L_POS + 1.
WA_FIELDCAT-COL_POS = L_POS.
WA_FIELDCAT-SELTEXT_M = 'Sales Order Number'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-FIELDNAME = 'KDAUF'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
L_POS = L_POS + 1.
WA_FIELDCAT-COL_POS = L_POS.
WA_FIELDCAT-SELTEXT_M = 'S O Line Item'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-FIELDNAME = 'KDPOS'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
L_POS = L_POS + 1.
WA_FIELDCAT-COL_POS = L_POS.
WA_FIELDCAT-OUTPUTLEN = '13'.
WA_FIELDCAT-SELTEXT_M = 'Production Order'.
WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
WA_FIELDCAT-FIELDNAME = 'AUFNR'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*GS_LAYOUT-TOTALS_BEFORE_ITEMS = 'X'.
*data : text like slis_ev_subtotal_text value 'total'.
*gs_layout-subtotals_text = text.
*gs_layout-totals_only = 'X'.
gs_layout-subtotals_text = 'total'.
endform. " CHANGE_CATALOG
*********************event*************************************
*& Form ALV_DISPLAY
 text
FORM ALV_DISPLAY.
*data: LC_GLAY TYPE LVC_S_GLAY.
 LC_GLAY-EDT_CLL_CB = 'X'.
 gs_layout-colwidth_optimize = 'X'.
 gs_layout-zebra = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_INTERFACE_CHECK = ' '
 I_BYPASSING_BUFFER = ' '
 I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = SY-REPID
 I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 I_CALLBACK_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_END_OF_LIST = ' '
 I_STRUCTURE_NAME =
 I_BACKGROUND_ID = ' '
 I_GRID_TITLE = 'PLANNED ORDERS'
 I_GRID_SETTINGS = LC_GLAY
 IS_LAYOUT = LAYOUT
 IT_FIELDCAT = IT_FIELDCAT[]
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 IT_SORT =
 IT_FILTER =
 IS_SEL_HIDE =
 I_DEFAULT = 'X'
 I_SAVE = 'X'
 IS_VARIANT =
 IT_EVENTS = IT_EVENTS[]
 IT_EVENT_EXIT =
 IS_PRINT =
 IS_REPREP_ID =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 I_HTML_HEIGHT_TOP = 0
 I_HTML_HEIGHT_END = 0
 IT_ALV_GRAPHICS =
 IT_HYPERLINK =
 IT_ADD_IT_FIELDCAT =
 IT_EXCEPT_QINFO =
 IR_SALV_FULLSCREEN_ADAPTER =
 IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB = IT_PLAF_MAKT
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
REFRESH IT_FIELDCAT[].
ENDFORM. "ALV_DISPLAY
*& Form USER_COMMAND
 text
 -->UCOMM text
 -->SELFIELD text
FORM USER_COMMAND
USING UCOMM LIKE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.
Data: REF1 TYPE REF TO CL_GUI_ALV_GRID.
DATA WA LIKE LINE OF IT_PLAF_MAKT.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
 IMPORTING
 E_GRID = REF1.
CALL METHOD REF1->CHECK_CHANGED_DATA.
CASE UCOMM.
 WHEN '&BACK'.
 LEAVE TO SCREEN 0.
 WHEN '&EXIT'.
 LEAVE TO SCREEN 0.
 WHEN '&CANC'.
 LEAVE TO SCREEN 0.
 WHEN '&SAVE'.
 CLEAR IT_ZCDR_D[].
 LOOP AT IT_PLAF_MAKT INTO WA_PLAF_MAKT WHERE CHK = 'X'.
 CLEAR WA_ZCDR_D.
 WA_ZCDR_D-MANDT = SY-MANDT.
 WA_ZCDR_D-CBNO = WA_PLAF_MAKT-CBNO.
 WA_ZCDR_D-plnum = WA_PLAF_MAKT-PLNUM.
 WA_ZCDR_D-MATNR = WA_PLAF_MAKT-MATNR.
 WA_ZCDR_D-MAKTX = WA_PLAF_MAKT-MAKTX.
 WA_ZCDR_D-KDAUF = WA_PLAF_MAKT-KDAUF.
 WA_ZCDR_D-KDPOS = WA_PLAF_MAKT-KDPOS.
 WA_ZCDR_D-AUFNR = WA_PLAF_MAKT-AUFNR.
 APPEND WA_ZCDR_D to IT_ZCDR_D.
 ENDLOOP.
 LOOP AT IT_ZCDR_D INTO WA_ZCDR_D.
 INSERT ZCDR_D FROM WA_ZCDR_D.
 CLEAR WA_ZCDR_D.
 ENDLOOP.
 IF SY-SUBRC EQ 0.
 MESSAGE S021(ZCBR) WITH PR_CBNO.
 ENDIF.
 IF IT_ZCDR_D IS INITIAL.
 MESSAGE 'Select Atleast one Check Box' TYPE 'E' .
 ENDIF.
 WHEN 'IMPORT_INF'.
 PERFORM IMPORT_REPORT.
 WHEN 'EXPORT_INF'.
 PERFORM EXPORT_REPORT.
 WHEN 'UNIT_CONSU'.
 PERFORM UNIT_CONSUMPTION.
ENDCASE.
ENDFORM. "USER_COMMAND
FORM set_events USING it_events TYPE slis_t_event.
DATA: x_event TYPE slis_alv_event.
clear x_event.
x_event-name = 'USER_COMMAND'.
x_event-form = 'USER_COMMAND'.
append x_event to it_events.
CLEAR x_event.
call function 'REUSE_ALV_EVENTS_GET'
EXPORTING
 I_LIST_TYPE = 0
IMPORTING
 ET_EVENTS = IT_EVENTS
EXCEPTIONS
 LIST_TYPE_WRONG = 1
 OTHERS = 2
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
read table it_events into x_event with key name = slis_ev_user_command.
 if sy-subrc = 0.
 x_event-form = 'USER_COMMAND'.
 modify it_events from x_event index sy-tabix transporting form .
 endif.
ENDFORM.
*& Form set_pf_status
 text
 -->RT_EXTAB text
FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'Z_PFSTAT'.
ENDFORM. " set_pf_status
FORM IMPORT_REPORT.
TYPES: BEGIN OF TY_BOM,
 MATMK LIKE STPOX-MATMK,
 MTNRV LIKE ZCDR_D-MATNR,
 IDNRK LIKE STPOX-IDNRK,
 MNGLG LIKE STPOX-MNGLG,
 MMEIN LIKE STPOX-MMEIN,
 VPRSV LIKE STPOX-VPRSV,
 UPRICE LIKE MBEW-STPRS,
 TPRICE LIKE MBEW-STPRS,
 END OF TY_BOM,
 BEGIN OF TY_QUAN,
 MATMK LIKE STPOX-MATMK,
 MTNRV LIKE ZCDR_D-MATNR,
 IDNRK LIKE STPOX-IDNRK,
 MNGLG LIKE STPOX-MNGLG,
 MMEIN LIKE STPOX-MMEIN,
 UPRICE LIKE MBEW-STPRS,
 TPRICE LIKE MBEW-STPRS,
 END OF TY_QUAN,
 BEGIN OF TY_T023T,
 MATKL LIKE T023T-MATKL,
 WGBEZ LIKE T023T-WGBEZ,
 END OF TY_T023T,
 BEGIN OF TY_T006A,
 MMEIN LIKE T006A-MSEHI,
 MSEHT LIKE T006A-MSEHT,
 END OF TY_T006A,
 BEGIN OF TY_IMP_FINAL,
 SNO TYPE SY-INDEX,
 HSCODE LIKE ZHSCODE-HSCODE,
 WGBEZ TYPE T023T-WGBEZ,
 SPEC(20) TYPE C,
 MNGLG LIKE STPOX-MNGLG,
 MSEHT LIKE T006A-MSEHT,
 CNTRY(13) TYPE C,
 UPRICE TYPE P LENGTH 16 DECIMALS 2,
 TPRICE TYPE P LENGTH 16 DECIMALS 2,
 CURRCODE TYPE C LENGTH 5,
 END OF TY_IMP_FINAL,
 BEGIN OF TY_MBEW,
 MATNR LIKE MBEW-MATNR,
 VPRSV LIKE MBEW-VPRSV,
 STPRS LIKE MBEW-STPRS,
 VERPR LIKE MBEW-VERPR,
 END OF TY_MBEW.
DATA: WA_BOM TYPE TY_BOM,
 WA_QUAN TYPE TY_QUAN,
 WA_IMP_FINAL TYPE TY_IMP_FINAL,
 WA_T023T TYPE TY_T023T,
 WA_T006A TYPE TY_T006A,
 WA_MBEW TYPE TY_MBEW.
DATA: IT_BOM TYPE TABLE OF TY_BOM,
 IT_QUAN TYPE TABLE OF TY_QUAN,
 IT_IMP_FINAL TYPE TABLE OF TY_IMP_FINAL,
 IT_MBEW TYPE TABLE OF TY_MBEW.
DATA: IT_STPO TYPE STANDARD TABLE OF STPOX,
 WA_STPO TYPE STPOX.
 SELECT
 MATNR
 VPRSV
 STPRS
 VERPR
 FROM MBEW
 INTO CORRESPONDING FIELDS OF TABLE IT_MBEW.
 WHERE MATNR EQ IT_MARA-MATNR. "MBEW
*I_STPO2 TYPE STANDARD TABLE OF STPOX.
LOOP AT IT_PLAF_MAKT INTO WA_PLAF_MAKT WHERE CHK = 'X'.
LOOP AT IT_ZCDR_D INTO WA_ZCDR_D .
 CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'

Creating Dynamic Internal table with a dynamic name

Hi,
I want to create dynamic internal tables with dynamic names.
For example:
Suppose I have a table with three fields.
1. Structure name
2.Fields
3.file
And the structure of the internal table is as follows:
TYPES:BEGIN OF table_type,
 struct TYPE char70,
 fields TYPE tt_type OCCURS 0,
 File TYPE ttab_type OCCURS 0,
 END OF table_type.
Suppose I have one record inside my internal table with struct as "STRUCTURE", fields have an internal table content of set of fields and File has some set of records.
Now I want to create dynamic internal table whose name will be "STRUCTURE" , the fields of the dynamic internal table structure[] will be as in fields, and the records will be as in File.
Like this if i have 100 records in my internal table then I have to create 100 dynamic internal table dynamically.
Can anyone suggest how to do this?
Edited by: Jjammy on Jul 22, 2009 7:52 AM

Hi,
Check the sample program and develop your program accordingly.
<pre>
REPORT ztest_notepad.
*& Declarations
*Type-pools
TYPE-POOLS:
 slis.
*Types
TYPES:
 ty_fcat TYPE lvc_s_fcat,
 ty_fcatalog TYPE slis_fieldcat_alv.
*Work areas
DATA:
 wa_fcat TYPE ty_fcat,
 wa_fcatalog TYPE ty_fcatalog.
*Internal tables
DATA:
 it_fcat TYPE STANDARD TABLE OF ty_fcat,
 it_fcatalog TYPE STANDARD TABLE OF ty_fcatalog.
*Type reference
DATA:
 it_dyn_tab TYPE REF TO data,
 wa_newline TYPE REF TO data.
*Filed symbols
FIELD-SYMBOLS:
 <gt_table> TYPE STANDARD TABLE,
 <fs_dyntable>,
 <fs_fldval> TYPE ANY,
 <l_field> TYPE ANY.
*Variables
DATA:
 l_fieldname TYPE lvc_s_fcat-fieldname,
 l_tabname TYPE lvc_s_fcat-tabname,
 l_fieldtext TYPE lvc_s_fcat-seltext,
 l_index TYPE char2.
"Selection-screen
PARAMETERS:
 p_colms TYPE i.
*& start-of-selection.
START-OF-SELECTION.
PERFORM build_fieldcat.
PERFORM create_dynamic_table.
DO 20 TIMES.
 DO p_colms TIMES.
 l_index = sy-index.
 CONCATENATE 'FIELD' l_index INTO l_fieldname.
 ASSIGN COMPONENT l_fieldname OF STRUCTURE <fs_dyntable> TO <l_field>.
 <l_field> = sy-index.
 ENDDO.
 INSERT <fs_dyntable> INTO TABLE <gt_table>.
ENDDO.
LOOP AT it_fcat INTO wa_fcat.
 PERFORM fieldcatalog1 USING: wa_fcat-fieldname
 wa_fcat-tabname
 wa_fcat-seltext.
ENDLOOP.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = 'ZTEST_NOTEPAD'
 it_fieldcat = it_fcatalog
 TABLES
 t_outtab = <gt_table>.
*& Form BUILD_FIELDCAT
FORM build_fieldcat .
CLEAR: l_fieldname,
 l_tabname,
 l_fieldtext,
 l_index.
DO p_colms TIMES.
 CLEAR l_index.
 l_index = sy-index.
 CONCATENATE 'FIELD' l_index INTO l_fieldname.
 CONCATENATE 'Field' l_index INTO l_fieldtext.
 l_tabname = '<GT_TABLE>'.
 PERFORM fieldcatalog USING: l_fieldname
 l_tabname
 l_fieldtext.
ENDDO.
ENDFORM. " BUILD_FIELDCAT
*& Form CREATE_DYNAMIC_TABLE
FORM create_dynamic_table .
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = it_fcat
 IMPORTING
 ep_table = it_dyn_tab.
ASSIGN it_dyn_tab->* TO <gt_table>.
Create dynamic work area and assign to FS
CREATE DATA wa_newline LIKE LINE OF <gt_table>.
ASSIGN wa_newline->* TO <fs_dyntable>.
ENDFORM. " CREATE_DYNAMIC_TABLE
*& Form FIELDCATALOG
FORM fieldcatalog USING field table f_txt.
wa_fcat-fieldname = field.
wa_fcat-tabname = table.
wa_fcat-seltext = f_txt.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ENDFORM. " FIELDCATALOG
*& Form FIELDCATALOG1
FORM fieldcatalog1 USING field table f_txt.
wa_fcatalog-fieldname = field.
wa_fcatalog-tabname = table.
wa_fcatalog-seltext_m = f_txt.
APPEND wa_fcatalog TO it_fcatalog.
CLEAR wa_fcatalog.
ENDFORM. " FIELDCATALOG1 </pre>

Thanks
Venkat.O

Internal table with Import and Export

Hi All,
Hi all
Please let me know the use of Internal table with Import and Export parameters and SET/GET parameters, on what type of cases we can use these? Plese give me the syntax with some examples.
Please give me detailed analysis on the above.
Regards,
Prabhu

Hi Prabhakar,
There are three types of memories.
1. ABAP MEMORY
2. SAP MEMORY
3. EXTERNAL MEMORY.
1.we will use EXPORT/ IMPORT TO/ FROM MEMORY-ID when we want to transfer between ABAP memory
2. we will use GET PARAMETER ID/ SET PARAMETER ID to transfer between SAP MEMORY
3. we will use EXPORT/IMPORT TO/FROM SHARED BUFFER to transfer between external memory.
ABAP MEMORY : we can say that two reports in the same session will be in ABAP MEMORY
SAP MEMORY: TWO DIFFERENT SESSIONS WILL BE IN SAP MEMORY.
for ex: IF WE CALL TWO DIFFERENT TRANSACTIONS SE38, SE11
then they both are in SAP MEMORY.
EXTERNAL MEMORY: TWO different logons will be in EXTERNAL MEMORY.
Syntax
To fill the input fields of a called transaction with data from the calling program, you can use the SPA/GPA technique. SPA/GPA parameters are values that the system stores in the global, user-specific SAP memory. SAP memory allows you to pass values between programs. A user can access the values stored in the SAP memory during one terminal session for all parallel sessions. Each SPA/GPA parameter is identified by a 20-character code. You can maintain them in the Repository Browser in the ABAP Workbench. The values in SPA/GPA parameters are user-specific.
ABAP programs can access the parameters using the SET PARAMETER and GET PARAMETER statements.
To fill one, use:
SET PARAMETER ID <pid> FIELD <f>.
This statement saves the contents of field <f> under the ID <pid> in the SAP memory. The code <pid> can be up to 20 characters long. If there was already a value stored under <pid>, this statement overwrites it. If the ID <pid> does not exist, double-click <pid> in the ABAP Editor to create a new parameter object.
To read an SPA/GPA parameter, use:
GET PARAMETER ID <pid> FIELD <f>.
This statement fills the value stored under the ID <pid> into the variable <f>. If the system does not find a value for <pid> in the SAP memory, it sets SY-SUBRC to 4, otherwise to 0.
To fill the initial screen of a program using SPA/GPA parameters, you normally only need the SET PARAMETER statement.
The relevant fields must each be linked to an SPA/GPA parameter.
On a selection screen, you link fields to parameters using the MEMORY ID addition in the PARAMETERS or SELECT-OPTIONS statement. If you specify an SPA/GPA parameter ID when you declare a parameter or selection option, the corresponding input field is linked to that input field.
On a screen, you link fields to parameters in the Screen Painter. When you define the field attributes of an input field, you can enter the name of an SPA/GPA parameter in the Parameter ID field in the screen attributes. The SET parameter and GET parameter checkboxes allow you to specify whether the field should be filled from the corresponding SPA/GPA parameter in the PBO event, and whether the SPA/GPA parameter should be filled with the value from the screen in the PAI event.
When an input field is linked to an SPA/GPA parameter, it is initialized with the current value of the parameter each time the screen is displayed. This is the reason why fields on screens in the R/3 System often already contain values when you call them more than once.
When you call programs, you can use SPA/GPA parameters with no additional programming overhead if, for example, you need to fill obligatory fields on the initial screen of the called program. The system simply transfers the values from the parameters into the input fields of the called program.
However, you can control the contents of the parameters from your program by using the SET PARAMETER statement before the actual program call. This technique is particularly useful if you want to skip the initial screen of the called program and that screen contains obligatory fields.
Reading Data Objects from Memory
To read data objects from ABAP memory into an ABAP program, use the following statement:
Syntax
IMPORT <f1> [TO <g 1>] <f 2> [TO <g 2>] ... FROM MEMORY ID <key>.
This statement reads the data objects specified in the list from a cluster in memory. If you do not use the TO <g i > option, the data object <f i > in memory is assigned to the data object in the program with the same name. If you do use the option, the data object <f i > is read from memory into the field <g i >. The name <key> identifies the cluster in memory. It may be up to 32 characters long.
You do not have to read all of the objects stored under a particular name <key>. You can restrict the number of objects by specifying their names. If the memory does not contain any objects under the name <key>, SY-SUBRC is set to 4. If, on the other hand, there is a data cluster in memory with the name <key>, SY-SUBRC is always 0, regardless of whether it contained the data object <f i >. If the cluster does not contain the data object <f i >, the target field remains unchanged.
Saving Data Objects in Memory
To read data objects from an ABAP program into ABAP memory, use the following statement:
Syntax
EXPORT <f1> [FROM <g 1>] <f 2> [FROM <g 2>] ... TO MEMORY ID <key>.
This statement stores the data objects specified in the list as a cluster in memory. If you do not use the option FROM <f i >, the data object <f i > is saved under its own name. If you use the FROM <g i > option, the data objet <g i > is saved under the name <f i >. The name <key> identifies the cluster in memory. It may be up to 32 characters long.
Check this link.
http://www.sap-img.com/abap/difference-between-sap-and-abap-memory.htm
Thanks,
Susmitha.
Reward points for helpful answers.

Internal table with same variable and one select query

Hi,
I am a new bee here with may be a silly question.
I have a internal table as below.
DATA: BEGIN OF IT_ORDERDETAILS OCCURS 0,
 VBELN LIKE VBAK-VBELN, "Order number
 BSTNK LIKE VBAK-BSTNK, "customer PO
 ERDAT LIKE VBAK-ERDAT, " Order created date
 MATNR LIKE VBAP-MATNR, "Sales order line item
 KWMENG LIKE VBAP-KWMENG, "Quantity
 D_VBELN like likp-vbeln, " delivery no
 POSNR like lips-posnr, " delivery item
 KUNNR LIKE LIKP-KUNNR, "ship quantity
END OF IT_ORDERDETAILS.
Where VBELN field is in VBAK and LIKP table.
VBELN in VBAK table = order #
VBELN in LIKP table is = Delivery #
I want to use join to fetch data in single select query.
Below is the select query
SELECT VBAK~VBELN
 VBAK~BSTNK
 VBAK~ERDAT
 VBAP~MATNR
 VBAP~KWMENG
 likp~vbeln
 lips~posnr
 LIPS~VGBEL
 INTO (IT_ORDERDETAILSvbak, IT_ORDERDETAILSbstnk, IT_ORDERDETAILSerdat, IT_ORDERDETAILSmatnr, IT_ORDERDETAILSkwmeng, IT_ORDERDETAILSd_vbeln,IT_ORDERDETAILSposnr, IT_ORDERDETAILSkunnr)
FROM VBAK left outer JOIN VBAP ON ( VBAKVBELN = VBAPVBELN )
left outer JOIN LIPS ON ( VBAKVBELN = LIPSVGBEL )
join LIKP on ( LIPSVBELN = LIKPVBELN )
WHERE VBAK~ERDAT IN CR_DATE.
I am getting error in the query.
Please suggest.
Thanks,
Rajesh

Hi rajesh.nayakbola,
although this is not quite the right place for this, let me give you some notes:
1. Code should be
formatted as code
by markin it with mouse and use above <> button.
2. Internal tables shoult not be declared using OCCURS clause - this is last century style
3. Internal tables do not need and should not have a header line, they should use TYPES for declaration
4. Data should not be declared using LIKE: If they refer to dictionary TYPES, use TYPE. LIKE is only mandatory for data objects declared in your program, i.e. DATA IT_some_ORDERDETAILS like IT_ORDERDETAILS.
5. If you get an error here, never write "I am getting error" but copy and paste the error message fully.
- The fields in brackets in the INTO clause never have ~ character, there is no IT_ORDERDETAILS~vbak, only IT_ORDERDETAILS-vbeln
It could be something like this:
TYPES:
BEGIN OF TY_ORDERDETAILS,
VBELN TYPE VBAK-VBELN, "Order number
BSTNK TYPE VBAK-BSTNK, "customer PO
ERDAT TYPE VBAK-ERDAT, " Order created date
MATNR TYPE VBAP-MATNR, "Sales order line item
KWMENG TYPE VBAP-KWMENG, "Quantity
D_VBELN TYPE likp-vbeln, " delivery no
POSNR TYPE lips-posnr, " delivery item
KUNNR TYPE LIKP-KUNNR, "ship quantity
END OF TY_ORDERDETAILS.
DATA:
IT_ORDERDETAILS TYPE TABLE OF TY_ORDERDETAILS.
SELECT VBAK~VBELN
VBAK~BSTNK
VBAK~ERDAT
VBAP~MATNR
VBAP~KWMENG
likp~vbeln AS D_VBELN
lips~posnr
LIKP~KUNNR
INTO CORRSPONDING FIELDS OF TABLE IT_ORDERDETAILS
FROM VBAK left outer JOIN VBAP ON ( VBAK~VBELN = VBAP~VBELN )
left outer JOIN LIPS ON ( VBAK~VBELN = LIPS~VGBEL )
join LIKP on ( LIPS~VBELN = LIKP~VBELN )
WHERE VBAK~ERDAT IN CR_DATE.
Regards,
Clemens

Differences between Internal table with Occurs 0 and Field-Groups?

Is there really any difference between just using an internal table with an OCCURS 0 statement-- which would write the entire table to paging space-- and using field-groups? How is Field-Groups is more effective than Internal tables with occurs 0 when it comes to performance?
Could anybody please give some information regarding above question?
Thanks,
Surya.

hi,
occurs 0 means it wont create any extra memory. based on the records only the memory is allocated to internal tables at run time. but when an internal table is created it can hold data of type to which it is declared.
i.e data: itab like mara occurs 0 with header line.
can take data only from mara table
we can also do in another way as using types keyword we can declare a standard structure and create a internal table of that type. its also not that useful as we have to change the structure depending on changes for storing data.
for this purpose field symbols are used. field symbols can hold any data means that they can point to tables, fields, any standard or user-defined types. field symbols actually points to respective types by which we can directly access to that types using field symbols.
filed symbols works more faster than internal tables.
if helpful reward some points.
with regards,
Suresh.A

Internal table with and with out work area.

Hi all,
in performance terms which one is better 1) internal table with header line or 2) itab w/o header line and explicit work area for that itab.
which one is better and how?
Thanks in advance.
SAI

Hai Sai Ram
Internal Table with header Line Improves the Performence
1)
TABLES CUSTOMERS.
Defining an internal table with header line
DATA ALL_CUSTOMERS LIKE CUSTOMERS OCCURS 100
                   WITH HEADER LINE.
Reading all entries of the database table into the internal table
SELECT * FROM CUSTOMERS INTO TABLE ALL_CUSTOMERS.
2)
Check the following code for the Difference
REPORT ZWRITEDOC LINE-SIZE 124 NO STANDARD PAGE HEADING.
   TABLES: DD03L, "
           DD04T, "R/3-DD: Textos de los elementos de datos
           DD02T. "R/3-DD: Textos de tablas SAP
Tabla temporal con las lineas de cada tabla
   DATA: BEGIN OF I_LINEAS OCCURS 100,
            LINEA(80),
         END OF I_LINEAS.
Tabla con las caracteristicas de la tabla
   DATA: BEGIN OF I_TABLA OCCURS 100,
            CAMPO(12),
            TIPO(4),
            LONG(5) TYPE I,
            REF(20),
            DESCR(40),
         END OF I_TABLA.
   DATA: D_NOMBRE(80),
         D_DESCRIPCION(80).
   DATA : BEGIN OF SOURCE OCCURS 1000,
        LINE(72),
   END OF SOURCE.
   PARAMETERS: PROGRAM LIKE SY-REPID DEFAULT SY-REPID.
   AT USER-COMMAND.
     CASE SY-UCOMM.
       WHEN 'GRAB'.
         PERFORM GRABAR.
     ENDCASE.
   START-OF-SELECTION.
     SET PF-STATUS 'ZSTATUS1'.
     READ REPORT PROGRAM INTO SOURCE.
     DATA L_GRAB.
     CLEAR L_GRAB.
LOOP AT SOURCE.
   translate source to upper case.
       IF L_GRAB IS INITIAL.
         D_DESCRIPCION = I_LINEAS-LINEA.
       ENDIF.
       I_LINEAS = SOURCE.
       SEARCH I_LINEAS-LINEA FOR 'BEGIN OF'.
       IF SY-SUBRC = 0.
         SEARCH I_LINEAS-LINEA FOR 'DATA'.
         IF SY-SUBRC = 0.
           L_GRAB = 'X'.
           FREE I_LINEAS.
         ENDIF.
       ENDIF.
       IF L_GRAB = 'X'.
         I_LINEAS = SOURCE.
         APPEND I_LINEAS.
         SEARCH I_LINEAS-LINEA FOR 'END OF'.
         IF SY-SUBRC = 0.
           CLEAR L_GRAB.
           PERFORM PROCESAR_FICHERO.
           PERFORM IMPRIMIR.
           FREE I_LINEAS.
           CLEAR D_DESCRIPCION.
         ENDIF.
       ENDIF.
       SEARCH I_LINEAS-LINEA FOR 'WITH HEADER LINE'.
       IF SY-SUBRC = 0.
         APPEND I_LINEAS.
         PERFORM PROCESAR_FICHERO.
         PERFORM IMPRIMIR.
       ENDIF.
     ENDLOOP.
*&      Form GRABAR
      Graba el fichero en c:\temp\p.rtf y lo abre con word.
   FORM GRABAR.
     CALL FUNCTION 'LIST_DOWNLOAD'
         EXPORTING
        LIST_INDEX = SLIST_INDEX_DEFAULT
              METHOD     = 'RTF'
          EXCEPTIONS
               OTHERS     = 1.
     CALL FUNCTION 'EXECUTE_WINWORD'
          EXPORTING
               I_FILE = 'C:\TEMP\P.RTF'
          EXCEPTIONS
               OTHERS = 1.
   ENDFORM.                               " GRABAR
*&      Form PROCESAR_FICHERO
   FORM PROCESAR_FICHERO.
     DATA: L_AUX1(80),
          L_AUX2(80).
     FREE I_TABLA.
     LOOP AT I_LINEAS.
       CLEAR I_TABLA.
   translate i_lineas-linea to upper case.
       SEARCH I_LINEAS-LINEA FOR 'BEGIN OF'.
       IF SY-SUBRC = 0.
         SPLIT I_LINEAS-LINEA AT 'BEGIN OF' INTO L_AUX1 D_NOMBRE.
         SPLIT D_NOMBRE AT 'OCCURS' INTO D_NOMBRE L_AUX1.
       ENDIF.
       SEARCH I_LINEAS-LINEA FOR '('.
       IF SY-SUBRC = 0.
          SPLIT I_LINEAS-LINEA AT '(' INTO L_AUX1 L_AUX2.
         CONDENSE L_AUX1.
         I_TABLA-CAMPO = L_AUX1.
         SPLIT L_AUX2 AT ')' INTO L_AUX1 L_AUX2.
         CONDENSE L_AUX1.
         IF L_AUX1 CO '0123456789 '.
           I_TABLA-LONG = L_AUX1.
         ENDIF.
         I_TABLA-TIPO = 'CHAR'.
       ENDIF.
       SEARCH I_LINEAS-LINEA FOR 'LIKE'.
       IF SY-SUBRC = 0.
         SPLIT I_LINEAS-LINEA AT 'LIKE' INTO L_AUX1 L_AUX2.
         CONDENSE L_AUX1.
         I_TABLA-CAMPO = L_AUX1.
           SPLIT L_AUX2 AT ',' INTO L_AUX1 L_AUX2.
         CONDENSE L_AUX1.
         I_TABLA-REF = L_AUX1.
       ENDIF.
       SEARCH I_LINEAS-LINEA FOR 'TYPE'.
       IF SY-SUBRC = 0.
         SPLIT I_LINEAS-LINEA AT 'TYPE' INTO L_AUX1 L_AUX2.
         IF I_TABLA-CAMPO IS INITIAL.
           CONDENSE L_AUX1.
           I_TABLA-CAMPO = L_AUX1.
         ENDIF.
             SPLIT L_AUX2 AT ',' INTO L_AUX1 L_AUX2.
        CONDENSE L_AUX1.
         CASE L_AUX1.
           WHEN 'I'.
             I_TABLA-TIPO = 'INT'.
             I_TABLA-LONG = 4.
           WHEN 'C'.
             I_TABLA-TIPO = 'CHAR'.
           WHEN 'N'.
             I_TABLA-TIPO = 'NUMC'.
           WHEN 'T'.
             I_TABLA-TIPO = 'TIME'.
             I_TABLA-LONG = 8.
           WHEN OTHERS.
             I_TABLA-TIPO = L_AUX1.
         ENDCASE.
       ENDIF.
       SEARCH I_LINEAS-LINEA FOR '"'.
       IF SY-SUBRC = 0.
         SPLIT I_LINEAS-LINEA AT '"' INTO L_AUX1 L_AUX2.
         CONDENSE L_AUX2.
         I_TABLA-DESCR = L_AUX2.
       ENDIF.
       SEARCH I_LINEAS-LINEA FOR 'INCLUDE STRUCTURE'.
       IF SY-SUBRC = 0.
         SPLIT I_LINEAS-LINEA AT 'INCLUDE STRUCTURE' INTO L_AUX1 L_AUX2.
         SPLIT L_AUX2 AT '.' INTO L_AUX1 L_AUX2.
         CONDENSE L_AUX1.
         I_TABLA-CAMPO = 'INCLUDE STR'.
         I_TABLA-REF   = L_AUX1.
       ENDIF.
       SEARCH I_LINEAS-LINEA FOR 'WITH HEADER LINE'.
         IF SY-SUBRC = 0.
           IF NOT I_LINEAS-LINEA CA '"'.
             SPLIT I_LINEAS-LINEA AT 'OCCURS' INTO L_AUX1 L_AUX2.
             IF SY-SUBRC = 0.
               SPLIT L_AUX1 AT 'LIKE' INTO L_AUX1 L_AUX2.
               IF SY-SUBRC = 0.
                 CONDENSE L_AUX2.
                 IF NOT L_AUX2 IS INITIAL.
                   I_TABLA-CAMPO = '...'.
                   I_TABLA-TIPO = 'TABI'.
                   I_TABLA-REF   = L_AUX2.
                   SELECT SINGLE * FROM DD02T
                    WHERE TABNAME = L_AUX2
                      AND DDLANGUAGE = SY-LANGU.
                   IF SY-SUBRC = 0.
                   I_TABLA-TIPO = 'TABE'.
                   I_TABLA-DESCR   = DD02T-DDTEXT.
                   ENDIF.
                   IF L_AUX1 CA ':'.
                     SPLIT L_AUX1 AT 'DATA:' INTO L_AUX1 L_AUX2.
                   ELSE.
                     SPLIT L_AUX1 AT 'DATA' INTO L_AUX1 L_AUX2.
                   ENDIF.
                   D_NOMBRE = L_AUX2.
                 ENDIF.
               ENDIF.
             ENDIF.
           ENDIF.
         ENDIF.
       IF NOT I_TABLA-CAMPO IS INITIAL.
         APPEND I_TABLA.
       ENDIF.
     ENDLOOP.
     LOOP AT I_TABLA WHERE NOT REF IS INITIAL.
        SPLIT I_TABLA-REF AT '-' INTO L_AUX1 L_AUX2.
       SELECT SINGLE * FROM DD03L
        WHERE TABNAME = L_AUX1
          AND FIELDNAME = L_AUX2.
       IF SY-SUBRC = 0.
         I_TABLA-TIPO = DD03L-DATATYPE.
         I_TABLA-LONG = DD03L-INTLEN.
         IF I_TABLA-DESCR IS INITIAL.
           SELECT SINGLE * FROM DD04T
            WHERE ROLLNAME = DD03L-ROLLNAME
              AND DDLANGUAGE = SY-LANGU.
           IF SY-SUBRC = 0.
             I_TABLA-DESCR = DD04T-DDTEXT.
           ENDIF.
         ENDIF.
         MODIFY I_TABLA.
       ENDIF.
     ENDLOOP.
   ENDFORM.                               " PROCESAR_FICHERO
*&      Form IMPRIMIR
   FORM IMPRIMIR.
   DATA L_AUX(80).
     FORMAT COLOR COL_NORMAL INTENSIFIED ON.
     ULINE AT 1(80).
     WRITE: / SY-VLINE,
             (76)     D_NOMBRE CENTERED,
              SY-VLINE.
     SPLIT D_DESCRIPCION AT '*' INTO L_AUX D_DESCRIPCION.
     WRITE: / SY-VLINE,
             (76)     D_DESCRIPCION CENTERED,
              SY-VLINE.
     NEW-LINE.
     ULINE AT 1(80).
     DETAIL.
     FORMAT COLOR OFF.
     WRITE: /
           SY-VLINE,
         (10) 'CAMPO',
           SY-VLINE,
         (4) 'TIPO',
           SY-VLINE,
         (4) 'LONG',
           SY-VLINE,
         (16) 'REFERENCIA',
           SY-VLINE,
         (30) 'DESCRIPCION',
           SY-VLINE.
     NEW-LINE.
     ULINE AT 1(80).
     DETAIL.
     LOOP AT I_TABLA.
       WRITE: /
             SY-VLINE,
          (10)   I_TABLA-CAMPO,
             SY-VLINE,
             I_TABLA-TIPO,
             SY-VLINE,
          (4)   I_TABLA-LONG,
             SY-VLINE,
          (16)   I_TABLA-REF,
             SY-VLINE,
          (30)   I_TABLA-DESCR,
             SY-VLINE.
     ENDLOOP.
     NEW-LINE.
     ULINE AT 1(80).
     SKIP 2.
   ENDFORM.                               " IMPRIMIR
Thanks & regards
Sreeni

Nested Internal tables with cl_gui_alv_grid - not displaying records

Hi,
I wrote a program using nested internal tables with cl_gui_alv_grid class
At runtime, when I select dropdown on one of the cells (RESWK - driver to the nested table), it does not bring the related record and display it
Does cl_gu_alv_grid support nested internal tables?
Or which class to use
Appreciate reply at the latest
Thanks
Rajeev
Edited by: Thomas Zloch on Feb 7, 2011 4:11 PM - priority reduced

Hi Rajeev,
Maybe checking out this documnetation will answer your question:
[ALV Grid Control (BC-SRV-ALV)|http://help.sap.com/saphelp_erp2004/helpdata/EN/bf/3bd1369f2d280ee10000009b38f889/frameset.htm]
To my knowledge ALV does not support deep structures.
Kind regards,
Robert

Collect in an internal table with keys plant and material

Hi ,
I have an output internal table with material , plant and var quantitites .
I would like to use Collect statement and sum the quantities but do it by plant and material .
How do I specify that i want to do it on plant or material ?
Thanks !

hi here is an example like urs..
DATA: BEGIN OF seats,
        carrid TYPE sflight-carrid,
        connid TYPE sflight-connid,
        seatsocc TYPE sflight-seatsocc,
      END OF seats.
DATA seats_tab LIKE HASHED TABLE OF seats
               WITH UNIQUE KEY carrid connid.
SELECT carrid connid seatsocc
       FROM sflight
       INTO seats.
COLLECT seats INTO seats_tab.
ENDSELECT.
check for help..
http://www.sts.tu-harburg.de/teaching/sap_r3/ABAP4/collect.htm
regards,
venkat

Internal table with Dynamic and Non dynamic fileds

Hi Experts,
How to get the internal table with Dynamic and Non-Dynamic Fields.
Could u please help me.
Thanks,
Varun

Hi,
Execute the below sample code or analyze it there is appropriate description provided.
*& Report ZTEST_PRM_DYN_ALV
REPORT ZTEST_PRM_DYN_ALV.
type-pools: slis.
field-symbols: <dyn_table> type standard table,
<dyn_wa>.
data: alv_fldcat type slis_t_fieldcat_alv,
it_fldcat type lvc_t_fcat.
selection-screen begin of block b1 with frame title text-001.
parameters: p_flds(5) type c.
selection-screen end of block b1.
start-of-selection.
*build the dynamic internal table
perform build_dyn_itab.
*write 5 records to the alv grid
do 5 times.
perform build_report.
enddo.
*call the alv grid.
perform call_alv.
*Build_dyn_itab
form build_dyn_itab.
data: new_table type ref to data,
new_line type ref to data,
wa_it_fldcat type lvc_s_fcat.
*Create fields .
clear wa_it_fldcat.
wa_it_fldcat-fieldname = 'name1'.
wa_it_fldcat-datatype = 'mara-matnr'.
wa_it_fldcat-intlen = 5.
append wa_it_fldcat to it_fldcat .
*clear wa_it_fldcat.
wa_it_fldcat-fieldname = sy-index.
wa_it_fldcat-datatype = 'CHAR'.
wa_it_fldcat-intlen = 5.
append wa_it_fldcat to it_fldcat .
do p_flds times.
clear wa_it_fldcat.
wa_it_fldcat-fieldname = sy-index.
wa_it_fldcat-datatype = 'CHAR'.
wa_it_fldcat-intlen = 6.
append wa_it_fldcat to it_fldcat .
enddo.
*Create dynamic internal table and assign to FS
call method cl_alv_table_create=>create_dynamic_table
exporting
it_fieldcatalog = it_fldcat
importing
ep_table = new_table.
assign new_table->* to <dyn_table>.
*Create dynamic work area and assign to FS
create data new_line like line of <dyn_table>.
assign new_line->* to <dyn_wa>.
endform.
*Form build_report
form build_report.
data: fieldname(20) type c.
data: fieldvalue(5) type c.
data: index(3) type c.
field-symbols: <fs1>.
do p_flds times.
index = sy-index.
*Set up fieldvalue
concatenate 'FLD' index into
fieldvalue.
condense fieldvalue no-gaps.
assign component index of structure <dyn_wa> to <fs1>.
<fs1> = fieldvalue.
enddo.
*Append to the dynamic internal table
append <dyn_wa> to <dyn_table>.
endform.
*CALL_ALV
form call_alv.
data: wa_cat like line of alv_fldcat.
*clear wa_cat.
wa_cat-fieldname = 'matnr'.
wa_cat-seltext_s = sy-index.
wa_cat-outputlen = '10'.
append wa_cat to alv_fldcat.
do p_flds times.
clear wa_cat.
wa_cat-fieldname = sy-index.
wa_cat-seltext_s = sy-index.
wa_cat-outputlen = '6'.
append wa_cat to alv_fldcat.
enddo.
*Call ABAP List Viewer (ALV)
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
it_fieldcat = alv_fldcat
tables
t_outtab = <dyn_table>.
endform.
Hope this will help, reward if found usefull.
Cheers,
Ram.

WHEN DO U NEED CREATE AN INTERNAL TABLE WITH HEADERLINE AND WITH OUT HEADER

HI
EXPERTS CAN U HELP ME FOR THIS

Hi,
PLEASE CHECK OUT THE LINK BELOW FOR INTERNAL TABLE WITH HEADER LINE IT MIGHT HELP YOU
http://sap.mis.cmich.edu/sap-abap/abap04/sld012.htm
PLEASE CHECK OUT THE LINK BELOW FOR INTERNAL TABLE WITHOUT HEADER LINE IT MIGHT HELP YOU
http://sap.mis.cmich.edu/sap-abap/abap04/sld013.htm
DIFFERENCES BEWTEEN WORK AREA AND HEADER LINE PLEASE CHECK OUT THE LINK BELOW IT MIGHT HELP YOU
http://www.sap-img.com/abap/difference-between-work-area-and-header-line.htm
*************please reward points if the information is helpful to you***********

TS1702 I'm not able to update Smurf's Village. Tried most of the things proposed on the net including restarting the iPad and trying syncing with the computer. Had a similar issue with another application. Had to delete and reinstall it, with all history

I'm not able to update Smurf's Village. Tried most of the things proposed on the net including restarting the iPad and trying syncing with the computer. Had a similar issue with another application. Had to delete and reinstall it, with all history lost.
Tried following up with the developer's instruction. Didn't help. Developer suggested contacting Apple if their instruction didn't work. Tried the various methods recommended on the Apple site. Same result.

Telling is that you tried most of the things on the net doesn't tell us exactly what you did try, so we are all still left to guess .....
Sign out of your account, restart the iPad and then sign in again.
Settings>Store>Apple ID. Tap your ID and sign out. Restart the iPad by holding down on the sleep button until the red slider appears and then slide to shut off. To power up hold the sleep button until the Apple logo appears and let go of the button.
Go back to Settings>Store>Sign in and then try to update again
If that doesnt work - go to Settings>General>Date and Time - set the date ahead by a few months. Try to update again. If you get an error message of any kind - go back and change the date and time to automatic again. Then try again.
If that doesn't work, restart your router and reboot the iPad.
Reboot the iPad by holding down on the sleep and home buttons at the same time for about 10-15 seconds until the Apple Logo appears - ignore the red slider - let go of the buttons.

Read internal table with key not equal to

Hi,
How can I read internal table with key not equal to some other field.
Basically in read statement we can read only fields equal to others fields.

Hi,
Test the following Code you can Use Loop at for this But not Read Table
DATA: BEGIN OF it_test OCCURS 10,
f1(4),
f2 TYPE i,
f3(2),
END OF it_test.
DATA: it_test2 LIKE STANDARD TABLE OF it_test WITH HEADER LINE.
it_test-f1 = '1000'.
it_test-f2 = 10.
it_test-f3 = 'B'.
APPEND it_test TO it_test.
it_test-f1 = '2000'.
it_test-f2 = 10.
it_test-f3 = 'A'.
APPEND it_test TO it_test.
it_test-f1 = '1000'.
it_test-f2 = 10.
it_test-f3 = 'B'.
APPEND it_test TO it_test.
it_test-f1 = '1000'.
it_test-f2 = 10.
it_test-f3 = 'A'.
APPEND it_test TO it_test.
it_test-f1 = '1000'.
it_test-f2 = 40.
it_test-f3 = 'A'.
APPEND it_test TO it_test.
LOOP AT it_test INTO it_test WHERE f3 NE 'A'.
WRITE: / it_test-f1, it_test-f2, it_test-f3.
ENDLOOP.
Kind Regards,
Faisal

Declare the internal table with only one 10 character field and use

Hi,
I want to declare the internal table with only one 10 character field and use.
Jaya

Hi,
Go ahead. U can declare IT with only one field
Example:
data: begin of zcustlist occurs 1000,
custmer(10) type c,
end of zcustlist.
Narendra Reddy.
Edited by: Narendra Reddy C on Aug 8, 2008 11:39 AM

Delete and internal table with not eqaul to fields

Similar Messages

Maybe you are looking for