zOs/WK/MF160ALT
/***---------------------------------------------------------------***/00022700
/*** DB2-CURSORS DEKLARIEREN ***/00022800
/***---------------------------------------------------------------***/00022900
EXEC SQL 00023100
DECLARE SINGL CURSOR FOR 00023200
SELECT 00023300
HEX(MF150001), MF150022, MF150023, MF150064, SUBSTR(MF150066,9,7), 00023400
MF150004, MF150059, MF150013, CHAR(MF150083), CHAR(MF150084), 00023500
CHAR(MF150085), MF150011, MF150030, MF150031, MF150028, MF150029, 00023600
MF150079, MF150017, MF150044, MF150009, ' ', MF150042, CHAR(MF150043), 00023700
MF150016, CHAR(MF150018), CHAR(MF150019), MF150055, CHAR(MF150053), 00023800
MF150035, MF150036, MF150038, MF150041, MF150040, MF150014, MF150015, 00023900
' ', MF150001, MF150003, MF150008, MF150084, MF150085 00024000
FROM TMF150A1 00024100
WHERE MF150013 BETWEEN :BUDAT_ANFANG AND :BUDAT_ENDE 00024200
AND MF150022 BETWEEN :VON_BUID AND :BIS_BUID 00024210
AND MF150023 BETWEEN :VON_CIF AND :BIS_CIF 00024220
AND MF150085 BETWEEN 0 AND 90 00024230
AND NOT (MF150029 = '130' 00024300
OR MF150028 IN ('680', '681', '682', '700', '701', 00024400
'702', '710', '711', '712', '720', '721', 00024500
'722', '730', '731', '732', '938', '939')) 00024600
AND MF150019 <> 0 00024900
AND MF150001 NOT IN 00025000
(SELECT UUID FROM TMF401A1) 00025100
UNION ALL 00025200
SELECT 00025300
HEX(MF150001), MF150022, MF150023, MF150064, SUBSTR(MF150066,9,7), 00025400
MF150004, MF150059, MF150013, CHAR(MF150083), CHAR(MF150084), 00025500
CHAR(MF150085), MF150011, MF150030, MF150031, MF150028, MF150029, 00025600
MF150079, MF150017, MF150044, MF150009, ' ', MF150042, CHAR(MF150043), 00025700
MF150016, CHAR(MF150018), CHAR(MF150019), MF150055, CHAR(MF150053), 00025800
MF150035, MF150036, MF150038, MF150041, MF150040, MF150014, MF150015, 00025900
' ', MF150001, MF150003, MF150008, MF150084, MF150085 00026000
FROM TMF150A1 00026100
WHERE 00026200
NOT (MF150029 = '130' 00026300
OR MF150028 IN ('680', '681', '682', '700', '701', 00026400
'702', '710', '711', '712', '720', '721', 00026500
'722', '730', '731', '732', '938', '939')) 00026600
AND MF150022 BETWEEN :VON_BUID AND :BIS_BUID 00026810
AND MF150023 BETWEEN :VON_CIF AND :BIS_CIF 00026820
AND MF150085 BETWEEN 0 AND 90 00026830
AND MF150001 IN 00026900
(SELECT UUID FROM TMF401A1 00027000
WHERE BEWERTUNGSDATUM BETWEEN :BUDAT_ANFANG AND :BUDAT_ENDE) 00027100
WITH UR; 00027200