.ABAP

[captainmsrposts]

Table Control with Multiple Table

TYPES: BEGIN OF t_tab,

               field1(20) TYPE c,

               field2(20) TYPE c,

              END OF t_tab.

DATA: itab1 TYPE TABLE OF t_tab WITH HEADER LINE.

DATA: itab2 TYPE TABLE OF t_tab WITH HEADER LINE.

DATA: itab3 TYPE TABLE OF t_tab WITH HEADER LINE.

DATA: itab4 TYPE TABLE OF t_tab WITH HEADER LINE.

DATA: ok_code TYPE sy-ucomm.

CONTROLS: itab1tc TYPE TABLEVIEW USING SCREEN 0100.

CONTROLS: itab2tc TYPE TABLEVIEW USING SCREEN 0100.

CONTROLS: itab3tc TYPE TABLEVIEW USING SCREEN 0100.

CONTROLS: itab4tc TYPE TABLEVIEW USING SCREEN 0100.

START-OF-SELECTION.

  itab1-field1 = ‘Itab1-Field1’.

  itab1-field2 = ‘Itab1-Field2’.

  APPEND itab1.

  itab2-field1 = ‘Itab2-Field1’.

  itab2-field2 = ‘Itab2-Field2’.

  APPEND itab2.

  itab3-field1 = ‘Itab3-Field1’.

  itab3-field2 = ‘Itab3-Field2’.

  APPEND itab3.

  itab4-field1 = ‘Itab4-Field1’.

  itab4-field2 = ‘Itab4-Field2’.

  APPEND itab4.

  CALL SCREEN 100.

*&———————————————————————*

*&      Module  STATUS_0100  OUTPUT

*&———————————————————————*

MODULE status_0100 OUTPUT.

  SET PF-STATUS ‘0100’.

  SET TITLEBAR ‘0100’.

ENDMODULE.                 

*&———————————————————————*

*&      Module  USER_COMMAND_0100  INPUT

*&———————————————————————*

MODULE user_command_0100 INPUT.

  CASE ok_code.

    WHEN ‘BACK’.

      LEAVE PROGRAM.

  ENDCASE.

ENDMODULE.                

PROCESS BEFORE OUTPUT.

  LOOP AT   itab4

       WITH CONTROL itab4tc

       CURSOR itab4tc-current_line.

*&SPWIZARD:   MODULE ITAB4TC_CHANGE_FIELD_ATTR

  ENDLOOP.

  LOOP AT   itab3

       WITH CONTROL itab3tc

       CURSOR itab3tc-current_line.

*&SPWIZARD:   MODULE ITAB3TC_CHANGE_FIELD_ATTR

  ENDLOOP.

  LOOP AT   itab2

       WITH CONTROL itab2tc

       CURSOR itab2tc-current_line.

*&SPWIZARD:   MODULE ITAB2TC_CHANGE_FIELD_ATTR

  ENDLOOP.

  LOOP AT   itab1

       WITH CONTROL itab1tc

       CURSOR itab1tc-current_line.

*&SPWIZARD:   MODULE ITAB1TC_CHANGE_FIELD_ATTR

  ENDLOOP.

  MODULE status_0100.

PROCESS BEFORE OUTPUT.

  LOOP AT   itab1

       WITH CONTROL itab1tc

       CURSOR itab1tc-current_line.

*&SPWIZARD:   MODULE ITAB1TC_CHANGE_FIELD_ATTR

  ENDLOOP.

  LOOP AT   itab2

       WITH CONTROL itab2tc

       CURSOR itab2tc-current_line.

*&SPWIZARD:   MODULE ITAB2TC_CHANGE_FIELD_ATTR

  ENDLOOP.

  LOOP AT   itab3

       WITH CONTROL itab3tc

       CURSOR itab3tc-current_line.

*&SPWIZARD:   MODULE ITAB3TC_CHANGE_FIELD_ATTR

  ENDLOOP.

  LOOP AT   itab4

       WITH CONTROL itab4tc

       CURSOR itab4tc-current_line.

*&SPWIZARD:   MODULE ITAB4TC_CHANGE_FIELD_ATTR

  ENDLOOP.

  MODULE status_0100.

[captainmsrposts]

SMARTFORM-OTF_TO_PDF

DATA: w_form_name TYPE tdsfname VALUE 'ZSURESH_TEST', w_fmodule TYPE rs38l_fnam, w_cparam TYPE ssfctrlop, w_outoptions TYPE ssfcompop, W_bin_filesize TYPE i, " Binary File Size w_FILE_NAME type string, w_File_path type string, w_FULL_PATH type string.

* Internal tables declaration

* Internal table to hold the OTF data DATA: t_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,

* Internal table to hold OTF data recd from the SMARTFORM t_otf_from_fm TYPE ssfcrescl,

* Internal table to hold the data from the FM CONVERT_OTF T_pdf_tab LIKE tline OCCURS 0 WITH HEADER LINE.

* This function module call is used to retrieve the name of the Function * module generated when the SMARTFORM is activated

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' EXPORTING formname = 'Z_CONVERT_OTF_TO_PDF' * VARIANT = ' ' * DIRECT_CALL = ' ' IMPORTING fm_name = w_fmodule EXCEPTIONS no_form = 1 no_function_module = 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.

* Calling the SMARTFORM using the function module retrieved above * GET_OTF parameter in the CONTROL_PARAMETERS is set to get the OTF * format of the output

w_cparam-no_dialog = 'X'. w_cparam-preview = space. " Suppressing the dialog box                                                    " for print preview w_cparam-getotf = 'X'.

* Printer name to be used is provided in the export parameter * OUTPUT_OPTIONS w_outoptions-tddest = 'LP01'.

CALL FUNCTION w_fmodule EXPORTING * ARCHIVE_INDEX = * ARCHIVE_INDEX_TAB = * ARCHIVE_PARAMETERS = control_parameters = w_cparam * MAIL_APPL_OBJ = * MAIL_RECIPIENT = * MAIL_SENDER = output_options = w_outoptions * USER_SETTINGS = 'X' IMPORTING * DOCUMENT_OUTPUT_INFO = job_output_info = t_otf_from_fm * JOB_OUTPUT_OPTIONS = EXCEPTIONS formatting_error = 1 internal_error = 2 send_error = 3 user_canceled = 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.

t_otf[] = t_otf_from_fm-otfdata[].

* Function Module CONVERT_OTF is used to convert the OTF format to PDF

CALL FUNCTION 'CONVERT_OTF' EXPORTING FORMAT = 'PDF' MAX_LINEWIDTH = 132 * ARCHIVE_INDEX = ' ' * COPYNUMBER = 0 * ASCII_BIDI_VIS2LOG = ' ' * PDF_DELETE_OTFTAB = ' ' IMPORTING BIN_FILESIZE = W_bin_filesize * BIN_FILE = TABLES otf = T_OTF lines = T_pdf_tab EXCEPTIONS ERR_MAX_LINEWIDTH = 1 ERR_FORMAT = 2 ERR_CONV_NOT_POSSIBLE = 3 ERR_BAD_OTF = 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.

* To display File SAVE dialog window CALL METHOD cl_gui_frontend_services=>file_save_dialog * EXPORTING * WINDOW_TITLE = * DEFAULT_EXTENSION = * DEFAULT_FILE_NAME = * FILE_FILTER = * INITIAL_DIRECTORY = * WITH_ENCODING = * PROMPT_ON_OVERWRITE = 'X' CHANGING filename = w_FILE_NAME path = w_FILE_PATH fullpath = w_FULL_PATH * USER_ACTION = * FILE_ENCODING = 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.

* Use the FM GUI_DOWNLOAD to download the generated PDF file onto the * presentation server

CALL FUNCTION 'GUI_DOWNLOAD' EXPORTING BIN_FILESIZE = W_bin_filesize filename = w_FULL_PATH FILETYPE = 'BIN' * APPEND = ' ' * WRITE_FIELD_SEPARATOR = ' ' * HEADER = '00' * TRUNC_TRAILING_BLANKS = ' ' * WRITE_LF = 'X' * COL_SELECT = ' ' * COL_SELECT_MASK = ' ' * DAT_MODE = ' ' * CONFIRM_OVERWRITE = ' ' * NO_AUTH_CHECK = ' ' * CODEPAGE = ' ' * IGNORE_CERR = ABAP_TRUE * REPLACEMENT = '#' * WRITE_BOM = ' ' * TRUNC_TRAILING_BLANKS_EOL = 'X' * WK1_N_FORMAT = ' ' * WK1_N_SIZE = ' ' * WK1_T_FORMAT = ' ' * WK1_T_SIZE = ' ' * IMPORTING * FILELENGTH = tables data_tab = T_pdf_tab * FIELDNAMES = * EXCEPTIONS * FILE_WRITE_ERROR = 1 * NO_BATCH = 2 * GUI_REFUSE_FILETRANSFER = 3 * INVALID_TYPE = 4 * NO_AUTHORITY = 5 * UNKNOWN_ERROR = 6 * HEADER_NOT_ALLOWED = 7 * SEPARATOR_NOT_ALLOWED = 8 * FILESIZE_NOT_ALLOWED = 9 * HEADER_TOO_LONG = 10 * DP_ERROR_CREATE = 11 * DP_ERROR_SEND = 12 * DP_ERROR_WRITE = 13 * UNKNOWN_DP_ERROR = 14 * ACCESS_DENIED = 15 * DP_OUT_OF_MEMORY = 16 * DISK_FULL = 17 * DP_TIMEOUT = 18 * FILE_NOT_FOUND = 19 * DATAPROVIDER_EXCEPTION = 20 * CONTROL_FLUSH_ERROR = 21 * OTHERS = 22 . IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.

[captainmsrposts]

ALV SUPPORT

Create, Modify and Delete entries dynamically from any custom table by using Object Oriented ALV

Objective:

This program is used to create, modify and delete entries dynamically from any custom table by using object oriented ALV.

Step by Step procedure

1. Go to SE80-> create a program and write the following code

TYPE-POOLS:     vimty.

TYPES :   BEGIN OF ty_mod,      row TYPE i,   END OF ty_mod.

DATA:  g_container        TYPE scrfname VALUE 'CUSTOM_CONTAINER',  grid1              TYPE REF TO cl_gui_alv_grid,  g_custom_container TYPE REF TO cl_gui_custom_container.

DATA:  i_table            TYPE REF TO data,  wa_all             TYPE REF TO data.

DATA:  org_crit_inst      TYPE vimty_oc_type,  old_rc             LIKE sy-subrc,  act_level          LIKE authb-actvt,  only_show_allowed  TYPE c,  i_exclude          TYPE ui_functions. DATA :  i_mod              TYPE STANDARD TABLE OF ty_mod,  i_del              TYPE STANDARD TABLE OF ty_mod.

FIELD-SYMBOLS:        <i_itab>     TYPE table,        <wa_tab>     TYPE ANY.

DATA: BEGIN OF header OCCURS 1.        INCLUDE STRUCTURE vimdesc. DATA: END OF header.

DATA: BEGIN OF namtab OCCURS 50.        INCLUDE STRUCTURE vimnamtab. DATA: END OF namtab.

DATA: vim_wheretab LIKE vimwheretb OCCURS 10.

DATA: dba_sellist LIKE vimsellist OCCURS 10.

SELECTION-SCREEN BEGIN OF BLOCK bb WITH FRAME TITLE text-100. PARAMETER: viewname TYPE tvdir-tabname. SELECTION-SCREEN SKIP 2. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN PUSHBUTTON 20(10) text-101 USER-COMMAND b1. "Display SELECTION-SCREEN PUSHBUTTON 36(10) text-102 USER-COMMAND b2. "Change SELECTION-SCREEN END OF LINE. SELECTION-SCREEN END OF BLOCK bb.

AT SELECTION-SCREEN.  CASE sy-ucomm.    WHEN 'B1'.      SET PF-STATUS  'ALV'.      CALL SCREEN 9001.    WHEN 'B2'.      SET PF-STATUS 'ALV1'.      CALL SCREEN 9001.  ENDCASE.

* Class used to get changed data CLASS lcl_event_handler DEFINITION .  PUBLIC SECTION .    METHODS: handle_data_changed              FOR EVENT data_changed OF cl_gui_alv_grid              IMPORTING er_data_changed. ENDCLASS.                    "lcl_event_handler DEFINITION

* Class used to get changed data CLASS lcl_event_handler IMPLEMENTATION . *  Handle Data Changed  METHOD handle_data_changed .    PERFORM handle_data_changed USING er_data_changed .  ENDMETHOD.                    "handle_data_changed

ENDCLASS.                    "lcl_event_handler IMPLEMENTATION

Save and activate.

2. Create a screen 9001 with custom container.

                   Screen 9001 flow logic looks like the following

3. In the PBO event (Module STATUS_9001), write the following code.

*&---------------------------------------------------------------------* *&      Module  STATUS_9001  OUTPUT *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* MODULE status_9001 OUTPUT.  DATA :    gr_event_handler TYPE REF TO lcl_event_handler .

* Creating an instance for the event handler  CREATE OBJECT gr_event_handler .

 TRY.      CREATE DATA i_table TYPE TABLE OF (viewname).      ASSIGN i_table->* TO <i_itab>.

     CREATE DATA wa_all LIKE LINE OF <i_itab>.      ASSIGN wa_all->* TO <wa_tab>.

*     Selecting data dynamically      SELECT * FROM (viewname) INTO TABLE <i_itab>.

*     Building the fieldcatelog      CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'        EXPORTING          i_structure_name       = viewname        CHANGING          ct_fieldcat            = li_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.

*     Making fields editable except key fields      IF sy-ucomm = 'UPD' OR  sy-ucomm = 'CHANGE'.        LOOP AT li_fieldcat INTO lwa_fieldcat.          IF lwa_fieldcat-key = space.            lwa_fieldcat-edit = 'X'.            MODIFY li_fieldcat FROM lwa_fieldcat.          ENDIF.        ENDLOOP.

     ENDIF.

*     Making fields editable      IF sy-ucomm = 'NEW'.        LOOP AT li_fieldcat INTO lwa_fieldcat.          lwa_fieldcat-edit = 'X'.          MODIFY li_fieldcat FROM lwa_fieldcat.        ENDLOOP.        lh_flag = 'X'.        CLEAR : <i_itab>.        DO 100 TIMES.          APPEND <wa_tab> TO <i_itab>.        ENDDO.      ENDIF.

*     Exclude buttons      PERFORM exclude_tb_functions CHANGING i_exclude.

     IF g_custom_container IS INITIAL.        CREATE OBJECT g_custom_container          EXPORTING            container_name = g_container.        CREATE OBJECT grid1          EXPORTING            i_parent = g_custom_container.      ENDIF. *     Making all fields non-editable if display mode      IF sy-ucomm = 'SHOW'.        LOOP AT li_fieldcat INTO lwa_fieldcat.          lwa_fieldcat-edit = ' '.          MODIFY li_fieldcat FROM lwa_fieldcat.        ENDLOOP.      ENDIF.      IF sy-ucomm = 'SAVE'.        LOOP AT li_fieldcat INTO lwa_fieldcat.          IF lwa_fieldcat-key NE space.            lwa_fieldcat-edit = space.            MODIFY li_fieldcat FROM lwa_fieldcat.          ENDIF.        ENDLOOP.      ENDIF. *     Displaying ALV Grid      CALL METHOD grid1->set_table_for_first_display        EXPORTING          i_structure_name     = viewname          it_toolbar_excluding = i_exclude        CHANGING          it_outtab            = <i_itab>          it_fieldcatalog      = li_fieldcat.

     IF sy-subrc NE 0.        EXIT.      ENDIF.

*      Getting the changed data      SET HANDLER gr_event_handler->handle_data_changed FOR grid1 .

   CATCH cx_sy_create_data_error.

 ENDTRY.

ENDMODULE.                 " STATUS_9001  OUTPUT