zOs/WK/MF160NEU

 /***---------------------------------------------------------------***/
 /***       DB2-CURSORS DEKLARIEREN                                 ***/
 /***---------------------------------------------------------------***/
 EXEC SQL
 DECLARE SINGL CURSOR FOR
 SELECT
 HEX(MF150001), MF150022, MF150023, MF150064, SUBSTR(MF150066,9,7),
 MF150004, MF150059, MF150013, CHAR(MF150083), CHAR(MF150084),
 CHAR(MF150085), MF150011, MF150030, MF150031, MF150028, MF150029,
 MF150079, MF150017, MF150044, MF150009, ' ', MF150042, CHAR(MF150043),
 MF150016, CHAR(MF150018), CHAR(MF150019), MF150055, CHAR(MF150053),
 MF150035, MF150036, MF150038, MF150041, MF150040, MF150014, MF150015,
 ' ', MF150001, MF150003, MF150008, MF150084, MF150085
 FROM TMF150A1
 JOIN TMF160A1 ON (id_mittelfluss = MF150001
                   and effektiv_datum between :BUDAT_ANFANG
                                      and     :BUDAT_ENDE)
 WHERE MF150022 BETWEEN :VON_BUID AND :BIS_BUID
 AND   MF150023 BETWEEN :VON_CIF AND :BIS_CIF
 AND   MF150085 BETWEEN 0 AND 90
   AND   NOT (MF150029 = '130'
         OR MF150028 IN ('680', '681', '682', '700', '701',
                         '702', '710', '711', '712', '720', '721',
                         '722', '730', '731', '732', '938', '939'))
 AND   MF150019 <> 0
 WITH UR;