%externalintegerfnspec get datestamp
%externalroutinespec unpack date(%integer w date, %string(*)%name u date, u time)
%externalintegerfnspec pack date(%string(255) date)
%externalintegerfnspec pack VAX date(%string(255) date and time)
!%externalstring(15)%fnspec unpack VAX date(%integer date)
%externalstring(11)%fnspec day of week(%integer date)

%end %of %file