SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-T01.
"Project
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(31) FOR FIELD P_PSPID.
PARAMETERS: P_PSPID LIKE ZTA0ESB20200-PSPID
MEMORY ID EPID OBLIGATORY.
SELECTION-SCREEN : POSITION 60.
PARAMETERS: P_PSPIDT LIKE ZTA0PSA00310T-SNAME.
SELECTION-SCREEN END OF LINE.
"ES Group
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(31) FOR FIELD P_GROUP.
PARAMETERS: P_GROUP LIKE ZTA0ESB20300-ES_GROUP
MEMORY ID EGRP OBLIGATORY.
SELECTION-SCREEN : POSITION 60.
PARAMETERS: P_GROUPT LIKE ZTA0PSA00310T-SNAME.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B1.
2、选择屏幕PBO设定:
***********************************************************************
*** AT SELECTION-SCREEN
***********************************************************************
AT SELECTION-SCREEN OUTPUT.
PERFORM F_INPUT_SCR_OUTPUT.
FORM F_INPUT_SCR_OUTPUT .
LOOP AT SCREEN.
IF SCREEN-NAME = 'P_PSPIDT' OR SCREEN-NAME = 'P_GROUPT'.
SCREEN-INPUT = GC_0.
SCREEN-DISPLAY_3D = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM. " F_INPUT_SCR_OUTPUT