MACRO 00001000
SUBSECT &SECT 00002000
PUSH PRINT 00002200
AIF ('&SYSPARM' NE 'SUP').ACC01 00002400
PRINT OFF,NOGEN 00002600
.ACC01 ANOP 00002800
AIF ('&SECT' EQ 'CSECT').CSECT 00003000
SUBSECT DSECT 00004000
AGO .CONT 00005000
.CSECT ANOP 00006000
SUBSECT DS 0D 00007000
ENTRY SUBSECT 00008000
.CONT ANOP 00009000
* 00010000
* READY/TIME MESSAGE FORMATTING AREA 00011000
* 00012000
RMSGBUF DS 10F 00013000
* 00014000
* PLIST FOR GETTING TIMES FROM DMSINM 00015000
* 00016000
CMSTIM DS 0F 00017000
DC CL8'CMSTIME' 00018000
DS F - SPOT FOR VIRCPU 00019000
DS F - SPOT FOR TOTCPU 00020000
DS A - SPOT FOR ADDRESS OF TIME BUFFER 00021000
DS F - OCCUPIED LENGTH (FILLED IN BY CMSTIME) 00022000
* 00023000
* PLIST FOR ACTLKP AS USED BY SUBSET 00024000
* 00025000
DS 0F 00026000
STARS DC CL8'*' 00027000
DC CL8'*' 00028000
DC CL2'*' 00029000
* 00030000
* SUBSET ADDRESS STORAGE AREAS 00031000
* 00032000
DS 0F 00033000
ASUBRET DS F 00034000
STAESAV DS F 00035000
SPIESAV DS F 00036000
SWTCHSAV DS F 00037000
ASUBFST DS F 00038000
ASUBSTAT DS F 00039000
* 00040000
* WORK AREA FOR ERROR RETURN-CODE 00041000
* 00042000
ERRNUM DS D 00043000
* 00044000
* WORK AREA FOR DMSINM TO STORE DATE AND TIME 00045000
* 00046000
TIMBUF DS 4D 00047000
EJECT 00048000
POP PRINT 00048100
MEND 00049000