! ********************************************************************************************************************************
!  Created: 30-AUG-2007 11:30:03 by OpenVMS SDL IA64-2     
!  Source:  30-AUG-2007 11:30:02 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]SMB$ROUTINES.SDI;1 
! ********************************************************************************************************************************
 
!*** MODULE SMB$ROUTINES IDENT X-1 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Symbiont/Job Controller Interface (SMB) Routines
 ! 
 ! 
 !  SMB$CHECK_FOR_MESSAGE - Check for Message from Job Controller
 ! 
 !  status = SMB$CHECK_FOR_MESSAGE ()
 ! 
	INTEGER*4 SMB$CHECK_FOR_MESSAGE
	EXTERNAL SMB$CHECK_FOR_MESSAGE
 ! 
 !  SMB$INITIALIZE - Initialize User-Written Symbiont
 ! 
 !  status = SMB$INITIALIZE (structure_level [,ast_routine] [,streams])
 ! 
 !   structure_level - Version of the job-controller/symbiont interface
 !   ast_routine     - Message-handling AST routine
 !   streams         - Maximum number of streams to support
 ! 
	INTEGER*4 SMB$INITIALIZE
	EXTERNAL SMB$INITIALIZE
 ! 
 !  SMB$READ_MESSAGE - Obtain Message Sent by Job Controller
 ! 
 !  status = SMB$READ_MESSAGE (stream, buffer, request)
 ! 
 !   stream  - Stream number for message
 !   buffer  - Buffer into which message is written
 !   request - Code that identifies the request
 ! 
	INTEGER*4 SMB$READ_MESSAGE
	EXTERNAL SMB$READ_MESSAGE
 ! 
 !  SMB$READ_MESSAGE_ITEM - Parse Next Item from Message Buffer
 ! 
 !  status = SMB$READ_MESSAGE_ITEM (message, context, item_code, buffer
 !                                  [, size])
 ! 
 !   message   - Message items to read
 !   context   - Context value
 !   item_code - Item code of message read
 !   buffer    - Message item
 !   size      - Size of message item
 ! 
	INTEGER*4 SMB$READ_MESSAGE_ITEM
	EXTERNAL SMB$READ_MESSAGE_ITEM
 ! 
 !  SMB$SEND_TO_JOBCTL - Send Message to Job Controller
 ! 
 !  status = SMB$SEND_TO_JOBCTL (stream [,request] [,accounting]
 ! 			        [,checkpoint] [,device_status] [,error])
 ! 
 !   stream        - Number of stream to which message refers
 !   request       - Code identifying request being completed
 !   accounting    - Accounting information about a task
 !   checkpoint    - Checkpoint data about current task
 !   device_status - Status of device served by the symbiont
 !   error         - Condition code returned by the requested task
 ! 
	INTEGER*4 SMB$SEND_TO_JOBCTL
	EXTERNAL SMB$SEND_TO_JOBCTL
!DEC$ END OPTIONS