COMKBRD 
COMMON
          CTEXT  COMKBRD - BATCH REQUEST DEFINITIONS. 
          SPACE  4,10 
          BASE DECIMAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
***       BRD - BATCH REQUEST DEFINITIONS.
*         D. A. BONDE.  80/06/10. 
          SPACE  4,10 
***       *COMKBRD* GIVES THE DEFINITIONS TO INTERFACE *TAF*
*         WITH *BATCH/CRM* (BATCH CONCURRENCY) USERS. THIS DECK 
*         REQUIRES *COMKFLD*. 
* 
*         BATCH COMMUNICATION TABLE ENTRIES.
* 
*T  W1    1/AC,1/RA,1/AB,1/ER,1/AM,1/ ,18/PA,18/TA,18/SP
*T, W2    6/0,6/SN,9/FL,8/0,1/TE,6/FC,5/CT,1/CN,18/SA 
*T, W3    6/RC,12/FP,18/UA,18/SA,6/FC 
*T, W4    36/JS,12/ ,12/FO
*T, W5    1/U,1/S,10/ ,24/EU,24/ES
*T, W6    24/TS,36/ 
*T, WN    60/UP 
* 
*         WORD 1. 
*            AC  - 1, IF *BCT* ENTRY ACTIVE.
*            RA  - 1, IF *BATCH/CRM* REQUEST ACTIVE.
*            AB  - 1, IF *BATCH/CRM* USER HAS ABORTED.
*            ER  - 1, IF VALIDATION ERROR.
*            AM  - 1, IF *AAM* PREVIOUSLY CALLED. 
*            PA  - PARAMETER AREA ADDRESS WITHIN *UCP* FL.
*            TA  - *TST* ADDRESS. 
*            SP  - SUBCP TABLE ADDRESS. 
* 
*         WORD 2. 
*            TE  - 1, IF TAF HAS RECEIVED ONE TERMINATION REQUEST.
*            SN  - SUBCP NUMBER.
*            FL  - FUNCTION LIST. 
*            FC  - *TAF/CRM* FUNCTION CODE. 
*            CT  - CONSTRAINT TYPE. 
*            CN  - 1, IF REQUEST CONSTRAINED. 
*            SA  - *TAF* STORAGE AREA ADDRESS.
* 
*         WORD 3. 
*            RC  - SFCALL RETURN CODE.
*            FP  - FUNCTION PARAMETER.
*            UA  - RELATIVE CM ADDRESS WITHIN *UCP* FL. 
*            SA  - RELATIVE CM ADDRESS WITHIN *TAF* FL. 
*            FC  - SFCALL FUNCTION CODE.
* 
*         WORD 4. 
*            JS  - JOB SEQUENCE NUMBER. 
*            FO  - *FST* ORDINAL. 
* 
*         WORD 5. 
*            U   - 1, *UCP* ADDRESS IS WITHIN ECS.
*            S   - 1, *SCP* ADDRESS IS WITHIN ECS.
*            EU  - EXTENDED *UCP* ADDRESS.
*            ES  - EXTENDED *SCP* ADDRESS.
* 
*         WORD 6. 
*            TS  - TRANSACTION SEQUENCE NUMBER. 
* 
*         WORD N. 
*            WORDS 7 THROUGH 57B CONTAIN THE PARAMETERS 
*            PASSED FROM THE *BATCH/CRM* USER.
  
*         BATCH COMMUNICATION TABLE FIELDS. 
  
 BCAC     FIELD  0,59,59     *BCT* ACTIVE 
 BCRA     FIELD  0,58,58     REQUEST ACTIVE 
 BCAB     FIELD  0,57,57     *BATCH/CRM* USER ABORTED 
 BCER     FIELD  0,56,56     VALIDATION ERROR 
 BCAM     FIELD  0,55,55     *AAM* PREVIOUSLY CALLED
 BCPA     FIELD  0,53,36     PARAMETER ADDRESS WITHIN *UCP* 
 BCTA     FIELD  0,35,18     *TST* ADDRESS
 BCSP     FIELD  0,17,00     SUBCP TABLE ADDRESS
 BCTE     FIELD  1,30,30     TERMINATED FLAG
 BCSN     FIELD  1,53,48     SUBCP NUMBER 
 BCFL     FIELD  1,47,39     FUNCTION LIST
 BCFC     FIELD  1,29,24     *TAF/CRM* FUNCTION CODE
 BCCT     FIELD  1,23,19     CONSTRAINT TYPE
 BCCN     FIELD  1,18,18     REQUEST CONSTRAINED
 BCSA     FIELD  1,17,00     TEMPORARY STORAGE AREA ADDRESS 
 BCSF     FIELD  2,59,00     WORD ONE OF SFCALL PARAMETERS
 BCJN     FIELD  3,59,00     JOB SEQUENCE NUMBER AND *FST* ORDINAL
 BCEU     FIELD  4,47,24     EXTENDED *UCP* ADDRESS 
 BCES     FIELD  4,23,00     EXTENDED *SCP* ADDRESS 
 BCTS     FIELD  5,59,36     TRANSACTION SEQUENCE NUMBER
 BCUP     FIELD  6,59,00     BEGINNING OF *UCP* PARAMETERS
 BCWS     FIELD  10,59,00    WORKING STORAGE AREA ADDRESS 
 BCWL     FIELD  11,59,00    RECORD LENGTH FOR WRITE REQUESTS 
 BCKA     FIELD  19,59,00    KEYAREA
 BCWA     FIELD  19,59,00    *WSTAT* ARGUMENT ARRAY 
 BCWP     FIELD  30,59,00    *WSTAT* PARAMETER ARRAY
 BCWQ     FIELD  35,59,00    *WSTAT* QUEUEING AREA
  
*         BATCH COMMUNICATION TABLE ENTRY LENGTH. 
  
 BCTL     EQU    57B         *BCT* ENTRY LENGTH 
  
*         NUMBER OF USER PARAMETER WORDS. 
  
 BCUPL    EQU    41          USER PARAMETER WORDS 
  
*         BATCH COMMUNICATION TABLE CONSTRAINT CODES. 
  
 BCNTS    EQU    01          WAITING FOR *TAF* STORAGE
 BCNSC    EQU    02          WAITING FOR SUBCP. 
 BCRDI    EQU    03          WAITING TO QUEUE RESTORE DATA BASE ID
 BCAMC    EQU    04          WAITING TO QUEUE *CRM* REQUEST 
 BCTRC    EQU    05          WAITING TO TERMINATE *UCP* 
 BCCSC    EQU    06          WAITING TO QUEUE CEASE REQUEST 
  
*         BATCH REQUEST WORD COUNTS.
  
 BCWC     EQU    50B         *BATCH/CRM* REQUEST
 BTWC     EQU    02B         BATCH TRANSACTION REQUEST
  
*         *TSTAT* REQUEST AREA FIELDS.
  
 BRTO     FIELD  2,35,18     *TST* ORDINAL
 BRTA     FIELD  2,17,00     *TST* ADDRESS
 BRBI     FIELD  3,41,36     BATCH/BTRAN INDICATOR
 BRTS     FIELD  3,35,18     *TAF* STORAGE AREA ADDRESS 
 BRRA     FIELD  3,17,00     RETURN ADDRESS 
 BRRS     FIELD  4,59,00     RECOVERY REQUEST STATUS
 BROI     FIELD  6,59,00     OLDID
 BRNI     FIELD  8,59,00     NEWID
 BRTR     FIELD  10,59,00    TRANSACTION TYPE 
 BRST     FIELD  12,59,00    STEP 
  
*         CTI REQUEST FUNCTION CODES. 
  
 RFTS     EQU    22B         *TSTAT* FUNCTION CODE
 RFWS     EQU    23B         *WSTAT* FUNCTION CODE
  
  
*         *TAF* STORAGE AREA FIELDS FOR BATCH ERROR PROCESSING. 
  
 BEES     FIELD  2,59,00     ERROR STATUS RETURN
 BEPA     FIELD  3,17,00     PARAMETER AREA ADDRESS 
  
*         FUNCTION LIST DEFINITIONS FOR *BATCH/CRM* REQUESTS. 
  
 VLFN     EQU    400B        VALIDATE ACCESS
 RSFN     EQU    200B        REQUEST SUBCP
 RRFN     EQU    100B        READ RECORD
 QRFN     EQU    40B         QUEUE REQUEST
 WRFN     EQU    20B         WRITE RECORD 
 WTFN     EQU    10B         WRITE *TRF*
 CTFN     EQU    4B          COMPLETE TASK
 CLFN     EQU    2B          CLEAR LONG TERM CONNECT
 ENFN     EQU    1B          END OF LIST
  
 FLDF     EQU    45B         DEFAULT FUNCTION LIST
 FLRD     EQU    65B         READ REQUESTS
 FLWR     EQU    145B        WRITE REQUESTS 
 FLDC     EQU    55B         DBCOMIT REQUEST
  
*         BCFT FIELD DEFINITIONS. 
  
 TSCF     EQU    0           *TAF* STATUS WORD FOR DBCOMIT/DBFREE 
 TSDF     EQU    1           DEFAULT *TAF* STATUS WORD
 NOKA     EQU    0           KEYAREA NOT USED 
 NOKN     EQU    0           KEYNAME NOT USED 
 NOWS     EQU    0           WORKING STORAGE NOT USED 
 KNDE     EQU    3           KEYNAME INDEX FOR DELETE 
 KNLC     EQU    2           KEYNAME INDEX FOR LOCK 
 KNRD     EQU    6           KEYNAME INDEX FOR READ 
 KNRL     EQU    6           KEYNAME INDEX FOR READL
 KNRM     EQU    8           KEYNAME INDEX FOR READM
 KNRO     EQU    3           KEYNAME INDEX FOR READNL 
 KNRW     EQU    5           KEYNAME INDEX FOR REWRITE
 KNUC     EQU    2           KEYNAME INDEX FOR UNLOCK 
 KNWR     EQU    5           KEYNAME INDEX FOR WRITE
 KNST     EQU    4           KEYNAME INDEX FOR START
 KARD     EQU    10          KEYAREA INDEX FOR READ 
 KARL     EQU    10          KEYAREA INDEX FOR READL
 KARM     EQU    6           KEYAREA INDEX FOR READM
 KARN     EQU    6           KEYAREA INDEX FOR READN
 KARO     EQU    6           KEYAREA INDEX FOR READNL 
 KAWR     EQU    7           KEYAREA INDEX FOR WRITE
 WSRD     EQU    3           WORKING STORAGE INDEX FOR READ 
 WSRL     EQU    3           WORKING STORAGE INDEX FOR READL
 WSRM     EQU    3           WORKING STORAGE INDEX FOR READM
 WSRN     EQU    3           WORKING STORAGE INDEX FOR READN
 WSRO     EQU    3           WORKING STORAGE INDEX FOR READNL 
 WSRW     EQU    3           WORKING STORAGE INDEX FOR REWRITE
 WSWR     EQU    3           WORKING STORAGE INDEX FOR WRITE
  
*         BATCH SUBCP DEFINITIONS.
  
 BSEA     EQU    111B        EVENT ADDRESS
 BSAR     EQU    112B        ARGUMENT ARRAY 
 BSRE     EQU    115B        ARGUMENT ARRAY END FOR *RSTDBI* REQUEST
 BSCE     EQU    127B        ARGUMENT ARRAY END FOR *CRM* REQUEST 
 BSUP     EQU    130B        *UCP* PARAMETERS 
 BSTS     EQU    131B        *TAF* STATUS WORD FOR DBCOMIT/DBFREE 
 BSNI     EQU    131B        NEWID FOR *RSTDBI* REQUEST 
 BSOI     EQU    132B        OLDID FOR *RSTDBI* REQUEST 
 BSRL     EQU    136B        RECORD LENGTH FOR READ REQUESTS
 BSKA     EQU    147B        KEYAREA
 BSKN     EQU    147B        KEYNAME
 BSWS     EQU    201B        WORKING STORAGE AREA 
 BSRB     EQU    201B        RECORD BUFFER
          BASE   *
          ENDX
