Ich mache den CLOSE ganz am Schluss nach der Schleife

Code:

........ Code der oben steht

C ENDDO

C ENDE1 TAG
C*-----------------------------
C/EXEC SQL CLOSE C1
C/END-EXEC
C*-----------------------------