Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ClassMethod ProjectLength(Mask As %String = "%Package%")
- {
- Set count = 0
- Set rset = ##class(%SQL.Statement).%ExecDirect(,"SELECT Name FROM %Dictionary.ClassDefinition WHERE NOT Name %STARTSWITH '%sqlcq' AND Name LIKE ?", Mask)
- While rset.%Next() {
- Set class = rset.%Get("Name")
- Do ##class(%Compiler.UDL.TextServices).GetTextAsArray(, class, .raw)
- Set lines = $ORDER(raw($CHAR(0)), -1)
- Write class, $JUSTIFY("", 40-$LENGTH(class)), $JUSTIFY(lines, 7), !
- Set count = count + lines
- }
- Write "Total ", $JUSTIFY("", 34), $JUSTIFY(count, 7)
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement