Scribd Logo
Upload

Welcome to Scribd!

  • 44 views

    'Employee No' 'Employee Name' 'Company Code'

    Uploaded by

    Chaudhury Prangya Bikash Dash
    This document contains ABAP code that extracts employee data from different tables and displays it in interactive reports. It defines data types and internal tables to store employee numbers, names, company codes. It selects data from tables PA0001 and PA0002, and displays it with line selection options to show additional details or add checkboxes. User commands allow selecting or deselecting all rows, or downloading the data to a text file.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd

    'Employee No' 'Employee Name' 'Company Code'

    Uploaded by

    Chaudhury Prangya Bikash Dash
    44 views3 pages
    This document contains ABAP code that extracts employee data from different tables and displays it in interactive reports. It defines data types and internal tables to store employee numbers, names, company codes. It selects data from tables PA0001 and PA0002, and displays it with line selection options to show additional details or add checkboxes. User commands allow selecting or deselecting all rows, or downloading the data to a text file.

    Original Description:

    fdghgj

    Original Title

    Program for Report

    Copyright

    © © All Rights Reserved

    Available Formats

    PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document contains ABAP code that extracts employee data from different tables and displays it in interactive reports. It defines data types and internal tables to store employee numbers, names, company codes. It selects data from tables PA0001 and PA0002, and displays it with line selection options to show additional details or add checkboxes. User commands allow selecting or deselecting all rows, or downloading the data to a text file.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    44 views3 pages

    'Employee No' 'Employee Name' 'Company Code'

    Uploaded by

    Chaudhury Prangya Bikash Dash
    This document contains ABAP code that extracts employee data from different tables and displays it in interactive reports. It defines data types and internal tables to store employee numbers, names, company codes. It selects data from tables PA0001 and PA0002, and displays it with line selection options to show additional details or add checkboxes. User commands allow selecting or deselecting all rows, or downloading the data to a text file.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    You are on page 1of 3

    *&---------------------------------------------------------------------*

    *& Report ZPROG_PRACTICE


    *&
    *&---------------------------------------------------------------------*
    *&
    *&
    *&---------------------------------------------------------------------*
    REPORT ZPROG_PRACTICE.
    types : begin of ty_itab,
    pernr type persno,
    ename type ename,
    bukrs type bukrs,
    end of ty_itab.
    data : itab type table of ty_itab,
    wa type ty_itab.

    types : begin
    pernr
    nachn
    vorna

    of ty_itab1,
    type persno,
    type nachn,
    type vorna,

    end of ty_itab1.

    data : itab1 type table of ty_itab1,


    wa1 type ty_itab1.
    data : v_box type c.

    write :/'employee no',20 'employee name',35 'company code'.

    select pernr ename bukrs from pa0001 into table itab up to 30 rows .
    loop at itab into wa.
    write :/ wa-pernr,20 wa-ename,35 wa-bukrs.
    endloop.

    at line-selection.
    case sy-lsind.
    when

    1.

    select pernr nachn vorna from pa0002 into table itab1 up to 30 rows.
    write :/'employee no',20 'first name',35 'last name'.
    loop at itab1 into wa1.
    write :/ wa1-pernr,20 wa1-nachn, 35 wa1-vorna.

    endloop.

    when 2.

    set pf-status 'ZSTATUS'.

    write :/'employee no',20 'first name',35 'last name'.


    loop at itab1 into wa1.
    write :/ v_box as checkbox, wa1-pernr,20 wa1-nachn,35 wa1-vorna.
    endloop.

    endcase.
    at user-command.
    case sy-ucomm.
    when 'SALL'.
    v_box = 'X'.

    loop at itab1 into wa1.


    write :/ v_box as checkbox, wa1-pernr,20 wa1-nachn,35 wa1-vorna.
    endloop.
    when 'DALL'.
    v_box = space.
    loop at itab1 into wa1.
    write :/ v_box as checkbox, wa1-pernr,20 wa1-nachn,35 wa1-vorna.
    endloop.
    when 'DOWNLOAD'.

    v_box = 'X'.
    CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
    FILENAME = 'E:download.txt'
    TABLES
    DATA_TAB = itab1.

    IF SY-SUBRC <> 0.
    * Implement suitable error handling here
    ENDIF.
    endcase.

    You might also like

    pFad - Phonifier reborn

    Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

    Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


    Alternative Proxies:

    Alternative Proxy

    pFad Proxy

    pFad v3 Proxy

    pFad v4 Proxy