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