OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE PRINT "OUVERTURE ORGPRISECHARGE" ;* en lecture criture


	EXECUTE 'SELECT ORGPRISECHARGE AVEC 56 = "706112]"'
 
	W_End="FAUX"


	LOOP
		READNEXT W_Cle ELSE W_End = "VRAI"
	WHILE W_End = "FAUX" DO
		READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,W_Cle ELSE ENR_ORGPRISECHARGE=""
		
		ENR_ORGPRISECHARGE<56>=""
		
		WRITE ENR_ORGPRISECHARGE ON F.ORGPRISECHARGE,W_Cle
	REPEAT

	
STOP