C C *** EXECSYMB include file *** C C Modification history: C C 10-Feb-1986 Created from CMDSYMB.INC C 14-Feb-1986 Modified for general item selection C 05-Mar-1986 Changed status handling C 25-Mar-1986 Changed channel to word from longword C 06-Nov-1986 Added USERNAME parameter C 13-Feb-1987 Added dynamic timeout parameter C 16-Jun-1987 Changed LOGICAL*1 flags to bit flags C 15-Jul-1987 Updated to support maximum of 30 streams C 02-Dec-1987 Modified to add permanent processor information C 14-Jan-1988 Added EXEC_FLAGS support C 16-May-1989 Removed permanent processor information, added support C for optional status information C 20-Jun-1989 Changes for ExecSymb V3.0 C 28-Feb-1990 Changes for ExecSymb V3.1 (DEVICE_NAME added) C 07-Aug-1990 Changes for ExecSymb V3.2 C 31-Mar-1992 Changes for ExecSymb V3.3 C 13-Oct-1992 Changes for ExecSymb V3.4 C 20-Dec-1993 Changes for ExecSymb V3.5 C 03-May-1994 Changes for ExecSymb V3.6 C C This file requires use of SMBDEF.INC C INCLUDE 'SMBDEF.INC' C C Define maximum streams (limit is 32) C INTEGER*4 MAX_STREAMS PARAMETER (MAX_STREAMS=32) C C Define maximum job controller mailbox message size C INTEGER*4 MAX_MSG_SIZE PARAMETER (MAX_MSG_SIZE=2048) C C Structure for $CRELNM quota list C STRUCTURE /QUOTAS/ BYTE PQLTYPE INTEGER*4 VALUE END STRUCTURE C C Define stream control block C STRUCTURE /SCB/ INTEGER*4 PID INTEGER*4 REQUEST INTEGER*4 FLAGS INTEGER*4 INDEX INTEGER*4 ITEMNO INTEGER*4 IOSB(2) INTEGER*4 STATUS UNION MAP INTEGER*4 ACCDAT(4) END MAP MAP CHARACTER*16 ACCDATSTR END MAP END UNION INTEGER*4 ENTRY INTEGER*4 REQUEUE_TIME(2) INTEGER*4 DYNAMIC_TIME(2) INTEGER*4 PRIO INTEGER*2 MBX_CHAN INTEGER*2 DEVICE_NAME_LEN INTEGER*2 COM_FILE_LEN INTEGER*2 OURNAME_LEN INTEGER*2 OURDEVICE_LEN INTEGER*2 SPOOLDIR_LEN INTEGER*2 FILESPEC_LEN INTEGER*2 QUEUENAME_LEN INTEGER*2 PERMNAME_LEN INTEGER*2 FID(3) INTEGER*2 POS(SMBMSG$K_MAX_ITEM_CODE-1) INTEGER*2 SIZE(SMBMSG$K_MAX_ITEM_CODE-1) RECORD /QUOTAS/ QUOTALIST(4) BYTE ORDER(SMBMSG$K_MAX_ITEM_CODE) CHARACTER*15 DEVICE_NAME UNION MAP CHARACTER*(MAX_MSG_SIZE) MESSAGE CHARACTER*256 FILESPEC END MAP MAP CHARACTER*(MAX_MSG_SIZE+256) MSG END MAP END UNION CHARACTER*256 COM_FILE CHARACTER*32 OURNAME CHARACTER*32 OURDEVICE CHARACTER*128 SPOOLDIR CHARACTER*28 FILEINFO CHARACTER*32 QUEUENAME CHARACTER*12 USERNAME END STRUCTURE C RECORD /SCB/ STREAM(0:MAX_STREAMS-1) C C Definition of FLAGS component of SCB, by bit number: C C name bit# mask value C ==== ==== ========== C BINARY 0 1 C DO_REQUEUE 1 2 C ENTERED 2 4 C PRINTQUEUE 3 8 C NULL 4 16 C ABORT 5 32 C CHECKPOINT 6 64 C COPYALL 7 128 C COPYFIRST 8 256 C DYNAMIC 9 512 C NO_PROCESSOR 10 1024 C EXITING 11 2048 C NEVERUSED 12 4096 C FLAG 13 8192 C FLAGSENT 14 16384 C RETRY_INHIBIT 15 32768 C INITING 16 65536 C INITREQ 17 131072 C RESETTING 18 262144 C HOLD 19 524288 C INTEGER*4 FLG_V_BINARY PARAMETER (FLG_V_BINARY=0) INTEGER*4 FLG_M_BINARY PARAMETER (FLG_M_BINARY=1) INTEGER*4 FLG_V_DO_REQUEUE PARAMETER (FLG_V_DO_REQUEUE=1) INTEGER*4 FLG_M_DO_REQUEUE PARAMETER (FLG_M_DO_REQUEUE=2) INTEGER*4 FLG_V_ENTERED PARAMETER (FLG_V_ENTERED=2) INTEGER*4 FLG_M_ENTERED PARAMETER (FLG_M_ENTERED=4) INTEGER*4 FLG_V_PRINTQUEUE PARAMETER (FLG_V_PRINTQUEUE=3) INTEGER*4 FLG_M_PRINTQUEUE PARAMETER (FLG_M_PRINTQUEUE=8) INTEGER*4 FLG_V_NULL PARAMETER (FLG_V_NULL=4) INTEGER*4 FLG_M_NULL PARAMETER (FLG_M_NULL=16) INTEGER*4 FLG_V_ABORT PARAMETER (FLG_V_ABORT=5) INTEGER*4 FLG_M_ABORT PARAMETER (FLG_M_ABORT=32) INTEGER*4 FLG_V_CHECKPOINT PARAMETER (FLG_V_CHECKPOINT=6) INTEGER*4 FLG_M_CHECKPOINT PARAMETER (FLG_M_CHECKPOINT=64) INTEGER*4 FLG_V_COPYALL PARAMETER (FLG_V_COPYALL=7) INTEGER*4 FLG_M_COPYALL PARAMETER (FLG_M_COPYALL=128) INTEGER*4 FLG_V_COPYFIRST PARAMETER (FLG_V_COPYFIRST=8) INTEGER*4 FLG_M_COPYFIRST PARAMETER (FLG_M_COPYFIRST=256) INTEGER*4 FLG_V_DYNAMIC PARAMETER (FLG_V_DYNAMIC=9) INTEGER*4 FLG_M_DYNAMIC PARAMETER (FLG_M_DYNAMIC=512) INTEGER*4 FLG_V_NO_PROCESSOR PARAMETER (FLG_V_NO_PROCESSOR=10) INTEGER*4 FLG_M_NO_PROCESSOR PARAMETER (FLG_M_NO_PROCESSOR=1024) INTEGER*4 FLG_V_EXITING PARAMETER (FLG_V_EXITING=11) INTEGER*4 FLG_M_EXITING PARAMETER (FLG_M_EXITING=2048) INTEGER*4 FLG_V_NEVERUSED PARAMETER (FLG_V_NEVERUSED=12) INTEGER*4 FLG_M_NEVERUSED PARAMETER (FLG_M_NEVERUSED=4096) INTEGER*4 FLG_V_FLAG PARAMETER (FLG_V_FLAG=13) INTEGER*4 FLG_M_FLAG PARAMETER (FLG_M_FLAG=8192) INTEGER*4 FLG_V_FLAGSENT PARAMETER (FLG_V_FLAGSENT=14) INTEGER*4 FLG_M_FLAGSENT PARAMETER (FLG_M_FLAGSENT=16384) INTEGER*4 FLG_V_RETRY_INHIBIT PARAMETER (FLG_V_RETRY_INHIBIT=15) INTEGER*4 FLG_M_RETRY_INHIBIT PARAMETER (FLG_M_RETRY_INHIBIT=32768) INTEGER*4 FLG_V_INITING PARAMETER (FLG_V_INITING=16) INTEGER*4 FLG_M_INITING PARAMETER (FLG_M_INITING=65536) INTEGER*4 FLG_V_INITREQ PARAMETER (FLG_V_INITREQ=17) INTEGER*4 FLG_M_INITREQ PARAMETER (FLG_M_INITREQ=131072) INTEGER*4 FLG_V_RESETTING PARAMETER (FLG_V_RESETTING=18) INTEGER*4 FLG_M_RESETTING PARAMETER (FLG_M_RESETTING=262144) INTEGER*4 FLG_V_HOLD PARAMETER (FLG_V_HOLD=19) INTEGER*4 FLG_M_HOLD PARAMETER (FLG_M_HOLD=524288) C C Process exit status information, base priority, hibernate/wake C flags, command status information C INTEGER*4 EXIT_MBX_UNIT INTEGER*2 EXIT_MBX_CHAN,STAT_W_MBX_CHAN INTEGER*4 STATIOSB(2) INTEGER*2 STATIOSBW(2) EQUIVALENCE (STATIOSB,STATIOSBW) INTEGER*4 BASE_PRIO LOGICAL*1 DO_HIBER,DO_DEBUG,VMSV5,DO_WAKE,VMSV55,BYTEFILL(3) CHARACTER*12 EXITBUF CHARACTER*268 STATBUF CHARACTER*12 LOGDIR INTEGER*2 L_LD,L_SB,MAXUSED C C Put SCB's and other stuff in common C COMMON /SCBCOM/ STREAM,EXIT_MBX_UNIT,EXIT_MBX_CHAN,STAT_W_MBX_CHAN, 1 STATIOSB,BASE_PRIO,DO_HIBER,DO_DEBUG,VMSV5,DO_WAKE,VMSV55,BYTEFILL, 2 EXITBUF,STATBUF,LOGDIR,L_LD,L_SB,MAXUSED C