EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
MontIndemnite=15
CodeContrat="00084020"
LicencRetraite="R"
CALL CalcIndLicRet(CodeContrat,LicencRetraite,MontIndemnite)
PRINT "Indemnite :":MontIndemnite
STOP
