How to create a internal material no. range with alpha

Hi,
I want to define a internal material no. range with alpha, such as from MPN001 to MPN999. However, SAP ask me type a number isnot alpha. So, please give me your suggestion. thanks!
Regards
Henry

Internal number range with alpha numerics is possible.
In sap standard it is NUMERIC only. No other option.
You can maintan alpha numeric in external number ranges.

Similar Messages

How to create an Internal Customer for Ineterplant stock Transfer

Daer Gurus,
Please tell me how to create an Internal Customer for Interplant stock transfer.
Actually I have three plants out of them two plants are providing goods to third plant. Also both the plants do the stock transfer in eachother.
How to maintain the Two plants as supplier and third one as a receiver plant.
which account group I should use and what details I have to use for it ? Do I need to maintain all three plants under same account group? I know the theoratical process only for stock transfer please guide me on this Internal customer issue.
thanks in advance
regards,
Sanjay

Hi,
Take your three plants as AAAA, BBBB and CCCC.... and these 3 plants may be assigned to the Sales Area of AAA 10 10, BBB 10 10 and CCC 10 10.
Your STO will have following 4 flows.
1. AAAA - CCCC
2. AAAA - BBBB
3. BBBB- CCCC
4. BBBB- AAAA
you need to do the following settings...
1. Assign the Sales Area for the Shipping Plants... for ex (AAAA - AAA 10 10 and BBBB - BBB 10 10)
2. You need to Create a Internal Customer for every Rec. Plant and need to assign the same to the Rec Plant. And Also note that this customer needs to be created in the Sales Area which is assigned in the Shipping Plant.
(Note that CCCC will be Rec Plant from Both AAAA and BBBB... So you need to extend that customer for both the Sales Area of the plants AAAA and BBBB)
Following is the example settings required for our scenario 1.
AAAA will be a supplying plant and CCCC will be rec. plant.... for this you need to create a internal Customer (for ex C1000) in Sales area AAA 10 10 (which is assigned to the plant AAAA) and assign the Customer number (C1000) to Plant CCCC.
Now you created a plant CCCC as a customer in Sales Area AAA 10 10 (which is nothing but plant AAAA)...
Also here you need assign the Sales Area AAA 10 10 to the Plant AAAA.
Hope this will be useful to you.
Thanks,
Muthu

How to create Variant Configuration Material Master in SAP PP

Dear Friend's,
Pl 's guide me for How to Create Variant Configuration Material Master.
Give me step by step procedure for Creation of Variant Configuration.If some of you having screen shots for the same with one Example, that will be a very helpful to me for creating VC.
Thanks & Regards,
Sandeep N.Theurkar

Hi,
Eg: Ford car.If a sale order is raised for fiesta lxi model the system should choose red colour & for vxi blue colour respectively.
ie you need to define the characteristic and assign the values .
This characteristic need to assigned to class.
class need to be assigned to material master
1. T.code : CT04(characteristic) FORD_MODEL, Choose single value & entry required tab & give the input as 01 - fiesta_lxi & 02 - fiesta_vxi.( characteristic values)
2.Tcode: CT04, FORD_BODY( another characteristic)
Choose single value , don't click entry required.
01 - Red( characteristic values)
02- Blue
3. Create class T.code : CL02
fiesta_class
type : 300
4. OBJECT DEPENDENCY:
T.CODE : CT04
FORD_MODEL
CLICK VALUES TAB,
IN FIESTA_LXI CLICK THE 'O' meant for Obj dependency, action & extra.
Edit the dependecy,
010 $Self.ford_body = '01'. & save
Repeat the same for FIEST_VXI & instead of '01' give '02' for blue colour.
, then create a ROH as ford_body. & a KMAT material for the car. .
Then create a Super BOM with usage 3 & give component as ford_body
Then use T.code cu41 (Create config profile)
enter a profile name & class 300 & choose class assignment, choose fiest_class ,
Use T.code cu50 to check the values.
Then create a sale order.
Pl. reward if helpful.
Regards,
nandha

How to Create report in Material Master that outputs stock

Hi,
How to Create report in Material Master that outputs stock, grouped by Material Type and Plant. The output shows Material No, Storage location, Unit of Measure and Description in addition to group totals. Data was extracted from MARA, MARC, MARD, MAKT,MKPF,
MSEG and T001W.and what are the fields to be used.

hi,
check the transaction MMBE or MC.9..
for mmbe the program is RMMMBESTN.
check the logic in the program.

How to create a new material using a BAPI?

Dear friends,
How to create a new material using a BAPI? I mean without knowing the material no., how to just create a new one using function modules(BAPI)?
Thanks a lot!

Dear,
New material can be created by using a BAPI_MATERIAL_SAVEDATA.
More over their are lots of threads available on SDN on the question you raised so kindly search the SDN before posting any thread .
Cheers
fareed

How to create a record for table PLAF with order type 'NB'.

How to create a record for table PLAF with order type 'NB'(standard purchase order).
who can tell me the T-code or some usefull information?
Thanks.

Hi
This will be updated automatically when generate planned orders thru MRP. (MD02)
regards
Srinivas

How to create a index on a column with type clob

how to create a index on a column with type clob

You should have a look to Oracle Text to check if Oracle Text indexing features can meet your needs:
http://download.oracle.com/docs/cd/E11882_01/server.112/e16508/cncptdev.htm#CNCPT1537

How to create sql query for item master with operator LIKE with variables?

hi all,
How to create sql query for item master with
operator LIKE(Contains,Start With,End With) with variables using query generator in SAP B1 ?
Jeyakanthan

Hi Jeyakanthan,
here is an example (put the like statement into the where field)
SELECT T0.CardCode, T0.CardName FROM OITM T0 WHERE T0.CardName Like '%%test%%'
The %% sign is a wildcard. If you need start with write 'test%%' and otherwise ends with '%%test'. For contains you need '%%test%%'. You also could combinate this statements like 'test%%abc%%'. This means starts with test and contains abc.
Regards Steffen

Can anyone please guide me how to create a table like employe table with 10

Hi,
can anyone please guide me how to create a table like employe table with 10colums.
after that we need to update the colums with personal details......like name1,name2,address,city,zip...etc.
using the RFC we need to update the personal details coulums (either select query or Insert command)
if you have any program logic similar to this requirement please share with me...that would br greatly helpfull to me...
thanks in advance
srinivas

Hi....
We are having one table and now i am going to update that table's fields...
for that in RFC function module we need to enter the fields in importing parameters (which are mandtory in table)
and in source code just write like following....
( try to under stand that it contains some previous used table nad field and stucture and work area and function module names)
FUNCTION ZL2C_UPDATE_MYCUSTOMER.
""Local Interface:
*" IMPORTING
*"     VALUE(USR_ID) TYPE USRID
*"     VALUE(LOGO_ID) TYPE KUNNR
DATA ls_mycust TYPE zl2cmy_customer.
DATA: name1 TYPE name1_gp.
DATA: sharpoint_url TYPE url.
ls_mycust-usr_id        = usr_id.
ls_mycust-logo_id       = logo_id.
SELECT SINGLE name1 FROM kna1 INTO name1 WHERE kunnr = logo_id.
    ls_mycust-name1       = name1.
    SELECT SINGLE sharpoint_url FROM zl2c_CUSDASHBRD INTO sharpoint_url WHERE logo_id = logo_id.
      ls_mycust-sharpoint_url = sharpoint_url.
      INSERT into zl2cmy_customer values ls_mycust.
      COMMIT WORK.
    ENDFUNCTION.

How 2 create dynamic internal table and can we pass it to gui_download FM

HI all,
     How can we create a dynamic internal table?
I have a requirement where i have to create an internal table with the no. of fields depending on the selection screen values, i think tat can be possible though dynamic creation only.
         How to solve this issue..?Pointers will be very much useful..
Thanks
Sunny.

hi
Follow the code it will help you out....
REPORT YUSMM_TEXT2                             .
*TABLES
TABLES: MARA,    " General Material Data
        MAKT,    " Material Descriptions
        T002.    " Language Keys
* GLOBAL TYPE-POOL
TYPE-POOLS : SLIS.
* GLOBAL TYPES
TYPES: BEGIN OF TP_LANG ,
         SPRAS LIKE T002-SPRAS,
         LAISO LIKE T002-LAISO,
         SRNO(3) TYPE N,
       END OF TP_LANG.
TYPES: BEGIN OF TP_MATNR,
         MATNR LIKE MARA-MATNR,
         BEGRU LIKE MARA-BEGRU,
       END OF TP_MATNR.
* DECLARATION FOR GLOBAL INTERNAL TABLES (WITH INCLUDE STRUCTURE)
DATA:GT_MAKT    TYPE STANDARD TABLE OF MAKT, "Materialkurztexte,
     GT_THEAD   TYPE STANDARD TABLE OF THEAD, "SAPscript: Text-Header,
     GT_LINETAB TYPE STANDARD TABLE OF TLINE, "SAPscript: Text-Zeilen,
     GT_T002    TYPE STANDARD TABLE OF T002. "Language key
DATA: BEGIN OF GV_TEXT_OUTPUT_LINE,
            MATNR LIKE MARA-MATNR,
            BEGRU LIKE MARA-BEGRU,
            MAKTX LIKE MAKT-MAKTX,
            LTXT40(1250) TYPE C,
            SRNO(3) TYPE N,
            SPRAS LIKE T002-SPRAS,
         END OF GV_TEXT_OUTPUT_LINE.
DATA: GT_MATNR TYPE STANDARD TABLE OF TP_MATNR,
      WA_GT_MATNR TYPE TP_MATNR.
DATA: GT_LANG TYPE STANDARD TABLE OF TP_LANG,
      WA_GT_LANG TYPE TP_LANG.
DATA: GT_TEXT_OUTPUT_LINE LIKE STANDARD TABLE OF GV_TEXT_OUTPUT_LINE,
      GT_FIELDCAT         TYPE SLIS_T_FIELDCAT_ALV,
      GV_FIELDCAT         LIKE LINE OF GT_FIELDCAT,
      CT_GT_FIELDCAT_IN LIKE GV_FIELDCAT,
      GS_LAYOUT           TYPE SLIS_LAYOUT_ALV,
      GV_REPID            TYPE SY-REPID.
DATA: BEGIN OF GV,
        FORMER_ERROR       LIKE SY-MARKY,     " Fehlermeldung bereits
        FILE_OPEN(1),                          " Flag open file
        REC_LENGTH         TYPE I,            " record length
        MATNR              TYPE MARA-MATNR,   " material
        REPID              TYPE SYST-REPID,
        RETCO              TYPE SY-SUBRC,
      END OF GV.
DATA: GV_MAKT             TYPE MAKT,
      GV_T002             TYPE T002,
      GV_LANGU            TYPE THEAD-TDSPRAS.
* DECLARATION FOR FIELD-SYMBOLS
FIELD-SYMBOLS: <FS_DATA> TYPE REF TO DATA,
               <FS_DATA1> TYPE REF TO DATA,
               <FS_2>    TYPE STANDARD TABLE,
               <FS_22>   TYPE STANDARD TABLE,
               <FS_1>,
               <FS_11>,
               <F>,
               <FA>,
               <LWA_LINE_WA>,
               <LWA_LINE_WA1>.
DATA: IT_FLDCAT TYPE LVC_T_FCAT.
DATA: T_FLDCAT1   TYPE SLIS_T_FIELDCAT_ALV.
DATA: L_LT TYPE SLIS_LAYOUT_ALV.
DATA: WA_IT_FLDCAT TYPE LVC_S_FCAT.
DATA: WA_IT_FLDCAT1 TYPE SLIS_FIELDCAT_ALV.
DATA: GP_TABLE TYPE REF TO DATA.
DATA: WA_NEWLINE TYPE REF TO DATA.
*DECLARATION FOR CONSTANTS
CONSTANTS:
   BEGIN OF GC,
     TDID_GRUN     TYPE THEAD-TDID     VALUE 'GRUN',
     TDOBJECT_MAT TYPE THEAD-TDOBJECT VALUE 'MATERIAL',
     ON(01)        TYPE C              VALUE 'X',
     YES(01)       TYPE C              VALUE 'X',
     TXT(25)       TYPE C              VALUE 'MATERIAL DETAILS',
     MAT(25)       TYPE C              VALUE 'MATERIAL NUMBER',
     AUT(25)       TYPE C              VALUE 'AUTHORIZATION GROUP',
     FOUND         TYPE SY-SUBRC       VALUE '00', " Return-Code
     RC_OK         TYPE SY-SUBRC       VALUE '00', " Return-Code
     OFF           TYPE SY-SUBRC       VALUE '00', " return code
     FALSE         TYPE SY-SUBRC       VALUE '00', " boolean
     TRUE          TYPE SY-SUBRC       VALUE '01', " boolean
END OF GC.
* DECLARATION FOR VARIABLES
DATA: V(3) TYPE N,
      STR TYPE STRING,
      STR1 TYPE STRING,
      V_VAR(3) TYPE N,
      V_VAR1(3) TYPE N,
      V_FIELDNAME(15) TYPE C,
      V_CHAR(15) TYPE C,
      V_LINES(3) TYPE N,
      MAKTEXT LIKE MAKT-MAKTX,
      LT_DATA        TYPE   REF TO DATA,
      LT_DATA1        TYPE   REF TO DATA,
      LWA_LINE       TYPE   REF TO DATA,
      LWA_LINE1 TYPE REF TO DATA.
*SELECTION-SCREEN AND PARAMETERS
SELECTION-SCREEN: BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS:
S_MATNR FOR MARA-MATNR, "MATERIAL NUMBER
S_MTART FOR MARA-MTART, "MATERIAL TEXT
S_LANG FOR MAKT-SPRAS.   "LANGUAGE
PARAMETER: GP_SIZE TYPE I DEFAULT 200. "DATA LENGTH
SELECTION-SCREEN: END OF BLOCK A1.
* AT SELECTION SCREEN
AT SELECTION-SCREEN.
IF GP_SIZE < 0.
    MESSAGE E002(00).
ENDIF.
IF GP_SIZE > 50000.
    MESSAGE W130(26) WITH TEXT-004.
    SET CURSOR FIELD 'gp_size'.
ENDIF.
* INITIALIZATION
INITIALIZATION.
GV-REPID = SY-REPID.
*START-OF-SELECTION
START-OF-SELECTION.
PERFORM GET_MARA_DATA
            TABLES
              GT_TEXT_OUTPUT_LINE
            USING
              S_MATNR[]
              S_MTART[]
              GP_SIZE
            CHANGING
              GV-RETCO
PERFORM GET_MAT_TEXT
             TABLES
               GT_MAKT
               GT_TEXT_OUTPUT_LINE
               GT_THEAD
               GT_LINETAB
             USING
               GC
               GV-RETCO
             CHANGING
               GV_TEXT_OUTPUT_LINE
               GV_MAKT
PERFORM GET_LANG.
PERFORM DYNAMIC_TABLES.
PERFORM POPULATE_FINAL_TABLE.
PERFORM POPULATE_DYNAMIC_TABLE.
* END-OF-SELECTION
END-OF-SELECTION.
PERFORM DATA_OUTPUT.
*&      Form get_mara_data
*       Materialdaten lesen
*      <->ct_gt_text_output_line Ausgabetabelle
*      -->it_s_matnr Parameter Materialnummer
*      -->it_s_mtart Parameter Materialart
*      -->if_gp_size Parameter Anzahl Materialnummern
FORM GET_MARA_DATA TABLES   CT_GT_TEXT_OUTPUT_LINE STRUCTURE
                                   GV_TEXT_OUTPUT_LINE
                    USING    IT_S_MATNR LIKE S_MATNR[]
                             IT_S_MTART LIKE S_MTART[]
                             IF_GP_SIZE
                    CHANGING IF_GV-RETCO.                   "#EC *
* MARA in die Übergabestruktur einlesen
SELECT MATNR BEGRU
        FROM MARA UP TO IF_GP_SIZE ROWS
        APPENDING CORRESPONDING FIELDS OF TABLE GT_MATNR
                 WHERE MATNR IN IT_S_MATNR
                   AND MTART IN IT_S_MTART.
IF_GV-RETCO = SY-SUBRC.
ENDFORM.                    " get_mara_data
*&      Form get_mat_text
*       Kurz- und Langtexte zum Material lesen
*      <->ct_gt_makt              Materialkurztexte
*      <->ct_gt_text_output_line Ausgabetabelle
*      <->ct_gt_thead             Kopftabelle für ALV
*      <->ct_gt_linetab           Zeilentabelle für ALV
*      -->if_gc                   Globale Konstanten
*      <--cf_gv_text_output_line Struktur Ausgabetabelle
*      <--cf_gv_makt              Struktru Materialkurztexte
FORM GET_MAT_TEXT TABLES   CT_GT_MAKT             STRUCTURE MAKT
                            CT_GT_TEXT_OUTPUT_LINE STRUCTURE
                                                GV_TEXT_OUTPUT_LINE
                            CT_GT_THEAD            STRUCTURE THEAD
                            CT_GT_LINETAB          STRUCTURE TLINE
                   USING
                            IF_GC                  LIKE GC
                            IF_GV-RETCO
                   CHANGING CF_GV_TEXT_OUTPUT_LINE LIKE
                                                   GV_TEXT_OUTPUT_LINE
                            CF_GV_MAKT             LIKE GV_MAKT
DATA: STRG TYPE STRING,
        STRG1(1255) TYPE C.
IF IF_GV-RETCO = IF_GC-FOUND.
* Materialkurztexte in alles Sprachen einlesen
    SELECT * FROM MAKT APPENDING TABLE CT_GT_MAKT
             FOR ALL ENTRIES IN GT_MATNR "ct_gt_text_output_line
             WHERE MATNR = GT_MATNR-MATNR " ct_gt_text_output_line-matnr
* Kurztexte in die sprachabhängigen Felder bringen
    LOOP AT GT_MATNR INTO WA_GT_MATNR.
      LOOP AT CT_GT_MAKT INTO CF_GV_MAKT
             WHERE MATNR = WA_GT_MATNR-MATNR.
        CF_GV_TEXT_OUTPUT_LINE-MATNR = WA_GT_MATNR-MATNR.
        CF_GV_TEXT_OUTPUT_LINE-BEGRU = WA_GT_MATNR-BEGRU.
        CF_GV_TEXT_OUTPUT_LINE-MAKTX = CF_GV_MAKT-MAKTX.
        CF_GV_TEXT_OUTPUT_LINE-SPRAS = CF_GV_MAKT-SPRAS.
* LANGTEXT
        CLEAR CT_GT_THEAD[].
        CT_GT_THEAD-TDOBJECT = IF_GC-TDOBJECT_MAT.
        CT_GT_THEAD-TDNAME   = WA_GT_MATNR-MATNR.
        CT_GT_THEAD-TDID     = IF_GC-TDID_GRUN.
        CT_GT_THEAD-TDSPRAS = CF_GV_MAKT-SPRAS.
        CALL FUNCTION 'TEXT_READ'
          EXPORTING
            I_HEADER   = CT_GT_THEAD
            I_READONLY = IF_GC-ON
          IMPORTING
            E_HEADER   = CT_GT_THEAD
          TABLES
            T_LINES    = CT_GT_LINETAB[]
          EXCEPTIONS
            NOTFOUND   = 1.
        IF SY-SUBRC = IF_GC-FOUND.
          LOOP AT CT_GT_LINETAB.
            STRG = CT_GT_LINETAB-TDLINE.
            IF STRG1 <> ' '.
              CONCATENATE STRG1 ';' STRG INTO STRG1.
            ELSE.
              STRG1 = STRG.
            ENDIF.
          ENDLOOP.
          CF_GV_TEXT_OUTPUT_LINE-LTXT40 = STRG1.
          APPEND CF_GV_TEXT_OUTPUT_LINE TO CT_GT_TEXT_OUTPUT_LINE.
          CLEAR CF_GV_TEXT_OUTPUT_LINE.
          STRG1 = ' '.
        ELSE.
          APPEND CF_GV_TEXT_OUTPUT_LINE TO CT_GT_TEXT_OUTPUT_LINE.
        ENDIF.
      ENDLOOP.
    ENDLOOP.
ENDIF.
ENDFORM.                    " get_mat_text
*&      Form data_output
*       Daten mit ALV ausgeben
*      <->ct_GT_FIELDCAT          Feldkatalog für ALV
*      <->ct_gt_text_output_line Ausgabetabelle
*      -->P_GS_LAYOUT             Layout für ALV
*      -->if_gc                   Globale Konstanten
*      <--cf_GV_REPID             Zur Zeit aufgerufener Reportname
*      <--cf_gv_fieldcat          Struktur Feldkatalog
*      <--cf_gv                   Globale Variablen
FORM DATA_OUTPUT.
PERFORM FIELDCATBUILD.
PERFORM LAYOUT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = GV-REPID
      I_CALLBACK_PF_STATUS_SET = 'EVENT_SET_STATUS_01'
      I_CALLBACK_USER_COMMAND = 'EVENT_USER_COMMAND'
      IS_LAYOUT                = L_LT
      IT_FIELDCAT              = T_FLDCAT1[]
    TABLES
      T_OUTTAB                 = <FS_2>
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.
IF SY-SUBRC <> GC-FOUND.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " data_output
*&      Form fieldcatbuild
*       text
* --> p1        text
* <-- p2        text
FORM FIELDCATBUILD. " TABLES   ct_gt_fieldcat_in STRUCTURE gv_fieldcat.
LOOP AT IT_FLDCAT INTO WA_IT_FLDCAT.
    WA_IT_FLDCAT1-FIELDNAME = WA_IT_FLDCAT-FIELDNAME.
    WA_IT_FLDCAT1-TABNAME = WA_IT_FLDCAT-TABNAME.
    WA_IT_FLDCAT1-SELTEXT_L = WA_IT_FLDCAT-FIELDNAME.
    APPEND WA_IT_FLDCAT1 TO T_FLDCAT1.
    CLEAR : WA_IT_FLDCAT,WA_IT_FLDCAT1.
ENDLOOP.
ENDFORM.                    " fieldcatbuild
* Form event_set_status_01*
FORM EVENT_SET_STATUS_01 USING LT_EXCL TYPE SLIS_T_EXTAB.
SET PF-STATUS 'ABCD' .
ENDFORM. "EVENT_SET_STATUS_01
*& Form Name: event_user_command *
*& Form Desc: For Handling USER_COMMAND *
FORM EVENT_USER_COMMAND USING
IF_UCOMM TYPE SY-UCOMM
IS_SELFIELD TYPE SLIS_SELFIELD.
CASE IF_UCOMM.
    WHEN 'DOWNLOAD'.
      PERFORM POPULATE_DOWNLOAD_TABLE.
      DATA: L_LENGHT TYPE I.
      CALL FUNCTION 'GUI_DOWNLOAD'
        EXPORTING
          FILENAME              = 'C:data.xls'
          FILETYPE              = 'ASC'
          WRITE_FIELD_SEPARATOR = 'X'
          TRUNC_TRAILING_BLANKS = 'X'
          DAT_MODE              = 'X'
        IMPORTING
          FILELENGTH            = L_LENGHT
        TABLES
          DATA_TAB              = <FS_22>.
      IF SY-SUBRC <> GC-FOUND.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      IF L_LENGHT NE GC-FOUND.
        MESSAGE S398(00) WITH 'DATA downloaded to c:data.xls'.
      ENDIF.
ENDCASE.
ENDFORM.                    "event_user_command
*&      Form get_lang
*       text
* --> p1        text
* <-- p2        text
FORM GET_LANG.
SELECT SPRAS
           LAISO FROM T002 INTO CORRESPONDING FIELDS OF TABLE GT_LANG
                  WHERE SPRAS IN S_LANG.
DESCRIBE TABLE GT_LANG LINES V_LINES.
LOOP AT GT_LANG INTO WA_GT_LANG.
    V = V + 1.
    WA_GT_LANG-SRNO = V.
    MODIFY GT_LANG FROM WA_GT_LANG TRANSPORTING SRNO.
ENDLOOP.
LOOP AT GT_LANG INTO WA_GT_LANG.
    CONCATENATE 'MATEDESC-' WA_GT_LANG-LAISO INTO V_FIELDNAME.
    CLEAR WA_IT_FLDCAT.
    WA_IT_FLDCAT-FIELDNAME = V_FIELDNAME.
    WA_IT_FLDCAT-SELTEXT = V_FIELDNAME.
    WA_IT_FLDCAT-DATATYPE = 'CHAR'.
    WA_IT_FLDCAT-INTLEN = 40.
    WA_IT_FLDCAT-TABNAME = '<FS_2>'.
    APPEND WA_IT_FLDCAT TO IT_FLDCAT .
    CLEAR WA_GT_LANG.
ENDLOOP.
LOOP AT GT_LANG INTO WA_GT_LANG.
    CONCATENATE 'BASDAT-' WA_GT_LANG-LAISO INTO V_FIELDNAME.
    CLEAR WA_IT_FLDCAT.
    WA_IT_FLDCAT-FIELDNAME = V_FIELDNAME.
    WA_IT_FLDCAT-DATATYPE = 'CHAR'.
    WA_IT_FLDCAT-INTLEN = 255.
    WA_IT_FLDCAT-SELTEXT = V_FIELDNAME.
    WA_IT_FLDCAT-TABNAME = '<FS_2>'.
    APPEND WA_IT_FLDCAT TO IT_FLDCAT .
    CLEAR WA_GT_LANG.
ENDLOOP.
V_FIELDNAME = 'MATNR'.
CLEAR WA_IT_FLDCAT.
WA_IT_FLDCAT-FIELDNAME = V_FIELDNAME.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-SELTEXT = 'Matnr'.
WA_IT_FLDCAT-INTLEN = 18.
WA_IT_FLDCAT-TABNAME = '<FS_2>'.
INSERT WA_IT_FLDCAT INTO IT_FLDCAT INDEX 1.
V_FIELDNAME = 'BEGRU'.
CLEAR WA_IT_FLDCAT.
WA_IT_FLDCAT-FIELDNAME = V_FIELDNAME.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-SELTEXT = 'BEGRU'.
WA_IT_FLDCAT-INTLEN = 4.
WA_IT_FLDCAT-TABNAME = '<FS_2>'.
INSERT WA_IT_FLDCAT INTO IT_FLDCAT INDEX 2.
ENDFORM.                    " get_lang
*&      Form dynamic_tables
*       text
* --> p1        text
* <-- p2        text
FORM DYNAMIC_TABLES.
ASSIGN LT_DATA TO <FS_DATA>.
* Creating the Dynamic Internal Table
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG           = IT_FLDCAT      " Fieldcatalogue
    IMPORTING
      EP_TABLE                  = <FS_DATA>     " Dynamic Internal Table
    EXCEPTIONS
      GENERATE_SUBPOOL_DIR_FULL = 1
      OTHERS                    = 2.
* Assign Dyn Table To Field Sumbol
ASSIGN <FS_DATA>->* TO <FS_1>.
* Assigning the Internal Table TYPE ANY to Standard internal Table
ASSIGN <FS_1> TO <FS_2>.
* Creating a Workarea
CREATE DATA LWA_LINE LIKE LINE OF <FS_2> .
* Assigning the Content to the workares as a Pointer
ASSIGN LWA_LINE->* TO <LWA_LINE_WA>.
ENDFORM.                    " dynamic_tables
*&      Form populate_final_table
*       text
* --> p1        text
* <-- p2        text
FORM POPULATE_FINAL_TABLE.
LOOP AT GT_TEXT_OUTPUT_LINE INTO GV_TEXT_OUTPUT_LINE.
    READ TABLE GT_LANG INTO WA_GT_LANG
              WITH KEY SPRAS = GV_TEXT_OUTPUT_LINE-SPRAS.
    IF SY-SUBRC EQ GC-FOUND.
      GV_TEXT_OUTPUT_LINE-SRNO = WA_GT_LANG-SRNO.
    ENDIF.
    MODIFY GT_TEXT_OUTPUT_LINE FROM GV_TEXT_OUTPUT_LINE.
ENDLOOP.
ENDFORM.                    " populate_final_table
*&      Form populate_dynamic_table
*       text
* --> p1        text
* <-- p2        text
FORM POPULATE_DYNAMIC_TABLE.
DATA: INDX TYPE SY-TABIX.
LOOP AT GT_TEXT_OUTPUT_LINE INTO GV_TEXT_OUTPUT_LINE.
    AT NEW MATNR.
      INDX = SY-TABIX.
      ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA> TO <F>.
      <F> = GV_TEXT_OUTPUT_LINE-MATNR.
      ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA> TO <F>.
      <F> = GV_TEXT_OUTPUT_LINE-BEGRU.
    ENDAT.
    LOOP AT GT_LANG INTO WA_GT_LANG.
      IF GV_TEXT_OUTPUT_LINE-SRNO = WA_GT_LANG-SRNO.
        V_VAR = GV_TEXT_OUTPUT_LINE-SRNO + 2.
        ASSIGN COMPONENT V_VAR OF STRUCTURE <LWA_LINE_WA> TO <F>.
        <F> = GV_TEXT_OUTPUT_LINE-MAKTX.
        V_VAR = GV_TEXT_OUTPUT_LINE-SRNO + V_LINES + 2.
        ASSIGN COMPONENT V_VAR OF STRUCTURE <LWA_LINE_WA> TO <F>.
        <F> = GV_TEXT_OUTPUT_LINE-LTXT40.
      ENDIF.
    ENDLOOP.
    AT END OF MATNR.
      APPEND <LWA_LINE_WA> TO <FS_2>.
      CLEAR <LWA_LINE_WA>.
    ENDAT.
ENDLOOP.
ENDFORM.                    " populate_dynamic_table
*&      Form LAYOUT
*       text
* --> p1        text
* <-- p2        text
FORM LAYOUT.
CLEAR L_LT.
L_LT-ZEBRA = GC-YES.
L_LT-COLWIDTH_OPTIMIZE = 'X'.
L_LT-WINDOW_TITLEBAR = GC-TXT.
ENDFORM.                    " LAYOUT
*&      Form populate_download_table
*       text
* --> p1        text
* <-- p2        text
FORM POPULATE_DOWNLOAD_TABLE.
ASSIGN LT_DATA1 TO <FS_DATA1>.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG           = IT_FLDCAT         " Fieldcatalogue
    IMPORTING
      EP_TABLE                  = <FS_DATA1> " Dynamic Internal table
    EXCEPTIONS
      GENERATE_SUBPOOL_DIR_FULL = 1
      OTHERS                    = 2.
* Assign Dyn Table To Field Sumbol
ASSIGN <FS_DATA1>->* TO <FS_11>.
* Assigning the Internal Table TYPE ANY to Standard internal Table
ASSIGN <FS_11> TO <FS_22>.
* Creating a Workarea
CREATE DATA LWA_LINE1 LIKE LINE OF <FS_22> .
* Assigning the Content to the workares as a Pointer
ASSIGN LWA_LINE1->* TO <LWA_LINE_WA1>.
DATA: STRN1 TYPE STRING,
        STRN2 TYPE STRING,
        INDX TYPE SY-TABIX.
ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
<FA> = GC-MAT.
ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
<FA> = GC-AUT.
LOOP AT GT_LANG INTO WA_GT_LANG.
    V_VAR1 = WA_GT_LANG-SRNO + 2.
    CONCATENATE 'MATERIALDESCRIPTION-' WA_GT_LANG-LAISO INTO STRN1.
    ASSIGN COMPONENT V_VAR1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = STRN1.
    V_VAR1 = WA_GT_LANG-SRNO + V_LINES + 2.
    CONCATENATE 'BASICDATA-' WA_GT_LANG-LAISO INTO STRN2.
    ASSIGN COMPONENT V_VAR1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = STRN2.
ENDLOOP.
APPEND <LWA_LINE_WA1> TO <FS_22>.
CLEAR <LWA_LINE_WA1>.
APPEND <LWA_LINE_WA1> TO <FS_22>.
V_VAR1 = 0.
LOOP AT GT_TEXT_OUTPUT_LINE INTO GV_TEXT_OUTPUT_LINE.
    AT NEW MATNR.
      INDX = SY-TABIX.
      ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
      <FA> = GV_TEXT_OUTPUT_LINE-MATNR.
      ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
      <FA> = GV_TEXT_OUTPUT_LINE-BEGRU.
    ENDAT.
    LOOP AT GT_LANG INTO WA_GT_LANG.
      IF GV_TEXT_OUTPUT_LINE-SRNO EQ WA_GT_LANG-SRNO.
        V_VAR1 = GV_TEXT_OUTPUT_LINE-SRNO + 2.
        ASSIGN COMPONENT V_VAR1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
        <FA> = GV_TEXT_OUTPUT_LINE-MAKTX.
        V_VAR1 = GV_TEXT_OUTPUT_LINE-SRNO + V_LINES + 2.
        ASSIGN COMPONENT V_VAR1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
*        STR = GV_TEXT_OUTPUT_LINE-LTXT40.
*        SEARCH STR FOR ';'.
*        DO.
*          IF SY-SUBRC = 0.
*            SPLIT STR AT ';' INTO STR1 STR.
*            <FA> = STR1.
*            APPEND <LWA_LINE_WA1> TO <FS_22>.
*            SEARCH STR FOR ';'.
*            CLEAR <LWA_LINE_WA1>.
*          ELSE.
*            EXIT.
*          ENDIF.
*        ENDDO.
*        <FA> = STR.
*        APPEND <LWA_LINE_WA1> TO <FS_22>.
        <FA> = GV_TEXT_OUTPUT_LINE-LTXT40.
      ENDIF.
    ENDLOOP.
    AT END OF MATNR.
      APPEND <LWA_LINE_WA1> TO <FS_22>.
      CLEAR <LWA_LINE_WA1>.
    ENDAT.
ENDLOOP.
ENDFORM.                    " populate_download_table
thanks
Nitya

How to create Dynamic internal table with columns also created dynamically.

Hi All,
Any info on how to create a dynamic internal table along with columns(fields) also to be created dynamically.
My requirement is ..On the selection screen I enter the number of fields to be in the internal table which gets created dynamically.
I had gone thru some posts on dynamic table creation,but could'nt find any on the dynamic field creation.
Any suggestions pls?
Thanks
Nara

I don't understand ...
something like that ?
*   Form P_MODIFY_HEADER.                                              *
form p_modify_header.
data : is_fieldcatalog type lvc_s_fcat ,
         v_count(2)      type n ,
         v_date          type d ,
         v_buff(30).
* Update the fieldcatalog.
loop at it_fieldcatalog into is_fieldcatalog.
    check is_fieldcatalog-fieldname+0(3) eq 'ABS' or
          is_fieldcatalog-fieldname+0(3) eq 'VAL' .
    move : is_fieldcatalog-fieldname+3(2) to v_count ,
           p_perb2+5(2)                   to v_date+4(2) ,
           p_perb2+0(4)                   to v_date+0(4) ,
           '01'                           to v_date+6(2) .
    v_count = v_count - 1.
    call function 'RE_ADD_MONTH_TO_DATE'
        exporting
          months        = v_count
          olddate       = v_date
        importing
          newdate       = v_date.
    if is_fieldcatalog-fieldname+0(3) eq 'ABS'.
      concatenate 'Quantité 0'
                  v_date+4(2)
                  v_date+0(4)
                  into v_buff.
    else.
      concatenate 'Montant 0'
                  v_date+4(2)
                  v_date+0(4)
                  into v_buff.
    endif.
    move : v_buff to is_fieldcatalog-scrtext_s ,
           v_buff to is_fieldcatalog-scrtext_m ,
           v_buff to is_fieldcatalog-scrtext_l ,
           v_buff to is_fieldcatalog-reptext .
    modify it_fieldcatalog from is_fieldcatalog.
endloop.
* Modify the fieldcatalog.
call method obj_grid->set_frontend_fieldcatalog
       exporting it_fieldcatalog = it_fieldcatalog.
* Refresh the display of the grid.
call method obj_grid->refresh_table_display.
endform.                     " P_MODIFY_HEADER

How to create an internal table with fields from different sources

Hi.
I need to create an internal table where some of the fields are from a database table, and the other fields are user specified. How do i do that?
Example:
DB table ZTAB with fields ZTAB-FIELD1, ZTAB-FIELD2.
I want to create an internal table ITAB with the fields ZTAB-FIELD1, ZTAB-FIELD2 from ZTAB. In addition, I also want to have one more field RECORD_NO, which is not from ZTAB. How do I do it? Could I do something like below?
DATA BEGIN OF ITAB.
        INCLUDE STRUCTURE ZTAB.
DATA RECORD_NO TYPE I.
DATA END OF UPLINE.
Or, are there more efficient way of doing it? Thanks.

hi KIan,
go:
general type
TYPE : BEGIN OF ty_itab,
           field1 TYPE ztab-field1,
           field2 TYPE ztab-field2,
*your own fields here:
           field TYPE i,
           field(30) TYPE c,
           END OF ty_itab.
work area
DATA : gw_itab TYPE ty_itab.
internal table
DATA : gt_itab TYPE TABLE OF ty_itab.
hope this helps
ec

How to create types of materialized views

Hi
Can you please tell me how to create vaious types of materialized view.Also please tell me differences among them.

Oracle docs at tahiti.oracle.com contain exactly the info you need as said previous poster. You can look into SQL reference about MV create statement that contains a brief overview of all types as well as data warehousing guide which contains at least 4 chapters that are about MVs - Basic MV, Advanced MV, Basic query rewrite and Advanced query rewrite.
Gints Plivna
http://www.gplivna.eu

How to create an internal table in a Report from File of FTP Server.

Hi All,
I want to create an internal table in a Report program. But the problem is I have to download two latest files from FTP server.
Now, based in those file I have to design internal tables in current program. The problem is the program from which these files are being generated has options to display some fields in the output. Hence, the columns of these files becomes dynamic due to which I am not able to design the internal table in my current program...Please Help.
Regards & Thanks.
Prashant.

Hi,
Or you can use the RTTS classes...
Plenty of examples over here.
one external link: http://help-abap.zevolving.com/2008/09/dynamic-internal-table-creation/
Kr,
Manu.

How to creat an internal datasource

Hi experts,
I'm trying to creat a internal datasource to pick up data from the USR02 table to a n infocube (tcode rsds).
Text error : "Creation of DataSources for SAP source system FBWCLNT010 is not permitted"
Help : "You cannot directly create DataSources for replicating source systems in BI.
The system terminates the process."
Can you help me please ?
Best Regards,
Pierre.

I GUESS THIS IS NOT THE RIGHT FORUM TO ASK THIS QUESTION.
You can post your Questuion in BI/BW forum

How to create a internal material no. range with alpha

Similar Messages

Maybe you are looking for