solucion
DATA mydate TYPE dats.
DATA: year(4) TYPE i VALUE 2010,
month(2) TYPE i VALUE 12,
day(2) TYPE i VALUE 5.
mydate(4) = year.
IF month GT 0 AND month LT 10.
mydate+4(1) = '0'.
mydate+5(1) = month.
ELSE.
mydate+4(2) = month.
ENDIF.
IF day GT 0 AND day LT 10.
mydate+6(1) = '0'.
mydate+7(1) = day.
ELSE.
mydate+6(2) = day.
ENDIF.
WRITE mydate.
saludos.
|