I also coded (for SQLServer) some SQL to search for quoted text inside peoplecode (such as COBOL calls):
select OBJECTVALUE1
+ (case when OBJECTVALUE2 <> ' ' then '.' + OBJECTVALUE2 else '' end)
+ (case when OBJECTVALUE3 <> ' ' then '.' + OBJECTVALUE3 else '' end)
+ (case when OBJECTVALUE4 <> ' ' then '.' + OBJECTVALUE4 else '' end)
+ (case when OBJECTVALUE5 <> ' ' then '.' + OBJECTVALUE5 else '' end)
+ (case when OBJECTVALUE6 <> ' ' then '.' + OBJECTVALUE6 else '' end)
+ (case when OBJECTVALUE7 <> ' ' then '.' + OBJECTVALUE7 else '' end)
ObjectName
from dbo.PSPCMPROG, (select '%SRPC%' s) s
where convert(nvarchar(3100), substring(PROGTXT,1,3100)) like s.s
or convert(nvarchar(3100), substring(PROGTXT,3001,3100)) like s.s
or convert(nvarchar(3100), substring(PROGTXT,6001,3100)) like s.s
or convert(nvarchar(3100), substring(PROGTXT,9001,3100)) like s.s
or convert(nvarchar(3100), substring(PROGTXT,12001,3100)) like s.s
or convert(nvarchar(3100), substring(PROGTXT,15001,3100)) like s.s
or convert(nvarchar(3100), substring(PROGTXT,18001,3100)) like s.s
or convert(nvarchar(3100), substring(PROGTXT,21001,3100)) like s.s
or convert(nvarchar(3100), substring(PROGTXT,24001,3100)) like s.s
or convert(nvarchar(1000), substring(PROGTXT,27001,1000)) like s.s
searching
I also coded (for SQLServer) some SQL to search for quoted text inside peoplecode (such as COBOL calls):