Max no of function keys in a screen . What do u mean by SSCR fields...

Question

give any simple understandable examples how to create function key...event driven programs...

Answer 1

Hi,
Try the following code n let me know if it works fine.
Tables *
tables:
sflight, " Flight master
sbook. " Single flight booking
Field string to hold flight master data *
data:
begin of fs_sflight,
carrid type sflight-carrid, " Carrier Id
connid type sflight-connid, " Connection Id
seatsmax type sflight-seatsmax, " Maximum seats
seatsocc type sflight-seatsocc, " Occupied seats
end of fs_sflight.
Internal table to hold flight schedule data *
data:
t_sflight like
standard table
of fs_sflight.
Field string to hold flight booking master data *
data:
begin of fs_sbook,
carrid type sbook-carrid, " Carrier Id
connid type sbook-connid, " Connection Id
fldate type sbook-fldate, " Departure date
bookid type sbook-bookid, " Booking number
loccuram type sbook-loccuram, " Price of booking
order_date type sbook-order_date, " Posting date
end of fs_sbook.
Internal table to hold single flight booking *
data:
t_sbook like standard table
of fs_sbook.
START-OF-SELECTION EVENT *
start-of-selection.
perform selection.
END-OF-SELECTION EVENT *
end-of-selection.
loop at t_sflight into fs_sflight.
write:/ fs_sflight-carrid,
15 fs_sflight-connid,
30 fs_sflight-seatsmax,
45 fs_sflight-seatsocc.
hide: fs_sflight-carrid.
endloop. " LOOP AT T_SFLIGHT...
at pf13.
if sy-curow le 3.
message 'invalid line selection'(001) type 'I'.
else.
perform select_data.
perform display_data.
endif.
at pf14.
if sy-curow le 3.
message 'invalid line selection'(001) type 'I'.
else.
perform select_data.
sort t_sbook by bookid.
perform display_data.
endif.
at pf16.
if sy-curow le 3.
message 'invalid line selection'(001) type 'I'.
else.
perform select_data.
sort t_sbook by loccuram.
perform display_data.
endif.
FORM SELECTION *
This subroutine retrieves necessary data from flight master table *
There are no interface parameters to be passed to this subroutine. *
form selection.
select carrid " Carrier Id
connid " Connection Id
seatsmax " Maximum seats
seatsocc " Seats occupied
from sflight
into table t_sflight.
if sy-subrc ne 0.
message 'No records found'(002) type 'S'.
endif. " IF SY-SUBRC...
endform. " SELECTION
FORM SELECT_DATA *
This subroutine retrieves necessary data from flight booking table *
There are no interface parameters to be passed to this subroutine. *
form select_data.
select carrid " Carrier Id
connid " Connection Id
fldate " Flight date
bookid " Booking number
loccuram " Price of booking
order_date " Booking Date
from sbook
into table t_sbook
where carrid eq fs_sflight-carrid.
if sy-subrc ne 0.
message 'No records found'(002) type 'S'.
endif. " IF SY-SUBRC...
endform. " SELECT_DATA
FORM DISPLAY_DATA *
This subroutine displays data from flight booking table *
There are no interface parameters to be passed to this subroutine. *
form display_data.
loop at t_sbook into fs_sbook.
write: / fs_sbook-carrid,
15 fs_sbook-connid,
30 fs_sbook-fldate,
45 fs_sbook-bookid,
60 fs_sbook-loccuram currency sbook-loccurkey,
75 fs_sbook-order_date.
endloop. " LOOP AT T_SBOOK...
endform. " DISPLAY_DATA
Regards,
Satish