FORM convert-mod USING fld_info TYPE tr_fld_info
                       $found   LIKE boolean.
  $found = true.
  CASE fld_info-conv.
*   WHEN '$x'. PERFORM convert-$x USING fld_info $found.
    WHEN 'Z0'. PERFORM convert-z0 USING fld_info $found.
...
    WHEN OTHERS.
      $found = false.
  ENDCASE.
ENDFORM.

FORM convert-z0 USING fld_info TYPE tr_fld_info $found   LIKE boolean.

  DATA: zbtext LIKE t5m3t-btext.
  DATA: zdatbw LIKE zhr_py_reestr-datbw.

  DATA: BEGIN OF our-version.
          INCLUDE STRUCTURE pc201_pay.
  DATA: END OF our-version.


  $found = true.
  READ TABLE xbt WITH KEY btznr = xrt-btznr.
  SELECT SINGLE btext INTO zbtext FROM t5m3t
                      WHERE bttyp = xbt-bttyp.

  SELECT SINGLE datbw INTO zdatbw FROM zhr_py_reestr
                      WHERE juper = rgdir-juper AND
                            doknr = xbt-pskto AND
                            laufd = xbt-dtadt AND
                            perio = pn-pabrp AND
                            gjahr = pn-pabrj AND
                            zlsch = xbt-zlsch AND
                            bttyp = xbt-bttyp.
  IF NOT xbt-pskto IS INITIAL.
    WRITE zdatbw TO fld_info-value.
    CONCATENATE zbtext '№' xbt-pskto 'от' fld_info-value
              INTO fld_info-value  SEPARATED BY space.
  ENDIF.
ENDFORM.