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