#define READSIZE  16000 
set sc=$$$OK
set cls="User.DerClass"
set obj=##class(%Dictionary.ClassDefinition).%OpenId(cls, 3 ,.sc) quit:$$$ISERR(sc) sc
for i= 1 : 1 :obj.Methods.Count() {
	w !,obj.Methods.GetAt(i).Name,!
	w obj.Methods.GetAt(i).Description,!,!
	do obj.Methods.GetAt(i).Implementation.Rewind()		
	set len=$$$READSIZE
	for j= 1 : 1  {
		set tmp=obj.Methods.GetAt(i).Implementation.Read(.len)
		w tmp
		quit:len<$$$READSIZE  
	}
}
set obj=""