Code to create a file based on the day header and open to append.

RET = 1: A$=DD$+HD$+JD$+YF$+“.”+NO$:CLOSE 1:OPEN A$ FOR APPEND AS 1