18000 !******************************************************************** & ! & ! FNDATE.B2S - RETURN DATE IN DEC STANDARD FORMAT & ! & !******************************************************************** & ! & ! FN.DATE$ (D%) & ! & ! Converts the specified date (D% > zero) or returns the & ! current system date (D% = zero) in alphabetic date format. & ! & ! & ! This routine is used to isolate operating system dependent code. & ! It also ensures a date in DEC standrd alphabetic format regardless & ! of the RSTS sysgen option chosen. & ! & ! & ! V A R I A B L E S U S E D & ! & ! NAME DESCRIPTION & ! ----------------- ------------------------------- & ! D% Date INPUT INTEGER variable & ! FN.DATE$ Output of function & ! date in DD-MMM-YY format & ! WORK$ Temporary work buffer & ! & ! & !******************************************************************** & 18010 DEF FN.DATE$(D%) & \ WORK$ = SYS(CHR$(6%)+CHR$(20%) & +CHR$(D%)+CHR$(SWAP%(D%))+CHR$(-1%)+CHR$(SWAP%(-1%)) & +CHR$(0%)+CHR$(SWAP%(0%))+CHR$(00%)+CHR$(SWAP%(00%))) & \ FN.DATE$ = SEG$(WORK$,7%,15%) & \ FNEND & ! Use a RSTS sys call to retrieve/convert the date to & ! DEC standard format (DD-MMM-YY). &