Go to Home Page
Questions?
Call 1-800-572-5517
 
  Go to Home Page  
  See all products
  See price schedules
  See manuals, tutorials, articles
  Download a free 30-day trial
  See user testimonials
  About Pacific Systems Group
 
 
SMF Tools
  See SMF Record Layouts
  See Sample SMF Reports
  Learn How to Export SMF Data
  Download Free SMF Reporting Software (30 days)
 
One of the greatest SMF record parsing programming languages I've ever seen. Chief, Large Systems Services Branch, NIH
  Choose Spectrum Writer to add 4GL to your product
  Free 60-Page Book (PDF) - How to Make an SMF Report
Spectrum DCOLLECT Reporter - the 4GL DCOLLECT Report Writer.

Spectrum SMF Writer - the 4GL SMF Report Writer.

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!

SMF Spectrum Writer
We have a low-cost 4GL report writer especially for SMF files. It's called Spectrum SMF Writer.

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.
 
Try It FREE Now!

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.

 

Spectrum SMF Writer
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)

 

Copyright 2017.
Pacific Systems Group.
All rights reserved.
Home | Products | Prices | Documentation | 30-Day Trials | Customer Reviews | Company | FAQ | Sample Reports | SMF Records
Send Your Comments or Questions