Cockpit program for ABAPERS

Report

REPORT zab_rp_create_cockpit_abap.

TABLES: sscrfields.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
  SELECTION-SCREEN SKIP 1.
  SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN: POSITION 10, PUSHBUTTON (25) mu1 USER-COMMAND mu1,
    PUSHBUTTON (25) mu2 USER-COMMAND mu2,
    PUSHBUTTON (25) mu3 USER-COMMAND mu3,
    PUSHBUTTON (25) mu4 USER-COMMAND mu4.
  SELECTION-SCREEN END OF LINE.
  SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN: POSITION 10, PUSHBUTTON (25) mu5 USER-COMMAND mu5,
    PUSHBUTTON (25) mu6 USER-COMMAND mu6,
    PUSHBUTTON (25) mu7 USER-COMMAND mu7,
    PUSHBUTTON (25) mu8 USER-COMMAND mu8.
  SELECTION-SCREEN END OF LINE.
  SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN: POSITION 10, PUSHBUTTON (25) mu9 USER-COMMAND mu9,
    PUSHBUTTON (25) mu10 USER-COMMAND mu10,
    PUSHBUTTON (25) mu11 USER-COMMAND mu11,
    PUSHBUTTON (25) mu12 USER-COMMAND mu12.
  SELECTION-SCREEN END OF LINE.
  SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN: POSITION 10, PUSHBUTTON (25) mu13 USER-COMMAND mu13,
    PUSHBUTTON (25) mu14 USER-COMMAND mu14,
    PUSHBUTTON (25) mu15 USER-COMMAND mu15,
    PUSHBUTTON (25) mu16 USER-COMMAND mu16.
  SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.
  SELECTION-SCREEN SKIP 1.
  SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN: POSITION 10,  PUSHBUTTON (25) mon1 USER-COMMAND mon1,
    PUSHBUTTON (25) mon2 USER-COMMAND mon2,
    PUSHBUTTON (25) mon3 USER-COMMAND mon3,
    PUSHBUTTON (25) mon4 USER-COMMAND mon4.
  SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE TEXT-003.
  SELECTION-SCREEN SKIP 1.
  SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN: POSITION 10,  PUSHBUTTON (25) pf1 USER-COMMAND pf1,
    PUSHBUTTON (30) pf2 USER-COMMAND pf2,
    PUSHBUTTON (25) pf3 USER-COMMAND pf3,
    PUSHBUTTON (25) pf4 USER-COMMAND pf4.
  SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b3.


INITIALIZATION.
  mu1 = 'Data dictionary-SE11'.
  mu2 = 'Database adjustable-SE14'.
  mu3 = 'BADI def-SE18'.
  mu4 = 'BADI Impl-SE19'.
  mu5 = 'Global class-SE24'.
  mu6 = 'Function module-SE37'.
  mu7 = 'Reports-SE38'.
  mu8 = 'Workbench-SE80'.
  mu9 = 'MSG class-SE91'.
  mu10 = 'T-code- SE93'.
  mu11 = 'Smartforms- SMARTFORMS'.
  mu12 = 'TMG-SM30'.
  mu13 = 'Bapi explorer-BAPI'.
  mu14 = 'Recording-SHDB'.

  mon1 = 'Dumps-ST22'.
  mon2 = 'Jobs-SM37'.
  mon3 = 'Idocs-WE02'.
  mon4 = 'AIF errors- /AIF/ERR'.

  pf1 = 'Terminate session-/N'.
  pf2 = 'Terminate all sessions- /NEX'.
  pf3 = 'Open new session-/O'.
  pf4 = 'Debugging-/H'.

  con1 = 'Configurations-SPRO'.

AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'MON1'.
      CALL TRANSACTION 'ST22'.
    WHEN 'MON2'.
      CALL TRANSACTION 'SM37'.
    WHEN 'MON3'.
      CALL TRANSACTION 'WE02'.
    WHEN 'MON4'.
      CALL TRANSACTION '/AIF/ERR'.

    WHEN 'MU1'.
      CALL TRANSACTION 'SE11'.
    WHEN 'MU2'.
      CALL TRANSACTION 'SE14'.
    WHEN 'MU3'.
      CALL TRANSACTION 'SE18'.
    WHEN 'MU4'.
      CALL TRANSACTION 'SE19'.
    WHEN 'MU5'.
      CALL TRANSACTION 'SE24'.
    WHEN 'MU6'.
      CALL TRANSACTION 'SE37'.
    WHEN 'MU7'.
      CALL TRANSACTION 'SE38'.
    WHEN 'MU8'.
      CALL TRANSACTION 'SE80'.
    WHEN 'MU9'.
      CALL TRANSACTION 'SE91'.
    WHEN 'MU10'.
      CALL TRANSACTION 'SE93'.
    WHEN 'MU11'.
      CALL TRANSACTION 'SMARTFORMS'.
    WHEN 'MU12'.
      CALL TRANSACTION 'SM30'.
    WHEN 'MU13'.
      CALL TRANSACTION 'BAPI'.
    WHEN 'MU14'.
      CALL TRANSACTION 'SHDB'.
    WHEN 'CON1'.
      CALL TRANSACTION 'SPRO'.

Output


 * If click particular button call transaction will be called.

******************************Thank You***************************

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