Searching Schemas

[Kelly Burgess]

A one-liner version just for exercise.

Do schemaList.$define(schemaName)
 +$clib.$schemas.$sendall(schemaName.$assign($sendallref.$name)
   +$ref.$objs.$sendall(schemaList.$add(schemaName),$ref.$name=pColumnName))
Quit method schemaList

Kelly

> On Jan 26, 2021, at 2:37 PM, Kelly Burgess <kellyb at montana.com> wrote:
> 
> Hi Dawid,
> 
> Here's another approach - pass in pColumnName, get a list back.  I'm still wondering if you could flatten all that into a one-liner with a $sendall...
> 
> Kelly
> 
> 
> Do schemaList.$define(schemaName)
> Do $clib.$schemas.$first() Returns schemaRef
> While schemaRef
> 	Do schemaRef.$objs.$findname(pColumnName) Returns colRef
> 	If colRef
> 		Do schemaList.$add(schemaRef.$name)
> 	End If
> 	Do $clib.$schemas.$next(schemaRef) Returns schemaRef
> End While
> Quit method schemaList
>