head item alv LIST
*&---------------------------------------------------------------------*
*& Report BCALV_TEST_HIERSEQ_LIST *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
report bcalv_test_hierseq_list.
types: g_ty_t_carrid type standard table of alv_tab,
g_ty_t_connid type standard table of alv_chck,
g_ty_t_curr type standard table of alv_cur,
g_ty_s_sflight type alv_t_t2,
g_ty_s_carrid type alv_tab,
*>>keyinfo external sort
begin of g_ty_s_connid.
include type alv_chck.
types: carrid_master type g_ty_s_sflight-carrid,
end of g_ty_s_connid,
*<<keyinfo external sort
g_ty_s_curr type alv_cur.
constants: con_sflight type lvc_fname value 'ALV_T_T2',
con_scarr type lvc_fname value 'ALV_TAB',
con_spfli type lvc_fname value 'ALV_CHCK',
con_scurx type lvc_fname value 'ALV_CUR'.
*----------------------------------------------------------------------*
* DATA *
*----------------------------------------------------------------------*
tables: sscrfields. " for processing the FCODEs in Selektion screens
include <icon>.
include <symbol>.
type-pools: slis.
class lcl_events_d1001 definition deferred.
class cl_gui_resources definition load.
types: g_ty_t_icon type standard table of icon,
g_ty_t_icont type standard table of icont,
begin of g_ty_s_plane,
carrid type g_ty_s_sflight-carrid,
connid type g_ty_s_sflight-connid,
planetype type g_ty_s_sflight-planetype,
seatsmax type g_ty_s_sflight-seatsmax,
end of g_ty_s_plane,
g_ty_t_plane type sorted table of g_ty_s_plane
with unique key carrid connid,
begin of g_ty_s_fcat_curr,
fieldname type lvc_fname,
table type lvc_fname,
cfieldname type lvc_fname,
currency type lvc_s_fcat-currency,
end of g_ty_s_fcat_curr,
g_ty_t_fcat_curr type sorted table of g_ty_s_fcat_curr
with unique key fieldname,
begin of g_ty_s_fname,
field type lvc_fname,
table type lvc_fname,
end of g_ty_s_fname,
g_ty_t_fname type standard table of g_ty_s_fname,
begin of g_ty_s_sort.
include type slis_sortinfo_alv.
types: handle_drdn type lvc_s_drop-handle,
end of g_ty_s_sort,
g_ty_t_sort type sorted table of g_ty_s_sort
with unique key spos fieldname,
begin of g_ty_s_tests,
select_amount_master type i,
select_amount_slave type i,
only_db_info type char1,
db_short type char1,
excp_display type char1,
excp_condense type char1,
layo_title type lvc_s_layo-grid_title,
layo_zebra type char1,
layo_no_vert_lines type char1,
layo_no_horiz_lines type char1,
layo_cell_merge type char1,
layo_count type char1,
layo_box type char1,
layo_no_colhead type char1,
layo_column_optimize type char1,
layo_keys_hotspot type char1,
layo_no_keyfix type char1,
layo_no_hotspot type char1,
layo_hotspot_rows type i occurs 0,
layo_hotspot_columns type g_ty_s_fname occurs 0,
layo_no_scrolling type char1,
layo_no_authcheck type char1,
layo_no_min_linesize type char1,
layo_min_linesize type sylinsz,
layo_max_linesize type sylinsz,
layo_group_change_edit type char1,
layo_get_selinfo type char1,
layo_confirmation_prompt type char1,
layo_f2code type syucomm,
layo_reprep type char1,
layo_expand_field type char1,
layo_expand_all type char1,
sum_before type char1,
sum_no_sumline type char1,
sum_no_sumchoice type char1,
sum_numc type char1,
sum_no_unitsplit type char1,
sum_totals_only type char1,
sum_totals_text type symsgli,
sum_no_subtotals type char1,
sum_no_subchoice type char1,
sum_subtotals_text type symsgli,
vari_none type char1,
vari_save type char1,
vari_default type char1,
vari_layout type disvariant-variant,
prnt_print type char1,
prnt_reserve_lines type lvc_s_prnt-reservelns,
prnt_no_listinfo type char1,
prnt_no_selinfo type char1,
prnt_with_title type char1,
prnt_footline type lvc_s_prnt-footline,
prnt_printinfo type char1,
prnt_no_coverpage type char1,
prnt_no_new_page type char1,
prnt_no_change_print_params type char1,
prnt_no_hierseq_item type char1,
color_rows type i occurs 0,
color_fields_column type g_ty_s_fname occurs 0,
color_fields_cell type g_ty_s_fname occurs 0,
fcat_no_out_fields type g_ty_s_fname occurs 0,
fcat_tech_fields type g_ty_s_fname occurs 0,
fcat_fix_column_fields type g_ty_s_fname occurs 0,
fcat_do_sum_fields type g_ty_s_fname occurs 0,
fcat_no_sum_fields type g_ty_s_fname occurs 0,
fcat_curr_fields type g_ty_t_fcat_curr,
curr_amount type i,
curr_space type char1,
t_sort type g_ty_t_sort,
buffer_active type char1,
bypassing_buffer type char1,
current_display type i,
end of g_ty_s_tests,
begin of g_ty_s_master.
include type g_ty_s_connid.
types: box type char1,
lights type char1,
checkbox type char1,
hotspot type char1,
expand type char1,
color(4) type c,
tabcolor type slis_t_specialcol_alv,
price type g_ty_s_sflight-price,
currency type g_ty_s_sflight-currency,
price_head type g_ty_s_sflight-price,
currency_head type g_ty_s_sflight-currency,
char(10) type c,
string type string,
int1 type int1,
int2 type int2,
int4 type i,
numc(10) type n,
dec(10) type p decimals 2,
fltp type f,
dats type d,
tims type t,
icon type icon-id,
icon_qinfo type icon-name,
symbol type icon-id,
end of g_ty_s_master,
g_ty_t_master type standard table of g_ty_s_master,
begin of g_ty_s_slave.
include type g_ty_s_sflight.
types: box type char1,
lights type char1,
checkbox type char1,
hotspot type char1,
expand type char1,
color(4) type c,
tabcolor type slis_t_specialcol_alv,
price_item type g_ty_s_sflight-price,
currency_item type g_ty_s_sflight-currency,
char(10) type c,
string type string,
int1 type int1,
int2 type int2,
int4 type i,
numc(10) type n,
dec(10) type p decimals 2,
fltp type f,
dats type d,
tims type t,
icon type icon-id,
icon_qinfo type icon-name,
symbol type icon-id,
end of g_ty_s_slave,
g_ty_t_slave type standard table of g_ty_s_slave.
constants: con_true type char1 value 'X',
con_ok type sy-ucomm value 'OK',
con_exit type sy-ucomm value 'EXIT',
con_canc type sy-ucomm value 'CANC',
con_back type sy-ucomm value 'BACK'.
data: gt_master type g_ty_t_master,
gt_slave type g_ty_t_slave,
gs_test type g_ty_s_tests.
data: gt_sort type standard table of g_ty_s_sort.
data: g_repid type sy-repid.
data: g_field type lvc_s_fcat-fieldname,
g_int_field type i,
g_dummy type lvc_s_fcat-fieldname,
gs_field type g_ty_s_fname.
data: gr_container_d1001 type ref to cl_gui_custom_container,
gr_grid_d1001 type ref to cl_gui_alv_grid,
gr_events_d1001 type ref to lcl_events_d1001.
data: g_okcode type sy-ucomm.
*---------------------------------------------------------------------*
* CLASS lcl_events_d1001 DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
class lcl_events_d1001 definition.
public section.
methods:
onf4 for event onf4
of cl_gui_alv_grid
importing e_fieldname
e_fieldvalue
es_row_no
er_event_data
et_bad_cells
e_display,
data_changed for event data_changed
of cl_gui_alv_grid
importing er_data_changed
e_onf4
e_onf4_before
e_onf4_after,
data_changed_finished
for event data_changed_finished
of cl_gui_alv_grid.
endclass. "lcl_events_d1001 DEFINITION
*---------------------------------------------------------------------*
* CLASS lcl_events_d1001 IMPLEMENTATION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
class lcl_events_d1001 implementation.
method onf4.
perform d1001_event_onf4 using e_fieldname
e_fieldvalue
es_row_no
er_event_data
et_bad_cells
e_display.
endmethod. "onf4
method data_changed.
perform d1001_event_data_changed using er_data_changed
e_onf4
e_onf4_before
e_onf4_after.
endmethod. "data_changed
method data_changed_finished.
perform d1001_event_data_changed_finis.
endmethod. "data_changed_finished
endclass. "lcl_events_d1001 IMPLEMENTATION
*---------------------------------------------------------------------*
* CLASS random DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
class random definition.
public section.
types:
value(16) type p decimals 0,
numcv(15) type n.
constants:
max type random=>value value 4294967295.
class-methods:
* computes a random natural number from the set {0, ..., random=>max}.
number returning value(rval) type random=>value,
* computes a random character from the set {A-Za-z0-9}
c returning value(rval) type char01,
* computes a random string consisting of "len" random characters
string importing len type i
returning value(rval) type string,
* computes a date
dats returning value(rval) type d,
* computes a time
time returning value(rval) type t,
* computes a random numc from the set {low, ..., high}
numc importing low type random=>numcv high type random=>numcv
returning value(rval) type random=>numcv,
* computes a random integer from the set {low, ..., high}
i importing low type i high type i
returning value(rval) type i,
* computes a random integer from the set {low, ..., high}
int2 importing low type int2 high type int2
returning value(rval) type int2,
* computes a random integer from the set {low, ..., high}
int1 importing low type int1 high type int1
returning value(rval) type int1,
* computes a random float from the interval [low ; high]
f importing low type f high type f
returning value(rval) type f,
* computes a random character from the set {A-F0-9}
hex returning value(rval) type char01,
* computes a random character from the set {0-1}
x returning value(rval) type char01,
* method "random=>class_constructor"
class_constructor.
private section.
class-data:
* precomputed maximal index (= string length - 1) of "random=>chars"
* or of "random=>x_data".
charsmax type i,
xmax type i,
* random number seed value.
* (Used in method "random=>number".)
seed type random=>value.
constants:
* characters for class-method "random=>hex"
hex_data(100) type c value 'ABCDEF' &
'0123456789',
* characters for class-method "random=>x"
x_data(100) type c value '01',
* characters for class-metshod "random=>c"
chars(100) type c value 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' &
'abcdefghijklmnopqrstuvwxyz' &
'0123456789'.
endclass. "random DEFINITION
*---------------------------------------------------------------------*
* CLASS random IMPLEMENTATION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
class random implementation.
* implementation of the methods for randomizing the values
method x.
data: ri type i.
ri = random=>i( low = 0 high = random=>xmax ).
move x_data+ri(1) to rval.
endmethod. "x
method hex.
data: ri type i.
ri = random=>i( low = 0 high = random=>charsmax ).
move hex_data+ri(1) to rval.
endmethod. "hex
method number.
constants:
a(3) type p value 67301, " Coefficient
c(1) type p value 1, " Increment
m(6) type p value 4294967296. " Modulus 2**32
random=>seed = ( a * random=>seed + c ) mod m.
rval = random=>seed.
endmethod. "number
method c.
data:
ri type i.
ri = random=>i( low = 0 high = random=>charsmax ).
move chars+ri(1) to rval.
endmethod. "c
method string.
data:
char(1) type c.
clear rval.
do len times.
char = random=>c( ).
concatenate rval char into rval.
enddo.
endmethod. "string
method dats.
data: l_date type sy-datum,
l_day(2) type n,
l_month(2) type n,
l_year(4) type n,
l_value type random=>numcv,
l_low type random=>numcv,
l_high type random=>numcv.
l_year = sy-datum+0(4).
l_low = l_year - 5.
l_high = l_year + 5.
l_value = random=>numc( low = l_low high = l_high ).
l_year = l_value+11(4).
l_value = random=>numc( low = 1 high = 12 ).
l_month = l_value+13(2).
case l_month.
when 2.
l_high = 28.
when 4 or 6 or 9 or 11.
l_high = 30.
when others.
l_high = 31.
endcase.
l_value = random=>numc( low = 1 high = l_high ).
l_day = l_value+13(2).
l_date+0(4) = l_year.
l_date+4(2) = l_month.
l_date+6(2) = l_day.
rval = l_date.
endmethod. "dats
method time.
data: l_time type t,
l_hour(2) type n,
l_min(2) type n,
l_sec(2) type n,
l_value type random=>numcv.
l_value = random=>numc( low = 0 high = 60 ).
l_sec = l_value+13(2).
l_value = random=>numc( low = 0 high = 60 ).
l_min = l_value+13(2).
l_value = random=>numc( low = 1 high = 24 ).
l_hour = l_value+13(2).
l_time+0(2) = l_hour.
l_time+2(2) = l_min.
l_time+4(2) = l_sec.
rval = l_time.
endmethod. "time
method numc.
* Go from {0,...,random=>max} to {low,...,high} with ABAP rounding
data: l_dec(16) type p,
l_char(16) type c.
l_dec = ( ( high - low + 1 ) * random=>number( ) ) / random=>max
+ '0.5'.
subtract 1 from l_dec.
add low to l_dec.
data: lr_type_descr type ref to cl_abap_typedescr,
lr_elem_descr type ref to cl_abap_elemdescr.
lr_type_descr =
cl_abap_typedescr=>describe_by_data( rval ).
lr_elem_descr ?= lr_type_descr.
l_char = l_dec.
shift l_char left deleting leading space.
rval = l_char+0(lr_elem_descr->output_length).
endmethod. "i
method i.
* Go from {0,...,random=>max} to {low,...,high} with ABAP rounding
data: l_dec(16) type p,
l_char(16) type c.
l_dec = ( ( high - low + 1 ) * random=>number( ) ) / random=>max
+ '0.5'.
subtract 1 from l_dec.
add low to l_dec.
data: lr_type_descr type ref to cl_abap_typedescr,
lr_elem_descr type ref to cl_abap_elemdescr.
lr_type_descr =
cl_abap_typedescr=>describe_by_data( rval ).
lr_elem_descr ?= lr_type_descr.
l_char = l_dec.
shift l_char left deleting leading space.
rval = l_char+0(lr_elem_descr->output_length).
endmethod. "i
method int2.
* Go from {0,...,random=>max} to {low,...,high} with ABAP rounding
data: l_dec(16) type p,
l_char(16) type c.
l_dec = ( ( high - low + 1 ) * random=>number( ) ) / random=>max
+ '0.5'.
subtract 1 from l_dec.
add low to l_dec.
data: lr_type_descr type ref to cl_abap_typedescr,
lr_elem_descr type ref to cl_abap_elemdescr.
lr_type_descr =
cl_abap_typedescr=>describe_by_data( rval ).
lr_elem_descr ?= lr_type_descr.
l_char = l_dec.
shift l_char left deleting leading space.
rval = l_char+0(lr_elem_descr->output_length).
endmethod. "i
method int1.
* Go from {0,...,random=>max} to {low,...,high} with ABAP rounding
data: l_dec(16) type p,
l_char(16) type c.
l_dec = ( ( high - low + 1 ) * random=>number( ) ) / random=>max
+ '0.5'.
subtract 1 from l_dec.
add low to l_dec.
data: lr_type_descr type ref to cl_abap_typedescr,
lr_elem_descr type ref to cl_abap_elemdescr.
lr_type_descr =
cl_abap_typedescr=>describe_by_data( rval ).
lr_elem_descr ?= lr_type_descr.
l_char = l_dec.
shift l_char left deleting leading space.
rval = l_char+0(lr_elem_descr->output_length).
endmethod. "i
method f.
* Go from {0,...,random=>max} to [low;high]
rval = ( ( high - low ) * random=>number( ) ) / random=>max
+ low.
endmethod. "f
method class_constructor.
charsmax = strlen( chars ) - 1.
xmax = strlen( x_data ) - 1.
seed = 1.
endmethod. "class_constructor
endclass. "random IMPLEMENTATION
*----------------------------------------------------------------------*
* SELECTION-SCREEN *
*----------------------------------------------------------------------*
selection-screen begin of block gen with frame.
parameters:
p_amount type i default 30,
p_amouns type i default 30,
p_dbinfo as checkbox,
p_dbshrt as checkbox.
selection-screen end of block gen.
selection-screen begin of block var with frame title text-var.
parameters:
p_var01 radiobutton group save, "BENUTZERSPEZ
p_var02 radiobutton group save, "BENUTZERüBERGREIF
p_var03 radiobutton group save, "ALLES
p_var04 radiobutton group save. "KEINE
selection-screen skip.
parameters:
p_var05 as checkbox. "KEINE VERWALTUNG
selection-screen skip.
parameters:
p_var06 as checkbox. "DEFAULT
selection-screen skip.
parameters:
p_var07 like disvariant-variant. "LAYOUT
selection-screen skip.
parameters:
p_var08 as checkbox. "NO AUTHORITY CHECK
selection-screen end of block var.
selection-screen begin of block hsq with frame title text-hsq.
parameters:
p_exp01 as checkbox, " EXPAND FIELD
p_exp02 as checkbox. " EXPAND ALL
selection-screen end of block hsq.
selection-screen begin of block tit with frame title text-tit.
parameters:
p_tit01 type lvc_s_layo-grid_title default text-p01. "TITLE
selection-screen end of block tit.
selection-screen begin of block lay with frame title text-lay.
parameters:
p_lay01 as checkbox. "ZEBRA
selection-screen skip.
parameters:
p_lay02 as checkbox, "NO HORIZONTAL LINES
p_lay03 as checkbox. "NO VERTICAL LINES
selection-screen skip.
parameters:
p_lay04 as checkbox. "NO SCROLLING
selection-screen skip.
parameters:
p_lay06 type syucomm, "F2CODE
p_lay07 as checkbox. "CONFIRMATION PROMPT
selection-screen end of block lay.
selection-screen begin of block spa with frame title text-spa.
parameters:
p_spa01 as checkbox, "BOX
p_spa02 as checkbox, "COUNT FELD
p_spa03 as checkbox, "NO COLUMN HEADERS
p_spa04 as checkbox. "COLUMN OPTIMIZE
selection-screen begin of block hot with frame title text-hot.
parameters:
p_hot01 as checkbox. "NO HOTSPOT
parameters:
p_hot02 as checkbox. "Hotspot auf Zeilenebene
select-options:
p_hotf02 for g_int_field no intervals default 1.
parameters:
p_hot03 as checkbox.
select-options:
p_hotf03 for g_field no intervals.
selection-screen end of block hot.
selection-screen begin of block mrg with frame title text-mrg.
parameters:
p_mrg01 radiobutton group mrge, "Default
p_mrg02 radiobutton group mrge, "kein Merge
p_mrg03 radiobutton group mrge. "Merge
selection-screen end of block mrg.
selection-screen begin of block out with frame title text-out.
parameters:
p_out01 as checkbox.
select-options:
p_outf01 for g_field no intervals.
selection-screen end of block out.
selection-screen begin of block tec with frame title text-tec.
parameters:
p_tec01 as checkbox.
select-options:
p_tecf01 for g_field no intervals.
selection-screen end of block tec.
selection-screen begin of block fix with frame title text-fix.
parameters:
p_fix01 as checkbox.
select-options:
p_fixf01 for g_field no intervals.
selection-screen end of block fix.
selection-screen begin of block cur with frame title text-cur.
parameters:
p_curanz type i,
p_curspc as checkbox default space.
selection-screen skip.
select-options:
p_curf00 for g_field no intervals.
parameters:
p_cur01 radiobutton group cur default 'X',
p_curf01 type lvc_s_fcat-fieldname.
parameters:
p_cur02 radiobutton group cur,
p_curf02 type g_ty_s_sflight-currency.
selection-screen end of block cur.
selection-screen begin of block sort with frame title text-srt.
selection-screen pushbutton /1(20) text-pb1 user-command pb01.
selection-screen end of block sort.
selection-screen end of block spa.
selection-screen begin of block key with frame title text-key.
parameters:
p_key01 as checkbox, "KEYFELDER ALS HOTSPOT
p_key02 as checkbox. "NO KEY FIXIERUNG
selection-screen end of block key.
selection-screen begin of block exp with frame title text-exp.
parameters:
p_excp01 as checkbox, "EXCEPTION
p_excp_c as checkbox. "EXCEPTION CONDENSE
selection-screen end of block exp.
selection-screen begin of block sum with frame title text-sum.
parameters:
p_sum01 as checkbox, "SUM BEFORE
p_sum02 as checkbox, "NUMC
p_sum03 as checkbox, "NO UNITSPLIT
p_sum04 as checkbox, "TOTALS ONLY
p_sum05 as checkbox, "NO SUMCHOICE
p_sum06 as checkbox, "NO SUMLINE
p_sum07 type sy-msgli, "TOTALS TEXT
p_sum08 as checkbox, "NO SUBCHOICE
p_sum09 as checkbox, "NO SUBTOTALS
p_sum10 type sy-msgli. "SUBTOTALS TEXT
selection-screen begin of block dos with frame title text-dos.
parameters:
p_dos01 as checkbox.
select-options:
p_dosf01 for g_field no intervals.
selection-screen end of block dos.
selection-screen begin of block nos with frame title text-nos.
parameters:
p_nos01 as checkbox.
select-options:
p_nosf01 for g_field no intervals.
selection-screen end of block nos.
selection-screen end of block sum.
selection-screen begin of block col with frame title text-col.
parameters:
p_col01 as checkbox.
select-options:
p_colf01 for g_int_field no intervals default 1.
parameters:
p_col02 as checkbox.
select-options:
p_colf02 for g_field no intervals.
parameters:
p_col03 as checkbox.
select-options:
p_colf03 for g_field no intervals.
selection-screen end of block col.
selection-screen begin of block prn with frame title text-prn.
parameters:
p_lpr01 as checkbox default 'X'. "GROUP CHANGE EDIT
selection-screen skip.
parameters:
p_lpr02 as checkbox. "GET SELINFO
selection-screen skip.
parameters:
p_lpr03 as checkbox, "NO MIN LINESIZE
p_lpr04 type sylinsz, "MIN LINESIZE
p_lpr05 type sylinsz. "MAX LINESIZE
selection-screen skip.
parameters:
p_prn01 as checkbox, "PRINT
p_prn02 type lvc_s_prnt-reservelns, "RESERVE LINES
p_prn03 as checkbox, "NO LISTINFO
p_prn04 as checkbox, "NO SELINFO
p_prn05 as checkbox, "TITEL
p_prn06 type lvc_s_prnt-footline, "FOOTLINE
p_prn07 as checkbox, "PRINT INFO
p_prn08 as checkbox, "NO COVERPAGE
p_prn09 as checkbox, "NO NEW PAGE
p_prn10 as checkbox, "NO CHANGE PRINT PARAMS
p_prn11 as checkbox. "no_print_hierseq_item
selection-screen end of block prn.
selection-screen begin of block rep with frame title text-rep.
parameters:
p_rep01 as checkbox. "REPREP
selection-screen end of block rep.
selection-screen begin of block keys with frame title text-inf.
parameters:
p_skey01 as checkbox, "is_keyinfo different keys
p_skey02 as checkbox. "fields only filled in Masterarea
*already implemented FLDATE
selection-screen end of block keys.
*----------------------------------------------------------------------*
* INITIALIZATION *
*----------------------------------------------------------------------*
initialization.
perform f01_f4_field using 'SUM' space changing p_dosf01-low
p_dosf01-high.
p_dosf01-option = 'EQ'.
p_dosf01-sign = 'I'.
append p_dosf01.
perform f01_f4_field using 'SUM' space changing p_nosf01-low
p_nosf01-high.
p_nosf01-option = 'EQ'.
p_nosf01-sign = 'I'.
append p_nosf01.
perform f01_f4_field using 'KEY' space changing p_outf01-low
p_outf01-high.
p_outf01-option = 'EQ'.
p_outf01-sign = 'I'.
append p_outf01.
perform f01_f4_field using space space changing p_tecf01-low
p_tecf01-high.
p_tecf01-option = 'EQ'.
p_tecf01-sign = 'I'.
append p_tecf01.
perform f01_f4_field using space space changing p_fixf01-low
p_fixf01-high.
p_fixf01-option = 'EQ'.
p_fixf01-sign = 'I'.
append p_fixf01.
perform f01_f4_field using 'CURR' space changing p_curf00-low
p_curf00-high.
p_curf00-option = 'EQ'.
p_curf00-sign = 'I'.
append p_curf00.
perform f01_f4_field using 'CUKY' space changing p_curf01
p_curf00-high.
perform f01_f4_field using space space changing p_hotf03-low
p_hotf03-high.
p_hotf03-option = 'EQ'.
p_hotf03-sign = 'I'.
append p_hotf03.
perform f01_f4_field using space space changing p_colf02-low
p_colf02-high.
p_colf02-option = 'EQ'.
p_colf02-sign = 'I'.
append p_colf02.
perform f01_f4_field using space space changing p_colf03-low
p_colf03-high.
p_colf03-option = 'EQ'.
p_colf03-sign = 'I'.
append p_colf03.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*----------------------------------------------------------------------*
at selection-screen.
case sscrfields-ucomm.
when 'PB01'.
call screen 1001 starting at 1 1 ending at 80 20.
endcase.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN ON VALUE-REQUEST *
*----------------------------------------------------------------------*
at selection-screen on value-request for p_var07.
perform f01_f4_variant changing p_var07.
at selection-screen on value-request for p_dosf01-low.
perform f01_f4_field using 'SUM' 'X'
changing p_dosf01-low p_dosf01-high.
at selection-screen on value-request for p_nosf01-low.
perform f01_f4_field using 'SUM' 'X'
changing p_nosf01-low p_nosf01-high.
at selection-screen on value-request for p_outf01-low.
perform f01_f4_field using 'KEY' 'X'
changing p_outf01-low p_outf01-high.
at selection-screen on value-request for p_tecf01-low.
perform f01_f4_field using space 'X'
changing p_tecf01-low p_tecf01-high.
at selection-screen on value-request for p_fixf01-low.
perform f01_f4_field using space 'X'
changing p_fixf01-low p_fixf01-low.
at selection-screen on value-request for p_curf00-low.
perform f01_f4_field using 'CURR' 'X'
changing p_curf00-low p_curf00-high.
at selection-screen on value-request for p_curf01.
perform f01_f4_field using 'CUKY' 'X'
changing p_curf01 g_dummy.
at selection-screen on value-request for p_hotf03-low.
perform f01_f4_field using space 'X'
changing p_hotf03-low p_hotf03-high.
at selection-screen on value-request for p_colf02-low.
perform f01_f4_field using space 'X'
changing p_colf02-low p_colf02-high.
at selection-screen on value-request for p_colf03-low.
perform f01_f4_field using space 'X'
changing p_colf03-low p_colf03-high.
at selection-screen on value-request for p_lay06.
perform f01_f4_fcode using space
space
changing p_lay06.
*----------------------------------------------------------------------*
* START-OF-SELECTION *
*----------------------------------------------------------------------*
start-of-selection.
g_repid = sy-repid.
gs_test-select_amount_master = p_amount.
gs_test-select_amount_slave = p_amouns.
gs_test-only_db_info = p_dbinfo.
gs_test-db_short = p_dbshrt.
case con_true.
when p_var01.
gs_test-vari_save = 'U'.
when p_var02.
gs_test-vari_save = 'X'.
when p_var03.
gs_test-vari_save = 'A'.
when p_var04.
gs_test-vari_save = ' '.
endcase.
gs_test-vari_none = p_var05.
gs_test-vari_default = p_var06.
gs_test-vari_layout = p_var07.
gs_test-layo_no_authcheck = p_var08.
gs_test-layo_expand_field = p_exp01.
gs_test-layo_expand_all = p_exp02.
gs_test-layo_title = p_tit01.
gs_test-layo_zebra = p_lay01.
gs_test-layo_no_horiz_lines = p_lay02.
gs_test-layo_no_vert_lines = p_lay03.
gs_test-layo_no_scrolling = p_lay04.
gs_test-layo_f2code = p_lay06.
gs_test-layo_confirmation_prompt = p_lay07.
gs_test-layo_box = p_spa01.
gs_test-layo_count = p_spa02.
gs_test-layo_no_colhead = p_spa03.
gs_test-layo_column_optimize = p_spa04.
gs_test-layo_no_hotspot = p_hot01.
if p_hot02 eq con_true.
loop at p_hotf02.
if not p_hotf02-low is initial.
append p_hotf02-low to gs_test-layo_hotspot_rows.
endif.
endloop.
endif.
if p_hot03 eq con_true.
loop at p_hotf03.
if not p_hotf03-low is initial.
gs_field-field = p_hotf03-low.
gs_field-table = p_hotf03-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-layo_hotspot_columns.
endif.
endloop.
endif.
case con_true.
when p_mrg01.
gs_test-layo_cell_merge = space.
when p_mrg02.
gs_test-layo_cell_merge = 'N'.
when p_mrg03.
gs_test-layo_cell_merge = 'Y'.
endcase.
if p_out01 eq con_true.
loop at p_outf01.
if not p_outf01-low is initial.
gs_field-field = p_outf01-low.
gs_field-table = p_outf01-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-fcat_no_out_fields.
endif.
endloop.
endif.
if p_tec01 eq con_true.
loop at p_tecf01.
if not p_tecf01-low is initial.
gs_field-field = p_tecf01-low.
gs_field-table = p_tecf01-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-fcat_tech_fields.
endif.
endloop.
endif.
if p_fix01 eq con_true.
loop at p_fixf01.
if not p_fixf01-low is initial.
gs_field-field = p_fixf01-low.
gs_field-table = p_fixf01-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-fcat_fix_column_fields.
endif.
endloop.
endif.
gs_test-curr_amount = p_curanz.
gs_test-curr_space = p_curspc.
if p_cur01 eq con_true or p_cur02 eq con_true.
data: ls_fcat_curr type g_ty_s_fcat_curr.
loop at p_curf00.
clear ls_fcat_curr.
if not p_curf00-low is initial.
ls_fcat_curr-fieldname = p_curf00-low.
ls_fcat_curr-table = p_curf00-high+3.
if ls_fcat_curr-table eq space.
ls_fcat_curr-table = 'GT_MASTER'.
endif.
case con_true.
when p_cur01.
ls_fcat_curr-cfieldname = p_curf01.
when p_cur02.
ls_fcat_curr-currency = p_curf02.
endcase.
append ls_fcat_curr to gs_test-fcat_curr_fields.
endif.
endloop.
endif.
gs_test-layo_keys_hotspot = p_key01.
gs_test-layo_no_keyfix = p_key02.
gs_test-excp_display = p_excp01.
gs_test-excp_condense = p_excp_c.
gs_test-sum_before = p_sum01.
gs_test-sum_numc = p_sum02.
gs_test-sum_no_unitsplit = p_sum03.
gs_test-sum_totals_only = p_sum04.
gs_test-sum_no_sumchoice = p_sum05.
gs_test-sum_no_sumline = p_sum06.
gs_test-sum_totals_text = p_sum07.
gs_test-sum_no_subchoice = p_sum08.
gs_test-sum_no_subtotals = p_sum09.
gs_test-sum_subtotals_text = p_sum10.
if p_dos01 eq con_true.
loop at p_dosf01.
if not p_dosf01-low is initial.
gs_field-field = p_dosf01-low.
gs_field-table = p_dosf01-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-fcat_do_sum_fields.
endif.
endloop.
endif.
if p_nos01 eq con_true.
loop at p_nosf01.
if not p_nosf01-low is initial.
gs_field-field = p_nosf01-low.
gs_field-table = p_nosf01-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-fcat_no_sum_fields.
endif.
endloop.
endif.
gs_test-layo_group_change_edit = p_lpr01.
gs_test-layo_get_selinfo = p_lpr02.
gs_test-layo_no_min_linesize = p_lpr03.
gs_test-layo_min_linesize = p_lpr04.
gs_test-layo_max_linesize = p_lpr05.
gs_test-prnt_print = p_prn01.
gs_test-prnt_reserve_lines = p_prn02.
gs_test-prnt_no_listinfo = p_prn03.
gs_test-prnt_no_selinfo = p_prn04.
gs_test-prnt_with_title = p_prn05.
gs_test-prnt_footline = p_prn06.
gs_test-prnt_printinfo = p_prn07.
gs_test-prnt_no_coverpage = p_prn08.
gs_test-prnt_no_new_page = p_prn09.
gs_test-prnt_no_change_print_params = p_prn10.
gs_test-prnt_no_hierseq_item = p_prn11.
gs_test-layo_reprep = p_rep01.
if p_col01 eq con_true.
loop at p_colf01.
if not p_colf01-low is initial.
append p_colf01-low to gs_test-color_rows.
endif.
endloop.
endif.
if p_col02 eq con_true.
loop at p_colf02.
if not p_colf02-low is initial.
gs_field-field = p_colf02-low.
gs_field-table = p_colf02-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-color_fields_column.
endif.
endloop.
endif.
if p_col03 eq con_true.
loop at p_colf03.
if not p_colf03-low is initial.
gs_field-field = p_colf03-low.
gs_field-table = p_colf03-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-color_fields_cell.
endif.
endloop.
endif.
gs_test-buffer_active = space.
gs_test-bypassing_buffer = space.
*----------------------------------------------------------------------*
* END-OF-SELECTION *
*----------------------------------------------------------------------*
end-of-selection.
perform f01_call_list.
*&---------------------------------------------------------------------*
*& Form f01_call_list
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f01_call_list.
data: ls_vari type disvariant,
ls_layo type slis_layout_alv,
lt_fcat type slis_t_fieldcat_alv,
lt_sort type slis_t_sortinfo_alv,
ls_prnt type slis_print_alv,
lt_qinf type slis_t_qinfo_alv,
ls_keyinfo type slis_keyinfo_alv.
perform f01_get_outtab.
perform f01_set_vari changing ls_vari.
perform f01_set_layo changing ls_layo.
perform f01_set_fcat changing lt_fcat.
perform f01_set_prnt changing ls_prnt.
perform f01_set_color changing lt_fcat
ls_layo.
perform f01_set_hotspot changing lt_fcat
ls_layo.
perform f01_set_keyinfo changing ls_keyinfo.
lt_sort[] = gs_test-t_sort[].
call function 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
exporting
* I_INTERFACE_CHECK = ' '
i_callback_program = g_repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
is_layout = ls_layo
it_fieldcat = lt_fcat
* IT_EXCLUDING =
* it_special_groups =
it_sort = lt_sort
* IT_FILTER =
* IS_SEL_HIDE =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
i_default = gs_test-vari_default
i_save = gs_test-vari_save
is_variant = ls_vari
* it_events =
* it_event_exit =
i_tabname_header = 'GT_MASTER'
i_tabname_item = 'GT_SLAVE'
* I_STRUCTURE_NAME_HEADER =
* I_STRUCTURE_NAME_ITEM =
is_keyinfo = ls_keyinfo
is_print = ls_prnt
it_except_qinfo = lt_qinf
* IS_REPREP_ID =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
tables
t_outtab_header = gt_master
t_outtab_item = gt_slave
exceptions
program_error = 1
others = 2.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform. " f01_call_list
*&---------------------------------------------------------------------*
*& Form f01_set_vari
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f01_set_vari changing cs_vari type disvariant.
check gs_test-vari_none eq space.
cs_vari-report = sy-repid.
cs_vari-handle = space.
cs_vari-log_group = space.
cs_vari-username = space.
cs_vari-variant = gs_test-vari_layout.
cs_vari-text = space.
cs_vari-dependvars = space.
endform. " f01_set_vari
*&---------------------------------------------------------------------*
*& Form f01_set_layo
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f01_set_layo changing cs_layo type slis_layout_alv.
*... Display options
cs_layo-colwidth_optimize = gs_test-layo_column_optimize.
cs_layo-no_colhead = gs_test-layo_no_colhead.
cs_layo-no_hotspot = gs_test-layo_no_hotspot.
cs_layo-zebra = gs_test-layo_zebra.
cs_layo-no_vline = gs_test-layo_no_vert_lines.
cs_layo-no_hline = gs_test-layo_no_horiz_lines.
cs_layo-cell_merge = gs_test-layo_cell_merge.
cs_layo-no_min_linesize = gs_test-layo_no_min_linesize.
cs_layo-min_linesize = gs_test-layo_min_linesize.
cs_layo-max_linesize = gs_test-layo_max_linesize.
cs_layo-window_titlebar = gs_test-layo_title.
cs_layo-no_uline_hs = space.
if gs_test-layo_count eq con_true.
cs_layo-countfname = 'COUNT'.
endif.
*... Edit
cs_layo-edit = space.
cs_layo-edit_mode = space.
*... Exceptions
if gs_test-excp_display eq con_true or
gs_test-excp_condense eq con_true.
cs_layo-lights_fieldname = 'LIGHTS'.
endif.
cs_layo-lights_tabname = 'GT_MASTER'.
cs_layo-lights_rollname = space.
cs_layo-lights_condense = gs_test-excp_condense.
*... Sums
cs_layo-no_sumchoice = gs_test-sum_no_sumchoice.
cs_layo-no_totalline = gs_test-sum_no_sumline.
cs_layo-totals_before_items = gs_test-sum_before.
cs_layo-totals_only = gs_test-sum_totals_only.
cs_layo-totals_text = gs_test-sum_totals_text.
cs_layo-no_subchoice = gs_test-sum_no_subchoice.
cs_layo-no_subtotals = gs_test-sum_no_subtotals.
cs_layo-subtotals_text = gs_test-sum_subtotals_text.
cs_layo-numc_sum = gs_test-sum_numc.
cs_layo-no_unit_splitting = gs_test-sum_no_unitsplit.
*... Interaction
if gs_test-layo_box eq con_true.
cs_layo-box_fieldname = 'BOX'.
endif.
cs_layo-box_tabname = 'GT_MASTER'.
cs_layo-box_rollname = space.
if gs_test-layo_expand_field eq con_true.
cs_layo-expand_fieldname = 'EXPAND'.
endif.
cs_layo-no_input = space.
cs_layo-f2code = gs_test-layo_f2code.
cs_layo-confirmation_prompt = gs_test-layo_confirmation_prompt.
cs_layo-key_hotspot = gs_test-layo_keys_hotspot.
cs_layo-flexible_key = space.
cs_layo-reprep = gs_test-layo_reprep.
cs_layo-group_buttons = space.
cs_layo-no_keyfix = gs_test-layo_no_keyfix.
cs_layo-get_selinfos = gs_test-layo_get_selinfo.
cs_layo-group_change_edit = gs_test-layo_group_change_edit.
cs_layo-no_scrolling = gs_test-layo_no_scrolling.
cs_layo-expand_all = gs_test-layo_expand_all.
cs_layo-no_author = gs_test-layo_no_authcheck.
*... Detailed screen
cs_layo-detail_popup = space.
cs_layo-detail_initial_lines = space.
cs_layo-detail_titlebar = space.
*... PF-status
cs_layo-def_status = space.
*... Display variants
cs_layo-header_text = space.
cs_layo-item_text = space.
cs_layo-default_item = space.
*... colour
cs_layo-info_fieldname = space.
cs_layo-coltab_fieldname = space.
*... others
cs_layo-list_append = space.
endform. " f01_set_layo
*&---------------------------------------------------------------------*
*& Form f01_set_fcat
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f01_set_fcat changing ct_fcat type slis_t_fieldcat_alv.
data: lt_fcat_master type slis_t_fieldcat_alv,
lt_fcat_slave type slis_t_fieldcat_alv.
clear ct_fcat[].
perform f01_set_fcat_master changing lt_fcat_master.
perform f01_set_fcat_slave changing lt_fcat_slave.
append lines of lt_fcat_master to ct_fcat.
append lines of lt_fcat_slave to ct_fcat.
endform. " f01_set_fcat
*&---------------------------------------------------------------------*
*& Form f01_set_fcat_master
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f01_set_fcat_master changing ct_fcat type slis_t_fieldcat_alv.
field-symbols: <ls_fcat> type slis_fieldcat_alv.
data: lt_fcat type slis_t_fieldcat_alv,
ls_fcat type slis_fieldcat_alv,
l_lin type i.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
exporting
* I_PROGRAM_NAME =
* i_internal_tabname =
i_structure_name = con_spfli
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_INCLNAME =
i_bypassing_buffer = gs_test-bypassing_buffer
i_buffer_active = gs_test-buffer_active
changing
ct_fieldcat = ct_fcat
exceptions
inconsistent_interface = 1
program_error = 2
others = 3.
if sy-subrc ne 0.
exit.
endif.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
exporting
* I_PROGRAM_NAME =
* i_internal_tabname =
i_structure_name = con_sflight
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_INCLNAME =
i_bypassing_buffer = gs_test-bypassing_buffer
i_buffer_active = gs_test-buffer_active
changing
ct_fieldcat = lt_fcat
exceptions
inconsistent_interface = 1
program_error = 2
others = 3.
if sy-subrc ne 0.
exit.
else.
delete lt_fcat where fieldname ne 'PRICE'
and fieldname ne 'CURRENCY'.
append lines of lt_fcat to ct_fcat.
loop at ct_fcat assigning <ls_fcat>.
case <ls_fcat>-fieldname.
when 'CARRID' or 'CONNID'.
l_lin = <ls_fcat>-col_pos.
when 'PRICE' or 'CURRENCY'.
add 1 to l_lin.
<ls_fcat>-col_pos = l_lin.
when others.
add 4 to <ls_fcat>-col_pos.
endcase.
endloop.
endif.
ls_fcat-tabname = 'GT_MASTER'.
modify ct_fcat from ls_fcat transporting tabname
where tabname ne ls_fcat-tabname.
if gs_test-only_db_info eq space.
add 1 to l_lin.
clear ls_fcat.
read table ct_fcat assigning <ls_fcat> with key fieldname = 'PRICE'.
if sy-subrc eq 0.
<ls_fcat>-ctabname = 'GT_MASTER'.
<ls_fcat>-seltext_l = 'PRICE_M'.
<ls_fcat>-seltext_m = 'PRICE_M'.
<ls_fcat>-seltext_s = 'PRICE_M'.
<ls_fcat>-reptext_ddic = 'PRICE_M'.
ls_fcat = <ls_fcat>.
ls_fcat-ref_fieldname = ls_fcat-fieldname.
ls_fcat-fieldname = 'PRICE_HEAD'.
ls_fcat-cfieldname = 'CURRENCY_ITEM'.
ls_fcat-ctabname = 'GT_SLAVE'.
ls_fcat-seltext_l = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-reptext_ddic = ls_fcat-fieldname.
ls_fcat-col_pos = l_lin.
append ls_fcat to ct_fcat.
endif.
add 1 to l_lin.
clear ls_fcat.
read table ct_fcat assigning <ls_fcat>
with key fieldname = 'CURRENCY'.
if sy-subrc eq 0.
<ls_fcat>-seltext_l = 'CURRENCY_M'.
<ls_fcat>-seltext_m = 'CURRENCY_M'.
<ls_fcat>-seltext_s = 'CURRENCY_M'.
<ls_fcat>-reptext_ddic = 'CURRENCY_M'.
ls_fcat = <ls_fcat>.
ls_fcat-ref_fieldname = ls_fcat-fieldname.
ls_fcat-fieldname = 'CURRENCY_HEAD'.
ls_fcat-seltext_l = 'CURRENCY_ITEM'.
ls_fcat-seltext_m = 'CURRENCY_ITEM'.
ls_fcat-seltext_s = 'CURRENCY_ITEM'.
ls_fcat-reptext_ddic = 'CURRENCY_ITEM'.
ls_fcat-col_pos = l_lin.
append ls_fcat to ct_fcat.
endif.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'CHECKBOX'.
ls_fcat-checkbox = con_true.
ls_fcat-inttype = 'C'.
ls_fcat-datatype = 'CHAR'.
ls_fcat-intlen = 1.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'CHAR'.
ls_fcat-inttype = 'C'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'STRING'.
ls_fcat-inttype = 'g'.
ls_fcat-intlen = 10.
ls_fcat-outputlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-lowercase = con_true.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'INT1'.
ls_fcat-inttype = 'b'.
ls_fcat-intlen = 3.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'INT2'.
ls_fcat-inttype = 's'.
ls_fcat-intlen = 5.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'INT4'.
ls_fcat-inttype = 'I'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'NUMC'.
ls_fcat-inttype = 'N'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'DEC'.
ls_fcat-inttype = 'P'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-decimals_out = 2.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'FLTP'.
ls_fcat-inttype = 'F'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'DATS'.
ls_fcat-inttype = 'D'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'TIMS'.
ls_fcat-inttype = 'T'.
ls_fcat-intlen = 8.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'ICON'.
ls_fcat-inttype = 'C'.
ls_fcat-intlen = 4.
ls_fcat-col_pos = l_lin.
ls_fcat-icon = con_true.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'ICON_QINFO'.
ls_fcat-inttype = 'C'.
ls_fcat-intlen = 30.
ls_fcat-outputlen = 4.
ls_fcat-col_pos = l_lin.
ls_fcat-icon = con_true.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'SYMBOL'.
ls_fcat-inttype = 'C'.
ls_fcat-intlen = 4.
ls_fcat-col_pos = l_lin.
ls_fcat-symbol = con_true.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
endif.
*>>keyinfo external sort
clear ls_fcat.
read table ct_fcat with key fieldname = 'CARRID_MASTER'
transporting no fields.
if sy-subrc ne 0.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'CARRID_MASTER'.
ls_fcat-ref_fieldname = 'CARRID'.
ls_fcat-ctabname = 'GT_MASTER'.
ls_fcat-seltext_l = 'CARRID_MASTER'.
ls_fcat-seltext_m = 'CARRID_MASTER'.
ls_fcat-seltext_s = 'CARRID_MASTER'.
ls_fcat-reptext_ddic = 'CARRID_MASTER'.
ls_fcat-col_pos = l_lin.
add 1 to l_lin.
append ls_fcat to ct_fcat.
endif.
*<<keyinfo external sort
data: ls_field type g_ty_s_fname.
loop at gs_test-fcat_no_out_fields into ls_field
where table eq ls_fcat-tabname.
read table ct_fcat assigning <ls_fcat>
with key fieldname = ls_field-field.
if sy-subrc eq 0.
<ls_fcat>-no_out = con_true.
endif.
endloop.
loop at gs_test-fcat_tech_fields into ls_field
where table eq ls_fcat-tabname.
read table ct_fcat assigning <ls_fcat>
with key fieldname = ls_field-field.
if sy-subrc eq 0.
<ls_fcat>-tech = con_true.
endif.
endloop.
loop at gs_test-fcat_fix_column_fields into ls_field
where table eq ls_fcat-tabname.
read table ct_fcat assigning <ls_fcat>
with key fieldname = ls_field-field.
if sy-subrc eq 0.
<ls_fcat>-fix_column = con_true.
endif.
endloop.
loop at gs_test-fcat_do_sum_fields into ls_field
where table eq ls_fcat-tabname.
read table ct_fcat assigning <ls_fcat>
with key fieldname = ls_field-field.
if sy-subrc eq 0.
<ls_fcat>-do_sum = con_true.
endif.
endloop.
loop at gs_test-fcat_no_sum_fields into ls_field
where table eq ls_fcat-tabname.
read table ct_fcat assigning <ls_fcat>
with key fieldname = ls_field-field.
if sy-subrc eq 0.
<ls_fcat>-no_sum = con_true.
endif.
endloop.
data: ls_fcat_curr type g_ty_s_fcat_curr.
loop at gs_test-fcat_curr_fields into ls_fcat_curr
where table eq ls_fcat-tabname.
read table ct_fcat assigning <ls_fcat>
with key fieldname = ls_fcat_curr-fieldname.
if sy-subrc eq 0 and <ls_fcat>-datatype eq 'CURR'.
if ls_fcat_curr-cfieldname eq space.
<ls_fcat>-cfieldname = ls_fcat_curr-cfieldname.
<ls_fcat>-currency = ls_fcat_curr-currency.
else.
read table ct_fcat into ls_fcat
with key fieldname = ls_fcat_curr-cfieldname.
if sy-subrc eq 0 and ls_fcat-datatype eq 'CUKY'.
<ls_fcat>-cfieldname = ls_fcat_curr-cfieldname.
<ls_fcat>-currency = ls_fcat_curr-currency.
endif.
endif.
endif.
endloop.
endform. " f01_set_fcat_master
*&---------------------------------------------------------------------*
*& Form f01_set_fcat_slave
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f01_set_fcat_slave changing ct_fcat type slis_t_fieldcat_alv.
data: ls_fcat type slis_fieldcat_alv,
l_lin type i,
l_index_from type i,
l_index_to type i.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
exporting
* I_PROGRAM_NAME =
* i_internal_tabname =
i_structure_name = con_sflight
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_INCLNAME =
i_bypassing_buffer = gs_test-bypassing_buffer
i_buffer_active = gs_test-buffer_active
changing
ct_fieldcat = ct_fcat
exceptions
inconsistent_interface = 1
program_error = 2
others = 3.
if sy-subrc ne 0.
exit.
endif.
ls_fcat-tabname = 'GT_SLAVE'.
modify ct_fcat from ls_fcat transporting tabname
where tabname ne ls_fcat-tabname.
if gs_test-only_db_info eq space.
describe table ct_fcat lines l_index_to.
clear ls_fcat.
read table ct_fcat into ls_fcat with key fieldname = 'PRICE'.
if sy-subrc eq 0.
l_lin = ls_fcat-col_pos.
ls_fcat-ctabname = 'GT_SLAVE'.
ls_fcat-seltext_l = 'PRICE_S'.
ls_fcat-seltext_m = 'PRICE_S'.
ls_fcat-seltext_s = 'PRICE_S'.
ls_fcat-reptext_ddic = 'PRICE_S'.
modify ct_fcat from ls_fcat index sy-tabix.
ls_fcat-ref_fieldname = ls_fcat-fieldname.
ls_fcat-fieldname = 'PRICE_ITEM'.
ls_fcat-cfieldname = 'CURRENCY_HEAD'.
ls_fcat-ctabname = 'GT_MASTER'.
ls_fcat-seltext_l = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-reptext_ddic = ls_fcat-fieldname.
ls_fcat-col_pos = l_lin + 2.
append ls_fcat to ct_fcat.
endif.
clear ls_fcat.
read table ct_fcat into ls_fcat with key fieldname = 'CURRENCY'.
if sy-subrc eq 0.
l_lin = ls_fcat-col_pos.
ls_fcat-seltext_l = 'CURRENCY_S'.
ls_fcat-seltext_m = 'CURRENCY_S'.
ls_fcat-seltext_s = 'CURRENCY_S'.
ls_fcat-reptext_ddic = 'CURRENCY_S'.
modify ct_fcat from ls_fcat index sy-tabix.
ls_fcat-ref_fieldname = ls_fcat-fieldname.
ls_fcat-fieldname = 'CURRENCY_ITEM'.
ls_fcat-seltext_l = 'CURRENCY_HEAD'.
ls_fcat-seltext_m = 'CURRENCY_HEAD'.
ls_fcat-seltext_s = 'CURRENCY_HEAD'.
ls_fcat-reptext_ddic = 'CURRENCY_HEAD'.
ls_fcat-col_pos = l_lin + 2.
append ls_fcat to ct_fcat.
endif.
l_index_from = l_lin + 1.
loop at ct_fcat from l_index_from to l_index_to into ls_fcat.
add 2 to ls_fcat-col_pos.
modify ct_fcat from ls_fcat index sy-tabix.
endloop.
clear ls_fcat.
ls_fcat-tabname = 'GT_SLAVE'.
ls_fcat-fieldname = 'CHECKBOX'.
ls_fcat-checkbox = con_true.
ls_fcat-inttype = 'C'.
ls_fcat-datatype = 'CHAR'.
ls_fcat-intlen = 1.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_SLAVE'.
ls_fcat-fieldname = 'CHAR'.
ls_fcat-inttype = 'C'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_SLAVE'.
ls_fcat-fieldname = 'STRING'.
ls_fcat-inttype = 'g'.
ls_fcat-intlen = 10.
ls_fcat-outputlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-lowercase = con_true.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_SLAVE'.
ls_fcat-fieldname = 'INT1'.
ls_fcat-inttype = 'b'.
ls_fcat-intlen = 3.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_SLAVE'.
ls_fcat-fieldname = 'INT2
*& Report BCALV_TEST_HIERSEQ_LIST *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
report bcalv_test_hierseq_list.
types: g_ty_t_carrid type standard table of alv_tab,
g_ty_t_connid type standard table of alv_chck,
g_ty_t_curr type standard table of alv_cur,
g_ty_s_sflight type alv_t_t2,
g_ty_s_carrid type alv_tab,
*>>keyinfo external sort
begin of g_ty_s_connid.
include type alv_chck.
types: carrid_master type g_ty_s_sflight-carrid,
end of g_ty_s_connid,
*<<keyinfo external sort
g_ty_s_curr type alv_cur.
constants: con_sflight type lvc_fname value 'ALV_T_T2',
con_scarr type lvc_fname value 'ALV_TAB',
con_spfli type lvc_fname value 'ALV_CHCK',
con_scurx type lvc_fname value 'ALV_CUR'.
*----------------------------------------------------------------------*
* DATA *
*----------------------------------------------------------------------*
tables: sscrfields. " for processing the FCODEs in Selektion screens
include <icon>.
include <symbol>.
type-pools: slis.
class lcl_events_d1001 definition deferred.
class cl_gui_resources definition load.
types: g_ty_t_icon type standard table of icon,
g_ty_t_icont type standard table of icont,
begin of g_ty_s_plane,
carrid type g_ty_s_sflight-carrid,
connid type g_ty_s_sflight-connid,
planetype type g_ty_s_sflight-planetype,
seatsmax type g_ty_s_sflight-seatsmax,
end of g_ty_s_plane,
g_ty_t_plane type sorted table of g_ty_s_plane
with unique key carrid connid,
begin of g_ty_s_fcat_curr,
fieldname type lvc_fname,
table type lvc_fname,
cfieldname type lvc_fname,
currency type lvc_s_fcat-currency,
end of g_ty_s_fcat_curr,
g_ty_t_fcat_curr type sorted table of g_ty_s_fcat_curr
with unique key fieldname,
begin of g_ty_s_fname,
field type lvc_fname,
table type lvc_fname,
end of g_ty_s_fname,
g_ty_t_fname type standard table of g_ty_s_fname,
begin of g_ty_s_sort.
include type slis_sortinfo_alv.
types: handle_drdn type lvc_s_drop-handle,
end of g_ty_s_sort,
g_ty_t_sort type sorted table of g_ty_s_sort
with unique key spos fieldname,
begin of g_ty_s_tests,
select_amount_master type i,
select_amount_slave type i,
only_db_info type char1,
db_short type char1,
excp_display type char1,
excp_condense type char1,
layo_title type lvc_s_layo-grid_title,
layo_zebra type char1,
layo_no_vert_lines type char1,
layo_no_horiz_lines type char1,
layo_cell_merge type char1,
layo_count type char1,
layo_box type char1,
layo_no_colhead type char1,
layo_column_optimize type char1,
layo_keys_hotspot type char1,
layo_no_keyfix type char1,
layo_no_hotspot type char1,
layo_hotspot_rows type i occurs 0,
layo_hotspot_columns type g_ty_s_fname occurs 0,
layo_no_scrolling type char1,
layo_no_authcheck type char1,
layo_no_min_linesize type char1,
layo_min_linesize type sylinsz,
layo_max_linesize type sylinsz,
layo_group_change_edit type char1,
layo_get_selinfo type char1,
layo_confirmation_prompt type char1,
layo_f2code type syucomm,
layo_reprep type char1,
layo_expand_field type char1,
layo_expand_all type char1,
sum_before type char1,
sum_no_sumline type char1,
sum_no_sumchoice type char1,
sum_numc type char1,
sum_no_unitsplit type char1,
sum_totals_only type char1,
sum_totals_text type symsgli,
sum_no_subtotals type char1,
sum_no_subchoice type char1,
sum_subtotals_text type symsgli,
vari_none type char1,
vari_save type char1,
vari_default type char1,
vari_layout type disvariant-variant,
prnt_print type char1,
prnt_reserve_lines type lvc_s_prnt-reservelns,
prnt_no_listinfo type char1,
prnt_no_selinfo type char1,
prnt_with_title type char1,
prnt_footline type lvc_s_prnt-footline,
prnt_printinfo type char1,
prnt_no_coverpage type char1,
prnt_no_new_page type char1,
prnt_no_change_print_params type char1,
prnt_no_hierseq_item type char1,
color_rows type i occurs 0,
color_fields_column type g_ty_s_fname occurs 0,
color_fields_cell type g_ty_s_fname occurs 0,
fcat_no_out_fields type g_ty_s_fname occurs 0,
fcat_tech_fields type g_ty_s_fname occurs 0,
fcat_fix_column_fields type g_ty_s_fname occurs 0,
fcat_do_sum_fields type g_ty_s_fname occurs 0,
fcat_no_sum_fields type g_ty_s_fname occurs 0,
fcat_curr_fields type g_ty_t_fcat_curr,
curr_amount type i,
curr_space type char1,
t_sort type g_ty_t_sort,
buffer_active type char1,
bypassing_buffer type char1,
current_display type i,
end of g_ty_s_tests,
begin of g_ty_s_master.
include type g_ty_s_connid.
types: box type char1,
lights type char1,
checkbox type char1,
hotspot type char1,
expand type char1,
color(4) type c,
tabcolor type slis_t_specialcol_alv,
price type g_ty_s_sflight-price,
currency type g_ty_s_sflight-currency,
price_head type g_ty_s_sflight-price,
currency_head type g_ty_s_sflight-currency,
char(10) type c,
string type string,
int1 type int1,
int2 type int2,
int4 type i,
numc(10) type n,
dec(10) type p decimals 2,
fltp type f,
dats type d,
tims type t,
icon type icon-id,
icon_qinfo type icon-name,
symbol type icon-id,
end of g_ty_s_master,
g_ty_t_master type standard table of g_ty_s_master,
begin of g_ty_s_slave.
include type g_ty_s_sflight.
types: box type char1,
lights type char1,
checkbox type char1,
hotspot type char1,
expand type char1,
color(4) type c,
tabcolor type slis_t_specialcol_alv,
price_item type g_ty_s_sflight-price,
currency_item type g_ty_s_sflight-currency,
char(10) type c,
string type string,
int1 type int1,
int2 type int2,
int4 type i,
numc(10) type n,
dec(10) type p decimals 2,
fltp type f,
dats type d,
tims type t,
icon type icon-id,
icon_qinfo type icon-name,
symbol type icon-id,
end of g_ty_s_slave,
g_ty_t_slave type standard table of g_ty_s_slave.
constants: con_true type char1 value 'X',
con_ok type sy-ucomm value 'OK',
con_exit type sy-ucomm value 'EXIT',
con_canc type sy-ucomm value 'CANC',
con_back type sy-ucomm value 'BACK'.
data: gt_master type g_ty_t_master,
gt_slave type g_ty_t_slave,
gs_test type g_ty_s_tests.
data: gt_sort type standard table of g_ty_s_sort.
data: g_repid type sy-repid.
data: g_field type lvc_s_fcat-fieldname,
g_int_field type i,
g_dummy type lvc_s_fcat-fieldname,
gs_field type g_ty_s_fname.
data: gr_container_d1001 type ref to cl_gui_custom_container,
gr_grid_d1001 type ref to cl_gui_alv_grid,
gr_events_d1001 type ref to lcl_events_d1001.
data: g_okcode type sy-ucomm.
*---------------------------------------------------------------------*
* CLASS lcl_events_d1001 DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
class lcl_events_d1001 definition.
public section.
methods:
onf4 for event onf4
of cl_gui_alv_grid
importing e_fieldname
e_fieldvalue
es_row_no
er_event_data
et_bad_cells
e_display,
data_changed for event data_changed
of cl_gui_alv_grid
importing er_data_changed
e_onf4
e_onf4_before
e_onf4_after,
data_changed_finished
for event data_changed_finished
of cl_gui_alv_grid.
endclass. "lcl_events_d1001 DEFINITION
*---------------------------------------------------------------------*
* CLASS lcl_events_d1001 IMPLEMENTATION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
class lcl_events_d1001 implementation.
method onf4.
perform d1001_event_onf4 using e_fieldname
e_fieldvalue
es_row_no
er_event_data
et_bad_cells
e_display.
endmethod. "onf4
method data_changed.
perform d1001_event_data_changed using er_data_changed
e_onf4
e_onf4_before
e_onf4_after.
endmethod. "data_changed
method data_changed_finished.
perform d1001_event_data_changed_finis.
endmethod. "data_changed_finished
endclass. "lcl_events_d1001 IMPLEMENTATION
*---------------------------------------------------------------------*
* CLASS random DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
class random definition.
public section.
types:
value(16) type p decimals 0,
numcv(15) type n.
constants:
max type random=>value value 4294967295.
class-methods:
* computes a random natural number from the set {0, ..., random=>max}.
number returning value(rval) type random=>value,
* computes a random character from the set {A-Za-z0-9}
c returning value(rval) type char01,
* computes a random string consisting of "len" random characters
string importing len type i
returning value(rval) type string,
* computes a date
dats returning value(rval) type d,
* computes a time
time returning value(rval) type t,
* computes a random numc from the set {low, ..., high}
numc importing low type random=>numcv high type random=>numcv
returning value(rval) type random=>numcv,
* computes a random integer from the set {low, ..., high}
i importing low type i high type i
returning value(rval) type i,
* computes a random integer from the set {low, ..., high}
int2 importing low type int2 high type int2
returning value(rval) type int2,
* computes a random integer from the set {low, ..., high}
int1 importing low type int1 high type int1
returning value(rval) type int1,
* computes a random float from the interval [low ; high]
f importing low type f high type f
returning value(rval) type f,
* computes a random character from the set {A-F0-9}
hex returning value(rval) type char01,
* computes a random character from the set {0-1}
x returning value(rval) type char01,
* method "random=>class_constructor"
class_constructor.
private section.
class-data:
* precomputed maximal index (= string length - 1) of "random=>chars"
* or of "random=>x_data".
charsmax type i,
xmax type i,
* random number seed value.
* (Used in method "random=>number".)
seed type random=>value.
constants:
* characters for class-method "random=>hex"
hex_data(100) type c value 'ABCDEF' &
'0123456789',
* characters for class-method "random=>x"
x_data(100) type c value '01',
* characters for class-metshod "random=>c"
chars(100) type c value 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' &
'abcdefghijklmnopqrstuvwxyz' &
'0123456789'.
endclass. "random DEFINITION
*---------------------------------------------------------------------*
* CLASS random IMPLEMENTATION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
class random implementation.
* implementation of the methods for randomizing the values
method x.
data: ri type i.
ri = random=>i( low = 0 high = random=>xmax ).
move x_data+ri(1) to rval.
endmethod. "x
method hex.
data: ri type i.
ri = random=>i( low = 0 high = random=>charsmax ).
move hex_data+ri(1) to rval.
endmethod. "hex
method number.
constants:
a(3) type p value 67301, " Coefficient
c(1) type p value 1, " Increment
m(6) type p value 4294967296. " Modulus 2**32
random=>seed = ( a * random=>seed + c ) mod m.
rval = random=>seed.
endmethod. "number
method c.
data:
ri type i.
ri = random=>i( low = 0 high = random=>charsmax ).
move chars+ri(1) to rval.
endmethod. "c
method string.
data:
char(1) type c.
clear rval.
do len times.
char = random=>c( ).
concatenate rval char into rval.
enddo.
endmethod. "string
method dats.
data: l_date type sy-datum,
l_day(2) type n,
l_month(2) type n,
l_year(4) type n,
l_value type random=>numcv,
l_low type random=>numcv,
l_high type random=>numcv.
l_year = sy-datum+0(4).
l_low = l_year - 5.
l_high = l_year + 5.
l_value = random=>numc( low = l_low high = l_high ).
l_year = l_value+11(4).
l_value = random=>numc( low = 1 high = 12 ).
l_month = l_value+13(2).
case l_month.
when 2.
l_high = 28.
when 4 or 6 or 9 or 11.
l_high = 30.
when others.
l_high = 31.
endcase.
l_value = random=>numc( low = 1 high = l_high ).
l_day = l_value+13(2).
l_date+0(4) = l_year.
l_date+4(2) = l_month.
l_date+6(2) = l_day.
rval = l_date.
endmethod. "dats
method time.
data: l_time type t,
l_hour(2) type n,
l_min(2) type n,
l_sec(2) type n,
l_value type random=>numcv.
l_value = random=>numc( low = 0 high = 60 ).
l_sec = l_value+13(2).
l_value = random=>numc( low = 0 high = 60 ).
l_min = l_value+13(2).
l_value = random=>numc( low = 1 high = 24 ).
l_hour = l_value+13(2).
l_time+0(2) = l_hour.
l_time+2(2) = l_min.
l_time+4(2) = l_sec.
rval = l_time.
endmethod. "time
method numc.
* Go from {0,...,random=>max} to {low,...,high} with ABAP rounding
data: l_dec(16) type p,
l_char(16) type c.
l_dec = ( ( high - low + 1 ) * random=>number( ) ) / random=>max
+ '0.5'.
subtract 1 from l_dec.
add low to l_dec.
data: lr_type_descr type ref to cl_abap_typedescr,
lr_elem_descr type ref to cl_abap_elemdescr.
lr_type_descr =
cl_abap_typedescr=>describe_by_data( rval ).
lr_elem_descr ?= lr_type_descr.
l_char = l_dec.
shift l_char left deleting leading space.
rval = l_char+0(lr_elem_descr->output_length).
endmethod. "i
method i.
* Go from {0,...,random=>max} to {low,...,high} with ABAP rounding
data: l_dec(16) type p,
l_char(16) type c.
l_dec = ( ( high - low + 1 ) * random=>number( ) ) / random=>max
+ '0.5'.
subtract 1 from l_dec.
add low to l_dec.
data: lr_type_descr type ref to cl_abap_typedescr,
lr_elem_descr type ref to cl_abap_elemdescr.
lr_type_descr =
cl_abap_typedescr=>describe_by_data( rval ).
lr_elem_descr ?= lr_type_descr.
l_char = l_dec.
shift l_char left deleting leading space.
rval = l_char+0(lr_elem_descr->output_length).
endmethod. "i
method int2.
* Go from {0,...,random=>max} to {low,...,high} with ABAP rounding
data: l_dec(16) type p,
l_char(16) type c.
l_dec = ( ( high - low + 1 ) * random=>number( ) ) / random=>max
+ '0.5'.
subtract 1 from l_dec.
add low to l_dec.
data: lr_type_descr type ref to cl_abap_typedescr,
lr_elem_descr type ref to cl_abap_elemdescr.
lr_type_descr =
cl_abap_typedescr=>describe_by_data( rval ).
lr_elem_descr ?= lr_type_descr.
l_char = l_dec.
shift l_char left deleting leading space.
rval = l_char+0(lr_elem_descr->output_length).
endmethod. "i
method int1.
* Go from {0,...,random=>max} to {low,...,high} with ABAP rounding
data: l_dec(16) type p,
l_char(16) type c.
l_dec = ( ( high - low + 1 ) * random=>number( ) ) / random=>max
+ '0.5'.
subtract 1 from l_dec.
add low to l_dec.
data: lr_type_descr type ref to cl_abap_typedescr,
lr_elem_descr type ref to cl_abap_elemdescr.
lr_type_descr =
cl_abap_typedescr=>describe_by_data( rval ).
lr_elem_descr ?= lr_type_descr.
l_char = l_dec.
shift l_char left deleting leading space.
rval = l_char+0(lr_elem_descr->output_length).
endmethod. "i
method f.
* Go from {0,...,random=>max} to [low;high]
rval = ( ( high - low ) * random=>number( ) ) / random=>max
+ low.
endmethod. "f
method class_constructor.
charsmax = strlen( chars ) - 1.
xmax = strlen( x_data ) - 1.
seed = 1.
endmethod. "class_constructor
endclass. "random IMPLEMENTATION
*----------------------------------------------------------------------*
* SELECTION-SCREEN *
*----------------------------------------------------------------------*
selection-screen begin of block gen with frame.
parameters:
p_amount type i default 30,
p_amouns type i default 30,
p_dbinfo as checkbox,
p_dbshrt as checkbox.
selection-screen end of block gen.
selection-screen begin of block var with frame title text-var.
parameters:
p_var01 radiobutton group save, "BENUTZERSPEZ
p_var02 radiobutton group save, "BENUTZERüBERGREIF
p_var03 radiobutton group save, "ALLES
p_var04 radiobutton group save. "KEINE
selection-screen skip.
parameters:
p_var05 as checkbox. "KEINE VERWALTUNG
selection-screen skip.
parameters:
p_var06 as checkbox. "DEFAULT
selection-screen skip.
parameters:
p_var07 like disvariant-variant. "LAYOUT
selection-screen skip.
parameters:
p_var08 as checkbox. "NO AUTHORITY CHECK
selection-screen end of block var.
selection-screen begin of block hsq with frame title text-hsq.
parameters:
p_exp01 as checkbox, " EXPAND FIELD
p_exp02 as checkbox. " EXPAND ALL
selection-screen end of block hsq.
selection-screen begin of block tit with frame title text-tit.
parameters:
p_tit01 type lvc_s_layo-grid_title default text-p01. "TITLE
selection-screen end of block tit.
selection-screen begin of block lay with frame title text-lay.
parameters:
p_lay01 as checkbox. "ZEBRA
selection-screen skip.
parameters:
p_lay02 as checkbox, "NO HORIZONTAL LINES
p_lay03 as checkbox. "NO VERTICAL LINES
selection-screen skip.
parameters:
p_lay04 as checkbox. "NO SCROLLING
selection-screen skip.
parameters:
p_lay06 type syucomm, "F2CODE
p_lay07 as checkbox. "CONFIRMATION PROMPT
selection-screen end of block lay.
selection-screen begin of block spa with frame title text-spa.
parameters:
p_spa01 as checkbox, "BOX
p_spa02 as checkbox, "COUNT FELD
p_spa03 as checkbox, "NO COLUMN HEADERS
p_spa04 as checkbox. "COLUMN OPTIMIZE
selection-screen begin of block hot with frame title text-hot.
parameters:
p_hot01 as checkbox. "NO HOTSPOT
parameters:
p_hot02 as checkbox. "Hotspot auf Zeilenebene
select-options:
p_hotf02 for g_int_field no intervals default 1.
parameters:
p_hot03 as checkbox.
select-options:
p_hotf03 for g_field no intervals.
selection-screen end of block hot.
selection-screen begin of block mrg with frame title text-mrg.
parameters:
p_mrg01 radiobutton group mrge, "Default
p_mrg02 radiobutton group mrge, "kein Merge
p_mrg03 radiobutton group mrge. "Merge
selection-screen end of block mrg.
selection-screen begin of block out with frame title text-out.
parameters:
p_out01 as checkbox.
select-options:
p_outf01 for g_field no intervals.
selection-screen end of block out.
selection-screen begin of block tec with frame title text-tec.
parameters:
p_tec01 as checkbox.
select-options:
p_tecf01 for g_field no intervals.
selection-screen end of block tec.
selection-screen begin of block fix with frame title text-fix.
parameters:
p_fix01 as checkbox.
select-options:
p_fixf01 for g_field no intervals.
selection-screen end of block fix.
selection-screen begin of block cur with frame title text-cur.
parameters:
p_curanz type i,
p_curspc as checkbox default space.
selection-screen skip.
select-options:
p_curf00 for g_field no intervals.
parameters:
p_cur01 radiobutton group cur default 'X',
p_curf01 type lvc_s_fcat-fieldname.
parameters:
p_cur02 radiobutton group cur,
p_curf02 type g_ty_s_sflight-currency.
selection-screen end of block cur.
selection-screen begin of block sort with frame title text-srt.
selection-screen pushbutton /1(20) text-pb1 user-command pb01.
selection-screen end of block sort.
selection-screen end of block spa.
selection-screen begin of block key with frame title text-key.
parameters:
p_key01 as checkbox, "KEYFELDER ALS HOTSPOT
p_key02 as checkbox. "NO KEY FIXIERUNG
selection-screen end of block key.
selection-screen begin of block exp with frame title text-exp.
parameters:
p_excp01 as checkbox, "EXCEPTION
p_excp_c as checkbox. "EXCEPTION CONDENSE
selection-screen end of block exp.
selection-screen begin of block sum with frame title text-sum.
parameters:
p_sum01 as checkbox, "SUM BEFORE
p_sum02 as checkbox, "NUMC
p_sum03 as checkbox, "NO UNITSPLIT
p_sum04 as checkbox, "TOTALS ONLY
p_sum05 as checkbox, "NO SUMCHOICE
p_sum06 as checkbox, "NO SUMLINE
p_sum07 type sy-msgli, "TOTALS TEXT
p_sum08 as checkbox, "NO SUBCHOICE
p_sum09 as checkbox, "NO SUBTOTALS
p_sum10 type sy-msgli. "SUBTOTALS TEXT
selection-screen begin of block dos with frame title text-dos.
parameters:
p_dos01 as checkbox.
select-options:
p_dosf01 for g_field no intervals.
selection-screen end of block dos.
selection-screen begin of block nos with frame title text-nos.
parameters:
p_nos01 as checkbox.
select-options:
p_nosf01 for g_field no intervals.
selection-screen end of block nos.
selection-screen end of block sum.
selection-screen begin of block col with frame title text-col.
parameters:
p_col01 as checkbox.
select-options:
p_colf01 for g_int_field no intervals default 1.
parameters:
p_col02 as checkbox.
select-options:
p_colf02 for g_field no intervals.
parameters:
p_col03 as checkbox.
select-options:
p_colf03 for g_field no intervals.
selection-screen end of block col.
selection-screen begin of block prn with frame title text-prn.
parameters:
p_lpr01 as checkbox default 'X'. "GROUP CHANGE EDIT
selection-screen skip.
parameters:
p_lpr02 as checkbox. "GET SELINFO
selection-screen skip.
parameters:
p_lpr03 as checkbox, "NO MIN LINESIZE
p_lpr04 type sylinsz, "MIN LINESIZE
p_lpr05 type sylinsz. "MAX LINESIZE
selection-screen skip.
parameters:
p_prn01 as checkbox, "PRINT
p_prn02 type lvc_s_prnt-reservelns, "RESERVE LINES
p_prn03 as checkbox, "NO LISTINFO
p_prn04 as checkbox, "NO SELINFO
p_prn05 as checkbox, "TITEL
p_prn06 type lvc_s_prnt-footline, "FOOTLINE
p_prn07 as checkbox, "PRINT INFO
p_prn08 as checkbox, "NO COVERPAGE
p_prn09 as checkbox, "NO NEW PAGE
p_prn10 as checkbox, "NO CHANGE PRINT PARAMS
p_prn11 as checkbox. "no_print_hierseq_item
selection-screen end of block prn.
selection-screen begin of block rep with frame title text-rep.
parameters:
p_rep01 as checkbox. "REPREP
selection-screen end of block rep.
selection-screen begin of block keys with frame title text-inf.
parameters:
p_skey01 as checkbox, "is_keyinfo different keys
p_skey02 as checkbox. "fields only filled in Masterarea
*already implemented FLDATE
selection-screen end of block keys.
*----------------------------------------------------------------------*
* INITIALIZATION *
*----------------------------------------------------------------------*
initialization.
perform f01_f4_field using 'SUM' space changing p_dosf01-low
p_dosf01-high.
p_dosf01-option = 'EQ'.
p_dosf01-sign = 'I'.
append p_dosf01.
perform f01_f4_field using 'SUM' space changing p_nosf01-low
p_nosf01-high.
p_nosf01-option = 'EQ'.
p_nosf01-sign = 'I'.
append p_nosf01.
perform f01_f4_field using 'KEY' space changing p_outf01-low
p_outf01-high.
p_outf01-option = 'EQ'.
p_outf01-sign = 'I'.
append p_outf01.
perform f01_f4_field using space space changing p_tecf01-low
p_tecf01-high.
p_tecf01-option = 'EQ'.
p_tecf01-sign = 'I'.
append p_tecf01.
perform f01_f4_field using space space changing p_fixf01-low
p_fixf01-high.
p_fixf01-option = 'EQ'.
p_fixf01-sign = 'I'.
append p_fixf01.
perform f01_f4_field using 'CURR' space changing p_curf00-low
p_curf00-high.
p_curf00-option = 'EQ'.
p_curf00-sign = 'I'.
append p_curf00.
perform f01_f4_field using 'CUKY' space changing p_curf01
p_curf00-high.
perform f01_f4_field using space space changing p_hotf03-low
p_hotf03-high.
p_hotf03-option = 'EQ'.
p_hotf03-sign = 'I'.
append p_hotf03.
perform f01_f4_field using space space changing p_colf02-low
p_colf02-high.
p_colf02-option = 'EQ'.
p_colf02-sign = 'I'.
append p_colf02.
perform f01_f4_field using space space changing p_colf03-low
p_colf03-high.
p_colf03-option = 'EQ'.
p_colf03-sign = 'I'.
append p_colf03.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*----------------------------------------------------------------------*
at selection-screen.
case sscrfields-ucomm.
when 'PB01'.
call screen 1001 starting at 1 1 ending at 80 20.
endcase.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN ON VALUE-REQUEST *
*----------------------------------------------------------------------*
at selection-screen on value-request for p_var07.
perform f01_f4_variant changing p_var07.
at selection-screen on value-request for p_dosf01-low.
perform f01_f4_field using 'SUM' 'X'
changing p_dosf01-low p_dosf01-high.
at selection-screen on value-request for p_nosf01-low.
perform f01_f4_field using 'SUM' 'X'
changing p_nosf01-low p_nosf01-high.
at selection-screen on value-request for p_outf01-low.
perform f01_f4_field using 'KEY' 'X'
changing p_outf01-low p_outf01-high.
at selection-screen on value-request for p_tecf01-low.
perform f01_f4_field using space 'X'
changing p_tecf01-low p_tecf01-high.
at selection-screen on value-request for p_fixf01-low.
perform f01_f4_field using space 'X'
changing p_fixf01-low p_fixf01-low.
at selection-screen on value-request for p_curf00-low.
perform f01_f4_field using 'CURR' 'X'
changing p_curf00-low p_curf00-high.
at selection-screen on value-request for p_curf01.
perform f01_f4_field using 'CUKY' 'X'
changing p_curf01 g_dummy.
at selection-screen on value-request for p_hotf03-low.
perform f01_f4_field using space 'X'
changing p_hotf03-low p_hotf03-high.
at selection-screen on value-request for p_colf02-low.
perform f01_f4_field using space 'X'
changing p_colf02-low p_colf02-high.
at selection-screen on value-request for p_colf03-low.
perform f01_f4_field using space 'X'
changing p_colf03-low p_colf03-high.
at selection-screen on value-request for p_lay06.
perform f01_f4_fcode using space
space
changing p_lay06.
*----------------------------------------------------------------------*
* START-OF-SELECTION *
*----------------------------------------------------------------------*
start-of-selection.
g_repid = sy-repid.
gs_test-select_amount_master = p_amount.
gs_test-select_amount_slave = p_amouns.
gs_test-only_db_info = p_dbinfo.
gs_test-db_short = p_dbshrt.
case con_true.
when p_var01.
gs_test-vari_save = 'U'.
when p_var02.
gs_test-vari_save = 'X'.
when p_var03.
gs_test-vari_save = 'A'.
when p_var04.
gs_test-vari_save = ' '.
endcase.
gs_test-vari_none = p_var05.
gs_test-vari_default = p_var06.
gs_test-vari_layout = p_var07.
gs_test-layo_no_authcheck = p_var08.
gs_test-layo_expand_field = p_exp01.
gs_test-layo_expand_all = p_exp02.
gs_test-layo_title = p_tit01.
gs_test-layo_zebra = p_lay01.
gs_test-layo_no_horiz_lines = p_lay02.
gs_test-layo_no_vert_lines = p_lay03.
gs_test-layo_no_scrolling = p_lay04.
gs_test-layo_f2code = p_lay06.
gs_test-layo_confirmation_prompt = p_lay07.
gs_test-layo_box = p_spa01.
gs_test-layo_count = p_spa02.
gs_test-layo_no_colhead = p_spa03.
gs_test-layo_column_optimize = p_spa04.
gs_test-layo_no_hotspot = p_hot01.
if p_hot02 eq con_true.
loop at p_hotf02.
if not p_hotf02-low is initial.
append p_hotf02-low to gs_test-layo_hotspot_rows.
endif.
endloop.
endif.
if p_hot03 eq con_true.
loop at p_hotf03.
if not p_hotf03-low is initial.
gs_field-field = p_hotf03-low.
gs_field-table = p_hotf03-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-layo_hotspot_columns.
endif.
endloop.
endif.
case con_true.
when p_mrg01.
gs_test-layo_cell_merge = space.
when p_mrg02.
gs_test-layo_cell_merge = 'N'.
when p_mrg03.
gs_test-layo_cell_merge = 'Y'.
endcase.
if p_out01 eq con_true.
loop at p_outf01.
if not p_outf01-low is initial.
gs_field-field = p_outf01-low.
gs_field-table = p_outf01-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-fcat_no_out_fields.
endif.
endloop.
endif.
if p_tec01 eq con_true.
loop at p_tecf01.
if not p_tecf01-low is initial.
gs_field-field = p_tecf01-low.
gs_field-table = p_tecf01-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-fcat_tech_fields.
endif.
endloop.
endif.
if p_fix01 eq con_true.
loop at p_fixf01.
if not p_fixf01-low is initial.
gs_field-field = p_fixf01-low.
gs_field-table = p_fixf01-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-fcat_fix_column_fields.
endif.
endloop.
endif.
gs_test-curr_amount = p_curanz.
gs_test-curr_space = p_curspc.
if p_cur01 eq con_true or p_cur02 eq con_true.
data: ls_fcat_curr type g_ty_s_fcat_curr.
loop at p_curf00.
clear ls_fcat_curr.
if not p_curf00-low is initial.
ls_fcat_curr-fieldname = p_curf00-low.
ls_fcat_curr-table = p_curf00-high+3.
if ls_fcat_curr-table eq space.
ls_fcat_curr-table = 'GT_MASTER'.
endif.
case con_true.
when p_cur01.
ls_fcat_curr-cfieldname = p_curf01.
when p_cur02.
ls_fcat_curr-currency = p_curf02.
endcase.
append ls_fcat_curr to gs_test-fcat_curr_fields.
endif.
endloop.
endif.
gs_test-layo_keys_hotspot = p_key01.
gs_test-layo_no_keyfix = p_key02.
gs_test-excp_display = p_excp01.
gs_test-excp_condense = p_excp_c.
gs_test-sum_before = p_sum01.
gs_test-sum_numc = p_sum02.
gs_test-sum_no_unitsplit = p_sum03.
gs_test-sum_totals_only = p_sum04.
gs_test-sum_no_sumchoice = p_sum05.
gs_test-sum_no_sumline = p_sum06.
gs_test-sum_totals_text = p_sum07.
gs_test-sum_no_subchoice = p_sum08.
gs_test-sum_no_subtotals = p_sum09.
gs_test-sum_subtotals_text = p_sum10.
if p_dos01 eq con_true.
loop at p_dosf01.
if not p_dosf01-low is initial.
gs_field-field = p_dosf01-low.
gs_field-table = p_dosf01-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-fcat_do_sum_fields.
endif.
endloop.
endif.
if p_nos01 eq con_true.
loop at p_nosf01.
if not p_nosf01-low is initial.
gs_field-field = p_nosf01-low.
gs_field-table = p_nosf01-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-fcat_no_sum_fields.
endif.
endloop.
endif.
gs_test-layo_group_change_edit = p_lpr01.
gs_test-layo_get_selinfo = p_lpr02.
gs_test-layo_no_min_linesize = p_lpr03.
gs_test-layo_min_linesize = p_lpr04.
gs_test-layo_max_linesize = p_lpr05.
gs_test-prnt_print = p_prn01.
gs_test-prnt_reserve_lines = p_prn02.
gs_test-prnt_no_listinfo = p_prn03.
gs_test-prnt_no_selinfo = p_prn04.
gs_test-prnt_with_title = p_prn05.
gs_test-prnt_footline = p_prn06.
gs_test-prnt_printinfo = p_prn07.
gs_test-prnt_no_coverpage = p_prn08.
gs_test-prnt_no_new_page = p_prn09.
gs_test-prnt_no_change_print_params = p_prn10.
gs_test-prnt_no_hierseq_item = p_prn11.
gs_test-layo_reprep = p_rep01.
if p_col01 eq con_true.
loop at p_colf01.
if not p_colf01-low is initial.
append p_colf01-low to gs_test-color_rows.
endif.
endloop.
endif.
if p_col02 eq con_true.
loop at p_colf02.
if not p_colf02-low is initial.
gs_field-field = p_colf02-low.
gs_field-table = p_colf02-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-color_fields_column.
endif.
endloop.
endif.
if p_col03 eq con_true.
loop at p_colf03.
if not p_colf03-low is initial.
gs_field-field = p_colf03-low.
gs_field-table = p_colf03-high+3.
if gs_field-table eq space.
gs_field-table = 'GT_MASTER'.
endif.
append gs_field to gs_test-color_fields_cell.
endif.
endloop.
endif.
gs_test-buffer_active = space.
gs_test-bypassing_buffer = space.
*----------------------------------------------------------------------*
* END-OF-SELECTION *
*----------------------------------------------------------------------*
end-of-selection.
perform f01_call_list.
*&---------------------------------------------------------------------*
*& Form f01_call_list
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f01_call_list.
data: ls_vari type disvariant,
ls_layo type slis_layout_alv,
lt_fcat type slis_t_fieldcat_alv,
lt_sort type slis_t_sortinfo_alv,
ls_prnt type slis_print_alv,
lt_qinf type slis_t_qinfo_alv,
ls_keyinfo type slis_keyinfo_alv.
perform f01_get_outtab.
perform f01_set_vari changing ls_vari.
perform f01_set_layo changing ls_layo.
perform f01_set_fcat changing lt_fcat.
perform f01_set_prnt changing ls_prnt.
perform f01_set_color changing lt_fcat
ls_layo.
perform f01_set_hotspot changing lt_fcat
ls_layo.
perform f01_set_keyinfo changing ls_keyinfo.
lt_sort[] = gs_test-t_sort[].
call function 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
exporting
* I_INTERFACE_CHECK = ' '
i_callback_program = g_repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
is_layout = ls_layo
it_fieldcat = lt_fcat
* IT_EXCLUDING =
* it_special_groups =
it_sort = lt_sort
* IT_FILTER =
* IS_SEL_HIDE =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
i_default = gs_test-vari_default
i_save = gs_test-vari_save
is_variant = ls_vari
* it_events =
* it_event_exit =
i_tabname_header = 'GT_MASTER'
i_tabname_item = 'GT_SLAVE'
* I_STRUCTURE_NAME_HEADER =
* I_STRUCTURE_NAME_ITEM =
is_keyinfo = ls_keyinfo
is_print = ls_prnt
it_except_qinfo = lt_qinf
* IS_REPREP_ID =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
tables
t_outtab_header = gt_master
t_outtab_item = gt_slave
exceptions
program_error = 1
others = 2.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform. " f01_call_list
*&---------------------------------------------------------------------*
*& Form f01_set_vari
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f01_set_vari changing cs_vari type disvariant.
check gs_test-vari_none eq space.
cs_vari-report = sy-repid.
cs_vari-handle = space.
cs_vari-log_group = space.
cs_vari-username = space.
cs_vari-variant = gs_test-vari_layout.
cs_vari-text = space.
cs_vari-dependvars = space.
endform. " f01_set_vari
*&---------------------------------------------------------------------*
*& Form f01_set_layo
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f01_set_layo changing cs_layo type slis_layout_alv.
*... Display options
cs_layo-colwidth_optimize = gs_test-layo_column_optimize.
cs_layo-no_colhead = gs_test-layo_no_colhead.
cs_layo-no_hotspot = gs_test-layo_no_hotspot.
cs_layo-zebra = gs_test-layo_zebra.
cs_layo-no_vline = gs_test-layo_no_vert_lines.
cs_layo-no_hline = gs_test-layo_no_horiz_lines.
cs_layo-cell_merge = gs_test-layo_cell_merge.
cs_layo-no_min_linesize = gs_test-layo_no_min_linesize.
cs_layo-min_linesize = gs_test-layo_min_linesize.
cs_layo-max_linesize = gs_test-layo_max_linesize.
cs_layo-window_titlebar = gs_test-layo_title.
cs_layo-no_uline_hs = space.
if gs_test-layo_count eq con_true.
cs_layo-countfname = 'COUNT'.
endif.
*... Edit
cs_layo-edit = space.
cs_layo-edit_mode = space.
*... Exceptions
if gs_test-excp_display eq con_true or
gs_test-excp_condense eq con_true.
cs_layo-lights_fieldname = 'LIGHTS'.
endif.
cs_layo-lights_tabname = 'GT_MASTER'.
cs_layo-lights_rollname = space.
cs_layo-lights_condense = gs_test-excp_condense.
*... Sums
cs_layo-no_sumchoice = gs_test-sum_no_sumchoice.
cs_layo-no_totalline = gs_test-sum_no_sumline.
cs_layo-totals_before_items = gs_test-sum_before.
cs_layo-totals_only = gs_test-sum_totals_only.
cs_layo-totals_text = gs_test-sum_totals_text.
cs_layo-no_subchoice = gs_test-sum_no_subchoice.
cs_layo-no_subtotals = gs_test-sum_no_subtotals.
cs_layo-subtotals_text = gs_test-sum_subtotals_text.
cs_layo-numc_sum = gs_test-sum_numc.
cs_layo-no_unit_splitting = gs_test-sum_no_unitsplit.
*... Interaction
if gs_test-layo_box eq con_true.
cs_layo-box_fieldname = 'BOX'.
endif.
cs_layo-box_tabname = 'GT_MASTER'.
cs_layo-box_rollname = space.
if gs_test-layo_expand_field eq con_true.
cs_layo-expand_fieldname = 'EXPAND'.
endif.
cs_layo-no_input = space.
cs_layo-f2code = gs_test-layo_f2code.
cs_layo-confirmation_prompt = gs_test-layo_confirmation_prompt.
cs_layo-key_hotspot = gs_test-layo_keys_hotspot.
cs_layo-flexible_key = space.
cs_layo-reprep = gs_test-layo_reprep.
cs_layo-group_buttons = space.
cs_layo-no_keyfix = gs_test-layo_no_keyfix.
cs_layo-get_selinfos = gs_test-layo_get_selinfo.
cs_layo-group_change_edit = gs_test-layo_group_change_edit.
cs_layo-no_scrolling = gs_test-layo_no_scrolling.
cs_layo-expand_all = gs_test-layo_expand_all.
cs_layo-no_author = gs_test-layo_no_authcheck.
*... Detailed screen
cs_layo-detail_popup = space.
cs_layo-detail_initial_lines = space.
cs_layo-detail_titlebar = space.
*... PF-status
cs_layo-def_status = space.
*... Display variants
cs_layo-header_text = space.
cs_layo-item_text = space.
cs_layo-default_item = space.
*... colour
cs_layo-info_fieldname = space.
cs_layo-coltab_fieldname = space.
*... others
cs_layo-list_append = space.
endform. " f01_set_layo
*&---------------------------------------------------------------------*
*& Form f01_set_fcat
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f01_set_fcat changing ct_fcat type slis_t_fieldcat_alv.
data: lt_fcat_master type slis_t_fieldcat_alv,
lt_fcat_slave type slis_t_fieldcat_alv.
clear ct_fcat[].
perform f01_set_fcat_master changing lt_fcat_master.
perform f01_set_fcat_slave changing lt_fcat_slave.
append lines of lt_fcat_master to ct_fcat.
append lines of lt_fcat_slave to ct_fcat.
endform. " f01_set_fcat
*&---------------------------------------------------------------------*
*& Form f01_set_fcat_master
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f01_set_fcat_master changing ct_fcat type slis_t_fieldcat_alv.
field-symbols: <ls_fcat> type slis_fieldcat_alv.
data: lt_fcat type slis_t_fieldcat_alv,
ls_fcat type slis_fieldcat_alv,
l_lin type i.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
exporting
* I_PROGRAM_NAME =
* i_internal_tabname =
i_structure_name = con_spfli
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_INCLNAME =
i_bypassing_buffer = gs_test-bypassing_buffer
i_buffer_active = gs_test-buffer_active
changing
ct_fieldcat = ct_fcat
exceptions
inconsistent_interface = 1
program_error = 2
others = 3.
if sy-subrc ne 0.
exit.
endif.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
exporting
* I_PROGRAM_NAME =
* i_internal_tabname =
i_structure_name = con_sflight
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_INCLNAME =
i_bypassing_buffer = gs_test-bypassing_buffer
i_buffer_active = gs_test-buffer_active
changing
ct_fieldcat = lt_fcat
exceptions
inconsistent_interface = 1
program_error = 2
others = 3.
if sy-subrc ne 0.
exit.
else.
delete lt_fcat where fieldname ne 'PRICE'
and fieldname ne 'CURRENCY'.
append lines of lt_fcat to ct_fcat.
loop at ct_fcat assigning <ls_fcat>.
case <ls_fcat>-fieldname.
when 'CARRID' or 'CONNID'.
l_lin = <ls_fcat>-col_pos.
when 'PRICE' or 'CURRENCY'.
add 1 to l_lin.
<ls_fcat>-col_pos = l_lin.
when others.
add 4 to <ls_fcat>-col_pos.
endcase.
endloop.
endif.
ls_fcat-tabname = 'GT_MASTER'.
modify ct_fcat from ls_fcat transporting tabname
where tabname ne ls_fcat-tabname.
if gs_test-only_db_info eq space.
add 1 to l_lin.
clear ls_fcat.
read table ct_fcat assigning <ls_fcat> with key fieldname = 'PRICE'.
if sy-subrc eq 0.
<ls_fcat>-ctabname = 'GT_MASTER'.
<ls_fcat>-seltext_l = 'PRICE_M'.
<ls_fcat>-seltext_m = 'PRICE_M'.
<ls_fcat>-seltext_s = 'PRICE_M'.
<ls_fcat>-reptext_ddic = 'PRICE_M'.
ls_fcat = <ls_fcat>.
ls_fcat-ref_fieldname = ls_fcat-fieldname.
ls_fcat-fieldname = 'PRICE_HEAD'.
ls_fcat-cfieldname = 'CURRENCY_ITEM'.
ls_fcat-ctabname = 'GT_SLAVE'.
ls_fcat-seltext_l = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-reptext_ddic = ls_fcat-fieldname.
ls_fcat-col_pos = l_lin.
append ls_fcat to ct_fcat.
endif.
add 1 to l_lin.
clear ls_fcat.
read table ct_fcat assigning <ls_fcat>
with key fieldname = 'CURRENCY'.
if sy-subrc eq 0.
<ls_fcat>-seltext_l = 'CURRENCY_M'.
<ls_fcat>-seltext_m = 'CURRENCY_M'.
<ls_fcat>-seltext_s = 'CURRENCY_M'.
<ls_fcat>-reptext_ddic = 'CURRENCY_M'.
ls_fcat = <ls_fcat>.
ls_fcat-ref_fieldname = ls_fcat-fieldname.
ls_fcat-fieldname = 'CURRENCY_HEAD'.
ls_fcat-seltext_l = 'CURRENCY_ITEM'.
ls_fcat-seltext_m = 'CURRENCY_ITEM'.
ls_fcat-seltext_s = 'CURRENCY_ITEM'.
ls_fcat-reptext_ddic = 'CURRENCY_ITEM'.
ls_fcat-col_pos = l_lin.
append ls_fcat to ct_fcat.
endif.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'CHECKBOX'.
ls_fcat-checkbox = con_true.
ls_fcat-inttype = 'C'.
ls_fcat-datatype = 'CHAR'.
ls_fcat-intlen = 1.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'CHAR'.
ls_fcat-inttype = 'C'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'STRING'.
ls_fcat-inttype = 'g'.
ls_fcat-intlen = 10.
ls_fcat-outputlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-lowercase = con_true.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'INT1'.
ls_fcat-inttype = 'b'.
ls_fcat-intlen = 3.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'INT2'.
ls_fcat-inttype = 's'.
ls_fcat-intlen = 5.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'INT4'.
ls_fcat-inttype = 'I'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'NUMC'.
ls_fcat-inttype = 'N'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'DEC'.
ls_fcat-inttype = 'P'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-decimals_out = 2.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'FLTP'.
ls_fcat-inttype = 'F'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'DATS'.
ls_fcat-inttype = 'D'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'TIMS'.
ls_fcat-inttype = 'T'.
ls_fcat-intlen = 8.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'ICON'.
ls_fcat-inttype = 'C'.
ls_fcat-intlen = 4.
ls_fcat-col_pos = l_lin.
ls_fcat-icon = con_true.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'ICON_QINFO'.
ls_fcat-inttype = 'C'.
ls_fcat-intlen = 30.
ls_fcat-outputlen = 4.
ls_fcat-col_pos = l_lin.
ls_fcat-icon = con_true.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'SYMBOL'.
ls_fcat-inttype = 'C'.
ls_fcat-intlen = 4.
ls_fcat-col_pos = l_lin.
ls_fcat-symbol = con_true.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
endif.
*>>keyinfo external sort
clear ls_fcat.
read table ct_fcat with key fieldname = 'CARRID_MASTER'
transporting no fields.
if sy-subrc ne 0.
ls_fcat-tabname = 'GT_MASTER'.
ls_fcat-fieldname = 'CARRID_MASTER'.
ls_fcat-ref_fieldname = 'CARRID'.
ls_fcat-ctabname = 'GT_MASTER'.
ls_fcat-seltext_l = 'CARRID_MASTER'.
ls_fcat-seltext_m = 'CARRID_MASTER'.
ls_fcat-seltext_s = 'CARRID_MASTER'.
ls_fcat-reptext_ddic = 'CARRID_MASTER'.
ls_fcat-col_pos = l_lin.
add 1 to l_lin.
append ls_fcat to ct_fcat.
endif.
*<<keyinfo external sort
data: ls_field type g_ty_s_fname.
loop at gs_test-fcat_no_out_fields into ls_field
where table eq ls_fcat-tabname.
read table ct_fcat assigning <ls_fcat>
with key fieldname = ls_field-field.
if sy-subrc eq 0.
<ls_fcat>-no_out = con_true.
endif.
endloop.
loop at gs_test-fcat_tech_fields into ls_field
where table eq ls_fcat-tabname.
read table ct_fcat assigning <ls_fcat>
with key fieldname = ls_field-field.
if sy-subrc eq 0.
<ls_fcat>-tech = con_true.
endif.
endloop.
loop at gs_test-fcat_fix_column_fields into ls_field
where table eq ls_fcat-tabname.
read table ct_fcat assigning <ls_fcat>
with key fieldname = ls_field-field.
if sy-subrc eq 0.
<ls_fcat>-fix_column = con_true.
endif.
endloop.
loop at gs_test-fcat_do_sum_fields into ls_field
where table eq ls_fcat-tabname.
read table ct_fcat assigning <ls_fcat>
with key fieldname = ls_field-field.
if sy-subrc eq 0.
<ls_fcat>-do_sum = con_true.
endif.
endloop.
loop at gs_test-fcat_no_sum_fields into ls_field
where table eq ls_fcat-tabname.
read table ct_fcat assigning <ls_fcat>
with key fieldname = ls_field-field.
if sy-subrc eq 0.
<ls_fcat>-no_sum = con_true.
endif.
endloop.
data: ls_fcat_curr type g_ty_s_fcat_curr.
loop at gs_test-fcat_curr_fields into ls_fcat_curr
where table eq ls_fcat-tabname.
read table ct_fcat assigning <ls_fcat>
with key fieldname = ls_fcat_curr-fieldname.
if sy-subrc eq 0 and <ls_fcat>-datatype eq 'CURR'.
if ls_fcat_curr-cfieldname eq space.
<ls_fcat>-cfieldname = ls_fcat_curr-cfieldname.
<ls_fcat>-currency = ls_fcat_curr-currency.
else.
read table ct_fcat into ls_fcat
with key fieldname = ls_fcat_curr-cfieldname.
if sy-subrc eq 0 and ls_fcat-datatype eq 'CUKY'.
<ls_fcat>-cfieldname = ls_fcat_curr-cfieldname.
<ls_fcat>-currency = ls_fcat_curr-currency.
endif.
endif.
endif.
endloop.
endform. " f01_set_fcat_master
*&---------------------------------------------------------------------*
*& Form f01_set_fcat_slave
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form f01_set_fcat_slave changing ct_fcat type slis_t_fieldcat_alv.
data: ls_fcat type slis_fieldcat_alv,
l_lin type i,
l_index_from type i,
l_index_to type i.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
exporting
* I_PROGRAM_NAME =
* i_internal_tabname =
i_structure_name = con_sflight
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_INCLNAME =
i_bypassing_buffer = gs_test-bypassing_buffer
i_buffer_active = gs_test-buffer_active
changing
ct_fieldcat = ct_fcat
exceptions
inconsistent_interface = 1
program_error = 2
others = 3.
if sy-subrc ne 0.
exit.
endif.
ls_fcat-tabname = 'GT_SLAVE'.
modify ct_fcat from ls_fcat transporting tabname
where tabname ne ls_fcat-tabname.
if gs_test-only_db_info eq space.
describe table ct_fcat lines l_index_to.
clear ls_fcat.
read table ct_fcat into ls_fcat with key fieldname = 'PRICE'.
if sy-subrc eq 0.
l_lin = ls_fcat-col_pos.
ls_fcat-ctabname = 'GT_SLAVE'.
ls_fcat-seltext_l = 'PRICE_S'.
ls_fcat-seltext_m = 'PRICE_S'.
ls_fcat-seltext_s = 'PRICE_S'.
ls_fcat-reptext_ddic = 'PRICE_S'.
modify ct_fcat from ls_fcat index sy-tabix.
ls_fcat-ref_fieldname = ls_fcat-fieldname.
ls_fcat-fieldname = 'PRICE_ITEM'.
ls_fcat-cfieldname = 'CURRENCY_HEAD'.
ls_fcat-ctabname = 'GT_MASTER'.
ls_fcat-seltext_l = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-reptext_ddic = ls_fcat-fieldname.
ls_fcat-col_pos = l_lin + 2.
append ls_fcat to ct_fcat.
endif.
clear ls_fcat.
read table ct_fcat into ls_fcat with key fieldname = 'CURRENCY'.
if sy-subrc eq 0.
l_lin = ls_fcat-col_pos.
ls_fcat-seltext_l = 'CURRENCY_S'.
ls_fcat-seltext_m = 'CURRENCY_S'.
ls_fcat-seltext_s = 'CURRENCY_S'.
ls_fcat-reptext_ddic = 'CURRENCY_S'.
modify ct_fcat from ls_fcat index sy-tabix.
ls_fcat-ref_fieldname = ls_fcat-fieldname.
ls_fcat-fieldname = 'CURRENCY_ITEM'.
ls_fcat-seltext_l = 'CURRENCY_HEAD'.
ls_fcat-seltext_m = 'CURRENCY_HEAD'.
ls_fcat-seltext_s = 'CURRENCY_HEAD'.
ls_fcat-reptext_ddic = 'CURRENCY_HEAD'.
ls_fcat-col_pos = l_lin + 2.
append ls_fcat to ct_fcat.
endif.
l_index_from = l_lin + 1.
loop at ct_fcat from l_index_from to l_index_to into ls_fcat.
add 2 to ls_fcat-col_pos.
modify ct_fcat from ls_fcat index sy-tabix.
endloop.
clear ls_fcat.
ls_fcat-tabname = 'GT_SLAVE'.
ls_fcat-fieldname = 'CHECKBOX'.
ls_fcat-checkbox = con_true.
ls_fcat-inttype = 'C'.
ls_fcat-datatype = 'CHAR'.
ls_fcat-intlen = 1.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_SLAVE'.
ls_fcat-fieldname = 'CHAR'.
ls_fcat-inttype = 'C'.
ls_fcat-intlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_SLAVE'.
ls_fcat-fieldname = 'STRING'.
ls_fcat-inttype = 'g'.
ls_fcat-intlen = 10.
ls_fcat-outputlen = 10.
ls_fcat-col_pos = l_lin.
ls_fcat-lowercase = con_true.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_SLAVE'.
ls_fcat-fieldname = 'INT1'.
ls_fcat-inttype = 'b'.
ls_fcat-intlen = 3.
ls_fcat-col_pos = l_lin.
ls_fcat-seltext_s = ls_fcat-fieldname.
ls_fcat-seltext_m = ls_fcat-fieldname.
ls_fcat-seltext_l = ls_fcat-fieldname.
append ls_fcat to ct_fcat.
add 1 to l_lin.
clear ls_fcat.
ls_fcat-tabname = 'GT_SLAVE'.
ls_fcat-fieldname = 'INT2
分享到：
