Code listing for: ZDTI_SYNTAXCHECK_SEL

Description: Selection screen

***********************************************************************************************************************
*
* Author          : Copyright (C) 2006 E.G.Mellodew
* program contact : www.dalestech.com
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
*
***********************************************************************************************************************
* ZDTI_SYNTAXCHECK_SEL... Selection screen routines
*----------------------------------------------------------------------------------------------------------------------
* Version  Correction Number  Date Changed  Changed By        Description
* ---------------------------------------------------------------------------------------------------------------------
* 1.0                                       Ed Mellodew       Original version
*
***********************************************************************************************************************

* ---------------------------------------------------------------------------------------------------------------------
* Selection screen
* ---------------------------------------------------------------------------------------------------------------------
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.
*---------------------------------------------------------------------------------------------------------------------
*  We need to check that either the package is filled in or that the user has entered another restriction
   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.