anchor.diff:  
       lo_xml->read( EXPORTING iv_name = 'TPOOL'
                     CHANGING cg_data = lt_tpool ).
  -
       lo_xml->read( EXPORTING iv_name = 'PROGDIR'
                     CHANGING cg_data = ls_progdir ).
       deserialize_program( is_progdir = ls_progdir
  
positive.code:       _raise 'error from RS_CUA_INTERNAL_FETCH'.
      ENDIF.
  
      io_xml->add( iv_name = 'ADM'
                   ig_data = ls_adm ).
      io_xml->add( ig_data = lt_sta
                   iv_name = 'RSMPE_STAT_TABLE' ).
      io_xml->add( ig_data = lt_fun
                   iv_name = 'RSMPE_FUNT_TABLE' ).
      io_xml->add( ig_data = lt_men
                   iv_name = 'RSMPE_MEN_TABLE' ).
      io_xml->add( ig_data = lt_mtx
                   iv_name = 'RSMPE_MNLT_TABLE' ).
      io_xml->add( ig_data = lt_act
                   iv_name = 'RSMPE_ACT_TABLE' ).
      io_xml->add( ig_data = lt_but
                   iv_name = 'RSMPE_BUT_TABLE' ).
      io_xml->add( ig_data = lt_pfk
                   iv_name = 'RSMPE_PFK_TABLE' ).
      io_xml->add( ig_data = lt_set
                   iv_name = 'RSMPE_STAF_TABLE' ).
      io_xml->add( ig_data = lt_doc
                   iv_name = 'RSMPE_ATRT_TABLE' ).
      io_xml->add( ig_data = lt_tit
                   iv_name = 'RSMPE_TITT_TABLE' ).
      io_xml->add( ig_data = lt_biv
                   iv_name = 'RSMPE_BUTS_TABLE' ).
  
    ENDMETHOD.                    "serialize_cua
  
    METHOD serialize_dynpros.
  
      DATA: lt_dynpro               TYPE ty_dynpro_tt,
            ls_header               TYPE rpy_dyhead,
            lt_containers           TYPE dycatt_tab,
            lt_fields_to_containers TYPE dyfatc_tab,
            lt_flow_logic           TYPE swydyflow,
            lt_d020s                TYPE TABLE OF d020s.
  
      FIELD-SYMBOLS: <ls_d020s>  LIKE LINE OF lt_d020s,
                     <ls_dynpro> LIKE LINE OF lt_dynpro.
  
  
      CALL FUNCTION 'RS_SCREEN_LIST'
  
negative.code:         _raise 'Error while reading dynpro'.
        ENDIF.
  
        APPEND INITIAL LINE TO rt_dynpro ASSIGNING <ls_dynpro>.
        <ls_dynpro>-header     = ls_header.
        <ls_dynpro>-containers = lt_containers.
        <ls_dynpro>-fields     = lt_fields_to_containers.
        <ls_dynpro>-flow_logic = lt_flow_logic.
  
      ENDLOOP.
  
    ENDMETHOD.                    "serialize_dynpros
  
  