; ! These are the DATATRIEVE definitions for the cluster (?????5 and ! ?????6). DELETE CPUIDLE; DEFINE DOMAIN CPUIDLE USING VAX_CPU_IDLE_REC ON PERFORM:CPUIDLBCK.DTR; DELETE FREEMEM5; DEFINE DOMAIN FREEMEM5 USING VAX5_FREEMEM_REC ON PERFORM:FREEMEMBCK.DTR; DELETE PAGEFAULT; DEFINE DOMAIN PAGEFAULT USING VAX_PAGE_FAULT_REC ON PERFORM:PAGEFLTBCK.DTR; DELETE DUA0_CAP; DEFINE DOMAIN DUA0_CAP USING VAX_DUA0_CAP_REC ON PERFORM:DUA0CAPBCK.DTR; DELETE DUA0_IO; DEFINE DOMAIN DUA0_IO USING VAX_DUA0_IO_REC ON PERFORM:DUA0IOBCK.DTR; DELETE DUA1_CAP; DEFINE DOMAIN DUA1_CAP USING VAX_DUA1_CAP_REC ON PERFORM:DUA1CAPBCK.DTR; DELETE DUA1_IO; DEFINE DOMAIN DUA1_IO USING VAX_DUA1_IO_REC ON PERFORM:DUA1IOBCK.DTR; DELETE DUA2_CAP; DEFINE DOMAIN DUA2_CAP USING VAX_DUA2_CAP_REC ON PERFORM:DUA2CAPBCK.DTR; DELETE DUA2_IO; DEFINE DOMAIN DUA2_IO USING VAX_DUA2_IO_REC ON PERFORM:DUA2IOBCK.DTR; DELETE DUA3_CAP; DEFINE DOMAIN DUA3_CAP USING VAX_DUA3_CAP_REC ON PERFORM:DUA3CAPBCK.DTR; DELETE DUA3_IO; DEFINE DOMAIN DUA3_IO USING VAX_DUA3_IO_REC ON PERFORM:DUA3IOBCK.DTR; DELETE DUA4_CAP; DEFINE DOMAIN DUA4_CAP USING VAX_DUA4_CAP_REC ON PERFORM:DUA4CAPBCK.DTR; DELETE DUA4_IO; DEFINE DOMAIN DUA4_IO USING VAX_DUA4_IO_REC ON PERFORM:DUA4IOBCK.DTR; DELETE DUA5_CAP; DEFINE DOMAIN DUA5_CAP USING VAX_DUA5_CAP_REC ON PERFORM:DUA5CAPBCK.DTR; DELETE DUA5_IO; DEFINE DOMAIN DUA5_IO USING VAX_DUA5_IO_REC ON PERFORM:DUA5IOBCK.DTR; DELETE DUA11_CAP; DEFINE DOMAIN DUA11_CAP USING VAX_DUA11_CAP_REC ON PERFORM:DUA11CAPBCK.DTR; DELETE DUA11_IO; DEFINE DOMAIN DUA11_IO USING VAX_DUA11_IO_REC ON PERFORM:DUA11IOBCK.DTR; DELETE DUA14_CAP; DEFINE DOMAIN DUA14_CAP USING VAX_DUA14_CAP_REC ON PERFORM:DUA14CAPBCK.DTR; DELETE DUA14_IO; DEFINE DOMAIN DUA14_IO USING VAX_DUA14_IO_REC ON PERFORM:DUA14IOBCK.DTR; DELETE NOUSERS; DEFINE DOMAIN NOUSERS USING VAX_NO_USERS_REC ON PERFORM:NOUSERBCK.DTR; DELETE PERFORMANCE; DEFINE DOMAIN PERFORMANCE USING VAX_PERFORM_DATA ON PERFORM:SVCLEVBCK.DTR; DELETE VAX_CPU_IDLE_PLOT; DEFINE PROCEDURE VAX_CPU_IDLE_PLOT ; READY CPUIDLE FIND CPUIDLE SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, CPU_IDLE ("VAX5 CPU % IDLE") !ON CPUIDLE.PLT PLOT LR !ON CPUIDLE.PLT PLOT CONNECT !ON CPUIDLE.PLT FINISH END-PROCEDURE DELETE VAX_CPU_IDLE_REC; DEFINE RECORD VAX_CPU_IDLE_REC USING 01 VAX_CPU_IDLE_REC. 02 DATE PIC X(11). 02 FILLER PIC X(25). 02 CPU_IDLE PIC X(2). 02 PERCENT PIC X(1). 02 FILLER2 PIC X(216). ; DELETE VAX5_FREEMEM_PLOT; DEFINE PROCEDURE VAX5_FREEMEM_PLOT ; READY FREEMEM5 FIND FREEMEM5 SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, FREE_MEM ("VX5 % MEM USED") PLOT LR PLOT CONNECT FINISH END-PROCEDURE DELETE VAX5_FREEMEM_REC; DEFINE RECORD VAX5_FREEMEM_REC USING 01 VAX5_FREEMEM_REC. 02 DATE PIC X(11). 02 FILLER PIC X(25). 02 FREE_MEM PIC X(3). 02 PERCENT PIC X(1). 02 FILLER PIC X(215). ; DELETE VAX_PAGE_FAULT_PLOT; DEFINE PROCEDURE VAX_PAGE_FAULT_PLOT ; READY PAGEFAULT FIND PAGEFAULT SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, PAGE_FAULT ("VAX5 AVG FAULTS") !ON PAGEFAULT.PLT PLOT LR !ON PAGEFAULT.PLT PLOT CONNECT !ON PAGEFAULT.PLT FINISH END-PROCEDURE DELETE VAX_PAGE_FAULT_REC; DEFINE RECORD VAX_PAGE_FAULT_REC USING 01 VAX_PAGE_FAULT_REC. 02 DATE PIC X(11). 02 FILLER PIC X(39). 02 PAGE_FAULT PIC X(3). 02 FILLER2 PIC X(202). ; DELETE VAX_DUA0_CAP_PLOT; DEFINE PROCEDURE VAX_DUA0_CAP_PLOT ; READY DUA0_CAP FIND DUA0_CAP SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_CAP ("CLSTR DUA0|% CAP ") !ON DUA0CAP.PLT PLOT LR !ON DUA0CAP.PLT PLOT CONNECT !ON DUA0CAP.PLT FINISH END-PROCEDURE DELETE VAX_DUA0_CAP_REC; DEFINE RECORD VAX_DUA0_CAP_REC USING 01 VAX_DUA0_CAP_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 TIME PIC X(7). 02 DR_CAP PIC X(3). 02 FILLER2 PIC X(228). ; DELETE VAX_DUA0_IO_PLOT; DEFINE PROCEDURE VAX_DUA0_IO_PLOT ; READY DUA0_IO FIND DUA0_IO SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_IO_SEC ("CLSTR DUA0|IO") !ON DUA0IO.PLT PLOT LR !ON DUA0IO.PLT PLOT CONNECT !ON DUA0IO.PLT FINISH END-PROCEDURE DELETE VAX_DUA0_IO_REC; DEFINE RECORD VAX_DUA0_IO_REC USING 01 VAX_DUA0_IO_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 FILLER PIC X. 02 TIME PIC X(11). 02 FILLER PIC X(13). 02 DR_IO_SEC PIC X(4). 02 FILLER PIC X(209). ; DELETE VAX_DUA1_CAP_PLOT; DEFINE PROCEDURE VAX_DUA1_CAP_PLOT ; READY DUA1_CAP FIND DUA1_CAP SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_CAP ("CLSTR DUA1|% CAP") !ON DUA1CAP.PLT PLOT LR !ON DUA1CAP.PLT PLOT CONNECT !ON DUA1CAP.PLT FINISH END-PROCEDURE DELETE VAX_DUA1_CAP_REC; DEFINE RECORD VAX_DUA1_CAP_REC USING 01 VAX_DUA1_CAP_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 TIME PIC X(7). 02 DR_CAP PIC X(3). 02 FILLER2 PIC X(228). ; DELETE VAX_DUA1_IO_PLOT; DEFINE PROCEDURE VAX_DUA1_IO_PLOT ; READY DUA1_IO FIND DUA1_IO SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_IO_SEC ("CLSTR DUA1|IO") !ON DUA1IO.PLT PLOT LR !ON DUA1IO.PLT PLOT CONNECT !ON DUA1IO.PLT FINISH END-PROCEDURE DELETE VAX_DUA1_IO_REC; DEFINE RECORD VAX_DUA1_IO_REC USING 01 VAX_DUA1_IO_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 FILLER PIC X. 02 TIME PIC X(11). 02 FILLER PIC X(13). 02 DR_IO_SEC PIC X(4). 02 FILLER PIC X(209). ; DELETE VAX_DUA2_CAP_PLOT; DEFINE PROCEDURE VAX_DUA2_CAP_PLOT ; READY DUA2_CAP FIND DUA2_CAP SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_CAP ("CLSTR DUA2|%CAP") !ON DUA2CAP.PLT PLOT LR !ON DUA2CAP.PLT PLOT CONNECT !ON DUA2CAP.PLT FINISH END-PROCEDURE DELETE VAX_DUA2_CAP_REC; DEFINE RECORD VAX_DUA2_CAP_REC USING 01 VAX_DUA2_CAP_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 TIME PIC X(7). 02 DR_CAP PIC X(3). 02 FILLER2 PIC X(228). ; DELETE VAX_DUA2_IO_PLOT; DEFINE PROCEDURE VAX_DUA2_IO_PLOT ; READY DUA2_IO FIND DUA2_IO SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_IO_SEC ("CLSTR DUA2|IO") !ON DUA2IO.PLT PLOT LR !ON DUA2IO.PLT PLOT CONNECT !ON DUA2IO.PLT FINISH END-PROCEDURE DELETE VAX_DUA2_IO_REC; DEFINE RECORD VAX_DUA2_IO_REC USING 01 VAX_DUA2_IO_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 FILLER PIC X. 02 TIME PIC X(11). 02 FILLER PIC X(13). 02 DR_IO_SEC PIC X(4). 02 FILLER PIC X(209). ; DELETE VAX_DUA3_CAP_PLOT; DEFINE PROCEDURE VAX_DUA3_CAP_PLOT ; READY DUA3_CAP FIND DUA3_CAP SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_CAP ("CLSTR DUA3|% CAP") !ON DUA3CAP.PLT PLOT LR !ON DUA3CAP.PLT PLOT CONNECT !ON DUA3CAP.PLT FINISH END-PROCEDURE DELETE VAX_DUA3_CAP_REC; DEFINE RECORD VAX_DUA3_CAP_REC USING 01 VAX_DUA3_CAP_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 TIME PIC X(7). 02 DR_CAP PIC X(3). 02 FILLER2 PIC X(228). ; DELETE VAX_DUA3_IO_REC; DEFINE RECORD VAX_DUA3_IO_REC USING 01 VAX_DUA3_IO_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 FILLER PIC X. 02 TIME PIC X(11). 02 FILLER PIC X(13). 02 DR_IO_SEC PIC X(4). 02 FILLER PIC X(209). ; DELETE VAX_DUA3_IO_PLOT; DEFINE PROCEDURE VAX_DUA3_IO_PLOT ; READY DUA3_IO FIND DUA3_IO SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_IO_SEC ("CLSTR DUA3|IO") !ON DUA3IO.PLT PLOT LR !ON DUA3IO.PLT PLOT CONNECT !ON DUA3IO.PLT FINISH END-PROCEDURE DELETE VAX_DUA4_IO_REC; DEFINE RECORD VAX_DUA4_IO_REC USING 01 VAX_DUA4_IO_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 FILLER PIC X. 02 TIME PIC X(11). 02 FILLER PIC X(13). 02 DR_IO_SEC PIC X(4). 02 FILLER PIC X(209). ; DELETE VAX_DUA4_CAP_PLOT; DEFINE PROCEDURE VAX_DUA4_CAP_PLOT ; READY DUA4_CAP FIND DUA4_CAP SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_CAP ("CLSTR DUA4|% CAP") !ON DUA4CAP.PLT PLOT LR !ON DUA4CAP.PLT PLOT CONNECT !ON DUA4CAP.PLT FINISH END-PROCEDURE DELETE VAX_DUA4_CAP_REC; DEFINE RECORD VAX_DUA4_CAP_REC USING 01 VAX_DUA4_CAP_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 TIME PIC X(7). 02 DR_CAP PIC X(3). 02 FILLER2 PIC X(228). ; DELETE VAX_DUA4_IO_PLOT; DEFINE PROCEDURE VAX_DUA4_IO_PLOT ; READY DUA4_IO FIND DUA4_IO SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_IO_SEC ("CLSTR DUA4|IO") !ON DUA4IO.PLT PLOT LR !ON DUA4IO.PLT PLOT CONNECT !ON DUA4IO.PLT FINISH END-PROCEDURE DELETE VAX_DUA4_IO_REC; DEFINE RECORD VAX_DUA4_IO_REC USING 01 VAX_DUA4_IO_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 FILLER PIC X. 02 TIME PIC X(11). 02 FILLER PIC X(13). 02 DR_IO_SEC PIC X(4). 02 FILLER PIC X(209). ; DELETE VAX_DUA5_CAP_PLOT; DEFINE PROCEDURE VAX_DUA5_CAP_PLOT ; READY DUA5_CAP FIND DUA5_CAP SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_CAP ("CLSTR DUA5|% CAP") !ON DUA5CAP.PLT PLOT LR !ON DUA5CAP.PLT PLOT CONNECT !ON DUA5CAP.PLT FINISH END-PROCEDURE DELETE VAX_DUA5_CAP_REC; DEFINE RECORD VAX_DUA5_CAP_REC USING 01 VAX_DUA5_CAP_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 TIME PIC X(7). 02 DR_CAP PIC X(3). 02 FILLER2 PIC X(228). ; DELETE VAX_DUA5_IO_PLOT; DEFINE PROCEDURE VAX_DUA5_IO_PLOT ; READY DUA5_IO FIND DUA5_IO SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_IO_SEC ("CLSTR DUA5|IO") !ON DUA5IO.PLT PLOT LR !ON DUA5IO.PLT PLOT CONNECT !ON DUA5IO.PLT FINISH END-PROCEDURE DELETE VAX_DUA5_IO_REC; DEFINE RECORD VAX_DUA5_IO_REC USING 01 VAX_DUA5_IO_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 FILLER PIC X. 02 TIME PIC X(11). 02 FILLER PIC X(13). 02 DR_IO_SEC PIC X(4). 02 FILLER PIC X(209). ; DELETE VAX_DUA11_CAP_PLOT; DEFINE PROCEDURE VAX_DUA11_CAP_PLOT ; READY DUA11_CAP FIND DUA11_CAP SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_CAP ("CLSTR DUA11|% CAP") !ON DUA11CAP.PLT PLOT LR !ON DUA11CAP.PLT PLOT CONNECT !ON DUA11CAP.PLT FINISH END-PROCEDURE DELETE VAX_DUA11_CAP_REC; DEFINE RECORD VAX_DUA11_CAP_REC USING 01 VAX_DUA11_CAP_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 TIME PIC X(7). 02 DR_CAP PIC X(3). 02 FILLER2 PIC X(228). ; DELETE VAX_DUA11_IO_PLOT; DEFINE PROCEDURE VAX_DUA11_IO_PLOT ; READY DUA11_IO FIND DUA11_IO SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_IO_SEC ("CLSTR DUA11|IO") !ON DUA11IO.PLT PLOT LR !ON DUA11IO.PLT PLOT CONNECT !ON DUA11IO.PLT FINISH END-PROCEDURE DELETE VAX_DUA11_IO_REC; DEFINE RECORD VAX_DUA11_IO_REC USING 01 VAX_DUA11_IO_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 FILLER PIC X. 02 TIME PIC X(11). 02 FILLER PIC X(13). 02 DR_IO_SEC PIC X(4). 02 FILLER PIC X(209). ; DELETE VAX_DUA14_CAP_PLOT; DEFINE PROCEDURE VAX_DUA14_CAP_PLOT ; READY DUA14_CAP FIND DUA14_CAP SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_CAP ("CLSTR DUA14|% CAP") !ON DUA14CAP.PLT PLOT LR !ON DUA14CAP.PLT PLOT CONNECT !ON DUA14CAP.PLT FINISH END-PROCEDURE DELETE VAX_DUA14_CAP_REC; DEFINE RECORD VAX_DUA14_CAP_REC USING 01 VAX_DUA14_CAP_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 TIME PIC X(7). 02 DR_CAP PIC X(3). 02 FILLER2 PIC X(228). ; DELETE VAX_DUA14_IO_PLOT; DEFINE PROCEDURE VAX_DUA14_IO_PLOT ; READY DUA14_IO FIND DUA14_IO SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, DR_IO_SEC ("CLSTR DUA14|IO") !ON DUA14IO.PLT PLOT LR !ON DUA14IO.PLT PLOT CONNECT !ON DUA14IO.PLT FINISH END-PROCEDURE DELETE VAX_DUA14_IO_REC; DEFINE RECORD VAX_DUA14_IO_REC USING 01 VAX_DUA14_IO_REC. 02 DRIVE PIC X(6). 02 DATE PIC X(11). 02 FILLER PIC X. 02 TIME PIC X(11). 02 FILLER PIC X(13). 02 DR_IO_SEC PIC X(4). 02 FILLER PIC X(209). ; DELETE VAX_NO_USERS_PLOT; DEFINE PROCEDURE VAX_NO_USERS_PLOT ; READY NOUSERS FIND NOUSERS SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, NO_USERS ("VAX5 AVG USERS") !ON NOUSERS.PLT PLOT LR !ON NOUSERS.PLT PLOT CONNECT !ON NOUSERS.PLT FINISH END-PROCEDURE DELETE VAX_NO_USERS_REC; DEFINE RECORD VAX_NO_USERS_REC USING 01 VAX_NO_USERS_REC. 02 DATE PIC X(11). 02 FILLER PIC X(25). 02 NO_USERS PIC X(3). 02 FILLER2 PIC X(216).; ; DELETE VAX_PERFORM_PLOT; DEFINE PROCEDURE VAX_PERFORM_PLOT ; READY PERFORMANCE FIND PERFORMANCE SET PLOTS CDD$TOP.DTR$LIB.PLOTS PLOT DATE_Y ALL DATE, PERF_INDEX ("VAX5 SVC LEVEL") !ON PERDTRRPT.PLT PLOT LR !ON PERDTRRPT.PLT PLOT CONNECT !ON PERDTRRPT.PLT FINISH END-PROCEDURE DELETE VAX_PERFORM_DATA; DEFINE RECORD VAX_PERFORM_DATA USING 01 VAX_PERFORM_DATA. 02 DATE PIC X(11). 02 FILLER PIC X(1). 02 PERF_INDEX PIC X(4). 02 FILLER2 PIC X(239). ;