TRY MessageFullFileName = ALLTRIM(THIS.HL7OutDirectory) + SUBSTR(SYS(2015),4,8) + ".HL7" STRTOFILE(THIS.oSendData.strProcessData,MessageFullFileName,0) CATCH TO oException MessageFullFileName = ALLTRIM(THIS.HL7BackupDirectory) + SUBSTR(SYS(2015),4,8) + ".HL7" STRTOFILE(THIS.oSendData.strProcessData,MessageFullFileName,0) ENDTRY