Update QSHQRYSRCR.RPGLE

richardschoen · Feb 7, 2025 · bfc2c3e · bfc2c3e
1 parent c3082e1
commit bfc2c3e
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/QSHQRYSRCR.RPGLE b/QSHQRYSRCR.RPGLE
@@ -41,7 +41,10 @@
          // Assume that SQL source members are structured
          // as such.
          if %trim(srcdta) <> '';
-            p_SQL = %trim(p_SQL) +' ' + %trim(srcdta);
+           // Ignore comments
+           if %subst(srcdta:1:2) <> '--';
+               p_SQL = %trim(p_SQL) +' ' + %trim(srcdta);
+           endif;
          endif;
 
        enddo;