SSRS - 2000 Query to Retreive all the reports subscribed to a File Share

select DeliveryExtension,ExtensionSettings
,CHARINDEX('\\', ExtensionSettings)
,substring(ExtensionSettings,CHARINDEX('\\', ExtensionSettings),80)
from CataLog c (nolock)inner join ReportSchedule r (nolock)
on (c.ItemID = r.reportid)
inner join Subscriptions s (nolock)
on (s.SubscriptionID = r.SubscriptionID)
where DeliveryExtension = 'Report Server FileShare'
and ExtensionSettings like '%PATH%'