This is a subroutine called DATESTAMP I use in many scripts. Hope it helps:
;**********************************************
PROC DATESTAMP
integer MONTH, DAY , YEAR, HOUR, MIN, SEC
String TWODIGDAY = "0" ; ADDS THE ZERO AT WHERE A 1 DIGIT DAY OCCURS.
String THISMONTH, THISDAY...