Dialog (101) - GUI Status and Title

<< Click to Display Table of Contents >>

Navigation:  All About ABAP Technique > Indonesia > ABAP Dialog Programming > Basic Knowledge >

Dialog (101) - GUI Status and Title

Objektif

▪Membuat Report

▪Hasil

▪Kode Sintak

Kode Transaksi

SE38 - ABAP Editor

Support

Video

 

Membuat Dialog

1.Buat Program Baru,

Nama Program        : YPRACTICE_DIALOG_101

Judul                : 101 - Create GUI Status and Title

2.Tulis kode untuk deklarasi variabel

*----------------------------------------------------------------------*

*GLOBAL VARIABLE DECRALATION

*----------------------------------------------------------------------*

DATA : ok_code LIKE sy-ucomm,

       save_ok LIKE sy-ucomm.

€

3.Klik "abap_tutorial0019" untuk menyimpan program

4.Tambakan Screen yaitu New Screen 2000

Tampilkan Langka-langkahnya

▪Klik "ar0015" untuk menampilkan semua objek

▪Klik kanan pada 'Object Tree', dan seleksi "Screen"

abp0001

 

▪Masukkan nomor screen/screen number "2000" dan tekan "abap_tutorial0025"

abp0002

Ctt : Hindari menggunakan nomor screen "1000" karena nomor ini digunakan SAP untuk menggenerate screen default.

 

▪Isikan diskripsi singkat dengan "First Screen"

abp0003

 

▪Klik pada tab "Element List"

▪Isikan pada cell yang kosong dengan "OK_CODE"

abp0005

▪Klik pada tab "Flow logic"

▪Ubah Kode Sintak seperti berikutw

Sebelum

PROCESS BEFORE OUTPUT.

* MODULE STATUS_2000.

*

PROCESS AFTER INPUT.

* MODULE USER_COMMAND_2000.

 

Setelah

PROCESS BEFORE OUTPUT.

 MODULE STATUS_2000.

*

PROCESS AFTER INPUT.

 MODULE USER_COMMAND_2000.

 

▪Klik "abap_tutorial0019" untuk menyimpan Screen 2000

▪Klik ganda pada teks"STATUS_2000"

abp0004

 

▪Klik Tombol  "abp0006"

▪Seleksi "YPRACTICE_DIALOG_101" dan Klik "abap_tutorial0025" untuk membuat modul baru STATUS_2000

abp0007

 

▪Secara otomatis kode sintak ditulis oleh SAP.

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

*&      Module  STATUS_2000  OUTPUT

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

*       text

*----------------------------------------------------------------------*

module STATUS_2000 output.

*  SET PF-STATUS 'xxxxxxxx'.

*  SET TITLEBAR 'xxx'.

 

endmodule.                 " STATUS_2000  OUTPUT

 

▪Klik Ganda "abp0008" untuk membuka screen 2000

▪Klik pada Tab "Flow logic"

▪Klik Ganda pada text "USER_COMMAND_2000"

abp0009

▪Klik Tombol "abp0006"

▪Seleksi "YPRACTICE_DIALOG_101" dan Klik "abap_tutorial0025" untuk membuat modul baru USER_COMMAND_2000

abp0010

▪Seleksi "YPRACTICE_DIALOG_101" dan Klik "abap_tutorial0025" untuk membuat modul baru STATUS_2000

▪Secara otomatis kode sintak ditulis oleh SAP.

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

*&      Module  USER_COMMAND_2000  INPUT

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

*       text

*----------------------------------------------------------------------*

module USER_COMMAND_2000 input.

 

endmodule.                 " USER_COMMAND_2000  INPUT

▪Klik "abap_tutorial0019" untuk menyimpan Program

 

5.Tambahkan GUI Status baru untuk Screen 2000

Tampilkan Langkah-langkahnya

▪Klik kanan pada Object Tree

abp0011

▪Isikan Status dengan "ST_2000" dan Short Text dengan "GUI Status for Screen 2000"

abp0012

▪Klik "abap_tutorial0025"

▪Buka Function Key

▪Pilih Standard Toolbar dan masukkan 'BACK' pada icon nomor 3 dari kiri

ar0027

▪Klik "abap_tutorial0019" untuk menyimpan GUI Status

▪Klik Ganda "abp0013" dan kembali ke kode Sintak

 

6.Modifikasi modul "STATUS_2000 output"

Sebelum

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

*&      Module  STATUS_2000  OUTPUT

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

*       text

*----------------------------------------------------------------------*

module STATUS_2000 output.

*  SET PF-STATUS 'xxxxxxxx'.

*  SET TITLEBAR 'xxx'.

 

endmodule.                 " STATUS_2000  OUTPUT

 

Setelah

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

*&      Module  STATUS_2000  OUTPUT

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

*       text

*----------------------------------------------------------------------*

module STATUS_2000 output.

  SET PF-STATUS 'ST_2000'.

  *  SET TITLEBAR 'xxx'.

 

endmodule.                 " STATUS_2000  OUTPUT

 

7.Klik "abap_tutorial0019" untuk menyimpan program

8.tambahkan GUI Title baru untuk Screen 2000

Display Steps

▪Klik kanan pada Object Tree

abp0014

▪Isikan 'Title Code' dengan "TL_2000" dan 'Title' dengan "Practice ABAP Dialog Programming"

abp0015

▪Klik "abap_tutorial0025"

▪Klik "abap_tutorial0019" untuk menyimpan GUI Title

▪Klik ganda "abp0013" dan kembali ke kode sintak

 

9.Modifikasi modul "STATUS_2000 output"

Sebelum

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

*&      Module  STATUS_2000  OUTPUT

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

*       text

*----------------------------------------------------------------------*

module STATUS_2000 output.

*  SET PF-STATUS 'xxxxxxxx'.

*  SET TITLEBAR 'xxx'.

 

endmodule.                 " STATUS_2000  OUTPUT

 

Setelah

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

*&      Module  STATUS_2000  OUTPUT

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

*       text

*----------------------------------------------------------------------*

module STATUS_2000 output.

  SET PF-STATUS 'ST_2000'.

  SET TITLEBAR 'TL_2000'.

 

endmodule.                 " STATUS_2000  OUTPUT

 

10.Modifikasi modul "USER_COMMAND_2000 input"

Sebelum

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

*&      Module  USER_COMMAND_2000  INPUT

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

*       text

*----------------------------------------------------------------------*

module USER_COMMAND_2000 input.

 

endmodule.                 " USER_COMMAND_2000  INPUT

 

Setelah

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

*&      Module  USER_COMMAND_2000  INPUT

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

*       text

*----------------------------------------------------------------------*

MODULE user_command_2000 INPUT.

  save_ok = ok_code.

  CLEAR ok_code.

 

  CASE save_ok.

    WHEN 'BACK'.

      LEAVE TO SCREEN 0.

    WHEN OTHERS.

 

  ENDCASE.

 

  CLEAR ok_code.

ENDMODULE.                 " USER_COMMAND_2000  INPUT

 

11.Tambahkan Kode Sintak untuk mengatur screen awal yang ditampilkan.

...

DATA : ok_code LIKE sy-ucomm,

       save_ok LIKE sy-ucomm.

      

*----------------------------------------------------------------------*

*Set First Screen to Displayed

*----------------------------------------------------------------------*

call screen 2000.

       

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

*&      Module  STATUS_2000  OUTPUT

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

*       text

*----------------------------------------------------------------------*

module STATUS_2000 output.

...

 

12.Klik "abap_tutorial0019" dan Klik "abap_tutorial0031"

13.Pilih "REPS", "CUAD" and "DYNP"

abp0016

14.Klik "abap_tutorial0025" untuk mengaktivasi program

15.Tes dan Jalankan program

16.Buat T-Code "YPD101"

17.Selesai

 

Hasil

▪Screen 2000

abp0017