RPGLE - Remove quotes from a data string

    RPGLE  - Remove quotes from a data string

D qtScan          S              9B 0
     D qtText          S            256A
     C*-----------------------------------------------------------------
     C                   Z-ADD     1             qtScan
     C                   Dow       qtScan  > 0 and qtScan <= %size(qtText)
     c     ''''          Scan      qtText:qtScan qtScan
     C                   if        qtScan > 0
     C                   eval      qtText = %subst(qtText: 1 : qtScan) +
     C                              '''' +  %subst(qtText: qtScan+1)
     C                   Add       2             qtScan
     C                   endIf
     C                   endDo