Due to MODIF ID, SELECT query in START-OF-SELECTION not getting triggered

Question

Dear SAP Gurus,
I'm stuck with this program, where, my program is not being executed, as in, my SELECT query in my event START-OF-SELECTION is not getting triggered. Since i hav used MODIF ID, for SELECT-OPTIONS, even after putting the entries in select-options...................when i click on the execute button, or press F8, the program still goes into the AT SELECTION-SCREEN OUTPUT event..........but i want it to goto START-OF-SELECTION event where my SELECT query is........what should i do??????????????
Please find the notepad file having the code, n exucse me for any selection-texts absence.
Need help from u in this issue.
Thanks in advance.
REPORT  ZPPR_CONVSTAT NO STANDARD PAGE HEADING.
INCLUDE ZPPR_CONVSTAT_TOP.               " data declaration
INCLUDE ZPPR_CONVSTAT_SEL_CRITERIA.      " selection criteria
INCLUDE ZPPR_CONVSTAT_PBO.               " event at selection-screen output
INCLUDE ZPPR_CONVSTAT_START_SELECTION.   " event start-of-selection
INCLUDE ZPPR_CONVSTAT_F_START_OF_SEL.
*&  Include           ZPPR_CONVSTAT_TOP
TABLES  : VBUK,
          VBUP,
          VBAK,
          VBAP,
          VBEP,
          VBPA,
          TVAK,
          EKUB,
          LIKP,
          LIPS,
          MARA,
          MAKT,
          MARC,
          PLAF,
          AUFK,
          AFKO,
          AFPO,
          AFVC,
          AFVV,
          CRHD,
          PBIM,
          KNA1,
          T134,
          IOHEADER,
          IOITEM.
TYPE-POOLS  : slis.
TYPES : BEGIN OF ty_final,
        werks   TYPE vbap-werks,  "Plant
        auart   TYPE vbak-auart,  "Sales Order Doc. type
        erdat   TYPE vbak-erdat,  "Sales Order Creation date
        vbeln   TYPE vbak-vbeln,  "Sales Order No.
        posnr   TYPE vbap-posnr,  "Sales Order Item No.
        aedat   TYPE vbak-aedat,  "Sales Order Change Date
        kwmeng  TYPE vbap-kwmeng, "Sales Order qty.
        vdatu   TYPE vbak-vdatu,  "Requested Delivery Date
        lfimg   TYPE lips-lfimg,  "Sales Order Delivered Qty.
        matnr   TYPE vbap-matnr,  "Material ID
        arktx   TYPE vbap-arktx,  "Material Description
        strgr   TYPE marc-strgr,  "Planning Strategy
        vrkme   TYPE vbap-vrkme,  "UOM
        plnum   TYPE plaf-plnum,  "Plan Order No.
        gsmng   TYPE plaf-gsmng,  "Plan Order Qty.
        auffx   TYPE plaf-auffx,  "Plan Order Firming Indicator u2013 Qty.
        stlfx   TYPE plaf-stlfx,  "Plan Order Firming Indicator - Component
        erdat2  TYPE aufk-erdat,  "Production Order Creation Date
        aufnr   TYPE aufk-aufnr,  "Production Order No.
        prdqty  TYPE afko-gamng,  "Production Order qty.
        pckqty  TYPE lips-lfimg,  "Packed Delivered Qty.
        psamg   TYPE afpo-psamg,  "Allotted scrap
        igmng   TYPE afko-igmng,  "Confirmed Yield Qty.
        iasmg   TYPE afko-iasmg,  "Confirmed Scrap Qty
        iamng   TYPE afpo-iamng,  "Expected Yield
        wemng   TYPE afpo-wemng,  "Delivered Qty.
        altscrp TYPE c LENGTH 6,  "Allotted Scrap %
        actscrp TYPE c LENGTH 6,  "Actual Scrap %
        umrez   TYPE afvv-umrez,  "Ups (from Prd. ORD)
        ups     TYPE clobjdat-ausp1,  "Ups (from Material Master)
        crtnstl TYPE clobjdat-ausp1,  "Carton Style
        ppopr   TYPE clobjdat-ausp1,  "Pre-Printing Operation
        brdtyp  TYPE clobjdat-ausp1,  "Board Type
        lsdim1  TYPE clobjdat-ausp1,  "Layout Size u2013 Dim 1
        lsdim2  TYPE clobjdat-ausp1,  "Layout Size u2013 Dim 2
        lsgsm   TYPE clobjdat-ausp1,  "GSM
        inktyp  TYPE clobjdat-ausp1,  "Ink Type
        foiltyp TYPE clobjdat-ausp1,  "Foiling
        wintyp  TYPE clobjdat-ausp1,  "Window Type
        lamin   TYPE clobjdat-ausp1,  "Lamination
        fsvrnsh TYPE clobjdat-ausp1,  "Front Side Varnish
        bsvrnsh TYPE clobjdat-ausp1,  "Back Side Varnish
        emboss  TYPE clobjdat-ausp1,  "Embossing
        punch   TYPE clobjdat-ausp1,  "Punching
        paste   TYPE clobjdat-ausp1,  "Pasting
        oprno   TYPE afvc-vornr,      "Operation No.
        wrkcntr TYPE crhd-arbpl,      "Work Centre
        oprtxt  TYPE afvc-ltxa1,      "Operation Text
        oprqty  TYPE afvv-mgvrg,      "Operation qty.
        yield   TYPE afvv-lmnga,      "Yield
        scrap   TYPE afvv-xmnga,      "Scrap
        jobtyp  TYPE vbak-augru,      "Job Type
        prordst TYPE bsvx-sttxt,      "Production Order Status
        solinst TYPE vbup-lfsta,      "Sales Order Line Item Status
        sldprty TYPE kna1-name1,      "Sold to Party Name
        shpprty TYPE kna1-name1,      "Ship to Party Name
        shpcity TYPE kna1-ort01,      "Ship to party - City
        END OF  ty_final.
TYPES : BEGIN OF ty_vbak,
        auart   TYPE vbak-auart,
        erdat   TYPE vbak-erdat,  "Doc creation date
        vbeln   TYPE vbak-vbeln,
        aedat   TYPE vbak-aedat,  "Doc change date
        vdatu   TYPE vbak-vdatu,  "Requested delivery date
        kunnr   TYPE vbak-kunnr,
        augru   TYPE vbak-augru,  "Job Type
        END OF ty_vbak.
TYPES : BEGIN OF ty_vbap,
        vbeln   TYPE vbap-vbeln,
        posnr   TYPE vbap-posnr,
        werks   TYPE vbap-werks,
        matnr   TYPE vbap-matnr,
        arktx   TYPE vbap-arktx,
        kwmeng  TYPE vbap-kwmeng,
        vrkme   TYPE vbap-vrkme,
        END OF ty_vbap.
TYPES : BEGIN OF ty_pbim,
        pbdnr TYPE pbim-pbdnr,  "Requirements Plan Number
        bdzei TYPE pbim-bdzei,  "Independent requirements pointer
        matnr TYPE pbim-matnr,
        werks TYPE pbim-werks,
        END OF ty_pbim.
TYPES : BEGIN OF ty_pbhi,
        bdzei TYPE pbhi-bdzei,  "Independent requirements pointer
        pdatu TYPE pbhi-pdatu,  "Requirement date
        laeda TYPE pbhi-laeda,  "Date of Last Change
        END OF ty_pbhi.
TYPES : BEGIN OF ty_ekko,
        ebeln TYPE ekko-ebeln,  "STO doc no
        bsart TYPE ekko-bsart,
        reswk TYPE ekko-reswk,  "Supplying plant
        aedat TYPE ekko-aedat,  "Doc creation date
        END OF ty_ekko.
TYPES : BEGIN OF ty_ekpo,
        ebeln TYPE ekpo-ebeln,
        ebelp TYPE ekpo-ebelp,
        aedat TYPE ekpo-aedat,  "Doc change date
        menge TYPE ekpo-menge,
        meins TYPE ekpo-meins,
        matnr TYPE ekpo-matnr,
        txz01 TYPE ekpo-txz01,
        END OF ty_ekpo.
TYPES : BEGIN OF ty_eket,
        ebeln TYPE eket-ebeln,
        ebelp TYPE eket-ebelp,
        eindt TYPE eket-eindt,  "Requested delivery date
        END OF ty_eket.
TYPES : BEGIN OF ty_lips,
        vbeln TYPE lips-vbeln,
        posnr TYPE lips-posnr,
        vgbel TYPE lips-vgbel,
        vgpos TYPE lips-vgpos,
        lfimg TYPE lips-lfimg,
        END OF ty_lips.
TYPES : BEGIN OF ty_plaf,
        plnum TYPE plaf-plnum,
        matnr TYPE plaf-matnr,
        gsmng TYPE plaf-gsmng,
        auffx TYPE plaf-auffx,
        stlfx TYPE plaf-stlfx,
        kdauf TYPE plaf-kdauf,
        kdpos TYPE plaf-kdpos,
        pbdnr TYPE plaf-pbdnr,
        END OF ty_plaf.
TYPES : BEGIN OF ty_aufk,
        aufnr TYPE aufk-aufnr,
        erdat TYPE aufk-erdat,
        objnr TYPE aufk-objnr,
        END OF ty_aufk.
TYPES : BEGIN OF ty_afko,
        aufnr TYPE afko-aufnr,
        gamng TYPE afko-gamng,  "Total order quantity
        gasmg TYPE afko-gasmg,  "Total scrap quantity in the order
        igmng TYPE afko-igmng,  "Confirmed Yield Qty
        iasmg TYPE afko-iasmg,  "Confirmed Scrap Qty
        aufpl TYPE afko-aufpl,  "Routing number of operations in the order
        END OF ty_afko.
TYPES : BEGIN OF ty_afpo,
        aufnr TYPE afpo-aufnr,
        plnum TYPE afpo-plnum,
        matnr TYPE afpo-matnr,
        pgmng TYPE afpo-pgmng,  "Plan Order Qty
        kdauf TYPE afpo-kdauf,
        kdpos TYPE afpo-kdpos,
        psamg TYPE afpo-psamg,  "Allotted scrap
        iamng TYPE afpo-iamng,  "Expected Yield Variance
        wemng TYPE afpo-wemng,  "Delivered Qty
        END OF ty_afpo.
TYPES : BEGIN OF ty_afvc,
        vornr TYPE afvc-vornr,
        aufpl TYPE afvc-aufpl,  "Routing number of operations in the order
        aplzl TYPE afvc-aplzl,  "General counter for order
        arbid TYPE afvc-arbid,  "Object ID of the resource
        ltxa1 TYPE afvc-ltxa1,
        END OF ty_afvc.
TYPES : BEGIN OF ty_afvv,
        aufpl TYPE afvv-aufpl,  "Routing number of operations in the order
        aplzl TYPE afvv-aplzl,  "General counter for order
        umrez TYPE afvv-umrez,
        mgvrg TYPE afvv-mgvrg,
        lmnga TYPE afvv-lmnga,
        xmnga TYPE afvv-xmnga,
        END OF ty_afvv.
TYPES : BEGIN OF ty_mdvm,
        mdkey TYPE mdvm-mdkey,
        disst TYPE mdkp-disst,
        matnr TYPE mdkp-matnr,
        plwrk TYPE mdkp-plwrk,
        END OF ty_mdvm.
DATA :  it_final  TYPE STANDARD TABLE OF ty_final,
        it_vbak   TYPE STANDARD TABLE OF ty_vbak,
        it_vbap   TYPE STANDARD TABLE OF ty_vbap,
        it_lips   TYPE STANDARD TABLE OF ty_lips,
        it_pbim   TYPE STANDARD TABLE OF ty_pbim,
        it_pbhi   TYPE STANDARD TABLE OF ty_pbhi,
        it_ekko   TYPE STANDARD TABLE OF ty_ekko,
        it_ekpo   TYPE STANDARD TABLE OF ty_ekpo,
        it_eket   TYPE STANDARD TABLE OF ty_eket,
        it_plaf   TYPE STANDARD TABLE OF ty_plaf,
        it_aufk   TYPE STANDARD TABLE OF ty_aufk,
        it_afko   TYPE STANDARD TABLE OF ty_afko,
        it_afpo   TYPE STANDARD TABLE OF ty_afpo,
        it_afvc   TYPE STANDARD TABLE OF ty_afvc,
        it_afvv   TYPE STANDARD TABLE OF ty_afvv,
        it_mdvm   TYPE STANDARD TABLE OF ty_mdvm.
DATA :  wa_final  TYPE ty_final,
        wa_vbak   TYPE ty_vbak,
        wa_vbap   TYPE ty_vbap,
        wa_lips   TYPE ty_lips,
        wa_pbim   TYPE ty_pbim,
        wa_pbhi   TYPE ty_pbhi,
        wa_ekko   TYPE ty_ekko,
        wa_ekpo   TYPE ty_ekpo,
        wa_eket   TYPE ty_eket,
        wa_plaf   TYPE ty_plaf,
        wa_aufk   TYPE ty_aufk,
        wa_afko   TYPE ty_afko,
        wa_afpo   TYPE ty_afpo,
        wa_afvc   TYPE ty_afvc,
        wa_afvv   TYPE ty_afvv,
        wa_mdvm   TYPE ty_mdvm.
DATA :  it_object TYPE hum_object_t,
        wa_object TYPE hum_object,
        it_item   TYPE hum_hu_item_t,
        wa_item   TYPE vepovb,
        count1(6) TYPE n.
DATA :  gv_objek TYPE ausp-objek.       "Put matnr for use in FM u2018CLAF_CLASSIFICATION_OF_OBJECTSu2019
DATA : BEGIN OF it_sclass OCCURS 0.
        INCLUDE STRUCTURE sclass.
DATA : END OF it_sclass.
DATA : BEGIN OF it_clobjdat OCCURS 0.
        INCLUDE STRUCTURE clobjdat.
DATA : END OF it_clobjdat.
*&  Include           ZPPR_CONVSTAT_SEL_CRITERIA
  SELECTION-SCREEN FOR 'PLANNING STAGE'
SELECTION-SCREEN BEGIN OF BLOCK main WITH FRAME TITLE text-001.
  PARAMETERS: mrpntdn RADIOBUTTON GROUP sel                    DEFAULT 'X' user-command flag,
              pldord  RADIOBUTTON GROUP sel,
              prdord  RADIOBUTTON GROUP sel.
SELECTION-SCREEN END OF BLOCK main.
  SELECTION-SCREEN FOR 'SELECTION BY PLANT AND PLANT DATA'
SELECTION-SCREEN BEGIN OF BLOCK plant WITH FRAME TITLE text-002.
  PARAMETERS      : p_werks   LIKE  ioheader-werks OBLIGATORY  DEFAULT '1100' MATCHCODE OBJECT H_T001W.
  SELECT-OPTIONS  : so_matnr  FOR   ioitem-matnr                              MATCHCODE OBJECT MAT1.
  PARAMETERS      : so_mtart  TYPE  t134-mtart     OBLIGATORY  DEFAULT 'ZFIN' MATCHCODE OBJECT H_T134.
  SELECT-OPTIONS  : so_plnum  FOR   ioitem-plnum                              MATCHCODE OBJECT plnum  MODIF ID pld,
                    so_aufnr  FOR   ioheader-aufnr                            MATCHCODE OBJECT orde   MODIF ID prd.
  PARAMETERS      : p_prdsta  LIKE  tj02t-txt04                                                       MODIF ID prd.
SELECTION-SCREEN END OF BLOCK plant.
  SELECTION-SCREEN FOR 'SELECTION BY REQUIREMENT TYPE'
SELECTION-SCREEN BEGIN OF BLOCK reqtyp  WITH FRAME TITLE text-003.
  PARAMETERS      : cb_so     TYPE AUSWL_EB AS CHECKBOX USER-COMMAND flag,
                    cb_sto    TYPE AUSWL_EB AS CHECKBOX USER-COMMAND flag,
                    cb_pir    TYPE AUSWL_EB AS CHECKBOX USER-COMMAND flag.
SELECTION-SCREEN END OF BLOCK reqtyp.
  SELECTION-SCREEN FOR 'SELECTION BY DATE AND REQUIREMENT TYPE NOS'
SELECTION-SCREEN BEGIN OF BLOCK dtreqtypno WITH FRAME TITLE text-004.
  SELECT-OPTIONS  : so_crtdt  FOR vbak-erdat                                                                MODIF ID gen,
                    so_vbeln  FOR vbap-vbeln                                  MATCHCODE OBJECT WTY_F4_VBAP  MODIF ID rso,
                    so_posnr  FOR vbap-posnr                                                                MODIF ID rso,
                    so_ebeln  FOR ekub-ebeln                                  MATCHCODE OBJECT MEKKM        MODIF ID rst,
                    so_ebelp  FOR ekub-ebelp                                                                MODIF ID rst,
                    so_pbdnr  FOR pbim-pbdnr                                                                MODIF ID rpi,
                    so_reqdt  FOR vbep-edatu                                                                MODIF ID gen.
SELECTION-SCREEN END OF BLOCK dtreqtypno.
  SELECTION-SCREEN FOR 'SELECTION BY OTHER PARAMETERS'
SELECTION-SCREEN BEGIN OF BLOCK othrparam WITH FRAME TITLE text-005.
  SELECT-OPTIONS  : so_kunnr FOR kna1-kunnr                                   MATCHCODE OBJECT debi   MODIF ID rso,
                    so_auart FOR tvak-auart                                   MATCHCODE OBJECT H_TVAK MODIF ID rso,
                    so_lfsta FOR vbup-lfsta                                                           MODIF ID rso.
SELECTION-SCREEN END OF BLOCK othrparam.
*&  Include           ZPPR_CONVSTAT_PBO
*&   Event AT SELECTION-SCREEN OUTPUT
AT SELECTION-SCREEN OUTPUT.
  IF mrpntdn = 'X'.
    LOOP AT SCREEN.
      IF ( screen-group1 = 'PLD' OR screen-group1 = 'PRD' ).
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ELSEIF pldord = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'PLD'.
        screen-intensified = 1.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'PRD'.
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ELSEIF prdord = 'X'.
    LOOP AT SCREEN.
      IF ( screen-group1 = 'PLD' OR screen-group1 = 'PRD' ).
        screen-intensified = 1.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.
  IF ( cb_so = ' ' AND cb_sto = ' ' AND cb_pir = ' ' ).
    LOOP AT SCREEN.
      IF ( screen-group1 = 'GEN'
      OR screen-group1 = 'RSO'
      OR screen-group1 = 'RST'
      OR screen-group1 = 'RPI' ).
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.
  IF cb_so = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'RSO'.
        screen-active = 1.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
    IF cb_sto = ' '.
      LOOP AT SCREEN.
        IF screen-group1 = 'RST'.
          screen-active = 0.
          MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
    ENDIF.
    IF cb_pir = ' '.
      LOOP AT SCREEN.
        IF screen-group1 = 'RPI'.
          screen-active = 0.
          MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
    ENDIF.
  ELSEIF cb_sto = 'X'.
    IF cb_so = ' '.
      LOOP AT SCREEN.
        IF screen-group1 = 'RSO'.
          screen-active = 0.
          MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
    ENDIF.
    IF cb_pir = ' '.
      LOOP AT SCREEN.
        IF screen-group1 = 'RPI'.
          screen-active = 0.
          MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
    ENDIF.
  ELSEIF cb_pir = 'X'.
    IF cb_so = ' '.
      LOOP AT SCREEN.
        IF screen-group1 = 'RSO'.
          screen-active = 0.
          MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
    ENDIF.
    IF cb_sto = ' '.
      LOOP AT SCREEN.
        IF screen-group1 = 'RST'.
          screen-active = 0.
          MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
    ENDIF.
  ENDIF.
*&  Include           ZPPR_CONVSTAT_START_SELECTION
*&   Event START-OF-SELECTION
IF mrpntdn = 'X'.
  PERFORM start_of_selection_mrpntdn.
ELSEIF pldord = 'X'.
  PERFORM start_of_selection_pldord.
ELSEIF prdord = 'X'.
  PERFORM start_of_selection_prdord.
ENDIF.
*&  Include           ZPPR_CONVSTAT_F_START_OF_SEL
*&      Form  START_OF_SELECTION
      Subroutine for MRP NOT DONE
FORM start_of_selection_mrpntdn.
    SELECT mdkey INTO TABLE it_mdvm FROM mdvm
                 WHERE GSAEN = 'X'
                   AND AKKEN = 'X'.
      IF sy-subrc = 0.
        LOOP AT it_mdvm INTO wa_mdvm.
          wa_mdvm-disst = wa_mdvm-mdkey(3).
          wa_mdvm-matnr = wa_mdvm-mdkey+3(18).
          wa_mdvm-plwrk = wa_mdvm-mdkey+21(4).
          MODIFY it_mdvm FROM wa_mdvm INDEX sy-index TRANSPORTING disst matnr plwrk.
        ENDLOOP.
      ENDIF.
ENDFORM.
*&      Form  START_OF_SELECTION
      Subroutine for PLAN ORDER CREATED
FORM start_of_selection_pldord.
ENDFORM.
*&      Form  START_OF_SELECTION for PRODUCTION ORDER CREATED
      Subroutine for PRODUCTION ORDER CREATED
FORM start_of_selection_prdord.
ENDFORM.

Answer 1

You need to mention START-OF-SELECTION explicitly in your code.
Change your code as below:
*& Event START-OF-SELECTION
START-OF-SELECTION.
IF mrpntdn = 'X'.