*%GOTO PLSEVNT1; /* 02000003 MACRO 03000003 IHAEVNT 04000003 .*/ %PLSEVNT1:; 05000003 */********************************************************************/ 06000003 */* */ 07000003 */* MACMEAN EVENTS TABLE DSECT */ 08000003 */* */ 09000003 */* MACCOMP Y1 SC1CL / PZD81 */ 10000003 */* */ 11000003 */* MACSTAT Y1 74214 / Y30HPVA */ 12000003 */* */ 13000003 */********************************************************************/ 14000003 * %GOTO PLSEVNT2; /* 15000003 SPACE 16000003 EVNT DSECT 17000003 EVNTBEGN DS 0D BEGINING OF EVENT TABLE 18000003 EVNTHEDR DS 0D EVENT TABLE HEADER 19000003 EVNTLNK DS A EVENT TABLE QUEUE LINK PTR 20000003 EVNTTCBP DS A TCB POINTER 21000003 EVNTRBP DS A WAITING RB POINTER 22000003 EVNTFST DS A PTR TO FIRST EVENT ENTRY 23000003 EVNTLST DS A PTR TO LAST ENTRY OF TABLE 24000003 EVNTLSTA DS A PTR TO LAST ACTIVE EVENT 25000003 * ENTRY IN TABLE 26000003 EVNTFLG1 DS AL1 EVENT TABLE FLAGS 27000003 EVNTUPR EQU X'80' UPDATE EVENT TABLE INDICATOR 27200003 EVNTLNTH DS AL3 LENGTH OF EVENT TABLE 28000003 EVNTRES2 DS A RESERVED 29000003 EVNTRES3 DS A RESERVED 30000003 EVNTDUMY DS A DUMMY EVENT ENTRY 31000003 EVNTHEND DS 0A END OF EVENT TABLE HEADER 31500003 EVNTENTY DS 0A EVENT ENTRY 32000003 EVNTFLGS DS AL1 EVENT ENTRY FLAGS 33000003 EVNTENDL EQU X'80' END OF LIST INDICATOR 34000003 EVNTENTP DS AL3 PTR TO POSTED ECB 35000003 MEND 36000003 **/ 37000003 * %PLSEVNT2:; 38000003 * DCL 38500003 * 1 EVNT BASED(EVNTPTR), 39000003 * 2 EVNTBEGN, /* BEGINING OF EVENT TABLE */ 40000003 * 4 EVNTHEDR, /* EVENT TABLE HEADER */ 41000003 * 6 EVNTLNK PTR(31), /* EVENT TABLE QUEUE LINK PTR */ 42000003 * 4 EVNTTCBP PTR(31), /* TCB POINTER */ 43000003 * 4 EVNTRBP PTR(31), /* WAITING RB POINTER */ 44000003 * 4 EVNTFST PTR(31), /* PTR TO FIRST EVENT ENTRY */ 45000003 * 4 EVNTLST PTR(31), /* PTR TO LAST ENTRY OF TABLE */ 46000003 * 4 EVNTLSTA PTR(31), /* PTR TO LAST ACTIVE EVENT 47000003 * ENTRY IN TABLE */ 48000003 * 4 EVNTFLG1 BIT(8), /* EVENT TABLE FLAGS */ 48700003 * 6 EVNTUPR BIT(1), /* UPDATE EVENT TABLE INDICATOR */ 48800003 * 4 EVNTLNTH PTR(24), /* LENGTH OF EVENT TABLE */ 49400003 * 4 EVNTRES2 PTR(31), /* RESERVED */ 50100003 * 4 EVNTRES3 PTR(31), /* RESERVED */ 50800003 * 4 EVNTDUMY PTR(31), /* DUMMY EVENT ENTRY */ 51500003 * 2 EVNTHEND; /* END OF EVENT TABLE HEADER */ 52200003 * DCL 52900003 * 1 EVNTENTY(*) PTR(31) BASED(EVNTEPTR),/* EVENT ENTRY */ 54000003 * 2 EVNTFLGS PTR(8), /* EVENT ENTRY FLAGS */ 57000003 * 4 EVNTENDL BIT(1), /* END OF LIST INDICATOR */ 60000003 * 4 * BIT(7), /* UNUSED */ 63000003 * 2 EVNTENTP PTR(24); /* PTR TO POSTED ECB */ 66000003