IF p_static = 'X'.
IF screen-name = 'S_PRODID-LOW' OR
screen-name = 'S_PRODID-HIGH' OR
screen-name = '%_S_PRODID_%_APP_%-TEXT' OR
screen-name = '%_S_PRODID_%_APP_%-OPTI_PUSH' OR
screen-name = '%_S_PRODID_%_APP_%-TO_TEXT' OR
screen-name = '%_S_PRODID_%_APP_%-VALU_PUSH' .
screen-active = 1.
screen-invisible = 0.
screen-input = 1.
screen-output = 1.
MODIFY SCREEN.
IF screen-name = 'S_PRODID-LOW' OR
screen-name = 'S_PRODID-HIGH' OR
screen-name = '%_S_PRODID_%_APP_%-TEXT' OR
screen-name = '%_S_PRODID_%_APP_%-OPTI_PUSH' OR
screen-name = '%_S_PRODID_%_APP_%-TO_TEXT' OR
screen-name = '%_S_PRODID_%_APP_%-VALU_PUSH' .
screen-active = 1.
screen-invisible = 0.
screen-input = 1.
screen-output = 1.
MODIFY SCREEN.
ENDIF.
else.
IF screen-name = 'S_PRODID-LOW' OR
screen-name = 'S_PRODID-HIGH' OR
screen-name = '%_S_PRODID_%_APP_%-TEXT' OR
screen-name = '%_S_PRODID_%_APP_%-OPTI_PUSH' OR
screen-name = '%_S_PRODID_%_APP_%-TO_TEXT' OR
screen-name = '%_S_PRODID_%_APP_%-VALU_PUSH' .
screen-invisible = 1.
screen-input = 0.
screen-output = 0.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
screen-name = 'S_PRODID-HIGH' OR
screen-name = '%_S_PRODID_%_APP_%-TEXT' OR
screen-name = '%_S_PRODID_%_APP_%-OPTI_PUSH' OR
screen-name = '%_S_PRODID_%_APP_%-TO_TEXT' OR
screen-name = '%_S_PRODID_%_APP_%-VALU_PUSH' .
screen-invisible = 1.
screen-input = 0.
screen-output = 0.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
Instead of checking for name variations, use:
ReplyDeleteSELECT-OPTIONS ... FOR ... MODIF ID gr1.
...
IF screen-group1 = 'GR1'.
...