SUBROUTINE HEADER (CSTR, RSTR, OUTSTR) C***************************************************************************** C C Description : Builds a HEADER string of 79 characters with the following C format : CSTR padded or truncated to 53 characters + blank C RSTR padded or truncated to 9 characters + blank C 9 character date string + blank C 5 character time string + zero-byte C C Arguments : CSTR = STRING of free text C RSTR = STRING containing (sub)routine information C OUTSTR = STRING returning the constructed header C C Author : T.Pijl C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V1.0 Date : 10-jan-83 C C Module name : HEADER.FTN C C Package : RSX-library C C Compilation/Linking : FOR/F4P/TR:NONE HEADER C C Updates : name version C C description : C C***************************************************************************** C BYTE CSTR(1),RSTR(1),OUTSTR(1),DAY(10) C CALL SCOPY(CSTR,OUTSTR,53) CALL STRPAD(OUTSTR,54) CALL SBUILD(OUTSTR,63,RSTR) CALL STRPAD(OUTSTR,64) CALL DATE(DAY) DAY(10)=0 CALL SBUILD(OUTSTR,79,DAY,' ') CALL TIME(DAY) DAY(6)=0 CALL SBUILD(OUTSTR,79,DAY) RETURN END