%externalroutinespec unpack UNIX date(%integer w date, %string(*)%name u date, u time) %externalstring(11)%fnspec UNIX day of week(%integer date) %externalstring(15)%fnspec UNIX date(%integer stamp) %externalstring(15)%fnspec UNIX time(%integer stamp) %externalstring(31)%fnspec UNIX datetime(%integer stamp) %externalintegerfnspec local UNIX timestamp %externalintegerfnspec VMS to UNIX(%integername x) %end %of %file