Classes and DB tables

Is it a good idea to create a class for each table in a database? If it so, should it be an interface, an abstract or a normal class? This is assuming that an application will use all tables in the DB, n-tier architecture, client-server, etc.
Thanks in advance,
ER

I don't think so that it is good idea ...
in my opinion u dont have to make classes for that table in db then what about there manipulation u will make it very much complex for ure self ...
i can give an example to u in regard of what just i have said
is that
u know telephone operators what they do ... they simply call ure name and put u on the phone ? yes then waht about db tables that are the data only and u have to operate them then u have to write an operator class to help u out ...
and if there are classes in one transaction of the database then much greater time is required then the single class ... i hope u got my point

Similar Messages

What is the field and Table for "Batch Class" and "Class Type" in QM.

Hi All,
What is the field and Table for "Batch Class" and "Class Type" in QM.
Thanks,

Hi,
For batch class the class type value is '023' . This you can find from KLAH table and the fileld for class type is KLART..
And also all the data related to batch class are found in tables INOB, KLAH,KKSK and for the characeteristics of batch materials you can refer AUSP table.
In INOB table, for batch class, you need to give 023 in KLART field and value MCH1 in OBTAB filed.
Please check this and let me know if this you need any more details?

Problems using different tables for base class and derived class

I have a class named SuperProject and another class Project derived from
it. If I let SchemaTool generate the tables without specifying a "table"
extension, I get a single TABLE with all the columns from both classes and
everything works fine. But if I specify a "table" for the derived class,
SchemaTool generates the derived class with just one column (corresponds
to the attribute in derived class). Also it causes problems in using the
Project class in collection attributes.
JDO file:
<jdo>
<package name="jdo">
<class name="Project" identity-type="application"
persistence-capable-superclass="SuperProject">
<extension vendor-name="kodo" key="table" value="PROJECT"/>
</class>
<class name="SuperProject" identity-type="application"
objectid-class="ProjectId">
<field name="id" primary-key="true"/>
</class>
</package>
</jdo>
java classes:
public class Project extends SuperProject
String projectSpecific
public class SuperProject
BigDecimal id;
String name;
tables generated by SchemaTool:
TABLE SUPERPROJECTSX (IDX, JDOCLASSX, JDOLOCKX, NAMEX);
TABLE PROJECT(PROJECTSPECIFICX)
Thanks,
Justine Thomas

Justine,
This will be resolved in 2.3.4, to be released later this evening.
-Patrick
In article <aofo2q$mih$[email protected]>, Justine Thomas wrote:
I have a class named SuperProject and another class Project derived from
it. If I let SchemaTool generate the tables without specifying a "table"
extension, I get a single TABLE with all the columns from both classes and
everything works fine. But if I specify a "table" for the derived class,
SchemaTool generates the derived class with just one column (corresponds
to the attribute in derived class). Also it causes problems in using the
Project class in collection attributes.
JDO file:
<jdo>
<package name="jdo">
<class name="Project" identity-type="application"
persistence-capable-superclass="SuperProject">
<extension vendor-name="kodo" key="table" value="PROJECT"/>
</class>
<class name="SuperProject" identity-type="application"
objectid-class="ProjectId">
<field name="id" primary-key="true"/>
</class>
</package>
</jdo>
java classes:
public class Project extends SuperProject
String projectSpecific
public class SuperProject
BigDecimal id;
String name;
tables generated by SchemaTool:
TABLE SUPERPROJECTSX (IDX, JDOCLASSX, JDOLOCKX, NAMEX);
TABLE PROJECT(PROJECTSPECIFICX)
Thanks,
Justine Thomas
Patrick Linskey [email protected]
SolarMetric Inc. http://www.solarmetric.com

Tables in which class and Characters are stored

Hi all,
Can any one tell me in which tables class and Characters are stored
With Rgds
vinod

Characteristics :
CABN Characteristics ( o.a. batch/vendor)
CABNT Characteristics description
CAWN Characteristics ( o.a. material)
CAWNT Characteristics description
AUSP Characteristic Values
Class types and objects :TCLAO Several class types for object
TCLA Class types ( vb. lfa1 => v10 en 010)
TCLAT Class type text
TCLT Classifiable objects
TCLC Classification status
regards,
indranil

Which Table, can I find the class and characteristic assigned to equipment.

Hi all,
I have assigned a characteristc to a class.
And assigned this class to an equipment.
Now in which table can i find the class assigned to this equipment.
What is the logic to find the class and characteristic.
Thanks in advance.
Piyush

Hi,
As per above post, you can find classes. To find characteristics, Give EQUNR value in OBJEK field in AUSP table & get the ATINN value.
Give ATINN value in ATINN field in CABN table & get ATNAM field value.
In AUSP table, you can get the values against each characteristics as well.
Regards,
Maheswaran.
Edited by: Maheswaran.K on Apr 19, 2011 9:28 AM

Which table stores all development class and names of programs

Hi All,
can any one tell me which table stores all development classes and programs we made.

thanks for the answer , i got info also.
TADIR is also one table in which you can find out the prog names and dev class.
check table for dev class is TDEVC.

Tables for development class and Message Class

Hi All,
In which table is Message Class and Development class stored.
Thanks,
Santosh

Hi All,
I am closing this thread..I was looking for a single table which does this and it is TADIR with object = MSAG
Thanks,
Santosh
Edited by: Santosh Kumar KezkhepatMelathil on Aug 29, 2008 1:32 PM

Object Class and Object Id for material Determination tables.

I want to know what is the Object Class and Object Id for material Determination records to verify tables CDHDR and CDPOS.
The purpose is to know the changes done by the different users for material determination records.
Can any one help.

Hi ZZZSUNNY,
Similar question is answered recently.Please find the below link which will helps you
Material determination: how to see the creater of a record?
Thanks
Dasaradha

Pass table rowtype between java class and PL/SQL package

I am a complete newbie when it comes to java itself but I've been asked to investigate the possibility of passing a rowtype datatype from a PL/SQL package to a java class and vice versa.
I have heard of oracle.sql.ArrayDescriptor as an option but this appears to address only SQL types that are defined outside of a package.
I'm talking about using, say, SCOTT.EMP%rowtype instead of a user-defined type. I'm thinking that a java array could be defined from the definition of a table in the database but I don't know what class would be appropriate.
Could someone provide a simple proof-of-concept example that shows how you could use a java array to pass data to a package that is expecting a table rowtype variable and conversely a java class that reads the rowtype returned into a java array?
Would oracle.jdbc.driver.OracleDatabaseMetaData be a way of doing this?
Thanks!

Kuassi:
 
Not at all. I didn't feel like you misled me at all. I'm grateful for your help. I think that maybe I failed to describe my problem adequately in the first place.
 
Perhaps I've also gotten stuck on the term ref cursor.
 At any rate, the people I'm gathering information for have further refined their requirement. We want to take a collection of data and send it to a procedure. It doesn't have to be a "ref cursor" or "%rowtype" per se, but something that is maintainable and workable from both ends.
 
For example, to use the old SCOTT/TIGER paradigm, let's suppose we have a website where you can indicate which employees work for a given department. The website allows us to fill in information for multiple employees at once. We want to use a servlet that gathers all the employees data and sends it on through to a PL/SQL package so that the data is validated and committed in the database. 
Perhaps the java servlet should handle the multiple employee records as an array? If so, how can a PL/SQL procedure be made to recognize that construct? 
I can accept that java cannot create a "ref cursor" type to send information to a package, but might this be possible via some other implementation?
 
Hopefully this is a little more clear. If not, please let me know and I'll try to inject more details as to what we are trying to accomplish.
 
Once again, thanks for your persistent replies and help.

View with Bind Variable and ADF table

Hi all,
Please note what i have noticed. I created a view with a bind parameter, overriden the prepareSession of my Application Module to set the bind parameter and execute the query. I then created a simple jsf page and included the view as an adf read-only table. When i run the page, the prepareSession is called, sets the bind parameter, however the selected record of the table is always the second record (Not the first record).
This behaviour can be reproduced with the HR schema. Please follow the below instructions for reproducing the problem.
1. Create a Fusion Web Application (ADF).
2. Create business components from tables.
3. Create a new connection with the HR schema.
4. Import the Departments table as an entity and then click finish.
5. Create a view based on the Departments entity.
6. Modify the Query to include a where clause (where DDepartmentsEO.DEPARTMENT_NAME LIKE :BindParam)
7. Provide an order by clause (DepartmentsEO.DEPARTMENT_ID DESC)
8. Creata a bind variable named "BindParam" of type string.
9. Create an Application Module and include the view object.
10. Open the Application Module Class and override the prepareSession method
11. include the following code after super.prepareSession(session):
ViewObject myView = this.getDepartments1();
myView.setNamedWhereClauseParam("BindParam", "%");
myView.executeQuery();
12. Create a jsf page
13. Drag the view object on the page as an adf read-only table, selecting the Row Selection, Sorting and Filtering
14. Run the page.
You will see that instead of the first record being selected, the second record in the table is selected.
Can anyone please help me?
Thank you

First of all i would like to thank you for replying to my thread.
Secondly, i would like to inform you that the example that i have provided is just for REPRODUCTION purposes.
The real scenario has to do with setting the where clause with the authenticated user so that the view will query for data only associated with the authenticated user.
The only way to overcome this behaviour is to include a view action (namedWhereClause in the page definition)
However, this is not how i want to implement this. This was working properly in 10g

Using java class and variables declared in java file in jsp

hi everyone
i m trying to seperate business logic form web layer. i don't know i am doing in a right way or not.
i wanted to access my own java class and its variables in jsp.
for this i created java file like this
package ris;
import java.sql.*;
import java.sql.Connection;
import java.sql.DriverManager;
import java.sql.SQLException;
public class NewClass{
 public static void main(String args[]){
 Connection con = null;
 ResultSet rs=null;
 Statement smt=null;
 try{
 Class.forName("com.mysql.jdbc.Driver").newInstance();
 con=DriverManager.getConnection("jdbc:mysql:///net","root", "anthony111");
 smt=con.createStatement();
 rs= smt.executeQuery("SELECT * FROM emp");
 while(rs.next()){
 String str = rs.getString("Name");
 }catch( Exception e){
 String msg="Exception:"+e.getMessage();
 }finally {
 try {
 if(con != null)
 con.close();
 } catch(SQLException e) {}
}next i created a jsp where i want to access String str defined in java class above.
<%--
 Document : fisrt
 Created on : Jul 25, 2009, 3:00:38 PM
 Author : REiSHI
--%>
<%@page import="ris.NewClass"%>
<%@page contentType="text/html" pageEncoding="UTF-8"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
 "http://www.w3.org/TR/html4/loose.dtd">
<html>
 <head>
 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
 <title>JSP Page</title>
 </head>
 <body>
 <h1><%=str%></h1>
 </body>
</html>I wanted to print the name field extracted from database by ResultSet.
but it gives error cannot find symbol str.
please help me to find right way to do this.
i am using netbeans ide.

Very bad approach
1) Think if your table contains more than one NAMEs then you will get only the last one with your code.
2) Your String is declared as local variable in the method.
3) You have not created any object of NewClass nor called the method in JSP page. Then who will call the method to run sql?
4) Your NewClass contains main method which will not work in web application, it's not standalone desktop application so remove main.
Better create an ArrayList and then call the method of NewClass and then store the data into ArrayList and return the ArrayList.
It should look like
{code:java}
package ris;
import java.sql.*;
import java.sql.Connection;
import java.sql.DriverManager;
import java.sql.SQLException;
public class NewClass{
 public static ArrayList getNames(){
 Connection con = null;
 ResultSet rs=null;
 Statement smt=null;
 ArrayList nameList = new ArrayList();
 try{
 Class.forName("com.mysql.jdbc.Driver").newInstance();
 con=DriverManager.getConnection("jdbc:mysql:///net","root", "anthony111");
 smt=con.createStatement();
 rs= smt.executeQuery("SELECT * FROM emp");
 while(rs.next()){
 nameList.add(rs.getString("Name"));
 return nameList;
 }catch( Exception e){
 String msg="Exception:"+e.getMessage();
 </code><code class="jive-code jive-java">return nameList;</code><code class="jive-code jive-java">
 }finally {
 try {
 if(con != null)
 con.close();
 } catch(SQLException e) {}
 </code><code>return nameList;</code>
<code class="jive-code jive-java"> }

FM/Class to find the class and characterstics for a given material

Hi All,
Is there any Class/FM to find the class and characterstics for a given material.I tried some BAPI_OBJCL* BAPI's but lot of the BAPI's need classnum as input parameter. But i need a BAPI or tables or class which can give the class and its characterstic values for a given material.

Hi Ben
Try ..
BAPI_OBJCL_GETCLASSES
BAPI_OBJCL_CREATE

One to Many with multiple tables on One side and one table on Many side

Sorry for the confusion in the title. Here is my question. In my program, I have 2 different tables which store 2 different type of entities. Each one of entities has a list of attachments which I stored in a common attachment table. There is a one-to-many relationship between entity tables and attachment table.
ENTITY_ONE (
ID
NAME
ENTITY_TWO (
ID
NAME
ATTACHMENTS (
ID
ENTITY_ID
ATTACHMENT_NAME
ENTITY_ID in ATTACHMENTS table is used to link attachments to either entity one or entity two. All IDs are generated by one sequence. So they are always unique. My question is how I could map this relationship into EntityOne, EntityTwo and Attachment JAVA class?

For EntityOne and EntityTwo you can just define a normal OneToMany mapping using the foreign key.
Are you using JPA, or the TopLink API? JPA requires a mappedBy for the OneToMany, so this may be more difficult. You should be able to just add a JoinColumn on the OneToMany and make the column insertable/updateable=false.
For the attachment, you could either map the foreign key as a Basic (DirectToFieldMapping) and maintain it in your model, or use a VariableOneToOne mapping in TopLink (this will require the entities share a common interface).
James : http://www.eclipselink.org : http://en.wikibooks.org/wiki/Java_Persistence

How we can use class and methods for the FM of reuse_alv_list_display

Hi Abapers,
Please provide the sample code of class and method of REUSE_ALV_LIST_DISPLAY.
Which Class i can use for this Function module.
I need to write a code using OOPS concept.
I was done the GRID display using this class cl_gui_alv_grid.
But i want only List Display using the class & methods.
Plz provide sample code.
Thanks
Nani.

Hi Nani,
This is the sample code..
*& Report Z_OO_ALV
*& We can Use Two containers in OOALV
REPORT z_oo_alv LINE-COUNT 50.
*types gt_struct type sflight.
DATA BEGIN OF gt_struct.
INCLUDE STRUCTURE sflight.
DATA rcol(4) TYPE c.
DATA colors TYPE lvc_t_scol.
DATA END OF gt_struct.
*ALV GRIDs
DATA gr_alvgrid TYPE REF TO cl_gui_alv_grid.
DATA gr_alvgrid1 TYPE REF TO cl_gui_alv_grid.
DATA gc_custom_control_name TYPE scrfname VALUE 'CC_ALV'.
DATA gc_custom_control_name1 TYPE scrfname VALUE 'CC_ALV1'.
*CONTAINERs
DATA gr_ccontainer TYPE REF TO cl_gui_custom_container.
DATA gr_ccontainer1 TYPE REF TO cl_gui_custom_container.
*FIELDCATALOGs
DATA gt_fieldcat TYPE lvc_t_fcat WITH HEADER LINE.
DATA gt_fieldcat1 TYPE lvc_t_fcat WITH HEADER LINE.
*LAYOUTs
DATA gs_layout TYPE lvc_s_layo.
DATA gs_layout1 TYPE lvc_s_layo.
DATA pt_exclude TYPE ui_functions. "internal table declaration to be passed.
*DATA pt_cell TYPE lvc_t_cell with header line.
DATA : gt_list LIKE gt_struct OCCURS 50 WITH HEADER LINE,
gt_list1 LIKE gt_struct OCCURS 50 WITH HEADER LINE.
*DATA v_ucomm TYPE sy-ucomm.
CALL SCREEN 100.
*& Module display_alv OUTPUT
text
MODULE display_alv OUTPUT.
PERFORM display_alv.
ENDMODULE. " display_alv OUTPUT
*& Module PAI INPUT
text
MODULE pai INPUT.
CASE sy-ucomm.
WHEN 'EXIT'.
PERFORM exit_program.
WHEN 'PICK'.
PERFORM cell_info.
ENDCASE.
ENDMODULE. " PAI INPUT
*& Form display_alv
text
FORM display_alv.
PERFORM prepare_field_catalog CHANGING gt_fieldcat[].
PERFORM prepare_layout CHANGING gs_layout.
PERFORM data_retrival.
IF gr_alvgrid IS INITIAL.
CREATE OBJECT gr_ccontainer
EXPORTING
container_name = gc_custom_control_name
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
OTHERS = 6.
IF sy-subrc <> 0.
ENDIF.
CREATE OBJECT gr_alvgrid
EXPORTING
I_SHELLSTYLE = 0
I_LIFETIME =
i_parent = gr_ccontainer
I_APPL_EVENTS = space
I_PARENTDBG =
I_APPLOGPARENT =
I_GRAPHICSPARENT =
I_NAME =
I_FCAT_COMPLETE = SPACE
EXCEPTIONS
error_cntl_create = 1
error_cntl_init = 2
error_cntl_link = 3
error_dp_create = 4
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.
PERFORM exclude_tb_functions CHANGING pt_exclude.
PERFORM set_col.
CALL METHOD gr_alvgrid->set_table_for_first_display
EXPORTING
I_BUFFER_ACTIVE =
I_BYPASSING_BUFFER =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME =
IS_VARIANT =
I_SAVE =
I_DEFAULT = 'X'
is_layout = gs_layout
IS_PRINT =
IT_SPECIAL_GROUPS =
it_toolbar_excluding = pt_exclude "excluding toolbar functions
IT_HYPERLINK =
IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =
IR_SALV_ADAPTER =
CHANGING
it_outtab = gt_list[]
it_fieldcatalog = gt_fieldcat[]
IT_SORT =
IT_FILTER =
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
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.
ELSE.
CALL METHOD gr_alvgrid->refresh_table_display
EXPORTING
IS_STABLE =
I_SOFT_REFRESH =
EXCEPTIONS
finished = 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.
ENDIF.
PERFORM prepare_field_catalog1 CHANGING gt_fieldcat1[].
PERFORM prepare_layout1 CHANGING gs_layout1.
PERFORM data_retrival1.
IF gr_alvgrid1 IS INITIAL.
CREATE OBJECT gr_ccontainer1
EXPORTING
container_name = gc_custom_control_name1
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
OTHERS = 6.
IF sy-subrc <> 0.
ENDIF.
CREATE OBJECT gr_alvgrid1
EXPORTING
I_SHELLSTYLE = 0
I_LIFETIME =
i_parent = gr_ccontainer1
I_APPL_EVENTS = space
I_PARENTDBG =
I_APPLOGPARENT =
I_GRAPHICSPARENT =
I_NAME =
I_FCAT_COMPLETE = SPACE
EXCEPTIONS
error_cntl_create = 1
error_cntl_init = 2
error_cntl_link = 3
error_dp_create = 4
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.
PERFORM set_col1.
CALL METHOD gr_alvgrid1->set_table_for_first_display
EXPORTING
I_BUFFER_ACTIVE =
I_BYPASSING_BUFFER =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME =
IS_VARIANT =
I_SAVE =
I_DEFAULT = 'X'
is_layout = gs_layout1
IS_PRINT =
IT_SPECIAL_GROUPS =
IT_TOOLBAR_EXCLUDING =
IT_HYPERLINK =
IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =
IR_SALV_ADAPTER =
CHANGING
it_outtab = gt_list1[]
it_fieldcatalog = gt_fieldcat1[]
IT_SORT =
IT_FILTER =
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
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.
ELSE.
CALL METHOD gr_alvgrid1->refresh_table_display
EXPORTING
IS_STABLE =
I_SOFT_REFRESH =
EXCEPTIONS
finished = 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.
ENDIF.
ENDFORM. "display_alv
*& Form prepare_field_catalog
text
-->GT_FIELDCAT text
FORM prepare_field_catalog CHANGING pgt_fieldcat TYPE lvc_t_fcat.
DATA ls_fieldcat TYPE lvc_s_fcat.
ls_fieldcat-tabname = 'gt_list'.
ls_fieldcat-fieldname = 'CARRID'.
ls_fieldcat-scrtext_m = 'Air line code'.
ls_fieldcat-col_pos = 0.
ls_fieldcat-outputlen = 10.
ls_fieldcat-emphasize = 'C400'.
ls_fieldcat-key = 'X'.
APPEND ls_fieldcat TO pgt_fieldcat.
ls_fieldcat-tabname = 'gt_list'.
ls_fieldcat-col_pos = 1.
ls_fieldcat-fieldname = 'CONNID'.
ls_fieldcat-scrtext_m = 'Connection code'.
ls_fieldcat-emphasize = 'C900'.
APPEND ls_fieldcat TO pgt_fieldcat.
ls_fieldcat-tabname = 'gt_list'.
ls_fieldcat-fieldname = 'PRICE'.
ls_fieldcat-scrtext_m = 'PRICE'.
APPEND ls_fieldcat TO pgt_fieldcat.
ENDFORM. "prepare_field_catalog
*& Form prepare_layout
text
-->GS_LAYOUT text
FORM prepare_layout CHANGING gs_layout TYPE lvc_s_layo.
gs_layout-stylefname = 'FIELD_STYLE'.
gs_layout-zebra = 'X'.
gs_layout-grid_title = 'FLIGHT'.
gs_layout-sel_mode = 'A'.
gs_layout-ctab_fname = 'COLORS'.
ENDFORM. "prepare_layout
*& Form data_retrival
text
FORM data_retrival.
SELECT carrid
connid
price
FROM sflight
INTO CORRESPONDING FIELDS OF TABLE gt_list
UP TO 50 ROWS.
ENDFORM. "data_retrival
FORM EXIT_PROGRAM *
FORM exit_program.
CALL METHOD gr_ccontainer->free.
CALL METHOD gr_ccontainer1->free.
LEAVE TO SCREEN 0.
ENDFORM. "exit_program
*& Module STATUS_0100 OUTPUT
text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STAT'.
SET TITLEBAR 'xxx'.
IF W_CUSTOM_CONTAINER IS INITIAL.
**sets TITLEBAR
PERFORM TITLEBAR.
ENDMODULE. " STATUS_0100 OUTPUT
*& Form prepare_field_catalog1
text
-->GT_FIELDCAT text
FORM prepare_field_catalog1 CHANGING pgt_fieldcat1 TYPE lvc_t_fcat.
DATA ls_fieldcat TYPE lvc_s_fcat.
ls_fieldcat-tabname = 'gt_list1'.
ls_fieldcat-fieldname = 'SEATSMAX'.
ls_fieldcat-scrtext_m = 'MAX. SEATS'.
ls_fieldcat-col_pos = 0.
ls_fieldcat-outputlen = 10.
ls_fieldcat-emphasize = 'C400'.
ls_fieldcat-key = ' '.
APPEND ls_fieldcat TO pgt_fieldcat1.
ls_fieldcat-tabname = 'gt_list1'.
ls_fieldcat-col_pos = 1.
ls_fieldcat-fieldname = 'SEATSOCC'.
ls_fieldcat-scrtext_m = 'SEATS OCCUPIED'.
APPEND ls_fieldcat TO pgt_fieldcat1.
ENDFORM. "prepare_field_catalog
*& Form prepare_layout1
text
-->GS_LAYOUT text
FORM prepare_layout1 CHANGING gs_layout1 TYPE lvc_s_layo.
gs_layout1-stylefname = 'FIELD_STYLE'.
gs_layout1-zebra = 'X'.
gs_layout1-grid_title = 'DETAILS'.
gs_layout-sel_mode = 'C'.
gs_layout1-info_fname = 'RCOL'.
gs_layout-no_toolbar = 'X'.
ENDFORM. "prepare_layout
*& Form data_retrival1
text
FORM data_retrival1.
SELECT seatsmax
seatsocc
FROM sflight
INTO CORRESPONDING FIELDS OF TABLE gt_list1
UP TO 50 ROWS.
ENDFORM. "data_retrival
*& Form exclude_tb_functions
&---- subroutine to exclude toolbar options -
text
-->PT_EXCLUDE text
FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions.
DATA ls_exclude TYPE ui_func.
ls_exclude = cl_gui_alv_grid=>mc_fc_maximum.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_minimum.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_subtot.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_sort.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_sum.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_mb_subtot.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_mb_sum.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_mb_filter.
APPEND ls_exclude TO pt_exclude.
ENDFORM. "data_retrival1
*& Form cell_info
text
FORM cell_info. "CHANGING pt_cell TYPE lvc_t_cell.
DATA lt_cell TYPE lvc_t_cell WITH HEADER LINE.
CALL METHOD gr_alvgrid->get_selected_cells
IMPORTING
et_cell = lt_cell[].
LOOP AT lt_cell.
WRITE : lt_cell-col_id , lt_cell-row_id.
ENDLOOP.
MODIFY pt_cell[] from lt_cell[].
ENDFORM. "cell_info
*& Form set_col
text
FORM set_col .
DATA ls_cellcolor TYPE lvc_s_scol.
LOOP AT gt_list.
IF gt_list-price GT 500.
ls_cellcolor-fname = 'PRICE'.
ls_cellcolor-color-col = 5.
ls_cellcolor-color-int = 1.
ls_cellcolor-color-inv = 0.
APPEND ls_cellcolor TO gt_list-colors.
else.
ls_cellcolor-fname = 'PRICE'.
ls_cellcolor-color-col = 3.
ls_cellcolor-color-int = 1.
APPEND ls_cellcolor TO gt_list-colors.
ENDIF.
MODIFY gt_list.
ENDLOOP.
ENDFORM. "set_col
*& Form set_col1
text
FORM set_col1.
data : ind type sy-tabix,
indx type sy-tabix.
loop at gt_list1.
ind = sy-tabix / 2.
indx = sy-tabix - ind.
if indx eq ind.
gt_list1-rcol = 'C500'.
endif.
MODIFY gt_list1.
endloop.
ENDFORM. "set_col
*FORM TITLEBAR.
*SET TITLEBAR 'TITLE'.
*ENDFORM.
*double click on TITLE and write ur title
Thanks,
Samantak.
Rewards points for useful answers.

How to get the link between mara, ausp, cawn and cawnt tables

hello ABAPERS
i have got a requiremet in that i have to get the relation .
how to get the link between mara, ausp, cawn and cawnt tables and also type how can we get link between char value and char description in cawn and cawnt tables through ausp and mara tables.
I would be very thankful for ur help in advance.
Thanks & Regards.
soni

Hi,
Sample report using the linkage between tables;
report batch_char no standard page heading
 line-size 132
 line-count 58(1)
 message-id mm.
 Report by Batch Characteristic *
Description : Report by Batch Characteristic *
Declaration for Tables
tables: mara, " Material Master
 mard, " Storage Location Data for Material
 t001w, " Plants/Branches
 t001l, " Storage Locations
 cabn, " Characteristics
 inob. " Link between Internal Number and Object
Declaration for Constants
constants : c_klart like ausp-klart value '023', " Class Type
 c_obtab like inob-obtab value 'MCH1', " Database Table
 c_flag type c value 'X', " Flag
 c_c23 type i value '23', " Ratio
Constants for Ratio Categories
 c_13 type p decimals 2 value '13.00', " For Ratio 13
 c_1499 type p decimals 2 value '14.99', " For Ratio 14.99
 c_15 type p decimals 2 value '15.00', " For Ratio 15
 c_1699 type p decimals 2 value '16.99', " For Ratio 16.99
 c_17 type p decimals 2 value '17.00', " For Ratio 17
 c_1899 type p decimals 2 value '18.99', " For Ratio 18.99
 c_19 type p decimals 2 value '19.00', " For Ratio 19
 c_2099 type p decimals 2 value '20.99', " For Ratio 20.99
 c_21 type p decimals 2 value '21.00', " For Ratio 21
 c_2299 type p decimals 2 value '22.99', " For Ratio 22.99
 c_23 type p decimals 2 value '23.00', " For Ratio 23
 c_g23(4) type c value '>=23', " For Ratio >=23
 c_ratio(5) value 'RATIO', " For Ratio
Constants for Storing Selected item field information
 c_cursor1(15) value 'I_OUTPUT1-MEINS', " For Selected Base
 " Unit of Measure
 c_cursor2(15) value 'I_OUTPUT1-MATNR', " For Selected Base
 " Material Number
 c_cursor3(15) value 'I_OUTPUT1-MAKTX', " For Selected Base
 " Material Des.
 c_cursor4(15) value 'I_OUTPUT1-CLABS', "For Selected Base
 " Stock Value
 c_cursor5(15) value 'I_OUTPUT1-ATFLV', " For Selected Base
 " Char.Value (Ratio)
 c_cursor6(5) value 'C_G23'.
Declaration for Global Variables
data : g_exit type c, " Flag
 g_clabs1(16) type c, " Quantity
 g_clabs(18) type c, " Quantity
 g_cursor(15) type c, " Cursor field name
 g_matnr type mara-matnr, " Material Number
 g_werks type mchb-werks, " Plant
 g_atinn(30) type c. " Character.
Declaration for Internal tables
Internal table to hold Batch Stock data
data : begin of i_mchb occurs 0,
 matnr like mchb-matnr, " Material Number
 werks like mchb-werks, " Plant
 lgort like mchb-lgort, " Storage Location
 charg like mchb-charg, " Batch Number
 clabs like mchb-clabs, " Stock Value
 meins like mara-meins, " Unit of measure
 atflo like ausp-atflv, " Char.Value (Ratio)
 atflv like ausp-atflv, " Char.Value (Ratio)
 end of i_mchb.
Internal table to hold Secondary List data
data : begin of i_mchb1 occurs 0,
 werks like mchb-werks, " Plant
 matnr like mchb-matnr, " Material Number
 lgort like mchb-lgort, " Storage Location
 charg like mchb-charg, " Batch Number
 atinn like ausp-atinn, " Char.Value
 clabs like mchb-clabs, " Stock Value
 atflo like ausp-atflv, " Char.Value (Ratio)
 atflv like ausp-atflv, " Char.Value (Ratio)
 end of i_mchb1.
Internal table to get the Plant Name
data : begin of i_plant occurs 0,
 werks like t001w-werks, " Plant
 name1 like t001w-name1, " Name
 end of i_plant.
Internal table to get the Material Description
data : begin of i_makt occurs 0,
 matnr like makt-matnr, " Material
 maktx like makt-maktx, " Description
 end of i_makt.
Internal table to hold AUSP data
data : begin of i_ausp occurs 0,
 objek like ausp-objek, " Object No
 atinn like cabn-atinn, " Characteric value
 atflv like ausp-atflv, " Characteristic Value
 end of i_ausp.
Internal table to hold output data
data : begin of i_output occurs 0,
 atinn like cabn-atinn, " Characteric value
 werks like mchb-werks, " Plant
 matnr like mchb-matnr, " Material Number
 atnam like cabn-atnam, " Characteristic
 atflv like ausp-atflv, " Char.Value (Ratio)
 name1 like t001w-name1, " Plant Description
 maktx like makt-maktx, " Material Description
 clabs like mchb-clabs, " Stock Value
 meins like mara-meins, " Base Unit of Measure
 end of i_output.
Internal table to hold final Output data
data : begin of i_output1 occurs 0,
 atinn like cabn-atinn, " Characteric value
 werks like mchb-werks, " Plant
 matnr like mchb-matnr, " Material Number
 atnam like cabn-atnam, " Characteristic
 atflv(32) type c, " Char.Value (Ratio)
 name1 like t001w-name1, " Plant Description
 maktx like makt-maktx, " Material Description
 clabs like mchb-clabs, " Stock Value
 meins like mara-meins, " Base Unit of Measure
 end of i_output1.
 Selection screen
selection-screen begin of block b1 with frame title text-001.
select-options: s_werks for t001w-werks obligatory, " Plant
 s_lgort for t001l-lgort, " Stor.Location
 s_matnr for mara-matnr obligatory, " Material No
 s_atinn for cabn-atinn. " Character.
selection-screen end of block b1.
At selection screen
at selection-screen.
Validation of Selection Screen Fields
perform validate_screen.
Start of selection
start-of-selection.
Get the Material and Batch Stock data from MARA and MCHB Tables
perform get_mat_stock_data.
Get the Material Group Text and Plant Name from T023T and T001W Tables
perform get_plant_grp_data.
Append the data into final Output Internal Table after getting the
Characteristic Values data from INOB and AUSP Tables
perform append_final_data.
Processing if the Characteristics contain 'RATIO'
perform collect_ratio.
End-of-Page
end-of-page.
write /1(125) sy-uline.
End of selection
end-of-selection.
if g_exit <> c_flag.
Display the Report Output data
 perform display_report.
endif.
Top-of-Page
top-of-page.
Write the Report and Column Headings
perform get_headings.
at line-selection
at line-selection.
if sy-lsind = 1.
 perform display_batch.
endif.
Top of page during line-selection
top-of-page during line-selection.
perform heading_seclist.
 Form validate_screen
Validation of Selection Screen fields
form validate_screen.
Validation of Plant
clear t001w.
if not s_werks[] is initial.
 select werks
 into t001w-werks
 from t001w
 up to 1 rows
 where werks in s_werks.
 endselect.
 if sy-subrc <> 0.
 message e899 with 'Enter Valid Plant'(002).
 endif.
endif.
Validation of Material Number
clear mara.
if not s_matnr[] is initial.
 select matnr
 into mara-matnr
 from mara
 up to 1 rows
 where matnr in s_matnr.
 endselect.
 if sy-subrc <> 0.
 message e899 with 'Enter Valid Material'(003).
 endif.
endif.
Validation of Storage Location
clear t001l.
if not s_lgort[] is initial.
 select lgort
 into t001l-lgort
 from t001l
 up to 1 rows
 where lgort in s_lgort.
 endselect.
 if sy-subrc <> 0.
 message e899 with 'Enter Valid Storage Location'(004).
 endif.
endif.
Validation of Characteristic Value
clear cabn.
if not s_atinn[] is initial.
 select atinn
 into cabn-atinn
 from cabn
 up to 1 rows
 where atinn in s_atinn.
 endselect.
 if sy-subrc <> 0.
 message e899 with 'Enter Valid Characteristic Value'(005).
 endif.
endif.
Validation of Plant, Material and Storage Location
clear mard.
select matnr werks lgort
 into (mard-matnr, mard-werks, mard-lgort)
 from mard
 up to 1 rows
 where matnr in s_matnr and
 werks in s_werks and
 lgort in s_lgort.
endselect.
if sy-subrc <> 0.
 message e899 with 'No Data found for the Selection Criteria'(006).
endif.
endform. "validate_screen
*& Form get_headings
Write the Report and Column Headings
form get_headings.
data: l_repid type sy-repid.
l_repid = sy-repid.
call function 'Y_STANDARD_HEADING'
 exporting
 repid = l_repid
 heading1 = sy-title.
write:/1(125) sy-uline.
format color col_heading on.
write : /1 sy-vline, 2(18) 'Material Number'(008) centered,
 20 sy-vline, 21(40) 'Material Description'(011) centered,
 61 sy-vline, 62(22) 'Ratio'(009) centered,
 84 sy-vline, 85(18) 'Quantity'(010) centered,
 103 sy-vline, 104(20) 'Base Unit of Measure'(015) centered,
 125 sy-vline.
write:/1(125) sy-uline.
format color off.
endform. "get_headings
*& Form get_mat_stock_data
Get the Material and Batch Stock data from MARA and MCHB Tables
form get_mat_stock_data.
clear: i_mchb,i_output, i_output1.
refresh: i_mchb,i_output, i_output1.
select a~matnr " Material Number
 b~werks " Plant
 b~lgort " Storage Location
 b~charg " Batch Number
 b~clabs " Stock Value
 a~meins " Base Unit of Measure
 into table i_mchb
 from mara as a inner join mchb as b
 on amatnr eq bmatnr
 where b~matnr in s_matnr and
 b~werks in s_werks and
 b~lgort in s_lgort.
if sy-subrc <> 0.
 g_exit = c_flag.
 message s899 with 'No Data found for the Selection Criteria'(006).
 stop.
endif.
sort i_mchb by matnr werks lgort charg.
endform. " get_mat_stock_data
*& Form get_plant_grp_data
Get the Material Group Text and Plant Name from T023T and T001W
form get_plant_grp_data.
if not i_mchb[] is initial.
Get the Plant Description from t001w Table
 clear i_plant.
 refresh i_plant.
 select werks " Plant
 name1 " Name
 into table i_plant
 from t001w
 for all entries in i_mchb
 where werks = i_mchb-werks.
Get the Material Description from MAKT Table
 clear i_makt.
 refresh i_makt.
 select matnr " Material number
 maktx " Material Description
 into table i_makt
 from makt
 for all entries in i_mchb
 where matnr = i_mchb-matnr and
 spras = sy-langu.
 sort i_plant by werks.
 delete adjacent duplicates from i_plant comparing werks.
 sort i_makt by matnr.
 delete adjacent duplicates from i_makt comparing matnr.
endif.
endform. "form get_plant_grp_data.
*& Form append_final_data
Append the data into final Internal Table
form append_final_data.
data : l_matbatch(28),
 l_tabix like sy-tabix.
if not i_mchb[] is initial.
 loop at i_mchb.
 l_tabix = sy-tabix.
 clear l_matbatch.
 concatenate i_mchb-matnr i_mchb-charg into l_matbatch.
 move-corresponding i_mchb to i_output.
Get the Plant Description from i_plant Table
 read table i_plant with key werks = i_mchb-werks binary search.
 if sy-subrc = 0.
 i_output-name1 = i_plant-name1.
 endif.
Get the Material Description from i_makt Table
 read table i_makt with key matnr = i_mchb-matnr binary search.
 if sy-subrc = 0.
 i_output-maktx = i_makt-maktx.
 endif.
Get the Characteristic Values data from INOB and AUSP Tables
 clear inob.
 select single cuobj from inob
 into inob-cuobj
 where klart = c_klart and
 obtab = c_obtab and
 objek = l_matbatch.
 if sy-subrc = 0.
 select objek
 atinn
 atflv
 from ausp
 into table i_ausp
 where objek = inob-cuobj and
 atinn in s_atinn and
 klart = c_klart.
 sort i_ausp by objek atinn.
 loop at i_ausp.
 clear cabn.
 select single atinn atnam from cabn
 into (cabn-atinn,cabn-atnam)
 where atinn = i_ausp-atinn.
 if sy-subrc = 0.
If the ratio value is between 13-14.99, display 13
 if cabn-atnam cs c_ratio.
 if i_ausp-atflv between c_13 and c_1499.
 i_mchb-atflo = i_ausp-atflv.
 i_mchb-atflv = c_13.
If the ratio value is between 15-16.99, display 15
 elseif i_ausp-atflv between c_15 and c_1699.
 i_mchb-atflo = i_ausp-atflv.
 i_mchb-atflv = c_15.
If the ratio value is between 17-18.99, display 17
 elseif i_ausp-atflv between c_17 and c_1899.
 i_mchb-atflo = i_ausp-atflv.
 i_mchb-atflv = c_17.
If the ratio value is between 19-20.99, display 19
 elseif i_ausp-atflv between c_19 and c_2099.
 i_mchb-atflo = i_ausp-atflv.
 i_mchb-atflv = c_19.
If the ratio value is between 21-22.99, display 21
 elseif i_ausp-atflv between c_21 and c_2299.
 i_mchb-atflo = i_ausp-atflv.
 i_mchb-atflv = c_21.
If the ratio value is greater than or equal to 23, display 23
 elseif i_ausp-atflv >= c_23.
 i_mchb-atflo = i_ausp-atflv.
 i_mchb-atflv = c_23.
 endif. " Condition for RATIO values
 else. " If characteristic does contain RATIO
 i_mchb-atflv = i_ausp-atflv.
 endif.
 i_output-atinn = cabn-atinn.
 i_output-atnam = cabn-atnam.
 i_output-atflv = i_ausp-atflv.
 i_mchb1-matnr = i_mchb-matnr.
 i_mchb1-werks = i_mchb-werks.
 i_mchb1-lgort = i_mchb-lgort.
 i_mchb1-charg = i_mchb-charg.
 i_mchb1-clabs = i_mchb-clabs.
 i_mchb1-atinn = i_ausp-atinn.
 i_mchb1-atflo = i_mchb-atflv.
 i_mchb1-atflv = i_ausp-atflv.
 append : i_output, i_mchb1.
 clear i_mchb1.
 modify i_mchb index l_tabix transporting atflo atflv .
 endif.
 endloop.
 endif.
 endloop.
endif.
Checking whether the table is filled or not
if not i_output[] is initial.
 sort i_output by atinn werks matnr atflv.
else.
 g_exit = c_flag.
 message s899 with 'No Data found for the Selection Criteria'(006).
endif.
Delete the records where RATIO is less than 13.
delete i_output where atnam cs c_ratio and atflv lt c_13.
endform. "append_final_data
*& Form display_report
Display the Report Output data
form display_report.
data: l_tabix like sy-tabix.
loop at i_output1.
 l_tabix = sy-tabix.
At new Characteristic
 at new atinn.
 read table i_output1 index l_tabix.
 format color 1 intensified on.
 write: /1 sy-vline, 2(20) 'Characteristic Name:'(007),
 23(40) i_output1-atnam,
 125 sy-vline.
 format color off.
 format color 4 intensified on.
 write: /1 sy-vline, 2(20) 'Plant Name :'(022),
 23(4) i_output1-werks, 29(30) i_output1-name1,
 125 sy-vline.
 format color off.
 write /1(125) sy-uline.
 endat.
 clear: g_clabs, g_clabs1.
 format color col_normal.
 write :/1 sy-vline, 2(18) i_output1-matnr,
 20 sy-vline, 21(40) i_output1-maktx,
 61 sy-vline.
 if i_output1-atflv = c_c23.
 write: 62(22) c_g23 centered.
 else.
 shift i_output1-atflv left deleting leading space.
 write: 62(22) i_output1-atflv centered.
 endif.
 write: 84 sy-vline,
 103 sy-vline,
 110(5) i_output1-meins.
If the quantity value is negative
 if i_output1-clabs ge 0.
 write: 85(18) i_output1-clabs unit i_mchb-meins,
 125 sy-vline.
 else.
 i_output1-clabs = - i_output1-clabs.
 write i_output1-clabs unit i_mchb-meins to g_clabs1.
 condense g_clabs1.
 concatenate '(' g_clabs1 ')' into g_clabs separated by space.
 write: 85(18) g_clabs right-justified,
 125 sy-vline.
 endif.
 format color off.
 hide : i_output1.
 new-line.
At end of material
 at end of matnr.
 sum.
 move : i_output1-matnr to g_matnr.
 format color 3 intensified on.
 write /1(125) sy-uline.
 write :/1 sy-vline, 2(25) 'Total for Material :'(012),
 28(18) g_matnr.
 if i_output1-clabs ge 0.
 write: 85(18) i_output1-clabs unit i_mchb-meins,
 125 sy-vline.
 else.
 i_output1-clabs = - i_output1-clabs.
 write i_output1-clabs unit i_mchb-meins to g_clabs1.
 condense g_clabs1.
 concatenate '(' g_clabs1 ')' into g_clabs separated by space.
 write: 85(18) g_clabs right-justified,
 125 sy-vline.
 endif.
 write: 125 sy-vline.
 format color off.
 write /1(125) sy-uline.
 endat.
At end of plant
 at end of werks.
 sum.
 move : i_output1-werks to g_werks.
 format color 3 intensified off.
 write :/1 sy-vline, 2(25) 'Total for Plant :'(013),
 28(4) g_werks.
 if i_output1-clabs ge 0.
 write: 85(18) i_output1-clabs unit i_mchb-meins,
 125 sy-vline.
 else.
 i_output1-clabs = - i_output1-clabs.
 write i_output1-clabs unit i_mchb-meins to g_clabs1.
 condense g_clabs1.
 concatenate '(' g_clabs1 ')' into g_clabs separated by space.
 write: 85(18) g_clabs right-justified,
 125 sy-vline.
 endif.
 format color off.
 write /1(125) sy-uline.
 endat.
At end of characteristic
 at end of atinn.
 read table i_output1 index l_tabix.
 sum.
 format color 3 intensified on.
 write :/1 sy-vline, 2(25) 'Total for Characteristic:'(014),
 28(25) i_output1-atnam.
 if i_output1-clabs ge 0.
 write: 85(18) i_output1-clabs unit i_mchb-meins,
 125 sy-vline.
 else.
 i_output1-clabs = - i_output1-clabs.
 write i_output1-clabs unit i_mchb-meins to g_clabs1.
 condense g_clabs1.
 concatenate '(' g_clabs1 ')' into g_clabs separated by space.
 write: 85(18) g_clabs right-justified,
 125 sy-vline.
 endif.
 format color off.
 write /1(125) sy-uline.
 endat.
endloop.
endform. " display_report
*& Form DISPLAY_BATCH
 Display the batch details for the seclected material *
form display_batch.
Get the batch details for the selected material
get cursor field g_cursor.
if g_cursor = c_cursor1 or
 g_cursor = c_cursor2 or
 g_cursor = c_cursor3 or
 g_cursor = c_cursor4 or
 g_cursor = c_cursor5 or
 g_cursor = c_cursor6.
 format color 3.
 write: /1 sy-vline,
 2(17) 'Material Number :'(020),
 20(17) i_output1-matnr,
 94 sy-vline.
 format color off.
 write /1(94) sy-uline.
 loop at i_mchb1 where matnr = i_output1-matnr and
 atinn = i_output1-atinn and
 atflo = i_output1-atflv.
 format color col_normal.
 shift i_mchb1-charg left deleting leading '0'.
 write :/1 sy-vline, 2(16) i_mchb1-lgort centered,
 18 sy-vline, 19(17) i_mchb1-charg centered,
 36 sy-vline.
 if i_output1-atnam cs c_ratio.
 write: 37(29) i_mchb1-atflv
 exponent 0 decimals 2 centered.
 else.
 write : 37(29) i_mchb1-atflv
 exponent 0 decimals 0 centered.
 endif.
 write : 66 sy-vline, 67(27) i_mchb1-clabs unit i_mchb-meins,
 94 sy-vline.
 format color off.
 endloop.
 write /1(94) sy-uline.
else.
 message s899 with 'Invalid cursor position'(016).
 exit.
endif.
endform. " DISPLAY_BATCH
*& Form HEADING_SECLIST
 Write the Column Headings for Interactive Report
form heading_seclist.
write /1(94) sy-uline.
format color col_heading on.
write :/1 sy-vline, 2(16) 'Storage Location'(021),
 18 sy-vline, 19(17) 'Batch Number'(017) centered,
 36 sy-vline, 37(29) 'Characteristic Value'(018) centered,
 66 sy-vline, 67(27) 'Quantity'(019) centered,
 94 sy-vline.
write /1(94) sy-uline.
format color off.
endform. " HEADING_SECLIST
*& Form COLLECT_RATIO
 Display the Characteristic ratio data
form collect_ratio.
loop at i_output.
 clear g_atinn.
 i_output1-atinn = i_output-atinn.
 i_output1-atnam = i_output-atnam .
 i_output1-werks = i_output-werks.
 i_output1-name1 = i_output-name1.
 i_output1-matnr = i_output-matnr.
 i_output1-maktx = i_output-maktx.
 i_output1-clabs = i_output-clabs.
 i_output1-meins = i_output-meins.
 call function 'CONVERSION_EXIT_ATINN_OUTPUT'
 exporting
 input = i_output-atinn
 importing
 output = g_atinn.
 if g_atinn cs c_ratio.
If the ratio value is between 13-14.99, display 13
 if i_output-atflv between c_13 and c_1499.
 i_output1-atflv = c_13.
If the ratio value is between 15-16.99, display 15
 elseif i_output-atflv between c_15 and c_1699.
 i_output1-atflv = c_15.
If the ratio value is between 17-18.99, display 17
 elseif i_output-atflv between c_17 and c_1899.
 i_output1-atflv = c_17.
If the ratio value is between 19-20.99, display 19
 elseif i_output-atflv between c_19 and c_2099.
 i_output1-atflv = c_19.
If the ratio value is between 21-22.99, display 21
 elseif i_output-atflv between c_21 and c_2299.
 i_output1-atflv = c_21.
If the ratio value is greater than or equal to 23, display 23
 elseif i_output-atflv >= c_23.
 i_output1-atflv = c_23.
 endif.
 write i_output1-atflv to i_output1-atflv .
 else.
 write i_output-atflv to i_output1-atflv exponent 0 decimals 0.
 endif.
 collect i_output1.
 clear i_output1.
endloop.
sort i_output1 by atinn werks matnr atflv.
endform. " COLLECT_RATIO
Reward if useful..
Regards,
Anji

Classes and DB tables

Similar Messages

Maybe you are looking for