*----------------------------------------------------------------------
* Program Name: Z_REMOVE_VARIANT_PROTECT
* Author      : Michael Watson
* Description : Removes the 'protected' flag from a variant, allowing
*               it to be changed.
*----------------------------------------------------------------------
REPORT Z_REMOVE_VARIANT_PROTECT.

PARAMETERS:
  p_rprt LIKE varid-report,
  p_vari LIKE varid-variant,

  p_chg AS CHECKBOX.

TABLES: varid.

IF p_chg = 'X'.
  SELECT *
    FROM varid CLIENT SPECIFIED
   WHERE report = p_rprt
     AND variant = p_vari
     AND protected = 'S'.

    varid-protected = ' '.
    MODIFY varid CLIENT SPECIFIED.
  ENDSELECT.
ENDIF.

WRITE: / '== RESULT =='.

SELECT *
  FROM varid CLIENT SPECIFIED
 WHERE report = p_rprt
   AND variant = p_vari.

  WRITE: / varid-variant, varid-protected, varid-mandt.
ENDSELECT.