free RPG - date, time, datetime

dcl-s Time       time ;        
dcl-s Today      date;
dcl-s Date30     date ;        
dcl-s Timestamp  timestamp(0) ;

​​​​​​​Timestamp = %date() + %time() ; 
Today = %date() ;               
Date30 = Today - %Days(30);