* * %DCL DOMSMFR_INCLUDED CHAR EXT; * %DEACTIVATE DOMSMFR_INCLUDED; * %IF DOMSMFR_INCLUDED = '' %THEN * %DO; *%/* Start of PL/X PreProlog Code */; * *%/* End of PL/X PreProlog Code */; */* Macro made bi-lingual on 99203. CBGEN compile date 98009 */ *% /* MACRO DOMSMFR &DSECT=YES,&LIST=YES,&TITLE=YES,&SMFRCD108=YES, * &SMF108PR=COND,&SMF108SDS1=COND,&SMF108SL=COND, * &SMF108TR=COND,&SMF108PT=COND GBLC &DOMSMFR_INCLUDED GBLC &ZCBPRINT &DOMSMFR_INCLUDED SETC 'YES' AIF ('&LIST' EQ 'NONE').P0 AIF ('&TITLE' EQ 'NO').P5 TITLE 'DOMSMFR - Accounting: SMF Type 108 Record Mapping ' .P5 ANOP **/ DOMSMFR_1:; */* START OF SPECIFICATIONS ****************************************** * *01* Macro Name: DOMSMFR * *02* DSECT Name: SMFRCD108 * *01* Descriptive Name: Accounting: SMF Type 108 Record Mapping * *01* Component: Domino * * *01* PROPRIETARY STATEMENT= * * **PROPRIETARY_STATEMENT********************************************* * * * * * LICENSED MATERIALS - PROPERTY OF IBM * * THIS MODULE IS "RESTRICTED MATERIALS OF IBM" * * ........ (C) COPYRIGHT IBM CORP. 1999 * * SEE COPYRIGHT INSTRUCTIONS * * * * STATUS= Domino 5.0 * * * * **END_OF_PROPRIETARY_STATEMENT************************************** * *01* External Classification: GUPI * End of External Classification: * *01* Function: * * Provide installation with statistical data on the activity of * the Domino server address space as well as user activity. * *01* Location: * * Subpool: ... (private), * Key: 8 * Residency: ..... 16M Virtual * *01* Method of Access: * * ASM: DOMSMFR * * PLX-370: DCL SMF108PTR PTR(31) * %INCLUDE SYSLIB(DOMSMFR) * *01* Pointed to by: * * Register 1 on Entry to SMF Record Exit IEFU83 * *01* Created by: * * Domino Server * *01* Deleted by: * * Domino Server * *01* Size: * * Variable based upon type of record being mapped. * *01* Storage Estimate: * * 1 per Domino Server Address Space * *01* Eye Catcher: * * None * *02* Offset: None * *02* Length: None * * *01* Serialization: None * * None * *01* Distribution Library: * * APSPZLIB * *01* Change Activity: * * $MAC(DOMSMFR),COMP(.....),PROD(.......): Domino Sys Mgt: SMF Type 108 * * Flag Reason Release YYMMDD Origin Description * $L0= SMF DOM500 990701 WRR: SMF Recording @L0A * ** END OF SPECIFICATIONS *********************************************/ *% /* .P0 ANOP AIF ('&ZCBPRINT' EQ 'NO').P1 AIF ('&LIST' EQ 'YES').P2 .P1 ANOP PUSH PRINT PRINT OFF .P2 ANOP AIF ('&SMFRCD108' EQ 'NO').L0002 AIF ('&DSECT' EQ 'YES').L0003 AIF ('&SMFRCD108' NE 'YES').L0002 SMFRCD108 DS 0F SMF Type 108 Record Mapping AGO .L0004 .L0003 ANOP SMFRCD108 DSECT SMF Type 108 Record Mapping .L0004 ANOP * * General Header Section (mapping defined by SMF) * * SMF108HDR DS 0CL0024 SMF Record Header Fields SMF108LEN DS 1FL2 Record length SMF108SEG DS 1CL0002 Segment descriptor SMF108FLG DS 0CL0001 System indicator SMF108FWI EQU X'80' - WID Follows SID SMF108FST EQU X'40' - Subtypes Used ORG SMF108FLG+X'00000001' SMF108RTY DS 1FL1 Record type - 108, x'6C' SMF108TME DS 1FL4 SMF108DTE DS 1CL0004 Date that the record was moved to the SMF * buffer, in the form of 0cyydddF, where F is * the sign SMF108SID DS 1CL0004 System identification (taken from SID * parameter) SMF108SSI DS 1CL0004 Subsystem identifier SMF108STP DS 1FL2 Record Subtype * * General Self-Defining Section * * SMF108SDS DS 0CL0016 General Self-Defining Section SMF108PRO DS 1FL4 Offset of Product Section SMF108PRL DS 1FL2 Length of Product Section SMF108PRN DS 1FL2 Number of Product Sections SMF108SSO DS 1FL4 Offset of Subtype-Specifc Self-Defining * Section SMF108SSL DS 1FL2 Length of Subtype-Specifc Self-Defining * Section SMF108SSN DS 1FL2 Number of Subtype-Specifc Self-Defining * Section SMFRCD108_LEN EQU *-SMFRCD108 .L0002 ANOP * * Product Section * * AIF ('&SMF108PR' EQ 'NO').L0005 AIF ('&DSECT' EQ 'YES').L0006 AIF ('&SMF108PR' NE 'YES').L0005 SMF108PR DS 0F AGO .L0007 .L0006 ANOP SMF108PR DSECT .L0007 ANOP SMF108PRRVN DS 1FL4 Record Version Number (1= R5.0) * (2= R5.01) SMF108PRPVN DS 1CL0008 Product Version SMF108PRSVN DS 1CL0032 Server Name * SMF108PR_LEN EQU *-SMF108PR .L0005 ANOP * * Subtype 1 Self-Defing Section * * AIF ('&SMF108SDS1' EQ 'NO').L0008 AIF ('&DSECT' EQ 'YES').L0009 AIF ('&SMF108SDS1' NE 'YES').L0008 SMF108SDS1 DS 0F AGO .L000A .L0009 ANOP SMF108SDS1 DSECT .L000A ANOP SMF108SLO DS 1FL4 Offset of Server Load Section SMF108SLL DS 1FL2 Length of Server Load Section SMF108SLN DS 1FL2 Number of Server Load Sections SMF108TRO DS 1FL4 Offset of Transaction Section SMF108TRL DS 1FL2 Length of Transaction Section SMF108TRN DS 1FL2 Number of Transaction Sections SMF108PTO DS 1FL4 Offset of Port Activity Section SMF108PTL DS 1FL2 Length of Port Activity Section SMF108PTN DS 1FL2 Number of Port Activity Sections SMF108SDS1_LEN EQU *-SMF108SDS1 .L0008 ANOP * * Subtype 1 Server Load Section * * AIF ('&SMF108SL' EQ 'NO').L000B AIF ('&DSECT' EQ 'YES').L000C AIF ('&SMF108SL' NE 'YES').L000B SMF108SL DS 0F AGO .L000D .L000C ANOP SMF108SL DSECT .L000D ANOP SMF108SLCU DS 1FL4 current number of users SMF108SLUA DS 1FL4 number of currently connected users that are * currently active SMF108SLUA1M DS 1FL4 number of currently connected users that have * been active within the last 1 minute SMF108SLUA3M DS 1FL4 number of currently connected users that have * been active within the last 3 minutes SMF108SLUA5M DS 1FL4 number of currently connected users that have * been active within the last 5 minutes SMF108SLUA15M DS 1FL4 number of currently connected users that have * been active within the last 15 minutes SMF108SLUA30M DS 1FL4 number of currently connected users that have * been active within the last 30 minutes SMF108SLDMSENTL DS 1FL4 number of Domino mail messages delivered to * local users SMF108SLDMSENTLAS DS 1FL4 average size of Domino mail and SMTP * messages delivered to local users SMF108SLDMSENTR DS 1FL4 number of Domino mail and SMTP messages sent * to other servers SMF108SLDMSENTRAS DS 1FL4 average size of Domino mail messages sent to * other servers SMF108SLSMREC DS 1FL4 number of SMTP messages received from other * servers during interval SMF108SLSMRECAS DS 1FL4 average size of SMTP messages received from * other servers during interval SMF108SLSMSENT DS 1FL4 number of SMTP messages sent to other servers * during interval SMF108SLSMSENTAS DS 1FL4 average size of SMTP messages sent to other * servers during interval SMF108SLTRANS DS 1FL4 total number of transactions processed during * interval SMF108SLSVREPL DS 1FL4 number of replications initiated by this * server SMF108SLNWSESIN DS 1FL4 number of incoming (to the server from * clients) sessions established during the * interval SMF108SLNWSESOUT DS 1FL4 number of outgoing sessions established * during the interval SMF108SLNWBR DS 1FL4 number of network KBytes received during * interval SMF108SLNWBS DS 1FL4 number of network KBytes sent during interval SMF108SLTT DS 1FL2 total number of physical thread pool threads, * server_pool_tasks SMF108SLVTIU DS 1FL2 number of virtual thread pool threads * currently in use SMF108SLAIOR DS 1FL4 number of async i/o reads during interval SMF108SLAIOW DS 1FL4 number of async i/o writes during interval SMF108SLPOP3R DS 1FL4 number of POP3 reads during interval SMF108SLIMAPR DS 1FL4 number of IMAP reads during inte interval SMF108SLHTTPR DS 1FL4 number of HTTP reads during inte interval SMF108SLHTTPW DS 1FL4 number of HTTP writes during int interval SMF108SLVTIUMAX DS 1FL2 maximum number of virtual thread pool threads * in use during interval SMF108SLTASKS DS 1FL2 number of tasks currently in use SMF108SLTASKSMAX DS 1FL2 maximum number of tasks in use during * interval SMF108SLPTIU DS 1FL2 number of physical thread pool threads * currently in use SMF108SLPTIUMAX DS 1FL2 maximum number of physical thread pool * threads in use during interval SMF108SL_LEN EQU *-SMF108SL .L000B ANOP * * Subtype 1 Transaction Section * * AIF ('&SMF108TR' EQ 'NO').L000E AIF ('&DSECT' EQ 'YES').L000F AIF ('&SMF108TR' NE 'YES').L000E SMF108TR DS 0F AGO .L0010 .L000F ANOP SMF108TR DSECT .L0010 ANOP SMF108TRTYPE DS 1FL4 transaction type SMF108TRTYPENP DS 1FL4 number of transactions of type processed * during interval SMF108TRTYPETA DS 1FL4 total accumulated response time, in * milliseconds, for all transactions of type * that completed during interval SMF108TRTYPENW DS 1FL4 Net I/O wait time for all transactions of type* that completed during interval SMF108TR_LEN EQU *-SMF108TR .L000E ANOP * * Subtype 1 Port Activity Section * * AIF ('&SMF108PT' EQ 'NO').L0011 AIF ('&DSECT' EQ 'YES').L0012 AIF ('&SMF108PT' NE 'YES').L0011 SMF108PT DS 0F AGO .L0013 .L0012 ANOP SMF108PT DSECT .L0013 ANOP SMF108PTNAME DS 1CL0008 Port name SMF108PTNWSESIN DS 1FL4 number of incoming sessions SMF108PTNWSESOUT DS 1FL4 number of outgoing sessions SMF108PTNWBR DS 1FL4 number bytes recieved SMF108PTNWBS DS 1FL4 number bytes sent SMF108PT_LEN EQU *-SMF108PT .L0011 ANOP * * SMF Type 108 Constants * * SMF108_TYPE EQU 108 Record Type SMF108_SUBTYPE_ALL EQU 0 'ALL' Subtypes SMF108_SERVER_STATS EQU 1 Subtype - Server SMF108_SERVER_DIAG EQU 5 Subtype - Diags AIF ('&ZCBPRINT' EQ 'NO').P3 AIF ('&LIST' EQ 'YES').P4 .P3 ANOP POP PRINT .P4 ANOP .P_EXIT ANOP MEND **/ DOMSMFR_2:; * %DOMSMFR_INCLUDED = 'YES'; * %DCL ZCBPRINT CHAR EXT; * %DEACTIVATE ZCBPRINT; * %DCL DOMSMFR_LIST CHAR EXT; * %DEACTIVATE DOMSMFR_LIST; * %IF DOMSMFR_LIST ^= 'NO' & * ZCBPRINT ^= 'NO' %THEN * %GOTO DOMSMFR_3; * @LIST PUSH NOECHO; * @LIST NOASSEMBLE NOECHO; * @LIST OFF C NOECHO; * %DOMSMFR_3:; */* Start of PL/X Source */ * *DECLARE * *1 SMFRCD108 BASED(SMF108PTR) /* SMF Type 108 Record Mapping */ * BDY(WORD), * * /* General Header Section (mapping defined by SMF) */ * * 3 SMF108HDR, /* SMF Record Header Fields */ * * 5 SMF108LEN FIXED(16), /* Record length */ * 5 SMF108SEG CHAR(2), /* Segment descriptor */ * 5 SMF108FLG CHAR(1), /* System indicator */ * 7 SMF108FWI BIT(1), /* - WID Follows SID */ * 7 SMF108FST BIT(1), /* - Subtypes Used */ * 7 * BIT(6), /* - Reserved (Set by SMF) */ * 5 SMF108RTY FIXED(8), /* Record type - 108, x'6C' */ * 5 SMF108TME FIXED(32) BDY(WORD,3), /* Time, in hundredths of a * second, record was moved * to SMF buffer. */ * 5 SMF108DTE CHAR(4), /* Date that the record was * moved to the SMF buffer, in * the form of 0cyydddF, where * F is the sign */ * 5 SMF108SID CHAR(4), /* System identification (taken * from SID parameter) */ * 5 SMF108SSI CHAR(4), /* Subsystem identifier */ * 5 SMF108STP FIXED(16), /* Record Subtype */ * * /* General Self-Defining Section */ * * 3 SMF108SDS, /* General Self-Defining Section */ * * 5 SMF108PRO FIXED(32), /* Offset of Product Section */ * 5 SMF108PRL FIXED(16), /* Length of Product Section */ * 5 SMF108PRN FIXED(16), /* Number of Product Sections */ * 5 SMF108SSO FIXED(32), /* Offset of Subtype-Specifc * Self-Defining Section */ * 5 SMF108SSL FIXED(16), /* Length of Subtype-Specifc * Self-Defining Section */ * 5 SMF108SSN FIXED(16), /* Number of Subtype-Specifc * Self-Defining Section */ * * /* Product Section */ * *1 SMF108PR BASED(ADDR(SMFRCD108)+SMF108PRO) * BDY(WORD), * * 3 SMF108PRRVN FIXED(32), /* Record Version Number * R5.0 = 1 * R5.01 = 2 */ * 3 SMF108PRPVN CHAR(8), /* Product Version */ * 3 SMF108PRSVN CHAR(32), /* Server Name */ * * /* Subtype 1 Self-Defing Section */ * *1 SMF108SDS1 BASED(ADDR(SMFRCD108)+SMF108SSO) * BDY(WORD), * * 3 SMF108SLO FIXED(32), /* Offset of Server Load Section */ * 3 SMF108SLL FIXED(16), /* Length of Server Load Section */ * 3 SMF108SLN FIXED(16), /* Number of Server Load Sections*/ * 3 SMF108TRO FIXED(32), /* Offset of Transaction Section */ * 3 SMF108TRL FIXED(16), /* Length of Transaction Section */ * 3 SMF108TRN FIXED(16), /* Number of Transaction Sections*/ * 3 SMF108PTO FIXED(32), /* Offset of Port Activity Section*/ * 3 SMF108PTL FIXED(16), /* Length of Port Activity Section*/ * 3 SMF108PTN FIXED(16), /*Number of Port Activity Sections*/ * * /* Subtype 1 Server Load Section */ * *1 SMF108SL BASED(ADDR(SMFRCD108)+SMF108SLO) * BDY(WORD), * * 3 SMF108SLCU FIXED(32), /* current number of users */ * 3 SMF108SLUA FIXED(32), /* number of currently connected * users that are currently active*/ * 3 SMF108SLUA1M FIXED(32), /* number of currently connected * users that have been active * within the last 1 minute */ * 3 SMF108SLUA3M FIXED(32), /* number of currently connected * users that have been active * within the last 3 minutes */ * 3 SMF108SLUA5M FIXED(32), /* number of currently connected * users that have been active * within the last 5 minutes */ * 3 SMF108SLUA15M FIXED(32), /* number of currently connected * users that have been active * within the last 15 minutes */ * 3 SMF108SLUA30M FIXED(32), /* number of currently connected * users that have been active * within the last 30 minutes */ * 3 SMF108SLDMSENTL FIXED(32), /* number of Domino mail messages * delivered to local users */ * 3 SMF108SLDMSENTLAS FIXED(32), /* average size of Domino mail and * SMTP messages delivered to local * users */ * 3 SMF108SLDMSENTR FIXED(32), /* number of Domino mail and SMTP * messages sent to other servers */ * 3 SMF108SLDMSENTRAS FIXED(32), /* average size of Domino mail * messages sent to other servers */ * 3 SMF108SLSMREC FIXED(32), /* number of SMTP messages received * from other servers during * interval */ * 3 SMF108SLSMRECAS FIXED(32), /* average size of SMTP messages * received from other servers * during interval */ * 3 SMF108SLSMSENT FIXED(32), /* number of SMTP messages sent to * other servers during interval */ * 3 SMF108SLSMSENTAS FIXED(32), /* average size of SMTP messages * sent to other servers during * interval */ * 3 SMF108SLTRANS FIXED(32), /* total number of transactions * processed during interval */ * 3 SMF108SLSVREPL FIXED(32), /* number of replications initiated * by this server */ * 3 SMF108SLNWSESIN FIXED(32), /* number of incoming (to the * server from clients) sessions * established during the interval * */ * 3 SMF108SLNWSESOUT FIXED(32), /* number of outgoing sessions * established during the interval * */ * 3 SMF108SLNWBR FIXED(32), /* number of network KBytes * received during interval */ * 3 SMF108SLNWBS FIXED(32), /* number of network KBytes sent * during interval */ * 3 SMF108SLTT FIXED(16), /* total number of physical thread * pool threads, server_pool_tasks * */ * 3 SMF108SLVTIU FIXED(16), /* number of virtual thread pool * threads currently in use */ * 3 SMF108SLAIOR FIXED(32), /* number of async i/o reads during * interval */ * 3 SMF108SLAIOW FIXED(32), /* number of async i/o writes * during interval */ * 3 SMF108SLPOP3R FIXED(32), /* number of POP3 reads during * interval */ * 3 SMF108SLIMAPR FIXED(32), /* number of IMAP reads during inte * interval */ * 3 SMF108SLHTTPR FIXED(32), /* number of HTTP reads during inte * interval */ * 3 SMF108SLHTTPW FIXED(32), /* number of HTTP writes during int * interval */ * 3 SMF108SLVTIUMAX FIXED(16), /* maximum number of virtual thread * pool threads in use during * interval */ * 3 SMF108SLTASKS FIXED(16), /* number of tasks currently in use * */ * 3 SMF108SLTASKSMAX FIXED(16), /* maximum number of tasks in use * during interval */ * 3 SMF108SLPTIU FIXED(16), /* number of physical thread pool * threads currently in use */ * 3 SMF108SLPTIUMAX FIXED(16), /* maximum number of physical * thread pool threads in use * during interval */ * * /* Subtype 1 Transaction Section */ * *1 SMF108TR BASED(ADDR(SMFRCD108)+SMF108TRO) * BDY(WORD), * * 3 SMF108TRTYPE FIXED(32), /* transaction type */ * 3 SMF108TRTYPENP FIXED(32), /* number of transactions of type * processed during interval */ * 3 SMF108TRTYPETA FIXED(32), /* total accumulated response time, * in milliseconds, for all * transactions of type that * completed during interval */ * 3 SMF108TRTYPENW FIXED(32), /* Net I/O wait time for all * transactions of type that * completed during interval */ * * /* Subtype 1 Port Activity Section */ * *1 SMF108PT BASED(ADDR(SMFRCD108)+SMF108PTO) * BDY(WORD), * 3 SMF108PTNAME CHAR(8), /* Port name */ * 3 SMF108PTNWSESIN FIXED(32), /* number of incoming sessions */ * 3 SMF108PTNWSESOUT FIXED(32), /* number of outgoing sessions */ * 3 SMF108PTNWBR FIXED(32), /* number bytes recieved */ * 3 SMF108PTNWBS FIXED(32); /* number bytes sent */ * * /* SMF Type 108 Constants */ * *DCL * * SMF108_TYPE FIXED(31) CONSTANT(108), /* Record Type */ * * SMF108_SUBTYPE_ALL FIXED(31) CONSTANT(0), /* 'ALL' Subtypes */ * * SMF108_SERVER_STATS FIXED(31) CONSTANT(1), /* Subtype - Server */ * * SMF108_SERVER_DIAG FIXED(31) CONSTANT(5); /* Subtype - Diags */ * */* End of PL/X Source */ * %IF DOMSMFR_LIST ^= 'NO' & * ZCBPRINT ^= 'NO' %THEN * %GOTO DOMSMFR_4; * @LIST POP NOECHO; * %DOMSMFR_4:; * %END;