ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(B) (C/S) |
Attention : dans le cas de programmes de type ADELIA, cet ordre n'est pas compatible avec le générateur C.
Paragraphe d'utilisation
Tous
Syntaxe
INIT_RUPTURE NomRupture
Description
Cet ordre permet d'initialiser les zones internes de la rupture NomRupture.
Par exemple
INIT_RUPTURE RPT_MONTANT
Autre exemple d'utilisation
* Le programme suivant permet la recherche et la création dans une liste
* mémoire des derniers avenants des contrats pour un assuré donné
* La rupture est définie sur la zone CNUM_CONTRAT
* Déclaration d'un curseur portant sur les CONTRATS d'un assuré de nom ZANOM_ASS
CURSEUR CURS_CON_NOMASS CONTRAT *COND(CNOM_ASS = :ZANOM_ASS) *TRI(CNUM_CON, CNUM_AVE_CON *ASC)
...
* Dans le programme, ouverture du curseur, lecture des enregistrements
* correspondants, puis fermeture
OUVRIR_SQL_C CURS_CON_NOMASS
INIT_RUPTURE RUPT_AVENANT
LIRE_AV_SQL_C CURS_CON_NOMASS
TANT_QUE *SQLCODE = *NORMAL
TRAITER_CHG RUPT_AVENANT
LIRE_AV_SQL_C CURS_CON_NOMASS
TRAITER_TOTAL RUPT_AVENANT
REFAIRE
FERMER_SQL_C CURS_CON_NOMASS
...
* Dans le paragraphe TRT_TOTAL de la rupture, on insère l'enregistrement
* dans la liste mémoire LSM_CONTRAT
INSERER_ELT LSM_CONTRAT
* L'enregistrement inséré est celui du dernier avenant