MACRO                                                          00001000
&NM      DMSFRET &DWORDS=,             <NUMBER> | (0)                  *00002000
               &LOC=,                  LA-ADDRESS> | (1)               *00003000
               &TYPCALL=SVC,           SVC | BALR                      *00004000
               &ERR=,                  <LA-ADDRESS> | *                *00005000
               &MSG=YES                YES | NO                         00006000
         AIF   ('&NM' EQ '').NONM                                       00007000
&NM      DS    0H                                                       00008000
.NONM    ANOP                                                           00009000
         AIF   ('&DWORDS' EQ '(0)').NOZ                                 00010000
         L     0,=A(&DWORDS)           SIZE OF BLOCK IN DOUBLEWORDS     00011000
.NOZ     ANOP                                                           00012000
         AIF   ('&LOC' EQ '(1)').NOO                                    00013000
         LA    1,&LOC                  ADDRESS OF BLOCK                 00014000
.NOO     ANOP                                                           00015000
         DMSFRX &TYPCALL,0,5,&MSG,&ERR                                  00016000
         MEND                                                           00017000