带勾选框的组织F4

REPORT ZPOBJID.
INCLUDE RHXMACRO.                                           "YNKK120323
*TABLES : OBJEC.
TABLES : PCHDY.
*SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-OBJ.
                                                            "YNKK120323
PARAMETERS:
  PCHPLVAR LIKE PCHDY-PLVAR NO-DISPLAY DEFAULT '01', "Planvariante
  PCHOTYPE LIKE PCHDY-OTYPE NO-DISPLAY DEFAULT 'O'. "Objekttyp
* ObjId
SELECT-OPTIONS:
* pchobjid for objec-objid.                        "ObjektId"YMOK139293
  PCHOBJID FOR PCHDY-OBJID_SEQ.                    "ObjektId"YMOK139293
PARAMETERS:AAA LIKE PCHDY-PLVAR  DEFAULT '01'.
* Search
*PARAMETERS:
*  PCHSEARK LIKE PCHDY-SEARK."matchcode object plom."Suchbeg."YMOK303367
RHX-F4-OBJID-DATA.                                          "YMOK303367
RHX-OSTAT-DEFINE.                                           "YNKK120323
*SELECTION-SCREEN END   OF BLOCK B1.                         "YNKK120323
*RHX-OBEG-RADIOS-DEFINE.                                     "YNKK120323
*PARAMETERS:
*  PCHDYMOD LIKE T77S3-DYMOD  NO-DISPLAY.
*SELECTION-SCREEN SKIP.                                      "YMOK115232
*PARAMETER SEL_BOX LIKE PP00-HR_VIA_SEL.                     "YMOK115232
DATA : SUBRC LIKE SY-SUBRC.
INITIALIZATION.
  PCHOSTAT = '1'.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF SCREEN-NAME = 'PCHOSTAT' OR SCREEN-NAME = '%_PCHOSTAT_%_APP_%-TEXT'.
      SCREEN-ACTIVE = '0'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR PCHOBJID-LOW.      "YMOK303367
  RHX-F4-OBJID-LOW PCHPLVAR PCHOTYPE PCHOBJID '' ''.