MCR - BMS message control record dsect

     DESCRIPTIVE NAME = CICS TS BMS MESSAGE CONTROL RECORD DSECT
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1993, 2014 
     FUNCTION = DEFINE THE BMS MESSAGE CONTROL RECORD (MCR). THE MCR
                DEFINES A BMS LOGICAL MESSAGE ON TEMPORARY STORAGE.
                IT IS OUTPUT BY DFHMCP, AND READ/UPDATED BY DFHTPS,
                DFHTPQ, AND DFHTPR.
                THE MCR TS QUEUE ID IS RELATED TO THE CORRESPONDING
                LOGICAL MESSAGE PAGE TS QUEUE BY A NAMING CONVENTION.
     NOTES :
      DEPENDENCIES = S/370
      RESTRICTIONS = NONE
      REGISTER CONVENTIONS = NOT APPLICABLE
      MODULE TYPE = DSECT
      MODULE SIZE = NOT APPLICABLE
      ATTRIBUTES = DSECT
     ENTRY POINT = NOT APPLICABLE
      PURPOSE = SEE FUNCTION
      LINKAGE = NOT APPLICABLE
     INPUT = NOT APPLICABLE
     OUTPUT = NOT APPLICABLE
     EXIT-NORMAL = NOT APPLICABLE
     EXIT-ERROR = NOT APPLICABLE
     EXTERNAL REFERENCES = NONE
      CONTROL BLOCKS = NOT APPLICABLE
      TABLES = NOT APPLICABLE
      MACROS = NONE
      ALL DISPLACEMENTS ARE COMPUTED FROM 'DFHMCRDS'
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 DFHMCRDS MCR DUMMY SECTION
(0) DBL WORD 8 MCRSAAP STORAGE ACCOUNTING INFORMATION; STORAGE CLASS=USER
(0) .... 1...   MCRSTART "*" START OF MCR
(8) FULLWORD 4 MCRLLBB VARIABLE-LENGTH RECORD INFORMATION (LLBB)
(C) CHARACTER 8 MCRCBID MCR SELF IDENTIFICATION. SET TO 'DFHMCRDS' WHEN MCR CREATED
(14) HALFWORD 2 MCRPGCNT TOTAL PAGE COUNT
(16) HALFWORD 2 MCRIDCNT COUNT OF TERMINALS TO RECEIVE MESSAGE
(18) HALFWORD 2 MCRLSTRM DISPLACEMENT TO LAST TERMINAL ENTRY IN THIS RECORD
(1A) HALFWORD 2 MCRTTLD DISPLACEMENT TO TITLE PAGE
(1C) HALFWORD 2 MCRPLTD DISPLACEMENT TO THE PAGE/LDC TABLE
(1E) CHARACTER 2 MCRETLDC ERROR TERMINAL'S LDC MNEMONIC
(20) CHARACTER 4 MCRERRID ID OF TERMINAL TO RECEIVE ERROR NOTIFICATION
(24) CHARACTER 3 MCROPCL OPERATOR CLASS
(27) BITSTRING 1 MCRPGCHN PAGE CHAIN LEVEL
(28) BITSTRING 1 MCRFLAGS FLAGS
         NOTE -- DSECTS FOR THE MCR AND MCB SHOULD HAVE
         EQUIVALENT BIT PATTERNS FOR THE FOLLOWING FLAGS --
               XXXTITLE - MESSAGE HAS A TITLE
               XXXWBCUR WTBRK=CURR (2741)
               XXXWBALL WTBRK=ALL (2741)
               XXXEODOP EODPURG=OPER
               WHERE XXX IS ONE OF MCR OR MCB
(28) 1... ....   MCRTITLE "X'80'" ...TITLE RECORD IN THIS MCR
(28) .1.. ....   MCRWBCUR "X'40'" ...WTBRK=CURRENT (2741 ONLY)
(28) ..1. ....   MCRWBALL "X'20'" ...WTBRK=ALL (2741 ONLY)
(28) ...1 ....   MCREODOP "X'10'" ...EODPURG=OPER
(28) .... 1...   MCRPAGE "X'08'" ...MAKE TEMPORARILY PAGING
(28) .... .1..   MCRAUTOP "X'04'" ...MAKE TEMPORARILY AUTOPAGE
(28) .... ..1.   MCRBMSSM "X'02'" ...BMS - SYSTEM MESSAGE
(28) .... ...1   MCRRTAIN "X'01'" ...CTRL=RETAIN
(29) BITSTRING 1 MCRSTAT STATUS FLAG
(29) 1... ....   MCRQKPRG "X'80'" MESSAGE ELIGIBLE FOR QUICK PURGE
(29) .1.. ....   MCRMLDC "X'40'" MCR CONTAINS MULTIPLE LDC'S
(29) .... 1...   MCRSCSZ "X'08'" USE ALTERNATE SCREENSIZE
(29) .... .1..   MCRTRAN "X'04'" PAGES CONTAIN EXTRA BYTE FOR TRANSPARENT MODE
(29) ..1. 11..   MCRIDLST "*" START OF TERMINAL LIST TERMINAL ENTRY FOR ONE TERMINAL -
(2C) CHARACTER 4 MCRTRMID TERMINAL IDENTIFICATION
(30) CHARACTER 2 MCRLDCMN LDC MNEMONIC
(32) HALFWORD 2 MCRLDCPG PAGE COUNT PER LDC
(34) BITSTRING 1 MCRLDCCD LDC CODE
(35) CHARACTER 3 MCROPID OPERATOR ID
(38) BITSTRING 1 MCRSF STATUS FLAG
(38) 1... ....   MCRSFPG "TCTTEPGP" PAGING STATUS
(38) .1.. ....   MCRLFAIL "X'40'" LOCATE FAILED - ENTRY IS SKIPPED ONLY IF MCRMLDC IS ON
(39) BITSTRING 1 MCRTETYP TYPE OF TERMINAL ENTRY
(39) 1... ....   MCRTEREM "X'80'" REMOTE TERMINAL
(3A) CHARACTER 8 MCRDSN (0) DESTINATION NAME IF LOCALLY OWNED TERMINAL
(3A) CHARACTER 4 MCRSYSID ID OF TERMINAL OWNING SYSTEM (OR FIRST IN CHAIN) IF REMOTELY OWNED TERMINAL
(3E) CHARACTER 4   RESERVED
(42) BITSTRING 1 MCRDSP DATA STREAM PROFILE
(43) BITSTRING 1   RESERVED
(43) .1.. .1..   MCRIDNXT "*" LOCATION OF NEXT ID ENTRY
(43) ...1 1...   MCRLNTRY "MCRIDNXT-MCRIDLST" MCR TERMINAL LIST ENTRY LENGTH