Automatic insertion of comments in ABAP code

Hello Experts,
     Is there any tool or report, that will automatically add comments to existing custom codes.
     TABLES: KNA1.
     will be changed to :
     TABLES: KNA1.   "Customer Master
Regards,
Anubhab

You might want to look at this free enhancement.
Advanced Pretty Printer enhancement details
It does a lot of alignment related things. Just see the screenshots. If it does not add comments, it should be easy to write additional code to do so as you now have a starting point. It is using an implicit enhancement to do extra source code manipulations when pretty printer button is pressed.

Similar Messages

How to insert Method in ABAP code

Hi Gurus,
Plz tell me how to insert a METHOD in ABAP code as we do in the case of inserting function in ABAP code using PATTERN.Button
Rgds
rajesh

Hi,
Try this.
Click pattern tab ans select AABAP object patterns.
Select call method.
Then give the instance name , class/interface name and the method name.
Sharin.

Problem with abap code in lsmw.its urgent

Hello guys iam migrating open ar line items using lsmwand i need to create reconciliation key automatically so iam using below code which is working fine in abap editor but i inserted in the lsmw abap code block at step 5 mapping fields iam getting error as that function module does not exits .can any body go through the code and give me suggestion.your will be greatly appreciate.
types: begin of ty_fikey,
       fikey type fikey_kk,
       resob type resob_kk,
       end of ty_fikey.
data: wa_fikey type ty_fikey.
CALL FUNCTION 'FKK_FIKEY_CHECK'
EXPORTING
    I_FIKEY                      = 'jana56481'
I_OPEN_ON_REQUEST            =
I_OPEN_WITHOUT_DIALOG        =
I_FOR_MASS_POSTING           =
   I_RESOB                      = '24 '
I_RESKY                      = ' '
I_NON_EXISTING_ALLOWED       = ' '
I_FOR_POSTING_IN_UPD         = ' '
EXCEPTIONS
NON_EXISTING                 = 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.
select single fikey resob from dfkksumc into corresponding fields of wa_fikey where resob = '24'.
e1bpdfkkko-fikey = wa_fikey-fikey.
Regards
Janapathi

Hi,
Refer link:
<a href="http://www.scmexpertonline.com/downloads/SCM_LSMW_StepsOnWeb.doc">http://www.scmexpertonline.com/downloads/SCM_LSMW_StepsOnWeb.doc</a>
Pls do reward points.
Regards,
Ameet

How to insert a new line item in VA01/VA02 by using ABAP code?

Hi Gurus
i have a very tough requirement. the customer wants to insert a free goods after an item has been populated in VA01/VA02 automatically according to some certain rules. the input material may be a main material of a sales BOM.
for example. let's suppose there is a material A who has two sub-material B and C which is maintained in a sales BOM via CS01/CS02. when the material A has been input in the line item in VA01/VA02, its quantity input and after the ENTER key has been clicked, another material D may be displayed in a new line as a gift if the condition met. the condition relates to customer/material/quanity and these information are stored in a Z-table.
on the other hand, if the material A is only a single material(not a BOM), the gift(material D) will also be filled automatically if the condition met.
i have already enhance the FM cs_bom_explosion to filfill the requirment for BOM materials. whereas it is very hard to find the enhanment point for the single material.
so my question is where is the correct place for me to insert the ABAP code, which decides whether the gift should be given or not and furthermore inserts the new line item into XVBAP. i tried to use MV45AFZZ, whereas the data is always inconsistant if a new line has been inserted. it is very strange that there is no temperary internal table storing line item data input in the table controal of VA01/VA02. system reads the line item data , line by line, via a system kernal function call.
any hints are welcome. thanks

HI Stephen,
I have the same prolem. I modified the 5 global tables, but I don't see the new line in the screen.
Can you help me with some details?
Thx!
Mihaela

How to insert abap code in LSMW generated program?

hi,
i m working on LSMW for loading data in SAP
i would like to insert abap code into the generated program....
it's because i have 1 BKPF segment (header data), 2 BSEG segments, but i cannot define rules by customizing for the second BSEG segment(LSMW doesn't permitt).
i already tried to insert code directly into the program, but obviously it disapears at each time i generate the program.
i saw that apparently a code insertion has already be made into this program and the subject of this insertion is to define rules for the second BSEG (exactly what i want to do....) and this modification doesn't disapear at new prog generation.....
Any idea ?

Hi
Why dont you use the FORM provided by LSMW
To use this please do the following
1.Goto option <b>Maintain Field Mapping and Conversion Rules</b>
2.Goto menu <b>EXTRAS->LAYOUT->Form Routines</b>
Here you will now get many options like
Global Data
Begin of Transaction
Begin of Processing
Begin of Record
like wise the End of these also.
Please put a breakpoint and check where you want to insert your code.
Note:
This is only for the Conversion Program and does not affect the main program used to update the Standard Tables
Hi , I was reading your earlier post .. It seems that you have worked on EMIGALL. Consider a similar situation, it is like writing the code in the events till CALL01...
Thanks
DOminic
Message was edited by: Dominic Pappaly

ABAP code to automatic generate an BW Report

HI Sap BW gurus,
Can anyone tell me if exists an abap code to automatic generate an report from a query and save it on an directory in HTML format?
Thanks in advanced,
Pedro Martins

You can use this tool...
/people/durairaj.athavanraja/blog/2005/04/03/execute-bw-query-using-abap-part-i
but then you would have to store it into an application server directory as HTML - there is also a how to paper by the same author which you can use... which talks about email query results in HTML
http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/b7658119-0a01-0010-39a9-b600c816f370;jsessionid=%28J2EE3414800%29ID1001478750DB10940138154678751341End

ABAP Code Date Selection for InfoPackage Scheduler

Hello Group
I need to automate the selection of valid condition records for an extraction that have a From and To date range.
I noticed there is an option (Routine for time interval) to write ABAP code along with a template that is available in the InfoPackage.
I think the logic for the selection would be any record
Valid from       <= today
Valid to           >= today
Can anyone help with the ABAP code?
The template is as follows:
program conversion_routine.
Type pools used by conversion program
type-pools: rsarc, rsarr, rssm.
tables: rsldpsel.
Global code used by conversion rules
$$ begin of global - insert your declaration only below this line -
TABLES: ...
DATA:   ...
$$ end of global - insert your declaration only before this line   -
form compute_time_dependent_dates
changing p_datefrom type d
           p_dateto   type d
           p_subrc like sy-subrc.
      Insert source code to current selection field
$$ begin of routine - insert your code only below this line        -
          p_datefrom =
          p_dateto   =
          p_subrc = 0.
$$ end of routine - insert your code only before this line         -
endform.
Thank You for your help!!
Frank

I resolved the problem . I have changed the order of read table l_t_range because I need the header .
In the loop at datos I add the line l_t_range-iobjnm = 'ZXGE_UNO'.
The problem wasn't the call RFC it was that I built l_t_range bad. I need the infoObject name.
This is correct!!
READ TABLE L_T_RANGE WITH KEY
         FIELDNAME = '/BIC/ZXGE_UNO'.
LOOP AT DATOS.
      L_T_RANGE-FIELDNAME = '/BIC/ZXGE_UNO'.
      L_T_RANGE-IOBJNM = 'ZXGE_UNO'.
      L_T_RANGE-SIGN = 'I'.
      L_T_RANGE-OPTION = 'EQ'.
      CONCATENATE '00' DATOS-WA+3(4) INTO L_T_RANGE-LOW.
      APPEND L_T_RANGE.
    ENDLOOP.
*READ TABLE L_T_RANGE WITH KEY+
+*FIELDNAME = '/BIC/ZXGE_UNO'.+
+*    L_IDX = SY-TABIX.+
+*    MODIFY L_T_RANGE INDEX L_IDX
Thanks a lot
Ana

Commenting Out Library Code

When a Library item is inserted into an html document, it automatically adds some commenting out code


but still appears in Design View (which is expected). There are times when I don't want the actual Library item (a footer in this case) to be visible in Design View, and simply applying an html comment doesn't work (I assume because you are basically trying to double comment the code). So the question is: is there another way to temporarily hide a library item from appearing in Design View? The reason I'm asking this (and maybe there is another underlying issue) is because looking in Design View, the footer appears in the middle of hte page, but renders properly when previewing in either Live Mode or previewing in browser.
Design View: the red outline shows where the library item (footer) appears - in the middle of the design view area - worth noting, I work in Split view (with code on top, preview on bottom), so maybe that has something to do with not rendering items properly on screen?
Live View or Browser Preview:
I don't know if this is happening because of CSS styles of possibly some html code or maybe even an underlying issue somewhere else. This is more irritating than anything else. Does anyone have a clue what might be going on?
To add: the only way I am currently able to temporarily hide the footer library item is to open the library item, comment out that code, then update all pages (which is a pain for when I need to go back and forth)...

If this helps, I've uploaded what I think is enough to see what I'm facing.
As an FYI, your page content falls out of the box when end-users increase default text-size in their browsers (Firefox, View > Zoom > Zoom Text Only), hit Ctrl+++.
See screenshot below where I've highlighted dark text on dark background to be visible:
Height: value in pixels is a restriction in all browsers except IE. If needed to reveal a background image, use values in ems or the min-height property with Conditional Comments for pre-IE7 browsers.
CSS:
#homeContent {
    position: relative;
    width: 892px;
   min-height:400px;
Conditional Comment:

Nancy O.
Alt-Web Design & Publishing
Web | Graphics | Print | Media Specialists
http://alt-web.com/
http://twitter.com/altweb

Creating a long text using ABAP code.. fm SAVE_TEXT

When you create an order via IW31 one of the options is to click on the text button and create a long text. I am basically trying to mimic this action from within my ABAP code.
The text id details are as follows:
Text Name       500000015000046 which is (5000000 + order number)
Language        EN
Text ID            KOPF         Order header text
Text Object      AUFK       Order text
If i manually create the text within the transaction i am then able to view and update it via function modules READ_TEXT and SAVE_TEXT. But if the text has not already been created READ_TEXT obviously returns nothing as it does not exist and SAVE_TEXT does not seem to created it!
Anyone know how i would go about creating this text using ABAP code?
Hope this make a bit of sense
Thanks in advance
Mart

I have implemented the code as i think it should be. See below, can any see what is wrong. If i add init_text it makes no difference and adding the commit_text just makes it hang
DATA: IT_TEXTS type standard table of TLINE,
       wa_texts like line of it_texts,
       wa_txtheader type THEAD.
wa_txtheader-TDID     = 'KOPF'.
wa_txtheader-TDSPRAS = 'EN'.
wa_txtheader-TDNAME   = '500000015000056'.
wa_txtheader-TDOBJECT = 'AUFK'.
wa_texts-tdformat = '*'.
wa_texts-tdline = 'hello'.
append wa_texts to it_texts.
wa_texts-tdformat = '*'.
wa_texts-tdline = 'hello'.
append wa_texts to it_texts.
wa_texts-tdformat = '*'.
wa_texts-tdline = 'hello'.
append wa_texts to it_texts.
wa_texts-tdformat = '*'.
wa_texts-tdline = 'hello'.
append wa_texts to it_texts.
wa_texts-tdformat = '*'.
wa_texts-tdline = 'hello'.
append wa_texts to it_texts.
wa_texts-tdformat = '*'.
wa_texts-tdline = 'hello'.
append wa_texts to it_texts.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
    CLIENT                = SY-MANDT
    HEADER                = wa_txtheader
    INSERT                = 'X'
   SAVEMODE_DIRECT       = ' '
   OWNER_SPECIFIED       = 'X'
LOCAL_CAT             = ' '
IMPORTING
FUNCTION              =
NEWHEADER             =
TABLES
    LINES                 = IT_TEXTS
EXCEPTIONS
   ID                    = 1
   LANGUAGE              = 2
   NAME                  = 3
   OBJECT                = 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.

Schedule a background job for a program using ABAP code.

Hi,
I have to write a program to schedule a background job for another program.
Need your help to understand how we can achieve this functionality.Any example of an abap code would be of great help.
Need it urgently.
Thanks in advance.
Sandeep.

Hi Sandeep,
Here is the demo program regarding the BDC For the background job.
report zprprbdc1
       no standard page heading line-size 255.
include bdcrecx1.
parameters: dataset(132) lower case.
***    DO NOT CHANGE - the generated data section - DO NOT CHANGE    ***
*   If it is nessesary to change the data section use the rules:
*   1.) Each definition of a field exists of two lines
*   2.) The first line shows exactly the comment
*       '* data element: ' followed with the data element
*       which describes the field.
*       If you don't have a data element use the
*       comment without a data element name
*   3.) The second line shows the fieldname of the
*       structure, the fieldname must consist of
*       a fieldname and optional the character '_' and
*       three numbers and the field length in brackets
*   4.) Each field must be type C.
*** Generated data section with specific formatting - DO NOT CHANGE ***
***data: begin of itab occurs 0 ,
***       matnr(20) type c,
***       mbrsh(30) type c,
***       mtart(30) type c,
***       kzsel(20) type c,
***       maktx(40) type c,
***       meins(5) type c,
***       end of itab.
data: begin of record occurs 0,
* data element: MATNR
        matnr_001(018),
* data element: MBRSH
        mbrsh_002(001),
* data element: MTART
        mtart_003(004),
* data element: XFELD
        kzsel_01_004(001),
* data element: MAKTX
        maktx_005(040),
* data element: MEINS
        meins_006(003),
* data element: MTPOS_MARA
        mtpos_mara_007(004),
      end of record.
*** End generated data section ***
start-of-selection.
*perform open_dataset using dataset.
perform open_group.
**do.
**read dataset dataset into record.
**if sy-subrc <> 0. exit. endif.
call function 'GUI_UPLOAD'
exporting
    filename                      = 'c:\jitu\bdc\10002.txt'
   filetype                      = 'ASC'
   has_field_separator           = 'x'
*   HEADER_LENGTH                 = 0
*   READ_BY_LINE                  = 'X'
*   DAT_MODE                      = ' '
*   CODEPAGE                      = ' '
*   IGNORE_CERR                   = ABAP_TRUE
*   REPLACEMENT                   = '#'
*   CHECK_BOM                     = ' '
*   VIRUS_SCAN_PROFILE            =
*   NO_AUTH_CHECK                 = ' '
* IMPORTING
*   FILELENGTH                    =
*   HEADER                        =
tables
    data_tab                      = record
* 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.
loop at record .
perform bdc_dynpro      using 'SAPLMGMM' '0060'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMMG1-MATNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'RMMG1-MATNR'
                              record-matnr_001.
perform bdc_field       using 'RMMG1-MBRSH'
                              record-mbrsh_002.
perform bdc_field       using 'RMMG1-MTART'
                              record-mtart_003.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(01)'
                              record-kzsel_01_004.
perform bdc_dynpro      using 'SAPLMGMM' '4004'.
perform bdc_field       using 'BDC_OKCODE'
                              '=BU'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx_005.
perform bdc_field       using 'BDC_CURSOR'
                              'MARA-MEINS'.
perform bdc_field       using 'MARA-MEINS'
                              record-meins_006.
perform bdc_field       using 'MARA-MTPOS_MARA'
                              record-mtpos_mara_007.
perform bdc_transaction using 'MM01'.
**enddo.
endloop.
perform close_group.
*perform close_dataset using dataset.
&*****************Reward point if helpful************&

How can I modify data from a Transparent Table without ABAP code.

Hi,All
How can I modify data from a Transparent Table (like TCURR), and important thing is I want do all that with no ABAP code here. It is like that we always do that in a Oracle database use TOAD or PLSQL third party tools, with no script code here.
I had fond that there is a way can do that:
1, type 'se11',and Display Database table 'TCURR', click Contents, then click Execute to display all data
2, type '/h' and let debugging on
3, select one of this data then click 'Display',enter in debugging system.
4, then make a breakpoint in the code. But... display a dialog let I type a 'ABAP Cmnds', I want to know what can be type in for that?
and, My system is ECC6.
thank you all
Edited by: xuehui li on Aug 20, 2008 6:30 PM

Hello,
Your approach (with Vijay's suggestion) MAY work. However, depending on how tight security is at the company that you are working at you may or may not be able to acutaly change the value of the SHOW field to EDIT. This will be especially true if you are working in a Production environment. Vijay's other comment is true as well. This is not a recommended approach to change data (especially data with a financial impact like TCURR) in a production environment. The auditors will not be impressed.
Explore the option of a maintenace view or look at tcode TBDM to upload a file which includes daily rates from providers like Reuters or try tcode s_bce_68000174 which is a maintenance view on TCURR.
Regards
Greg Kern

Error in the ABAP Code for Customer Exit Variable

Could you please update me what is the wrong with the below ABAP Code developed for Customer Exit Variable in BW
i created a Variable (ZVWKNO) of Customer Exit,Single Value ,Mandatory and Variable is ready for input
In CMOD i had written the below Code:
When 'ZVWKNO'.
DATA: WEEK(2) TYPE N,
WEEKNO(2) TYPE N.
IF i_step = 1.
l_st_date = SY-DATUM.
CALL FUNCTION 'DATE_GET_WEEK'
EXPORTING
DATE = l_st_date
IMPORTING
WEEK = l_fn_week.
CHECK sy-subrc = 0.
WEEK = l_fn_week+4(2).
If WEEK 0.
WEEKNO = WEEK - 1.
l_s_range-low = WEEKNO.
l_s_range-sign = k_sign_inclusive.
l_s_range-opt = k_option_equals.
APPEND l_s_range to e_t_range.
ENDIF.
ENDIF.
But when i execute the query the default value is not populated with Week-1 No in the variable screen
Please update me what went wrong
Thanks

Case ZVWKNO.                "write this with out comments
When '1'.              "write the value that needs to equal with value in varaible ZVWKNO after when in sungle quotes
DATA: WEEK(2) TYPE N,
WEEKNO(2) TYPE N.
IF i_step = 1.
l_st_date = SY-DATUM.
CALL FUNCTION 'DATE_GET_WEEK'
EXPORTING
DATE = l_st_date
IMPORTING
WEEK = l_fn_week.
CHECK sy-subrc = 0.
WEEK = l_fn_week+4(2).
If WEEK 0.                                    "check this Week Minimum is '01' and Maximum '52'
WEEKNO = WEEK - 1.
l_s_range-low = WEEKNO.
l_s_range-sign = k_sign_inclusive.
l_s_range-opt = k_option_equals.
APPEND l_s_range to e_t_range.
ENDIF.
ENDIF.
Prabhudas

How to generate new perner number using Abap Code in pa0002. what is the fu

how to generate new perner number using Abap Code in pa0002. what is the function Module used.

hi
define internal number ranges for ur implementation then when u run PA 40 do not input any employee number , system will generate the employee number automatically.
Regards
sameer

How to transfer data in change log table of dso to z-table using abap code

Hi can you please explain me how to transfer data in change log table of dso to z-table using abap code ,with out using Function module concept

PROGRAM NAME:   ZBW_DELTA_TO_GSTAR                                 **
report ZBW_DELTA_TO_GSTAR no standard page heading
                                 line-size 120
                                 line-count 75
                                 message-id ZBW_MSG_CLS.
tables:   ZGIV_DLTA_EBV_BB,
          ZGIV_DLTA_EM2_BL,
          ZGIV_DLTA_EM2_BK.
Selection Screen Definitions
SELECTION-SCREEN: BEGIN OF BLOCK INNER WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN: SKIP 1.
PARAMETERS:       EBVBB RADIOBUTTON GROUP ROLL,
                  EM2BL RADIOBUTTON GROUP ROLL,
                  EM2BK RADIOBUTTON GROUP ROLL.
SELECTION-SCREEN: END OF BLOCK INNER.
Data: WS_UPDATE_FLAG Type C,
       UCounter(9)      Type N,
       ICounter(9)      Type N.
DATA: T_ZGIV_DLTA_EBV_BB Type Standard Table of ZGIV_DLTA_EBV_BB,
       s_ZGIV_DLTA_EBV_BB LIKE line of T_ZGIV_DLTA_EBV_BB.
DATA: T_ZGIV_DLTA_EM2_BK Type Standard Table of ZGIV_DLTA_EM2_BK,
       s_ZGIV_DLTA_EM2_BK LIKE line of T_ZGIV_DLTA_EM2_BK.
DATA: T_ZGIV_DLTA_EM2_BL Type Standard Table of ZGIV_DLTA_EM2_BL,
       s_ZGIV_DLTA_EM2_BL LIKE line of T_ZGIV_DLTA_EM2_BL.
Standard Internal Tables - Describe usage.
data: begin of i_AEPSD_O0140 occurs 0.
        include structure /BIC/AEPSD_O0140.
data: end of i_AEPSD_O0140.
data: begin of i_AEPSD_O0240 occurs 0.
        include structure /BIC/AEPSD_O0240.
data: end of i_AEPSD_O0240.
data: begin of i_AEPSD_O0340 occurs 0.
        include structure /BIC/AEPSD_O0340.
data: end of i_AEPSD_O0340.
data: begin of i_GIV_DLTA_EBV_BB occurs 0.
        include structure ZGIV_DLTA_EBV_BB.
data: end of i_GIV_DLTA_EBV_BB.
data: begin of i_GIV_DLTA_EM2_BK occurs 0.
        include structure ZGIV_DLTA_EM2_BK.
data: end of i_GIV_DLTA_EM2_BK.
data: begin of i_GIV_DLTA_EM2_BL occurs 0.
        include structure ZGIV_DLTA_EM2_BL.
data: end of i_GIV_DLTA_EM2_BL.
Miscellaneous Program Variables and Constants.
TOP-OF-PAGE
top-of-page.
START-OF-SELECTION
start-of-selection.
Clear: i_GIV_DLTA_EBV_BB,
         i_GIV_DLTA_EM2_BK,
         i_GIV_DLTA_EM2_BL,
         UCounter, ICounter.
IF EBVBB = 'X'.
    PERFORM 100_EXTRACT_EBV_BB_DELTA_RECS.
ELSEIF EM2BK = 'X'.
    PERFORM 100_EXTRACT_EM2_BK_DELTA_RECS.
ELSE.
    PERFORM 100_EXTRACT_EM2_BL_DELTA_RECS.
ENDIF.
FORM 100_EXTRACT_EBV_BB_DELTA_RECS
FORM 100_EXTRACT_EBV_BB_DELTA_RECS.
Refresh:   i_AEPSD_O0140,
             i_GIV_DLTA_EBV_BB.
Clear:      UCounter, ICounter, s_ZGIV_DLTA_EBV_BB .
Select * From /BIC/AEPSD_O0140
    Into TABLE i_AEPSD_O0140.
IF SY-Subrc = 0.
    LOOP AT i_AEPSD_O0140.
      MOVE-CORRESPONDING i_AEPSD_O0140 TO s_ZGIV_DLTA_EBV_BB.
      MOVE SY-DATUM to s_ZGIV_DLTA_EBV_BB-create_dt.
      INSERT ZGIV_DLTA_EBV_BB FROM s_ZGIV_DLTA_EBV_BB.
      IF SY-Subrc = 0.
        ICounter = ICounter + 1.
      ELSE.
        UPDATE ZGIV_DLTA_EBV_BB FROM s_ZGIV_DLTA_EBV_BB.
        IF SY-Subrc = 0.
          UCounter = UCounter + 1.
        ELSE.
          Message E067 with SY-DATUM ' ' SY-UZEIT ' '.
        ENDIF.
      ENDIF.
    ENDLOOP.
ENDIF.
ENDFORM.                    "100_EXTRACT_EBV_BB_DELTA_RECS
FORM 100_EXTRACT_EM2_BK_DELTA_RECS
FORM 100_EXTRACT_EM2_BK_DELTA_RECS.
Refresh:   i_AEPSD_O0240,
           i_GIV_DLTA_EM2_BK.
Clear:      UCounter, ICounter, s_ZGIV_DLTA_EM2_BK .
Select * From /BIC/AEPSD_O0240
    Into TABLE i_AEPSD_O0240.
IF SY-Subrc = 0.
    LOOP AT i_AEPSD_O0240.
      MOVE-CORRESPONDING i_AEPSD_O0240 TO s_ZGIV_DLTA_EM2_BK.
      MOVE SY-DATUM to s_ZGIV_DLTA_EM2_BK-create_dt.
        INSERT ZGIV_DLTA_EM2_BK FROM s_ZGIV_DLTA_EM2_BK.
      IF SY-Subrc = 0.
        ICounter = ICounter + 1.
      ELSE.
        UPDATE ZGIV_DLTA_EM2_BK FROM s_ZGIV_DLTA_EM2_BK.
        IF SY-Subrc = 0.
          UCounter = UCounter + 1.
        ELSE.
          Message E067 with SY-DATUM ' ' SY-UZEIT ' '.
        ENDIF.
      ENDIF.
    ENDLOOP.
ENDIF.
ENDFORM.                    "100_EXTRACT_EM2_BK_DELTA_RECS
FORM 100_EXTRACT_EM2_BL_DELTA_RECS
FORM 100_EXTRACT_EM2_BL_DELTA_RECS.
Refresh:   i_AEPSD_O0340,
           i_GIV_DLTA_EM2_BL.
Clear:      UCounter, ICounter, s_ZGIV_DLTA_EM2_BL .
Select * From /BIC/AEPSD_O0340
    Into TABLE i_AEPSD_O0340.
IF SY-Subrc = 0.
    LOOP AT i_AEPSD_O0340.
      MOVE-CORRESPONDING i_AEPSD_O0340 TO s_ZGIV_DLTA_EM2_BL.
      MOVE SY-DATUM to s_ZGIV_DLTA_EM2_BL-create_dt.
        INSERT ZGIV_DLTA_EM2_BL FROM s_ZGIV_DLTA_EM2_BL.
      IF SY-Subrc = 0.
        ICounter = ICounter + 1.
      ELSE.
        UPDATE ZGIV_DLTA_EM2_BL FROM s_ZGIV_DLTA_EM2_BL.
        IF SY-Subrc = 0.
          UCounter = UCounter + 1.
        ELSE.
          Message E067 with SY-DATUM ' ' SY-UZEIT ' '.
        ENDIF.
      ENDIF.
    ENDLOOP.
ENDIF.
ENDFORM.                    "100_EXTRACT_EM2_BL_DELTA_RECS
END-OF-SELECTION
end-of-selection.
perform D1000_REPORT_DATA.
D1000_REPORT_DATA
form D1000_REPORT_DATA.
*Display the title of the program
write: /25 SY-TITLE.
skip.
Diaplay the details of the user and time
write: /1 'Executed by', 15 SY-UNAME, 30 'Date',
38 SY-DATUM, 53 'Time', 60 SY-UZEIT.
skip 2.
write: / 'Delta Records have been extracted ',
         /   'Updates : ', UCounter,
         /   'Inserts : ', ICounter.
skip.
skip 3.
write: /20 'End of the report'.
endform.                                           "D1000_REPORT_DATA
chgeck it out this also may hep you

Avoid automatic insertion of CR's and LF's

Hello!
How can I avoid the automatic insertion of CR's and LF's by JSP tags?
I am developing a XHTML application with Cocoon which uses JSPs. One of my "pages" is composed of a list of images which need to be inserted side by side, without any spaces between them. I am using JSTL (forEach tag) to iterate through my images' collection. Although the resulting XHTML has white spaces between the images (XHTML converts CR's and LF's to one white space).
I can only have the correct behavior if my JSP has only one line (every tag on the same line), which is not User Friendly, and I want to avoid.
Any help would be welcome.
Thanks you in advance,
Victor Batista

I'm not exactly sure what you're describing, but I do know that tags and scriptlets that don't give display, convert to whitespace in the resulting document.
If I could remember who first discovered this I'd give credit, because it's saved me some grief, but all you have to do (if this is your issue) is make sure that the closing brace of a tag or scriptlet is on the same line as the next starting brace (tag or html.)<%@ page ...
%><jsp:useBean ...
/><HTML>
<%
...some code here...
%><BODY>etc.

Automatic insertion of comments in ABAP code

Similar Messages

Maybe you are looking for