Scribd Logo
Upload

Welcome to Scribd!

  • 3 views

    Fisrt_ADT_Prog

    Uploaded by

    monsterindia
    First adt program

    Copyright:

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

    Fisrt_ADT_Prog

    Uploaded by

    monsterindia
    3 views1 page
    First adt program

    Copyright

    © © All Rights Reserved

    Available Formats

    TXT, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    First adt program

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    3 views1 page

    Fisrt_ADT_Prog

    Uploaded by

    monsterindia
    First adt program

    Copyright:

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

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

    *& Report zemp_master_create


    *&---------------------------------------------------------------------*
    *&
    *&---------------------------------------------------------------------*
    REPORT zemp_master_create.
    TABLES: zemp_master_2.

    DATA: gs_emp TYPE zemp_master_2.

    SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.

    PARAMETERS: p_id TYPE zemp_id_2 OBLIGATORY,


    p_name TYPE zemp_name_2,
    p_dep TYPE zemp_master_2-department,
    p_salary TYPE zemp_master_2-salary.

    SELECTION-SCREEN END OF BLOCK b1.

    START-OF-SELECTION.

    PERFORM create_record.

    END-OF-SELECTION.

    FORM create_record.

    GET TIME STAMP FIELD gs_emp-last_change_date.

    gs_emp-emp_id = p_id.
    gs_emp-emp_name = p_name.
    gs_emp-department = p_dep.
    gs_emp-salary = p_salary.
    gs_emp-currencycode = 'INR'.

    MODIFY zemp_master_2 FROM gs_emp.


    IF sy-subrc = 0.
    MESSAGE 'Record Created' TYPE 'S'.
    SET SCREEN 0.
    ELSE.
    MESSAGE 'error' TYPE 'E'.
    SET SCREEN 0.
    ENDIF.

    ENDFORM.

    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