Fix file extension during file source orbit rename

src/views/projectExplorer/migrateSource.ts

@@ -10,6 +10,7 @@ import { ComplexTab, SelectItem } from "@halcyontech/vscode-ibmi-types/api/Custo
 import { IProject } from "../../iproject";
 import * as path from "path";
 import * as tar from "tar";
+import * as fs from 'fs';
 
 /**
  * Represents the configuration for a migration.
@@ -158,6 +159,11 @@ export async function migrateSource(iProject: IProject, library: string): Promis
             if (migrationConfig.automaticRename) {
                 progress.report({ message: l10n.t('Renaming file extensions to be more precise...'), increment: increment });
                 await commands.executeCommand('vscode-sourceorbit.autoFix', workspaceFolder, 'renames');
+
+                // Fix file extensions with the format FILE.pgm.CLLE to FILE.PGM.CLLE
+                if (!migrationConfig.lower) {
+                    fixExtensions(migrationConfig.workspaceFolderUri!.fsPath);
+                }
             }
 
             if (migrationConfig.fixIncludes) {
@@ -187,6 +193,31 @@ export async function migrateSource(iProject: IProject, library: string): Promis
     }
 }
 
+function fixExtensions(workspaceFolder: string): void {
+    const filesAndDirs = fs.readdirSync(workspaceFolder);
+
+    filesAndDirs.forEach((fileDir: string) => {
+        const path = `${workspaceFolder}/${fileDir}`;
+        const stats = fs.statSync(path);
+
+        if (stats.isDirectory()) {
+            fixExtensions(path);
+        } else {
+            const fileSplit = fileDir.split('.');
+            const extension = fileSplit.at(-1);
+
+            if (fileSplit.length === 3 && extension?.toUpperCase() === extension) {
+                fileSplit[1] = fileSplit[1].toUpperCase();
+
+                const newFileName = fileSplit.join('.');
+
+                fs.rename(path, workspaceFolder + "/" + newFileName, () => {
+                });
+            }
+        }
+    });
+}
+
 /**
  * Get the migration configuration by retrieving the source physical files
  * in a library and prompting for the configuration parameters.