MACRO                                                          00001000
         DMSLND &D                                                      00002000
         GBLA  &DMSLNGA                                                 00003000
         LCLA  &K                                                       00004000
&K       SETA  0                                                        00005000
         AIF   ('&D' EQ 'ERRMSG').X                                     00006000
&K       SETA  1                                                        00007000
         AIF   ('&D' EQ 'TYPE').X                                       00008000
&K       SETA  2                                                        00009000
         AIF   ('&D' EQ 'SIO').X                                        00010000
&K       SETA  3                                                        00011000
         AIF   ('&D' EQ 'NONE').X                                       00012000
&K       SETA  4                                                        00013000
         AIF   ('&D' EQ 'PRINT').X                                      00014000
&K       SETA  5                                                        00015000
         AIF   ('&D' EQ 'CPCOMM').X                                     00016000
         MNOTE 8,'DMSLND004E ILLEGAL ''DISP'' VALUE'                    00017000
&K       SETA  1                                                        00018000
.X       ANOP                                                           00019000
&DMSLNGA SETA  &K                                                       00020000
         MEND                                                           00021000