MontIndemnite=15
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
CodeContrat="00530007"
LicencRetraite="L"
CALL CalcIndLicRetD(CodeContrat,LicencRetraite,MontIndemnite)
PRINT "Indemnite :":MontIndemnite
STOP
