EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","RUBSAISIE" TO F.RUBSAISIE ELSE STOP

ENR_RUBSAISIE=""
READ ENR_RUBSAISIE19 FROM F.RUBSAISIE,"019" ELSE ENR_RUBSAISIE19=""

ENR_RUBSAISIE<1>="JOURNEE SOLIDARITE"
ENR_RUBSAISIE<2>="5"
ENR_RUBSAISIE<4>="0"
ENR_RUBSAISIE<5>="-"
ENR_RUBSAISIE<6>="0"
ENR_RUBSAISIE<8>="2"
ENR_RUBSAISIE<9>="1000000"
ENR_RUBSAISIE<10>="2"
ENR_RUBSAISIE<12>=ENR_RUBSAISIE19<13>
ENR_RUBSAISIE<13>=ENR_RUBSAISIE19<12>
ENR_RUBSAISIE<16>="0"
ENR_RUBSAISIE<17>=""
WRITE ENR_RUBSAISIE ON F.RUBSAISIE,"839"

ENR_RUBSAISIE<1>="HRES ABSENCE JOUR SOLIDARITE"
WRITE ENR_RUBSAISIE ON F.RUBSAISIE,"840"

ENR_RUBSAISIE<1>="DONT JOUR SOLIDARITE"
ENR_RUBSAISIE<2>="1"
ENR_RUBSAISIE<4>="0"
ENR_RUBSAISIE<5>="+"
ENR_RUBSAISIE<6>="0"
ENR_RUBSAISIE<8>="2"
ENR_RUBSAISIE<9>="0"
ENR_RUBSAISIE<10>="2"
ENR_RUBSAISIE<12>=ENR_RUBSAISIE19<13>
ENR_RUBSAISIE<13>=ENR_RUBSAISIE19<12>
ENR_RUBSAISIE<16>="0"
ENR_RUBSAISIE<17>=""
WRITE ENR_RUBSAISIE ON F.RUBSAISIE,"841"


STOP


