Assuming that your input value of '1070112' is really CYYMMDD (your question has it as YYDDMM but you show a desired answer of DDMMYYYY 12-01-2007...) then the following should do the trick:
dCYMDField s 7 inz('1070112')
dsply (%editw(%dec(%date(CYMDField :*CYMD0) :*EUR) :'0 - - '));
*inlr = *on;
this will result in:
Last Wiki Answer Submitted: February 20, 2008 2:59 pm by bvining6,055 pts.