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