SMF Type TPX Record
This table shows the record layout for type TPX SMF records
(CA-TPX Session Management Record).
List of other SMF record layouts available.
List of sample SMF reports.
Purpose: When SMF logging is enabled, CA-TPX writes its own SMF records. They are written when certain events occur. They can also be written at designated intervals to log statistics for that interval.
There is no fixed SMF record number for these records. Each shop can choose their own, otherwise unused, number. Spectrum's layout is written without reference to a specific number. You should just make sure to select only CA-TPX SMF records for your report. Do this by testing the value of MONSMF# in an INCLUDEIF statement. You might also want to select only certain subtypes.
As an example, if your shop logs CA-TPX SMF records as type 113, you would use these statements to include only SMF 113 subtype 01 (Start) records in your report:
INPUT: SMFTPX
INCLUDEIF: MONSMF# = 113 AND MONTYPE = MONSTART
It's easy to report on SMF TPX data! | |
|
Spectrum SMF Writer handles the difficult SMF record parsing for you automatically. You just specify which fields you want to see. Spectrum SMF Writer also converts the arcane date and time fields and reformats them into an attractive report. Plus, Spectrum SMF Writer can export SMF data as comma delimited files to use on your PC.
|
The Spectrum Writer definitions for the SMF type TPX record below are based on the description provided by IBM in its "MVS Systems Management Facilities (SMF)" manual and/or DSECTs mapped by its Assembler macros.
|
File Definition for Type TPX SMF Records CA-TPX Session Management Record
***********************************************************************
* SPECTRUM SMF WRITER -- FILE DEFINITION STATEMENTS *
* SMF TYPE TPX RECORD - "CA-TPX SESSION MANAGEMENT RECORD" *
***********************************************************************
OPTION: MISSOFFSET /* TREAT OFFSET ERRORS (99999) LIKE MISSING DATA */
OPTION: STCKADJ(0) /* NO GMT TO LOCAL CONVERSION - DURATIONS*/
FLD: MONRDW LEN(2) TYPE(BIN) DISP(0) /*LL (RECORD LENGTH)*/
FLD: MONIND LEN(1) DISP(4) /*z/OS X'02' VM/GCS X'E5'*/
FLD: MONSMF# LEN(1) TYPE(BU) DISP(5) /*SMF RECORD TYPE*/
*
FLD: MONTIME LEN(4) TYPE(B-SECS) DISP(6) DEC(2)
/*TIME OF ELAPSED INTERVAL (UNITS OF 1/100 SEC)*/
FLD: MONDATE TYPE(P-CYYDDD) DISP(10)
/*DATE OF ELAPSED INTERVAL 00YYDDDF*/
FLD: MONSYS LEN(4) DISP(14) /*SYSID*/
*
* TPX STANDARD HEADER (ALL RECORD TYPES)
*
FLD: MONVER LEN(4) DISP(18)
/*VERSION, RELEASE, AND MODIFICATION LEVEL*/
FLD: MONOFF LEN(2) TYPE(BIN) DISP(22)
/*OFFSET FROM MONRDW TO 1ST VARIABLE SECTION*/
FLD: MONTYPE LEN(1) DISP(24) /*TYPE OF MONITOR RECORD*/
COMP: MONSTART = X'01' /*.. THIS IS AN TPX START RECORD*/
COMP: MONINTVL = X'02' /*.. THIS IS AN TPX INTERVAL RECORD*/
COMP: MONSTOP = X'04' /*.. THIS IS AN TPX STOP RECORD*/
COMP: MONTSTRT = X'05' /*.. TERMINAL SIGNON EVENT*/
COMP: MONTSTOP = X'06' /*.. TERMINAL SIGNOFF EVENT*/
COMP: MONASTRT = X'07' /*.. APPLIC'N LOGON EVENT*/
COMP: MONASTOP = X'08' /*.. APPLIC'N LOGOFF EVENT*/
COMP: MONAINTVL = X'09' /*.. APPLIC'N INTERVAL RECORD RK+2.0.0*/
COMP: MONSTOPA = X'0A' /*.. TPX STOP RECORD APPLIC'N RK+2.0.0*/
COMP: MONVWSES = X'0B' /*.. SESSION VIEW STAT/END RECORD 4.0*/
FLD: MONAPPL LEN(8) DISP(25) /*APPLID OF EXECUTING SESSION MANAGER*/
FLD: MONCVTTZ TYPE(FULL) DISP(33) /*CVTTZ TO ADJUST ALL STCK'S DTS*/
FLD: MONBASE LEN(1) DISP(37) /*START OF VARIABLE PORTION*/
***********************************************************************
**** TPX START RECORD (STARTUP OF TPX)
* (TYPE 01 , ONLY SECTION)
***********************************************************************
**** MONSTART_DSECT DSECT ,
***********************************************************************
COMP: MONSTART_OFFSET =
WHEN(MONTYPE = X'01') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONSTART_DSECT DISP(0) LEN(1) OFFSET(MONSTART_OFFSET)
FLD: MON01LEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON01ID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MONVTAMM LEN(8) DISP(4) /*VTAM MAJOR NODE NAME*/
FLD: MONSMRT LEN(8) DISP(12) /*SMRT NAME*/
FLD: M1SPCNT TYPE(HALF) DISP(24) /*COUNT OF SUBPOOLS < 16M RK2.0.0*/
FLD: M1SXCNT TYPE(HALF) DISP(26) /*COUNT OF SUBPOOLS > 16M RK2.0.0*/
* FORMAT OF SLOTPOOL ENTRY
FLD: M1SPESIZ TYPE(HALF) DISP(28)
/*SIZE OF EACH ENTRY IN THIS POOL RK2.0.0*/
FLD: M1SPECD8 TYPE(FULL) DISP(30)
/*COUNT OF ENTRIES IN THIS POOL / 8 4.*/
*M1SPELEN EQU *-M1SPESIZ SLOT LENGTH RK2.0.0
FLD: M1SP0 LEN(6) DISP(28) /*SEGLEN0 ENTRY RK2.0.0 00338021*/
FLD: M1SP1 LEN(6) DISP(34) /*SEGLEN1 ENTRY RK2.0.0 00339056*/
FLD: M1SP2 LEN(6) DISP(40) /*SEGLEN2 ENTRY RK2.0.0 00340056*/
FLD: M1SP3 LEN(6) DISP(46) /*SEGLEN3 ENTRY RK2.0.0 00341056*/
FLD: M1SP4 LEN(6) DISP(52) /*SEGLEN4 ENTRY RK2.0.0 00342056*/
FLD: M1SP5 LEN(6) DISP(58) /*SEGLEN5 ENTRY RK2.0.0 00343056*/
FLD: M1SP6 LEN(6) DISP(64) /*SEGLEN6 ENTRY RK2.0.0 00344056*/
FLD: M1SP7 LEN(6) DISP(70) /*SEGLEN7 ENTRY RK2.0.0 00345056*/
FLD: M1SP8 LEN(6) DISP(76) /*SEGLEN8 ENTRY RK2.0.0 00346056*/
FLD: M1SP9 LEN(6) DISP(82) /*SEGLEN9 ENTRY RK2.0.0 00347056*/
FLD: M1SPA LEN(6) DISP(88) /*SEGLENA ENTRY RK2.0.0 00348056*/
FLD: M1SPB LEN(6) DISP(94) /*SEGLENB ENTRY RK2.0.0 00349056*/
* RK2.0.0
FLD: M1SX0 LEN(6) DISP(100) /*XEGLEN0 ENTRY (XA) RK2.0.0 00351056*/
FLD: M1SX1 LEN(6) DISP(106) /*XEGLEN1 ENTRY (XA) RK2.0.0 00352056*/
FLD: M1SX2 LEN(6) DISP(112) /*XEGLEN2 ENTRY (XA) RK2.0.0 00353056*/
FLD: M1SX3 LEN(6) DISP(118) /*XEGLEN3 ENTRY (XA) RK2.0.0 00354056*/
FLD: M1SX4 LEN(6) DISP(124) /*XEGLEN4 ENTRY (XA) RK2.0.0 00355056*/
FLD: M1SX5 LEN(6) DISP(130) /*XEGLEN5 ENTRY (XA) RK2.0.0 00356056*/
FLD: M1SX6 LEN(6) DISP(136) /*XEGLEN6 ENTRY (XA) RK2.0.0 00357056*/
FLD: M1SX7 LEN(6) DISP(142) /*XEGLEN7 ENTRY (XA) RK2.0.0 00358056*/
FLD: M1SX8 LEN(6) DISP(148) /*XEGLEN8 ENTRY (XA) RK2.0.0 00359056*/
FLD: M1SX9 LEN(6) DISP(154) /*XEGLEN9 ENTRY (XA) RK2.0.0 00360056*/
FLD: M1SXA LEN(6) DISP(160) /*XEGLENA ENTRY (XA) RK2.0.0 00361056*/
FLD: M1SXB LEN(6) DISP(166) /*XEGLENB ENTRY (XA) RK2.0.0 00362056*/
FLD: M1PTFLVL LEN(8) DISP(172) /*PTF LEVEL DTS*/
*
***********************************************************************
**** TPX INTERVAL AND STOP RECORD (ONLY SECTION)
* (TYPE 02, WRITTEN EVERY 'SMFINT(SMRT)' MINUTES)
* (TYPE 04, WRITTEN WHEN TPX IS TAKEN DOWN)
***********************************************************************
**** MONINTVL_DSECT DSECT ,
***********************************************************************
COMP: MONINTVL_OFFSET =
WHEN(MONTYPE = X'02' OR X'04') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONINTVL_DSECT DISP(0) LEN(1) OFFSET(MONINTVL_OFFSET)
* ORG MONBASE
FLD: M24LEN LEN(2) TYPE(BIN) DISP(0)
/*LENGTH OF THIS SECTION RK2.0.0*/
FLD: M24ID LEN(2) DISP(2) /*ID OF THIS SECTION RK2.0.0*/
FLD: MONSRBT TYPE(STCKTIME) DISP(4) /*SRB TIME (STCK FORMAT)*/
FLD: MONCPU TYPE(STCKTIME) DISP(12)
/*ASCBEJST AT INTERVAL END (STCK FORMAT)*/
FLD: MONPIN TYPE(FULL) DISP(20)
/*PAGE INS AT INTERVAL END (OUXBPIN)*/
FLD: MONPOUT TYPE(FULL) DISP(24)
/*PAGE OUTS AT INTERVAL END (OUXBPOUT)*/
FLD: MONMSGTI TYPE(FULL) DISP(28)
/*TOTAL TERMINAL MESSAGES INBOUND TO TPX*/
FLD: MONMSGTO TYPE(FULL) DISP(32)
/*TOTAL TERMINAL MESSAGES OUTBOUND FROM TPX*/
FLD: MONBYTTI TYPE(FULL) DISP(36)
/*TOTAL TERMINAL BYTES INBOUND TO TPX*/
FLD: MONBYTTO TYPE(FULL) DISP(40)
/*TOTAL TERMINAL BYTES OUTBOUND FROM TPX*/
FLD: MONSESTS TYPE(FULL) DISP(44) /*TOTAL TERMINAL SESSIONS STARTED*/
FLD: MONSESTP TYPE(FULL) DISP(48) /*TOTAL TERMINAL SESSIONS STOPPED*/
FLD: MONMSGAI TYPE(FULL) DISP(52)
/*TOTAL APPLICATION MESSAGES INBOUND TO TPX*/
FLD: MONMSGAO TYPE(FULL) DISP(56)
/*TOTAL APPLICATION MESSAGES OUTBOUND FROM TPX*/
FLD: MONBYTAI TYPE(FULL) DISP(60)
/*TOTAL APPLICATION BYTES INBOUND TO TPX*/
FLD: MONBYTAO TYPE(FULL) DISP(64)
/*TOTAL APPLICATION BYTES OUTBOUND FROM TPX*/
FLD: MONSESAS TYPE(FULL) DISP(68)
/*TOTAL APPLICATION SESSIONS STARTED*/
FLD: MONSESAP TYPE(FULL) DISP(72)
/*TOTAL APPLICATION SESSIONS STOPPED*/
*M24PAD DS 0X END OF COPY FROM SMRT TB4117A
FLD: MONELAP TYPE(FULL) DISP(76) /*VALUE OF SMFINT FROM SMRT GEN*/
*
* DSA STATISTICS
*
FLD: MONDSAF TYPE(FULL) DISP(80)
/*BYTES OF DSA FREE TO BE USED (TOTAL USED)*/
FLD: MONDSAU TYPE(FULL) DISP(84) /*DSA USED*/
FLD: MONDSAH TYPE(FULL) DISP(88) /*HIGHEST USED BYTES COUNT*/
FLD: M2DSAE TYPE(HALF) DISP(92) /*EMPTY DSA ENTRIES TG7267 3.*/
FLD: M2DSAR TYPE(HALF) DISP(94)
/*HIGHEST USED CONTROL RECORD COUNT TG7267 3.*/
FLD: MONEGOT TYPE(FULL) DISP(96)
*MONDSA DS 0X END OF COPY FROM SMRT
*
FLD: MONXDSAF TYPE(FULL) DISP(100)
/*XA BYTES OF DSA FREE TO BE USED (TOTAL USED)*/
FLD: MONXDSAU TYPE(FULL) DISP(104)/*XA DSA USED*/
FLD: MONXDSAH TYPE(FULL) DISP(108)/*XA HIGHEST USED BYTES COUNT*/
FLD: MONXDSAC TYPE(FULL) DISP(112)
/*XA HIGHEST USED CONTROL RECORD COUNT*/
FLD: M2DXAE TYPE(HALF) DISP(112)/*EMPTY DSA ENTRIES TG7267 3.*/
FLD: M2DXAR TYPE(HALF) DISP(114)
/*HIGHEST USED CONTROL RECORD COUNT TG7267 3.*/
FLD: MONXEGOT TYPE(FULL) DISP(116)/*XA EMERGENCY BUFFER RELOAD COUNT*/
*MONXDSA DS 0X XA END OF COPY FROM SMRT
*
* SLOTPOOL STATISTICS
*
* SLOTPOOL TOTALS
*
FLD: MONSGCNT TYPE(FULL) DISP(120)/*NO OF STORAGE SEGMENTS*/
FLD: MONSGFAL TYPE(FULL) DISP(124)/*NO OF FAILURES*/
FLD: MONSGBYT TYPE(FULL) DISP(128)/*NO OF BYTES USED*/
FLD: MONSGHIU TYPE(FULL) DISP(132)/*HIGHEST USED BYTES*/
*MONSLT DS 0X END OF COPY FROM SMRT
*
FLD: MONXGCNT TYPE(FULL) DISP(136)/*XA NO OF STORAGE SEGMENTS*/
FLD: MONXGFAL TYPE(FULL) DISP(140)/*XA NO OF FAILURES*/
FLD: MONXGBYT TYPE(FULL) DISP(144)/*XA NO OF BYTES USED*/
FLD: MONXGHIU TYPE(FULL) DISP(148)/*XA HIGHEST USED BYTES*/
*MONXLT DS 0X XA END OF COPY FROM SMRT
*
* SEGMENT TOTALS
*
* FORMAT OF SLOTPOOL ENTRY
FLD: MONSGREQ TYPE(FULL) DISP(152)
/*NO OF GETSTORES TEMPLATE/FIRST ENTRY*/
FLD: MONSGGFL TYPE(FULL) DISP(156)/*NO OF FAILURES*/
FLD: MONSGCUR TYPE(FULL) DISP(160)/*CURRENT SLOT USED COUNT*/
FLD: MONSGMAX TYPE(FULL) DISP(164)/*HIGHEST SLOTS USED SO FAR*/
*MONSGLEN EQU *-MONSGREQ SLOT LENGTH
COMP: MONS0008 = MONSGREQ /*8 (SEGLEN0) BYTE SLOT ENTRY 010100*/
FLD: MONS0016 LEN(16) DISP(168) /*16 (SEGLEN1) BYTE SLOT ENTRY*/
FLD: MONS0032 LEN(16) DISP(184) /*32 (SEGLEN2) BYTE SLOT ENTRY*/
FLD: MONS0064 LEN(16) DISP(200) /*64 (SEGLEN3) BYTE SLOT ENTRY*/
FLD: MONS0128 LEN(16) DISP(216) /*128 (SEGLEN4) BYTE SLOT ENTRY*/
FLD: MONS0256 LEN(16) DISP(232) /*256 (SEGLEN5) BYTE SLOT ENTRY*/
FLD: MONS0512 LEN(16) DISP(248) /*512 (SEGLEN6) BYTE SLOT ENTRY*/
FLD: MONS1024 LEN(16) DISP(264) /*1K (SEGLEN7) BYTE SLOT ENTRY*/
FLD: MONS2048 LEN(16) DISP(280) /*2K (SEGLEN8) BYTE SLOT ENTRY*/
FLD: MONS3072 LEN(16) DISP(296) /*3K (SEGLEN9) BYTE SLOT ENTRY*/
FLD: MONS4096 LEN(16) DISP(312) /*4K (SEGLENA) BYTE SLOT ENTRY*/
FLD: MONS8192 LEN(16) DISP(328) /*8K (SEGLENB) BYTE SLOT ENTRY*/
*MONSCNTR EQU 12
*
FLD: MONX0008 LEN(16) DISP(344) /*8 (XEGLEN0) BYTE SLOT ENTRY (XA)*/
FLD: MONX0016 LEN(16) DISP(360) /*16 (XEGLEN1) BYTE SLOT ENTRY (XA)*/
FLD: MONX0032 LEN(16) DISP(376) /*32 (XEGLEN2) BYTE SLOT ENTRY (XA)*/
FLD: MONX0064 LEN(16) DISP(392) /*64 (XEGLEN3) BYTE SLOT ENTRY (XA)*/
FLD: MONX0128 LEN(16) DISP(408) /*128 (XEGLEN4) BYTE SLOT ENTRY (XA)*/
FLD: MONX0256 LEN(16) DISP(424) /*256 (XEGLEN5) BYTE SLOT ENTRY (XA)*/
FLD: MONX0512 LEN(16) DISP(440) /*512 (XEGLEN6) BYTE SLOT ENTRY (XA)*/
FLD: MONX1024 LEN(16) DISP(456) /*1K (XEGLEN7) BYTE SLOT ENTRY (XA)*/
FLD: MONX2048 LEN(16) DISP(472) /*2K (XEGLEN8) BYTE SLOT ENTRY (XA)*/
FLD: MONX3072 LEN(16) DISP(488) /*3K (XEGLEN9) BYTE SLOT ENTRY (XA)*/
FLD: MONX4096 LEN(16) DISP(504) /*4K (XEGLENA) BYTE SLOT ENTRY (XA)*/
FLD: MONX8192 LEN(16) DISP(520) /*8K (XEGLENB) BYTE SLOT ENTRY (XA)*/
*MONXCNTR EQU 12
*
* TASK QUEUE STATISTICS
*
FLD: MONQRTEC TYPE(FULL) DISP(536)/*COUNT FOR ROUTE*/
FLD: MONQRTEM TYPE(FULL) DISP(540)/*MAX FOR ROUTE*/
FLD: MONQSNDC TYPE(FULL) DISP(544)/*COUNT FOR SEND*/
FLD: MONQSNDM TYPE(FULL) DISP(548)/*MAX FOR SEND*/
FLD: MONQSVCC TYPE(FULL) DISP(552)/*COUNT FOR SERVICE*/
FLD: MONQSVCM TYPE(FULL) DISP(556)/*MAX FOR SERVICE*/
FLD: MONQPASC TYPE(FULL) DISP(560)/*COUNT FOR PASSTHROUGH*/
FLD: MONQPASM TYPE(FULL) DISP(564)/*MAX FOR PASSTHROUGH*/
FLD: MONQDIAC TYPE(FULL) DISP(568)/*COUNT FOR DIAGNOSE*/
FLD: MONQDIAM TYPE(FULL) DISP(572)/*MAX FOR DIAGNOSE*/
FLD: MONQMONC TYPE(FULL) DISP(576)/*COUNT FOR MONITOR*/
FLD: MONQMONM TYPE(FULL) DISP(580)/*MAX FOR MONITOR*/
FLD: MONQONFC TYPE(FULL) DISP(584)/*COUNT FOR ON/OFF*/
FLD: MONQONFM TYPE(FULL) DISP(588)/*MAX FOR ON/OFF*/
FLD: MONQRCVC TYPE(FULL) DISP(592)/*COUNT FOR RECEIVE*/
FLD: MONQRCVM TYPE(FULL) DISP(596)/*MAX FOR RECEIVE*/
FLD: MONQCNSC TYPE(FULL) DISP(600)/*COUNT FOR CONSOLE*/
FLD: MONQCNSM TYPE(FULL) DISP(604)/*MAX FOR CONSOLE*/
FLD: MONQSCTC TYPE(FULL) DISP(608)/*COUNT FOR SCRIPT*/
FLD: MONQSCTM TYPE(FULL) DISP(612)/*MAX FOR SCRIPT*/
FLD: MONQWRTC TYPE(FULL) DISP(616)/*COUNT FOR WRITER*/
FLD: MONQWRTM TYPE(FULL) DISP(620)/*MAX FOR WRITER*/
FLD: MONQQUEC TYPE(FULL) DISP(624)/*COUNT FOR QUEUE*/
FLD: MONQQUEM TYPE(FULL) DISP(628)/*MAX FOR QUEUE*/
FLD: MONQMAIC TYPE(FULL) DISP(632)/*COUNT FOR MAIN*/
FLD: MONQMAIM TYPE(FULL) DISP(636)/*MAX FOR MAIN*/
*MONQCNTR EQU ((*-MONQRTEC)/8)
*
* SACB STATISTICS
*
FLD: MONSACBC TYPE(FULL) DISP(640)/*CURRENT SACBS IN USE*/
FLD: MONSACBH TYPE(FULL) DISP(644)/*SACB HIGH WATER MARK*/
*
***********************************************************************
**** TPX SESSION INTERVAL AND STOP RECORD (ONLY SECTION) RK+2.0.0
* (TYPE 09, WRITTEN EVERY 'SMFINT(SMRT)' MINUTES) RK+2.0.0
* (TYPE 0A, WRITTEN WHEN TPX IS TAKEN DOWN) RK+2.0.0
***********************************************************************
**** MONSESS_DSECT DSECT ,
***********************************************************************
COMP: MONSESS_OFFSET =
WHEN(MONTYPE = X'09' OR X'0A') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONSESS_DSECT DISP(0) LEN(1) OFFSET(MONSESS_OFFSET)
FLD: M9LEN LEN(2) TYPE(BIN) DISP(0)
/*LENGTH OF THIS SECTION RK2.0.0*/
FLD: M9ID LEN(2) DISP(2) /*ID OF THIS SECTION RK2.0.0*/
FLD: M9NAME LEN(8) DISP(4) /*NAME OF APPLICATION RK+2.0.0*/
FLD: M9SESS LEN(8) DISP(12) /*SESSION NAME RK+2.0.0*/
FLD: M9FLAG LEN(1) DISP(20) /*TWO RESERVED BYTES RK+2.0.0*/
COMP: M9QSCEP = X'80' /*APPLICATION QUIESCE IN PROGRESS RK+2.0.0*/
COMP: M9QSCEC = X'40' /*APPLICATION QUIESCE IS COMPLETE RK+2.0.0*/
COMP: M9MDT = X'01' /*MDT COMPRESSION FOR THIS APPL RK+2.0.0*/
FLD: M9UCNT TYPE(FULL) DISP(21) /*APPLICATION USE COUNT RK+2.0.*/
FLD: M9UMAX TYPE(FULL) DISP(25) /*MAX USE COUNT RK+2.0.*/
FLD: M9CIN TYPE(FULL) DISP(29)
/*STD.3270 COMPRESSION BYTES IN RK+2.0.0*/
FLD: M9COUT TYPE(FULL) DISP(33)
/*STD.3270 COMPRESSION BYTES OUT RK+2.0.*/
FLD: M9CCNT TYPE(FULL) DISP(37)
/*STD.3270 COMPRESSION MESSAGES RK+2.0.*/
FLD: M9BYTI LEN(8) TYPE(BIN) DISP(41)
/*BYTES IN (FROM APPL) RK+2.0.*/
FLD: M9BYTO LEN(8) TYPE(BIN) DISP(49) /*BYTES OUT (TO APPL) RK+2.0.*/
FLD: M9MSGSI TYPE(FULL) DISP(57) /*MSGS IN RK+2.0.*/
FLD: M9MSGSO TYPE(FULL) DISP(61) /*MSGS OUT RK+2.0.*/
FLD: M9MDTL TYPE(FULL) DISP(65)
/*INBOUND COMPRESSION BYTES OUT RK+2.0.*/
FLD: M9MDTS TYPE(FULL) DISP(69)
/*INBOUND COMPRESSION BYTES IN RK+2.0.*/
*M9MDTM DS XL4 INBOUND COMPRESSION MESSAGES
*M9EFCIN DS XL4 EQUAL-FIELD COMPRESSION BYTES IN RK+2.0.0
*M9EFCOUT DS XL4 EQUAL-FIELD COMPRESSION BYTES OUT RK+2.0.0
*M9EFMCNT DS XL4 EQUAL-FIELD COMPRESSION MESSAGES
FLD: M9CCTL LEN(1) DISP(73) /*COMPRESSION CONTROL RK+2.0.0*/
COMP: M9COMP = X'80' /*COMPRESSION OFF RK+2.0.0*/
***********************************************************************
***** TPX SESSION RECORDS - (COMMON FIRST SECTION)
* (TYPE 05, PHYSICAL TERMINAL SIGNON EVENT)
* (TYPE 06, PHYSICAL TERMINAL SIGNOFF EVENT)
* (TYPE 07, APPLICATION LOGON EVENT)
* (TYPE 08, APPLICATION LOGOFF EVENT)
***********************************************************************
**** MONSIGNON_DSECT DSECT ,
***********************************************************************
COMP: MONSIGNON_OFFSET =
WHEN(MONTYPE = X'05' OR X'06' OR X'07' OR X'08') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONSIGNON_DSECT DISP(0) LEN(1) OFFSET(MONSIGNON_OFFSET)
* ORG MONBASE
FLD: MONCMLEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MONCMID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MONUSER LEN(8) DISP(4) /*REQUESTORS USERID*/
FLD: MONTNAME LEN(8) DISP(12) /*NAME OF TERMINAL*/
FLD: MONCID LEN(4) DISP(20) /*CID*/
*
***********************************************************************
* TPX SESSION RECORDS - TERMINAL SESSION STARTUP
* (TYPE 05, LAST SECTION; TYPE 06, SECOND SECTION)
*
***********************************************************************
**** MONTERM_DSECT DSECT ,
***********************************************************************
COMP: MONTERM_OFFSET =
WHEN(MONTYPE = X'05' OR X'06') ASSIGN(MONOFF + MONCMLEN)
ELSE ASSIGN(99999)
FLD: MONTERM_DSECT DISP(0) LEN(1) OFFSET(MONTERM_OFFSET)
FLD: MON05LEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON05ID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MONMODEL LEN(8) DISP(4) /*MODEL FROM SBMODEL*/
FLD: MONLOGMD LEN(8) DISP(12) /*LOGMODE*/
FLD: M57STIME TYPE(STCKTIME) DISP(28) /*SESSION START TIME TG8088*/
FLD: MONIPADR LEN(45) DISP(36) /*IP ADDRESS*/
FLD: MONIPPRT LEN(4) DISP(81) /*IP PORT*/
*M5LEN2 EQU *-MON05LEN LENGTH OF SEGMENT 2, RECORD 5 TPX30
*MONTLENG EQU *-MONREC LENGTH FOR MONTYPE=MONTSTRT
FLD: M6FILL LEN(8) DISP(85)
/*FILLER TO MAKE RECS 6 & 8 CONGRUENT JJC TPX30*/
*
***********************************************************************
* TPX SESSION RECORDS - APPLICATION SESSION STARTUP
* (TYPE 07, LAST SECTION; TYPE 08, SECOND SECTION)
***********************************************************************
**** MONAPPL_DSECT DSECT ,
***********************************************************************
COMP: MONAPPL_OFFSET =
WHEN(MONTYPE = X'07' OR X'08') ASSIGN(MONOFF + MONCMLEN)
ELSE ASSIGN(99999)
FLD: MONAPPL_DSECT DISP(0) LEN(1) OFFSET(MONAPPL_OFFSET)
* ORG MON05LEN
FLD: MON07LEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON07ID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MONVNAME LEN(8) DISP(4) /*VIRTUAL TERMINAL SELECTED*/
FLD: MONGNAME LEN(8) DISP(12) /*GENERIC APPLICATION NAME*/
FLD: MONANAME LEN(8) DISP(20) /*ACTUAL APPLICATION NAME*/
FLD: MONSTIME TYPE(STCKTIME) DISP(28) /*SESSION START TIME*/
FLD: MONSNAME LEN(8) DISP(36) /*SESSION NAME RK+2.0.0*/
FLD: M7FILL LEN(49) DISP(44) /*FOR IPADR & IP PORT RECORDS*/
*
***********************************************************************
* TPX SESSION RECORDS - SESSION TERMINATION SUMMARY SECTION
* (TYPE 06, TYPE 08, LAST SECTION)
***********************************************************************
**** MONTERMSUM_DSECT DSECT ,
***********************************************************************
COMP: MONTERMSUM_OFFSET =
WHEN(MONTYPE = X'06') ASSIGN(MONOFF + MONCMLEN + MON05LEN)
WHEN(MONTYPE = X'08') ASSIGN(MONOFF + MONCMLEN + MON07LEN)
ELSE ASSIGN(99999)
FLD: MONTERMSUM_DSECT DISP(0) LEN(1) OFFSET(MONTERMSUM_OFFSET)
FLD: MON06LEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON06ID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MONMSGCI TYPE(FULL) DISP(4) /*TOTAL MESSAGES INBOUND TO TPX*/
FLD: MONMSGCO TYPE(FULL) DISP(8) /*TOTAL MESSAGES OUTBOUND FROM TPX*/
FLD: MONBYTCI TYPE(FULL) DISP(12) /*TOTAL BYTES INBOUND TO TPX*/
FLD: MONBYTCO TYPE(FULL) DISP(16) /*TOTAL BYTES OUTBOUND FROM TPX*/
FLD: MONETIME TYPE(STCKTIME) DISP(20) /*SESSION END TIME*/
FLD: MONATIME TYPE(STCKTIME) DISP(28)
/*ACCUMULATED SESSION CONNECT TIME TYPE 08*/
* ACCUMULATED TIME USER SIGNED ON TPX - TYPE 06
FLD: M68CIN TYPE(FULL) DISP(36)
/*STD.3270 COMPRESSION INBOUND BYTES*/
FLD: M68COUT TYPE(FULL) DISP(40)
/*STD.3270 COMPRESSION OUTBOUND BYTES*/
FLD: M68CBCT LEN(1) DISP(44)
/*APPLICATION COMPRESSION WHEN TO TRY AGAIN COUNTER.*/
COMP: M68NOCMP = X'80' /*DON'T COMPRESS THIS APPL.*/
FLD: M68CCNT LEN(3) TYPE(BIN) DISP(45)
/*STD.3270 COMPRESSION MESSAGE COUNT*/
FLD: MONMDTL TYPE(FULL) DISP(48)
/*INBOUND COMPRESSION OUTBOUND COUNT*/
FLD: MONMDTS TYPE(FULL) DISP(52) /*INBOUND COMPRESSION INBOUND COUNT*/
FLD: MONMDTM TYPE(FULL) DISP(56) /*INBOUND COMPRESSION MESSAGE COUNT*/
FLD: M68EFIN TYPE(FULL) DISP(60) /*EQUAL FIELD COMPRESSION BYTES IN*/
FLD: M68EFOUT TYPE(FULL) DISP(64) /*EQUAL FIELD COMPRESSION BYTES OUT*/
FLD: M68EFCNT TYPE(FULL) DISP(68)
/*EQUAL FIELD COMPRESSION MESSAGE COUNT*/
*
***********************************************************************
* (TYPE 0B, SESSION VIEW START/END RECORD)
***********************************************************************
**** MONVIEW_DSECT DSECT ,
***********************************************************************
COMP: MONVIEW_OFFSET =
WHEN(MONTYPE = X'0B') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONVIEW_DSECT DISP(0) LEN(1) OFFSET(MONVIEW_OFFSET)
* ORG MONBASE
FLD: MON0BLEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON0BID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MONBVER LEN(8) DISP(4) /*USERID OF VIEWER*/
FLD: MONBTVER LEN(8) DISP(12) /*TERMINAL ID OF VIEWER*/
FLD: MONBVEE LEN(8) DISP(20) /*USERID OF VIEWEE*/
FLD: MONBTVEE LEN(8) DISP(28) /*TERMINAL ID OF VIEWEE*/
FLD: MONBTYPE LEN(1) DISP(36) /*SESSION VIEW TYPE*/
COMP: MONBVIEW = X'04' /*VIEW REQUEST*/
COMP: MONBTRK = X'08' /*TRACK REQUEST*/
FLD: MONBIND LEN(1) DISP(37) /*START/END INDICATOR*/
COMP: MONBSTR = X'04' /*START RECOED*/
COMP: MONBEND = X'08' /*END RECORD*/
FLD: MONBSES1 LEN(8) DISP(38) /*VIEWED SESSION #1*/
FLD: MONBSES2 LEN(8) DISP(46) /*VIEWED SESSION #2*/
FLD: MONBSES3 LEN(8) DISP(54) /*VIEWED SESSION #3*/
FLD: MONBSES4 LEN(8) DISP(62) /*VIEWED SESSION #4*/
*
***********************************************************************
* (TYPE 0C, SESSION ASSIST START/END RECORD)
***********************************************************************
**** MONASSIST_DSECT DSECT ,
***********************************************************************
COMP: MONASSIST_OFFSET =
WHEN(MONTYPE = X'0C') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONASSIST_DSECT DISP(0) LEN(1) OFFSET(MONASSIST_OFFSET)
* ORG MONBASE
FLD: MON0CLEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON0CID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MONCOWN LEN(8) DISP(4) /*USERID OF SESSION OWNER*/
FLD: MONCTOWN LEN(8) DISP(12) /*TERMINAL ID OF SESSION OWNER*/
FLD: MONCUSR LEN(8) DISP(20) /*USERID OF ASSISTOR*/
FLD: MONCTUSR LEN(8) DISP(28) /*TERMINAL ID OF ASSISTOR*/
FLD: MONCIND LEN(1) DISP(36) /*START/END INDICATOR*/
COMP: MONCSTR = X'04' /*START RECOED*/
COMP: MONCEND = X'08' /*END RECORD*/
FLD: MONCSESS LEN(8) DISP(37) /*SESSION ID*/
*
***********************************************************************
* (TYPE 0D, CONFERENCE INITIATION/TERMINATION RECORD)
***********************************************************************
**** MONCONF_DSECT DSECT ,
***********************************************************************
COMP: MONCONF_OFFSET =
WHEN(MONTYPE = X'0D') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONCONF_DSECT DISP(0) LEN(1) OFFSET(MONCONF_OFFSET)
* ORG MONBASE
FLD: MON0DLEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON0DID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MONDUSR LEN(8) DISP(4) /*USERID OF INITIATOR*/
FLD: MONDTUSR LEN(8) DISP(12) /*TERMINAL ID OF INITIATOR*/
FLD: MONDTYPE LEN(1) DISP(20) /*CONFERENCE TYPE*/
COMP: MONDPUB = X'04' /*PUBLIC CONFERENCE*/
COMP: MONDPRV = X'08' /*PRIVATE CONFERENCE*/
FLD: MONDIND LEN(1) DISP(21) /*INITIATION/TERMINATION INDICATOR*/
COMP: MONDSTR = X'04' /*START RECOED*/
COMP: MONDEND = X'08' /*END RECORD*/
FLD: MONDSESS LEN(8) DISP(22) /*SESSION ID*/
FLD: MONDDESC LEN(20) DISP(30) /*CONFERENCE DESCRIPTION*/
*
***********************************************************************
* (TYPE 0E, ENTER/LEAVE CONFERENCE RECORD)
***********************************************************************
**** MONJOIN_DSECT DSECT ,
***********************************************************************
COMP: MONJOIN_OFFSET =
WHEN(MONTYPE = X'0E') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONJOIN_DSECT DISP(0) LEN(1) OFFSET(MONJOIN_OFFSET)
* ORG MONBASE
FLD: MON0ELEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON0EID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MONEOWN LEN(8) DISP(4) /*USERID OF INITIATOR*/
FLD: MONETOWN LEN(8) DISP(12) /*TERMINAL ID OF INITIATOR*/
FLD: MONEUSR LEN(8) DISP(20) /*USERID OF PARTICIPANT*/
FLD: MONETUSR LEN(8) DISP(28) /*TERMINAL ID OF PARTICIPANT*/
FLD: MONETYPE LEN(1) DISP(36) /*CONFERENCE TYPE*/
COMP: MONEPUB = X'04' /*PUBLIC CONFERENCE*/
COMP: MONEPRV = X'08' /*PRIVATE CONFERENCE*/
FLD: MONEIND LEN(1) DISP(37) /*ENTER/LEAVE INDICATOR*/
COMP: MONESTR = X'04' /*START RECORD*/
COMP: MONEEND = X'08' /*END RECORD*/
FLD: MONESESS LEN(8) DISP(38) /*SESSION ID*/
FLD: MONEDESC LEN(20) DISP(46) /*CONFERENCE DESCRIPTION*/
*
***********************************************************************
* (TYPE 0F, TRAINING SESSION INITIATION/TERMINATION RECORD)
***********************************************************************
**** MONTRAIN_DSECT DSECT ,
***********************************************************************
COMP: MONTRAIN_OFFSET =
WHEN(MONTYPE = X'0F') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONTRAIN_DSECT DISP(0) LEN(1) OFFSET(MONTRAIN_OFFSET)
* ORG MONBASE
FLD: MON0FLEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON0FID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MONFUSR LEN(8) DISP(4) /*USERID OF INITIATOR*/
FLD: MONFTUSR LEN(8) DISP(12) /*TERMINAL ID OF INITIATOR*/
FLD: MONFTYPE LEN(1) DISP(20) /*TRAINING SESSION TYPE*/
COMP: MONFPUB = X'04' /*PUBLIC TRAINING SESSION*/
COMP: MONFPRV = X'08' /*PRIVATE TRAINING SESSION*/
FLD: MONFIND LEN(1) DISP(21) /*INITIATION/TERMINATION INDICATOR*/
COMP: MONFSTR = X'04' /*START RECOED*/
COMP: MONFEND = X'08' /*END RECORD*/
FLD: MONFSESS LEN(8) DISP(22) /*SESSION ID*/
FLD: MONFDESC LEN(20) DISP(30) /*TRAINING SESSION DESCRIPTION*/
*
***********************************************************************
* (TYPE 10, ENTER/LEAVE TRAINING SESSION RECORD)
***********************************************************************
**** MONTRAINJOIN_DSECT DSECT ,
***********************************************************************
COMP: MONTRAINJOIN_OFFSET =
WHEN(MONTYPE = X'10') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONTRAINJOIN_DSECT DISP(0) LEN(1) OFFSET(MONTRAINJOIN_OFFSET)
* ORG MONBASE
FLD: MON10LEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON10ID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MON10OWN LEN(8) DISP(4) /*USERID OF TRAINER*/
FLD: MON10TON LEN(8) DISP(12) /*TERMINAL ID OF TRAINER*/
FLD: MON10USR LEN(8) DISP(20) /*USERID OF PARTICIPANT*/
FLD: MON10TUS LEN(8) DISP(28) /*TERMINAL ID OF PARTICIPANT*/
FLD: MON10TYP LEN(1) DISP(36) /*TRAINING SESSION TYPE*/
COMP: MON10PUB = X'04' /*PUBLIC TRAINING SESSION*/
COMP: MON10PRV = X'08' /*PRIVATE TRAINING SESSION*/
FLD: MON10IND LEN(1) DISP(37) /*ENTER/LEAVE INDICATOR*/
COMP: MON10STR = X'04' /*START RECORD*/
COMP: MON10END = X'08' /*END RECORD*/
FLD: MON10SES LEN(8) DISP(38) /*SESSION ID*/
FLD: MON10DSC LEN(20) DISP(46) /*TRAINING SESSION DESCRIPTION*/
*
* (TYPE 11, SESSION RECORD START/END RECORD)
***********************************************************************
**** MONEND_DSECT DSECT ,
***********************************************************************
COMP: MONEND_OFFSET =
WHEN(MONTYPE = X'11') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONEND_DSECT DISP(0) LEN(1) OFFSET(MONEND_OFFSET)
* ORG MONBASE
FLD: MON11LEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON11ID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MON11USR LEN(8) DISP(4) /*USERID OF RECORDER*/
FLD: MON11TUS LEN(8) DISP(12) /*TERMINAL ID OF RECORDER*/
FLD: MON11TYP LEN(1) DISP(20) /*SESSION RECORD TYPE*/
COMP: MON11PUB = X'04' /*PUBLIC RECORD SESSION*/
COMP: MON11PRV = X'08' /*PRIVATE RECORD SESSION*/
FLD: MON11IND LEN(1) DISP(21) /*START/END INDICATOR*/
COMP: MON11STR = X'04' /*START RECORD*/
COMP: MON11END = X'08' /*END RECORD*/
FLD: MON11SES LEN(8) DISP(22) /*SESSION ID*/
FLD: MON11DSC LEN(20) DISP(30) /*RECORDED SESSION DESCRIPTION*/
*
***********************************************************************
* (TYPE 12, SESSION PLAYBACK START/END RECORD)
***********************************************************************
**** MONPLAY_DSECT DSECT ,
***********************************************************************
COMP: MONPLAY_OFFSET =
WHEN(MONTYPE = X'12') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONPLAY_DSECT DISP(0) LEN(1) OFFSET(MONPLAY_OFFSET)
* ORG MONBASE
FLD: MON12LEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON12ID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MON12OWN LEN(8) DISP(4) /*USERID OF RECORDER*/
FLD: MON12TON LEN(8) DISP(12) /*TERMINAL ID OF RECORDER*/
FLD: MON12USR LEN(8) DISP(20) /*USERID OF USER DOING THE PLAYBACK*/
FLD: MON12TUS LEN(8) DISP(28)
/*TERMINAL ID OF USER DOING THE PLAYBACK*/
FLD: MON12TYP LEN(1) DISP(36) /*SESSION RECORD TYPE*/
COMP: MON12PUB = X'04' /*PUBLIC RECORD SESSION*/
COMP: MON12PRV = X'08' /*PRIVATE RECORD SESSION*/
FLD: MON12IND LEN(1) DISP(37) /*START/END INDICATOR*/
COMP: MON12STR = X'04' /*START PLAYBACK*/
COMP: MON12END = X'08' /*END PLAYBACK*/
FLD: MON12SES LEN(8) DISP(38) /*SESSION ID*/
FLD: MON12DSC LEN(20) DISP(46) /*RECORDED SESSION DESCRIPTION*/
*
***********************************************************************
* (TYPE 13, VIEW TEMPORARY AUTHORIZATION RECORD)
***********************************************************************
**** MONTEMP_DSECT DSECT ,
***********************************************************************
COMP: MONTEMP_OFFSET =
WHEN(MONTYPE = X'13') ASSIGN(MONOFF)
ELSE ASSIGN(99999)
FLD: MONTEMP_DSECT DISP(0) LEN(1) OFFSET(MONTEMP_OFFSET)
* ORG MONBASE
FLD: MON13LEN LEN(2) TYPE(BIN) DISP(0) /*LENGTH OF THIS SECTION*/
FLD: MON13ID LEN(2) DISP(2) /*ID OF THIS SECTION*/
FLD: MON13GIV LEN(8) DISP(4) /*USERID OF AUTHORIZER*/
FLD: MON13GTM LEN(8) DISP(12) /*TERMINAL ID OF AUTHORIZER*/
FLD: MON13REC LEN(8) DISP(20) /*USERID OF AUTHORIZEE*/
FLD: MON13RTM LEN(8) DISP(28) /*TERMINAL ID OF AUTHORIZEE*/
FLD: MON13TYP LEN(1) DISP(36) /*AUTHORIZATION TYPE*/
COMP: MON13VRM = X'01' /*REMOVE SESSION VIEW AUTHORITY*/
COMP: MON13VGV = X'02' /*GIVE SESSION VIEW AUTHORITY*/
COMP: MON13TRM = X'04' /*REMOVE TRACK AUTHORITY*/
COMP: MON13TGV = X'08' /*GIVE TRACK AUTHORITY*/
COMP: MON13ARM = X'10' /*REMOVE ASSIST AUTHORITY*/
COMP: MON13AGV = X'20' /*GIVE ASSIST AUTHORITY*/
FLD: MON13SES LEN(8) DISP(37) /*SESSION ID*/
FLD: SMFTPX_END LEN(1) OFFSET(0) |
