1 2 3 4 5 6 7 8 9 10 11 12
|
EXEC SQL WHENEVER SQLERROR GOTO ERREUR_BASE;
EXEC SQL WHENEVER NOT FOUND GOTO COMBI_NOT_FOUND;
....
....
....
EXEC SQL SELECT 'X' INTO :bidon FROM PS_COMB_EXPLODED c, PS_COMB_EXPLODED c1
WHERE c.SETID=:setid2 AND c.PROCESS_GROUP=:process_group AND c.CHARTFIELD=:anchor AND c.RANGE_FROM_30=:anchor_value
AND c.EFFDT_FROM<=TO_DATE(:datef,'YYYYMMDD') AND c.EFFDT_TO>=TO_DATE(:datef,'YYYYMMDD')
AND c.COMBINATION=c1.COMBINATION AND c.SEQUENCE_NBR_6=c1.SEQUENCE_NBR_6
AND c1.SETID=:setid2 AND c1.PROCESS_GROUP=:process_group AND c1.CHARTFIELD=:elements[1] AND ( c1.RANGE_FROM_30=:element_value[1] OR c1.RANGE_FROM_30='%')
AND c1.EFFDT_FROM<=TO_DATE(:datef,'YYYYMMDD') AND c1.EFFDT_TO>=TO_DATE(:datef,'YYYYMMDD') and rownum<2; |
Partager