selection-screen begin of block b1 with frame title text-001.
parameters: rbProg radiobutton group g1 default 'X'.
select-options: soProg for progdir-name.
select-options: soChange for tadir-author.
selection-screen begin of line.
selection-screen comment 1(45) text-018.
parameters: pTrans as checkbox.
selection-screen end of line.
selection-screen skip.
parameters: rbFunc radiobutton group g1.
select-options: soFgroup for enlfdir-area memory id MFGROUP.
selection-screen skip.
parameters: rbClass radiobutton group g1.
select-options soClass for seoclass-clsname.
selection-screen skip.
selection-screen skip.
select-options: soPack for tadir-devclass.
select-options: soAuth for tadir-author.
parameters: pMax type i.
selection-screen end of block b1.
selection-screen begin of block b4 with frame title text-023.
parameters: pLocl as checkBox default 'X'.
parameters: pGen as checkbox default 'X'.
selection-screen end of block b4.
selection-screen begin of block b3 with frame title text-019.
selection-screen begin of line.
selection-screen comment 1(55) text-020.
parameters: pObs as checkbox.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(55) text-021.
parameters: pUni as checkbox.
selection-screen end of line.
selection-screen end of block b3.
selection-screen begin of block b2 with frame title text-013.
parameters: pFail as checkbox default 'X'.
selection-screen skip.
parameters: rbMessA radiobutton group g2 default 'X'.
parameters: rbMessE radiobutton group g2.
parameters: rbMessW radiobutton group g2.
selection-screen end of block b2.
at selection-screen.
if soPack[] is initial.
case 'X'.
when rbPRog.
if soProg[] is initial.
message e008.
endif.
when rbFunc.
if soFGroup[] is initial.
message e009.
endif.
when rbClass.
if soClass[] is initial.
message e010.
endif.
endcase.
endif.
at selection-screen on value-request for soClass-low.
call function 'F4_DD_ALLTYPES' exporting object = soClass-low
suppress_selection = 'X'
display_only = ''
only_types_for_clifs = 'X'
importing result = soClass-low.
at selection-screen on value-request for soClass-high.
call function 'F4_DD_ALLTYPES' exporting object = soClass-high
suppress_selection = 'X'
display_only = ''
only_types_for_clifs = 'X'
importing result = soClass-high.
at selection-screen on value-request for soProg-low.
call function 'REPOSITORY_INFO_SYSTEM_F4' exporting object_type = 'PROG'
object_name = soProg-low
suppress_selection = 'X'
use_alv_grid = ''
without_personal_list = ''
importing object_name_selected = soProg-low
exceptions cancel = 1.
at selection-screen on value-request for soProg-high.
call function 'REPOSITORY_INFO_SYSTEM_F4' exporting object_type = 'PROG'
object_name = soProg-high
suppress_selection = 'X'
use_alv_grid = ''
without_personal_list = ''
importing object_name_selected = soProg-high
exceptions cancel = 1.
|