anchor.diff:        _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,
  +    DATA: 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.
  +                   <ls_dynpro> LIKE LINE OF rt_dynpro.
   
   
       CALL FUNCTION 'RS_SCREEN_LIST'
  
positive.code: 
      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
  
negative.code: 
    METHOD serialize_cua.
  
      CALL FUNCTION 'RS_CUA_INTERNAL_FETCH'
        EXPORTING
          program         = iv_program_name
          language        = gc_english
          state           = 'A'
        IMPORTING
          adm             = rs_cua-adm
        TABLES
          sta             = rs_cua-sta
          fun             = rs_cua-fun
          men             = rs_cua-men
          mtx             = rs_cua-mtx
          act             = rs_cua-act
          but             = rs_cua-but
          pfk             = rs_cua-pfk
          set             = rs_cua-set
          doc             = rs_cua-doc
          tit             = rs_cua-tit
          biv             = rs_cua-biv
        EXCEPTIONS
          not_found       = 1
          unknown_version = 2
  