How to write comments for a class

hi
how to write comments for a class

I'm reeling with incredulity, and as such am unable to do anything except just post some code
// this is a single line comment
/* this is a multiline comment.
it can be spread over as many lines as you
want */Or are you asking about how to decide what the content should be?

Similar Messages

How to write procedure for creating a row

Hi
How to write procedure for creating a new row in data table when button clicked.

Hi
I am able to create a row.by writing a method in Application module class.
method for creating a row in fin_years view:
public void createRow() {
Row newRow = (Row)getFinYearsView1().createRow();
newRow.setNewRowState(Row.STATUS_INITIALIZED);
//get instance of the above created view object
ViewObjectImpl vo=getFinYearsView1();
// to insert row at the end of the table
vo.insertRowAtRangeIndex(vo.getRangeSize()-1, (Row)newRow);
System.out.println(getFinYearsView1().getCurrentRowIndex());
but it doest not create row at last in the data table.Instead it insert row in middle..

How to write code for font family using swing?

how to write code for font family using swing?
i tried this code.but i got only font styles.but i need font family.observ this code
import java.awt.*;
import java.awt.event.*;
public class fontSelect extends java.awt.Dialog implements AdjustmentListener, ItemListener, TextListener, ActionListener {
public Font selectedFont; //to get result
public boolean isSelected = false;
public Color selectedBackground, selectedForeground;
     public fontSelect(Frame parent, boolean modal) {
          super(parent, modal);
     String fntName[] = getToolkit().getFontList();
GraphicsEnvironment ge = GraphicsEnvironment.getLocalGraphicsEnvironment();
String[] names = ge.getAvailableFontFamilyNames();
          //{{INIT_CONTROLS
          setLayout(null);
          setVisible(false);
//setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
          setSize(insets().left + insets().right + 380,insets().top + insets().bottom + 282);
          setBackground(java.awt.Color.lightGray);
fontList = new java.awt.Choice();
          //fontList = new java.awt.List(0,false);
          add(fontList);
          fontList.setBounds(insets().left +25,insets().top + 50,137,144);
          //label1 = new java.awt.Label("Example:-");
          //label1.setBounds(insets().left + 220,insets().top + 36,84,30);
          //add(label1);
          exampleText = new java.awt.TextField();
          //exampleText.setText("sample string ");
          //exampleText.setBounds(insets().left + 40,insets().top + 50,84,21);
          //add(exampleText);
          label2 = new java.awt.Label("Font Family:-");
          label2.setBounds(insets().left + 25,insets().top + 30,70,19);
          add(label2);
          isBold = new java.awt.Checkbox("Bold");
          isBold.setBounds(insets().left + 320,insets().top + 90,60,18);
          isBold.setFont(new Font("Times New Roman", Font.BOLD, 12));
          add(isBold);
          isItalic = new java.awt.Checkbox("Italic");
          isItalic.setBounds(insets().left + 250,insets().top + 90,48,17);
          isItalic.setFont(new Font("Times New Roman", Font.ITALIC, 12));
          add(isItalic);
          showFont = new java.awt.Label("samplestring ",Label.CENTER);
          showFont.setBounds(insets().left + 240,insets().top +50,120,30);
          showFont.setBackground(java.awt.Color.white);
          add(showFont);
label11 = new java.awt.Label("Size:-");
          label11.setBounds(insets().left + 290,insets().top + 120,70,19);
          add(label11);
          fontSize = new java.awt.Choice();
add(fontSize);
          //label11 = new java.awt.Label("Example string");
          fontSize.setBounds(insets().left + 290,insets().top + 140,60,23);
          fontSize.setBackground(java.awt.Color.white);
          btnSelect = new java.awt.Button();
          btnSelect.setLabel("Select");
          btnSelect.setBounds(insets().left + 280,insets().top + 190,87,24);
          add(btnSelect);
          btnCancel = new java.awt.Button();
          btnCancel.setLabel("Cancel");
          btnCancel.setBounds(insets().left + 280,insets().top + 230,91,24);
          add(btnCancel);
          label3 = new java.awt.Label("Background:-");
          label3.setBounds(insets().left + 24,insets().top + 90,94,18);
          add(label3);
          rBackground = new java.awt.Scrollbar(Scrollbar.HORIZONTAL,255,0,0,255);
          rBackground.setBounds(insets().left + 24,insets().top +110 ,197,21);
          add(rBackground);
          gBackground = new java.awt.Scrollbar(Scrollbar.HORIZONTAL,255,0,0,255);
          gBackground.setBounds(insets().left + 24,insets().top + 135,197,21);
          add(gBackground);
          bBackground = new java.awt.Scrollbar(Scrollbar.HORIZONTAL,255,0,0,255);
          bBackground.setBounds(insets().left + 24,insets().top + 160,197,21);
          add(bBackground);
          label4 = new java.awt.Label("R");
          label4.setBounds(insets().left + 12,insets().top + 110,12,18);
          label4.setFont(new Font("Times New Roman", Font.BOLD, 12));
          label4.setForeground(java.awt.Color.red);
          add(label4);
          label5 = new java.awt.Label("G");
          label5.setBounds(insets().left + 12,insets().top + 135,12,18);
          label5.setFont(new Font("Times New Roman", Font.BOLD, 12));
          label5.setForeground(new Color(-16744448));
          add(label5);
          label6 = new java.awt.Label("B");
          label6.setBounds(insets().left + 12,insets().top + 160,12,18);
          label6.setFont(new Font("Times New Roman", Font.BOLD, 12));
          label6.setForeground(java.awt.Color.blue);
          add(label6);
          rBackValue = new java.awt.Label("255");
          rBackValue.setBounds(insets().left + 225,insets().top + 110,24,12);
          rBackValue.setFont(new Font("Times New Roman", Font.BOLD, 12));
          rBackValue.setForeground(java.awt.Color.red);
          add(rBackValue);
          gBackValue = new java.awt.Label("255");
          gBackValue.setBounds(insets().left + 225,insets().top + 135,24,12);
          gBackValue.setFont(new Font("Times New Roman", Font.BOLD, 12));
          gBackValue.setForeground(new Color(-16744384));
          add(gBackValue);
          bBackValue = new java.awt.Label("255");
          bBackValue.setBounds(insets().left + 225,insets().top + 160,24,12);
          bBackValue.setFont(new Font("Times New Roman", Font.BOLD, 12));
          bBackValue.setForeground(java.awt.Color.blue);
          add(bBackValue);
          label7 = new java.awt.Label("Foreground:-");
          label7.setBounds(insets().left + 20,insets().top + 185,94,18);
          add(label7);
          rForeground = new java.awt.Scrollbar(Scrollbar.HORIZONTAL,0,0,0,255);
          rForeground.setBounds(insets().left + 20,insets().top + 205,197,21);
          add(rForeground);
          gForeground = new java.awt.Scrollbar(Scrollbar.HORIZONTAL,0,0,0,255);
          gForeground.setBounds(insets().left + 20,insets().top + 230,197,21);
          add(gForeground);
          bForeground = new java.awt.Scrollbar(Scrollbar.HORIZONTAL,0,0,0,255);
          bForeground.setBounds(insets().left + 20,insets().top + 255,197,21);
          add(bForeground);
          label8 = new java.awt.Label("R");
          label8.setBounds(insets().left + 10,insets().top + 205,12,18);
          label8.setFont(new Font("Times New Roman", Font.BOLD, 12));
          label8.setForeground(java.awt.Color.red);
          add(label8);
          label9 = new java.awt.Label("G");
          label9.setBounds(insets().left + 10,insets().top + 230,12,18);
          label9.setFont(new Font("Times New Roman", Font.BOLD, 12));
          label9.setForeground(new Color(-16744448));
          add(label9);
          label10 = new java.awt.Label("B");
          label10.setBounds(insets().left + 10,insets().top + 255,12,18);
          label10.setFont(new Font("Times New Roman", Font.BOLD, 12));
          label10.setForeground(java.awt.Color.blue);
          add(label10);
          rForeValue = new java.awt.Label("255");
          rForeValue.setBounds(insets().left + 220,insets().top + 205,24,12);
          rForeValue.setFont(new Font("Times New Roman", Font.BOLD, 12));
          rForeValue.setForeground(java.awt.Color.red);
          add(rForeValue);
          gForeValue = new java.awt.Label("255");
          gForeValue.setBounds(insets().left + 220,insets().top + 230,24,12);
          gForeValue.setFont(new Font("Times New Roman", Font.BOLD, 12));
          gForeValue.setForeground(new Color(-16744384));
          add(gForeValue);
          bForeValue = new java.awt.Label("255");
          bForeValue.setBounds(insets().left + 220,insets().top + 255,24,12);
          bForeValue.setFont(new Font("Times New Roman", Font.BOLD, 12));
          bForeValue.setForeground(java.awt.Color.blue);
          add(bForeValue);
          setTitle("Choosing font");
          //{{REGISTER_LISTENERS
          exampleText.addTextListener(this);
          btnSelect.addActionListener(this);
          btnCancel.addActionListener(this);
          isBold.addItemListener(this);
          fontList.addItemListener(this);
          isItalic.addItemListener(this);
          fontSize.addItemListener(this);
          rBackground.addAdjustmentListener(this);
          gBackground.addAdjustmentListener(this);
          bBackground.addAdjustmentListener(this);
          rForeground.addAdjustmentListener(this);
          gForeground.addAdjustmentListener(this);
          bForeground.addAdjustmentListener(this);
for (int i = 0; i < (int)fntName.length; i++)
fontList.addItem(fntName);
          showFont.setFont(new Font(fntName[0], Font.PLAIN, 12));
// GraphicsEnvironment ge = GraphicsEnvironment.getLocalGraphicsEnvironment();
//String[] names = ge.getAvailableFontFamilyNames();
for ( int i=0; i<names.length; i++ )
System.out.println( names[i] );
          selectedBackground = showFont.getBackground();
          selectedForeground = showFont.getForeground();
          int i = 8;
          do {
               fontSize.addItem(""+i);
               if (i<=30) i+=2;
               else if (i<=70) i+=4;
               else i+=8;
          } while (i<150);
          try {
               fontSize.select(2);
          } catch (IllegalArgumentException e) { }
     //{{DECLARE_CONTROLS
     //java.awt.List fontList;
java.awt.Label label11;
     java.awt.Label label1;
     java.awt.TextField exampleText;
     java.awt.Label label2;
     java.awt.Checkbox isBold;
     java.awt.Checkbox isItalic;
     java.awt.Label showFont;
     java.awt.Choice fontSize;
java.awt.Choice fontList;
     java.awt.Button btnSelect;
     java.awt.Button btnCancel;
     java.awt.Label label3;
     java.awt.Scrollbar rBackground;
     java.awt.Scrollbar gBackground;
     java.awt.Scrollbar bBackground;
     java.awt.Label label4;
     java.awt.Label label5;
     java.awt.Label label6;
     java.awt.Label rBackValue;
     java.awt.Label gBackValue;
     java.awt.Label bBackValue;
     java.awt.Label label7;
     java.awt.Scrollbar rForeground;
     java.awt.Scrollbar gForeground;
     java.awt.Scrollbar bForeground;
     java.awt.Label label8;
     java.awt.Label label9;
     java.awt.Label label10;
     java.awt.Label rForeValue;
     java.awt.Label gForeValue;
     java.awt.Label bForeValue;
private Font constructFont() {
int l;
try {
l = Integer.parseInt(fontSize.getSelectedItem());
} catch (NumberFormatException e) {l = 12;}
selectedFont = new Font(fontList.getItem(fontList.getSelectedIndex()>=0?fontList.getSelectedIndex():0 ), (isBold.getState()?Font.BOLD:0)+(isItalic.getState()?Font.ITALIC:0), l);
selectedBackground = new Color(rBackground.getValue(), gBackground.getValue(), bBackground.getValue());
selectedForeground = new Color(rForeground.getValue(), gForeground.getValue(), bForeground.getValue());
return (selectedFont);
     public void textValueChanged(java.awt.event.TextEvent event) {
          Object object = event.getSource();
          if (object == exampleText) showFont.setText(exampleText.getText());
     public void actionPerformed(java.awt.event.ActionEvent event) {
          Object object = event.getSource();
          if (object == btnSelect) {
isSelected = true;
selectedFont = constructFont();
     dispose();
} else if (object == btnCancel) {
     selectedFont = null;
selectedBackground = null;
selectedForeground = null;
dispose();
     public void itemStateChanged(java.awt.event.ItemEvent event) {
          Object object = event.getSource();
          if (object == isBold) showFont.setFont(constructFont());
          else if (object == fontList) showFont.setFont(constructFont());
          else if (object == isItalic) showFont.setFont(constructFont());
          else if (object == fontSize) showFont.setFont(constructFont());
     public void adjustmentValueChanged(java.awt.event.AdjustmentEvent event)
          Object object = event.getSource();
constructFont();
showFont.setBackground(new Color(rBackground.getValue(), gBackground.getValue(), bBackground.getValue()));
showFont.setForeground(new Color(rForeground.getValue(), gForeground.getValue(), bForeground.getValue()));
if (object == rBackground) rBackValue.setText(""+rBackground.getValue());
          else if (object == gBackground) gBackValue.setText(""+gBackground.getValue());
          else if (object == bBackground) bBackValue.setText(""+bBackground.getValue());
          else if (object == rForeground) rForeValue.setText(""+rForeground.getValue());
          else if (object == gForeground) gForeValue.setText(""+gForeground.getValue());
          else if (object == bForeground) bForeValue.setText(""+bForeground.getValue());

Okay, that's better. It would have been nice if the code was formatted, and if there was about 20% of that code. (Your example could have been just one JLabel and nothing else, for example.)
Anyway, now that you've posted that code, what is your question about it? I see you are calling a "getAvailableFontFamilyNames" method; do you have a question about that? If so, what is the question?

How to write code for save file directory?

how to write code for save file directory?

how to find usa timezone code using java swing?
i have some code help me
public class ItsInitializer {
private static boolean s_initialized = false;
private ItsInitializer() {
public static synchronized void initialize() {
if (!s_initialized) {
// Modifies default time zone, disables Daylight Saving Time.
TimeZone l_defaultTimeZone = TimeZone.getDefault();
int l_rawOffset = l_defaultTimeZone.getRawOffset();
String l_id = l_defaultTimeZone.getID();
SimpleTimeZone l_simpleTimeZone = new SimpleTimeZone(l_rawOffset,
l_id,
0,
0,
0,
0,
0,
0,
0,
0);
TimeZone.setDefault(l_simpleTimeZone);
s_initialized = true;
2.
long timeMillis = ...;
long time = timeMillis / 1000;
String seconds = Integer.toString((int)(time % 60));
String minutes = Integer.toString((int)((time % 3600) / 60));
String hours = Integer.toString((int)(time / 3600));
for (int i = 0; i < 2; i++) {
     if (seconds.length() < 2) {
          seconds = "0" + seconds;
     if (minutes.length() < 2) {
          minutes = "0" + minutes;
     if (hours.length() < 2) {
          hours = "0" + hours;
3.
import java.text.SimpleDateFormat;
import java.util.Date;
public class Convert {
public String getDateTime(String pattern){
SimpleDateFormat sdf = new SimpleDateFormat(pattern);
return sdf.format(new Date());
* @param args
public static void main(String[] args) {
Convert con = new Convert();
System.out.println(con.getDateTime("hh:mm:ss"));
5.import java.text.SimpleDateFormat;
import java.util.Date;
public class Convert {
public String getDateTime(String pattern){
SimpleDateFormat sdf = new SimpleDateFormat(pattern);
return sdf.format(new Date());
* @param args
public static void main(String[] args) {
Convert con = new Convert();
System.out.println(con.getDateTime("hh:mm:ss"));
[ November 23, 2005: Mess
private Locale locale = Locale.US;
private static final String[] tzStrings = {
"America/New_York",
"America/Chicago",
"America/Denver",
"America/Los_Angeles",
Date now = new Date();
for ( TimeZone z : zones) {
DateFormat df = new SimpleDateFormat("K:mm a,z", locale);
df.setTimeZone(z);
String result = df.format(now);
System.out.println(result);
String date="05/19/2008 04:30 AM (EST)";
               SimpleDateFormat sdf = new SimpleDateFormat("MM/dd/yyyy hh:mm aaa (z)");
               TimeZone.setDefault(TimeZone.getTimeZone("PST"));
               long millis = sdf.parse(date).getTime();
               sdf.setTimeZone(TimeZone.getDefault());
               System.out.println(sdf.format(new Date(millis)));
[ November 23, 2005: Mes

How to write query for this in TopLink ?

I am doing a simple search in jsp where the search will the based on the choices chosen by user.
I had given 3 check boxes for those choices.
The problem is, query will be based on the choice or choices chosed by the user.
How to write query for this in TopLink ?
Thanks in Advance..
Jayaganesh

Try below solution, it is NOT best solution but might work:
Declare @Questions TABLE (QuestionID INT, QuestionText Varchar(100))
INSERT INTO @Questions
VALUES (1, 'Comment'), (2, 'Score')
DECLARE @Answers TABLE (authkey INT, QuestionID INT, questiontext VARCHAR(100), answertext VARCHAR(100))
INSERT INTO @Answers
VALUES (101, 1, 'comment', 'hi!!'), (101, 2, 'score', '4'), (102, 1, 'comment', 'excellent'), (102, 2, 'score', '5'), (103, 2, 'score', '6'), (104, 2, 'score', '8')
SELECT
A.AuthKey
,Q.QuestionID
,Q.QuestionText
,A.AnswerText
FROM
@Questions Q
INNER JOIN @Answers A ON Q.QuestionID = A.QuestionID
UNION
SELECT
A.AuthKey
,Q.QuestionID
,Q.QuestionText
,Null
FROM
@Questions Q
CROSS JOIN @Answers A
WHERE
NOT EXISTS (SELECT 1 FROM @Answers SubQry WHERE SubQry.AuthKey = A.AuthKey AND SubQry.QuestionID = Q.QuestionID)
Output
AuthKey | QuestionID
| QuestionText
| AnswerText
101 | 1 | Comment | hi!!
101 | 2 | Score | 4
102 | 1 | Comment | excellent
102 | 2 | Score | 5
103 | 1 | Comment | NULL
103 | 2 | Score | 6
104 | 1 | Comment | NULL
104 | 2 | Score | 8
Best Wishes, Arbi; Please vote if you find this posting was helpful or Mark it as answered.

How to give comments for a particular table

hi..
how to give comments for a particular table ..
select * from user_tab_comments;
tx in advance..

Try this.
SQL> COMMENT ON TABLE EMP IS 'THIS IS SAMPLE EMPLOYEE TABLE' ;
Comment created.
SQL> select * from user_tab_comments where table_name = 'EMP'
2 /
TABLE_NAME TABLE_TYPE
COMMENTS
EMP TABLE
THIS IS SAMPLE EMPLOYEE TABLE

HR ABAP How to Write BDC For Infotype 0586

Hi Experts
Can Any One tell me how to write BDC for Infotype 0586 and also 585.
If we enter into the maintaining Screen, the lines in the Screen will dynamically changing depending on the values.
When I am doing recording , If I press page down after entering values in top lines, the lines are changing and the records are not updating Correctly.
I need to write BDC to Create Change.
Can any one please help me in this regard?
Thanks in Advance.
Regards
Avinash.

http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm
http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm
http://www.google.co.in/search?hl=en&q=SAPBDCtable+control&meta=
http://www.sap-basis-abap.com/abap/handling-table-control-in-bdc.htm
http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm
http://www.sap-img.com/abap/question-about-bdc-program.htm

Does anybody know how to write GUI for J2ME?

Does anybody know how to write GUI for J2ME?
Thanks!

Hi..! I don't know exactly... it's a good question. I refered something. U visit below URL's.
http://www.java-pro.com/upload/free/features/javapro/2000/13iss00/rg0013/rg0013.asp
http://developer.java.sun.com/developer/technicalArticles/wireless/midpui/

How to write code for page up and page down buttons on alv screen?

Hi,
Page up and page down buttons are not working in general alv report. Thease buttons are in disable mode. But is stnd. transactions (tcode : fbl5n) these are enabled and working properly, but we can't debug this with /h
How to write code for page up and page down buttons on alv screen?

Poonam,
On doing the screen debugging it took me over to    Include LSTXWFCC ,kindly check the below code.
module cc_display.
fcode = sy-ucomm(4).
case sy-ucomm(4).
    when 'P--'.
      perform cc_firstpage.
    when 'P-'.
      perform cc_prevpage.
    when 'P+'.
      perform cc_nextpage.
    when 'P++'.
      perform cc_lastpage.
    when 'EX--'.
      perform cc_firstcopy.
    when 'EX-'.
      perform cc_prevcopy.
    when 'EX+'.
      perform cc_nextcopy.
    when 'EX++'.
      perform cc_lastcopy.
I guess it can give you some lead.
K.Kiran.

How to write program for handling script ?

In script i have 2 pages.
In first page i have constant windows and variable windows.
In second page i have main window.
How to write program for this?

Hi
You need to write a driver program. You need to use open form, then write_form to write data into various windows and then close_form to close.
As you don't want main window in the first page first try out just by having the window in the second page; i guess system will take care of it. As all other windows filled and if u start writing data in the main it'll go for next page.
If doesn't work have the window on the first page with the least hight and write a command
IF &SYST-PAGE& EQ 1
    NEXT-PAGE.
ENDIF.
Then in the second page you can have the main window hight as per your requirement.
Here is an example
(1) Get customer data
TABLES: scustom, sbook, spfli.
DATA: bookings like sbook...
select * from...
(2) Open form
CALL FUNCTION 'OPEN_FORM'
    EXPORTING
      DEVICE = 'PRINTER'
      FORM = 'S_EXAMPLE_1'
      DIALOG = 'X'
    EXCEPTIONS
      others = 1
(3) Print table heading
CALL FUNCTION 'WRITE_FORM'
    EXPORTING
      ELEMENT = 'HEADING'
      TYPE = 'TOP'
      WINDOW = 'MAIN'
      FUNCTION = 'SET'
(4) Print customer bookings
LOOP AT bookings WHERE
    CALL FUNCTION 'WRITE_FORM'
      EXPORTING
        ELEMENT = 'BOOKING'
        TYPE = 'BODY'
        WINDOW = 'MAIN'
ENDLOOP
(5) Close form
CALL FUNCTION 'CLOSE_FORM'
Regards
Surya.

How to write Validations for Sample Data??

Hi Frnds,
I want to know how to write validations for sample oracle data?? Can anyone explain anyone clearly??
Regards,
Raj

Hi shushma,
Simply put a check that:
If(wdContext.current<YOUR_NODE>Element().get<YOUR_ATTRIBUTE_NAME> !=null){
else{
// Show the error messages
//Displaying the error message is very easy.
//You can report exception using the message manager API's. You will get this easily on SDN.
I hope this helps! if you need ay further help please let me know.
Thanks and Regards,
Pravesh

How to write GUI for J2ME?

Does anybody know how to write GUI for J2ME?
is there any reference books, web sites, etc?
Thank you!

Thank you!
i will take a look.

How to write BDC for tcode F-32

Hi Experts,
How to write BDC for tcode F-32 .
is it possible i recorded in SHDB BUT IF I AM DOING IT'S COMING WRONG .
plz guide me sir.
regars,
Hari
Edited by: hari311 on Oct 27, 2009 9:22 AM

There might be that when u provide the data in the selction screen of F-32 and press process open items some custom program might be attached to it and gets executed...
chek it out..
if so..
pass the bdcdata of the second screen into a memory id
export t_bdcdata into v_memid.
in that custoom report jus import this..
then fill the t_bdcdata with the header information and call the transcation f-32..
Edited by: imran khan on Oct 27, 2009 9:35 AM

How to write API for web cam?

who knows how to write API for web cam?

if you mean capture from the cam try JMF I've done it a million times
salut

How to write BDC for KP06

Hi,
How to write BDC, for Tcode KP06, How to handle the table control in that Tcode.
or any other way to upload data for this Tcode.
Regards
Manohar

Hi,
check the sample code for transaction ME51 and ME21.
PARAMETERS:
p_fname TYPE ibipparms-path.
*" Data declarations...................................................
Work variables                                                      *
DATA:
fs_bdc TYPE bdcdata,
fs_msg TYPE bdcmsgcoll.
Internal table to hold bdc data                                     *
DATA:
     t_bdc LIKE
STANDARD TABLE
        OF fs_bdc.
Internal table to hold bdcmessage data                              *
DATA:
     t_msg LIKE
STANDARD TABLE
        OF fs_msg.
DATA:
w_string(50) TYPE c,
w_string1(19) TYPE c,
w_message(72) TYPE c,
w_num         TYPE i VALUE 1,
w_num1        TYPE i.
*" Type declarations...................................................
Type declaration of the structure to hold header data              *
DATA:
BEGIN OF t_header OCCURS 0,
    ftype      TYPE c,
    doctype(10) TYPE c,
    acctcat(4) TYPE c,
    date(10)    TYPE c,
    plant(4)   TYPE n,
    text(10)   TYPE c,
    qty(5)     TYPE n,
    units(5)   TYPE c,
    pgrp(3)    TYPE n,
    mgrp(3)    TYPE n,
    price(2)   TYPE n,
   gacct(6)   TYPE n,
    cost(4)    TYPE n,
END OF t_header.
                      START-OF-SELECTION EVENT                      *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
CALL FUNCTION 'F4_FILENAME'
   EXPORTING
     program_name        = syst-cprog
DYNPRO_NUMBER       = SYST-DYNNR
FIELD_NAME          = ' '
   IMPORTING
     file_name           = p_fname
START-OF-SELECTION.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                      = 'c:\temp\item2.txt'
FILETYPE                      = 'ASC'
     has_field_separator           = 'X'
    TABLES
      data_tab                      = t_header
   EXCEPTIONS
     file_open_error               = 1
     file_read_error               = 2
     no_batch                      = 3
     gui_refuse_filetransfer       = 4
     invalid_type                  = 5
     no_authority                  = 6
     unknown_error                 = 7
     bad_data_format               = 8
     header_not_allowed            = 9
     separator_not_allowed         = 10
     header_too_long               = 11
     unknown_dp_error              = 12
     access_denied                 = 13
     dp_out_of_memory              = 14
     disk_full                     = 15
     dp_timeout                    = 16
     OTHERS                        = 17
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.                                 " IF SY-SUBRC <> 0
LOOP AT t_header WHERE ftype = 'H'..
    CLEAR fs_msg.
    IF t_header-ftype = 'H'.
      PERFORM bdc_program USING 'SAPMM06B' '0100'.
      PERFORM bdc_field   USING 'eban-BSART' t_header-doctype.
      PERFORM bdc_field   USING 'eban-KNTTP' t_header-acctcat.
      PERFORM bdc_field   USING 'RM06B-EEIND' t_header-date.
      PERFORM bdc_field   USING 'eban-WERKS' t_header-plant.
      PERFORM bdc_field   USING 'BDC_OKCODE' 'AB'.
    ENDIF.
   IF t_header-ftype = 'I'.
    LOOP AT t_header WHERE ftype = 'I'.
      PERFORM bdc_program USING 'SAPMM06B' '0106'.
      w_string = 'EBAN-TXZ01(01)'.
      w_string+12(1) = w_num.
      PERFORM bdc_field   USING w_string t_header-text.
      w_string = 'EBAN-MENGE(01)'.
      w_string+12(1) = w_num.
      PERFORM bdc_field   USING w_string t_header-qty.
      w_string = 'EBAN-MEINS(01)'.
      w_string+12(1) = w_num.
      PERFORM bdc_field   USING w_string t_header-units.
      w_string = 'EBAN-EKGRP(01)'.
      w_string+12(1) = w_num.
      PERFORM bdc_field   USING w_string t_header-pgrp.
      w_string = 'EBAN-MATKL(01)'.
      w_string+12(1) = w_num.
      PERFORM bdc_field   USING w_string t_header-mgrp.
      PERFORM bdc_field   USING 'BDC_OKCODE' '=KN'.
      w_num = w_num + 1.
      PERFORM bdc_program USING 'SAPMM06B' '0102'.
      PERFORM bdc_field   USING 'EBAN-preis' t_header-price.
      PERFORM bdc_field   USING 'BDC_OKCODE' '=KN'.
      PERFORM bdc_program USING 'SAPMM06B' '0505'.
      PERFORM bdc_field   USING 'BDC_OKCODE' '=KWE'.
      PERFORM bdc_program USING 'SAPlkacb' '0002'.
   PERFORM bdc_field   USING 'EBAN-sakto' t_header-gacct.
      PERFORM bdc_field   USING 'cobl-kostl' t_header-cost.
      PERFORM bdc_field   USING 'BDC_OKCODE' '=ENTE'.
     PERFORM bdc_program USING 'SAPMM06B' '0102'.
     PERFORM bdc_field   USING 'BDC_OKCODE' '/00'.
         ENDIF.
    ENDLOOP.
ENDLOOP.
PERFORM bdc_program USING 'SAPMM06B' '0106'.
PERFORM bdc_field   USING 'BDC_OKCODE' 'BU'.
     PERFORM BDC_PROGRAM USING 'SAPMM06E' '100'.
*PERFORM BDC_FIELD USING 'BDC_OKCODE' 'BACK'.
CALL TRANSACTION 'ME51' USING t_bdc MODE 'N' MESSAGES INTO t_msg.
LOOP AT t_msg INTO fs_msg.
    CALL FUNCTION 'FORMAT_MESSAGE'
      EXPORTING
        id        = fs_msg-msgid
        lang      = sy-langu
        no        = fs_msg-msgnr
        v1        = fs_msg-msgv1
        v2        = fs_msg-msgv2
        v3        = fs_msg-msgv3
        v4        = fs_msg-msgv4
      IMPORTING
        msg       = w_message
      EXCEPTIONS
        not_found = 1
        OTHERS    = 2.
       WRITE:
         / w_message.
ENDLOOP.
CLEAR t_bdc[].
PERFORM bdc_program USING 'SAPMM06E' '0100'.
PERFORM bdc_field   USING 'EKKO-LIFNR' '1000'.
PERFORM bdc_field   USING 'EKKO-EKORG' '1000'.
PERFORM bdc_field   USING 'EKKO-EKGRP' '100'.
PERFORM bdc_field   USING 'BDC_OKCODE' 'BS'.
PERFORM bdc_program USING 'SAPMM06E' '0501'.
PERFORM bdc_field   USING 'EKET-BANFN' fs_msg-msgv1.
PERFORM bdc_field   USING 'BDC_OKCODE' '=KOPF'.
PERFORM bdc_program USING 'SAPMM06E' '0125'.
PERFORM bdc_field   USING 'BDC_OKCODE' 'MALL'.
PERFORM bdc_program USING 'SAPMM06E' '0125'.
PERFORM bdc_field   USING 'BDC_OKCODE' 'REFH'.
PERFORM bdc_program USING 'SAPMM06E' '0504'.
PERFORM bdc_field   USING 'BDC_OKCODE' '=ENTE'.
PERFORM bdc_program USING 'SAPMM06E' '0111'.
PERFORM bdc_field   USING 'BDC_OKCODE' '=NEXP'.
*perform bdc_program using 'SAPLSPO1' '0300'.
*PERFORM BDC_FIELD   USING 'BDC_OKCODE' 'YES'.
PERFORM bdc_program USING 'SAPMM06E' '0504'.
PERFORM bdc_field   USING 'BDC_OKCODE' '=ENTE'.
PERFORM bdc_program USING 'SAPMM06E' '0111'.
PERFORM bdc_field   USING 'BDC_OKCODE' '=NEXP'.
*perform bdc_program using 'SAPMM06E' '0504'.
*PERFORM BDC_FIELD   USING 'BDC_OKCODE' '=ENTE'.
*perform bdc_program using 'SAPMM06E' '0111'.
*PERFORM BDC_FIELD   USING 'BDC_OKCODE' '=NEXP'.
perform bdc_program using 'SAPMM06E' '0504'.
*PERFORM BDC_FIELD   USING 'BDC_OKCODE' '=ENTE'.
perform bdc_program using 'SAPMM06E' '0504'.
*PERFORM BDC_FIELD   USING 'BDC_OKCODE' '=ENTE'.
*perform bdc_program using 'SAPMM06E' '0111'.
*PERFORM BDC_FIELD   USING 'BDC_OKCODE' '=NEXP'.
PERFORM bdc_program USING 'SAPMM06E' '0120'.
PERFORM bdc_field   USING 'BDC_OKCODE' 'BU'.
CALL TRANSACTION 'ME21' USING t_bdc MODE 'N' MESSAGES INTO t_msg
LOOP AT t_msg INTO fs_msg.
    CALL FUNCTION 'FORMAT_MESSAGE'
      EXPORTING
        id        = fs_msg-msgid
        lang      = sy-langu
        no        = fs_msg-msgnr
        v1        = fs_msg-msgv1
        v2        = fs_msg-msgv2
        v3        = fs_msg-msgv3
        v4        = fs_msg-msgv4
      IMPORTING
        msg       = w_message
      EXCEPTIONS
        not_found = 1
        OTHERS    = 2.
       WRITE:
         / W_message.
ENDLOOP.                             " LOOP T_MSG
CLEAR t_bdc[].
PERFORM bdc_program USING 'SAPMM06E' '0105'.
PERFORM bdc_field   USING 'RM06E-BSTNR' fs_msg-msgv2.
PERFORM bdc_field   USING 'BDC_OKCODE' 'AB'.
w_num1 = w_num - 1.
DO w_num1 TIMES.
    w_string1 = 'RM06E-TCSELFLAG(00)'.
    w_string1+17(1) = w_num1.
    PERFORM bdc_program USING 'SAPMM06E' '0120'.
    PERFORM bdc_field   USING w_string1 'X'.
    PERFORM bdc_field   USING 'BDC_OKCODE' 'DL'.
    w_num1 = w_num1 - 1.
ENDDO.                               " DO W_NUM1
PERFORM bdc_program USING 'SAPMM06E' '0120'.
PERFORM bdc_field   USING 'BDC_OKCODE' 'BU'.
CALL TRANSACTION 'ME22' USING t_bdc MODE 'A' MESSAGES INTO t_msg.
LOOP AT t_msg INTO fs_msg.
    CALL FUNCTION 'FORMAT_MESSAGE'
      EXPORTING
        id        = fs_msg-msgid
        lang      = sy-langu
        no        = fs_msg-msgnr
        v1        = fs_msg-msgv1
        v2        = fs_msg-msgv2
        v3        = fs_msg-msgv3
        v4        = fs_msg-msgv4
      IMPORTING
        msg       = w_message
      EXCEPTIONS
        not_found = 1
        OTHERS    = 2.
    WRITE:
      / w_message.
ENDLOOP.                             " LOOP T_MSG
*&      Form bdc_program
This subroutine gives screenname and screen number                 *
There are no interface parameters to be passed to this subroutine. *
FORM bdc_program USING    value(p_screen)
                           value(p_num).
CLEAR fs_bdc.
fs_bdc-program = p_screen.
fs_bdc-dynpro = p_num.
fs_bdc-dynbegin = 'X'.
APPEND fs_bdc TO t_bdc.
ENDFORM.                               " FORM BDC_PROGRAM
*&      Form BDC_FIELD
This subroutine gives the field name and field value               *
There are no interface parameters to be passed to this subroutine. *
FORM bdc_field USING    value(p_name)
                         value(p_value).
CLEAR fs_bdc.
fs_bdc-fnam = p_name.
fs_bdc-fval = p_value.
APPEND fs_bdc TO t_bdc.
ENDFORM.                               " FORM BDC_FIELD
Regards,
jaya

How to write comments for a class

Similar Messages

Maybe you are looking for