Merge pull request #4 from p-behr/master

Convert special characters in alias to underscore
oceanskunk · Jun 7, 2019 · 1ce221a · 1ce221a
2 parents 9d8cba7 + f09ff6a
commit 1ce221a
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/qrpglesrc/CVTDDS.SQLRPGLE b/qrpglesrc/CVTDDS.SQLRPGLE
@@ -272,12 +272,19 @@
 
      if sqlName = systemName
      and columnText <> *blanks;
-         column = %scanrpl(' ' : '_' : %trim(columnText));
+         column = %trim(columnText);
      elseif sqlName = systemName ;
          column = %trim(sqlName) + '_SQL_NAME';
      else;
          column = sqlName;
      endif;
+     // convert special characters to words and underscores
+     Exec SQL
+       SET :column = TRANSLATE( TRIM(REPLACE(:column , '%' , 'Pct'))
+                              , '______'
+                              , ' /-*&%'
+                              );
+
 
      defn = FormatFieldDefinition( columnType
                                  : columnLength