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