Конвертация строки вида 04Apri03 в дату

* Как конвертировать запись даты в строковой переменной в формат даты.

* (Ответ) Автор: Raynald Levesque, 16.04.2004.

DATA LIST FIXED /str1 1-8(A).
BEGIN DATA
04Apri03
01May 02
12Sept02
31Octo02
END DATA.

STRING str2(A8).
COMPUTE str2=str1.
DO REPEAT m='Janu' 'Febr' 'Marc' 'Apri' 'May' 'June' 'July' 'Augu' 'Sept' 'Octo' 'Nove' 'Dece'
		/nb=1 TO 12.
COMPUTE pos=INDEX(str2,m).
IF pos>0 SUBSTR(str2,pos,4)=CONCAT("-",STRING(nb,N2),"-").
END REPEAT PRINT.

COMPUTE date1=NUMBER(str2,EDATE8).
FORMATS date1(ADATE10).
VARIABLE WIDTH date1(11).
EXECUTE.