.type ITEM.TST
.TYPE This routine generates 3 errors
.type
.first title ITEM TEST
.header spacing 1
.flags substitute
.nf
.DEFINE ITEM /ROMAN/ RU 2 ;$ROMAN = II
.DEFINE ITEM /ITEM/ 0;$ITEM = 0
.NUMBER ITEM /ITEM/ +2;$ITEM = 2
.NUMBER ITEM /ITEM/ 10;$ITEM = 10
.number item /ROMAN/ 9;$ROMAN = IX
.number item /ROMAN/ +100;$ROMAN = CIX
.DEFINE ITEM /ALPHA/ LU B;$ALPHA = B
.NUMBER ITEM /ALPHA/ +26 ;$ALPHA = AB
.;NUMBER ITEM /ROMAN/ 3333 ;$ROMAN = MMMCCCXXXIII
$ALPHA = AB
.define number item /ALPHA/ /$ALPHA/
$$ALPHA = $ALPHA
.NUMBER ITEM /ITEM/3999 ;$ITEM = 3999
.NUMBER ITEM /ITEM/ +1 .;*** ERROR 1 NUMBER TOO BIG
.define item /ITEM/ .;*** ERROR 2 already defined.
.define item /ITEMS/ .;*** ERROR 3 - warning