29 lines
839 B
Plaintext
29 lines
839 B
Plaintext
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[]
|