SAP Abap Sample Program

ABAP queries with dynamic WHERE clause

2014-11-06T23:25:00.003-08:00

     DATA l_where(100) OCCURS 0 WITH HEADER LINE.

     APPEND 'laufd = p_laufd' TO l_where.
     APPEND ' and ' TO l_where.
     APPEND 'laufi = p_laufi' TO l_where.

     SELECT * FROM reguh INTO CORRESPONDING FIELDS OF TABLE it_reguh
     WHERE (l_where). // Dynamically generate the WHERE clause

Delete duplicate from internal table

2013-06-05T18:03:00.000-07:00

Duplicated rows in internal table can be easily deleted using standard code "DELETE ADJACENT DUPLICATES"

for example :

DELETE ADJACENT DUPLICATES FROM itab COMPARING ALL FIELDS.

This code will compare all the fields in the internal table and only delete the the rows if all the fields are duplicated with previous rows.

DELETE ADJACENT DUPLICATES FROM itab COMPARING col1.

This code will compare a particular field(s) in the internal table and only delete the the rows if these field(s) is/are duplicated with previous rows.

Make sure that your internal table is sorted by the fields you want to be checked for duplicates BEFORE deleting the duplicates.

for example:

SORT itab BY col1.

DELETE ADJACENT DUPLICATES FROM itab COMPARING col1.

Abap substring

2013-04-30T00:22:00.003-07:00

data: datechar(10).

To build the date lets use sy-datum, which has the current system date.

  write SY-DATUM+4(2) to datechar+0(2).
  write '/' datechar+2(1).
  write SY-DATUM+6(2) to datechar+3(2).
  write '/' TO datechar+5(1).
  write SY-DATUM+0(4) to datechar+6(4).

Value of SY-DATUM 20130501

Here's how the field changes with the execution of each line.

05________
05/_______
05/01_____
05/01/____
05/01/2013

Abap Identify Number and Characters

2012-12-06T19:17:00.005-08:00

The following sample shows how to identify number and characters in a string.

report z_identify.

data: test(10) type c value 'ABC123456'.
data: length type i.

length = strlen( test ).

if test(length) co '1234567890'.
  write:/ 'This is a number'.
else.
  write:/ 'This is not a number'.
endif.

Abap send email library

2012-09-15T06:42:00.003-07:00

The below include program is used to send email with CC and attachment functionality:

*&---------------------------------------------------------------------*
*&  Include
*&---------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*  Purpose:
*  Provide generic subroutines for any ABAP programs with intention of
*  sending email (SAPOffice or Internet) with attachments
*&---------------------------------------------------------------------*

  DATA: objpack LIKE sopcklsti1 OCCURS  2 WITH HEADER LINE. "Packing list
  DATA: objhead LIKE solisti1   OCCURS  1 WITH HEADER LINE. "Object header
  DATA: objtxt  LIKE solisti1   OCCURS 10 WITH HEADER LINE. "Email body message
  DATA: objbin  LIKE solisti1   OCCURS 10 WITH HEADER LINE. "Binary attachments (PDF)
  DATA: objhex  LIKE solix      OCCURS 10 WITH HEADER LINE. "Hex attachments (XLS)
  DATA: reclist LIKE somlreci1  OCCURS  5 WITH HEADER LINE. "Recipient list
  DATA: doc_chng LIKE sodocchgi1. "Email information

  DATA: tab_lines LIKE sy-tabix. "Number of records of the content table being filled

  DATA: pk_lines LIKE sy-tabix. "Number of lines of the attachment packing list

*&---------------------------------------------------------------------*
*&      Form  initialize_email
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
  FORM initialize_email.
    REFRESH: objpack,
             objhead,
             objtxt,
             objbin,
             objhex,
             reclist.
    CLEAR:   doc_chng, pk_lines.
  ENDFORM.                    "initialize_email

*&---------------------------------------------------------------------*
*&      Form  build_email_body
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->L_SUBJ     text
*----------------------------------------------------------------------*
  FORM build_email_body TABLES it_body STRUCTURE solisti1
                        USING l_subj.

* Setup the email body message
    IF NOT it_body[] IS INITIAL.
      REFRESH objtxt.
      objtxt[] = it_body[].
    ELSE.
      objtxt = l_subj.
      APPEND objtxt.
    ENDIF.

* Subject of email
    MOVE l_subj TO doc_chng-obj_descr.

    DESCRIBE TABLE objtxt LINES tab_lines.
    READ TABLE objtxt INDEX tab_lines.

    doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).

* Prepare the packing list for email body
*    DESCRIBE TABLE objpack LINES pk_lines.
    CLEAR objpack-transf_bin.
    objpack-head_start = 1.
    objpack-head_num   = 0.
    objpack-body_start = 1.
    objpack-body_num   = tab_lines.
    objpack-doc_type   = 'RAW'.
    APPEND objpack.
  ENDFORM.                    "build_email_body

*&---------------------------------------------------------------------*
*&      Form  build_hex_attachment
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
  FORM build_hex_attachment TABLES it_hex
                            USING l_filename LIKE sopcklsti1-obj_descr
                                  l_filetype LIKE sopcklsti1-doc_type.

    DATA: it_objhex LIKE solix OCCURS 0 WITH HEADER LINE.

    IF NOT it_hex[] IS INITIAL.
      CALL FUNCTION 'SCMS_TEXT_TO_BINARY'
*       EXPORTING
*         FIRST_LINE            = 0
*         LAST_LINE             = 0
*         APPEND_TO_TABLE       = ' '
*         MIMETYPE              = ' '
*         ENCODING              =
*       IMPORTING
*         OUTPUT_LENGTH         =
        TABLES
          text_tab              = it_hex
          binary_tab            = it_objhex
        EXCEPTIONS
          failed                = 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.
      ELSE.
        APPEND LINES OF it_objhex TO objhex.

* IT_OBJHEX is used as OBJHEX can contain multiple attachments

        DESCRIBE TABLE it_objhex LINES tab_lines.

        objpack-transf_bin = 'X'.
        objpack-head_start = 1.
        objpack-head_num   = 0.
        objpack-body_start = pk_lines + 1.
        objpack-body_num   = tab_lines.
        objpack-doc_type   = l_filetype.
*        objpack-obj_name   = 'ATTACHMENT'.
        objpack-obj_descr = l_filename.
        objpack-doc_size   = tab_lines * 255.
        APPEND objpack.

        pk_lines = objpack-body_start + objpack-body_num - 1.
      ENDIF.

    ENDIF.
  ENDFORM.                    "build_hex_attachment

*&---------------------------------------------------------------------*
*&      Form  build_recip_list
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
  FORM build_recip_list USING l_recipient
                              l_reciptype LIKE somlreci1-rec_type.
    MOVE l_recipient TO reclist-receiver.

    reclist-rec_type = l_reciptype.
    reclist-copy = ''.

    APPEND reclist.
  ENDFORM.                    "build_recip_list

*&---------------------------------------------------------------------*
*&      Form  build_recip_cc_list
*&---------------------------------------------------------------------*

  FORM build_recip_cc_list USING l_recipient
                              l_reciptype LIKE somlreci1-rec_type.
    MOVE l_recipient TO reclist-receiver.

    reclist-rec_type = l_reciptype.
    reclist-copy = 'X'.

    APPEND reclist.
  ENDFORM.                    "build_recip_cc_list

*&---------------------------------------------------------------------*
*&      Form  send_email
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
  FORM send_email.

    IF reclist[] IS INITIAL.
      PERFORM build_recip_list USING sy-uname
                                     'B'.
    ENDIF.

    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        document_data                    = doc_chng
*     PUT_IN_OUTBOX                    = ' '
       commit_work                      = 'X'
*   IMPORTING
*     SENT_TO_ALL                      =
*     NEW_OBJECT_ID                    =
      TABLES
        packing_list                     = objpack
       object_header                    = objhead
*{   REPLACE        DEVK935771                                        2
*\*     CONTENTS_BIN                     =
      CONTENTS_BIN                     = objbin
*}   REPLACE
       contents_txt                     = objtxt
       contents_hex                     = objhex
*     OBJECT_PARA                      =
*     OBJECT_PARB                      =
        receivers                        = reclist
     EXCEPTIONS
       too_many_receivers               = 1
       document_not_sent                = 2
       document_type_not_exist          = 3
       operation_no_authorization       = 4
       parameter_error                  = 5
       x_error                          = 6
       enqueue_error                    = 7
       OTHERS                           = 8
              .
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*{   DELETE         DEVK935721                                        1
*\    ELSE.
*\      SUBMIT rsconn01 AND RETURN.
*}   DELETE
    ENDIF.

  ENDFORM.                    "send_email

*&---------------------------------------------------------------------*
*&      Form  send_email_w_from_addr
*&---------------------------------------------------------------------*
*       T01K918835
*----------------------------------------------------------------------*
  FORM send_email_w_from_addr USING l_from.

    TYPES:
      BEGIN OF ty_s_imp00,
        imp01 TYPE c,                    "Sent To All
        imp02 TYPE sofolenti1-object_id, "New Object ID
        imp03 TYPE soudk,                "Sender ID
      END OF ty_s_imp00.

    DATA:
      lw_imp00     TYPE ty_s_imp00,
      lt_sosct     TYPE sosctab,
      lt_obcat     TYPE TABLE OF sxobjcat.

    IF reclist[] IS INITIAL.
      PERFORM build_recip_list USING sy-uname
                                     'B'.
    ENDIF.

    CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
      EXPORTING
        document_data              = doc_chng
        put_in_outbox              = 'X'
        sender_address             = l_from
        sender_address_type        = 'SMTP'
        commit_work                = 'X'
      IMPORTING
        sent_to_all                = lw_imp00-imp01
        new_object_id              = lw_imp00-imp02
        sender_id                  = lw_imp00-imp03
      TABLES
        packing_list               = objpack
*       contents_bin               =
        contents_hex               = objhex
        contents_txt               = objtxt
        receivers                  = reclist
      EXCEPTIONS
       too_many_receivers               = 1
       document_not_sent                = 2
       document_type_not_exist          = 3
       operation_no_authorization       = 4
       parameter_error                  = 5
       x_error                          = 6
       enqueue_error                    = 7
       OTHERS                           = 8.
    .
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ELSE.
* Force the email sending immediately.

      CLEAR: lt_sosct, lt_obcat.
      COMMIT WORK AND WAIT.

      SELECT  * FROM sosc
        INTO TABLE lt_sosct
        WHERE objtp = lw_imp00-imp02+0(3) AND
              objyr = lw_imp00-imp02+3(2) AND
              objno = lw_imp00-imp02+5.

      IF sy-subrc = 0.

        CALL FUNCTION 'SX_SEND_DISPATCHER'
          EXPORTING
            sosc_tab          = lt_sosct
          TABLES
            obj_cat           = lt_obcat
          EXCEPTIONS
            internal_error    = 1
            directsend_failed = 2
            OTHERS            = 3.

        IF sy-subrc <> 0.
          MESSAGE s005(z1) WITH space 'Email' 'Sent'.
        ELSE.
          MESSAGE s004(z1) WITH space 'Email' 'Sent'.
        ENDIF.

      ELSE.
        MESSAGE s005(z1) WITH space 'Email' 'Sent'.
      ENDIF.

    ENDIF.

  ENDFORM.                    "send_email
*{   INSERT         DEVK935771                                        1
FORM build_pdf_attachment TABLES it_pdf
                            USING l_filename LIKE sopcklsti1-obj_descr
                                  l_filetype LIKE sopcklsti1-doc_type.

  DATA: it_objbin  LIKE solisti1 OCCURS 0 WITH HEADER LINE.

  if it_pdf[] is not initial.
    CALL FUNCTION 'SX_TABLE_LINE_WIDTH_CHANGE'
*     EXPORTING
*       LINE_WIDTH_SRC                    =
*       LINE_WIDTH_DST                    =
*       TRANSFER_BIN                      = ' '
      TABLES
        content_in                        = it_pdf
        content_out                       = it_objbin
     EXCEPTIONS
       ERR_LINE_WIDTH_SRC_TOO_LONG       = 1
       ERR_LINE_WIDTH_DST_TOO_LONG       = 2
       ERR_CONV_FAILED                   = 3
       OTHERS                            = 4
              .
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    else.
        APPEND LINES OF it_objbin TO objbin.
* IT_OBJBIN is used as OBJBIN can contain multiple attachments

        DESCRIBE TABLE it_objbin LINES tab_lines.

        objpack-transf_bin = 'X'.
        objpack-head_start = 1.
        objpack-head_num   = 0.
        objpack-body_start = pk_lines + 1.
        objpack-body_num   = tab_lines.
        objpack-doc_type   = l_filetype.
*        objpack-obj_name   = 'ATTACHMENT'.
        objpack-obj_descr = l_filename.
        objpack-doc_size   = tab_lines * 255.
        APPEND objpack.

        pk_lines = objpack-body_start + objpack-body_num - 1.
    ENDIF.

  ENDIF.
ENDFORM.
*}   INSERT

ABAP Folder Selection input box

2012-09-15T06:26:00.003-07:00

The below program will create a input selection that will pop up the folder selection box.

REPORT  z_select_folder.

CONSTANTS: c_default_folder TYPE rlgrap-filename VALUE 'C:\'.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
PARAMETERS :  p_folder LIKE rlgrap-filename OBLIGATORY DEFAULT c_default_folder.
SELECTION-SCREEN END OF BLOCK b1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_folder.
  PERFORM select_folder CHANGING p_folder.

FORM select_folder  CHANGING p_p_folder.
  DATA: l_path TYPE string.

  CALL METHOD cl_gui_frontend_services=>directory_browse
    EXPORTING
      window_title         = 'Select Folder'
      initial_folder       = 'C:\'
    CHANGING
      selected_folder      = l_path
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  MOVE l_path TO p_p_folder.
ENDFORM.                    " SELECT_FOLDER

SAP Execute MIRO using BAPI_INCOMINGINVOICE_CREATE

2012-02-12T19:32:00.000-08:00

This is the sample program to create incoming vendor invoice (MIRO) using BAPI_INCOMINGINVOICE_CREATE

REPORT  zt_bapimiro.

DATA: wa_header LIKE bapi_incinv_create_header.

DATA: it_item TYPE STANDARD TABLE OF bapi_incinv_create_item,
      wa_item TYPE bapi_incinv_create_item.

DATA: it_ret LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

DATA: g_invno LIKE bapi_incinv_fld-inv_doc_no,
      g_fyear LIKE bapi_incinv_fld-fisc_year.

wa_header-invoice_ind = 'X'.
wa_header-doc_date = '20120131'.   "Enter the document date
wa_header-pstng_date = '20120208'. "Enter the posting date
wa_header-ref_doc_no = 'Test'.
wa_header-comp_code = '3100'.
wa_header-gross_amount = '5908.11'. "Enter the gross amount(aft. tax) for the invoice
wa_header-calc_tax_ind = 'X'.
wa_header-currency = 'USD'.

wa_item-invoice_doc_item = '000001'.
wa_item-po_number = '4590038150'.    "Enter the PO number
wa_item-po_item = '00120'.           "Enter the PO item number
wa_item-ref_doc = '5007548571'.    "Enter the GR number
wa_item-ref_doc_year = '2012'.       "Enter the GR fiscal year
wa_item-ref_doc_it = '0001'. "Enter the GR item number
wa_item-tax_code = 'V7'. "Enter the tax code applicable
wa_item-item_amount = '5521.60'.     "Enter the item amount
wa_item-quantity = '2380'.           "Enter the invoice quantity
wa_item-po_unit = 'EA'.              "Enter the UoM
APPEND wa_item TO it_item.

CALL FUNCTION 'BAPI_INCOMINGINVOICE_CREATE'
  EXPORTING
    headerdata                = wa_header
*   ADDRESSDATA               =
IMPORTING
   invoicedocnumber          = g_invno
   fiscalyear                = g_fyear
  TABLES
    itemdata                  = it_item
*   ACCOUNTINGDATA            =
*   GLACCOUNTDATA             =
*   MATERIALDATA              =
*   TAXDATA                   =
*   WITHTAXDATA               =
*   VENDORITEMSPLITDATA       =
    return                    = it_ret
*   EXTENSIONIN               =
          .

IF g_invno IS NOT INITIAL.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
*   EXPORTING
*     WAIT          =
*   IMPORTING
*     RETURN        =
            .
ENDIF.
WRITE:/1 g_invno, g_fyear.

LOOP AT it_ret.
  WRITE:/1 it_ret-message.
ENDLOOP.

ABAP Field Symbols

2011-12-21T18:08:00.000-08:00

One of the most useful of Field Symbols in ABAP is Dynamic assign statement, meaning if you don't know the name of field to assign to the field symbols during writing your program, you can use this :

ASSIGN (<f>) TO <FS>.

Normally this can be used if you are writing a program to read the name of the field from a customized table, then you can retrieve the value of the field from the field symbols.

Sample:

Suppose we have three programs. The main program:

REPORT demo_field_symbols_dynami_as_1.
TABLES sbook.
sbook-fldate = sy-datum.
PERFORM form1 IN PROGRAM demo_form1.

The other two programs are:

REPORT demo_form1.
FORM form1.
  PERFORM form2 IN PROGRAM demo_form2.
ENDFORM.

and

REPORT demo_form2.
FORM form2.
  DATA name(20) TYPE c VALUE 'SBOOK-FLDATE'.
FIELD-SYMBOLS <fs> TYPE ANY.
  ASSIGN (name) TO <fs>.
  IF sy-subrc EQ 0.
    WRITE / <fs>.
ENDIF.
ENDFORM.

The output looks something like this: 02.06.1998

More Detail? please visit :

http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb38d5358411d1829f0000e829fbfe/content.htm

SAP FM Exchange Rate

2011-12-06T01:23:00.001-08:00

The function is used to convert an amount to other currency.

Function Module: CONVERT_AMOUNT_TO_CURRENCY

Sample:

         CALL FUNCTION 'CONVERT_AMOUNT_TO_CURRENCY'
         EXPORTING
             DATE             = posting_date
             FOREIGN_CURRENCY = doc_curr
             FOREIGN_AMOUNT   = unitprice_lc2
             LOCAL_CURRENCY   = gv_lc2
         IMPORTING
             LOCAL_AMOUNT     = unitprice_lc2.

Note: The exchange rates are maintained in T-code F-62.

Replace Characters using ABAP

2011-11-14T17:17:00.001-08:00

REPLACE ALL OCCURRENCES OF <Text to be replaced> IN <Original Text> WITH <Text to replace>.

if the material description consist special characters like "--", that will causing the output excel file out of alignment.

Using above code to replace all the "--" to blank or space:

For example:

gv_text = 'Material--ABC is a Raw material'.

REPLACE ALL OCCURRENCES OF '--' IN gv_text WITH ' '.

Output:

Material ABC is a Raw material.

FM Remove Leading Zero

2011-10-03T00:27:00.000-07:00

The function is used to remove the leading zero for the input text.

Function Module: CONVERSION_EXIT_ALPHA_OUTPUT

Sample:

     CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
     EXPORTING
       input  = gv_pi_result-iblnr
     IMPORTING
       output = gv_pi_result-iblnr.

input: 000012345678

output: 12345678

SAP ABAP System Fields

2011-09-26T19:58:00.000-07:00

SYSTEM Fields related with R/3 System

SY-DBSYS - R/3 DBMS like ORACLE.

SY-HOST - Application server .

SY-OPSYS - Application server Operating system .

SY-SYSID - R/3 System ID.

SYSTEM Fields about Current Terminal Session

SY-LANGU - One-character language key with the user’s logon language such as E

SY-MANDT - Login client e.g. 600

SY-MODNO - Index of the current external session starting from 0.

SY-UNAME - Login name of the user.

SYSTEM Fields related with current Date and Time

SY-DATUM - Date on the application server in YYYYMMDD format e.g. 20060414

SY-FDAYW - Day of the week according to Factory calendar e.g Monday = 1.

SY-TIMLO - User’s local time.

SY-UZEIT - Time on the application server.

SYSTEM Fields related with Current ABAP Program

SY-CALLD - If the program is started using CALL TRANSACTION / DIALOG, or SUBMIT … [AND RETURN] its value is 'X'.
If the program is started using LEAVE TO TRANSACTION or using a transaction code from a screen or when a batch input session is in progress its value is ' ' .

SY-CPROG - The name of the current program and name of the calling program within a procedure.

SY-DBNAM - The name of the logical database linked to an executable program.

SY-DYNGR - Screen group to which the current screen belongs.

SY-DYNNR - Number of the current screen.

SY-LDBPG - In executable programs, the database program of the associated logical database.

SY-REPID - Name of the current ABAP program.

SY-TCODE - The transaction code of the current program.

SYSTEM FIELDS for Background Processing and batch input

SY-BATCH - X if the ABAP program is running in the background, otherwise space

SYSTEM FIELDS for Batch Input

SY-BINPT - X while a batch input session is running and when an ABAP program is called using CALL TRANSACTION USING, otherwise space.

SYSTEM FIELDS For ABAP Programming

SY-ABCDE - It is a constant and contains alphabets(AB..Z). What ever the code page its value remains same.

SY-ULINE - Contains a horizontal line with length 255 used in creating lists.

SY-VLINE - Contains a vertical line , used in creating lists.

Loops

SY-INDEX - WithIn a loop it contains the number of loop passes including the current pass and is set by ABAP commands DO,WHILE.

Strings

SY-FDPOS - It contains the location of a hit in string operations. used with CO,CN, CA, NA, CS, NS, CP, and NP, offset values are assigned to SY-FDPOS depending on the search result.

Internal Tables

SY-TABIX - Current line of an internal table. It is set only for index tables. The field is either not set or is set to 0 for hashed tables. It iset by ABAP commands APPEND,COLLECT,LOOP AT,READ TABLE,SAERCH itab FOR .

SY-TFILL - After the statements DESCRIBE TABLE, LOOP AT, and READ TABLE, SY-TFILL contains the number of lines in the relevant internal table.

Database Access

SY-DBCNT - It contains the number of table entries processed. In an loop it is not set until after the ENDSELECT or ENDEXEC statement. It is set by ABAP commands DELETE,FETCH,INSERT,MODIFY and UPDATE.

SY-SUBRC - Return code set by the last ABAP statement. if it is 0 it means the statement was a success.

SYSTEM FIELDS for Screens

A group of system fields is set in the PAI event of each screen. Exceptf SY-DATAR, SY-LOOPC, and SY-STEPL, these can be used in list processing.

SY-CUCOL - Horizontal cursor position. Counter begins at column 2.

SY-CUROW - Vertical cursor position. Counter begins at line 1.

SY-DATAR - This field contains 'X' if at least one input field on the screen was changed by the user , otherwise it is space.It can be used to determine if user has made any changes and a popup can be called with a prompt e.g. POPUP_TO_CONFIRM_CHANGE.

SY-LOOPC - Number of lines currently displayed in a table control. Can be used to determine the step loop blocks in the screen and for scrolling functionality.

SY-PFKEY - GUI status of the current screen. This can be set in the PBO event using the SET PF-STATUS statu OF PROGRAM rep statement.

SY-SCOLS - Number of columns on the current screen.

SY-SROWS - Number of rows on the current screen.

SY-STEPL - Index of the current line in a table control. This is set in each loop pass. SY-STEPL does not have a meaningful value outside the loop (for example, during the POV event for a table line).

SY-TITLE - It contains the text that appears in the title bar of the screen. For selection screens and lists it is the program name,it can be set using the SET TITLEBAR statement.

SY-UCOMM - It contains the function code that triggered the PAI event.ENTER triggers the PAI but this field will remain blank if no function code is attached to ENTER key.

Selection Screens

SY-SLSET - Variant used to fill the selection screen.

SYSTEM FIELDS for Creating Lists

SY-COLNO - It contains the current column during list creation starting at 1. The field is set by the output statements WRITE,ULINE,SKIP,POSITION,NEW-LINE,NEW-PAGE and BACK (sets it to 1).

SY-LINCT - It contains length of the page in the list.Its value is 0 if the length of page is infinite.

SY-LINNO - It contains the current line during list creation begining from 1, and includes the page header. SY-LINNO is set by the ABAP output statements which are same as SY-COLNO.

SY-LINSZ - It contains the line width in the list. The default value is the default window width. You can change the line width of the list using the LINE-SIZE addition in the REPORT or NEW-PAGE statement. The default value is 84 .

SY-PAGNO - Current page during list creation.

SY-TVAR0 ... SY-TVAR9 - You can assign values to these variables in your programs. Their contents replace the placeholders in the list and column headers of the program in the TOP-OF-PAGE event.

SYSTEM FIELDS For Messages

With call of MESSAGE statement following system fields are set.

SY-MSGID - contains the message class

SY-MSGNO - contains the message number

SY-MSGTY - contains the message type

SY-MSGV1,…,SY-MSGV4 - These fields hold the place holders in the message.

ABAP Remove spaces in the text

2011-09-06T19:28:00.000-07:00

The function CONDENSE with the addition of NO-GAPS is used to remove the space in the text.

Sample:

DATA: inputText(20) VALUE ' Testing 1 2 3 ... ',
length TYPE I.

length = STRLEN( inputText ).
WRITE: 'Input :' , inputText.
WRITE: / 'Length: ', length.

* Use CONDENSE to remove the leading and trailing spaces.
CONDENSE inputText .
length = STRLEN( inputText ).
WRITE: 'Input :' , inputText.
WRITE: / 'Length: ', length.

* Use CONDENSE .. NO-GAPS to remove the spaces in between words in the text .
CONDENSE inputText NO-GAPS.
length = STRLEN( inputText ).
WRITE: 'Input :' , inputText.
WRITE: / 'Length: ', length.

Output:
Input: Testing 1 2 3 ...
Length: 19

Input:Testing 1 2 3 ...
Length: 17
* leading and trailing spaces has been removed.

Input:Testing123...
Length: 13
*Spaces in between the words in the text has been removed.

ABAP Length Of Character

2011-09-06T18:49:00.000-07:00

The function is used to retrieve the length of the input text.

Function: STRLEN (INPUT TEXT)

Sample:

DATA: output TYPE I,
input1(20) VALUE '12345',
input2(20) VALUE ' ABCD EFGH',

output = STRLEN( input1).
WRITE output.

output = STRLEN( input2 ).
WRITE / output.

Output:

5
10

Note: The spaces will be included in the character length count.

To remove the leading & tailing spaces or spaces within the text, please refer to CONDENSE ... NO-GAPS

SAPScript: Total number of pages display problem

2011-09-05T01:54:00.000-07:00

Symptom:

When displaying the total number of pages in the SAPScript form, if the total pages are more then 10 pages, the total number of pages display is incorrect:

For example, the result having 16 pages with the script :

Page: &PAGE& OF &SAPSCRIPT-FORMPAGES(C)&

When scrolling the Page 1 to 9, the result shown:

Page : 1 of 1
Page : 2 of 1
Page : 3 of 1

When scrolling the Page 10 above, the result shown:

Page : 10 of 16
Page : 11 of 16
Page : 12 of 16

Reason:

When using the &SAPSCRIPT-FORMPAGES(C)& without specify the length, SAP will compress the total number of pages using the length of the &PAGE& variable.

Solution:

1) Specify the length:
&SAPSCRIPT-FORMPAGES(3)&

2) Not using (C) option:
&SAPSCRIPT-FORMPAGES&

Function Module to split input text

2011-09-02T00:00:00.000-07:00

The function is used to split the input text to multiple line of data based on the number of character given.

Function Module: RKD_WORD_WRAP

Sample:

CALL FUNCTION 'RKD_WORD_WRAP'
    EXPORTING
      TEXTLINE       = lw_itcsy-value "input text
*    DELIMITER    = lw_delimiter      "Default = space
      OUTPUTLEN = 30                    "Default = 35
    IMPORTING
      OUT_LINE1      = lv_desc1
      OUT_LINE2      = lv_desc2
      OUT_LINE3      = lv_desc3
    TABLES
      OUT_LINES      = lt_output
    EXCEPTIONS
       OUTPUTLEN_TOO_LARGE = 1.

If the output having more then 3 lines, you can retrieve using the table.

Function Module Replace Strange Char

2011-09-01T02:21:00.000-07:00

Replace non-standard characters with standard characters

for example ǽ will be replaced by "."

É will be replaced by 'E'.

Function Module: SCP_REPLACE_STRANGE_CHARS

Sample:

CALL FUNCTION 'SCP_REPLACE_STRANGE_CHARS'
EXPORTING
     intext =                 " Input Text
*   intext_lg = 0         " i Number of Bytes in the Input Text
*   inter_cp = '0000'   " tcp00-cpcodepage Intermediate character set with replacements
*   inter_base_cp = '0000'   " tcp00-cpcodepage Basis Code Page for 'INTER_CP'
*   in_cp = '0000'             " tcp00-cpcodepage Char. set of INTEXT (if not system char. set)
*   replacement = 46       " '0' or the replacement character
IMPORTING
    outtext =                       " Output text
    outused =                    " Output text length
    outoverflow =              " 'X':Output text incomplete, ' ':otherwise
EXCEPTIONS
    INVALID_CODEPAGE = 1   " Unknown character set
    CODEPAGE_MISMATCH = 2 " Intermediate character set does not fit the system character set
    INTERNAL_ERROR = 3     " Internal error
    CANNOT_CONVERT = 4     " There was no replacement for a char. in INTEXT
    FIELDS_NOT_TYPE_C = 5. " Fields passed must be type C

Text Object Listing

2011-08-31T20:46:00.000-07:00

The text object is used to retrieve the document text data using the function module READ_TEXT.

Text Object	Meaning
AKKP	Processing letters of credit
AMPL	Text for approved manuf. parts
ANKA	Asset class texts
ANLA	Asset master texts
APP-DOT	Templates for WORD
APP-LETTER	Applicant correspondence
APP-MAIL	Mail applicant action
APP-NOTES	Notes on process
APP-OFFER	Bidding text
APP-SHPROF	Short portrait of applicant
APPROVAL	WCM: Approval
ARCHIVE	Text for archiving session
ASMD	Service master text
AUDIT	Audit Information System Texts
AUFK	Order text
AUKO	Allocation table header text
AUPO	Allocation table item text
BELEG	Document text
BELEG_FIAA	Attachment document text
BGMK	Model warranty header text
BGMP	Model warranty item text
BKK000	Notes for BCA
BKKHLD	Reserved Amounts BCA Notes
BKORM	Individual correspondence FI
BOM	Bill of material texts
BPAR	Business partner (role dep.)
BPAR_ALL	Business partner (general)
BPDK	Budget text
BRF	Business Rule Framework
BSV	Status management
BUT000	Business partners
C_SHEP_TDF	EHS: Long Text f. Val. Assign.
C_SHER_TDH	EHS: Temp. value files
C_SHES_ACH	EHS: IHS Safety Measures
C_SHES_ANC	Comment for Standardized Crit.
C_SHES_ERH	EHS: Result of Risk Assessment
C_SHES_EVA	EHS: Inc./Acc. Log HR Data
C_SHES_EVF	EHS: Inj./Illn. Log HR Data
C_SHES_FAM	EHS: Medical Safety Measures
C_SHES_ICD	EHS: Long Text for Diag. Key
C_SHES_INP	EHS: Docu for Persons Involved
C_SHES_MJ	EHS: Measurement Job
C_SHES_MP	EHS: Measurement Project
C_SHES_MPL	EHS: Measurement Project Plan
C_SHES_MPW	EHS: Work Area for Meas. Proj.
C_SHES_QCA	EHS: Question Long Text
C_SHES_QRM	EHS: Questionnaire Description
C_SHES_QTY	EHS: Long Text for Amounts
C_SHES_SPC	EHS: Medical Service Comments
C_SHES_TPC	EHS: Text Pers -> Protocol
C_SHES_TPP	EHS: Long Text for Phrases
C_SHES_TRI	EHS: Long Text for Identif.
C_SHES_WAH	EHS: Docu. for Work Area
CACSA1	Note on Commission Recipient
CACSOAWL	Worklist Object Assignment
CALLCENTER	Call center text
CAPV	Stand. times calculation texts
CATALOG	WCM: Catalog
CATS	Time entry sheet
CATSXT	Time Sheet for Services
CBPR	Business process text
CEPC	Profit center text
CGPL_TEXT	Project Plan.: SAPscript Text
CHANGE	Change service texts
CKBS	Base object text
CKECPMODEL	Text for Planning form
CKKS	Cost estimate header text
CKPH	Cost object text
CLIPBOARD	SAPscript editor clipboard
CMS_AST	Text for CMS Assets
CMS_CAG	Text for Collateral Agreements
CMS_RE	Text Object:CMS Real Estate
CMTO	Texts for Conf. mgmt objects
CMX_XS	Long Texts in XSteps
COB_LETTER	COBRA letter generation
CODPSPEC	PP-PI: PI sheet/messages
COFUNC2	Docu. environment function
COPOC	Long texts for POC and HA
COTPLP	Long text for schema position
CRHD	Work center
CSKA	Cost element text
CSKS	Cost center text
CSLA	Activity type text
DMC	Documentation of DMC
DNO	Messages (Basis)
DOC_ITEM	Line item texts
DOKU	Online Documentation
DOWNTIME	Downtime
DRAD	Object link long text
DRAT	Doc. manag. system long texts
DSYS	Hypertext modules
DXWB	DX Workbench
EBAN	Purchase requisition texts
EBANH	Purchase requis. header texts
EBRVERS	Batch record version
EHS_WAEAT	EHS: Note on Document (Waste)
EHS_WASTE1	Waste Generator
EHS_WASTE2	Waste Disposer
EHS_WASTE3	Waste Transporter
EHS_WASTE4	Authority
EHS_WASTE5	Waste Generation
EHS_WASTE6	Waste Disposal
EHS_WASTE7	Waste Transport
EHS_WASTE8	Disposal Channel
EHS_WASTE9	Waste Approval
EHSWA_MAN	Texts for Waste Disposal Docs
EINA	Texts, pur. info, general data
EINE	Texts, pur. info, pur.org.data
EKKO	Purchasing doc. header texts
EKPO	Purchasing doc. item texts
ELBP	Item text for vendor evaluat.
EMBK	Legal control: Licenses
EQUI	Text for equipment
ESLL	Texts for services
ESLZ	Texts f. standard serv.catalog
ESSR	Texts for entry sheets
FB01	FM document
FB15	Internet: Assign open items
FEATURE	Texts for charact. mngmnt
FHM	PRT long text
FMCFBUD	FM: Approval Budget Remainder
FMDT_TEXT	Derivation step
FMHVT	Rules Used for Budgets
FMMD	FM: Master Data
FMPSO	Standing Request
FMRE_TEXT	Long texts in earmarked funds
FMSHERLOCK	Clarification Pos. FMSHERLOCK
FOPC_SOA	Sarbanes Oxley Act
FORM	SAPscript layout sets
FORMDOCU	Form documentation
FORMVERS	Old (German) text
FVVD	General DARWIN loan
FVVD_ALLG	Loan agreement general corresp
FVVD_AUSZ	Down payment generation
FVVD_BSFG	Decision-making
FVVD_DV	Loan contract
FVVD_FNI0	Letter to prospective customer
FVVD_MASO	Post manually
FVVD_ORDER	Order letter
FVVD_PROL	Rollover offer
FVVD_PRUEF	Collat. val./Credit stdg check
FVVD_RTF	General DARWIN loan
FVVD_ZINS	Interest rate adjustment
FVVI	General real estate correspond
FVVI_ALZB	App. to State Central Bank
FVVI_ANPG	Garage rent adjustment
FVVI_ANPI	Index-linked rent adjustment
FVVI_ANPZU	Rent adjustment surcharges
FVVI_BA	Structural alterations
FVVI_BS	Guarantee
FVVI_FGEW	Free rent adj. commerc. object
FVVI_FWHN	Free residential rent adjstmnt
FVVI_GUTA	Corresp. rent adj. expert opin
FVVI_INTRO	Real estate management
FVVI_INVPP	Invoice based on cash flow
FVVI_KU_CH	Swiss notice
FVVI_MA	Swiss rent adjustment
FVVI_MKB	Tenant Account Sheet
FVVI_MKONT	Tenant account sheet
FVVI_MKUE	Corresp. for tenant changeover
FVVI_MV	Rental agreements
FVVI_MVA	Rental agreement corresp.
FVVI_NK	Service charge settlement
FVVI_NKANL	Service charges sttlmnt-appndx
FVVI_OWN1	Owner settlement
FVVI_RADJ	General rent adjustment
FVVI_SLST	Sales settlement
FVVI_SOST	Invoices
FVVI_TAB1	Table FTR,HDR,LINE
FVVI_WBNL	Netherlands apartment val.
FVVI_WEG	Owner-occ. management
FVVI_WIBE	Cost Efficiency Analysis
GLOS	Glossary Texts
GLPLTEXT	Long txt for ACC-SL/GL plan.
GRAPHICS	SAPscript grid screens
HR_APPNOTE	HR: Appraisal message
HR_ASR_PRC	HR Admin Serv. - Process Notes
HR_DPLAN	HR: Plan station notice
HR_E_CONT	HR-E: Contracts
HR_PBC	HR: PBC long texts
HR_RCF_CR	E-Recruitment Correspondence
HR_TEMNOTE	HR: Notes in Event Management
HRDSYS	Documentation for HR objects
HRHAP00	Notes
HRMESS	HR: General messages
HRPADFR	SAPscript Texts: France
HRPBSFRDCR	SAPscript Texts: France
HZ01	Material-ind. dang. goods txts
HZ02	Material-dep. dang. goods txts
IFLOT	Functional location text
IHSG	Approval text
IMAK	Appropriation request
IMAV	Appropriation request variant
IMPR	Inv. prog. position
IMPTT	Measuring point text
IMRG	Measurement document text
IMTP	Inv.program
INET	Object link text
INFO	Texts in info system
INST_CAT	Texts for process instructions
INST_POC	Texts for Operator Cockpit
IRLOT	Reference location texts
ISMP	Solution database Symptom
ISOL	Solution Database Solution
ISSR	Insurance: Statutory Reporting
J1IA	IN: Incoming Excise invoice
J1IARE1	IN: Excise Bonding ARE1
J1IEX	IN: Incoming Excise invoice
J1IF	IN: Subcontracting challan
J1IG	IN: Depot receipts
J1IH	IN: Excise JV
J1II	IN: Outgoing excise invoice
J1IJ	IN: Depot invoice
J1IM	IN: Depot invoice item
J1IS	IN: Excise invoice others
J1IU	IN: Forms tracking
J1IW	IN: Excise invoice without PO
KBLK	Test for full document
KE_PLAN	CO-PA planning
KE_PLPM	Parameter group (planning)
KE_PLSC	CO Planning framework
KE_SPRED	Distribution Key
KFPK	Long text for fixed price doc.
KLAT	Class texts
KNA1	Central customer texts
KNB1	Customer texts, accounting
KNKA	Credit management - central
KNKK	Credit management
KNMT	Text for customer mat. info
KNVK	Contact person texts, sales
KNVV	Customer texts, sales
KONA	Agreement texts
KONDD	Material determination
KONP	Condition texts
LFA1	Central vendor texts
LFB1	Vendor texts, company code
LFM1	Vendor texts, purchasing
LIKP	Delivery: Header texts
LIPS	Delivery: Item texts
LVACC	Leave Accrual
MATERIAL	Material texts, pur./storage
MCPLANLIS	LIS plan description
MDTXT	Material note MRP
MM07ET	Goods receipt slip
MPLA	Text for prev. maint. plan
MPOS	Text for maintenance item
MVKE	Material texts, sales
NBAU	Texts on building unit
NBEW	Comment on patient event
NDIA	Texts on diagnoses
NORG	Texts org. units
NPAT	Text on patient
NTXT	Test NTXT texts
NVVF	Texts, insurance, case
NVVP	Texts, insurance, person
OCS	Message Control (mail)
OFFICE	SAPoffice: Document type SCR
OXT	Object Extension
PACKINSTR	Packing instruction
PBET	Indep.req. schedule line texts
PBPT	Indep. requirements texts
PCPP	EC-PCA planning
PMS	Project texts (SAPSCRIPT)
PMSDOC	PS texts - DOC format
PMSLWP	PS Texte - LWP Format
PMSPPT	PS Texts - PPT Format
PMSRTF	PS texts - RTF format
PMSXLS	PS Texts - XLS Format
PP61_TEXT	Shift Planning
PSA	PSA Text
PVS	Product Variant Structure
QALT	Partial lot texts
QCVK	Certificate profile texts
QEEESTUECK	Single item texts
QEEKLASSE	Value class texts
QEEMERKMAL	Inspection feature texts
QEEPROBE	Inspection texts
QINF	Quality info record
QKATALOG	Inspection catalog texts
QMEL	Message
QMFE	PM notification item
QMMA	PM notification activity
QMSM	PM notification task
QMUR	PM notification cause
QPCP	Control Plan
QPMERKMAL	Master inspect. feature texts
QPMETHODE	Master inspect. method texts
QPRUEFLOS	Inspection lot texts
QPRV	Sample-drawing procedure texts
QSCENARIO	Scenario for message
QSS	Inspection feature texts
QTLS	Partial lot texts
QVDM_MAT01	Texts f. QM/SD info records
R3VV	Financial assets management
RBKP	MM incoming invoice text
RE	Real Estate (RE-FX)
REAR	Text for application
RECN	Text for General Contract
REP-WRITER	Report Writer texts
RKC_EIS	Comments in SAP-EIS
RLMFW	Release Management
RM_ALM_01	Text for Planning Variant ALM
RM_RCP_PP	PLM-RM: Process Param. Texts
ROUTING	Texts for task list types
RP_PLAN	RP-PLAN texts
RTP000	Notes for BCA
SAPPYSG00	Singapore Payroll
SCMA	Schedule Manager: Texts
SCMG_CASE	Text Notes for Case Management
SEM_BIC	Business Info. Collection
SEM_BPS	Planning Entry Point SEM-BPS
SEM_SRM	SEM-SRM Contacts / Text
SHL	SAPoffice shell texts
SI000	Note on Collateral Provision
SIGNATURE	Digital signature
SKA1	G/L texts in chart of accounts
SKB1	G/L acct texts in company code
SQADB	Questions for QADB
SSFO	SAPscript Smart Forms
STYLE	SAPscript Styles
STYLESHEET	Word document templates
STYLEVERS	Old (German) text
SVPM	Serv. master plant data text
T357G	Approval text
TASKTEXT	Texts for tasks
TB_FHA	Treasury: Note for transaction
TEXT	SAPscript standard texts
TNABG	Texts, bus.partner, employer
TNDEB	Texts, bus.partner, customer
TNGPA	Texts, gen. business partner
TNKRH	Texts, bus.partner, hospital
TNKTR	Texts, bus. partner, cost obj.
TNPER	Texts, bus. partner, person
TNTPT	Tariff item texts
TRIAL	Attempt
TSEG	Texts Appointment segment
UDM_CCT	Collections: Customer Contact
UDM_RSM	Collections: Resubmissions
UKM_01	Texts for Credit Management
UPB_PM	Comment on Planning Book
VARI	Relationship maintenance texts
VBBK	Sales Header texts
VBBP	Sales Item texts
VBKA	Sales CAS texts
VBRK	Billing document: Header texts
VBRP	Billing document: Item texts
VTBLLH	Credit Limit limit Trans.Texts
VTBLRH	Credit Limit Reservation Texts
VTBLV	Default Risk Limit texts
VTBMA	Outline agreement note
VTTK	Transport header texts
WAP	WCM: Work Approval
WAPI	WCM: Application
WBHI	Trading contract item
WBHK	Trading contract header
WBRK	Agency document header texts
WBRP	Agency document item texts
WCDOC	WCM: Work clearance document
WCDOCITM	WCM: WCD Item
WCOCOCOND	Condition Contract Conditions
WCOCOH	Condition Contract Header
WCOCOI	Condition Contract Item
WCOCOP	Condition Contract Partner
WF_NOTE	Notes within workflows
WLBM	Texts for layout area item
WLMT	Text for layout area material
WMATGRP	Texts for Article Hierarchy
WORKST	Texts on work center
WTY	Warranty Claim Text

Function Module to read the Document Text field

2011-08-31T20:38:00.000-07:00

Function Module: READ_TEXT

Sample:

CALL FUNCTION 'READ_TEXT'
       EXPORTING
            OBJECT            = OBJECT "Click to see the text object listing
            ID                      = ID
            LANGUAGE     = SY-LANGU
            NAME               = l_NAME "TR
       IMPORTING
            HEADER           = TEXTHEADER
       TABLES
            LINES               = TEXTLINES
       EXCEPTIONS
            ID                        = 1
            LANGUAGE                                       = 2
            NAME                     = 3
            NOT_FOUND              = 4
            OBJECT                    = 5
            REFERENCE_CHECK                      = 6
            WRONG_ACCESS_TO_ARCHIVE = 7
            OTHERS                                            = 8.

LOOP AT TEXTLINES.
   CONCATENATE TEXT TEXTLINES into TEXT SEPARATED BY space.
ENDLOOP.

Related Document: Text Object Listing

Function Module Get Fiscal Year

2011-08-30T19:55:00.000-07:00

Function Module: GET_CURRENT_YEAR

Sample:

CALL FUNCTION 'GET_CURRENT_YEAR'
EXPORTING
BUKRS = '1000' " Company Code
DATE = SY-DATUM " Date to find fiscal year for
IMPORTING
CURRM = w_currm " Current Fiscal Month
CURRY = w_curry " Current Fiscal Year
PREVM = w_prevm " Previous Fiscal Month
PREVY = w_prevy. " Previous Fiscal Year

Function Module Find Company Code by Plant Code

2011-08-30T19:09:00.000-07:00

Find Company code from plant code.

Function Module: HRCA_PLANT_GET_COMPANYCODE

Sample:

CALL FUNCTION 'HRCA_PLANT_GET_COMPANYCODE'
EXPORTING
PLANT = p_werk
IMPORTING
COMPANYCODE = d_bukrs
EXCEPTIONS
NO_COMPANY_CODE_FOUND = 1
PLANT_NOT_FOUND = 2
OTHERS = 3.