RTOUCH
- *************************************************
- PEARL-Subroutine: *
- *
- RTOUCH(file DATION ALPHIC IDENT)
- RETURNS(CHAR(20))*
- *
- NAME: RTOUCH1.1 *
- *
- This function reads the fileinfo using *
- the given Dation and delivers a string *
- of the type "hh:mm:ss dd-mm-yyyy" *
- Clock and date are separated by 2 Blanks. *
- *
- The procedure will not change the state of *
- the file at all. If the operation cannot be*
- executed without error, an empty string *
- (all blanks) will be produced *
- *
- Author and (c) 2000 Gerth *
- ------------------------------------------------*
- History: *
- *
- 1.0 27.04.2000 Date of birth (Ge) *
- 1.1 24.08.2000 17er-Slice with $80 (Wo)*1/1
- *************************************************