17 lines
616 B
Plaintext
17 lines
616 B
Plaintext
df: proc Options(Main);
|
|
declare day_of_week(7) character(9) varying initial(
|
|
'Sunday','Monday','Tuesday','Wednesday',
|
|
'Thursday','Friday','Saturday');
|
|
declare today character(8);
|
|
declare month(12) character(10) varying initial(
|
|
'January','February','March','April','May','June','July',
|
|
'August','September','October','November','December');
|
|
|
|
Put edit(translate('abcd-ef-gh',datetime('YYYYMMDD'),'abcdefgh'))(a);
|
|
today = datetime('MMDDYYYY');
|
|
|
|
put skip edit(day_of_week(weekday()),', ') (A);
|
|
put edit(month(substr(today,1,2)),' ',substr(today,3,2),', ',
|
|
substr(today,5,4))(A);
|
|
End;
|