Свойство required для единичного поля при отрисовке экрана (динамическое OBLIGATORY)

    REPORT  ZEDU_MANDATORY_FIELD.
     
    PARAMETERS: p_field1   TYPE char10.
    PARAMETERS: p_field2   TYPE char10.
    PARAMETERS: p_check    AS CHECKBOX USER-COMMAND USR.
     
    AT SELECTION-SCREEN OUTPUT.
    LOOP AT SCREEN.
      IF screen-name = 'P_FIELD1'.
        IF p_check = 'X'.
          screen-required = 1.
        ELSE.
          screen-required = 0.
        ENDIF.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
     
    START-OF-SELECTION.
    WRITE  'GOOD'.

REPORT ZEDU_MANDATORY_FIELD.

PARAMETERS: p_field1 TYPE char10.

PARAMETERS: p_field2 TYPE char10.

PARAMETERS: p_check AS CHECKBOX USER-COMMAND USR.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF screen-name = 'P_FIELD1'.

IF p_check = 'X'.

screen-required = 1.

ELSE.

screen-required = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

START-OF-SELECTION.

WRITE 'GOOD'.