*********************************************************
* CREATION TABLES MORTALITE			 	*
* VANESSA			DECEMBRE 2005		*
*********************************************************
* ouverture de fichiers

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TABLES" TO F.TABLES ELSE PRINT "OUVERTURE TABLES" ;* en lecture criture
*********************************************************

* PROGRAMME PRINCIPAL

	READ ENR_TABLES FROM F.TABLES,"MORTALITE" THEN
		* existe dj
	END ELSE

		ENR_TABLES=""
		ENR_TABLES<1,1>="TABLE DE MORTALITE"
		ENR_TABLES<1,2>="0"
		ENR_TABLES<1,3>=""
		ENR_TABLES<1,4>=""
		ENR_TABLES<1,5>="2N0"
		ENR_TABLES<1,6>="6N0"
		ENR_TABLES<1,7>=""
		ENR_TABLES<1,8>="Age"
		ENR_TABLES<1,9>="Indice"

		FOR i=1 TO 65
			ENR_TABLES<2,i>=i
			BEGIN CASE
               			CASE i=1
					ENR_TABLES<3,i>="99562"
               			CASE i=2
					ENR_TABLES<3,i>="99527"
               			CASE i=3
					ENR_TABLES<3,i>="99502"
               			CASE i=4
					ENR_TABLES<3,i>="99483"
               			CASE i=5
					ENR_TABLES<3,i>="99467"
               			CASE i=6
					ENR_TABLES<3,i>="99453"
               			CASE i=7
					ENR_TABLES<3,i>="99441"
               			CASE i=8
					ENR_TABLES<3,i>="99429"
               			CASE i=9
					ENR_TABLES<3,i>="99418"
               			CASE i=10
					ENR_TABLES<3,i>="99406"
               			CASE i=11
					ENR_TABLES<3,i>="99394"
               			CASE i=12
					ENR_TABLES<3,i>="99382"
               			CASE i=13
					ENR_TABLES<3,i>="99367"
               			CASE i=14
					ENR_TABLES<3,i>="99351"
               			CASE i=15
					ENR_TABLES<3,i>="99330"
               			CASE i=16
					ENR_TABLES<3,i>="99301"
               			CASE i=17
					ENR_TABLES<3,i>="99267"
               			CASE i=18
					ENR_TABLES<3,i>="99222"
               			CASE i=19
					ENR_TABLES<3,i>="99160"
               			CASE i=20
					ENR_TABLES<3,i>="99091"
               			CASE i=21
					ENR_TABLES<3,i>="99023"
               			CASE i=22
					ENR_TABLES<3,i>="98954"
               			CASE i=23
					ENR_TABLES<3,i>="98885"
               			CASE i=24
					ENR_TABLES<3,i>="98817"
               			CASE i=25
					ENR_TABLES<3,i>="98747"
               			CASE i=26
					ENR_TABLES<3,i>="98677"
               			CASE i=27
					ENR_TABLES<3,i>="98606"
               			CASE i=28
					ENR_TABLES<3,i>="98533"
               			CASE i=29
					ENR_TABLES<3,i>="98458"
               			CASE i=30
					ENR_TABLES<3,i>="98382"
               			CASE i=31
					ENR_TABLES<3,i>="98304"
               			CASE i=32
					ENR_TABLES<3,i>="98221"
               			CASE i=33
					ENR_TABLES<3,i>="98134"
               			CASE i=34
					ENR_TABLES<3,i>="98040"
               			CASE i=35
					ENR_TABLES<3,i>="97940"
               			CASE i=36
					ENR_TABLES<3,i>="97828"
               			CASE i=37
					ENR_TABLES<3,i>="97708"
               			CASE i=38
					ENR_TABLES<3,i>="97580"
               			CASE i=39
					ENR_TABLES<3,i>="97438"
               			CASE i=40
					ENR_TABLES<3,i>="97284"
               			CASE i=41
					ENR_TABLES<3,i>="97113"
               			CASE i=42
					ENR_TABLES<3,i>="96920"
               			CASE i=43
					ENR_TABLES<3,i>="96711"
               			CASE i=44
					ENR_TABLES<3,i>="96480"
               			CASE i=45
					ENR_TABLES<3,i>="96227"
               			CASE i=46
					ENR_TABLES<3,i>="95949"
               			CASE i=47
					ENR_TABLES<3,i>="95645"
               			CASE i=48
					ENR_TABLES<3,i>="95316"
               			CASE i=49
					ENR_TABLES<3,i>="94967"
               			CASE i=50
					ENR_TABLES<3,i>="94594"
               			CASE i=51
					ENR_TABLES<3,i>="94200"
               			CASE i=52
					ENR_TABLES<3,i>="93784"
               			CASE i=53
					ENR_TABLES<3,i>="93337"
               			CASE i=54
					ENR_TABLES<3,i>="92865"
               			CASE i=55
					ENR_TABLES<3,i>="92361"
               			CASE i=56
					ENR_TABLES<3,i>="91821"
               			CASE i=57
					ENR_TABLES<3,i>="91247"
               			CASE i=58
					ENR_TABLES<3,i>="90645"
               			CASE i=59
					ENR_TABLES<3,i>="90016"
               			CASE i=60
					ENR_TABLES<3,i>="89343"
               			CASE i=61
					ENR_TABLES<3,i>="88624"
               			CASE i=62
					ENR_TABLES<3,i>="87864"
               			CASE i=63
					ENR_TABLES<3,i>="87048"
               			CASE i=64
					ENR_TABLES<3,i>="86172"
               			CASE i=65
					ENR_TABLES<3,i>="85235"
            		END CASE

		NEXT i

       		WRITE ENR_TABLES ON F.TABLES,"MORTALITE"

	END

STOP
