! ********************************************************************************************************************************
!  Created: 30-AUG-2007 11:29:56 by OpenVMS SDL IA64-2     
!  Source:  30-AUG-2007 11:29:56 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]PSM$ROUTINES.SDI;1 
! ********************************************************************************************************************************
 
!*** MODULE PSM$ROUTINES IDENT X-1 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Print Symbiont Modification (PSM) Routines
 ! 
 ! 
 !  PSM$PRINT - Invoke VMS-Supplied Print Symbiont
 ! 
 !  status = PSM$PRINT ([streams], [bufsiz], [worksiz])
 ! 
 !   streams - Maximum number of streams to support
 !   bufsiz  - Maximum buffer size in bytes for output operations
 !   worksiz - Size in bytes of work area to be allocated
 ! 
	INTEGER*4 PSM$PRINT
	EXTERNAL PSM$PRINT
 ! 
 !  PSM$READ_ITEM_DX - Obtain Value of Message Items
 ! 
 !  status = PSM$READ_ITEM_DX (request_id, item, buffer)
 ! 
 !   request_id - Request identifier supplied by the symbiont to user routine
 !   item       - Item code identifying message item to be returned
 !   buffer     - Buffer into which data is returned
 ! 
	INTEGER*4 PSM$READ_ITEM_DX
	EXTERNAL PSM$READ_ITEM_DX
 ! 
 !  PSM$REPLACE - Declare User Service Routine
 ! 
 !  status = PSM$REPLACE (code, routine)
 ! 
 !   code    - Code identifying symbiont routine to be replaced
 !   routine - User routine to replace symbiont routine
 ! 
	INTEGER*4 PSM$REPLACE
	EXTERNAL PSM$REPLACE
 ! 
 !  PSM$REPORT - Report Completion Status
 ! 
 !  status = PSM$REPORT (request_id [, status])
 ! 
 !   request_id - Request identifier supplied by the symbiont to user routine
 !   status     - Completion status of asynchronous operation completed
 ! 
	INTEGER*4 PSM$REPORT
	EXTERNAL PSM$REPORT
!DEC$ END OPTIONS