****************************************************
* PROGRAMME DE MIGRATION DE 2 ENTITES VERS 1 SEULE *
*                                                  *
* 31/01/2001                       STEPHANE HERVET *
****************************************************

* RECAPITULATIF
* PROGRAMME PERMETTANT DE PASSER L'ENTITE 002 ET SES ACTIVITES
* SUR L'ENTITE 001

* MODIFICATIONS A EFFECTUER

* FICHIERS           ATT. TYP CAR LIEN
* ABSENCESAIDANT   ->  8  S       ENTITE 
* ACTIVITES        ->  0  S       ACTIVITE 
* ACTIVITESAIDE    ->  1  MV      ACTIVITE
* AJOUTPVT         ->  0  S   6,3 ENTITE
* ANNOTFACT        ->  0  S   6,3 ENTITE
* CONTRAT          ->  2  S       ENTITE
*                  -> 36  MV      ACTIVITE
*                  -> 93  MV      ACTIVITE
* COTISANAIDE      ->  0  S   6,3 ENTITE
* DETAILCALCUL     -> 26  MV      ACTIVITE
* DETAILCHGPARTEMP ->  1  S       ENTITE
* DETAILMANDAT     ->  5  MV      ACTIVITE
* FACTURAIDE       ->  0  S   6,3 ENTITE          + ARCHIVEFACT
* FACTURAIDETRIM   ->  0  S   6,3 ENTITE          + ARCHIVEFACT
* HRESHISTOR       ->  0  S   6,3 ENTITE
* NUMEROFACT       ->  3  S                       COPIER 002 -> 001
*                  ->  4  S                       COPIER 002 -> 001
* ORGPRISECHARGE   -> 46  S       ENTITE
*                  -> 47  MV      ACTIVITE
* STATACTAIDE      ->  0  S   6,3 ENTITE

* OUVERTURE DES FICHIERS
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ABSENCESAIDANT" TO F.ABSENCESAIDANT ELSE STOP
OPEN "","ACTIVITES" TO F.ACTIVITES ELSE STOP
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
OPEN "","AJOUTPVT" TO F.AJOUTPVT ELSE STOP
OPEN "","ANNOTFACT" TO F.ANNOTFACT ELSE STOP
OPEN "","ARCHIVEFACT" TO F.ARCHIVEFACT ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","COTISANAIDE" TO F.COTISANAIDE ELSE STOP
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","DETAILCHGPARTEMP" TO F.DETAILCHGPARTEMP ELSE STOP
OPEN "","DETAILMANDAT" TO F.DETAILMANDAT ELSE STOP
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE STOP
OPEN "","FACTURAIDETRIM" TO F.FACTURAIDETRIM ELSE STOP
OPEN "","HRESHISTOR" TO F.HRESHISTOR ELSE STOP
OPEN "","NUMEROFACT" TO F.NUMEROFACT ELSE STOP
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE STOP
OPEN "","STATACTAIDE" TO F.STATACTAIDE ELSE STOP

* VARIABLES
GOSUB 999

* INTERROGE L'UTILISATEUR SUR ASSO ORIGINE + ASSO DEST

1 
PRINT "ASSOCIATION ORIGINE :"
INPUT W_ASSOORIGINE
IF W_ASSOORIGINE MATCH "3N" ELSE GOSUB 1

2
PRINT "ASSOCIATION DESTINATION :"
INPUT W_ASSODEST
IF W_ASSODEST MATCH "3N" ELSE GOSUB 2

GOSUB 10   ;* MIGRATION ABSENCESAIDANT
GOSUB 20   ;* MIGRATION ACTIVITES
GOSUB 30   ;* MIGRATION ACTIVITESAIDE
GOSUB 40   ;* MIGRATION AJOUTPVT
GOSUB 50   ;* MIGRATION ANNOTFACT
GOSUB 60   ;* MIGRATION CONTRAT
GOSUB 70   ;* MIGRATION COTISANAIDE
GOSUB 80   ;* MIGRATION DETAILCALCUL
GOSUB 90   ;* MIGRATION DETAILCHGPARTEMP
GOSUB 100  ;* MIGRATION DETAILMANDAT
GOSUB 110  ;* MIGRATION FACTURAIDE + ARCHIVEFACT
GOSUB 120  ;* MIGRATION FACTURAIDETRIM + ARCHIVEFACT
GOSUB 130  ;* MIGRATION HRESHISTOR
GOSUB 140  ;* MIGRATION NUMEROFACT
GOSUB 150  ;* MIGRATION ORGPRISECHARGE
GOSUB 160  ;* MIGRATION STATACTAIDE

STOP

****************************************************
* MIGRATION ABSENCESAIDANT

10 *
   
    EXECUTE 'SELECT ABSENCESAIDANT AVEC 8 = "':W_ASSOORIGINE:'"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.ABSENCESAIDANT TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_ABSENCESAIDANT FROM F.ABSENCESAIDANT,CLE ELSE ENR_ABSENCESAIDANT=""
         ENR_ABSENCESAIDANT<8>=W_ASSODEST
	 WRITE ENR_ABSENCESAIDANT ON F.ABSENCESAIDANT,CLE

    REPEAT

RETURN

****************************************************
* MIGRATION ACTIVITES

20 *

    * RECUPERATION DERNIER CODE ACTIVITE
    EXECUTE 'SELECT ACTIVITES AVEC 0 = "':W_ASSODEST:']"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.ACTIVITES TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO
	 W_DERNIEREACTIVITE=CLE
    REPEAT

    W_DERNIEREACTIVITE=W_DERNIEREACTIVITE+1 "R%6"

    EXECUTE 'SELECT ACTIVITES AVEC 0 = "':W_ASSOORIGINE:']"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.ACTIVITES TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_ACTIVITES FROM F.ACTIVITES,CLE ELSE ENR_ACTIVITES=""
	 WRITE ENR_ACTIVITES ON F.ACTIVITES,W_DERNIEREACTIVITE

	 W_MOULACT<1,-1>=CLE
	 W_MOULACT<2,-1>=W_DERNIEREACTIVITE

	 W_DERNIEREACTIVITE=W_DERNIEREACTIVITE+1
    REPEAT

RETURN

****************************************************
* MIGRATION ACTIVITESAIDE

30 *

    EXECUTE 'SELECT ACTIVITESAIDE AVEC 1 = "':W_ASSOORIGINE:']"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.ACTIVITESAIDE TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,CLE ELSE ENR_ACTIVITESAIDE=""

	 I=1
	 LOOP 
	      UNTIL ENR_ACTIVITESAIDE<1,I>="" DO

	      IF ENR_ACTIVITESAIDE<1,I>[1,3]=W_ASSOORIGINE THEN
    	        * RECHERCHE CORRESPONDANCE ACTIVITES
                J=1
	        LOOP 
	           UNTIL W_MOULACT<1,J>=ENR_ACTIVITESAIDE<1,I> DO
		   J=J+1
	        REPEAT

		ENR_ACTIVITESAIDE<1,I>=W_MOULACT<2,J>
	      END

	      I=I+1
	 REPEAT

	 WRITE ENR_ACTIVITESAIDE ON F.ACTIVITESAIDE,CLE
    REPEAT

RETURN

****************************************************
* MIGRATION AJOUTPVT

40 *

    EXECUTE 'SELECT AJOUTPVT AVEC 0 = "[':W_ASSOORIGINE:'M]"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.AJOUTPVT TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_AJOUTPVT FROM F.AJOUTPVT,CLE ELSE ENR_AJOUTPVT=""
	 WRITE ENR_AJOUTPVT ON F.AJOUTPVT,CLE[1,5]:W_ASSODEST:CLE[9,7]
	 DELETE F.AJOUTPVT,CLE

    REPEAT

RETURN

****************************************************
* MIGRATION ANNOTFACT

50 *

    EXECUTE 'SELECT ANNOTFACT AVEC 0 = "[':W_ASSOORIGINE:'M]"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.ANNOTFACT TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_ANNOTFACT FROM F.ANNOTFACT,CLE ELSE ENR_ANNOTFACT=""
	 WRITE ENR_ANNOTFACT ON F.ANNOTFACT,CLE[1,5]:W_ASSODEST:CLE[9,1]
	 DELETE F.ANNOTFACT,CLE

    REPEAT

RETURN

****************************************************
* MIGRATION CONTRAT

60 *

    EXECUTE 'SELECT CONTRAT AVEC 2 = "':W_ASSOORIGINE:'"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.CONTRAT TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE ENR_CONTRAT=""

	 ENR_CONTRAT<2>=W_ASSODEST
	 
	 * ATT 36
	 I=1
	 LOOP 
	      UNTIL ENR_CONTRAT<36,I>="" DO

	      IF ENR_CONTRAT<36,I>[1,3]=W_ASSOORIGINE THEN
    	        * RECHERCHE CORRESPONDANCE ACTIVITES
                J=1
	        LOOP 
	           UNTIL W_MOULACT<1,J>=ENR_CONTRAT<36,I> DO
		   J=J+1
	        REPEAT

		ENR_CONTRAT<36,I>=W_MOULACT<2,J>
	      END

	      I=I+1
	 REPEAT

	 * ATT 93
	 I=1
	 LOOP 
	      UNTIL ENR_CONTRAT<93,I>="" DO

	      IF ENR_CONTRAT<93,I>[1,3]=W_ASSOORIGINE THEN
    	        * RECHERCHE CORRESPONDANCE ACTIVITES
                J=1
	        LOOP 
	           UNTIL W_MOULACT<1,J>=ENR_CONTRAT<93,I> DO
		   J=J+1
	        REPEAT

		ENR_CONTRAT<93,I>=W_MOULACT<2,J>
	      END

	      I=I+1
	 REPEAT

	 WRITE ENR_CONTRAT ON F.CONTRAT,CLE
    REPEAT

RETURN

****************************************************
* MIGRATION COTISANAIDE

70 *

    EXECUTE 'SELECT COTISANAIDE AVEC 0 = "[':W_ASSOORIGINE:'"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.COTISANAIDE TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_COTISANAIDE FROM F.COTISANAIDE,CLE ELSE ENR_COTISANAIDE=""
	 WRITE ENR_COTISANAIDE ON F.COTISANAIDE,CLE[1,5]:W_ASSODEST
	 DELETE F.COTISANAIDE,CLE

    REPEAT

RETURN

****************************************************
* MIGRATION DETAILCALCUL

80 *

    EXECUTE 'SELECT DETAILCALCUL AVEC 26 = "':W_ASSOORIGINE:']"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.DETAILCALCUL TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE ELSE ENR_DETAILCALCUL=""

	 I=1
	 LOOP 
	      UNTIL ENR_DETAILCALCUL<26,I>="" DO

	      IF ENR_DETAILCALCUL<26,I>[1,3]=W_ASSOORIGINE THEN
    	        * RECHERCHE CORRESPONDANCE ACTIVITES
                J=1
	        LOOP 
	           UNTIL W_MOULACT<1,J>=ENR_DETAILCALCUL<26,I> DO
		   J=J+1
	        REPEAT

		ENR_DETAILCALCUL<26,I>=W_MOULACT<2,J>
	      END

	      I=I+1
	 REPEAT

	 WRITE ENR_DETAILCALCUL ON F.DETAILCALCUL,CLE
    REPEAT

RETURN

****************************************************
* MIGRATION DETAILCHGPARTEMP

90 *

    EXECUTE 'SELECT DETAILCHGPARTEMP AVEC 1 = "':W_ASSOORIGINE:'"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.DETAILCHGPARTEMP TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_DETAILCHGPARTEMP FROM F.DETAILCHGPARTEMP,CLE ELSE ENR_DETAILCHGPARTEMP=""
	 ENR_DETAILCHGPARTEMP<1>=W_ASSODEST
	 WRITE ENR_DETAILCHGPARTEMP ON F.DETAILCHGPARTEMP,CLE

    REPEAT

RETURN

****************************************************
* MIGRATION DETAILMANDAT

100 *

    EXECUTE 'SELECT DETAILMANDAT AVEC 5 = "':W_ASSOORIGINE:']"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.DETAILMANDAT TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_DETAILMANDAT FROM F.DETAILMANDAT,CLE ELSE ENR_DETAILMANDAT=""

	 I=1
	 LOOP 
	      UNTIL ENR_DETAILMANDAT<5,I>="" DO

	      IF ENR_DETAILMANDAT<5,I>[1,3]=W_ASSOORIGINE THEN
    	        * RECHERCHE CORRESPONDANCE ACTIVITES
                J=1
	        LOOP 
	           UNTIL W_MOULACT<1,J>=ENR_DETAILMANDAT<5,I> DO
		   J=J+1
	        REPEAT

		ENR_DETAILMANDAT<5,I>=W_MOULACT<2,J>
	      END

	      I=I+1
	 REPEAT

	 WRITE ENR_DETAILMANDAT ON F.DETAILMANDAT,CLE
    REPEAT

RETURN

****************************************************
* MIGRATION FACTURAIDE

110 *

    EXECUTE 'SELECT FACTURAIDE AVEC 0 = "[':W_ASSOORIGINE:'M]"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.FACTURAIDE TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_FACTURAIDE FROM F.FACTURAIDE,CLE ELSE ENR_FACTURAIDE=""
	 WRITE ENR_FACTURAIDE ON F.FACTURAIDE,CLE[1,5]:W_ASSODEST:CLE[9,18]

	 READ ENR_ARCHIVEFACT FROM F.ARCHIVEFACT,CLE[1,25] ELSE ENR_ARCHIVEFACT=""
	 WRITE ENR_ARCHIVEFACT ON F.ARCHIVEFACT,CLE[1,5]:W_ASSODEST:CLE[9,17]

	 DELETE F.FACTURAIDE,CLE
	 DELETE F.ARCHIVEFACT,CLE[1,25]

    REPEAT

RETURN

****************************************************
* MIGRATION FACTURAIDETRIM

120 *

    EXECUTE 'SELECT FACTURAIDETRIM AVEC 0 = "[':W_ASSOORIGINE:'M]"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.FACTURAIDETRIM TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_FACTURAIDETRIM FROM F.FACTURAIDETRIM,CLE ELSE ENR_FACTURAIDETRIM=""
	 WRITE ENR_FACTURAIDETRIM ON F.FACTURAIDETRIM,CLE[1,5]:W_ASSODEST:CLE[9,18]

	 READ ENR_ARCHIVEFACT FROM F.ARCHIVEFACT,CLE[1,25] ELSE ENR_ARCHIVEFACT=""
	 WRITE ENR_ARCHIVEFACT ON F.ARCHIVEFACT,CLE[1,5]:W_ASSODEST:CLE[9,17]

	 DELETE F.FACTURAIDETRIM,CLE
	 DELETE F.ARCHIVEFACT,CLE[1,25]

    REPEAT

RETURN

****************************************************
* MIGRATION HRESHISTOR

130 *

    EXECUTE 'SELECT HRESHISTOR AVEC EntiteHresHistor = "':W_ASSOORIGINE:'"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.HRESHISTOR TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_HRESHISTOR FROM F.HRESHISTOR,CLE ELSE ENR_HRESHISTOR=""
	 WRITE ENR_HRESHISTOR ON F.HRESHISTOR,CLE[1,5]:W_ASSODEST:CLE[9,6]
	 DELETE F.HRESHISTOR,CLE

    REPEAT

RETURN

****************************************************
* MIGRATION NUMEROFACT

140 *

    READ ENR_NUMEROFACT FROM F.NUMEROFACT,W_ASSOORIGINE ELSE ENR_NUMEROFACT=""

    READ ENR_NUMEROFACT2 FROM F.NUMEROFACT,W_ASSODEST ELSE ENR_NUMEROFACT2=""
    
    ENR_NUMEROFACT2<3>=ENR_NUMEROFACT<3>
    ENR_NUMEROFACT2<4>=ENR_NUMEROFACT<4>

    WRITE ENR_NUMEROFACT2 ON F.NUMEROFACT,W_ASSODEST
    DELETE F.NUMEROFACT,W_ASSOORIGINE

RETURN

****************************************************
* MIGRATION ORGPRISECHARGE

150 *

    EXECUTE 'SELECT ORGPRISECHARGE AVEC 46 = "':W_ASSOORIGINE:'"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.ORGPRISECHARGE TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,CLE ELSE ENR_ORGPRISECHARGE=""

	 ENR_ORGPRISECHARGE<46>=W_ASSODEST

	 I=1
	 LOOP 
	      UNTIL ENR_ORGPRISECHARGE<47,I>="" DO

	      IF ENR_ORGPRISECHARGE<47,I>[1,3]=W_ASSOORIGINE THEN
    	        * RECHERCHE CORRESPONDANCE ACTIVITES
                J=1
	        LOOP 
	           UNTIL W_MOULACT<1,J>=ENR_ORGPRISECHARGE<47,I> DO
		   J=J+1
	        REPEAT

		ENR_ORGPRISECHARGE<47,I>=W_MOULACT<2,J>
	      END

	      I=I+1
	 REPEAT

	 WRITE ENR_ORGPRISECHARGE ON F.ORGPRISECHARGE,CLE
    REPEAT

RETURN

****************************************************
* MIGRATION STATACTAIDE

160 *

    EXECUTE 'SELECT STATACTAIDE AVEC EntiteAct = "':W_ASSOORIGINE:'"'
    EXECUTE "SAUVE-LISTE MIGRATION"
    EXECUTE "LISTE MIGRATION" RETURNING MSGCODE

    IF MSGCODE<1>=209 THEN RETURN
    SELECT F.STATACTAIDE TO MIGRATION

    W_REQVIDE=0
    LOOP
	 READNEXT CLE FROM MIGRATION ELSE W_REQVIDE=1
	 UNTIL W_REQVIDE=1 DO

	 READ ENR_STATACTAIDE FROM F.STATACTAIDE,CLE ELSE ENR_STATACTAIDE=""
	 WRITE ENR_STATACTAIDE ON F.STATACTAIDE,CLE[1,5]:W_ASSODEST:CLE[9,6]
	 DELETE F.STATACTAIDE,CLE

    REPEAT

RETURN

****************************************************
* VARIABLES

999 * 

    MSGCODE=""
    W_MOULACT=""

RETURN
