' Data: Direct Extraction
Function DirectExtractionJan
            Set db = Client.OpenDatabase("201501-January.IMD")
            Set task = db.Extraction
            task.AddFieldToInc "BATCH_TRANSACTION_ID"
            task.AddFieldToInc "D_TRANS_DATE"
            task.AddFieldToInc "MERCHANT_NAME"
            task.AddFieldToInc "TRANSACTION_AMT"
            task.AddFieldToInc "ORIGINAL_AMOUNT"
            task.AddFieldToInc "G_L_ACCOUNT"
            task.AddFieldToInc "G_L_ACCOUNT_DESCRIPTION"
            task.AddFieldToInc "MERCHANT_TYPE"
            task.AddFieldToInc "MERCHANT_TYPE_DESCRIPTION"
            dbName = "JanForAppend.IMD"
            task.AddExtraction dbName, "", ""
            task.CreateVirtualDatabase = False
            task.PerformTask 1, db.Count
            Set task = Nothing
            Set db = Nothing
            Close
End Function