*OUVERTURE DE FICHIERS
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
*INITIALISATION DES VARIABLES
W_RequeteUrssaf=""
W_CumulUrssaf=0

EXECUTE 'SETPTR 0,,,,,1,"MODE=RAW",DEST \\SERVEURNT\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF'
*PRINTER ON

*EXECUTION DE LA REQUETE
EXECUTE 'SSELECT HISTORCUMUL = "[2001001"'
EXECUTE 'SAUVE-LISTE W_RequeteUrssaf'
EXECUTE "LISTE W_RequeteUrssaf" RETURNING MSGCODE

IF MSGCODE<1>#209 THEN
	*SELECTION DE LA REQUETE
	SELECT F.HISTORCUMUL TO W_RequeteUrssaf

	*i=0
	W_FINI="FAUX"

	LOOP
		READNEXT W_Cle FROM W_RequeteUrssaf ELSE W_FINI="VRAI"
	WHILE W_FINI="FAUX" DO

		READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_Cle ELSE STOP
	
		i = 0
		LOOP

		WHILE ENR_HISTORCUMUL<15,i> # "" DO
			IF ENR_HISTORCUMUL<15,i> = "035" OR ENR_HISTORCUMUL<15,i> = "038" OR ENR_HISTORCUMUL<15,i> = "090" OR ENR_HISTORCUMUL<15,i> = "064" OR ENR_HISTORCUMUL<15,i> = "067" OR ENR_HISTORCUMUL<15,i> = "001" OR ENR_HISTORCUMUL<15,i> = "092" OR ENR_HISTORCUMUL<15,i> = "094" OR ENR_HISTORCUMUL<15,i> = "088" OR ENR_HISTORCUMUL<15,i> = "098" OR ENR_HISTORCUMUL<15,i> = "101" OR ENR_HISTORCUMUL<15,i> = "096" THEN
				W_CumulUrssaf = W_CumulUrssaf + ENR_HISTORCUMUL<16,i>
			END
		i = i +1
		REPEAT
	REPEAT
END
PRINT W_CumulUrssaf 
STOP
