W_Param=""
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
W_Param<1>="201305"

CALL EXTRACTCOMPTEURLOGISROUTE(RETURNVAL,W_Param,W_Sortie)

STOP
