Examples: ListInDbCatalog property (NotesDatabase - LotusScript®)

This agent toggles whether the current database is listed in a database catalog.

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  If db.ListInDbCatalog Then
    db.ListInDbCatalog = False
    Print "List in database catalog"
  Else
    db.ListInDbCatalog = True
    Print "Do not list in database catalog"
  End If
End Sub