*****************************************************
*
* MOULINETTE DE TRANSFERT DE LA CATEGORIE SOCIO-PROF.
* DE P.AIDEES VERS CIVILAIDE
*
*****************************************************
*PROCREAD VARIABLES ELSE STOP
*MODULE=FIELD(VARIABLES," ",2)
MODULE="FACT-AMF"
OPEN "","VOC" TO F.VOC ELSE STOP
ENRVOC=""
ENRVOC=REPLACE(ENRVOC,1;"F")
CHEMIN="D:\TRANSFERT\":MODULE
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\P.AIDEES")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_P.AIDEES")
WRITE ENRVOC ON F.VOC,"P.AIDEES"

**********
* OUVERTURE DES FICHIERS
**********
OPEN "","P.AIDEES" TO F.PAIDEES ELSE STOP

OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP

**********
* SELECTION DES P.AIDEES
**********
EXECUTE "TSELECT P.AIDEES"
10 READNEXT CODE.PB ELSE STOP
READ ENRPAIDEES FROM F.PAIDEES,CODE.PB ELSE GOTO 10
NOUVCODE=EXTRACT(ENRPAIDEES,50)
PCS=EXTRACT(ENRPAIDEES,37)
PCS=PCS[2,2]
READ ENRCIVILAIDE FROM F.CIVILAIDE,NOUVCODE ELSE GOTO 10
ENRCIVILAIDE<42>=PCS
WRITE ENRCIVILAIDE ON F.CIVILAIDE,NOUVCODE
GOTO 10