Pour des traitements effectuant des COMMITs réguliers et afin de conserver la position du CURSOR lors de lecture ou de mises à jour, il est impératif que les DECLARE CURSOR soient codés avec l’option WITH HOLD


== Compliant Solution

[source,cobol]
----
EXEC SQL DECLARE CLEC_0 CURSOR WITH HOLD
                    	FOR SELECT	C_BQ
                              		,C_CARNT_ORDREB
                              		,N_REF_ORDREB…..
          FROM       S1ORDCOU
          WHERE
( C_BQ               >=  :TORD-C-BQ               ) AND NOT
( C_BQ                =  :TORD-C-BQ                 AND…..
ORDER BY C_BQ,C_CARNT_ORDREB,N_REF_ORDREB
FOR FETCH ONLY
END-EXEC.
----


ifdef::env-github,rspecator-view[]
'''
== Comments And Links
(visible only on this page)

include::comments-and-links.adoc[]
endif::env-github,rspecator-view[]