my collection

SAP APO enhancement for AFS

2011-07-11T12:57:00.000+05:30

Recently I had to work on a project were the customer was planning to implement SAP AFS and SAP APO to handle their business requirements. The development challenge on this requirement was to maintain 2 different locations for each plant created in AFS side. This was required in order to plan for wholesaled and retail requirements of the business. This was maintained in AFS side on the category structure in for a given material.

I have mentioned the exits used I used during this modification. Hope this will be helpful for someone who need to modify data which is gets transferred to APO.

SAP standard industrial enhancement BADI:

CIF_EXT_IS_INTERNAL

AFS implementation name: /AFS/NDIF_APO

User exits for each area

1) Enhancement for plant data transfer :

User exits: EXIT_SAPLCLOC_001

Enhancement: CIFLOC01 Enhancement for Transferring Customer-Specific Loc. Fields

2) Enhancement for material data transfer :

User exits: EXIT_SAPLCMAT_001

Enhancement: CIFMAT01 Enhancement for Transferring Customer-Specific Matl Fields

3) Enhancement for PO/POC/PR data transfer :

User exits: EXIT_SAPLMEAP_001

Enhancement: CIFPUR01 Enhancement for Transferring Customer-Specific PO Fields

4) Enhancement for SO data transfer:

User exit: EXIT_SAPLCSLS_002

Enhancement: CIFSLS03 Influencing of Sales Order Data Prior to Dispatch

5) Enhancement for Source of supply or Purchase info record data transfer:

User exit: EXIT_SAPLCSRS_003

Enhancement: CIFSRC01 Enhancement for Transferring Customer-Specific SS Fields

6) Enhancement for stock data transfer:

User exit: EXIT_SAPLCSTK_001

Enhancement: CIFSTK01 Enhancement for Transferring Customer-Specific Stock Fields

7) Enhancement for Batches transfer :

User exits: EXIT_SAPLCCHG_001

Enhancement: CIFBTC01 Enhancement for Transferring Customer-Specific Batch Fields

The final touch (add a htmp page on SAP screen)

2010-10-09T05:26:00.001+05:30

It's a known fact that however complex your program is when it come to the user. The look and feel of the output is what matters most. This is blog post is about a simple trick that we can do to make the look and feel better.

Have you ever wondered that when you develop a tool to your customer on a area ( eg: Order Automation tool ). That its better if you can get them a initial screen with some fancy graphics on it where you will be able to give multiple links to different Transactions.

If yes this is one approach that I figured out

Adding a HTML page on SAP

Ok now that I have given a brief idea on what I am talking about. I’ll just walk you through example where a html page is added to initial transaction of a automation tool

Below Is the final output what we are going to get (I have added some SAP images since it is a example case )

Ok now some basic steps we need to create the above

1) The html page uploaded to your SAP system (tcode : SMW0)

2) The images you required to be uploaded in the SAP system )(tcode : SMW0)

Please note that to trigger the event you need something similar to the below part to be added to the html code

<td><a href=SAPEVENT:ZORD_SPLIT ><strong><i>Order Spliti>strong>a>td>

The code to call the relevant transaction is as below

class cl_myevent_handler definition.

  public section.
    methods: on_sapevent
               for event sapevent of cl_gui_html_viewer
                 importing action frame getdata postdata query_table.

endclass.

data: evt_receiver type ref to cl_myevent_handler.

* CLASS CL_GUI_CFW DEFINITION LOAD.

class cl_myevent_handler implementation.

  method on_sapevent.
    case action.
      WHEN 'ZORD'.
        CALL TRANSACTION 'ZORD'.
      WHEN 'ZORD_SPLIT'.
        CALL TRANSACTION 'ZORD_SPLIT'.
    endcase.

  endmethod.

In this test case I have created a container as HTML_CONTROL

if html_control is initial.

    prog_repid = sy-repid.

    create object my_container
        exporting
            container_name = 'HTML_CONTROL'.

    create object html_control
         exporting
              parent    = my_container.
    if sy-subrc ne 0.
*      do nothing.
    endif.

* register event
    myevent-eventid = html_control->m_id_sapevent.
    myevent-appl_event = 'x'.
    append myevent to myevent_tab.
    call method html_control->set_registered_events
        exporting
           events = myevent_tab.

    create object evt_receiver.

    set handler evt_receiver->on_sapevent
                for html_control.

    perform load_graphics.
    perform load_home_page.

  endif.

You can call load graphics and map you html image with your image uploaded to SAP

   call method html_control->load_mime_object
     exporting
          object_id  = 'ZSAP_IMG'
          object_url = ‘image.jpeg’
     exceptions
          others     = 1.

The once load call your html page as below

  call method html_control->load_html_document
       exporting
            document_id  = 'ZTEST_PAGE_6'
       importing
            assigned_url = doc_url
       exceptions
            others       = 1.

  if sy-subrc eq 0.
    call method html_control->show_url
         exporting
              url = doc_url.
  endif.

If you call your screen now you should see the html page with all the images and links .

For a abaper this is not a big piece of work but adding something like this will always give you some extra hip

How to find BAdi

2010-06-03T10:24:00.000+05:30

This post is taken from http://erpgenie.com/abaptips/content/view/594/40/
I have added this here since it might be useful to me if in case I forget how to find a BADI :)

Business Add-Ins (BAdis) are a SAP enhancement technique based on ABAP Objects. Two parts - Definition and its Implementation - definition can either be SAP provided or user may also create it.

You can look for BAdi definition in IMG and in component hierarchy. But there are some easier methods to find a BAdi. They are follows:

Method 1

These steps should enable you to find a BAdi related to any transaction in a matter of minutes.

1) Go to the transaction SE37 to find your function module.
2) Locate the function SXV_GET_CLIF_BY_NAME.
3) Put a break-point there.
4) Now open a new session.
5) Go to your transaction.
6) At that time, it will stop this function.
7) Double click on the function field NAME.
8) That will give you name of the BAdi that is provided in your transaction.

Method 2

1. Goto SE80, open CL_EXITHANDLER (Class)
2. Goto Method, GET_INSTANCE
3. Set a break point at

CALL METHOD cl_exithandler=>get_class_name_by_interface

EXPORTING

instance = instance

IMPORTING

class_name = class_name

CHANGING

exit_name = exit_name

EXCEPTIONS

no_reference = 1

no_interface_reference = 2

no_exit_interface = 3

data_incons_in_exit_managem = 4

class_not_implement_interface = 5

OTHERS = 6.

CASE sy-subrc.

WHEN 1.

RAISE no_reference.

WHEN 2.

RAISE no_interface_reference.

WHEN 3.

RAISE no_exit_interface.

WHEN 4.

RAISE data_incons_in_exit_managem.

WHEN 5.

RAISE class_not_implement_interface.

ENDCASE.

4) Now open a new session.
5) Go to your transaction.
6) At that time, it will stop this function.
7) Double click on the function field EXIT_NAME.
8) That will give you name of the BAdi that is provided in your transaction.

Method 3:

1. Goto ST05
2. Select SQL trace and buffer trace
3. Activate trace
4. Now run your transaction
5. Deactivate trace
6. Display trace7. A pop will come
8. Enter V_EXT_ACT and V_EXT_IMP as the 2 objects
9. Now display the trace results. It will return all the BAPI and enhancement list in order of their execution.

IDOC /AFS/WMMBID02 message type : WMMBXY

2010-03-19T15:18:00.000+05:30

i have been stuck with the idoc /AFS/WMMBID02 message type WMMBXY giving an error when ever i try to do a movement type 122.
I was Debugging the stranded code for more than 2 days and later i Found out that this occurs since the idoc requires few more information. this was mentioned on SAP note 833603.

Symptom
You want to post goods receipt for a stock transport order using an IDoc .

More Terms
WMMBXY, WMMBID01, WMMBID02, MBGMCR, L_IDOC_INPUT_WMMBXY

Cause and Prerequisites
It is not clear how the segments are to be filled, to ensure correct
assignment and updating of the delivery if necessary.

Solution
The following sections only take into account processing with SAP core s
tandard functions and do not include industry solutions.

1. Goods receipt for delivery

a) WMMBXY (WMMBID01, WMMBID02)
The following fields in the segment E1MBXYI must be filled:
EBELN Purchase order number
EBELP Purchase order item
KZBEW Movement indicator = 'B'
POSNR Delivery item (with leading zeros)
VBELN Delivery (with leading zeros)

b) MBGMCR (MBGMCR01, MBGMCR02)
Prerequisite: Note 356665 and basic type MBGMCR02 (not MBGMCR01).
The segment E1BP2017_GM_CODE receives the value GM_CODE = '01'.
In the segment E1BP2017_GM_ITEM_CREATE, the following must be
filled:
PO_NUMBER Purchase order number
PO_ITEM Purchase order item
MVT_IND Movement indicator = 'B'
In the subordinate segment E1BP2017_GM_ITEM_CREATE1, the following
must be filled:
DELIV_NUMB Delivery (with leading zeros)
DELIV_ITEM Delivery item (with leading zeros)

2. Goods receipt for the inbound delivery

a) WMMBXY (WMMBID01, WMMBID02)
In the segment E1MBXYI, no purchase order must be assigned. The
fields EBELN and EBELP remain blank. The movement indicator (KZBEW)

receives the value 'B'.
In the subordinate segment E1MBXYJ, the following are to be filled:
VLIEF_AVIS Inbound delivery
VBELP_AVIS Inbound delivery item

b) MBGMCR
The segment E1BP2017_GM_CODE receives the value GM_CODE = '01'.
In the segment E1BP2017_GM_ITEM_CREATE, no purchase order must be
assigned. The fields PO_NUMBER and PO_ITEM remain blank. The
following must be filled:
MVT_IND Movement indicator = 'B'
DELIV_NUMB_TO_SEARCH Inbound delivery (with leading zeros)
DELIV_ITEM_TO_SEARCH Inbound delivery item (with leading zeros)

IDOCs of the message type WMMBXY are updated using the function
module L_IDOC_INPUT_WMMBXY. In this module, you can change data
using the user exit 'EXIT_SAPLLMDE_002'. Here, use Transaction CMOD
to activate the SAP enhancement MWMIDO08 and implement the required
changes in the exit function module EXIT_SAPLLMDE_002.

hope this post will help someone else who might get stuck like me

selection option recommended sign

2010-03-09T10:33:00.000+05:30

most of the time when we develop a report program or a selection screen. We have to remove the standard validation which comes when we define a selection option as mandatory and add a custom validation. In such cases we are unable to display the selection option as a mandatory sign. To do this we can make the input field recommended which will give the sign. bellow is the code how to do it.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

   IF screen-name EQ 'S_WERKS-LOW'.
     screen-required = 2. "2 is recommended
   ENDIF.

MODIFY SCREEN.

ENDLOOP.

selection screen with tabs

2010-03-08T11:03:00.000+05:30

This post is about selection screen with tabs. Selection screen with tabs are not that hard to implement on ABAP and I am sure if you search online you will always get the code for it.... but just to start things ill just give the code no a basic selection screen with tabs...

SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN .

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_ebeln FOR zconf_stage-ebeln,
                s_ebelp FOR zconf_stage-ebelp,
                s_bsart FOR ekko-bsart,
                s_werks FOR ekpo-werks,
                s_matnr FOR ekpo-matnr,
                s_lifnr FOR ekko-lifnr,
                s_ekgrp FOR ekko-ekgrp,
                s_budat FOR zconf_stage-budat,
                s_kunnr FOR vbpa-kunnr.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN END OF SCREEN 101.

SELECTION-SCREEN BEGIN OF SCREEN 102 AS SUBSCREEN .

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_ebeln1 FOR zconf_stage-ebeln,
                s_bsart1 FOR ekko-bsart,
                s_werks1 FOR ekpo-werks ,
                s_matnr1 FOR ekpo-matnr,
                s_lifnr1 FOR ekko-lifnr,
                s_ekgrp1 FOR ekko-ekgrp,
                s_budat1 FOR zconf_stage-budat,
                s_kunnr1 FOR vbpa-kunnr.
SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN END OF SCREEN 102.

SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 24 LINES,
TAB (30) button1 USER-COMMAND on,
TAB (30) button2 USER-COMMAND auto,
END OF BLOCK mytab.

INITIALIZATION.
button1 = text-011.
button2 = text-012.

mytab-prog = sy-repid.
mytab-dynnr = 101.
mytab-activetab = 'BUTTON1'.

AT SELECTION-SCREEN .

IF sy-batch = 'X'.
    mytab-dynnr = 102.
    mytab-activetab = 'BUTTON2'.
    sy-ucomm = 'AUTO'.
ENDIF.

CASE sy-dynnr.

    WHEN 1000.
      CASE sy-ucomm.
        WHEN 'ON'.
          mytab-dynnr = 101.
          mytab-activetab = 'BUTTON1'.
        WHEN 'AUTO'.
          mytab-dynnr = 102.
          mytab-activetab = 'BUTTON2'.
      endcase.

    WHEN 0101.
      mytab-dynnr = 101.
      mytab-activetab = 'BUTTON1'.
    WHEN 'ONLI'.
          PERFORM screen_validation101.
      ENDCASE.

    WHEN 0102.
      mytab-dynnr = 102.
      mytab-activetab = 'BUTTON2'.
      case sy-ucomm.
    WHEN 'ONLI'.
          PERFORM screen_validation102.
      ENDCASE.
ENDCASE.

START-OF-SELECTION.

CASE mytab-activetab.
    WHEN 'BUTTON1'."online mode

    WHEN 'BUTTON2'." when automatic

ENDCASE.

now the above code is to a selection screen with tabs that you code using a report program.( this code cannot be used in module pool program )

When a customer request to a selection screen with tabs there can be 2 reasons.

1) To group a selection on one out put ( I mean the final out-put is one but selection screen can be with tabs to make things clear for e.g on SD related report the tabs can be Material selection , SO selection like wise )

2) The user requires different kind of out comes with different tabs... for e.g tab no1 to work during online operations and tab no 2 to work on background operations.

The above requirement 1 which will be totally fine with the code given on top. But the requirement 2 will be a issue when it comes to the above code. As most of the developers know on a selection screen we will always have mandatory fields. when switching between tabs the selection screen first calls the validation and then it calls the normal screen code ( as you know the validation is automatic if me make a selection option mandatory and we have no say on it ).
So in case if the user wants the functionality of the tab 2 he first has to fill all the mandatory fields on tab 1 so that the error wont occur. This was a error I had to face during my development for this there are 2 way outs

1) do the validation by your self ( draw back : you wont get the mandatory sign on the selection screen )
2) write a selection screen with tabs ( draw back : the user wont be able to save variants or this part has to be coded which will be a messy job )

for the 2nd option on above to make sure the tab switching with happen without first validating you have to do the codding as follows

PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
MODULE set_tabs.

call SUBSCREEN SUB INCLUDING sy-repid gv_dynnr.
*
PROCESS AFTER INPUT.

MODULE exit_comm.
MODULE switch_tab.
CALL SUBSCREEN SUB.
MODULE screen_comm.

MODULE USER_COMMAND_0100.

before call sub screen you have to call a module switch tabs.

on my case my customer wanted the variants to be there. Therefore they agreed to the validation by code where the mandatory sign is not displayed.

five months of busy work

2010-03-02T12:39:00.001+05:30

For the past 5 moths I have been really busy that I didn't have anytime to blog or contribute to SCN on SAP. During these 5 months I was working for 1 main client on one main area it was all about Vendor confirmations. I have been so much into it that now I know a lot about the confirmation process. There were two main developments where one was on SAP user level and other was on customer level which was a web Dynpro development. During this period I gained lots of functional Exp but on technical side it was noting much same old ABAP.

but there were few limitations which I came a cross when I developed tab striped selection screen which I am hoping to blog sometime in the future.

till then enjoy reading my old post's on SAP but still there is nothing much since from the time I joined my work place I hardly had any free time.

when and where we can use parallel cursor

2009-09-16T10:12:00.000+05:30

Loop AT i_primary into wa_primary.

Loop AT i_secondary into wa_secondary from lv_index.

If ( wa_primary-field1 NE wa_secondary-field1 ) or

( wa_primary-field2 NE wa_secondary-field2 ).

Lv_index = sy-tabix.

Endif.

“ your code comes here “

Endloop.

To use this following should be true

1) Both tables should be sorted with the same key ( in the above case field1 and field2 )

2) The mapping between primary to secondary tables should be

a. one to many ( for one record in primary there are multiple records in secondary )

b. one to one (for one record in primary there is only one in secondary )

Please note that other than the above 2 other 2 scenarios (many to many & many to one) will not work with the above logic and make sure you don’t use in such case.

3) The secondary table should not contain a record which does not map to the primary table ( this will not happen if the secondary is fetched using for all entries from primary )

4) Please make sure you do not delete any record from primary before using the logic which will make the point 3 false

5) If you were to use a 'AND' in where statement of the inner loop you should use or in the inner loop if condition in the above logic.

Copy to Clipborad SAP

2009-09-11T15:55:00.000+05:30

copy to clipborad

Bellow code is how to copy data to clipboard. This feature helps you when there is a BDC recording and you want to add selection extended options

    DATA: v_rc TYPE I,
       it_data TYPE STANDARD TABLE OF CHAR128,
       wa_data TYPE char128.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>CLIPBOARD_EXPORT
    IMPORTING DATA = it_data
    CHANGING RC = v_rc      .

How to add a button on selection screen

2009-08-31T08:55:00.006+05:30

one small thing I came across on a customer development was to add a button on the selection screen. I have not done such a requirement before for any customer so i didn't any idea on how to do it.

After doing some searching this is what I found out was :).

For a selection screen you can put up to 5 buttons this is a default feature which is available to use if you want.
For that these are the steps you have to do

I have added the button in two ways one is just the button with the text next one button with a icon.

The data declarations for these are.
TABLES: sscrfields.
DATA: functxt TYPE smp_dyntxt.

SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME
TITLE TEXT-001.
SELECT-OPTIONS: p_ktopl FOR t030-ktopl.

SELECTION-SCREEN END OF BLOCK block1.

SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.

functxt-icon_id = ICON_HISTORY.
functxt-quickinfo = 'log'(001).
sscrfields-functxt_01 = functxt.

MOVE 'Maintain Item Cat.' TO sscrfields-functxt_02.

how to add tooltip to icon

2009-07-16T10:23:00.002+05:30

its very easy to add tooltip to icon's

1) have a icon field in output table ( this can be a char field with 25 characters)

2) in case if you cant to add the lock icon for that icon field put
-icon = '@06\QIn process@'.

in this @06@ is the icon when you give the tooltip with '\QXXXtooltipXXX'
insert this part beore last @.

Note: if you want to find the icons check icon table :)

3) field catalog make the icon field 'X'.

there is a SAP example on program: BCALV_DEMO_TOOLTIP

How to Debug any screen on SAP

2009-06-23T15:31:00.002+05:30

its very simple just put this code on a text file and save it with what even name you want e.g debug

[FUNCTION]
Command=/H
Title=Debugger
Type=SystemCommand

when ever you want to debug you dont have to use /h but just drag and drop this on the SAP screen this enables you to debug on popup screens

Hope this will be useful

nafran

how to get the first day and last day SAP

2009-06-10T09:16:00.002+05:30

Most of the time when we need the first day and the last day of a given month we always run to get a function. why use a function when its so easy to code it

*get first and last date of month and year
CONCATENATE s_bdatj-low s_mnr-low '01' INTO gv_date1.

gv_month = s_mnr-low .
gv_month = gv_month + 01.

CONCATENATE s_bdatj-low gv_month '01' INTO gv_date2.

gv_date2 = gv_date2 - 1.

only way of parallel or Multi Threading on SAP

2009-06-08T09:10:00.009+05:30

Sometimes you get programs where you might have done almost all the programming best practices and Indexing and other stuff but still the program will run very slow.On a time like this sometimes we might wonder is there anyway to do parallel processing or something like multi treading on SAP.
Hmm.... there is only one way that I can think about in SAP and we can get all most all features on Parallel processing from this way.

CALL FUNCTION 'Fetch_Data'
STARTING NEW TASK 'Fetch'
performing RETURN_FROM_WAIT ON END OF TASK
     EXPORTING
input            = input
TABLES
output             = output
EXCEPTIONS
COMMUNICATION_FAILURE = 1
SYSTEM_FAILURE        = 2.





Important : you cant use any import parameters on the function no this
method the only option is to using the RETURN_FROM_WAIT which is a
perform.


For Eg when you want to fetch data parallel do it using 2 functions and using the perform
you can have  a flag to make sure that fetching is completed.
  
This is just a over view I got this document from Daniel Perecky
Multi Threading

this has lots of information no how to program this way.
I would love to see some comments about this :)

create custom menu exits

2009-05-22T16:52:00.002+05:30

I got this spacial requirement when i was working with a project.

where a generic menu bar is required which can add items according to the customer.

the first thing to do in such requirement is to add a fcode in menu painter starting with +XXX ( replace X).

once this is done handle the fcode using a function

CALL CUSTOMER-FUNCTION '010'.

with in this function you can do what ever you what to do for when that item is clicked.

then on a standard SAP enhancement(smod) add your program name and the fcode and add your function exit on it.

create a project on cmod and add the enhancement you will find the exit and the menu exit.

if this is not clear pls post a comment ( coz i just wrote it in a way how i will understand)

best way to code nested loops SAP

2009-05-07T10:42:00.005+05:30

REPORT  ZPARALLEL_CURSOR.
TABLES:
  likp,
  lips.

DATA:
      t_likp  TYPE TABLE OF likp,
      t_lips  TYPE TABLE OF lips,
      t_lips1 TYPE SORTED TABLE OF lips
      WITH NON-UNIQUE KEY vbeln.

DATA:
      w_runtime1 TYPE I,
      w_runtime2 TYPE I,
      w_counter TYPE I,
      w_index LIKE sy-INDEX.

DATA:
      likp_l TYPE I,
      lips_l TYPE I.

PARAMETERS: rows TYPE i OBLIGATORY.

START-OF-SELECTION.
SELECT *
FROM likp
INTO TABLE t_likp up to rows ROWS.

DESCRIBE TABLE t_likp LINES likp_l.

WRITE:/ 'records in likp: ' .
WRITE likp_l.

SELECT *
INTO TABLE t_lips
FROM lips
  FOR ALL ENTRIES IN t_likp
  WHERE vbeln = t_likp-vbeln.

DESCRIBE TABLE t_lips LINES lips_l.

WRITE:/ 'records in lips: ' .
WRITE lips_l.

**********************************************************************
**********************************************************************
**********************************************************************

GET RUN TIME FIELD w_runtime1.

LOOP AT t_likp INTO likp.
  LOOP AT t_lips INTO lips WHERE vbeln EQ likp-vbeln.

  ENDLOOP.
ENDLOOP.

GET RUN TIME FIELD w_runtime2.

w_runtime2 = w_runtime2 - w_runtime1.

WRITE:/.
WRITE:/'Time taken on normal where condition:'.
WRITE: w_runtime2.

**********************************************************************
**********************************************************************
**********************************************************************
GET RUN TIME FIELD w_runtime1.
SORT t_likp BY vbeln.
SORT t_lips BY vbeln.

LOOP AT t_likp INTO likp.

  LOOP AT t_lips INTO lips FROM w_index.
    IF likp-vbeln NE lips-vbeln.
      w_index = sy-tabix.
      EXIT.
    ENDIF.

  ENDLOOP.
ENDLOOP.

GET RUN TIME FIELD w_runtime2.

w_runtime2 = w_runtime2 - w_runtime1.

WRITE:/.
WRITE:/.
WRITE:/'Time taken with parallel cursor:' , w_runtime2.

**********************************************************************
**********************************************************************
**********************************************************************

GET RUN TIME FIELD w_runtime1.

SORT t_lips BY vbeln.
t_lips1[] = t_lips[].

LOOP AT t_likp INTO likp.
  LOOP AT t_lips1 INTO lips WHERE vbeln EQ likp-vbeln.
  ENDLOOP.

ENDLOOP.

GET RUN TIME FIELD w_runtime2.

w_runtime2 = w_runtime2 - w_runtime1.

WRITE:/.
WRITE:/.
WRITE:/'Time taken for a sorted table with where condition:' , w_runtime2.

Use of binary search option

2009-04-23T10:25:00.000+05:30

When a programmer uses the read command, the table is sequentially searched. This slows down the processing. Instead of this, use the binary search addition. The binary search algorithm helps faster search of a value in an internal table. It is advisable to sort the internal table before doing a binary search. Binary search repeatedly divides the search interval in half. If the value to be searched is less than the item in the middle of the interval, the search is narrowed to the lower half, otherwise the search is narrowed to the upper half.

Not Recommended

Read table int_fligh with key airln = ‘LF’.

Recommended

Read table int_fligh with key airln = ‘LF’ binary search.

source: http://www.thespot4sap.com/Articles/SAPABAPPerformanceTuning_BinarySearch.asp

Modifying a group of lines of an internal table

2009-04-23T10:20:00.001+05:30

Use the variations of the modify command to speed up this kind of processing.

Not recommended

Loop at int_fligh.

If int_fligh-flag is initial.

Int_fligh-flag = ‘X’.

Endif.

Modify int_fligh.

Endloop.

Recommended

Int_fligh-flag = ‘X’.

Modify int_fligh transporting flag where flag is initial.

source: http://www.thespot4sap.com/Articles/SAPABAPPerformanceTuning_ModifyingGroupOfLines.asp

copy ALV layouts from a one program to another

2009-04-15T17:28:00.001+05:30

*&---------------------------------------------------------------------*
*& Report Z_COPY_ALV_VARNTS_PROG_TO_PROG
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z_COPY_ALV_VARNTS_PROG_TO_PROG.

* =====================================================================
* Data Declarations Section
* =====================================================================

* ---------------------------------------------------------------------
DATA : BEGIN OF MYLTDX OCCURS 0 .
INCLUDE STRUCTURE LTDX .
DATA : END OF MYLTDX .
* ---------------------------------------------------------------------
DATA : BEGIN OF MYLTDXT OCCURS 0 .
INCLUDE STRUCTURE LTDXT .
DATA : END OF MYLTDXT .
* ---------------------------------------------------------------------
DATA : BEGIN OF MYLTDXD OCCURS 0 .
INCLUDE STRUCTURE LTDXD .
DATA : END OF MYLTDXD .
* ---------------------------------------------------------------------

DATA : MANS(1) TYPE C .

DATA : PROGRAMM LIKE RS38M-PROGRAMM .
DATA : BEGIN OF MDYNPFIELDS OCCURS 1 .
INCLUDE STRUCTURE DYNPREAD .
DATA : END OF MDYNPFIELDS .
CONSTANTS BUTTONSELECTED(1) TYPE C VALUE 'X' .

* =====================================================================
* Macro for Inputing Filenames
* =====================================================================
DEFINE GET_FILENAME .
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
* DEF_FILENAME = ' '
DEF_PATH = &1
MASK = ',*.*,*.*.'
MODE = '0'
* TITLE = ' '
IMPORTING
FILENAME = &2
* RC =
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5.

END-OF-DEFINITION .

* =====================================================================
* Macro for Downloading to ASCII Files
* =====================================================================
DEFINE DOWNLOAD_TO_ASCII .
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
* BIN_FILESIZE = ' '
* CODEPAGE = ' '
FILENAME = &1
FILETYPE = 'DAT'
* MODE = ' '
* WK1_N_FORMAT = ' '
* WK1_N_SIZE = ' '
* WK1_T_FORMAT = ' '
* WK1_T_SIZE = ' '
* COL_SELECT = ' '
* COL_SELECTMASK = ' '
* NO_AUTH_CHECK = ' '
* IMPORTING
* FILELENGTH =
TABLES
DATA_TAB = &2
* FIELDNAMES =
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_WRITE_ERROR = 2
INVALID_FILESIZE = 3
INVALID_TABLE_WIDTH = 4
INVALID_TYPE = 5
NO_BATCH = 6
UNKNOWN_ERROR = 7
GUI_REFUSE_FILETRANSFER = 8
OTHERS = 9.

END-OF-DEFINITION .

* =====================================================================
* Macro for uploading Data from ASCII files
* =====================================================================
DEFINE UPLOAD_FROM_ASCII .
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
* CODEPAGE = ' '
FILENAME = &1
FILETYPE = 'DAT'
* HEADLEN = ' '
* LINE_EXIT = ' '
* TRUNCLEN = ' '
* USER_FORM = ' '
* USER_PROG = ' '
* IMPORTING
* FILELENGTH =
TABLES
DATA_TAB = &2
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TABLE_WIDTH = 4
INVALID_TYPE = 5
NO_BATCH = 6
UNKNOWN_ERROR = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
OTHERS = 10.
END-OF-DEFINITION .

* =====================================================================
* Selection Screen Default
* =====================================================================
PARAMETERS : P_FROM_P LIKE RS38M-PROGRAMM OBLIGATORY .
PARAMETERS : P_TO_P LIKE RS38M-PROGRAMM OBLIGATORY .
PARAMETERS : P_SAME_S RADIOBUTTON GROUP GRP1 DEFAULT 'X' .
PARAMETERS : P_DOWNLD RADIOBUTTON GROUP GRP1 .
PARAMETERS : P_UPLOAD RADIOBUTTON GROUP GRP1 .
PARAMETERS : P_FILE_x LIKE RLGRAP-FILENAME DEFAULT 'c:\LTDX.txt' .
PARAMETERS : P_FILE_t LIKE RLGRAP-FILENAME DEFAULT 'c:\LTDXT.txt' .
PARAMETERS : P_FILE_d LIKE RLGRAP-FILENAME DEFAULT 'c:\LTDXD.txt' .

* =====================================================================
* At Selection Screen Events
* =====================================================================
AT SELECTION-SCREEN .
PROGRAMM = P_FROM_P .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE_x .
GET_FILENAME 'c:\LTDX.txt' P_FILE_x .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE_t .
GET_FILENAME 'c:\LTDXT.txt' P_FILE_t .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE_d .
GET_FILENAME 'c:\LTDXD.txt' P_FILE_d .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FROM_P .
CLEAR MDYNPFIELDS . REFRESH MDYNPFIELDS .
MDYNPFIELDS-FIELDNAME = 'P_FROM_P' .
APPEND MDYNPFIELDS .
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = SY-CPROG
DYNUMB = SY-DYNNR
TABLES
DYNPFIELDS = MDYNPFIELDS
EXCEPTIONS
INVALID_ABAPWORKAREA = 1
INVALID_DYNPROFIELD = 2
INVALID_DYNPRONAME = 3
INVALID_DYNPRONUMMER = 4
INVALID_REQUEST = 5
NO_FIELDDESCRIPTION = 6
INVALID_PARAMETER = 7
UNDEFIND_ERROR = 8
DOUBLE_CONVERSION = 9
STEPL_NOT_FOUND = 10
OTHERS = 11.

READ TABLE MDYNPFIELDS INDEX 1 .
PROGRAMM = MDYNPFIELDS-FIELDVALUE .
CALL FUNCTION 'REPOSITORY_INFO_SYSTEM_F4'
EXPORTING
OBJECT_TYPE = 'PROG'
OBJECT_NAME = PROGRAMM
IMPORTING
OBJECT_NAME_SELECTED = PROGRAMM
EXCEPTIONS
CANCEL = 1
WRONG_TYPE = 2
OTHERS = 3.
P_FROM_P = PROGRAMM .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_TO_P .
CLEAR MDYNPFIELDS . REFRESH MDYNPFIELDS .
MDYNPFIELDS-FIELDNAME = 'P_TO_P' .
APPEND MDYNPFIELDS .
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = SY-CPROG
DYNUMB = SY-DYNNR
TABLES
DYNPFIELDS = MDYNPFIELDS
EXCEPTIONS
INVALID_ABAPWORKAREA = 1
INVALID_DYNPROFIELD = 2
INVALID_DYNPRONAME = 3
INVALID_DYNPRONUMMER = 4
INVALID_REQUEST = 5
NO_FIELDDESCRIPTION = 6
INVALID_PARAMETER = 7
UNDEFIND_ERROR = 8
DOUBLE_CONVERSION = 9
STEPL_NOT_FOUND = 10
OTHERS = 11.

READ TABLE MDYNPFIELDS INDEX 1 .
PROGRAMM = MDYNPFIELDS-FIELDVALUE .
CALL FUNCTION 'REPOSITORY_INFO_SYSTEM_F4'
EXPORTING
OBJECT_TYPE = 'PROG'
OBJECT_NAME = PROGRAMM
IMPORTING
OBJECT_NAME_SELECTED = PROGRAMM
EXCEPTIONS
CANCEL = 1
WRONG_TYPE = 2
OTHERS = 3.
P_TO_P = PROGRAMM .

* =====================================================================
* Start of Selection
* =====================================================================
START-OF-SELECTION .
CASE BUTTONSELECTED.
WHEN P_SAME_S .
PERFORM COPY_FROM_PROG_TO_PROG .
WHEN P_DOWNLD .
PERFORM VDOWNLOAD .
WHEN P_UPLOAD .
PERFORM VUPLOAD .
ENDCASE .

*&---------------------------------------------------------------------*
*& Form COPY_FROM_PROG_TO_PROG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM COPY_FROM_PROG_TO_PROG.

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
* DEFAULTOPTION = 'Y'
TEXTLINE1 = 'Are you sure you want to copy Variants ? '
* TEXTLINE2 = ' '
TITEL = 'Confirmation '
* START_COLUMN = 25
* START_ROW = 6
* CANCEL_DISPLAY = 'X'
IMPORTING
ANSWER = MANS
EXCEPTIONS
OTHERS = 1.

IF MANS = 'J' .
* ---------------------------------------------------------------------
REFRESH MYLTDX . CLEAR MYLTDX .
SELECT * FROM LTDX INTO TABLE MYLTDX
WHERE REPORT = P_FROM_P.
LOOP AT MYLTDX .
MYLTDX-REPORT = P_TO_P .
MODIFY MYLTDX .
ENDLOOP .
IF SY-SUBRC = 0 .
DELETE FROM LTDX WHERE REPORT = P_TO_P .
INSERT LTDX FROM TABLE MYLTDX .
ENDIF .
* ---------------------------------------------------------------------
REFRESH MYLTDXT . CLEAR MYLTDXT .
SELECT * FROM LTDXT INTO TABLE MYLTDXT
WHERE REPORT = P_FROM_P.
LOOP AT MYLTDXT .
MYLTDXT-REPORT = P_TO_P .
MODIFY MYLTDXT .
ENDLOOP .
IF SY-SUBRC = 0 .
DELETE FROM LTDXT WHERE REPORT = P_TO_P .
INSERT LTDXT FROM TABLE MYLTDXT .
ENDIF .
* ---------------------------------------------------------------------
REFRESH MYLTDXT . CLEAR MYLTDXT .
SELECT * FROM LTDXT INTO TABLE MYLTDXT
WHERE REPORT = P_FROM_P.
LOOP AT MYLTDXT .
MYLTDXT-REPORT = P_TO_P .
MODIFY MYLTDXT .
ENDLOOP .
IF SY-SUBRC = 0 .
DELETE FROM LTDXT WHERE REPORT = P_TO_P .
INSERT LTDXT FROM TABLE MYLTDXT .
ENDIF .
* ---------------------------------------------------------------------
ENDIF .

ENDFORM. " COPY_FROM_PROG_TO_PROG

*&---------------------------------------------------------------------*
*& Form VDOWNLOAD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM VDOWNLOAD.
REFRESH MYLTDX . CLEAR MYLTDX .
SELECT * FROM LTDX INTO TABLE MYLTDX
WHERE REPORT = P_FROM_p.
DOWNLOAD_TO_ASCII P_FILE_x MYLTDX .

* ---------------------------------------------------------------------
REFRESH MYLTDXT . CLEAR MYLTDXT .
SELECT * FROM LTDXT INTO TABLE MYLTDXT
WHERE REPORT = P_FROM_P.
DOWNLOAD_TO_ASCII P_FILE_t MYLTDXT .

* ---------------------------------------------------------------------
REFRESH MYLTDXT . CLEAR MYLTDXT .
SELECT * FROM LTDXD INTO TABLE MYLTDXT
WHERE REPORT = P_FROM_P.
DOWNLOAD_TO_ASCII P_FILE_d MYLTDXT .

* ---------------------------------------------------------------------

ENDFORM. " VDOWNLOAD

*&---------------------------------------------------------------------*
*& Form VUPLOAD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM VUPLOAD.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
* DEFAULTOPTION = 'Y'
TEXTLINE1 =
'Are you sure you want to upload Variants ? '
* TEXTLINE2 = ' '
TITEL = 'Confirmation '
* START_COLUMN = 25
* START_ROW = 6
* CANCEL_DISPLAY = 'X'
IMPORTING
ANSWER = MANS
EXCEPTIONS
OTHERS = 1.

IF MANS = 'J' .
* ---------------------------------------------------------------------
REFRESH MYLTDX . CLEAR MYLTDX .
UPLOAD_FROM_ASCII P_FILE_x MYLTDX .
LOOP AT MYLTDX .
MYLTDX-REPORT = P_TO_P .
MODIFY MYLTDX .
ENDLOOP .
IF SY-SUBRC = 0 .
DELETE FROM LTDX WHERE REPORT = P_TO_P .
INSERT LTDX FROM TABLE MYLTDX .
ENDIF .
* ---------------------------------------------------------------------
REFRESH MYLTDXT . CLEAR MYLTDXT .
UPLOAD_FROM_ASCII P_FILE_t MYLTDXT .
LOOP AT MYLTDXT .
MYLTDXT-REPORT = P_TO_P .
MODIFY MYLTDXT .
ENDLOOP .
IF SY-SUBRC = 0 .
DELETE FROM LTDXT WHERE REPORT = P_TO_P .
INSERT LTDXT FROM TABLE MYLTDXT .
ENDIF .
* ---------------------------------------------------------------------
REFRESH MYLTDXD . CLEAR MYLTDXD .
UPLOAD_FROM_ASCII P_FILE_d MYLTDXT .
LOOP AT MYLTDXT .
MYLTDXT-REPORT = P_TO_P .
MODIFY MYLTDXT .
ENDLOOP .
IF SY-SUBRC = 0 .
DELETE FROM LTDXT WHERE REPORT = P_TO_P .
INSERT LTDXT FROM TABLE MYLTDXT .
ENDIF .
* ---------------------------------------------------------------------
ENDIF .

ENDFORM. " VUPLOAD

Using Sorted table and Index while processing Internal tables

2009-04-06T16:31:00.002+05:30

There would have been many instances where we would have to process large entries in an internal table with a WHERE condition. This article is intended to demonstrate the comparison between three different methods in handling this situation.

First Method: The normal method used by most of us. Standard internal table processing using WHERE condition

Second Method: Same as above, but here we would be using the Sorted table

Third Method: Sorted table and using the Index

Following is the demo program illustrating the above three methods:

REPORT ZINTERNAL_TABLE_OPERATIONS.

* Program to find the best method in reading the internal tables

* Author: Suresh Kumar Parvathaneni

* Type declaration

TYPES:

BEGIN OF TY_MARA,

MATNR LIKE MARA-MATNR,

MTART LIKE MARA-MTART,

END OF TY_MARA.

* Internal table declaration

DATA:

T_MARA TYPE STANDARD TABLE OF TY_MARA,

T_MARA1 TYPE SORTED TABLE OF TY_MARA

WITH NON-UNIQUE KEY MTART.

* Variable declaration

DATA:

W_COUNTER TYPE I,

W_RUNTIME1 TYPE I,

W_RUNTIME2 TYPE I,

W_TABIX LIKE SY-TABIX.

* Table workarea definition

DATA:

WA_MARA TYPE TY_MARA.

SELECT MATNR " Material Number

MTART " Material Type

FROM MARA

INTO TABLE T_MARA.

T_MARA1[] = T_MARA[].

* CASE 1: Processing internal table using LOOP..WHERE Condition

GET RUN TIME FIELD W_RUNTIME1.

LOOP AT T_MARA INTO WA_MARA WHERE MTART EQ 'FHMI'.

ADD 1 TO W_COUNTER.

ENDLOOP.

GET RUN TIME FIELD W_RUNTIME2.

* Calculate Runtime

W_RUNTIME2 = W_RUNTIME2 - W_RUNTIME1.

WRITE W_RUNTIME2.

CLEAR W_COUNTER.

* CASE 2: Using a Sorted table

GET RUN TIME FIELD W_RUNTIME1.

LOOP AT T_MARA1 INTO WA_MARA WHERE MTART EQ 'FHMI'.

ADD 1 TO W_COUNTER.

ENDLOOP.

GET RUN TIME FIELD W_RUNTIME2.

* Calculate Runtime

W_RUNTIME2 = W_RUNTIME2 - W_RUNTIME1.

WRITE W_RUNTIME2.

CLEAR W_COUNTER.

* CASE 3: Using INDEX on a sorted table

GET RUN TIME FIELD W_RUNTIME1.

READ TABLE T_MARA1 INTO WA_MARA WITH KEY MTART = 'FHMI'.

IF SY-SUBRC EQ 0.

W_TABIX = SY-TABIX + 1.

ADD 1 TO W_COUNTER.

LOOP AT T_MARA1 INTO WA_MARA FROM W_TABIX.

IF WA_MARA-MTART NE 'FHMI'.

EXIT.

ENDIF.

ADD 1 TO W_COUNTER.

ENDLOOP.

ENDIF.

GET RUN TIME FIELD W_RUNTIME2.

* Calculate Runtime

W_RUNTIME2 = W_RUNTIME2 - W_RUNTIME1.

WRITE W_RUNTIME2.

source http://www.saptechnical.com/Tutorials/ABAP/InternalTable/Processing.htm

Performance Tuning using Parallel Cursor

2009-04-06T12:18:00.004+05:30

check link

http://www.saptechnical.com/Tutorials/ABAP/ParallelCursor.htm

CONCATENATE a " ' "

2009-04-03T11:09:00.002+05:30

CONCATENATE '''' <----------4 times to get one quote
data: out(3).
Concatenate a `'` into out.
write out.
data : b type string.
concatenate 'a' '''' into b.

hope this will help

how to refersh a SAP Module pool program

2009-04-03T10:16:00.005+05:30

use this code in PBO and in PAI catch the refresh user command and do what ever is required

MODULE test OUTPUT.

*               WAIT UP TO 10 SECONDS
*                  STARTING NEW TASK 'WAITING'
*                     PERFORM RETURN_FROM_WAIT .
  CALL FUNCTION 'RFC_PING_AND_WAIT'
    STARTING NEW TASK 'WAITING'
    PERFORMING RETURN_FROM_WAIT ON END OF TASK
    EXPORTING
      SECONDS               = 10
    EXCEPTIONS
      COMMUNICATION_FAILURE = 1
      SYSTEM_FAILURE        = 2.

*CALL FUNCTION 'RFC_PING_AND_WAIT' in background task .

*  PERFORM RETURN_FROM_WAIT ON END OF TASK.
*   EXPORTING SECONDS = 10.

ENDMODULE.

FORM RETURN_FROM_WAIT USING TASKNAME.

set user-command 'REFRESH'.

ENDFORM.

How to Unlock LG mobiles

2009-02-19T21:06:00.004+05:30

Hi,

you wont believe that a LG mobile phone can be unlock so easily. I tried this with 2 mobile phones both worked.

step 1: without sim 2945#*# and choose factory reset

in lg 3g phone 277634#*# ( i have not tested to 3g phones i got some other codes also so if that doesn't work uses these and see 47328545454# & 277634#*# ) if it worked u should get a spacial menu screen

step 2:On this screen there will be 2 options one will be factory setting one of them will be factory reset first do the other and then do the factory reset the phone might switch off once you do this

step 3:Now put the sim and switch on the phone and go to settings on connections change the frequency to your country frequency ( i am in sri lnaka so i used Europe which works for me ).make sure that the network selection is auto.

Step 4:restart the phone again :) it should work now. if it does don't forget to leave a comment so that i know that it helped.

i checked this with LG 1400i and LG C1500. both worked fine :)

i got some other links for sites but thous are not tested ill put it here so that it might help. you can try some and see if your willing to.

http://www.gsmliberty.net/shop/nokia_unlock.php

http://unlock.nokiafree.org/

http://www.unlockme.co.uk/unlockme.html

http://www.mobilecodez.com/unlocking/unlock-lg.php

enjoy :)

nafi

War on Gaza 15 days and still going

2009-01-10T08:40:00.003+05:30

Gazans flee homes and seek refuge in UN schools

Trapped Gaza journalist talks to Al Jazeera

Gaza families mourn dead after UN school bombed - 07 Jan 09

War on Gaza ( way of self defence of Israel )

2009-01-10T08:27:00.005+05:30

Palestinian children from the Balosha family, who were all killed in the same Israeli missile strike, are seen in the morgue before their burial at Kamal Edwan hopsital in Beit Lahiya, northern Gaza Strip, Monday, Dec. 29, 2008

Palestinians bury the body of 4-year-old Lama Hamdan at Beit Hanoun cemetery in the northern Gaza Strip December 30, 2008
Palestinians carry the body of 4-year-old Lama Hamdan during her funeral in the town of Beit Hanoun in the northern Gaza Strip December 30, 2008

The bodies of two girls, aged four and 11, who were killed in an Israeli air strike in Beit Hanun in the northern Gaza Strip Strip December 30, 2008

MOINC Agent

2008-11-25T20:56:00.004+05:30

on my final year project i am working on a project call MOINC (Mora Open Infrastructure of network computing) and i am working on teh Agent client part so thought about putting some information about it in teh blog :)

Introduction

The MOINC agent is the actual service runtime of the entire MOINC project. This is actually the client software that should be installed in all the computers that are volunteering to the grid. This piece of software works on Windows and Linux operating systems and is built using Java technologies. MOINC agent runs at operating system startup and functions as a background process to monitor user inactivity in order to start executions.

The MOINC agent uses Axis2 as its service runtime engine. In other words all web service requests are executed using the Axis 2 environment. The main goal of this client software is to execute web service requests when the computer is idling. The web service requests are handed down by the MOINC server.

The following steps outline how the MOINC agent functions once installed in a computer:

The software monitors keyboard and mouse hits and waits till no events occur for a specified time period.
As soon as this time period is elapsed, the MOINC agent informs the MOINC server that the client machine is idling.
The MOINC agent will then execute web service requests handed by the MOINC server.
During the period in which the MOINC agent functions a screen saver will be displayed on the screen which informs the user about the current activities.
If a keyboard hit or a mouse event occurs when MOINC agent is running, the software will automatically finish what it was doing and shutdown thus giving the full processing power of the computer to the user.

MOINC agent is a collection of loosely coupled set of modules that carry out well defined tasks. The modules and their functionality are listed below.

State Detector Module

Determine when the computer is idling.
Inform MOINC server that the client is ready to receive web service requests.
Inform the module which launches the screen saver.
Inform the module which handles Axis2.

Service Deployer

Launch Axis2 runtime.
Execute service requests on top of Axis2.
Acquire points information.

Screen Saver Invocator

Invoke the MOINC screen saver when MOINC agent runs.
Shutdown the screen saver when MOINC stops functioning.

Points Notifier

Inform the MOINC Server Management Module about the CPU usage of web service requests in order to give points to the particular client.

All communications between the MOINC Agent and the MOINC Server and the MOINC Server Management Module are carried out via the Thisara messaging protocol.

Design/Architecture

Object oriented design principles have been incorporated in building the MOINC Agent application. Design patterns are used where possible to make sure the application evolves with time and is easily extensible.

As mentioned earlier in this write-up, MOINC Agent is a collection of loosely coupled modules that perform well defined tasks. This in fact gives the ability to team members to easily enhance the functionality of the application as well as add new features without changing the existing system.

More details about the design and architecture aspects of MOINC Agent can be found in the software design document which is available in the resources section.

for more information refer http://www.moinc.org

How to deploy specified web services in a remote repository

2008-11-24T16:17:00.003+05:30

While working in my project MOINC ( http://www.moinc.org ). I had two specified requirements

work in a remote repository
deploy only specified web services from that repository

in my project MOINC Agent the remote repository i used was a common repository which is used by many computers. Therefore my second requirement of deploying specified services cannot be handled by editing the services.list file since its a common file for all computers.

The selution i came up with is hacking axis2 source code where i changed the services.list file to a local directory.

To do this i had to change module kernel package deployment and class deployment engine

the method loadServicesFromUrl

old code

URL servicesDir = new URL(repoURL, path);

URL filelisturl = new URL(servicesDir ,"services.list");

new code

URL servicesDir = new URL(repoURL, path);

URL filelisturl = new URL("http://localhost:port/services.list");

so now i will keep the services.list file in the localhost root directory where i specify the services required to be deployed.

how to work with a remote repository axis2

2008-11-23T21:29:00.005+05:30

Hi,
if any one is has a requirement on how to work in a remote repository using axis2 this is one way to do it.
if your using this way you have to use axis2 on top of tomcat where you deploy the axis2 war file in to the webapp folder in axis2.
its a very simple thing what you have to do it after the first deployment tomcat will unpack axis2 in to a folder in webapp directory. find the web.xml file and do the above change.

by changing the axis2 xml tag you can work with a remote axis2.xml file also.
when your working with a remote repo you will have to give up hot deployment.
but you can change the web.xml file while tomcat is running it will automatically ditect it and will do the updating part.

if you wish to get this thing done without tomcat refer to this blog

http://blogs.deepal.org/2008/02/starting-axis2-using-wso2-registry.html