Yes, the problem is gone! Thanks a lot for your help.

I just messaged you two snippets. Thanks again.

I will have time to prepare such a snippet tomorrow, sorry. Meanwhile, it's not necessarily one line off but up to several lines off, a few routines only. In your code, is it possible to extract text of the line for which tokens are calculated? I looked around and did not see such a possibility.

I have an odd problem. In vast majority of cases globals are defined by your code correctly. However, for some routines the lineNum as returned by GetNext is one line count off and the global with the stated token attributes is actually on the next line. I tried to slightly modify such routines and recompile, but it did not always help. Any advice?

Excellent, just excellent. It did find correctly all globals in a routine (no indirection). I populated in = ##class(%Stream.TmpCharacter).%New() with this code:
S NumLines=^ROUTINE(routineName,0,0)   ; Omit extension
F n=0:1:NumLines {
    S line=$T(@routineName+n^@routineName)
    D in.Write(line),in.Write($c(13,10))
}
D in.Rewind()

I also added this after your Write:
                Set line=$G(^ROUTINE(rtnName,0,lineNum+1))
                Write $C(9),$E(line,token.p+1,token.p+token.c),!
I did not try finding globals in classes, but I assume this would be very similar. Is there any online documentation that shows that token value for globals is 18? Would be curious about other token values.

Thanks, Brett. I did try using SyntaxColor but not with JSON and did not like the HTML results. I'll give your code a try.

Thanks, Yaron. I'll skip looking for indirections for now.

Thanks, Julius

$STACK, of course. It looks like current line is represented by $st(1,"MCODE"). Did not know about $zname. Thanks!

I made a mistake, now corrected: it's Cache, not Ensemble. It does have this function too. I'll post results here.

That's exactly what I was looking for!

I am using the %File class.

This approach indeed works on a small sample file. Not sure what matters here but I have a 50 MB file created with ^%RO and while FindAt does return position, not sure if a correct one, MoveTo fails to move to it. RO files seem not to have any control characters that might have disrupted FindAt somehow.

Yes, ReadLine works, thanks,

Less verbose and more elegant

Enrico, I meant how to programmatically reproduce information on the System > Configuration > Namespaces page in Management Portal. In other words, how to extract default databases listed under Routines on this page.

Thanks, Sarah. Changing the third argument to an empty one does not make a difference. Yes, the Used/Allocated difference is clear.

Thanks, Robert. A couple of additional questions.

• Would you say the Used Size from GetGlobalSize (Size argument from code above; 725 MB) is more correct or the %GSIZE result is more correct (760 MB)?
• What's your take on GetGlobalSizeBySubscript when called for all first level subscripts yielding a magnitude lesser number in total, 8.56 MB? Could it be it returns only contents of purely ^GLOBAL(sub1) and not returning contents of ^GLOBAL(sub1,sub2)? BTW, I saw in the debugger that  GetGlobalSizeBySubscript calls %GSIZE internally.

I was so focused on subscripts that I forgot about indirection :-) . Thanks!

Good to know!

Very interesting, thanks!