!*** MODULE $CLISERVDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  DEFINE CLI SERVICE REQUEST CODES
 ! 
 !  DEFINE CLI SERVICE CODES 
	PARAMETER CLI$K_PAUSE = '00000001'X	 !  PAUSE THE IMAGE 
	PARAMETER CLI$K_DEFLOCAL = '00000002'X	 !  DEFINE A SYMBOL IN THE LOCAL TABLE 
	PARAMETER CLI$K_DEFGLOBAL = '00000003'X	 !  DEFINE A SYMBOL IN THE GLOBAL TABLE 
	PARAMETER CLI$K_CHAIN = '00000004'X	 !  PASS AN IMAGE TO RUN AFTER THIS ONE 
	PARAMETER CLI$K_COMMAND = '00000005'X	 !  PASS A COMMAND LINE TO LATER EXECUTE 
	PARAMETER CLI$K_CREALOG = '00000006'X	 !  DEFINE A PROCESS LOGICAL NAME 
	PARAMETER CLI$K_DELELOG = '00000007'X	 !  DELETE A PROCESS LOGICAL NAME 
	PARAMETER CLI$K_DISACTRLY = '00000008'X	 !  DISABLE DCL CONTROL Y PROCESSING 
	PARAMETER CLI$K_ENABCTRLY = '00000009'X	 !  ENABLE DCL CONTROL Y PROCESSING 
	PARAMETER CLI$K_GETSYM = '0000000A'X	 !  RETURN VALUE OF A SYMBOL 
	PARAMETER CLI$K_DELELCL = '0000000B'X	 !  DELETE A LOCAL SYMBOL 
	PARAMETER CLI$K_DELEGBL = '0000000C'X	 !  DELETE A GLOBAL SYMBOL 
	PARAMETER CLI$K_DISAOOB = '0000000D'X	 !  DISABLE OUT-OF-BAND CHARACTER(S) 
	PARAMETER CLI$K_ENABOOB = '0000000E'X	 !  RE-ENABLE OUT-OF-BAND CHARACTER(S) 
	PARAMETER CLI$K_SPAWN = '0000000F'X	 !  SPAWN A SUBPROCESS 
	PARAMETER CLI$K_ATTACH = '00000010'X	 !  ATTACH TO A PROCESS 
	PARAMETER CLI$K_LIBDEFLOCAL = '00000011'X  !  DEFINE A SYMBOL IN LOCAL TABLE USING LIB$SET_SYMBOL
	PARAMETER CLI$K_LIBDEFGLOBAL = '00000012'X  !  DEFINE A SYMBOL IN GLOBAL TABLE USING LIB$SET_SYMBOL
	PARAMETER CLI$K_LIBGETSYM = '00000013'X	 !  GET A SYMBOL VALUE USING LIB$GET_SYMBOL
	PARAMETER CLI$K_LIBDELELCL = '00000014'X  !  DELETE A SYMBOL USING LIB$DELETE_SYMBOL
	PARAMETER CLI$K_LIBDELEGBL = '00000015'X  !  DELETE A GLOBAL SYMBOL USING LIB$DELETE_SYMBOL
	PARAMETER CLI$K_SETCODESET = '00000016'X  !  SET CODE SET
 ! 
 !  Define local/global symbol flag returned by GETSYM
 ! 
	PARAMETER CLI$K_LOCAL_SYM = '00000001'X	 !  Local symbol 
	PARAMETER CLI$K_GLOBAL_SYM = '00000002'X  !  Global symbol 
!DEC$ END OPTIONS