ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) (S) |
(B) (S) |
(I/B) (S) |
(B) (S) |
Attention : dans le cas des programmes de type ADELIA, cet ordre est uniquement compatible avec le générateur RPG.
Paragraphe d'utilisation
Tous
Syntaxe
FERMER_SQL_C NomCurseur
Description
Cet ordre ferme le curseur NomCurseur.
Il faut fermer un curseur après l'avoir lu complètement.
Après exécution de l'ordre, il est possible de tester le code retour SQL à l'aide du mot réservé *SQLCODE.
Par exemple
* Déclaration d'un curseur sur l'entité CONTRAT dans un paragraphe DECL PGM en syntaxe Visual Adélia :
CURSEUR CURS_CON_NOMASS CONTRAT *COND(CNOM_ASS = :ZANOM_ASS)
...
Ou
* Déclaration d'un curseur sur l'entité CONTRAT en syntaxe ADELIA :
DECL CURSEUR CURS_CON_NOMASS CONTRAT *COND (CNOM_ASS = :ZANOM_ASS)
...
* Ce bloc ouvre le curseur et lit tous ses éléments, puis le ferme
OUVRIR_SQL_C CURS_CON_NOMASS
LIRE_AV_SQL_C CURS_CON_NOMASS
TANT_QUE *SQLCODE = *NORMAL
TRAITER_CHG RUPT_AVENANT
PRESENTER CONTRAT
LIRE_AV_SQL_C CURS_CON_NOMASS
TRAITER_TOTAL RUPT_AVENANT
REFAIRE
FERMER_SQL_C CURS_CON_NOMASS