*************************************************************************
* MODIFICATION DU TYPE DADS D'UNE LIGNE A UNE AUTRE
*************************************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DADSTDS" TO F.DADSTDS ELSE STOP
PRINT "NOM DU FICHIER ":
INPUT NOMFIC
PRINT "TYPE DADS ":
INPUT TYPEDADS
PRINT "LIGNE DEBUT ":
INPUT LIGNEDEBUT
PRINT "LIGNE FIN ":
INPUT LIGNEFIN
READ ENR FROM F.DADSTDS,NOMFIC ELSE STOP
FOR L=LIGNEDEBUT TO LIGNEFIN
 LIGNE=EXTRACT(ENR,L)
 LONG=LEN(LIGNE)
 LIGNE=LIGNE[1,18]:TYPEDADS:LIGNE[20,LONG-19]
 ENR=REPLACE(ENR,L;LIGNE)
NEXT L
WRITE ENR ON F.DADSTDS,NOMFIC
STOP
