Split the top of page section of the alv header.

Report program.


REPORT ZAB_FOR_JOIN_TOP.
TABLES:zstu,zstu1.

TYPES: BEGIN OF ty_zstu,
         zstu_id   TYPE zstu-zstu_id,
         zstu_name TYPE zstu-zstu_name,
         zstu_dep  TYPE zstu-zstu_dep,
         zstu_fee  TYPE zstu-zstu_fee,
       END OF ty_zstu.
TYPES: BEGIN OF ty_zstu1,
         zstu_id    TYPE zstu1-zstu_id,
         zstu_marks TYPE zstu1-zstu_marks,
       END OF ty_zstu1.
TYPES:BEGIN OF ty_final,
        zstu_id    TYPE zstu-zstu_id,
        zstu_name  TYPE zstu-zstu_name,
        zstu_dep   TYPE zstu-zstu_dep,
        zstu_fee   TYPE zstu-zstu_fee,
        zstu_marks TYPE zstu1-zstu_marks,
      END OF ty_final.

TYPES: ty_t_f TYPE STANDARD TABLE OF ty_final WITH DEFAULT KEY.
DATA:it_zstu  TYPE TABLE OF ty_zstu,
     it_zstu1 TYPE TABLE OF ty_zstu1,
     it_final TYPE TABLE OF ty_final.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat TYPE slis_fieldcat_alv,

      wa_header TYPE slis_listheader,
      it_header TYPE slis_t_listheader..
SELECT-OPTIONS: s_id FOR zstu-zstu_id.

START-OF-SELECTION.
IF s_id IS NOT INITIAL.
  SELECT zstu_id
          zstu_name
          zstu_dep
          zstu_fee
          FROM zstu
          INTO TABLE it_zstu
          WHERE zstu_id IN s_id.
  SORT it_zstu BY zstu_id.
  IF it_zstu IS NOT INITIAL.
    SELECT zstu_id
            zstu_marks
          FROM zstu1
          INTO TABLE it_zstu1
          WHERE zstu_id IN s_id.
    SORT it_zstu1 BY zstu_id.

  ENDIF.

ENDIF.

it_final = VALUE ty_t_f(
                   FOR wa_zstu IN it_zstu
                   FOR wa_zstu1 IN it_zstu1
                   WHERE ( zstu_id = wa_zstu-zstu_id )
                    ( zstu_id = wa_zstu1-zstu_id zstu_marks = wa_zstu1-zstu_marks
                    zstu_name = wa_zstu-zstu_name  zstu_dep = wa_zstu-zstu_dep
                    zstu_fee = wa_zstu-zstu_fee ) ).

  wa_fieldcat-col_pos = '1'.
  wa_fieldcat-fieldname  = 'ZSTU_ID'.
  wa_fieldcat-seltext_m  = 'STUDENT ID'.
  wa_fieldcat-outputlen = '10'.
  wa_fieldcat-ctabname = 'IT_FINAL'.
  APPEND wa_fieldcat TO it_fieldcat.
  clear: wa_fieldcat.

  wa_fieldcat-col_pos = '2'.
  wa_fieldcat-fieldname  = 'ZSTU_NAME'.
  wa_fieldcat-seltext_m  = 'STUDENT NAME'.
  wa_fieldcat-outputlen = '15'.
  wa_fieldcat-ctabname = 'IT_FINAL'.
  APPEND wa_fieldcat TO it_fieldcat.
  clear: wa_fieldcat.

  wa_fieldcat-col_pos = '3'.
  wa_fieldcat-fieldname  = 'ZSTU_DEP'.
  wa_fieldcat-seltext_m  = 'STUDENT DEP'.
  wa_fieldcat-outputlen = '15'.
  wa_fieldcat-ctabname = 'IT_FINAL'.
  APPEND wa_fieldcat TO it_fieldcat.
  clear: wa_fieldcat.

  wa_fieldcat-col_pos = '4'.
  wa_fieldcat-fieldname  = 'ZSTU_FEE'.
  wa_fieldcat-seltext_m  = 'STUDENT FEE'.
  wa_fieldcat-outputlen = '15'.
  wa_fieldcat-ctabname = 'IT_FINAL'.
  APPEND wa_fieldcat TO it_fieldcat.
  clear: wa_fieldcat.

  wa_fieldcat-col_pos = '5'.
  wa_fieldcat-fieldname  = 'ZSTU_MARKS'.
  wa_fieldcat-seltext_m  = 'STUDENT MARKS'.
  wa_fieldcat-outputlen = '15'.
  wa_fieldcat-ctabname = 'IT_FINAL'.
  APPEND wa_fieldcat TO it_fieldcat.
  clear: wa_fieldcat.


CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING

   I_CALLBACK_PROGRAM                = sy-repid
   I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE'
   IT_FIELDCAT                        = it_fieldcat

  TABLES
    t_outtab                          = it_final
 EXCEPTIONS
   PROGRAM_ERROR                     = 1
   OTHERS                            = 2.
form TOP_OF_PAGE.
  CLEAR: wa_header.
  REFRESH : it_header.
  wa_header-typ = 'H'.
  wa_header-info = 'Join two tables using updated for loop'.
  APPEND wa_header to it_header.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = it_header
*     I_LOGO                   =
*     I_END_OF_LIST_GRID       =
*     I_ALV_FORM               =
            .

  ENDFORM.

Input


Output





Comments

Post a Comment

Popular posts from this blog

Pf status and user command in factory method - OOPS ALV in ABAP

Image
  1. Goto  SE38 . 2. Give  program name  and click on  create . 3. Give  title  and  click on save . 4. Write  code. REPORT  zab_rp_oops_pfstatus_ucomm . TABLES :   ekko , ekpo . TYPES :   BEGIN  OF  ty_ekko ,          ebeln  TYPE  ekko - ebeln ,          bukrs  TYPE  ekko - bukrs ,          bstyp  TYPE  ekko - bstyp ,          bsart  TYPE  ekko - bsart ,         END  OF  ty_ekko . TYPES :   BEGIN  OF  ty_ekpo ,          ebeln  TYPE  ekpo - ebeln ,          ebelp  TYPE  ekpo - ebelp ,          matnr  TYPE  ekpo - matnr ,          werks  TYPE  ekpo - werks ,         END  OF  ty_ekpo . DATA :   lt_ekko  TYPE  TABLE  OF  ty_ekko ,       lr_ekko  TYPE  ty_ekko ,       lt_ekpo  TYPE  TABLE  OF  ty_ekpo ,       lr_ekpo  TYPE  ty_ekpo . DATA :   lo_salv1 TYPE   REF  TO  cl_salv_table ,       lo_salv2  TYPE  REF  TO  cl_salv_table ,       lo_events  TYPE  REF  TO  cl_salv_events_table ,       lo_grid    TYPE  REF  TO  cl_gui_alv_grid ,       lt_rows    TYPE  lvc_t_row ,       lr_rows    TYPE 
Read more

fetch the data from table and send an email in ABAP

Image
  Send an email in abap. REPORT  ZAJAY_EF_ZSTU . tables : zstu . data :  maildata  LIKE  sodocchgi1 ,       mailtxt   LIKE  solisti1  OCCURS  10  WITH  HEADER  LINE ,       mailrec   LIKE  somlrec90  OCCURS  0  WITH  HEADER  LINE ,       it_zstu  type  table  of  zstu  WITH  HEADER  LINE ,       wa_zstu  type  zstu . START-OF-SELECTION .      clear : maildata , mailtxt , mailrec .      REFRESH : mailtxt , mailrec . select-OPTIONS  :  s_id  for  zstu - zstu_id . SELECT  *  from  zstu  into  TABLE  it_zstu  where  zstu_id  in  s_id .    sort  it_zstu  by  zstu_id . maildata - obj_descr  =  | Employee details | . mailtxt  =  '<!DOCTYPE html>' . append  mailtxt . mailtxt  =  '<html lang="en">' . append  mailtxt . mailtxt  =  '<head>' . append  mailtxt .   mailtxt  =  '<title>Email Functionality</title>' .   append  mailtxt . * mailtxt = ' <style>'. * append mailtxt. * *  mailtxt = 'table, th, td { bor
Read more

Enhancements in abap

 Enhancements     *  Will enhance the sap functionality in customer name space.     *  Customer  name space-> (z or y) Modifications      *  Will enhance the sap functionality in sap name space.     *  Name  should not start with z or y. Types      1. Implicit and Explicit enhancements { enhancements }      2. Customer exit. { enhancements }      3. Badi { enhancements }      4. User exit { modification } Implicit      *  Implicit point is available at the starting or at the last of program.     *  Subroutines, function  modules  etc. Explicit        *  Explicit point & section are available at any line.     *  Point  - It will not give default implementation .                     -  You can only add additional codes, you can't replace the existing code.     *  Section - It will give default implementation .      -  You can change or replace the existing code. BADI             - Badi is an enhancement. we enhance the sap functionalities in customer name space. -
Read more