Internal Routine: AOR_EOB

BEGINSUB AOR_EOB
*	------------------------------------------------------
*	Create transact.dat file listing the contents of
*	each batch folder created with count of output files,
*	maximum output files per batch folder, statistical
*	information. Existence of this file is indicates a
*	batch folder has been completed and is used by the
*	Documaker Connector source for housekeeping functions.
*	Called by Post Batch DAL script.
*	------------------------------------------------------
    IF #AOR_Debug 
   RPLogMsg(NL() & "  ** AOR_EOB:" & NL() ) 
    END
    #AOR_PerBatch = #AOR_PerBatch
    #AOR_Count = #AOR_Count
    AOR_BatchDir = AOR_BatchDir
    AORRootDir = AORRootDir
    IF #AOR_DoEOB = 1
   AOR_LogFile = FULLFILENAME(,AOR_BatchDir,"transact",".dat")
   DBOPEN(AOR_LogFile,"ASCII",".\deflib\aort.dfd", \ "READ&WRITE&TRUNCATE&CREATE_IF_NEW")
   DBPREPVARS(AOR_LogFile,"AOREOTRecord")
   AOREOTRecord.Record = FILENAME(AOR_BatchDir) & " " & \
#AOR_PerBatch & " " & \
#AOR_Count
   DBADD(AOR_LogFile,"AOREOTRecord")
   DBCLOSE(AOR_LogFile)
    END
ENDSUB