/***************************************************************************/
/**                                                                       **/
/** HPE CONFIDENTIAL. This software is confidential proprietary software  **/
/** licensed by Hewlett-Packard Enterprise Development, LP, and is not    **/
/** authorized to be used, duplicated OR disclosed to anyone without the  **/
/** prior written permission of HPE.                                      **/
/** © 2023 Copyright Hewlett-Packard Enterprise Development, LP           **/
/**                                                                       **/
/** VMS SOFTWARE, INC. CONFIDENTIAL. This software is confidential        **/
/** proprietary software licensed by VMS Software, Inc., and is not       **/
/** authorized to be used, duplicated or disclosed to anyone without      **/
/** the prior written permission of VMS Software, Inc.                    **/
/** © 2023 Copyright VMS Software, Inc.                                   **/
/**                                                                       **/
/***************************************************************************/
/********************************************************************************************************************************/
/* Created:  9-Nov-2023 12:06:50 by OpenVMS SDL V3.7       */
/* Source:  16-AUG-2000 15:14:46 $1$DGA8345:[LIB_H.SRC]CLUPBDEF.SDL;1 */
/********************************************************************************************************************************/
/*** MODULE $CLUPBDEF ***/
#ifndef __CLUPBDEF_LOADED
#define __CLUPBDEF_LOADED 1
 
#pragma __nostandard			 /* This file uses non-ANSI-Standard features */
#pragma __member_alignment __save
#pragma __nomember_alignment
#ifdef __INITIAL_POINTER_SIZE			 /* Defined whenever ptr size pragmas supported */
#pragma __required_pointer_size __save		 /* Save the previously-defined required ptr size */
#pragma __required_pointer_size __short		 /* And set ptr size default to 32-bit pointers */
#endif
 
#ifdef __cplusplus
    extern "C" {
#define __unknown_params ...
#define __optional_params ...
#else
#define __unknown_params
#define __optional_params ...
#endif
 
#ifndef __struct
#if !defined(__VAXC)
#define __struct struct
#else
#define __struct variant_struct
#endif
#endif
 
#ifndef __union
#if !defined(__VAXC)
#define __union union
#else
#define __union variant_union
#endif
#endif
 
/*+                                                                         */
/* CLUPB - PARALLEL CONTEXT BLOCK                                           */
/*                                                                          */
/*-                                                                         */
	
#define CLUPB$M_BUSY 0x1
#define CLUPB$K_FIX_LENGTH 52
/*  Optional extensions for user's of the service                           */
#define CLUPB$K_RBLD_LENGTH 88
#define CLUPB$K_LENGTH 88               /*LENGTH                            */
#define CLUPB$C_LENGTH 88               /*LENGTH                            */
#define CLUPB$S_CLUPBDEF 88
	
 
#ifdef __cplusplus		    /* Define structure prototypes */
struct _rsb;
struct _lkb;
#endif		/* #ifdef __cplusplus */
 
typedef struct _clupb {
/* This section reserved for the service itself                             */
    char clupb$b_fork_block [32];       /* FORK BLOCK                       */
    __union  {
        unsigned short int clupb$w_flags; /* STATUS FLAGS                   */
        __struct  {                     /*   FORK BLOCK IN USE              */
            unsigned clupb$v_busy : 1;
            unsigned clupb$v_fill_0_ : 7;
            } clupb$r_flags_bits;
        } clupb$r_flags_overlay;
    unsigned char clupb$b_threads;      /* ACTIVE THREADS                   */
    unsigned char clupb$b_max_threads;  /* MAX ACTIVE THREADS               */
    unsigned int clupb$l_parent;        /* PARENT CONTEXT BLOCK             */
/* This section filled in by user of service                                */
    int (*clupb$l_action)();            /* ACTION ROUTINE                   */
    int (*clupb$l_cplrtn)();            /* COMPLETION ROUTINE               */
    unsigned int clupb$l_cplprm;        /* COMPLETION PARAMETER             */
    char clupb$b_fill_1_ [4];
#if !defined(__NOBASEALIGN_SUPPORT)  && !defined(__cplusplus)   /* If using pre DECC V4.0 or C++ */
#pragma __nomember_alignment __quadword
#else
#pragma __nomember_alignment
#endif
    __union  {
/*  Lock rebuild extensions                                                 */
#pragma __nomember_alignment
        __struct  {
            unsigned int clupb$l_rtn1;  /* SAVED RETURN ADDRESS             */
            unsigned char clupb$b_qcnt; /* QUEUE COUNTER                    */
            char clupb$b_fill_1 [3];    /* FILL                             */
#if !defined(__NOBASEALIGN_SUPPORT)  && !defined(__cplusplus)   /* If using pre DECC V4.0 or C++ */
#pragma __nomember_alignment __quadword
#else
#pragma __nomember_alignment
#endif
#ifdef __INITIAL_POINTER_SIZE			 /* Defined whenever ptr size pragmas supported */
#pragma __required_pointer_size __long		 /* And set ptr size default to 64-bit pointers */
            struct _rsb *clupb$q_rtrsb; /* ROOT RSB                         */
#else
	unsigned __int64 clupb$q_rtrsb;
#endif
#ifdef __INITIAL_POINTER_SIZE			 /* Defined whenever ptr size pragmas supported */
#pragma __required_pointer_size __long		 /* And set ptr size default to 64-bit pointers */
            struct _rsb *clupb$q_rsb_list; /* RSB LIST ADDRESS              */
#else
	unsigned __int64 clupb$q_rsb_list;
#endif
#ifdef __INITIAL_POINTER_SIZE			 /* Defined whenever ptr size pragmas supported */
#pragma __required_pointer_size __long		 /* And set ptr size default to 64-bit pointers */
            struct _lkb *clupb$q_lkb_list; /* LKB LIST ADDRESS              */
#else
	unsigned __int64 clupb$q_lkb_list;
#endif
            } clupb$r_rbld_structure;
/*  Other extensions can go here                                            */
        } clupb$r_clubr_extensions;
    } CLUPB;
 
#if !defined(__VAXC)
#define clupb$w_flags clupb$r_flags_overlay.clupb$w_flags
#define clupb$v_busy clupb$r_flags_overlay.clupb$r_flags_bits.clupb$v_busy
#define clupb$l_rtn1 clupb$r_clubr_extensions.clupb$r_rbld_structure.clupb$l_rtn1
#define clupb$b_qcnt clupb$r_clubr_extensions.clupb$r_rbld_structure.clupb$b_qcnt
#define clupb$q_rtrsb clupb$r_clubr_extensions.clupb$r_rbld_structure.clupb$q_rtrsb
#define clupb$q_rsb_list clupb$r_clubr_extensions.clupb$r_rbld_structure.clupb$q_rsb_list
#define clupb$q_lkb_list clupb$r_clubr_extensions.clupb$r_rbld_structure.clupb$q_lkb_list
#endif		/* #if !defined(__VAXC) */
 
 
#pragma __member_alignment __restore
#ifdef __INITIAL_POINTER_SIZE			 /* Defined whenever ptr size pragmas supported */
#pragma __required_pointer_size __restore		 /* Restore the previously-defined required ptr size */
#endif
#ifdef __cplusplus
    }
#endif
#pragma __standard
 
#endif /* __CLUPBDEF_LOADED */