Script for Standard Batch Loads

Sub BatchLoad()
‘-----------------------------------------------------------------------------
‘ FDM Custom Script: 
‘
‘Created By:  	ADMIN
‘Date Created: 	3/24/2006 09:00
‘
‘Purpose:    	Execute a STANDARD Serial Processing FDM Batch     
‘-----------------------------------------------------------------------------
‘Declare Local Variables
Dim lngProcessLevel
Dim strDelimiter
Dim blnAutoMapCorrect
‘Initialize Variables
lngProcessLevel = 12  ‘Up-To-Check
strDelimiter = “_”
blnAutoMapCorrect = 0
‘Create the file collection
Set BATCHENG.PcolFiles = BATCHENG.fFileCollectionCreate(CStr(strDelimiter))
‘Execute a Standard Serial batch
BATCHENG.mFileCollectionProcess BATCHENG.PcolFiles, CLng(lngProcessLevel), , CBool(blnAutoMapCorrect)
End Sub