
Thursday, April 8, 2010
at
2:40 AM
|
Pada dasarnya pada saat membuat program di abap terdiri dari beberapa event:
1. Initialization
Di event Initialization kita bisa memberikan nilai default terhadap suatu variabel. Karena pada saat ini line code akan di execute sebelum screen di tampilkan.

2. At selection screen
Event ini akan di jalankan jika terjadi perubahan di screen
3. Start of selection
Event ini akan dijalankan jika melakukan execute terhadap program tersebut.
4. Block Program yang di buat
Di sinilah suatu block program yang akan dibuat baik select, insert, update, insert atau proses.
5. End of selection
Disini adalah akhir dari suatu execute.
6. At line selection
Ini akan dijalan kan jika terjadi event terhadap screen result yang telah di tampilkan.
Sample Program :color:
REPORT YSANTO_01.
tables: spfli.
data: wa_spfli type spfli,
wa_sflig type spfli.
parameters par_cid like spfli-carrid.
initialization.
par_cid = 'MH'.
at selection-screen.
if par_cid = ''.
message e000(38) with 'Carr ID harus di isi'.
endif.
start-of-selection.
select single * from spfli into wa_spfli where carrid = par_cid.
if sy-subrc = 0.
write wa_spfli-carrid.
endif.
end-of-selection.
at line-selection.
select single * from spfli into wa_sflig where carrid = wa_spfli-carrid.
if sy-subrc = 0.
write: / 'Asal Penerbangan : ', wa_sflig-cityfrom.
write: / 'Tujuan Penerbangan : ', wa_sflig-cityto.
endif.
Output :

Result after execute :

After double click :

Ternyata abap itu mudah, betul betul ....
1. Initialization
Di event Initialization kita bisa memberikan nilai default terhadap suatu variabel. Karena pada saat ini line code akan di execute sebelum screen di tampilkan.

2. At selection screen
Event ini akan di jalankan jika terjadi perubahan di screen
3. Start of selection
Event ini akan dijalankan jika melakukan execute terhadap program tersebut.
4. Block Program yang di buat
Di sinilah suatu block program yang akan dibuat baik select, insert, update, insert atau proses.
5. End of selection
Disini adalah akhir dari suatu execute.
6. At line selection
Ini akan dijalan kan jika terjadi event terhadap screen result yang telah di tampilkan.
Sample Program :color:
REPORT YSANTO_01.
tables: spfli.
data: wa_spfli type spfli,
wa_sflig type spfli.
parameters par_cid like spfli-carrid.
initialization.
par_cid = 'MH'.
at selection-screen.
if par_cid = ''.
message e000(38) with 'Carr ID harus di isi'.
endif.
start-of-selection.
select single * from spfli into wa_spfli where carrid = par_cid.
if sy-subrc = 0.
write wa_spfli-carrid.
endif.
end-of-selection.
at line-selection.
select single * from spfli into wa_sflig where carrid = wa_spfli-carrid.
if sy-subrc = 0.
write: / 'Asal Penerbangan : ', wa_sflig-cityfrom.
write: / 'Tujuan Penerbangan : ', wa_sflig-cityto.
endif.
Output :

Result after execute :

After double click :

Ternyata abap itu mudah, betul betul ....
Posted by
Shanto
Labels:
ABAP
0 comments:
Post a Comment