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