CASE op+4(1).
****  Read from IT
    WHEN 'V'.
      CASE op+5(1).
        WHEN 'A'. "read from it without splits
          saveit = it.
          it = ot.
          it-lgart = $lgart.
          CLEAR pfeld.
          LOOP AT it WHERE lgart = $lgart.
            CASE op-opcod(3).
              WHEN 'NUM'. ADD it-anzhl TO pfeld.
              WHEN 'RTE'.
                ADD it-betpe TO pfeld.
                pcurr = it-rte_curr.
              WHEN 'AMT'.
                ADD it-betrg TO pfeld.
                pcurr = it-amt_curr.
            ENDCASE.
          ENDLOOP.
          IF sy-subrc NE 0.
            it-betpe = 0. it-anzhl = 0. it-betrg = 0.
            CLEAR it-rte_curr.      CLEAR it-amt_curr.
          ENDIF.
          it = saveit.
endcase.
endcase.