more file casing woes

Author: hippiehunter

Services.Host/SelfHostEnvironment.dbl

@@ -158,7 +158,7 @@ namespace Services.Host
                     Startup.LogicalNames.Add(fileSpec)
             end
 
-            fileSpec = "DAT:CUSTOMER_EX.ism"
+            fileSpec = "DAT:customer_ex.ism"
             if (fileSpec.Contains(":")) then
             begin
                 logical = fileSpec.Split(":")[1].ToUpper()
@@ -379,7 +379,7 @@ namespace Services.Host
 
             ;;Create and load the customerExs file
 
-            dataFile = "DAT:CUSTOMER_EX.ism"
+            dataFile = "DAT:customer_ex.ism"
             xcall parse(dataFile.ToLower(),1,,,,,fileExtension)
             xdlFile = "@" + dataFile.ToLower().Replace(%atrim(fileExtension),".xdl")
 
@@ -546,7 +546,7 @@ namespace Services.Host
             ;;Delete the customerExs file
             try
             begin
-                xcall delet("DAT:CUSTOMER_EX.ism")
+                xcall delet("DAT:customer_ex.ism")
             end
             catch (e, @NoFileFoundException)
             begin
@@ -767,7 +767,7 @@ namespace Services.Host
 
         public static method loadCustomerExs, @List<CustomerEx>
         proc
-            data dataFile = "DAT:CUSTOMER_EX.ism"
+            data dataFile = "DAT:customer_ex.ism"
             data fileExtension, a10
             xcall parse(dataFile.ToLower(),1,,,,,fileExtension)
             data textFile = dataFile.ToLower().Replace(%atrim(fileExtension),".txt")

Services.Models/CustomerEx.dbl

@@ -3,7 +3,7 @@
 ;; Title:       CustomerEx.dbl
 ;;
 ;; Description: Data model representing data defined by the repository
-;;              structure CUSTOMER_EX and from the data file DAT:CUSTOMER_EX.ism.
+;;              structure CUSTOMER_EX and from the data file DAT:customer_ex.ism.
 ;;
 ;;*****************************************************************************
 ;; WARNING: GENERATED CODE!

Services.Test.GenerateValues/GenerateTestValues.dbl

@@ -46,7 +46,7 @@ namespace Services.Test
         private mOrderFileSpec, string, "DAT:orders.ism"
         private mOrderItemFileSpec, string, "DAT:order_items.ism"
         private mVendorFileSpec, string, "DAT:vendors.ism"
-        private mCustomerExFileSpec, string, "DAT:CUSTOMER_EX.ism"
+        private mCustomerExFileSpec, string, "DAT:customer_ex.ism"
         private mNonuniquepkFileSpec, string, "DAT:nonuniquepk.ism"
         private mDifferentpkFileSpec, string, "DAT:differentpk.ism"
         private mTestcarFileSpec, string, "DAT:testcar.ism"
@@ -377,7 +377,7 @@ namespace Services.Test
             ;------------------------------------------------------------
             ;Test data for CustomerEx
 
-            Console.WriteLine("Processing file DAT:CUSTOMER_EX.ism")
+            Console.WriteLine("Processing file DAT:customer_ex.ism")
 
             ;If there is a GetCustomFileSpec method, call it
             GetCustomFileSpec(mCustomerExFileSpec)
@@ -387,7 +387,7 @@ namespace Services.Test
 
             ;;------------------------------------------------------------
             ;;Test data for CustomerEx
-            chin = ChannelManager.GetChannel("DAT:CUSTOMER_EX.ism", FileOpenMode.InputIndexed)
+            chin = ChannelManager.GetChannel("DAT:customer_ex.ism", FileOpenMode.InputIndexed)
 
             ;Total number of records
             Console.WriteLine(" - Counting records...")
@@ -401,7 +401,7 @@ namespace Services.Test
                 if (count) then
                     TestConstants.Instance.GetCustomerExs_Count = count
                 else
-                    Console.WriteLine("ERROR: Failed to read record from DAT:CUSTOMER_EX.ism")
+                    Console.WriteLine("ERROR: Failed to read record from DAT:customer_ex.ism")
                 exitloop
             end
             ;Get by primary key
@@ -412,7 +412,7 @@ namespace Services.Test
                 TestConstants.Instance.GetCustomerEx_Customerid = customerEx.customerid
                 exitloop
             eofCustomerEx2,
-                Console.WriteLine("ERROR: Failed to read first record from DAT:CUSTOMER_EX.ism")
+                Console.WriteLine("ERROR: Failed to read first record from DAT:customer_ex.ism")
                 exitloop
             end
 

Services.Test/DataGenerators/CustomerExLoader.dbl

@@ -19,7 +19,7 @@ namespace Services.Test.DataGenerators
 
         public static method LoadFromFile, @List<CustomerEx>
         proc
-            data dataFile = "DAT:CUSTOMER_EX.ism"
+            data dataFile = "DAT:customer_ex.ism"
             data textFile = dataFile.Replace(".ism",".txt", StringComparison.CurrentCultureIgnoreCase)
 			UnitTestEnvironment.EnsurePlatformSpecificLineEndings(textFile.Replace(":", System.IO.Path.DirectorySeparatorChar).Replace("dat", Environment.GetEnvironmentVariable("DAT"), StringComparison.CurrentCultureIgnoreCase), 134)
 			data customerExCh, int, 0

Services.Test/Models/CustomerEx.dbl

@@ -3,7 +3,7 @@
 ;; Title:       CustomerEx.dbl
 ;;
 ;; Description: OData model class representing data defined by the repository
-;;              structure CUSTOMER_EX and from the data file DAT:CUSTOMER_EX.ism.
+;;              structure CUSTOMER_EX and from the data file DAT:customer_ex.ism.
 ;;
 ;;*****************************************************************************
 ;; WARNING: GENERATED CODE!

Services.Test/UnitTestEnvironment.dbl

@@ -166,7 +166,7 @@ namespace Services.Test
                     logicals.Add(logical)
             end
 
-            fileSpec = "DAT:CUSTOMER_EX.ism"
+            fileSpec = "DAT:customer_ex.ism"
             if (fileSpec.Contains(":"))
             begin
                 logical = fileSpec.Split(":")[1].ToUpper()
@@ -340,7 +340,7 @@ namespace Services.Test
 
             ;;Create and load the customerExs file
 
-            dataFile = "DAT:CUSTOMER_EX.ism"
+            dataFile = "DAT:customer_ex.ism"
             xdlFile = "@" + dataFile.Replace(".ism",".xdl", StringComparison.CurrentCultureIgnoreCase)
 
             data customerEx, @CustomerEx
@@ -499,7 +499,7 @@ namespace Services.Test
             ;;Delete the customerExs file
             try
             begin
-                xcall delet("DAT:CUSTOMER_EX.ism")
+                xcall delet("DAT:customer_ex.ism")
             end
             catch (e, @NoFileFoundException)
             begin

Services/Startup.dbl

@@ -168,7 +168,7 @@ namespace Services
                 objectProvider.AddDataObjectMapping<Order>("DAT:orders.ism", FileOpenMode.UpdateIndexed)
                 objectProvider.AddDataObjectMapping<OrderItem>("DAT:order_items.ism", FileOpenMode.UpdateIndexed)
                 objectProvider.AddDataObjectMapping<Vendor>("DAT:vendors.ism", FileOpenMode.UpdateIndexed)
-                objectProvider.AddDataObjectMapping<CustomerEx>("DAT:CUSTOMER_EX.ism", FileOpenMode.UpdateIndexed)
+                objectProvider.AddDataObjectMapping<CustomerEx>("DAT:customer_ex.ism", FileOpenMode.UpdateIndexed)
                 objectProvider.AddDataObjectMapping<Nonuniquepk>("DAT:nonuniquepk.ism", FileOpenMode.UpdateIndexed)
                 objectProvider.AddDataObjectMapping<Differentpk>("DAT:differentpk.ism", FileOpenMode.UpdateIndexed)
                 objectProvider.AddDataObjectMapping<Testcar>("DAT:testcar.ism", FileOpenMode.UpdateIndexed)