**********************************************
* GENERATION DE L'ATTRIBUT 41 DE CIVILAIDANT *
* AFIN D'AVOIR EN LECTURE DIRECTE LE DERNIER *
* CONTRAT CREE                               *
* 30/05/2001                 STEPHANE HERVET *
**********************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP

* EXECUTE LA SELECTION DES CONTRATS PAR CODE
EXECUTE 'SSELECT CONTRAT PAR 0'

W_AIDANT=""

W_FIN=0
LOOP
     READNEXT CLE ELSE W_FIN=1
     UNTIL W_FIN=1 DO

     IF W_AIDANT="" THEN W_AIDANT=CLE[1,5]

     * SI RUPTURE AIDANT ALORS ENREGISTRE ATT 41 DE CIVILAIDANT
     IF W_AIDANT<>CLE[1,5] THEN
	  READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_AIDANT ELSE ENR_CIVILAIDANT=""
	  ENR_CIVILAIDANT<41>=W_CONTRAT
	  WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT,W_AIDANT

	  W_AIDANT=CLE[1,5]
	  W_CONTRAT=CLE[6,3]
     END ELSE
	  W_CONTRAT=CLE[6,3]
     END
REPEAT

* ECRITURE DERNIER MATRICULE
READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_AIDANT ELSE ENR_CIVILAIDANT=""
ENR_CIVILAIDANT<41>=W_CONTRAT
WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT,W_AIDANT

EXECUTE 'SSELECT CIVILAIDANT AVEC 41 = ""'
W_FIN=0
LOOP
     READNEXT CLE ELSE W_FIN=1
     UNTIL W_FIN=1 DO

     READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,CLE ELSE ENR_CIVILAIDANT=""
     ENR_CIVILAIDANT<41>="000"
     WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT,CLE

REPEAT

STOP
