NAME       : HCPECBBK
 DESCRIPTION: Event Control Block
 DSECT      : ECBBK
 FUNCTION   : Provide basic WAIT / POST Support.
 CREATED BY : Dynamically created usually using HCPGETST
              by the task that will be waiting on the ECB.
 DELETED BY : Deleted usually using HCPRELST by the task
              that was waiting on the ECB.
 NOTES      : Once an ECBBK is POSTed, the entire block must be
              set to zero before it can be reused for another ECB
              event.
 RELOCATION CONSIDERATIONS : None

 ECBBK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      ECBBK          Event Control Block
0000    0 Dbl-Word     8 ECBLOCK (3)    ECB Lockword
0018   24 Bitstring    1 ECBFLAG        ECB Processing Flag
          1... ....      ECBPOST        X'80' ECBPOST ECB has been posted
          .1.. ....      ECBTIMST       X'40' ECBTIMST ECB timer has been
                                        set
          ..1. ....      ECBDEFER       X'20' ECBDEFER Defer Work Counter
                                        was Incremented
0019   25 Bitstring    1 * (3)          Reserved for future IBM use
001C   28 Address      4 ECBOWNER       VMDBK of the ECB owner
0020   32 Address      4 ECBSAVE        Waiting Task's ::SAVEAREA ADR
0024   36 Signed       4 ECBCODE        ECB Post Code
          0ECBCODE       ECBTOUT        X'FFFFFFFF' ECBTOUT ECB Timeout
                                        Code
0028   40 Signed       4 ECBTIMID       ECB Timer ID
002C   44 Signed       4 *              Reserved for future IBM use
      ECB User Defined Fields
      The following fields are reserved for the various CP
      functions which use ECBs.  They are free to use by any
      application using ECBs for any purpose.  These fields are
      NOT touched by HCPMFNPO, HCPMFNWA or HCPMFNT0 to implement
      the ECB function.
0030   48 Address      4 ECBNEXT        User Link Pointer
0034   52 Address      4 ECBPREV        User Link Pointer
0038   56 Signed       4 ECBTRNID       User Specified Transaction ID
003C   60 Address      4 ECBRINFO       User specific return info
0040   64 Character    1 ECB$END (0)    The end
      Notes      : The following assembler equates are defined and can be
            used but do not appear in the control block expansion
            because they the PLX section and PRINT OFF,NOGEN
            is in effect.

          
*** ECBBK - Event Control Block
*
*     +-------------------------------------------------------+
*   0 |                                                       |
*     =                       ECBLOCK                         =
*     |                                                       |
*     +------+--------------------+---------------------------+
*  18 |:FLAG |////////////////////|         ECBOWNER          |
*     +------+--------------------+---------------------------+
*  20 |         ECBSAVE           |         ECBCODE           |
*     +---------------------------+---------------------------+
*  28 |         ECBTIMID          |///////////////////////////|
*     +---------------------------+---------------------------+
*  30 |         ECBNEXT           |         ECBPREV           |
*     +---------------------------+---------------------------+
*  38 |         ECBTRNID          |         ECBRINFO          |
*     +---------------------------+---------------------------+
*
*** ECBBK - Event Control Block

 
Symbol         Dspl Value
-------------- ---- -----
ECB$END        0040
ECBCODE        0024
ECBDEFER       0018 20
ECBFLAG        0018
ECBLOCK        0000
ECBNEXT        0030
ECBOWNER       001C
ECBPOST        0018 80
ECBPREV        0034
ECBRINFO       003C
ECBSAVE        0020
ECBTIMID       0028
ECBTIMST       0018 40
ECBTOUT        0024 0ECBCODE
ECBTRNID       0038