Dynamically set Property (Read-Only,Changeable...) of an attribute

Question

Hi,
I have a requirement to change an attributes display to 'READ-ONLY' on a specific condition during CREATE or EDIT operation.
I have written the following lines of code to achiveve the same, but i get an error :-
data : lr_prop    TYPE REF TO if_genil_obj_attr_properties.
if cond1 =  true.
lr_prop->set_property_by_name( iv_name = 'PROBABILITY' iv_value = if_genil_obj_attr_properties=>read_only ). --> error-line
endif.
Can you please suggest what's gone wrong?
Thanks
Dedeepya

Answer 1

But GET_I* is called before DO_PREPARE_OUTPUT, and the variables in GET_I* are not recognized in DO_PREPARE_**...
Current Code :-
GET_I_PROBABILITY
*CALL METHOD SUPER->GET_I_PROBABILITY
**  EXPORTING
**    iterator    =
*  RECEIVING
*    RV_DISABLED =.
  DATA :   lr_btopporth TYPE REF TO cl_crm_bol_entity,
           lv_read      TYPE crmt_genil_attr_property,
           lv_phase     TYPE string, lv_process TYPE string,
           current      TYPE REF TO if_bol_bo_property_access,
           property     TYPE REF TO cl_crm_bol_entity.
IF iterator IS BOUND.
    current = iterator->get_current( ).
  ELSE.
    current = collection_wrapper->get_current( ).
  ENDIF.
     IF current->is_property_readonly( 'PROBABILITY' ) = abap_false. "#EC NOTEXT
        CALL METHOD current->get_property_as_value
          EXPORTING
            iv_attr_name = 'CURR_PHASE'
          IMPORTING
            ev_result    = lv_phase.
        CALL METHOD property->get_property_modifier
          EXPORTING
            iv_attr_name = 'PROBABILITY'
          RECEIVING
            rv_result    = lv_read.
      ENDIF.
DO_PREPARE_OUTPUT
*CALL METHOD SUPER->DO_PREPARE_OUTPUT
**  EXPORTING
**    iv_first_time = ABAP_FALSE
  DATA : lr_btadminh  TYPE REF TO cl_crm_bol_entity,
         lv_process TYPE string.
  CALL METHOD lr_btadminh->get_property_as_value
    EXPORTING
      iv_attr_name = 'PROCESS_TYPE'
    IMPORTING
      ev_result    = lv_process.
IF ( lv_process EQ 'ZPPT' AND lv_phase = 'ZA' ) OR ( lv_process EQ 'ZPT2' ).
*    lv_read = lr_btopporth->get_property_modifier( 'PROBABILITY' ).
    IF lr_prop->get_property_by_name( 'PROBABILITY' ) EQ if_genil_obj_attr_properties=>changeable.
      "-- <ZPPT-> Business/Affaire> "-- <ZPT2-> Prospection>  "-- <ZA-> Finale>
      lr_prop->set_property_by_name( iv_name = 'PROBABILITY' iv_value = if_genil_obj_attr_properties=>read_only ).
    ENDIF.
  ENDIF.