Merge pull request #8 from p-behr/master

Replace library + old program name with new program name in LABEL ON …
oceanskunk · Jun 26, 2019 · c72500a · c72500a
2 parents a7873f1 + 831ec0f
commit c72500a
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/qrpglesrc/CVTDDS.SQLRPGLE b/qrpglesrc/CVTDDS.SQLRPGLE
@@ -144,7 +144,10 @@
      or currentStep = LABEL_TABLE;
          if currentStep <> LABEL_TABLE;
              // Remove the hard-coded library name
-             scratchPad = %scanrpl(%trim(inLib) + '.' : '' : inSource);
+             // and use the new system name
+             scratchPad = %scanrpl( %trim(inLib) + '.' + %trim(inFile)
+                                  : %trim(inNewFile)
+                                  : inSource );
              WriteSource(scratchPad);
              currentStep = LABEL_TABLE;
          else;
@@ -158,7 +161,11 @@
      elseif StartsWith(%trim(inSource) : 'LABEL ON COLUMN ')
      or currentStep = LABEL_COLUMN;
          if currentStep <> LABEL_COLUMN;
-             scratchPad = %scanrpl(%trim(inLib) + '.' : '' : inSource) ;
+             // Remove the hard-coded library name
+             // and use the new system name
+             scratchPad = %scanrpl( %trim(inLib) + '.' + %trim(inFile)
+                                  : %trim(inNewFile)
+                                  : inSource );
              WriteSource(scratchPad);
              WriteSource('(');
              currentStep = LABEL_COLUMN;