
  TYPE
    clt$when_condition = ost$name;

?? FMT (FORMAT := OFF) ??

  CONST
    clc$wc_any_condition            = 'ANY_CONDITION                  ',
    clc$wc_any_fault                = 'ANY_FAULT                      ',
    clc$wc_command_fault            = 'COMMAND_FAULT                  ',
    clc$wc_disconnect               = 'DISCONNECT                     ',
    clc$wc_execution_fault          = 'EXECUTION_FAULT                ',
    clc$wc_exit                     = 'EXIT                           ',
    clc$wc_limit_fault              = 'LIMIT_FAULT                    ',
    clc$wc_pause                    = 'PAUSE                          ',
    clc$wc_reconnect                = 'RECONNECT                      ',
    clc$wc_terminate                = 'TERMINATE                      ',
    clc$wc_unseen_mail              = 'UNSEEN_MAIL                    ';

?? FMT (FORMAT := ON) ??

*copyc ost$name
