Searching Schemas

[Das Goravani]

The code you need is buried in this sample. You can make a list of schemas, you can make a list of fields within one, and go down them and see if they are named the one you’re looking for. I wish this preserved indentation but oh well. 


Do tvFileRSNs.$define(tvfilename,tvrsnfieldname)
Do $schemas.$makelist($ref.$name) Returns lfileslist
Do lfileslist.$redefine(tvfilename)
Do lfileslist.$line.$assign(1)
Repeat
Do lfileslist.$loadcols()
Do $schemas.[tvfilename].$objs.$makelist($ref.$name,$ref.$coltype) Returns lfieldslist
Do lfieldslist.$redefine(tvrsnfieldname,lfieldtype)
Do lfieldslist.$search(lfieldslist.lfieldtype='sequence',1,0,1,1) Returns #F
If flag true
Do lfieldslist.$first(kTrue)
Do lfieldslist.$loadcols()
Do tvFileRSNs.$add()
End If
Do lfileslist.$line.$assign(lfileslist.$line+1)
Until lfileslist.$line>lfileslist.$linecount
Do tvFileRSNs.$line.$assign(1)
Repeat
Do tvFileRSNs.$loadcols()
Calculate tvfilename as con('f',mid(tvfilename,2,30))
Do tvFileRSNs.$assigncols()
Do tvFileRSNs.$line.$assign(tvFileRSNs.$line+1)
Until tvFileRSNs.$line>tvFileRSNs.$linecount

> On Jan 26, 2021, at 10:17 AM, Dawid Mocke <dawidmocke at gmail.com> wrote:
> 
> Hi Guys,
> I am looking for a way to find all schemas in my Library with a column
> called ClientNo.
> I have not done Omnis programming in a looooong time, and I am seriously
> rustic.
> Could one of you wizards please help me out?
> 
> I would like to dump the list of schema names into a list.
> 
> thank you
> 
> -- 
> 
> Dawid Mocke
> This message (and any associated files) is intended only for the use of the
> individual or entity to which it is addressed and may contain information
> that is confidential, subject to copyright or constitutes a trade secret.
> If you are not the intended recipient you are hereby notified that any
> dissemination, copying or distribution of this message, or files associated
> with this message, is strictly prohibited. If you have received this
> message in error, please notify us immediately by replying to the message
> and deleting it from your computer.
> _____________________________________________________________
> Manage your list subscriptions at http://lists.omnis-dev.com
> Start a new message -> mailto:omnisdev-en at lists.omnis-dev.com