MACRO 00001000
&LABEL HNDSVC &FNCT,&ERROR=*+4 00002000
LCLA &NUM 00003000
CNOP 0,4 00004000
AIF (T'&FNCT EQ 'O').ERR0 00005000
AIF ('&FNCT' NE 'CLR' AND '&FNCT' NE 'SET').ERR0 00006000
AIF (N'&SYSLIST LE 1).ERR1 00007000
&NUM SETA 1 00008000
&LABEL BAL 1,DMS&SYSNDX.A 00009000
DC CL8'HNDSVC' 00010000
DC CL4'&FNCT' 00011000
.LOOP ANOP 00012000
&NUM SETA &NUM+1 00013000
AIF (N'&SYSLIST LT &NUM).END 00014000
AIF (T'&SYSLIST(&NUM,1) EQ 'O').ERR2 00015000
AIF ('&FNCT' EQ 'CLR').CLR 00016000
AIF (T'&SYSLIST(&NUM,2) EQ 'O').ERR3 00017000
DC AL1(&SYSLIST(&NUM,1)),AL3(&SYSLIST(&NUM,2)) 00018000
AGO .LOOP 00019000
.CLR ANOP 00020000
DC AL1(&SYSLIST(&NUM,1)),AL3(0) 00021000
AGO .LOOP 00022000
.END ANOP 00023000
DC XL4'FFFFFFFF' 00024000
DMS&SYSNDX.A SVC 202 00025000
DC AL4(&ERROR) 00026000
MEXIT 00027000
.ERR0 MNOTE 8,'FUNCTION NAME OMITTED OR INVALID' 00028000
MEXIT 00029000
.ERR1 MNOTE 8,'SVC LIST NOT SPECIFIED' 00030000
MEXIT 00031000
.ERR2 MNOTE 4,'SVC NUMBER OMITTED - SKIPPED' 00032000
AGO .LOOP 00033000
.ERR3 MNOTE 4,'ADDRESS NOT SPECIFIED - SKIPPED' 00034000
AGO .LOOP 00035000
MEND 00036000