NAME       : HCPCOMBK
 DESCRIPTION: Console Communications Control Block
 DSECT      : COMBK
 FUNCTION   : Contains data and control information pertinent to the
              control and communication between virtual and real
              terminal console tasks and command streams.
 LOCATED BY : COMPNT  - chained
              RDEVCON - field in HCPRDEV
 CREATED BY : HCPQCN - whenever a read or write is to be done.
              HCPGFS - to clear the screen when switching from
              full-screen mode to CP mode.
              HCPGRF - for APL/TEXT translations, and
              to clear the screen when switching from
              full-screen mode to CP mode.
              HCPGIN - for uppercase translation.
              HCPTTY - to update the status area to indicate
              ***MORE***.
              HCPVCYSM - for VM/VTAM terminal processing.
 DELETED BY : HCPQCOET - general system routine to return COMBKs
              to free storage.
              HCPQCN - when a message won't be displayed on the
              terminal screen or when a COMBK is split
              into two or more COMBKS.
              HCPGIN - when uppercase translation is completed.
              HCPGRF - when APL/TEXT translation is completed.
 RELOCATION CONSIDERATIONS : None
 REFERENCES : HCPEQUAT - equate symbols
              HCPHCCW  - host channel control word

 COMBK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      COMBK          Console Communications Control Block
0000    0 Signed       4 COMPNT         POINTER TO NEXT COMBK
0004    4 Signed       2 COMHPARM (0)   CALLING PARMS (SEE EQUATES COPY)
0004    4 Bitstring    1 COMBPARM       BYTE 1 OF CALLING PARMS
          ..1. ....      COMALTVM       X'20' COMALTVM data to be sent to
                                        an alternate user
          ...1 ....      COMREDSP       X'10' COMREDSP this is input
                                        redisplay data
          .... 1...      COMIOCOM       X'08' COMIOCOM return when I/O is
                                        completed
          .... .1..      COMSCRFL       X'04' COMSCRFL return if data can
                                        fit on current scrn
          .... ..1.      COMDIAG        X'02' COMDIAG this is a diagnose
                                        request
0005    5 Bitstring    1 COMPARM        CALLING PARMS (SEE EQUATES COPY)
          1... ....      COMDROP        X'80' COMDROP LOGOFF & DROP line
                                        after message
          ..1. ....      COMHIPRI       X'20' COMHIPRI hipriority message
          ...1 ....      COMVMIO        X'10' COMVMIO virtual machine I/O
          .... 1...      COMHIDE        X'08' COMHIDE do not display the
                                        data
          .... .1..      COMNOCR        X'04' COMNOCR suppress automatic
                                        carriage return
          .... ..1.      COMALRM        X'02' COMALRM sound the audible
                                        alarm
          .... ...1      COMCRDR        X'01' COMCRDR data is expected
                                        from a cardreader
          .... .1..      COMEDIT        X'04' COMEDIT the input line will
                                        be edited for logical line end,
                                        line delete, charactr delete, and
                                        escape characters according to
                                        the user's logical line editing
                                        character setting.
          .... ..1.      COMUPPR        X'02' COMUPPR translate all
                                        characters on the input line to
                                        upper case
0006    6 Signed       2 COMTSKSZ       COMBK SIZE IN DOUBLE WORDS
0008    8 Signed       4 COMRETN        POINTER TO SAVEAREA FOR RETURN
000C   12 Signed       4 COMUSER        ADDRESS OF VMDBK FOR DESTINATION
                                        USER
0010   16 Bitstring    1 COMSTAT        COMBK STATUS CONTROL FLAGS
          1... ....      COMOUTPT       X'80' COMOUTPT OUTPUT COMBK
          .1.. ....      COMRESP        X'40' COMRESP RESPONSE EXPECTED
                                        FROM THIS COMBK
          ..1. ....      COMACTV        X'20' COMACTV COMBK IS ACTIVE ON
                                        REAL DEVICE
          ...1 ....      COMCNTL        X'10' COMCNTL THIS IS A CONTROL
                                        COMBK ONLY
          .... 1...      COMESCP        X'08' COMESCP COMBK CONTAINS
                                        DEVICE DEPENDENT DATA
          .... .1..      COMLOALM       X'04' COMLOALM THIS COMBK HAS
                                        BEEN INHIBITED FROM BREAKING INTO
                                        FULL SCREEN MODE AND THE ALARM
                                        HAS ALREADY BEEN RUNG TO NOTIFY
                                        THE USER
          .... ..1.      COMSPLT        X'02' COMSPLT OUTPUT DATA BEING
                                        SPLIT
          .... ...1      COMSYNC        X'01' COMSYNC COMBK FOR
                                        SYNCHRONIZATION ONLY
0011   17 Bitstring    1 COMDFLAG       DIAGNOSE DISPLAY FLAG
          000000FF       COMCNCL        255 COMCNCL DISPLAY - CANCEL
                                        FUNCTION REQUESTED
          000000FE       COMCLEAR       254 COMCLEAR DISPLAY - CLEAR
                                        FUNCTION REQUESTED ERASE THE
                                        ENTIRE SCREEN, REWRITE THE
                                        ATTRIBUTE BYTES FOR CP SCREEN
                                        FORMAT, AND RESET THE CURSOR TO
                                        THE BEGINNING OF THE INPUT AREA
          1... ....      COMCLRS        X'80' COMCLRS DISPLAY - CLEAR
                                        SCREEN BEFORE OUTPUT
          .1.. ....      COMFSRQ        X'40' COMFSRQ DISPLAY -
                                        FULL-SCREEN CONTROL REQUEST
          ..11 1111      COMLMSK        X'3F' COMLMSK DISPLAY - MASK FOR
                                        BITS IN LINE NUM
0012   18 Bitstring    1 COMCNTRL       CONTROL FLOW FLAGS
          1... ....      COMHOLD        X'80' COMHOLD DISPLAY - SCREEN
                                        STATUS HOLDING
          .1.. ....      COMWRTRD       X'40' COMWRTRD TERM - COMBK
                                        CONTAINS WRITE/READ
          ..1. ....      COMMORE        X'20' COMMORE TERM - 'MORE' COMBK
          ...1 ....      COMPFWRT       X'10' COMPFWRT TERM - ECHO WRITE
                                        COMBK
          .... 1...      COMPFDEL       X'08' COMPFDEL TERM - PF DELAY
                                        WRITE COMBK
          .... .1..      COMEXTHC       X'04' COMEXTHC EXTENDED COLOR AND
                                        EXTENDED HIGHLIGHTING ATTRIBUTES
                                        ARE TO BE ADDED INTO THIS COMBK
          .... ..1.      COMHIGH        X'02' COMHIGH HILIGHTING
                                        ATTRIBUTES ARE TO BE ADDED INTO
                                        THIS COMBK
          .... ...1      COMIMMED       X'01' COMIMMED IF THE USER IS IN
                                        FULL SCREEN MODE, THIS COMBK WILL
                                        BREAK IN IMMEDIATELY
0013   19 Bitstring    1 COMLINO        DIAGNOSE DISPLAY LINE NO
0014   20 Bitstring    1 COMWORK        TEMPORARY WORK FIELD
0015   21 Bitstring    1 COMFLG2        MISC. FLAGS
          .... ...1      COMDBCS        X'01' COMDBCS DBCS output
                                        requested
          .... ..1.      COMCMND        X'02' COMCMND COMMAND OUTPUT FLAG
          .... .1..      COMINITP       X'04' COMINITP SEND OF INITIAL
                                        LOGON PROMPTS
          .... 1...      COMPRND        X'08' COMPRND PROMPT FOLLOWED BY
                                        A READ NODISPLAY
          ...1 ....      COMLED         X'10' COMLED Limited Edit Write
                                        Requested
          ..1. ....      COMFIRST       X'20' COMFIRST First COMBK on
                                        RDEVCON queue
          .1.. ....      COMDOCR        X'40' COMDOCR Do carriage return
          1... ....      COMRPRMT       X'80' COMRPRMT This COMBK is a
                                        read prompt for the integrated
                                        console
0016   22 Bitstring    1 * (2)          RESERVED FOR FUTURE IBM USE
0018   24 Signed       4 COMFSCBK       Address of FSCBK
001C   28 Signed       4 COM1HLAD       Host logical address of 1st CCW
                                        data
0020   32 Dbl-Word     8 COMCCW1        FIRST CONSOLE I/O CCW
0028   40 Dbl-Word     8 COMCCW2        SECOND CONSOLE I/O CCW
0030   48 Dbl-Word     8 COMCCW3        THIRD CONSOLE I/O CCW
0038   56 Dbl-Word     8 COMCCW4        FOURTH CONSOLE I/O CCW
0040   64 Dbl-Word     8 COMDEVA        Device dependent area
0048   72 Dbl-Word     8 * (0)          ALIGNMENT
          00000009       COMSIZE        (*-COMBK)/8 COMBK HEADER SIZE IN
                                        DOUBLE WORDS
0048   72 Character    1 COMDATA (0)    START OF VARIABLE LENGTH DATA
             COMCCW1 REDEFINITION
0020   32 Bitstring    1 COM1CMND       CCW COMMAND CODE *** (AT HEX
                                        DISPLACEMENT: 1)
0021   33 Bitstring    1 COM1FLAG       CCW FLAG BITS
          1... ....      CCWDC          X'80' CCWDC CHAIN DATA ADDRESS
                                        AND COUNT
          .1.. ....      CCWCC          X'40' CCWCC COMMAND CHAIN
          ..1. ....      CCWSILI        X'20' CCWSILI SUPPRESS INCORRECT
                                        LENGTH
          ...1 ....      CCWSKIP        X'10' CCWSKIP SUPPRESS INBOUND
                                        DATA TRANSFER
          .... 1...      CCWPCIR        X'08' CCWPCIR REQUEST PC
                                        INTERRUPTION
          .... .1..      CCWIDA         X'04' CCWIDA INDIRECT DATA
                                        ADDRESSING
          .... ..11      CCWINVAL       X'03' CCWINVAL I/O UNDEFINED PAIR
                                        OF BITS
          .... ..1.      CCWSUSPN       X'02' CCWSUSPN I/O
                                        SUSPENSION/RESUMPTION The
                                        CCWUNDEF definition is left here
                                        because some code still uses this
                                        field where the CCWMIDA bit is
                                        not applicable.
          .... ...1      CCWUNDEF       X'01' CCWUNDEF I/O UNDEFINED BIT
          .... ...1      CCWMIDA        X'01' CCWMIDA
                                        Modified-CCW-indirect-data-addres
                                        sing
0022   34 Signed       2 COM1CNT        CCW DATA COUNT
0024   36 Address      4 COM1ADDR       CCW DATA ADDRESS
          00000027       COM1ADRX       *-1 CCW FINAL BYTE OF ADDRESS
0028   40 Dbl-Word     8 COM1NEXT (0)   CCW FOLLOWING CURRENT CCW
          0000000F       COMWIS         B'1111' ICM/STCM MASK FOR 31 BIT
                                        ADDRESS
          00000004       COMWMC         04 MVC/CLC LENGTH FOR 31 BIT
                                        ADDRESS
          00000080       COMWIDAL       B'10000000' IDAL INVALID BIT MASK
          00000008       COMWLEN        8 LENGTH OF A SINGLE CCW (8
                                        BYTES)
             REDEFINITION - CLASTERM DEVICES
0040   64 Dbl-Word     8 COMCCW5        Additional CCW for start/stop
                                        devices
             REDEFINITION - CLASGRAF DEVICES
0040   64 Bitstring    1 * (3)          RESERVED FOR FUTURE IBM USE
0043   67 Bitstring    1 COMRCMD        3270 COMMAND CHARACTER
0044   68 Bitstring    1 COMRWCC        3270 WRITE CONTROL CHARACTER
0045   69 Bitstring    1 COMRSBA        3270 'SBA' ORDER CHARACTER
0046   70 Signed       2 COMBUFA        3270 BUFFER ADDRESS CHARACTERS
             REDEFINITION OF COMBUFA
0046   70 Bitstring    1 COMBUFAD       BUFFER ADDRESS
0047   71 Bitstring    1 COMBUFLC       LOCATION ON THE HEADER

          
*** COMBK - Console Communications Control Block
*
*     +---------------------------+------+------+-------------+
*   0 |          COMPNT           |:BPARM|:PARM |  COMTSKSZ   |
*     +---------------------------+------+------+-------------+
*   8 |         COMRETN           |         COMUSER           |
*     +------+------+------+------+------+------+-------------+
*  10 |:STAT |:DFLAG|:CNTRL|:LINO |:WORK |:FLG2 |/////////////|
*     +------+------+------+------+------+------+-------------+
*  18 |         COMFSCBK          |         COM1HLAD          |
*     +---------------------------+---------------------------+
*  20 |                       COMCCW1                         |
*     +-------------------------------------------------------+
*  28 |                       COMCCW2                         |
*     +-------------------------------------------------------+
*  30 |                       COMCCW3                         |
*     +-------------------------------------------------------+
*  38 |                       COMCCW4                         |
*     +-------------------------------------------------------+
*  40 |                       COMDEVA                         |
*     +-------------------------------------------------------+
*
*** COMBK - Console Communications Control Block
          
*** Overlay for COMCCW1 in COMBK
*
*     +------+------+-------------+---------------------------+
*  20 |:1CMND|:1FLAG|  COM1CNT    |         COM1ADDR          |
*     +------+------+-------------+---------------------------+
*
*** Overlay for COMCCW1 in COMBK
          
*** Overlay for COMDEVA in COMBK
*
*     +-------------------------------------------------------+
*  40 |                       COMCCW5                         |
*     +-------------------------------------------------------+
*  48
*
*** Overlay for COMDEVA in COMBK
          
*** Overlay for COMDEVA in COMBK
*
*     +--------------------+------+------+------+-------------+
*  40 |////////////////////|:RCMD |:RWCC |:RSBA |  COMBUFA    |
*     +--------------------+------+------+------+-------------+
*  48
*
*** Overlay for COMDEVA in COMBK
          
*** Overlay for COMBUFA in COMBK
*
*                                               +------+------+
*  40 ...                                    46 |:BUFAD|:BUFLC|
*                                               +------+------+
*  48
*
*** Overlay for COMBUFA in COMBK

 
Symbol         Dspl Value
-------------- ---- -----
CCWCC          0021 40
CCWDC          0021 80
CCWIDA         0021 04
CCWINVAL       0021 03
CCWMIDA        0021 01
CCWPCIR        0021 08
CCWSILI        0021 20
CCWSKIP        0021 10
CCWSUSPN       0021 02
CCWUNDEF       0021 01
COMACTV        0010 20
COMALRM        0005 02
COMALTVM       0004 20
COMBPARM       0004
COMBUFA        0046
COMBUFAD       0046
COMBUFLC       0047
COMCCW1        0020
COMCCW2        0028
COMCCW3        0030
COMCCW4        0038
COMCCW5        0040
COMCLEAR       0011 000000FE
COMCLRS        0011 80
COMCMND        0015 02
COMCNCL        0011 000000FF
COMCNTL        0010 10
COMCNTRL       0012
COMCRDR        0005 01
COMDATA        0048
COMDBCS        0015 01
COMDEVA        0040
COMDFLAG       0011
COMDIAG        0004 02
COMDOCR        0015 40
COMDROP        0005 80
COMEDIT        0005 04
COMESCP        0010 08
COMEXTHC       0012 04
COMFIRST       0015 20
COMFLG2        0015
COMFSCBK       0018
COMFSRQ        0011 40
COMHIDE        0005 08
COMHIGH        0012 02
COMHIPRI       0005 20
COMHOLD        0012 80
COMHPARM       0004
COMIMMED       0012 01
COMINITP       0015 04
COMIOCOM       0004 08
COMLED         0015 10
COMLINO        0013
COMLMSK        0011 3F
COMLOALM       0010 04
COMMORE        0012 20
COMNOCR        0005 04
COMOUTPT       0010 80
COMPARM        0005
COMPFDEL       0012 08
COMPFWRT       0012 10
COMPNT         0000
COMPRND        0015 08
COMRCMD        0043
COMREDSP       0004 10
COMRESP        0010 40
COMRETN        0008
COMRPRMT       0015 80
COMRSBA        0045
COMRWCC        0044
COMSCRFL       0004 04
COMSIZE        0048 00000009
COMSPLT        0010 02
COMSTAT        0010
COMSYNC        0010 01
COMTSKSZ       0006
COMUPPR        0005 02
COMUSER        000C
COMVMIO        0005 10
COMWIDAL       0028 00000080
COMWIS         0028 0000000F
COMWLEN        0028 00000008
COMWMC         0028 00000004
COMWORK        0014
COMWRTRD       0012 40
COM1ADDR       0024
COM1ADRX       0024 00000027
COM1CMND       0020
COM1CNT        0022
COM1FLAG       0021
COM1HLAD       001C
COM1NEXT       0028