
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

RETURNVAL=""
PARAMETRES=""
PARAMETRES<1>="201307"
PARAMETRES<2>="201307"
PARAMETRES<3>="001"
PARAMETRES<4>="M"
PARAMETRES<5>=""
PARAMETRES<6>=""
PARAMETRES<7>=""
PARAMETRES<8>=""
PARAMETRES<9>=""
SORTIE=""

CALL EXTRACTDETAILCALCUL(RETURNVAL,PARAMETRES,SORTIE)

PRINT SORTIE

STOP
