OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
EXECUTE 'TSELECT CIVILAIDE'
10 READNEXT CLE ELSE STOP
READ ENRCIVILAIDE FROM F.CIVILAIDE,CLE ELSE GOTO 10
ENRCIVILAIDE=REPLACE(ENRCIVILAIDE,39;"001")
*ENRCIVILAIDANT=REPLACE(ENRCIVILAIDANT,32;"00101")
*ENRCIVILAIDANT=REPLACE(ENRCIVILAIDANT,33;"0010101")
WRITE ENRCIVILAIDE ON F.CIVILAIDE,CLE
GOTO 10
