SMF Records › CA TPX CB0VMAC(MONSMF)
CA TPX CB0VMAC(MONSMF)
MACRO
MONSMF ,
MONREC DS 0F MONREC LAYOUT
*
* SMF STANDARD HEADER (ALL RECORD TYPES)
*
MONRDW DC AL2(MONRLEN) LL=(RECORD LENGTH)
DC H'0' ZZ=NULL SEGMENT DESCRIPTOR
MONIND DS X z/OS=X'02' VM/GCS=X'E5'
MONSMF# DS X'00' SMF RECORD TYPE
*
MONTIME DS XL4 TIME OF ELAPSED INTERVAL (UNITS OF 1/100 SEC)
MONDATE DS XL4 DATE OF ELAPSED INTERVAL 00YYDDDF
MONSYS DS CL4 SYSID
*
* TPX STANDARD HEADER (ALL RECORD TYPES)
*
MONVER DS CL4 VERSION, RELEASE, AND MODIFICATION LEVEL
MONOFF DS XL2 OFFSET FROM MONRDW TO 1ST VARIABLE SECTION
MONTYPE DS X TYPE OF MONITOR RECORD
MONSTART EQU X'01' .. THIS IS AN TPX START RECORD
MONINTVL EQU X'02' .. THIS IS AN TPX INTERVAL RECORD
MONSTOP EQU X'04' .. THIS IS AN TPX STOP RECORD
MONTSTRT EQU X'05' .. TERMINAL SIGNON EVENT
MONTSTOP EQU X'06' .. TERMINAL SIGNOFF EVENT
MONASTRT EQU X'07' .. APPLIC'N LOGON EVENT
MONASTOP EQU X'08' .. APPLIC'N LOGOFF EVENT
MONAINTVL EQU X'09' .. APPLIC'N INTERVAL RECORD
MONSTOPA EQU X'0A' .. TPX STOP RECORD - APPLIC'N
MONVWSES EQU X'0B' .. SESSION VIEW STAT/END RECORD
MONAPPL DS CL8 APPLID OF EXECUTING SESSION MANAGER
MONCVTTZ DS XL4 CVTTZ TO ADJUST ALL STCK'S
MONBASE DS 0X START OF VARIABLE PORTION
*
**** TPX START RECORD (STARTUP OF TPX)
* (TYPE 01 , ONLY SECTION)
*
MON01LEN DS AL2(M1#DS1) LENGTH OF THIS SECTION
MON01ID DS XL2'1' ID OF THIS SECTION
MONVTAMM DS CL8 VTAM MAJOR NODE NAME
MONSMRT DS CL8 SMRT NAME
DS XL4
M1SPCNT DS XL2 COUNT OF SUBPOOLS < 16M
M1SXCNT DS XL2 COUNT OF SUBPOOLS > 16M
* FORMAT OF SLOTPOOL ENTRY
M1SPESIZ DS XL2 SIZE OF EACH ENTRY IN THIS POOL
M1SPECD8 DS XL2 COUNT OF ENTRIES IN THIS POOL / 8
M1SPELEN EQU *-M1SPESIZ SLOT LENGTH
M1SP0 EQU M1SPESIZ,M1SPELEN SEGLEN0 ENTRY
M1SP1 DS XL4 SEGLEN1 ENTRY
M1SP2 DS XL4 SEGLEN2 ENTRY
M1SP3 DS XL4 SEGLEN3 ENTRY
M1SP4 DS XL4 SEGLEN4 ENTRY
M1SP5 DS XL4 SEGLEN5 ENTRY
M1SP6 DS XL4 SEGLEN6 ENTRY
M1SP7 DS XL4 SEGLEN7 ENTRY
M1SP8 DS XL4 SEGLEN8 ENTRY
M1SP9 DS XL4 SEGLEN9 ENTRY
M1SPA DS XL4 SEGLENA ENTRY
M1SPB DS XL4 SEGLENB ENTRY
*
M1SX0 DS XL4 XEGLEN0 ENTRY (XA)
M1SX1 DS XL4 XEGLEN1 ENTRY (XA)
M1SX2 DS XL4 XEGLEN2 ENTRY (XA)
M1SX3 DS XL4 XEGLEN3 ENTRY (XA)
M1SX4 DS XL4 XEGLEN4 ENTRY (XA)
M1SX5 DS XL4 XEGLEN5 ENTRY (XA)
M1SX6 DS XL4 XEGLEN6 ENTRY (XA)
M1SX7 DS XL4 XEGLEN7 ENTRY (XA)
M1SX8 DS XL4 XEGLEN8 ENTRY (XA)
M1SX9 DS XL4 XEGLEN9 ENTRY (XA)
M1SXA DS XL4 XEGLENA ENTRY (XA)
M1SXB DS XL4 XEGLENB ENTRY (XA)
M1PTFLVL DS XL8 PTF LEVEL
M1#DS1 EQU *-MONBASE LENGTH OF SEGMENT1 RECORD1
MONSHORT EQU *-MONREC LENGTH OF START RECORDS
*
**** TPX INTERVAL AND STOP RECORD (ONLY SECTION)
* (TYPE 02, WRITTEN EVERY 'SMFINT(SMRT)' MINUTES)
* (TYPE 04, WRITTEN WHEN TPX IS TAKEN DOWN)
*
ORG MONBASE
M24LEN DS AL2(M24#DS1) LENGTH OF THIS SECTION
M24ID DS XL2'1' ID OF THIS SECTION
MONSRBT DS XL8 SRB TIME (STCK FORMAT)
MONCPU DS XL8 ASCBEJST AT INTERVAL END (STCK FORMAT)
MONPIN DS XL4 PAGE INS AT INTERVAL END (OUXBPIN)
MONPOUT DS XL4 PAGE OUTS AT INTERVAL END (OUXBPOUT)
MONMSGTI DS XL4 TOTAL TERMINAL MESSAGES INBOUND TO TPX
MONMSGTO DS XL4 TOTAL TERMINAL MESSAGES OUTBOUND FROM TPX
MONBYTTI DS XL4 TOTAL TERMINAL BYTES INBOUND TO TPX
MONBYTTO DS XL4 TOTAL TERMINAL BYTES OUTBOUND FROM TPX
MONSESTS DS XL4 TOTAL TERMINAL SESSIONS STARTED
MONSESTP DS XL4 TOTAL TERMINAL SESSIONS STOPPED
MONMSGAI DS XL4 TOTAL APPLICATION MESSAGES INBOUND TO TPX
MONMSGAO DS XL4 TOTAL APPLICATION MESSAGES OUTBOUND FROM TPX
MONBYTAI DS XL4 TOTAL APPLICATION BYTES INBOUND TO TPX
MONBYTAO DS XL4 TOTAL APPLICATION BYTES OUTBOUND FROM TPX
MONSESAS DS XL4 TOTAL APPLICATION SESSIONS STARTED
MONSESAP DS XL4 TOTAL APPLICATION SESSIONS STOPPED
M24PAD DS 0X END OF COPY FROM SMRT
MONELAP DS XL4 VALUE OF SMFINT FROM SMRT GEN
*
* DSA STATISTICS
*
MONDSAF DS XL4 BYTES OF DSA FREE TO BE USED (TOTAL-USED)
MONDSAU DS XL4 DSA USED
MONDSAH DS XL4 HIGHEST USED BYTES COUNT
M2DSAE DS XL2 EMPTY DSA ENTRIES
M2DSAR DS XL2 HIGHEST USED CONTROL RECORD COUNT
MONEGOT DS XL4
MONDSA DS 0X END OF COPY FROM SMRT
*
MONXDSAF DS XL4 XA BYTES OF DSA FREE TO BE USED (TOTAL-USED)
MONXDSAU DS XL4 XA DSA USED
MONXDSAH DS XL4 XA HIGHEST USED BYTES COUNT
MONXDSAC DS 0XL4 XA HIGHEST USED CONTROL RECORD COUNT
M2DXAE DS XL2 EMPTY DSA ENTRIES
M2DXAR DS XL2 HIGHEST USED CONTROL RECORD COUNT
MONXEGOT DS XL4 XA EMERGENCY BUFFER RELOAD COUNT
MONXDSA DS 0X XA END OF COPY FROM SMRT
*
* SLOTPOOL STATISTICS
*
* SLOTPOOL TOTALS
*
MONSGCNT DS XL4 NO OF STORAGE SEGMENTS
MONSGFAL DS XL4 NO OF FAILURES
MONSGBYT DS XL4 NO OF BYTES USED
MONSGHIU DS XL4 HIGHEST USED BYTES
MONSLT DS 0X END OF COPY FROM SMRT
*
MONXGCNT DS XL4 XA NO OF STORAGE SEGMENTS
MONXGFAL DS XL4 XA NO OF FAILURES
MONXGBYT DS XL4 XA NO OF BYTES USED
MONXGHIU DS XL4 XA HIGHEST USED BYTES
MONXLT DS 0X XA END OF COPY FROM SMRT
*
* SEGMENT TOTALS
*
* FORMAT OF SLOTPOOL ENTRY
MONSGREQ DS XL4 NO OF GETSTORES TEMPLATE/FIRST ENTRY
MONSGGFL DS XL4 NO OF FAILURES
MONSGCUR DS XL4 CURRENT SLOT USED COUNT
MONSGMAX DS XL4 HIGHEST SLOTS USED SO FAR
MONSGLEN EQU *-MONSGREQ SLOT LENGTH
MONS0008 EQU MONSGREQ,MONSGLEN 8 (SEGLEN0) BYTE SLOT ENTRY
MONS0016 DS XL16 16 (SEGLEN1) BYTE SLOT ENTRY
MONS0032 DS XL16 32 (SEGLEN2) BYTE SLOT ENTRY
MONS0064 DS XL16 64 (SEGLEN3) BYTE SLOT ENTRY
MONS0128 DS XL16 128 (SEGLEN4) BYTE SLOT ENTRY
MONS0256 DS XL16 256 (SEGLEN5) BYTE SLOT ENTRY
MONS0512 DS XL16 512 (SEGLEN6) BYTE SLOT ENTRY
MONS1024 DS XL16 1K (SEGLEN7) BYTE SLOT ENTRY
MONS2048 DS XL16 2K (SEGLEN8) BYTE SLOT ENTRY
MONS3072 DS XL16 3K (SEGLEN9) BYTE SLOT ENTRY
MONS4096 DS XL16 4K (SEGLENA) BYTE SLOT ENTRY
MONS8192 DS XL16 8K (SEGLENB) BYTE SLOT ENTRY
MONSCNTR EQU 12
*
MONX0008 DS XL16 8 (XEGLEN0) BYTE SLOT ENTRY (XA)
MONX0016 DS XL16 16 (XEGLEN1) BYTE SLOT ENTRY (XA)
MONX0032 DS XL16 32 (XEGLEN2) BYTE SLOT ENTRY (XA)
MONX0064 DS XL16 64 (XEGLEN3) BYTE SLOT ENTRY (XA)
MONX0128 DS XL16 128 (XEGLEN4) BYTE SLOT ENTRY (XA)
MONX0256 DS XL16 256 (XEGLEN5) BYTE SLOT ENTRY (XA)
MONX0512 DS XL16 512 (XEGLEN6) BYTE SLOT ENTRY (XA)
MONX1024 DS XL16 1K (XEGLEN7) BYTE SLOT ENTRY (XA)
MONX2048 DS XL16 2K (XEGLEN8) BYTE SLOT ENTRY (XA)
MONX3072 DS XL16 3K (XEGLEN9) BYTE SLOT ENTRY (XA)
MONX4096 DS XL16 4K (XEGLENA) BYTE SLOT ENTRY (XA)
MONX8192 DS XL16 8K (XEGLENB) BYTE SLOT ENTRY (XA)
MONXCNTR EQU 12
*
* TASK QUEUE STATISTICS
*
MONQRTEC DS XL4 COUNT FOR ROUTE
MONQRTEM DS XL4 MAX FOR ROUTE
MONQSNDC DS XL4 COUNT FOR SEND
MONQSNDM DS XL4 MAX FOR SEND
MONQSVCC DS XL4 COUNT FOR SERVICE
MONQSVCM DS XL4 MAX FOR SERVICE
MONQPASC DS XL4 COUNT FOR PASSTHROUGH
MONQPASM DS XL4 MAX FOR PASSTHROUGH
MONQDIAC DS XL4 COUNT FOR DIAGNOSE
MONQDIAM DS XL4 MAX FOR DIAGNOSE
MONQMONC DS XL4 COUNT FOR MONITOR
MONQMONM DS XL4 MAX FOR MONITOR
MONQONFC DS XL4 COUNT FOR ON/OFF
MONQONFM DS XL4 MAX FOR ON/OFF
MONQRCVC DS XL4 COUNT FOR RECEIVE
MONQRCVM DS XL4 MAX FOR RECEIVE
MONQCNSC DS XL4 COUNT FOR CONSOLE
MONQCNSM DS XL4 MAX FOR CONSOLE
MONQSCTC DS XL4 COUNT FOR SCRIPT
MONQSCTM DS XL4 MAX FOR SCRIPT
MONQWRTC DS XL4 COUNT FOR WRITER
MONQWRTM DS XL4 MAX FOR WRITER
MONQQUEC DS XL4 COUNT FOR QUEUE
MONQQUEM DS XL4 MAX FOR QUEUE
MONQMAIC DS XL4 COUNT FOR MAIN
MONQMAIM DS XL4 MAX FOR MAIN
MONQCNTR EQU ((*-MONQRTEC)/8)
*
* SACB STATISTICS
*
MONSACBC DS XL4 CURRENT SACBS IN USE
MONSACBH DS XL4 SACB HIGH WATER MARK
M24#DS1 EQU *-MONBASE LENGTH OF SEGMENT1 RECORDS 2 AND 4
MONRLEN EQU *-MONREC LENGTH OF MONITOR DATA
*
**** TPX SESSION INTERVAL AND STOP RECORD (ONLY SECTION)
* (TYPE 09, WRITTEN EVERY 'SMFINT(SMRT)' MINUTES)
* (TYPE 0A, WRITTEN WHEN TPX IS TAKEN DOWN)
*
ORG MONBASE
M9LEN DS AL2(M9#DS1) LENGTH OF THIS SECTION
M9ID DS XL2'1' ID OF THIS SECTION
M9NAME DS CL8 NAME OF APPLICATION
M9SESS DS CL8 SESSION NAME
M9FLAG DS X TWO RESERVED BYTES
M9QSCEP EQU X'80' APPLICATION QUIESCE IN PROGRESS
M9QSCEC EQU X'40' APPLICATION QUIESCE IS COMPLETE
M9MDT EQU X'01' MDT COMPRESSION FOR THIS APPL
M9UCNT DS XL4 APPLICATION USE COUNT
M9UMAX DS XL4 MAX USE COUNT
M9CIN DS XL4 STD.3270 COMPRESSION BYTES IN
M9COUT DS XL4 STD.3270 COMPRESSION BYTES OUT
M9CCNT DS XL4 STD.3270 COMPRESSION MESSAGES
M9BYTI DS XL4 BYTES IN (FROM APPL)
DS XL4 FILLER
M9BYTO DS XL4 BYTES OUT (TO APPL)
DS XL4 FILLER
M9MSGSI DS XL4 MSGS IN
M9MSGSO DS XL4 MSGS OUT
M9MDTL DS XL4 INBOUND COMPRESSION BYTES OUT
M9MDTS DS XL4 INBOUND COMPRESSION BYTES IN
*M9MDTM DS XL4 INBOUND COMPRESSION MESSAGES
*M9EFCIN DS XL4 EQUAL-FIELD COMPRESSION BYTES IN
*M9EFCOUT DS XL4 EQUAL-FIELD COMPRESSION BYTES OUT
*M9EFMCNT DS XL4 EQUAL-FIELD COMPRESSION MESSAGES
M9CCTL DS X COMPRESSION CONTROL
M9COMP EQU X'80' COMPRESSION OFF
M9#DS1 EQU *-MONBASE LENGTH OF SEGMENT1 RECORDS 9 AND 10
M9RLENG EQU *-MONREC LENGTH OF TYPE 9/A RECORDS
*
***** 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)
*
ORG MONBASE
MONCMLEN DS AL2(M5678LEN1) LENGTH OF THIS SECTION
MONCMID DS XL2'1' ID OF THIS SECTION
MONUSER DS CL8 REQUESTORS USERID
MONTNAME DS CL8 NAME OF TERMINAL
MONCID DS XL4 CID
M5678LEN1 EQU *-MONCMLEN LENGTH OF SEGMENT 1 RECORDS 5, 6, 7, 8
*
* TPX SESSION RECORDS - TERMINAL SESSION STARTUP
* (TYPE 05, LAST SECTION; TYPE 06, SECOND SECTION)
*
MON05LEN DS AL2(M5LEN2) LENGTH OF THIS SECTION
MON05ID DS XL2'2' ID OF THIS SECTION
MONMODEL DS CL8 MODEL FROM SBMODEL
MONLOGMD DS CL8 LOGMODE
DS CL8 AVAILABLE
M57STIME DS XL8 SESSION START TIME
MONIPARD DS CL45 IP ADDRESS
MONIPPRT DS CL4 IP PORT
M5LEN2 EQU *-MON05LEN LENGTH OF SEGMENT 2, RECORD 5
MONTLENG EQU *-MONREC LENGTH FOR MONTYPE=MONTSTRT
M6FILL DS CL8 FILLER TO MAKE RECS 6 & 8 CONGRUENT JJC
M6LEN2 EQU *-MON05LEN LENGTH OF SEGMENT 2 RECORD 6
*
* TPX SESSION RECORDS - APPLICATION SESSION STARTUP
* (TYPE 07, LAST SECTION; TYPE 08, SECOND SECTION)
*
ORG MON05LEN
MON07LEN DS AL2(M78LEN3) LENGTH OF THIS SECTION
MON07ID DS XL2'3' ID OF THIS SECTION
MONVNAME DS CL8 VIRTUAL TERMINAL SELECTED
MONGNAME DS CL8 GENERIC APPLICATION NAME
MONANAME DS CL8 ACTUAL APPLICATION NAME
MONSTIME DS XL8 SESSION START TIME
MONSNAME DS XL8 SESSION NAME
M78LEN3 EQU *-MON07LEN LENGTH OF SEGMENT 3 RECORDS 7, 8
MONSLENG EQU *-MONREC LENGTH FOR MONTYPE=MONASTRT
*
* TPX SESSION RECORDS - SESSION TERMINATION SUMMARY SECTION
* (TYPE 06, TYPE 08, LAST SECTION)
*
MON06LEN DS AL2(M68LEN4) LENGTH OF THIS SECTION
MON06ID DS XL2'4' ID OF THIS SECTION
MONMSGCI DS XL4 TOTAL MESSAGES INBOUND TO TPX
MONMSGCO DS XL4 TOTAL MESSAGES OUTBOUND FROM TPX
MONBYTCI DS XL4 TOTAL BYTES INBOUND TO TPX
MONBYTCO DS XL4 TOTAL BYTES OUTBOUND FROM TPX
MONETIME DS XL8 SESSION END TIME
MONATIME DS XL8 ACCUMULATED SESSION CONNECT-TIME - TYPE 08
* ACCUMULATED TIME USER SIGNED ON TPX - TYPE 06
M68CIN DS XL4 STD.3270 COMPRESSION INBOUND BYTES
M68COUT DS XL4 STD.3270 COMPRESSION OUTBOUND BYTES
M68CBCT DS XL1 APPLICATION COMPRESSION WHEN TO TRY AGAIN COUNTER.
M68NOCMP EQU X'80' DON'T COMPRESS THIS APPL.
M68CCNT DS AL3 STD.3270 COMPRESSION MESSAGE COUNT
MONMDTL DS XL4 INBOUND COMPRESSION OUTBOUND COUNT
MONMDTS DS XL4 INBOUND COMPRESSION INBOUND COUNT
MONMDTM DS XL4 INBOUND COMPRESSION MESSAGE COUNT
M68EFIN DS XL4 EQUAL-FIELD COMPRESSION BYTES IN
M68EFOUT DS XL4 EQUAL-FIELD COMPRESSION BYTES OUT
M68EFCNT DS XL4 EQUAL-FIELD COMPRESSION MESSAGE COUNT
M68LEN4 EQU *-MON06LEN LENGTH OF SEGMENT 4 RECORDS 6, 8
MONPLENG EQU *-MONREC LENGTH FOR MONTYPE=(MONTSTOP|MONASTOP)
*
* (TYPE 0B, SESSION VIEW START/END RECORD)
*
ORG MONBAS
MON0BLEN DS AL2(M0B#DS1) LENGTH OF THIS SECTION
MON0BID DS XL2'1' ID OF THIS SECTION
MONBVER DS CL8 USERID OF VIEWER
MONBTVER DS CL8 TERMINAL ID OF VIEWER
MONBVEE DS CL8 USERID OF VIEWEE
MONBTVEE DS CL8 TERMINAL ID OF VIEWEE
MONBTYPE DS XL1 SESSION VIEW TYPE
MONBVIEW EQU X'04' VIEW REQUEST
MONBTRK EQU X'08' TRACK REQUEST
MONBIND DS XL1 START/END INDICATOR
MONBSTR EQU X'04' START RECOED
MONBEND EQU X'08' END RECORD
MONBSES1 DS CL8 VIEWED SESSION #1
MONBSES2 DS CL8 VIEWED SESSION #2
MONBSES3 DS CL8 VIEWED SESSION #3
MONBSES4 DS CL8 VIEWED SESSION #4
M0B#DS1 EQU *-MONBASE SECTION LENGTH
M0BLENG EQU *-MONREC LENGTH OF RECORD
*
* (TYPE 0C, SESSION ASSIST START/END RECORD)
*
ORG MONBASE
MON0CLEN DS AL2(M0C#DS1) LENGTH OF THIS SECTION
MON0CID DS XL2'1' ID OF THIS SECTION
MONCOWN DS CL8 USERID OF SESSION OWNER
MONCTOWN DS CL8 TERMINAL ID OF SESSION OWNER
MONCUSR DS CL8 USERID OF ASSISTOR
MONCTUSR DS CL8 TERMINAL ID OF ASSISTOR
MONCIND DS XL1 START/END INDICATOR
MONCSTR EQU X'04' START RECOED
MONCEND EQU X'08' END RECORD
MONCSESS DS CL8 SESSION ID
M0C#DS1 EQU *-MONBASE SECTION LENGTH
M0CLENG EQU *-MONREC LENGTH OF RECORD
*
* (TYPE 0D, CONFERENCE INITIATION/TERMINATION RECORD)
*
ORG MONBASE
MON0DLEN DS AL2(M0D#DS1) LENGTH OF THIS SECTION
MON0DID DS XL2'1' ID OF THIS SECTION
MONDUSR DS CL8 USERID OF INITIATOR
MONDTUSR DS CL8 TERMINAL ID OF INITIATOR
MONDTYPE DS XL1 CONFERENCE TYPE
MONDPUB EQU X'04' PUBLIC CONFERENCE
MONDPRV EQU X'08' PRIVATE CONFERENCE
MONDIND DS XL1 INITIATION/TERMINATION INDICATOR
MONDSTR EQU X'04' START RECOED
MONDEND EQU X'08' END RECORD
MONDSESS DS CL8 SESSION ID
MONDDESC DS CL20 CONFERENCE DESCRIPTION
M0D#DS1 EQU *-MONBASE SECTION LENGTH
M0DLENG EQU *-MONREC LENGTH OF RECORD
*
* (TYPE 0E, ENTER/LEAVE CONFERENCE RECORD)
*
ORG MONBASE
MON0ELEN DS AL2(M0E#DS1) LENGTH OF THIS SECTION
MON0EID DS XL2'1' ID OF THIS SECTION
MONEOWN DS CL8 USERID OF INITIATOR
MONETOWN DS CL8 TERMINAL ID OF INITIATOR
MONEUSR DS CL8 USERID OF PARTICIPANT
MONETUSR DS CL8 TERMINAL ID OF PARTICIPANT
MONETYPE DS XL1 CONFERENCE TYPE
MONEPUB EQU X'04' PUBLIC CONFERENCE
MONEPRV EQU X'08' PRIVATE CONFERENCE
MONEIND DS XL1 ENTER/LEAVE INDICATOR
MONESTR EQU X'04' START RECORD
MONEEND EQU X'08' END RECORD
MONESESS DS CL8 SESSION ID
MONEDESC DS CL20 CONFERENCE DESCRIPTION
M0E#DS1 EQU *-MONBASE SECTION LENGTH
M0ELENG EQU *-MONREC LENGTH OF RECORD
*
* (TYPE 0F, TRAINING SESSION INITIATION/TERMINATION RECORD)
*
ORG MONBASE
MON0FLEN DS AL2(M0F#DS1) LENGTH OF THIS SECTION
MON0FID DS XL2'1' ID OF THIS SECTION
MONFUSR DS CL8 USERID OF INITIATOR
MONFTUSR DS CL8 TERMINAL ID OF INITIATOR
MONFTYPE DS XL1 TRAINING SESSION TYPE
MONFPUB EQU X'04' PUBLIC TRAINING SESSION
MONFPRV EQU X'08' PRIVATE TRAINING SESSION
MONFIND DS XL1 INITIATION/TERMINATION INDICATOR
MONFSTR EQU X'04' START RECOED
MONFEND EQU X'08' END RECORD
MONFSESS DS CL8 SESSION ID
MONFDESC DS CL20 TRAINING SESSION DESCRIPTION
M0F#DS1 EQU *-MONBASE SECTION LENGTH
M0FLENG EQU *-MONREC LENGTH OF RECORD
*
* (TYPE 10, ENTER/LEAVE TRAINING SESSION RECORD)
*
ORG MONBASE
MON10LEN DS AL2(M10#DS1) LENGTH OF THIS SECTION
MON10ID DS XL2'1' ID OF THIS SECTION
MON10OWN DS CL8 USERID OF TRAINER
MON10TON DS CL8 TERMINAL ID OF TRAINER
MON10USR DS CL8 USERID OF PARTICIPANT
MON10TUS DS CL8 TERMINAL ID OF PARTICIPANT
MON10TYP DS XL1 TRAINING SESSION TYPE
MON10PUB EQU X'04' PUBLIC TRAINING SESSION
MON10PRV EQU X'08' PRIVATE TRAINING SESSION
MON10IND DS XL1 ENTER/LEAVE INDICATOR
MON10STR EQU X'04' START RECORD
MON10END EQU X'08' END RECORD
MON10SES DS CL8 SESSION ID
MON10DSC DS CL20 TRAINING SESSION DESCRIPTION
M10#DS1 EQU *-MONBASE SECTION LENGTH
M10LENG EQU *-MONREC LENGTH OF RECORD
*
* (TYPE 11, SESSION RECORD START/END RECORD)
*
ORG MONBASE
MON11LEN DS AL2(M11#DS1) LENGTH OF THIS SECTION
MON11ID DS XL2'1' ID OF THIS SECTION
MON11USR DS CL8 USERID OF RECORDER
MON11TRM DS CL8 TERMINAL ID OF RECORDER
MON11TYP DS XL1 SESSION RECORD TYPE
MON11PUB EQU X'04' PUBLIC RECORD SESSION
MON11PRV EQU X'08' PRIVATE RECORD SESSION
MON11IND DS XL1 START/END INDICATOR
MON11STR EQU X'04' START RECORD
MON11END EQU X'08' END RECORD
MON11SES DS CL8 SESSION ID
MON11DSC DS CL20 RECORDED SESSION DESCRIPTION
M11#DS1 EQU *-MONBASE SECTION LENGTH
M11LENG EQU *-MONREC LENGTH OF RECORD
*
* (TYPE 12, SESSION PLAYBACK START/END RECORD)
*
ORG MONBASE
MON12LEN DS AL2(M12#DS1) LENGTH OF THIS SECTION
MON12ID DS XL2'1' ID OF THIS SECTION
MON12OWN DS CL8 USERID OF RECORDER
MON12OTM DS CL8 TERMINAL ID OF RECORDER
MON12USR DS CL8 USERID OF USER DOING THE PLAYBACK
MON12TRM DS CL8 TERMINAL ID OF USER DOING THE PLAYBACK
MON12TYP DS XL1 PLAYBACK SESSION TYPE
MON12PUB EQU X'04' PUBLIC PLAYBACK SESSION
MON12PRV EQU X'08' PRIVATE PLAYBACK SESSION
MON12IND DS XL1 START/END INDICATOR
MON12STR EQU X'04' START PLAYBACK
MON12END EQU X'08' END PLAYBACK
MON12SES DS CL8 SESSION ID
MON12DSC DS CL20 RECORDED SESSION DESCRIPTION
M12#DS1 EQU *-MONBASE SECTION LENGTH
M12LENG EQU *-MONREC LENGTH OF RECORD
*
* (TYPE 13, VIEW TEMPORARY AUTHORIZATION RECORD)
*
ORG MONBASE
MON13LEN DS AL2(M13#DS1) LENGTH OF THIS SECTION
MON13ID DS XL2'1' ID OF THIS SECTION
MON13GIV DS CL8 USERID OF AUTHORIZER
MON13GTM DS CL8 TERMINAL ID OF AUTHORIZER
MON13REC DS CL8 USERID OF AUTHORIZEE
MON13RTM DS CL8 TERMINAL ID OF AUTHORIZEE
MON13TYP DS XL1 AUTHORIZATION TYPE
MON13VRM EQU X'01' REMOVE SESSION VIEW AUTHORITY
MON13VGV EQU X'02' GIVE SESSION VIEW AUTHORITY
MON13TRM EQU X'04' REMOVE TRACK AUTHORITY
MON13TGV EQU X'08' GIVE TRACK AUTHORITY
MON13ARM EQU X'10' REMOVE ASSIST AUTHORITY
MON13AGV EQU X'20' GIVE ASSIST AUTHORITY
MON13SES DS CL8 SESSION ID
M13#DS1 EQU *-MONBASE SECTION LENGTH
M13LENG EQU *-MONREC LENGTH OF RECORD
*
ORG ,
MEND
Copyright © 2013 CA.
All rights reserved.
|
|