changed StartsWith to use %scan instead of SQL

oceanskunk · Jun 18, 2019 · bf322c0 · bf322c0
1 parent f09ff6a
commit bf322c0
Showing 1 changed file with 1 addition and 7 deletions.
diff --git a/qrpglesrc/CVTDDS.SQLRPGLE b/qrpglesrc/CVTDDS.SQLRPGLE
@@ -583,15 +583,9 @@
        inSource  varchar(2000) const;
        inSearch  varchar(2000) const;
    end-pi;
-   dcl-s  theyMatch ind;
 
-   Exec SQL
-       SET :theyMatch =
-         CASE WHEN :inSource LIKE :inSearch CONCAT '%'
-                  THEN '1'
-              ELSE '0'  END;
+   return (%scan(inSearch : inSource : 1) = 1);
 
-   return theyMatch;
  end-proc  StartsWith;