** CBL.CTL(SSCHKEQU)   *** L=002 --- 2016/03/03 15:01:46 (L05)
*
*  Equates for fields required for CHKP/XRST calls
*  Required for SSCHK member containing SYMCHKP and XRST sub-routines.
*
  equ chknp          sschkequ  * Number of IMS call parameters address.
  equ chknp_L               4  * BIN(4)

  equ chkvb     chknp+chknp_L  * IMS function call verb.
  equ chkvb_L               4  * IMS function call verb length.

  equ chkid     chkvb+chkvb_L  * Checkpoint id.
  equ chkid_L              14  * Checkpoint id area length.

  equ chkno     chkid+chkid_L  * Checkpoint number. BIN(4)
  equ chkno_L               4  * Checkpoint number field length.

  equ chkpf     chkno+chkno_L  * Checkpoint flag byte.
    equ  chk_call_on  x'80'  !equ  chk_call_off x'7F' * Call XRST done.
    equ  chk_res1_on  x'40'  !equ  chk_res1_off x'BF' *  --reserved--
    equ  chk_xrst_on  x'20'  !equ  chk_xrst_off x'DF' * Restarted.
    equ  chk_fre1_on  x'10'  !equ  chk_fre1_off x'EF' *  -- spare --
    equ  chk_fre2_on  x'08'  !equ  chk_fre2_off x'F7' *  -- spare --
    equ  chk_fre3_on  x'04'  !equ  chk_fre3_off x'FB' *  -- spare --
    equ  chk_fre4_on  x'02'  !equ  chk_fre4_off x'FD' *  -- spare --
    equ  chk_fre5_on  x'01'  !equ  chk_fre5_off x'FE' *  -- spare --
  equ chkpf_L               1  * Checkpoint flag byte length.

  equ chksg     chkpf+chkpf_L  * Input DBD segment name.
  equ chksg_L               8  * Input DBD segment name length.

  equ chkfl     chksg+chksg_L  * Input key field name.
  equ chkfl_L               8  * Input key field name length.

  equ chkky     chkfl+chkfl_L  * Input key field value.
  equ chkky_L            keyL  * Input key field value max length.

  equ chker     chkky+chkky_L  * CHKP/XRST related error text.
  equ chker_L             200  * CHKP/XRST related error text length.

  equ   sschkequ_end    chker+chker_L  * Next position in work area.