Conference azur::mcc

716.0. "Quiz on Event MSL" by COOKIE::KITTELL (Richard - Architected Info Mgmt) Tue Feb 12 1991 09:47

Okay, MSL savants, I've been staring at this till I'm cross-eyed. The V1.1
MSL compiler is happy with the first two events in the partition, Access
Denied and Access Granted. For all the others, it lists each line with the

%MCCMSL-E-TEXT, "EVENT Retension Thresh Crossed = 91 : " was not parsed

error message. I thought maybe I had the COUNTED AS syntax wrong, so I
commented them out, to no avail. Can anyone see what I'm missing?

Thanks.

       EVENT PARTITION MLS Events = 1 :
         EVENT Access Denied = 118 :
            (* Generated whenever an ACL is evaluated and access is
               denied. *)
           SYMBOL = EV_ACCESS_DENIED,
           TEXT = "Access Denied",
           ARGUMENT Directive Attempted = 41 : Directives
             SYMBOL = ARG_DIRECTIVE
           END ARGUMENT Directive Attempted;
           ARGUMENT Principal = 113 : PrincipalId
             SYMBOL = ARG_PRINCIPAL
           END ARGUMENT Principal;
         END EVENT Access Denied;

         EVENT Access Granted = 119 :
           (* Generated whenever an ACL is evaluated and access is
              granted. Note that some directives may generate a directive
              when they complete. If so, the completion event is in
              addition to this one. *)
           SYMBOL = EV_ACCESS_GRANTED,
           TEXT = "Access Granted",
           ARGUMENT Directive = 41 : Directives
             SYMBOL = ARG_DIRECTIVE
           END ARGUMENT Directive;
           ARGUMENT Principal = 113 : PrincipalId
             SYMBOL = ARG_PRINCIPAL
           END ARGUMENT Principal;
         END EVENT Access Granted;

         EVENT Retension Thresh Crossed = 91 :
           (* Generated for a Side in the Assigned state, when the
              current time passes the Retension Time attribute value plus
              the Media Type's Retension Period. *)
           SYMBOL = EV_RETENSION_THRESH,
           TEXT = "Retension Time Reached"
         END EVENT Retension Thresh Crossed;

         EVENT Release Thresh Crossed = 93 :
           (* Generated when the current time passes the value of
              the Release Threshold attribute, and the Policy enables
              Automatic Release. *)
           SYMBOL = EV_RELEASE_THRESH,
(*           COUNTED AS = (Release Thresh Crossings), *)
           TEXT = "Release Time Reached"
         END EVENT Release Thresh Crossed;

         EVENT Clean Thresh Crossed = 148 :
           (* Generated for a Side when
               The current time passes the Clean Time attribute value plus
                the Media Type's Cleaning Interval, or
               The Loads Since Cleaned attribute value exceeds the
                Media Type's Loads Per Cleaning attribute value, or
               The Soft Read Errors value exceeds the Media Type's
                Read Error Threshold *)
           SYMBOL = EV_CLEAN_THRESH,
(*           COUNTED AS = (Clean Thresh Crossings), *)
           TEXT = "Cleaning Time or Loads Per Cleanings Reached"
           ARGUMENT Clean Time = 143 : BINABSTIM
             SYMBOL = ARG_CLEAN_TIME
           END ARGUMENT Clean Time;
           ARGUMENT Loads Since Cleaned = 36 : Counter32
             SYMBOL = ARG_CLEAN_LOADS
           END ARGUMENT Loads Since Cleaned;
           ARGUMENT Soft Read Errors = 73 : Counter32
             SYMBOL = ARG_SOFT_READ_ERRS
           END ARGUMENT Soft Read Errors;
         END EVENT Clean Thresh Crossed;

         EVENT Discard Thresh Crossed = 150 :
           (* Generated when:
                The current time passes the value of the Discard Threshold
                 attribute, or
                The value of the Clean Completes attribute exceeds the
                 Media Type's Maximum Cleanings value, or
                The Loads value exceeds the Media Type's Loads Threshold, or
                The Soft Write Errors value exceeds the Media Type's
                 Write Error Threshold *)
           SYMBOL = EV_DISCARD_THRESH,
(*           COUNTED AS = (Discard Thresh Crossings), *)
           TEXT =
"Discard Threshold, Max Cleanings, Loads Limit or Soft Error Threshold Reached"
           ARGUMENT Discard Threshold = 144 : BINABSTIM
             SYMBOL = ARG_DISCARD_THRESH
           END ARGUMENT Discard Threshold;
           ARGUMENT Clean Completes = 89 : Unsigned32
             SYMBOL = ARG_CLEAN_COMPLETES
           END ARGUMENT Clean Completes;
           ARGUMENT Loads = 19 : Counter32
             SYMBOL = ARG_LOADS
           END ARGUMENT Loads;
           ARGUMENT Soft Write Errors = 72 : Counter32
             SYMBOL = ARG_SOFT_WRITE_ERRS
           END ARGUMENT Soft Write Errors; 
         END EVENT Discard Thresh Crossed;

         EVENT Repack Thresh Crossed = 152 :
           (* Generated when the current time passes the value of
              the Repack Threshold attribute *)
           SYMBOL = EV_REPACK_THRESH,
(*           COUNTED AS = (Repack Thresh Crossings), *)
           TEXT = "Repack Time Reached"
         END EVENT Repack Thresh Crossed;

       END EVENT PARTITION MLS Events;

Commas are missing at the end of the TEXT fields.


Try :

           TEXT = "Release Time Reached",

Instead of :

           TEXT = "Release Time Reached"


Regards

Pierre.

Thanks, Pierre.

We seem to have a bit of an inconsistency.  In the MSL specification of
an attribute, the clause preceding the END ATTRIBUTE *cannot* end in a
comma, or it won't parse. But in the MSL for an event, if the text clause
precedes the END EVENT, it *must* be terminated by a comma.

Thus, 

	ATTRIBUTE mumble = 1 : SimpleName
	   SYMBOL = ATTR_MUMBLE,
	   DISPLAY = TRUE,
	END ATTRIBUTE mumble;

will fail, while

         EVENT Retension Thresh Crossed = 91 :
           (* Generated for a Side in the Assigned state, when the
              current time passes the Retension Time attribute value plus
              the Media Type's Retension Period. *)
           SYMBOL = EV_RETENSION_THRESH,
           TEXT = "Retension Time Reached",
         END EVENT Retension Thresh Crossed;

is the only way it will work.

Next on our tour of eventful MSL curiosities: COUNTED AS

Given an attribute in the COUNTERs partition:

         ATTRIBUTE Occupancy Thresh Crossings = 157 : Counter32
           (* The number of times the Occupancy Thresh Crossed event
              has been generated. *)
           SYMBOL = ATTR_OCCU_THRESH_CROSSINGS
         END ATTRIBUTE Occupancy Thresh Crossings;
 
and this event in the event partition

         EVENT Occupancy Thresh Crossed = 156 :
         (* Generated when the Occupancy attribute value falls below
            that of the Occupancy Threshold attribute value. *)
           SYMBOL = EV_OCCU_THRESH_CROSSED,
           TEXT = "Media in scratch collection below threshold",
           COUNTED AS = (Occupancy Thresh Crossings),
         END EVENT Occupancy Thresh Crossed;

yields 

%MCCMSL-E-TEXT, "EVENT Occupancy Thresh Crossed = 156 : " was not parsed

%MCCMSL-E-TEXT, "SYMBOL = EV_OCCU_THRESH_CROSSED , " was not parsed

%MCCMSL-E-TEXT, "TEXT = " Media in scratch collection below threshold " , " was
not parsed

%MCCMSL-E-TEXT, "COUNTED AS = ( Occupancy Thresh Crossings ) , " was not parsed

%MCCMSL-E-TEXT, "END EVENT Occupancy Thresh Crossed " was not parsed

I have tried it with and without the terminating comma on the COUNTED AS.

To define EVENTS you have to follow *exactly* the order described in the SRM:

    EVENT

	[ DISPLAY ...]
	[ COUNTED AS ... ]
	[ SYMBOL ... ]
	[ TEXT ... ]
	[ ARGUMENT  ... ]...

    END EVENT


In your case the COUNTED AS field is not before the SYMBOL definition.

Regards

Pierre.

And thank you again, Pierre.