Checkboxları bir grup olarak tanımlamak icin tek tek ctrl ile secip sag tıklayıp define radio button olarak tanımlamamız gerekıyor .
Bunlara bir function code atıyoruz gv_okcode olarak tanımladıgımız degere doluyor bu functıon code . Eger radio olarak bir function kod atadıysak PAI'da yakalıyoruz atadıgımız kodu .
PBO 'da baslık ve toolbarı ayarlıyoruz .
module status_0100 output.
set pf-status 'GATP'.
set titlebar 'GATP'.
endmodule. " STATUS_0100 OUTPUT
module user_command_0100 input.
select single low
from tvarvc
into gv_system
where name eq 'ZLOGSYS'.
if gv_okcode eq 'RADIO'.
if radio1 = 'X'.
perform f_call_transaction using 'ZRGGATP_002' gv_system.
elseif radio2 = 'X'.
perform f_call_transaction using 'SM37' gv_system.
elseif radio3 = 'X'.
perform f_call_transaction using 'ZRGGATP_004' gv_system.
endif.
elseif gv_okcode eq 'PUSH'.
perform f_call_transaction using 'ZRGGATP_002' gv_system.
elseif gv_okcode eq 'PUSH1'.
perform f_call_transaction using 'SM37' gv_system.
elseif gv_okcode eq 'PUSH2'.
perform f_call_transaction using 'ZRGGATP_004' gv_system.
endif.
endmodule.
Ayrıca gui statuste back tusu veya exit tusu ıcın functional type exit command girip daha sonra kodumuzdada
asagıdakı gıbı bır modul yazdıgımızda cıkıs ıslemı yapıyor bu tuslara bastıgımızda .
*&---------------------------------------------------------------------*
*& Module exit INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module exit input.
leave program.
endmodule. " exit INPUT
