
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","BESOINSAIDE" TO F.BESOINSAIDE ELSE STOP

W_RESULTAT="" 

EXECUTE 'SSELECT BESOINSAIDE'
EXECUTE 'SAUVE-LISTE W_RESULTAT'
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	
IF MSGCODE<1> # 209 THEN 

	W_FINI = "FAUX"

	SELECT F.BESOINSAIDE TO W_RESULTAT

	LOOP
		READNEXT CLE FROM W_RESULTAT ELSE W_FINI="VRAI"
	WHILE W_FINI = "FAUX"
		READ ENR_BESOINSAIDE FROM F.BESOINSAIDE,CLE ELSE ENR_BESOINSAIDE = ""

		ENR_BESOINSAIDE<1> = ""
		ENR_BESOINSAIDE<2> = ""
		ENR_BESOINSAIDE<3> = ""
		ENR_BESOINSAIDE<4> = ""
		ENR_BESOINSAIDE<6> = ""
		ENR_BESOINSAIDE<13> = ""
		ENR_BESOINSAIDE<14> = ""
		ENR_BESOINSAIDE<15> = ""
		ENR_BESOINSAIDE<16> = ""

		WRITE ENR_BESOINSAIDE ON F.BESOINSAIDE,CLE

	REPEAT
	
END

STOP
