         MACRO
&LAB     ENUM  &LIST,&START
&LAB     ANOP
         AIF   C:&~ENUM,.A
         GBLA  &~ENUM
.A
         AIF   C:&START=0,.B
&~ENUM   SETA  &START
.B
         LCLA  &CNT
&CNT     SETA  1
.C
&LIST(&CNT) EQU &~ENUM
&~ENUM   SETA  &~ENUM+1
&CNT     SETA  &CNT+1
         AIF   &CNT<=C:&LIST,^C
         MEND

         MACRO
&LAB     STR14 &STR
&LAB     DC    I1'L:A&SYSCNT'
A&SYSCNT DC    C'&STR'
         DS    14-L:A&SYSCNT
         MEND
