FRABC - File Request Anchor Block

Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 312 DFHFRAB 
      Eye catcher
(0) CHARACTER 16 FRAB_EYE_CATCHER Eye catcher
(0) UNSIGNED 2 FRAB_LENGTH Length of FRAB
(2) CHARACTER 6 FRAB_EYE1 >DFHFC FC 'domain'
(8) CHARACTER 8 FRAB_EYE2 FRAB 
      Following storage is not reinitialise for each task
(10) CHARACTER 16 *
(10) ADDRESS 4 FRAB_FREE_FLAB Free FLAB
(14) ADDRESS 4 FRAB_FREE_FRTE Free FRTE
(18) ADDRESS 4 * (2) Reserved 
      Main part of FRAB (initialised at start of task)
(20) CHARACTER 280 FRAB_MAIN_PART Main part of FRAB
(20) CHARACTER 4 *
(20) CHARACTER 4 *
(20) ADDRESS 4 FRAB_NEXT_FRAB_ ADDRESS -> next FRAB in FRAB chain
(20) ADDRESS 4 FRAB_FREE_FRAB_ ADDRESS Next FRAB in FC static free chain.
(24) ADDRESS 4 FRAB_PREV_FRAB_ ADDRESS Pointer to previous FRAB in FRAB chain
(28) CHARACTER 4 *
(28) ADDRESS 4 FRAB_FLAB_CHAIN_ ADDRESS -> FLAB chain for current tran
(2C) CHARACTER 4 *
(2C) ADDRESS 4 FRAB_FLLB_CHAIN_ ADDRESS -> FLLB chain for current tran
(30) ADDRESS 4 FRAB_EXCL_VSWA VSWA that suffered excl control conflict for this task.
(34) CHARACTER 4 *
(34) ADDRESS 4 FRAB_TRANSACTION_ TOKEN Current TCA
(38) FULLWORD 4 FRAB_UPDATE_TOKEN Current update token 
      Data tables section of FRAB
(3C) ADDRESS 4 FRAB_DT_UOW_TOKEN Data tables recovery token 
      Recovery-related section of FRAB
(40) BIT(8) 1 FRAB_FLAGS Assorted flags
(40) 1... ....   FRAB_REPLICATION_DONE Replication log record since syncpoint
(40) .1.. ....   FRAB_NON_RLS_LOCKS_ HELD NQ Manager DEQ is required
(40) ..1. ....   FRAB_HAS_LOCKS FLLB lost locks chain is built
(40) ...1 ....   FRAB_UOWID_SET UOW has been recorded in FRAB
(40) .... 1...   FRAB_PHASE_2_SYNC UOW has been through ph2 of syncpoint
(40) .... .1..   FRAB_REQUEST_FORGET Request_forget has been issued
(40) .... ..1.   FRAB_LONG_RUNNING The XFCFRIN exit has intercepted the request and indicated that the mirror is to remain long running
(40) .... ...1   FRAB_FORCE_PURGE_ ISSUED FCFS issued purge
(41) CHARACTER 1 *
(41) CHARACTER 1 *
(41) BIT(8) 1 FRAB_RLS_LOCKS_HELD_ FLAG
(41) 1... ....   FRAB_RLS_LOCKS_HELD IDALKREL is reqd
(42) CHARACTER 1 *
(42) CHARACTER 1 *
(42) BIT(8) 1 FRAB_HAS_BEEN_ SHUNTED_FLAG
(42) 1... ....   FRAB_HAS_BEEN_SHUNTED UOW was shunted at least once
(43) CHARACTER 1 * Reserved
(44) ADDRESS 4 FRAB_FCUP_CHAIN_ ADDRESS Pointer to start of FCUP chain 
      RLS section of FRAB
(48) UNSIGNED 2 FRAB_RLS_TIMEOUT Timeout value
(4A) UNSIGNED 2 FRAB_SERVER_SEQUENCE Sequence number of server at time FRAB created.
(4C) ADDRESS 4 FRAB_NEXT_RECOV_UPDT -> frab
(50) CHARACTER 4 FRAB_TRANNUM Transaction # for deadlock/timeout pd
(54) CHARACTER 4 FRAB_TRANID Transaction id for deadlock/timeout pd
(58) CHARACTER 96 *
(58) CHARACTER 96 FRAB_LUWID RLS Luwid
(B8) CHARACTER 80 FRAB_VSAM_WORKAREA VSAM workarea
(B8) FULLWORD 4 * (20) (20 words)
(108) CHARACTER 0 * Align to double word boundary 
      FRAB extension - multi-purpose
(108) FULLWORD 4 FRAB_REQUEST_COUNT req counter
(10C) ADDRESS 4 FRAB_REP_LOG_TOKEN_P replication
(110) FULLWORD 4 * (2) future use
(118) CHARACTER 26 FRAB_FCTBCCRL curr repl log name
(132) CHARACTER 6 * future use
(138) CHARACTER 0 * Align to double word boundary 
       MACRO NAME: IFGLUWID
       DESCRIPTION: Mapping the Logical Unit of Work ID Control Block
       STATUS: Version 1 DFSMS Release 3.0
     PROPRIETARY V3 STATEMENT
     LICENSED MATERIALS - PROPERTY OF IBM
      RESTRICTED MATERIALS OF IBM 
     5695-DF1
     (C) COPYRIGHT 1995 IBM CORP.
     END PROPRIETARY V3 STATEMENT
        FUNCTION = Mapping Macro for Logical Unit of Work ID
        INCLUDED MACROS = NONE
        METHOD OF ACCESS = PL/X-370 OR ASSEMBLER
Table 2.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 96 IFGLUWID
(0) CHARACTER 16 LUWIDHDR
(0) CHARACTER 8 LUWIDID Eye Catcher - IFGLUWID
(8) FULLWORD 4 LUWIDLEN Control Block Length
(C) UNSIGNED 1 LUWIDVER Version Identifier
(D) CHARACTER 3 * Reserved
(10) CHARACTER 8 LUWIDVAL Logical Unit Of Work ID
(18) CHARACTER 36 LUWIDPDI deadlock/timeout problem 
        determination information
(18) BIT(8) 1 LUWIDFL1 first flag field
(18) 1... ....   LUWIDNDL '1'= LUWID is not a preferred 
        deadlock victim
(19) CHARACTER 3 * reserved
(1C) CHARACTER 32 LUWIDPD Deadlock/time out problem 
        determination data area
(3C) UNSIGNED 4 LUWIDWLM WLM transaction token or 0 
The LUWID should be on a dblword boundary. In PL/X, if LIKE is
used, LIKE must specify BDY(DWORD). To avoid potential problems
with how the user gets the LUWID block, whether PL/X or ASM,
VSAM will save result of TIMEUSED in a BDY(DWORD) internal field
and then move to LUWIDCPU
(40) CHARACTER 8 LUWIDCPU Total CPU time used by the 
        current SRB up until TIMEUSED is issued. Time used by TCB is
        NOT included. (Field must be cleared by user before issuing a
        VSAM request. Field is not available until the VSAM request
        is complete. For SYN,RLSWAIT, field is available when control
        is returned from RLSWAIT exit. For ASY requests, field is
        available when CHECK completes. VSAM may not be able to set
        this field if Cancel or ABEND occurs, or TIMEUSED fails.)
(48) ADDRESS 4 LUWIDSVA Ptr to a 20-word BDY(DWORD) 
        user-provided area required for VSAM to use TIMEUSED
(4C) FULLWORD 4 * (5) Reserved, unused

Constants

Table 3.
Len Type Value Name Description 
         LUWID Constants
8 CHAR HEX 00000000 00000000 LUWIDNUL Null LUWID
8 CHARACTER IFGLUWID LUWIDIDC Eyecatcher
1 DECIMAL 1 LUWIDVRC Version Number