Table containing Class Method info

Hi,
Can someone tell me which SAP system table holds the information regarding all the methods/interfaces of a class?
Regards,
Rajeesh.

I solved it. It's the table SEOCOMPO

Similar Messages

Table containing PO response info

Hi There,
could anybody perhaps tell me in what tables(s) the response info for a purchase order is stored. I'm specifically looking for the delivery date, price and the amount.
Greetz,
J.B.

Thanks, I know the transaction, however I wasn't able to enter a response with my portal user, and the client is planning to work with PO response in the future (so no records avaiable at present). I need the field to change a BW extractor in order to make the dataflow "PO-response"-proof.

Pass Table to Class Methods

Hi.
I want to pass the Standard and Hashed Table to Methods of CLass.
Can anyone please provide a code snippet ?
Currently it only has string as passed by value
My Class code is :
class ZCL_SHM definition
public
final
create public .
public section.
data STRING_ATTR type STRING .
Theses Statements does not work :
data z_Table type any table.
data z_Table type Hashed Table.

You can't use generic types in the way you want to. But there's a way round - pass references. So in your class, you want an attribute to be a table that can be any kind of table and any structure. What you do is instead have a class attribute my_table_ref TYPE REF TO DATA.
Now you need to work out how to set the class attribute my_table_ref. One way is to use a setter method, like SET_TABLE_REF, which has one importing parameter i_ref TYPE REF TO DATA. Body is me->my_table_ref = i_ref.
From the program using the class, assuming you've defined a table somewhere "t_my_table", you can set the attribute like this.
DATA: io TYPE REF TO myclass.
GET REFERENCE OF t_my_table INTO io->my_table_ref.
When you want to access the table within the class, you dereference to a field-symbol in the method.
FIELD-SYMBOLS: <my_table> TYPE ANY TABLE.
ASSIGN my_table_ref->* TO <my_table>.
You can then access <my_table> as you would any other dynamic table.
( Note - you can use generic table as IMPORTING and EXPORTING parameters of method. Just not as attributes or RETURNING parameters - for those, you just need to pass the reference instead ).
matt

Tables containing transport / request info

When i click on a transporet request i get a tree with the objects in that transport.
Does anybody know the tables that contains the information about certain transport resuest.

Eric,
PL check E071 table
Good Luck,
Suresh Datti

Hi ,info need on container creation,methods,class,interface....

hi ppl,
Can anybody give me information on what is and how to create
container creation,methods,class,interface....with programs.

>
priyank dev wrote:
> hi ppl,
> Can anybody give me information on what is and how to create
> container creation,methods,class,interface....with programs.
Hi Dev,
Interface is just the skeleton of the class definition.
If you want to have your own code for all or any of the methods that interface is havings then you can create an instance of that interface and implement those methods with you own code.
That is the advantage of object oriented programming. And if you want to use the standard method or original method's functionality then you have call the method along with the class which implemented it like below
class => method1
For Imore information on interfaces Check this link.
http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b6254f411d194a60000e8353423/frameset.htm
For creating classes you can follow this procedure.
Go with abap dictionary->select database table->provide the table for dev classs eg. V_TDEVC-> go for display option-> select utilities->select contents option-> select create dev class,
provide the name and short text,software component->create req.no.
with this dev class will be created.
Thanks
Nitesh
Edited by: Nitesh Kumar on Nov 18, 2008 10:56 AM

Passing select-options table to a class method

Hi,
I have to pass a table which contains a select-options to a class method as a param...
How I do this??
DATA s_mail TYPE z_mail_rng.
o_mail->add_receiver( ? ).
(add_receiver's formal param is TYPE ANY)
Plese give me help.
Thanks.

Hi,
I send coding for how to use select-options in class.
May it is useful for u
tables:marc.
selection-screen begin of block b1 with frame title text-001.
select-options: s_matnr for marc-matnr.
selection-screen end of block b1.
class c3 definition.
public section.
types: begin of ty_marc,
matnr type marc-matnr,
werks type marc-werks,
end of ty_marc.
data: wa_itab type ty_marc.
data: itab type table of ty_marc .
data: wa_matnr type r_matnr.
methods: add.
private section.
*methods: sub.
endclass.
class c3 implementation.
method add .
select matnr
werks
from marc into table itab where matnr IN s_matnr.
write:/ 'material no', 20 'plant'.
loop at itab into wa_itab.
write:/ wa_itab-matnr,
wa_itab-werks.
endloop.
endmethod .
endclass.
start-of-selection.
data b1 type ref to c3.
create object b1 .
call method b1->add.

TABLE for Class the methods

Hi ALL,
Can anyone tell me the DB table where all the Classs and its methods are stored..?
Also if one could tell me that for any enhancement class implementation where are the OVERWRITE exit methods stored..
Regards
Rajivb Kanoria

Hi Ill give u the complete steps for what im looking for...
Go to sfw1(switch transaction).
enter a switch like MILL_EHP_01A and execute.
A new transaction in which we get the package for the switch.
double click on the package name 'MILL_EHP_01A_SWITCH'.
traverse to Utilities->display_object list.
u will go to package builder.
click on dropdown 'enhancement' on the browser window,
click on 'Enhancement implementations' dropdown.U will get all the implementations name.
Double click on any one.
Now in the Right side u will see a class name on the button in the attributes tab.
click on the overwrite methods tab.
U will see the overwrite method dere( I want the tables where these methods are stored).
Click on the button with the class name.GO TO METHODS TAB.
u will reach the class builder.
There is a overwrite-EXIT column.
In that some methods will have a botton for overwrite exit , some will not.
Where this info is stored about Overwrite Exits./?
Regards
Rajiv Kanoria

Exporting Tables from BSP to Class Methods

Afternoon Everybody,
in true SAP OSS Message style I post this question on it's own thread to enable maximum value from the reward points.
Question:
I have a BSP, in an event in my BSP I call a method in my class.
I have mastered Exporting parameters to the methods from the BSP and Importing parameters back to the BSP from the methods, but now, I need so Export a table to the method and I don't know how to.
Also, in combination with this, when I create the method I am able to setup the importing parameters, but how can create/define the importing table ?
If this is not clear I will add more info.
Thanks for your help,
Tomas.

Tomas,
The key to problem is always to learn a few "nice" things defined in the system. So let me see. The first problem you have is that methods are declared of the form:
method <parm> <direction> TYPE [REF TO] <t>
parm = the name of the paramter
direction = IMPORTING|EXPORTING|CHANGING|RETURNING
t = type of parm
However, in this type it is not possible to write that you want "type of table". You can only use predefined types (either internal or indictionary).
Having said this, most people with extensive ABAP experience before the OO-wave, tend to use character types all the time. However, we nearly always use only type string. And exactly for this type there is a type string_table.
So the code would be:
Declaration:
method lines changing type string_table
Calling:
DATA: t TYPE string_table.
APPEND 'Hello' TO t.
APPEND 'World' TO t.
class=>method( CHANGING lines = t ).
Method Implementation:
DATA: line LIKE LINE OF lines.
LOOP AT lines INTO line.
 TRANSLATE line TO UPPER CASE.
 MODIFY lines FROM line. " write back
ENDLOOP.
Better Method Implementation (works directly on row):
FIELD-SYMBOLS: <line> LIKE LINE OF lines.
LOOP AT lines ASSIGNING <line>.
 TRANSLATE <line> TO UPPER CASE.
ENDLOOP.
These two types string and string_table goes a long way. The other two types that I often use are ihttpvnp and Tihttpvnp (table): they are good for name/value pairs of strings.
Now is the time that you should invest 30 minutes reading each time that you run into a problem. You have the framework, just check up on one aspect each time. (I usually use online help, for example to understand MODIFY for writing this text.)

How to transfer database table contain null values, primary key, and foreign key to the another database in same server. using INSERT method.

how to transfer database table contain null values, primary key, and foreign key to the another database in same server. using INSERT method. thanks

INSERT targetdb.dbo.tbl (col1, col2, col3, ...)
SELECT col1, col2, col3, ...
FROM sourcedb.dbo.tbl
Or what is your question really about? Since you talke about foreign keys etc, I suspect that you want to transfer the entire table definition, but you cannot do that with an INSERT statement.
Erland Sommarskog, SQL Server MVP, [email protected]

Class methods to upload database tables

Hi,
Are there any class methods that can be used to upload database tables? I am aware that using GUI_UPLOAD method we can dynamically upload data from any flat file to a corresponding table. However can I take this process to the next level and upload the data from the internal table to a databse table at the run time?
Any thoughts or inputs shall be helpful?
Thanks in advance,
VG

HI
Actualaly I am not sure is there any class or methods are available for update the database tables from internal tables.
But we can try in a custom class and method for this purpuse using TYPE ANY and TYPE TABLE.
Regards,
R.Ranjtih,

What SAP Table contains the info that a screen fields is hidden

What SAP table contain screen painter information. Specifically what table contain the logic that a Infotype screen field is vivisable / hidden from the online user. I have been looking in SM51 and cannot track down the table used for this purpose...

Hi Ryan,
Please post this question in ABAP forum.

OO ALV displaying without Values despite Internal table contains

My below OO ALV displaying without Values despite Internal table contains the values ...
Help please ...
REPORT zsd_concession1 NO STANDARD PAGE HEADING
 LINE-SIZE 285
 LINE-COUNT 64
 MESSAGE-ID zz.
Program Description ******************************
This report is to Calculate consession against Quotations
complying standards for enhanced Performance, Readability &
Maintenance.
Change Log *********************************
Remedy # / Who When Why / What
Transport #
CLASS lcl_event_handler DEFINITION DEFERRED.
*& Data Definitions .
DATA: BEGIN OF vbap_wa,
 vbeln TYPE vbak-vbeln, "Quotation#
 erdat TYPE vbak-erdat, "Quot date
 knumv TYPE vbak-knumv, "Cond Rec#
 posnr TYPE vbap-posnr, "Line Item
 matnr TYPE vbap-matnr, "Mat#
 zansicat TYPE zmarall-zansicat, "AnsiCat#
 zansigrd TYPE zmarall-zansigrd, "Grade
 zcurrvaltnarea TYPE zco002-zcurrvaltnarea,"Val Area
 zcurrcstusd TYPE zco002-zcurrcstusd, "Cost$
 zzbrndnm TYPE mara-zzbrndnm, "Brand
 zqedscgrp TYPE zglbprc-zqedscgrp, "QE Disc Grp
 mstav TYPE mara-mstav, "Status
 kwmeng TYPE vbap-kwmeng, "Qty
 lprc TYPE konv-kbetr, "List Price ZBP1
 sprc TYPE konv-kbetr, "Std Pric ZNAA,ZNAX
 netpr TYPE vbap-netpr, "Quot price
 mrgn TYPE konv-kbetr, "margin%
 END OF vbap_wa,
 BEGIN OF konv_wa,
 knumv TYPE konv-knumv, "Cond#
 kposn TYPE konv-kposn, "Cond Item#
 kappl TYPE konv-kappl, "Applic
 kschl TYPE konv-kschl, "Cond Typ
 kbetr TYPE konv-kbetr, "Price ZBP1,ZNAA,ZNAX
 END OF konv_wa,
 BEGIN OF vbpa_wa,
 vbeln TYPE vbpa-vbeln, "Quot#
 posnr TYPE vbpa-posnr, "Item#
 parvw TYPE vbpa-parvw, "Prt Fn
 kunnr TYPE vbpa-kunnr, "Cust#
 END OF vbpa_wa,
 BEGIN OF result_wa,
 posnr TYPE vbap-posnr, "Line Item
 matnr TYPE vbap-matnr, "Mat#
 zansicat TYPE zmarall-zansicat, "AnsiCat#
 zansigrd TYPE zmarall-zansigrd, "Grade
 zcurrvaltnarea TYPE zco002-zcurrvaltnarea,"Val Area
 zcurrcstusd TYPE zco002-zcurrcstusd, "Cost$
 zzbrndnm TYPE mara-zzbrndnm, "Brand
 zqedscgrp TYPE zglbprc-zqedscgrp, "QE Disc Grp
 mstav TYPE mara-mstav, "Status
 kwmeng TYPE vbap-kwmeng, "Qty
 lprc TYPE konv-kbetr, "List Price ZBP1
 sprc TYPE konv-kbetr, "Std Pric ZNAA,ZNAX
 netpr TYPE vbap-netpr, "Quot price
 mrgn TYPE konv-kbetr, "margin%
 END OF result_wa.
DATA: ikonv LIKE STANDARD TABLE OF konv_wa,
 ivbap LIKE STANDARD TABLE OF vbap_wa,
 ivbpa LIKE STANDARD TABLE OF vbpa_wa,
 iresult LIKE STANDARD TABLE OF result_wa.
*Work storage
DATA: BEGIN OF ws,
 vbeln TYPE vbak-vbeln,
 ok_code TYPE sy-ucomm,
 alv_save TYPE c, "ALV save
 alv_variant TYPE disvariant, "ALV Variant
 alv_sort TYPE lvc_t_sort, "Sort table
 END OF ws.
*Data declarations for ALV Main list
DATA : ty_lay1 TYPE lvc_s_layo,
 it_fieldcat TYPE lvc_t_fcat ,
 ty_fieldcat TYPE lvc_s_fcat ,
 l_smenu TYPE REF TO cl_ctmenu,
 c_alv1 TYPE REF TO cl_gui_alv_grid,
 c_cont1 TYPE REF TO cl_gui_custom_container,
 e_dclick TYPE REF TO lcl_event_handler.
*Data declarations for ALV Interactive list
DATA : ty_lay2 TYPE lvc_s_layo,
 it_fcat TYPE lvc_t_fcat ,
 ty_fcat TYPE lvc_s_fcat ,
 c_alv2 TYPE REF TO cl_gui_alv_grid,
 c_cont2 TYPE REF TO cl_gui_custom_container.
*Field-Symbols
FIELD-SYMBOLS:
 <konv> LIKE konv_wa,
 <vbap> LIKE vbap_wa.
*Constants
CONSTANTS:
 c_end_row TYPE i VALUE 65000.
*CLASS lcl_event_receiver DEFINITION
CLASS lcl_event_handler DEFINITION.
PUBLIC SECTION.
 METHODS:
 handle_double_click
 FOR EVENT double_click OF cl_gui_alv_grid IMPORTING e_row.
ENDCLASS. "lcl_event_handler DEFINITION
*CLASS lcl_event_receiver IMPLEMENTATION
CLASS lcl_event_handler IMPLEMENTATION.
METHOD handle_double_click.
 DATA: sec_wa LIKE LINE OF iresult.
*Reading the selected data into a variable
 READ TABLE iresult INDEX e_row-index INTO sec_wa.
*Select the field details of the selected table
SELECT * FROM dd03l INTO CORRESPONDING FIELDS OF TABLE it_dd03l
WHERE tabname EQ ls_dd02l-tabname.
*Calling the ALV containing the field values
 CALL SCREEN 101.
ENDMETHOD. "handle_double_click
ENDCLASS. "lcl_event_handler IMPLEMENTATION
*& SELECTION-SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
SELECT-OPTIONS:
 s_vbeln FOR ws-vbeln DEFAULT '2002354788' OBLIGATORY.
SELECTION-SCREEN END OF BLOCK a.
INITIALIZATION.
PERFORM setup_screen_defaults.
START-OF-SELECTION.
PERFORM gather_report_data.
END-OF-SELECTION.
PERFORM create_output.
*& Form initialization
FORM setup_screen_defaults.
CLEAR: ws, konv_wa, vbap_wa, vbpa_wa.
REFRESH: ivbpa, ikonv, ivbap, iresult.
ENDFORM. " setup_screen_defaults
*& Form gather_report_data
FORM gather_report_data.
SELECT vbeln posnr parvw kunnr
 INTO TABLE ivbpa
 FROM vbpa
 WHERE vbeln IN s_vbeln
 AND ( parvw = 'SP' OR "SoldTO
 parvw = 'WE' OR "ShipTo
 parvw = 'ZT' ). "Top Parent
SELECT vkvbeln vkerdat vkknumv vpposnr vp~matnr
 z1zansicat z1zansigrd z2~zcurrvaltnarea
 z2zcurrcstusd m1zzbrndnm zg~zqedscgrp
 m1mstav vpkwmeng vp~netpr
 INTO CORRESPONDING FIELDS OF TABLE ivbap
 FROM vbak AS vk
 INNER JOIN vbap AS vp
 ON vpvbeln = vkvbeln
 INNER JOIN zmarall AS z1
 ON z1matnr = vpmatnr
 INNER JOIN zco002 AS z2
 ON z2matnr = vpmatnr
 INNER JOIN zglbprc AS zg
 ON zgmatnr = vpmatnr
 INNER JOIN mara AS m1
 ON m1matnr = vpmatnr
 WHERE vk~vbeln IN s_vbeln
 AND vk~auart = 'AG'."AG = Quot
SORT ivbap BY posnr matnr.
SELECT kvknumv kvkposn kvkappl kvkschl kv~kbetr
 INTO TABLE ikonv
 FROM konv AS kv
 FOR ALL ENTRIES IN ivbap
 WHERE kv~knumv = ivbap-knumv
 AND kv~kposn = ivbap-posnr
 AND kv~kappl EQ 'V'
 AND ( kv~kschl EQ 'ZBP1'
 OR kv~kschl EQ 'ZNAX'
 OR kv~kschl EQ 'ZNAA' ).
SORT ikonv BY knumv kposn.
LOOP AT ivbap ASSIGNING <vbap>.
 CLEAR konv_wa.
 READ TABLE ikonv INTO konv_wa WITH KEY
 knumv = <vbap>-knumv
 kposn = <vbap>-posnr
 kschl = 'ZBP1'
 BINARY SEARCH.
 IF sy-subrc EQ 0.
 <vbap>-lprc = konv_wa-kbetr.
 ENDIF.
 READ TABLE ikonv INTO konv_wa WITH KEY
 knumv = <vbap>-knumv
 kposn = <vbap>-posnr
 kschl = 'ZNAX'
 BINARY SEARCH.
 IF sy-subrc EQ 0.
 <vbap>-sprc = konv_wa-kbetr.
 ENDIF.
 READ TABLE ikonv INTO konv_wa WITH KEY
 knumv = <vbap>-knumv
 kposn = <vbap>-posnr
 kschl = 'ZNAA'
 BINARY SEARCH.
 IF sy-subrc EQ 0.
 <vbap>-sprc = konv_wa-kbetr.
 ENDIF.
ENDLOOP.
SORT ivbap BY posnr matnr.
LOOP AT ivbap INTO vbap_wa.
 MOVE-CORRESPONDING vbap_wa TO result_wa.
 APPEND result_wa TO iresult.
 CLEAR: vbap_wa, result_wa.
ENDLOOP.
ENDFORM. " gather_report_data
*& Form create_output
FORM create_output.
CALL SCREEN 100.
FREE: iresult.
ENDFORM. " create_output
*& Module PBO_0100 OUTPUT
 text
MODULE pbo_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '0100'.
IF c_cont1 IS INITIAL.
*Creating object of container
 CREATE OBJECT c_cont1
 EXPORTING
 container_name = 'CCONT1'.
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
*Creating object of alv
 CREATE OBJECT c_alv1
 EXPORTING
 i_parent = c_cont1.
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
*Alv layout
 PERFORM alv_100_layout.
 PERFORM save_alv_layout.
*Alv field catalogue
 PERFORM alv_100_fieldcat.
*Displaying the ALV grid
 CALL METHOD c_alv1->set_table_for_first_display
 EXPORTING
 is_layout = ty_lay1
 i_save = ws-alv_save
 is_variant = ws-alv_variant
 CHANGING
 it_outtab = iresult[]
 it_sort = ws-alv_sort
 it_fieldcatalog = it_fieldcat[].
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
*Create object of the event class
*and setting handler for double click
 CREATE OBJECT e_dclick.
 SET HANDLER e_dclick->handle_double_click FOR c_alv1.
ENDIF.
ENDMODULE. " PBO_0100 OUTPUT
*& Module PAI_0100 INPUT
 text
MODULE pai_0100 INPUT.
ws-ok_code = sy-ucomm.
CASE ws-ok_code.
 WHEN 'BACK'.
 CALL SELECTION-SCREEN 1000.
 CLEAR ws-ok_code.
 WHEN 'EXIT'.
 LEAVE TO SCREEN 0.
 CLEAR ws-ok_code.
 EXIT.
 WHEN 'CANCEL'.
 LEAVE TO SCREEN 0.
 CLEAR ws-ok_code.
 EXIT.
 WHEN OTHERS.
ENDCASE.
ENDMODULE. " PAI_0100 INPUT
*& Form alv_100_layout
 text
--> p1 text
<-- p2 text
FORM alv_100_layout.
ty_lay1-numc_total = 'X'. " Numc total line
ty_lay1-cwidth_opt = 'X'. " Optimal column width
ty_lay1-detailinit = 'X'. " Show values that are initial in
ty_lay1-sel_mode = 'A'. " Column selection mode
ty_lay1-no_merging = 'X'. " No merging while sorting columns
ty_lay1-keyhot = 'X'.
ty_lay1-grid_title = 'SD Concessions'.
ty_lay1-zebra = 'X'.
ty_lay1-no_toolbar = ' '.
ENDFORM. " alv_100_layout
*& Form alv_100_fieldcat
 text
--> p1 text
<-- p2 text
FORM alv_100_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 1.
ty_fieldcat-fieldname = 'posnr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Item#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 2.
ty_fieldcat-fieldname = 'matnr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Mat#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 3.
ty_fieldcat-fieldname = 'zansicat'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'AnsiCat#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 4.
ty_fieldcat-fieldname = 'zansigrd'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Grade'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 5.
ty_fieldcat-fieldname = 'zcurrvaltnarea'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Val Area'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 6.
ty_fieldcat-fieldname = 'zcurrcstusd'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Cost $'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 7.
ty_fieldcat-fieldname = 'zzbrndnm'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Brand'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 8.
ty_fieldcat-fieldname = 'zqedscgrp'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'QE'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 9.
ty_fieldcat-fieldname = 'mstav'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Status'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 9.
ty_fieldcat-fieldname = 'kwmeng'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Qty'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 10.
ty_fieldcat-fieldname = 'lprc'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'List Price'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 11.
ty_fieldcat-fieldname = 'sprc'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Discount'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 12.
ty_fieldcat-fieldname = 'netpr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Quot Price'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 13.
ty_fieldcat-fieldname = 'mrgn'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Margin%'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
ENDFORM. " alv_100_fieldcat
*& Module PBO_0101 OUTPUT
 text
MODULE pbo_0101 OUTPUT.
*Check if the Custom container exists.
IF c_cont2 IS INITIAL.
*Creating container object
 CREATE OBJECT c_cont2
 EXPORTING
 container_name = 'CCONT2'.
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
*creating ALV grid for interactive list
 CREATE OBJECT c_alv2
 EXPORTING
 i_parent = c_cont2.
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
*ALV layout
 PERFORM alv_101_layout.
*ALV fieldcatalogue
 PERFORM alv_101_fieldcat.
*Sorting the output by field position
 SORT iresult BY posnr.
*ALV for display field details
 CALL METHOD c_alv2->set_table_for_first_display
 EXPORTING
 is_layout = ty_lay2
 CHANGING
 it_outtab = iresult[]
 it_fieldcatalog = it_fieldcat.
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.
ENDMODULE. " PBO_0101 OUTPUT
*& Module PAI_0101 INPUT
 text
MODULE pai_0101 INPUT.
ENDMODULE. " PAI_0101 INPUT
*& Form alv_101_layout
 text
--> p1 text
<-- p2 text
FORM alv_101_layout.
ty_lay2-grid_title = 'Line Details'.
ty_lay2-zebra = 'X'.
ty_lay2-no_toolbar = 'X'.
ENDFORM. " alv_101_layout
*& Form alv_101_fieldcat
 text
--> p1 text
<-- p2 text
FORM alv_101_fieldcat.
REFRESH it_fieldcat.
REFRESH it_fcat.
CLEAR ty_fcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 1.
ty_fieldcat-fieldname = 'posnr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Item#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 2.
ty_fieldcat-fieldname = 'matnr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Mat#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 3.
ty_fieldcat-fieldname = 'zansicat'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'AnsiCat#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 4.
ty_fieldcat-fieldname = 'zansigrd'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Grade'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 5.
ty_fieldcat-fieldname = 'zcurrvaltnarea'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Val Area'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
ENDFORM. " alv_101_fieldcat
*& Form save_alv_layout
 text
--> p1 text
<-- p2 text
form save_alv_layout.
ws-alv_save = 'A'.
ws-alv_variant-report = sy-repid.
endform. " save_alv_layout

Hello
Creating fieldcatalogs manually is one of the major error sources in ALV programming.
There is hardly any reason why NOT to use the standard-fm LVC_FIELDCATALOG_MERGE in order to create a proper fieldcatalog.
If you need some modification of the standard fieldcatalog (e.g. renaming of columns, etc.) just do your post-processing after calling the fm.
Regards
Uwe

Dynamic Call Function/Class Method

Hi,
I have a requirement for which I need your help.
I want to Call a Method dynamically inside a program. how to do it?
My another quary is that how to call more than one class method dynamicaly in the program one at a time, based on certain conditions.
All the requirements mentioned above feels awakward to me, but are they feasible. Eagerly waiting for a reply.
Regards,
Pulokesh
Moderator message - Cross post locked
Edited by: Rob Burbank on Oct 26, 2009 9:48 AM

Hello,
you can call a Method like this where the name of the method is concatenated.
CONCATENATE 'SC_' me->gf_scenario '_SAVE' INTO lf_method.
CALL METHOD me->(lf_method).
Than I can imagine to loop over a tabele with all the Method Call to be executes un there:
Loop at gt_meth_calls into ls_meth_call.
ls_meth_call-object_instance->(ls_meth_call-meth_name).
endloop.
The table should be structured such that the first component contains a reference to the instance and the second component will be the Method name to run.

Type for SENDER parameter in Class Method

Hi all,
I have an import parameter declared in a Class method .
in SE38 program i want to retrieve through export parameter .
But i am not able to figure how to defind the type of SENDER parameter . Please suggest if my perception is wrong or the point that i am missing here .
Regards,
Ry.

Hi Vijay,
Thank you for your reply . the problem i am having is the functionlaity of this report is it displays three grids and when ever i double click on a grid it should identify the particluar grid . i have highlighted in bold where i am encountering the problem. i am enclosing the class details and the report source code. Please suggest after going through it . thanks in advance.
Class details that i have created :
the class has a method handle_double_event with event handler double_click of CL_GUI_ALV_GRID . i have defined this in the method section.
in public section section :
public section.
types GO_GRID1 type ref to CL_GUI_ALV_GRID .
class-methods HANDLE_DOUBLE_CLICK
 for event DOUBLE_CLICK of CL_GUI_ALV_GRID
 importing
 ES_ROW_NO
 E_COLUMN
 E_ROW
 SENDER .
in handle_double_event code :
DATA:
go_grid1 TYPE REF TO cl_gui_alv_grid,
go_grid2 TYPE REF TO cl_gui_alv_grid,
go_grid3 TYPE REF TO cl_gui_alv_grid.
DATA:
gt_knb1 TYPE STANDARD TABLE OF knb1,
gt_vbak TYPE STANDARD TABLE OF vbak,
gt_vbap TYPE STANDARD TABLE OF vbap.
define local data
 DATA:
 ls_knb1 TYPE knb1,
 ls_vbak TYPE vbak,
 ls_vbap TYPE vbap.
 DATA: es_row_no type lvc_s_roid,
 e_column type lvc_s_col,
 e_row type lvc_s_row.
 *CASE sender. - here when i double click on the first grid go_grid1 it should go inside the go_grid1 . but it is not entering .*
 WHEN go_grid1.
 READ TABLE gt_knb1 INTO ls_knb1 INDEX e_row-index.
 CHECK ( ls_knb1-kunnr IS NOT INITIAL ).
 CALL METHOD go_grid1->set_current_cell_via_id
 EXPORTING
 IS_ROW_ID =
 IS_COLUMN_ID =
 is_row_no = es_row_no.
 Triggers PAI of the dynpro with the specified ok-code
 CALL METHOD cl_gui_cfw=>set_new_ok_code( 'ORDERS' ).
 WHEN go_grid2.
 READ TABLE gt_vbak INTO ls_vbak INDEX e_row-index.
 CHECK ( ls_vbak-vbeln IS NOT INITIAL ).
 CALL METHOD go_grid1->set_current_cell_via_id
 EXPORTING
 IS_ROW_ID =
 IS_COLUMN_ID =
 is_row_no = es_row_no.
 Triggers PAI of the dynpro with the specified ok-code
 CALL METHOD cl_gui_cfw=>set_new_ok_code( 'ORDER_DET' ).
 WHEN go_grid3.
 READ TABLE gt_vbap INTO ls_vbap INDEX e_row-index.
 CHECK ( ls_vbap-matnr IS NOT INITIAL ).
 SET PARAMETER ID 'MAT' FIELD ls_vbap-matnr.
 CALL TRANSACTION 'MM02' AND SKIP FIRST SCREEN.
 WHEN OTHERS.
 RETURN.
 ENDCASE.
endmethod.
Code for the Report that is accessing the class.
DATA:
gd_okcode TYPE ui_func,
go_docking TYPE REF TO cl_gui_docking_container,
go_splitter TYPE REF TO cl_gui_splitter_container,
go_splitter_2 TYPE REF TO cl_gui_splitter_container,
go_cell_top TYPE REF TO cl_gui_container,
go_cell_bottom TYPE REF TO cl_gui_container,
go_cell_left TYPE REF TO cl_gui_container,
go_cell_right TYPE REF TO cl_gui_container,
go_grid1 TYPE REF TO cl_gui_alv_grid,
go_grid2 TYPE REF TO cl_gui_alv_grid,
go_grid3 TYPE REF TO cl_gui_alv_grid,
list type ref to zcl_eventhandler,
es_row_no type lvc_s_roid,
e_column type lvc_s_col,
e_row type lvc_s_row,
sender(8) type c.
DATA:
gt_knb1 TYPE STANDARD TABLE OF knb1,
gt_vbak TYPE STANDARD TABLE OF vbak,
gt_vbap TYPE STANDARD TABLE OF vbap.
PARAMETERS : p_bukrs TYPE ekko-bukrs default '1000'.
START-OF-SELECTION.
create object list.
SELECT * FROM knb1 INTO TABLE gt_knb1
 WHERE bukrs = p_bukrs.
Create docking container
CREATE OBJECT go_docking
 EXPORTING
 parent = cl_gui_container=>screen0
 ratio = 50
 EXCEPTIONS
 OTHERS = 6.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Create splitter container
CREATE OBJECT go_splitter
 EXPORTING
 parent = go_docking
 rows = 1
 columns = 1
 NO_AUTODEF_PROGID_DYNNR =
 NAME =
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 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.
Get cell container
CALL METHOD go_splitter->get_container
 EXPORTING
 row = 1
 column = 1
 RECEIVING
 container = go_cell_left.
 container = go_cell_top.
CALL METHOD go_splitter->get_container
 EXPORTING
 row = 1
 column = 2
 RECEIVING
 container = go_cell_right.
Create 2nd splitter container
CREATE OBJECT go_splitter_2
 EXPORTING
 parent = go_cell_left
 parent = go_cell_top
 rows = 2
 columns = 1
 NO_AUTODEF_PROGID_DYNNR =
 NAME =
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 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.
Get cell container
CALL METHOD go_splitter_2->get_container
 EXPORTING
 row = 1
 column = 1
 RECEIVING
 container = go_cell_top.
CALL METHOD go_splitter_2->get_container
 EXPORTING
 row = 2
 column = 1
 RECEIVING
 container = go_cell_bottom.
Create ALV grids
CREATE OBJECT go_grid1
 EXPORTING
 i_parent = go_cell_top
 EXCEPTIONS
 OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CREATE OBJECT go_grid2
 EXPORTING
 i_parent = go_cell_bottom
 EXCEPTIONS
 OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CREATE OBJECT go_grid3
 EXPORTING
 i_parent = go_cell_right
 EXCEPTIONS
 OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
 CALL METHOD ZCL_EVENTHANDLER=>HANDLE_DOUBLE_CLICK
 EXPORTING
 ES_ROW_NO = ES_ROW_NO
 E_COLUMN = E_COLUMN
 E_ROW = E_ROW
 SENDER.
Set event handler
SET HANDLER: list->handle_double_click FOR go_grid1.
SET HANDLER: list->handle_double_click FOR go_grid2.
SET HANDLER: list->handle_double_click FOR go_grid3.
Display data
CALL METHOD go_grid1->set_table_for_first_display
 EXPORTING
 i_structure_name = 'KNB1'
 CHANGING
 it_outtab = gt_knb1
 EXCEPTIONS
 OTHERS = 4.
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: gt_vbak.
CALL METHOD go_grid2->set_table_for_first_display
 EXPORTING
 i_structure_name = 'VBAK'
 CHANGING
 it_outtab = gt_vbak
 EXCEPTIONS
 OTHERS = 4.
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: gt_vbap.
CALL METHOD go_grid3->set_table_for_first_display
 EXPORTING
 i_structure_name = 'VBAP'
 CHANGING
 it_outtab = gt_vbap
 EXCEPTIONS
 OTHERS = 4.
IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Link the docking container to the target dynpro
CALL METHOD go_docking->link
 EXPORTING
 repid = syst-repid
 dynnr = '0100'
 CONTAINER =
 EXCEPTIONS
 OTHERS = 4.
IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
NOTE: dynpro does not contain any elements
CALL SCREEN '0100'.
Flow logic of dynpro:
*PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
*PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
END-OF-SELECTION.
*& Form CUSTOMER_SHOW_ORDERS
 text
--> p1 text
<-- p2 text
FORM customer_show_orders .
define local data
DATA:
 ld_row TYPE i,
 ls_knb1 TYPE knb1.
CALL METHOD go_grid1->get_current_cell
 IMPORTING
 e_row = ld_row.
READ TABLE gt_knb1 INTO ls_knb1 INDEX ld_row.
CHECK ( syst-subrc = 0 ).
SELECT * FROM vbak INTO TABLE gt_vbak
 WHERE kunnr = ls_knb1-kunnr.
REFRESH: gt_vbap.
ENDFORM. " CUSTOMER_SHOW_ORDERS
*& Form ORDER_SHOW_DETAILS
 text
--> p1 text
<-- p2 text
FORM order_show_details .
define local data
DATA:
 ld_row TYPE i,
 ls_vbak TYPE vbak.
CALL METHOD go_grid1->get_current_cell
 IMPORTING
 e_row = ld_row.
READ TABLE gt_vbak INTO ls_vbak INDEX ld_row.
CHECK ( syst-subrc = 0 ).
SELECT * FROM vbap INTO TABLE gt_vbap
 WHERE vbeln = ls_vbak-vbeln.
ENDFORM. " ORDER_SHOW_DETAILS
*& Module STATUS_0100 OUTPUT
 text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'. " contains push button "ORDERS"
SET TITLEBAR 'xxx'.
Refresh display of detail ALV list
CALL METHOD go_grid2->refresh_table_display
 EXPORTING
 IS_STABLE =
 I_SOFT_REFRESH =
 EXCEPTIONS
 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 display of detail ALV list
CALL METHOD go_grid3->refresh_table_display
 EXPORTING
 IS_STABLE =
 I_SOFT_REFRESH =
 EXCEPTIONS
 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.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
 text
MODULE USER_COMMAND_0100 INPUT.
move sy-ucomm to gd_okcode.
CASE gd_okcode.
 WHEN 'BACK' OR
 'END' OR
 'CANC'.
 SET SCREEN 0. LEAVE SCREEN.
User has pushed button "Display Orders"
 WHEN 'ORDERS'.
 PERFORM customer_show_orders.
 WHEN 'ORDERS_DET'.
 PERFORM order_show_details.
 WHEN OTHERS.
ENDCASE.
CLEAR: gd_okcode.
endmodule.
Regards,
Ry

Export Table from ABAP Method

Hello Experts,
I have created one class which contains a method having one import parameter and one export parameter.Export parameter is of type table, say iTab
In the code of the method, i called one RFC which has one table parameter. Ex.-
method get_data.
call function z_test
 Exporting
 name = 'AAA'
 Tables
 list = iTab.
endmethod.
But when I compile the method, it is showing me the error that "iTab is not a internal table, occurs specification is missing".
Then I Used another internal table instead of iTab. Error was not came, but I am not understanding how to assign this new internal table to export parameter of a method.
Thanks in Advance,
Prashant Jagdale

Hi Keshav,
I tried using iTab type <Table_Name> in method signature and used
TABLES
 LIST = ItAB[]
But no success....Again Error - "iTab is not a internal table, occurs n specification is missing"
when i declare another internal table inside method using type table of and assigned to list. No error comes but I am not understanding how to pass these values of newly created internal table to method's export parameter.
Any help??
Thanks in Advance,
Prashant

Table containing Class Method info

Similar Messages

Maybe you are looking for