MACRO                                                          00001000
         SYSNAMES &SECT                                                 00002000
         AIF   ('&SECT' EQ 'CSECT').CSECT                               00003000
SYSNAMES DSECT                                                          00004000
         AGO   .CONT                                                    00005000
.CSECT   ANOP                                                           00006000
SYSNAMES DS    0D                                                       00007000
         ENTRY SYSNAMES                                                 00008000
.CONT    ANOP                                                           00009000
CMSSEG   DC    CL8'CMSSEG'    CMS SHARED SYSTEM NAME                    00010000
CMSVSAM  DC    CL8'CMSVSAM'   VSAM SHARED SYSTEM NAME                   00011000
CMSAMS   DC    CL8'CMSAMS'    AMS SHARED SYSTEM NAME                    00012000
CMSDOS   DC    CL8'CMSDOS'    DOS SHARED SYSTEM NAME                    00013000
SYSNEND  DS    0D                                                       00014000
SYSNCNT  EQU   (SYSNEND-SYSNAMES)/8                                     00015000
         EJECT                                                          00016000
         MEND                                                           00017000