BCAS DEFINITIONS XER INSTRUCTIONS ::= BEGIN

BBCard ::= SEQUENCE {
name [ATTRIBUTE] VisibleString (SIZE (1..60)),
team [ATTRIBUTE] VisibleString (SIZE (1..60)),
age INTEGER (1..100),
position VisibleString (SIZE (1..60)),
handedness ENUMERATED
{left-handed(0), right-handed(1), ambidextrous(2)} }

myCard BBCard ::= {
name "Casey",
team "Mudville Nine",
age 32,
position "left field",
handedness right-handed
}

ENCODING-CONTROL XER
GLOBAL-DEFAULTS MODIFIED-ENCODINGS
NAME ALL IN BBCard AS CAPITALIZED
TEXT BBCard.handedness:left-handed AS "left handed"
TEXT BBCard.handedness:right-handed AS "right handed"
NAMESPACE BBCard AS "http://www.example.com" PREFIX "oss"

END