Define Verb  SYSMSG

  Image  "HERE:SYSMSG"

    Qualifier  XYZYX , Default, Value( Default="HERE:SYSMSG.CURRENT" )

    Parameter  P1 , Value( Type=MSGKWD )

      Define Type  MSGKWD
        Keyword  LOGIN