anchor.diff:                  iv_extra   TYPE clike OPTIONAL
         RAISING   lcx_exception.
   
  +    CLASS-METHODS read_progdir
  +      IMPORTING iv_program        TYPE programm
  +      RETURNING VALUE(rs_progdir) TYPE ty_progdir.
  +
       CLASS-METHODS deserialize_program
         IMPORTING is_progdir TYPE ty_progdir
                   it_source  TYPE abaptxt255_tab
  
positive.code:                                  iv_name = is_progdir-name ).
  
    ENDMETHOD.                    "deserialize_program
  
    METHOD serialize_cua.
  
  
negative.code: 
    METHOD lif_object~jump.
  
      jump_se11( iv_radio = 'RSRD1-SHMA'
                 iv_field = 'RSRD1-SHMA_VAL' ).
  
    ENDMETHOD.                    "jump
  