ABAPx.in: Utility Tips

Showing posts with label Utility Tips. Show all posts

Helpful BASIS Transactions for ABAPers

The following are some transactions which may come in handy for ABAPers:

Transaction Codes	Description
SCCL	LOCAL CLIENT COPY WITHIN THE SAME SYSTEM
SCC1	CLIENT COPY - SPECIAL SELECTIONS(COPY TRANSPORTS WITHIN CLIENTS)
SCC9	REMOTE CLIENT COPY IN DIFFERENT SYSTEM
SCC5	DELETING A CLIENT
SP01	SHOW SPOOL REQUEST
SPAD	CONFIGURE A PRINTER IN SAP
ST01	SYSTEM TRACE
ST02	SAP BUFFER
ST03	WORKLOAD MONITOR
ST04	DATABASE MONITOR
ST05	SQL TRACE
ST06	OS MONITOR
ST22	ABAP DUMP
SCUA	FOR CREATING/DELETING CUA
SCUM	WHICH DATA U WANT TO STORE LOCALLY AND WHICH GLOBALLY
SCUL	CUA LOG
PPOCE	CREATE A PLAN
PPOME	MAINTAIN A PLAN
PPOSE	DISPLAY A PLAN
STMS	TRANSPORT MANAGEMENT SYSTEM
SLG0	CONFIGURE APPLICATION LOG
SLG1	ANALYSE APPLICATION LOG
SLG2	DELETE APPLICATION LOG
SCUG	TRANSPORT OF USER
RZ01	JOB SCHEDULING MONITOR
RZ02	NETWORK GRAPHICS FOR SAP INSTANCES
RZ03	PRESENTATION CONTROL SAP INSTANCE
RZ04	MAINTAIN SAP INSTANCE
RZ06	ALERT THRESHOLD MAINTAINCE
RZ08	SAP ALERT MONITOR
RZ10	PROFILE PARAMETER CHECKING AND MAINTAINENCE
RZ11	DISPLAY PROFILE PARAMETER
RZ20	CCMS MONITOR
RZ04	SHIFTING OF OPERATION
BD54	CREATING A LOGICAL SYSTEM
BD64	DISPLAY OF DISTRIBUTION MODEL
SM01	LOCK/UNLOCK A TRANSTACTION
SM02	SEND SYSTEM MESSAGE
SM04	WHO ARE THE USER CURRENTLY LOGGED ON NOW
SM12	TO VIEW LOCK AND ALSO DELETE LOG
SM13	CHECK UPDATE
SM30	TABLE MAINTAINCE
SM36	SCHEDULING A BACKGROUND JOB
SM37	MONITORING A BACKGROUND JOB
SM49	EXECUTE A EXTERNAL COMMAND
SM59	CREATE A RFC CONNECTION
SM69	CREATING A COMMAND
SALE/BD54	LOGICAL NAME
SUPC	TO GENERATE PROFILE
DB01	ANALYZE EXCUSIVE LOCK WAITS
BD02	ANALYZE TABLES AND INDEX
DB03	PARAMETER CHANGE IN DB
DB11	EARLY WATCH PROFILE MAINTAINCE
DB12	OVERVIEW OF BACKUP LOGS
DB13	DATABASE ADMINISTRATOR CALENDER
DB14	SHOW DBA ACTION LOGS

How to print apostrophe ( ' ) using the WRITE statement

Printing apostrophes ( ' ) in ABAP is really tricky as in ABAP coding we have to give values in quotes like 'Ricky World'. So how to use WRITE: 'Ricky's World' ? If you try to type this it will give syntax error!

The trick is use three apostrophes instead of one.

1
2
3

DATA: LINE(20) TYPE C.
CONCATENATE 'You''' 'll be there.' INTO LINE.
WRITE:/ LINE.

or simply :

1	WRITE:/ 'You''ll be there.'.

Determine whether a file is open or not in Application Server

To determine whether a file is opened or not in application server we can use the class 'CX_SY_FILE_OPEN'. By using this class we can determine whether a file is opened or not in application server as SY-SUBRC <> 0 may not provide the file's open information while we are interacting with the file. SY-SUBRC <> 0 may happens for other reasons also.

DATA:
*    First declare an object of type CX_ROOT.
OREF TYPE REF TO CX_ROOT,
 
*    Then declare a variable of type string.
          TEXT TYPE STRING.
 
*Now open a dataset in a TRY-CATCH block
TRY.
OPEN DATASET '/USR/SAP/TRANS/ECC1/ETC/B12008.TXT' FOR OUTPUT
IN TEXT MODE ENCODING DEFAULT
 
* Then in the catch block instantiate the Object.
CATCH CX_SY_FILE_OPEN INTO OREF.
*   Now in 'CATCH' block use the TEXT variable to get the TEXT from the Object.
 TEXT = OREF->GET_TEXT( ).
 
*Now if the TEXT is not initial that means the file is already opened 
*else it is not opened and we have to open it
IF TEXT IS NOT INITIAL.
 
* If open then we can close the file
CLOSE DATASET '/USR/SAP/TRANS/ECC1/ETC/B120080627112.TXT'.
 
ENDIF.
 
ENDTRY.

Individual cell coloring in ALV

This program demonstrates how to color individual cell in an ALV List. The same logic works for ALV grid also.

The ALV:

The Code:

*&---------------------------------------------------------------------*
*& Report  ZTEST_SOURAV31
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
 
REPORT  ztest_sourav31.
TYPE-POOLS: slis.
TYPES: BEGIN OF x_sflight,
        sflight TYPE sflight.
TYPES    prop TYPE slis_t_specialcol_alv.
TYPES   END OF x_sflight.
 
DATA:
i_sflight    TYPE STANDARD TABLE OF sflight,
itab_sflight TYPE STANDARD TABLE OF x_sflight INITIAL SIZE 0,
wa_prop      TYPE slis_specialcol_alv,
average      TYPE s_seatsocc,
layout       TYPE slis_layout_alv,
fieldcat     TYPE slis_t_fieldcat_alv.
 
FIELD-SYMBOLS:
<wa> TYPE ANY,
<field> TYPE ANY,
<wa_sflight> TYPE x_sflight,
<wa_fcat>      TYPE slis_fieldcat_alv.
 
START-OF-SELECTION.
 
  SELECT *
      FROM sflight INTO TABLE i_sflight.
 
  CHECK sy-subrc = 0.
 
  SELECT AVG( seatsocc ) FROM sflight
    INTO average.
  CHECK sy-subrc = 0.
 
END-OF-SELECTION.
 
  LOOP AT i_sflight ASSIGNING <wa>.
    APPEND INITIAL LINE TO itab_sflight ASSIGNING <wa_sflight>.
    DO.
      ASSIGN COMPONENT sy-index OF STRUCTURE <wa> TO <field>.
      IF sy-subrc = 0.
        IF sy-index = 9.
          IF <field> > average.
            wa_prop-fieldname  = 'SFLIGHT-SEATSOCC'.
            wa_prop-color-col  = '5'.
            wa_prop-color-int  = '0'.
            wa_prop-color-inv  = '0'.
            wa_prop-nokeycol   = 'X'.
            APPEND wa_prop TO <wa_sflight>-prop.
          ELSE.
            wa_prop-fieldname  = 'SFLIGHT-SEATSOCC'.
            wa_prop-color-col  = '6'.
            wa_prop-color-int  = '0'.
            wa_prop-color-inv  = '0'.
            wa_prop-nokeycol   = 'X'.
            APPEND wa_prop TO <wa_sflight>-prop.
          ENDIF.
        ENDIF.
      ELSE.
        EXIT.
      ENDIF.
    ENDDO.
    <wa_sflight>-sflight = <wa>.
  ENDLOOP.
 
  layout-coltab_fieldname = 'PROP'.
 
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = 'ZTEST_SOURAV31'
      i_internal_tabname     = 'ITAB_SFLIGHT'
      i_structure_name       = 'SFLIGHT'
      i_client_never_display = 'X'
    CHANGING
      ct_fieldcat            = fieldcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  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 fieldcat ASSIGNING <wa_fcat>.
    CONCATENATE 'SFLIGHT-' <wa_fcat>-fieldname INTO <wa_fcat>-fieldname.
    IF <wa_fcat>-cfieldname IS NOT INITIAL.
  CONCATENATE 'SFLIGHT-' <wa_fcat>-cfieldname INTO <wa_fcat>-cfieldname.
    ENDIF.
  ENDLOOP.
 
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = 'ZTEST_SOURAV31'
      is_layout          = layout
      it_fieldcat        = fieldcat
    TABLES
      t_outtab           = itab_sflight
    EXCEPTIONS
      program_error      = 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.

Display an ALV in a Selection Screen

This program demonstrates how to display an ALV grid in the selection screen itself upon hitting "ENTER" button.

The Selection Screen:

The ALV (Upon hitting enter):

The ALV gets refreshed when new selection screen values are entered:

The code:

*&---------------------------------------------------------------------*
*& Report  ZSB_ALV_SAME_SCREEN
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
 
REPORT  zsb_alv_same_screen.
 
DATA:
wa_sflight TYPE sflight,
i_sflight TYPE STANDARD TABLE OF sflight INITIAL SIZE 0,
oref_dock TYPE REF TO cl_gui_docking_container,
oref_alv TYPE REF TO cl_gui_alv_grid,
i_exclude TYPE TABLE OF syucomm.
 
 
SELECT-OPTIONS:
s_carrid FOR wa_sflight-carrid,
s_connid FOR wa_sflight-connid,
s_fldate FOR wa_sflight-fldate.
 
AT SELECTION-SCREEN OUTPUT.
 
  APPEND 'ONLI' TO i_exclude.
  APPEND 'SJOB' TO i_exclude.
  APPEND 'PRIN' TO i_exclude.
 
  CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
    EXPORTING
      p_status  = sy-pfkey
      p_program = sy-repid
    TABLES
      p_exclude = i_exclude.
 
 
AT SELECTION-SCREEN.
  CHECK sy-ucomm = space.
  SELECT * FROM sflight INTO TABLE i_sflight
  WHERE carrid IN s_carrid
  AND   connid IN s_connid
  AND   fldate IN s_fldate.
 
  IF sy-subrc = 0.
 
    IF oref_dock IS NOT BOUND.
 
      CREATE OBJECT oref_dock
         EXPORTING
           repid                       = sy-repid
           dynnr                       = '1000'
           side                        =
      cl_gui_docking_container=>dock_at_bottom
               ratio                       = 70
        EXCEPTIONS
          cntl_error                  = 1
          cntl_system_error           = 2
          create_error                = 3
          lifetime_error              = 4
          lifetime_dynpro_dynpro_link = 5
          OTHERS                      = 6
          .
      IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
    ENDIF.
    IF oref_alv IS NOT BOUND.
 
      CHECK oref_dock IS BOUND.
      CREATE OBJECT oref_alv
        EXPORTING
          i_parent          = oref_dock
        EXCEPTIONS
          error_cntl_create = 1
          error_cntl_init   = 2
          error_cntl_link   = 3
          error_dp_create   = 4
          OTHERS            = 5.
      IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
 
      CHECK oref_alv IS BOUND.
 
      CALL METHOD oref_alv->set_table_for_first_display
        EXPORTING
          i_structure_name              = 'SFLIGHT'
        CHANGING
          it_outtab                     = i_sflight
        EXCEPTIONS
          invalid_parameter_combination = 1
          program_error                 = 2
          too_many_lines                = 3
          OTHERS                        = 4.
      IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
    ELSE.
 
      CALL METHOD oref_alv->refresh_table_display
        EXCEPTIONS
          finished = 1
          OTHERS   = 2.
      IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
 
    ENDIF.
  ENDIF.

Demo program for TOP-OF-PAGE for ALV displayed through CL_GUI_ALV_GRID

This program demonstrates how to create TOP OF PAGE for an ALV grid displayed through CL_GUI_ALV_GRID. One interesting fact which may be considered here is that the splitter TOP-OF-PAGE is not called while printing or background spool and the TOP-OF-PAGE printed in the spool cannot be displayed in the foreground.

The TOP-OF-PAGE displayed in foreground (this TOP-OF-PAGE won't be printed):

Choose the list output:

The list output(this top-of-page will be printed):

The code:

*&---------------------------------------------------------------------*
*& Report  Z_SOURAV_ALV_TOP_OF_PAGE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
 
REPORT  z_sourav_alv_top_of_page.
 
*----------------------------------------------------------------------*
*       CLASS cl_main DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_main DEFINITION.
  PUBLIC SECTION.
    METHODS:
    constructor,
    get_data,
    populate_fc_layout,
    top_of_page FOR EVENT top_of_page OF cl_gui_alv_grid
    IMPORTING
     e_dyndoc_id
     table_index,
    print_top_of_page FOR EVENT print_top_of_page OF  cl_gui_alv_grid
     IMPORTING table_index,
    display.
 
 
  PROTECTED SECTION.
 
  PRIVATE SECTION.
    TYPE-POOLS:sdydo.
    DATA:i_sbook TYPE STANDARD TABLE OF sbook INITIAL SIZE 0.
    DATA:oref_splitter TYPE REF TO cl_gui_splitter_container,
         oref_container TYPE REF TO cl_gui_custom_container,
         oref_alv TYPE REF TO cl_gui_alv_grid,
         container1 TYPE REF TO cl_gui_container,
         container2 TYPE REF TO cl_gui_container,
         oref_doc TYPE REF TO cl_dd_document,
         oref_html TYPE REF TO cl_gui_html_viewer,
         wa_layout TYPE lvc_s_layo,
         i_fieldcatalog TYPE lvc_t_fcat.
 
ENDCLASS.                    "cl_main DEFINITION
*----------------------------------------------------------------------*
*       CLASS cl_main IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_main IMPLEMENTATION.
  METHOD constructor.
 
    CREATE OBJECT oref_container
      EXPORTING
        container_name              = 'CONTAINER'
        repid                       = 'Z_SOURAV_ALV_TOP_OF_PAGE'
        dynnr                       = '0100'
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        OTHERS                      = 6.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
 
 
    CREATE OBJECT oref_splitter
      EXPORTING
        parent            = oref_container
        rows              = 2
        columns           = 1
      EXCEPTIONS
        cntl_error        = 1
        cntl_system_error = 2
        OTHERS            = 3.
    IF sy-subrc <> 0.
*     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
 
    CALL METHOD oref_splitter->get_container
      EXPORTING
        row       = 1
        column    = 1
      RECEIVING
        container = container1.
 
    CALL METHOD oref_splitter->set_row_height
      EXPORTING
        id                = 1
        height            = 20
      EXCEPTIONS
        cntl_error        = 1
        cntl_system_error = 2
        OTHERS            = 3.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
 
 
    CALL METHOD oref_splitter->get_container
      EXPORTING
        row       = 2
        column    = 1
      RECEIVING
        container = container2.
 
 
    CREATE OBJECT oref_doc
      EXPORTING
        style = 'ALV_GRID'.
 
 
    CREATE OBJECT oref_alv
      EXPORTING
        i_parent          = container2
      EXCEPTIONS
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        OTHERS            = 5.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
 
 
  ENDMETHOD.                    "constructor
  METHOD get_data.
    SELECT * FROM sbook INTO TABLE i_sbook UP TO 500 ROWS.
    IF sy-subrc <> 0.
 
    ENDIF.
 
  ENDMETHOD.                    "get_data
  METHOD populate_fc_layout.
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
      EXPORTING
        i_structure_name       = 'SBOOK'
        i_client_never_display = 'X'
        i_internal_tabname     = 'I_SBOOK'
      CHANGING
        ct_fieldcat            = i_fieldcatalog
      EXCEPTIONS
        inconsistent_interface = 1
        program_error          = 2
        OTHERS                 = 3.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
 
    wa_layout-cwidth_opt = 'X'.
 
  ENDMETHOD.                    "populate_fc_layout
  METHOD top_of_page.
 
    DATA: text TYPE sdydo_text_element,
          background_id TYPE sdydo_key VALUE 'ALV_BACKGROUND'.
 
    text = 'Top of Page'.
 
    CALL METHOD oref_doc->add_text
      EXPORTING
        text         = text
        sap_color    = cl_dd_document=>list_positive
        sap_fontsize = cl_dd_document=>large.
 
    oref_doc->new_line( ).
    text = 'Line1'.
 
    CALL METHOD oref_doc->add_text
      EXPORTING
        text = text.
 
    CREATE OBJECT oref_html
      EXPORTING
        parent             = container1
      EXCEPTIONS
        cntl_error         = 1
        cntl_install_error = 2
        dp_install_error   = 3
        dp_error           = 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.
 
    oref_doc->html_control = oref_html.
 
    CALL FUNCTION 'REUSE_ALV_GRID_COMMENTARY_SET'
      EXPORTING
        document = oref_doc
        bottom   = space.
 
    CALL METHOD oref_doc->merge_document.
 
    CALL METHOD oref_doc->set_document_background
      EXPORTING
        picture_id = background_id.
 
    CALL METHOD oref_doc->display_document
      EXPORTING
        reuse_control      = 'X'
        parent             = container1
      EXCEPTIONS
        html_display_error = 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.
  ENDMETHOD.                    "create_top_of_page
  METHOD display.
 
    SET HANDLER me->top_of_page FOR oref_alv.
    SET HANDLER me->print_top_of_page FOR oref_alv.
 
    CALL METHOD oref_alv->set_table_for_first_display
      EXPORTING
        is_layout                     = wa_layout
      CHANGING
        it_outtab                     = i_sbook
        it_fieldcatalog               = i_fieldcatalog
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
 
    CALL METHOD oref_doc->initialize_document
      .
 
 
    CALL METHOD oref_alv->list_processing_events
      EXPORTING
        i_event_name = 'TOP_OF_PAGE'
        i_dyndoc_id  = oref_doc.
 
 
    CALL SCREEN 0100.
  ENDMETHOD.                    "display
  METHOD print_top_of_page.
    WRITE:/5 'Print top of page' COLOR 5 INTENSIFIED OFF.
    WRITE:/5 'Line1'.
  ENDMETHOD.                    "print_top_of_page
ENDCLASS.                    "cl_main IMPLEMENTATION
 
DATA: oref_main TYPE REF TO cl_main.
DATA:ok_code TYPE syucomm.
 
START-OF-SELECTION.
 
  CREATE OBJECT oref_main.
 
  oref_main->get_data( ).
  oref_main->populate_fc_layout( ).
 
END-OF-SELECTION.
 
  oref_main->display( ).
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS '0100'.
*  SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  CASE ok_code.
    WHEN 'BACK'.
      SET SCREEN 00.
      LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT