PRINT "NOM DU FICHIER :":
INPUT W_NOMFIC

W_TABCODEORG=""
W_CODEORG=""

LOOP
	PRINT "CODE ORGANISME (FIN POUR ARRETER):":
	INPUT W_CODEORG
WHILE W_CODEORG # "FIN" DO
	W_TABCODEORG<-1>=W_CODEORG
REPEAT

IF W_TABCODEORG="" THEN
	STOP
END

PRINT "Operation en cours"

ENR_RETRAITE=""
W_POS=0

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DADS-U" TO F.DADSU ELSE STOP

READ ENR_DADSU FROM F.DADSU,W_NOMFIC ELSE STOP
W_COUNT=DCOUNT(ENR_DADSU,CHAR(254))

K=1
L=1
FOR I = 1 TO W_COUNT
	
	IF ENR_DADSU<I>[1,3]="S10" OR ENR_DADSU<I>[1,3]="S20" OR ENR_DADSU<I>[1,3]="S80" OR ENR_DADSU<I>[1,3]="S90" THEN
		ENR_RETRAITE<K>=ENR_DADSU<I>
		K=K+1
	END ELSE
	
		IF ENR_DADSU<I>[1,14]="S30.G01.00.001" THEN 
			W_POS=I
		END ELSE
		
			IF ENR_DADSU<I>[1,14]="S41.G01.01.001" THEN
				W_41=ENR_DADSU<I>[17,LEN(ENR_DADSU<I>)-17]
				
				*Si on trouve le code*
				IF INDEX(W_TABCODEORG,W_41,1) # 0 THEN	
					ENR_RETRAITE<K>=ENR_DADSU<W_POS>
					ENR_DADSU=DELETE(ENR_DADSU,W_POS)
					K=K+1
					J=W_POS
					PRINT I
					
					LOOP					
					WHILE ENR_DADSU<J>[1,14] # "S30.G01.00.001" AND ENR_DADSU<J>[1,3] # "S80" DO
						ENR_RETRAITE<K>=ENR_DADSU<J>
						ENR_DADSU=DELETE(ENR_DADSU,J)
						K=K+1
					REPEAT
					I=J-1
				END 
			END 
		END
	END
NEXT I


WRITE ENR_DADSU ON F.DADSU,W_NOMFIC
WRITE ENR_RETRAITE ON F.DADSU,"SalarieCPM.TXT"

PRINT "Operation terminee"
STOP
