Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!  HOSUSR.REQ  --  Declarations for the interfaces to host systems.

!
!			  COPYRIGHT (C) 1982 BY
!	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
! ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
! COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
! OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
! TRANSFERRED.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
! AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
! CORPORATION.
!
! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
!

!++
! Facility:  CMS Library Processor
!
! Abstract:
!
!	This file defines some symbols useful for communicating with
!	the host operating system.
!
! Environment:  Transportable
!
! Author:  Earl Van Horn	Creation Date:  May, 1979
!
!--

! If the declaration
!
!	library 'SYS$LIBRARY:STARLET' ;
!
! appears in the program, it must appear before this file is included.
! This is a restriction of CONDIT.R32.

%if %bliss(bliss32) %then
require 'CONDIT:' ;	! Condition handling macros.
%fi

! message codes used in returned value by main routine
!
literal
    m_elm = 1,			! missing element
    m_cls = 2,			! missing class
    m_gen = 3,			! missing generation
    m_program_abort = 4, 	! aborted by CMS, such as by BUG, BADLIB, etc.
    m_user_abort = 5 ,  	! aborted by user with CTRL/C    
    m_your_file_exists = 6 ;	! file already exists in user's directory

! One of the following status codes should be returned by the main routine
! on VAX-11. On Tops-20 0 or 1 is returned.
!
literal

    ! Normal successful completion.
    %if %bliss(bliss32) %then
    k_success = step_status(severity = sts$k_success),
    %fi
    %if %bliss(bliss36) %then
    k_success = 1 ,
    %fi

    ! Alternate success code to convey information, such as when CMS COMPARE
    ! finds that the files are different.
    %if %bliss(bliss32) %then
    k_information = step_status(severity = sts$k_info), 
    %fi
    %if %bliss(bliss36) %then
    k_information = 1 ,
    %fi

    ! warning code for minor errors that are not fatal, such as a missing
    ! element name, or class, or generation.
    %if %bliss(bliss32) %then
    k_warning = step_status(severity=sts$k_warning,inhib_msg=1),
    k_warn_elm = step_warning(code=m_elm),
    k_warn_cls = step_warning(code=m_cls),
    k_warn_gen = step_warning(code=m_gen),
    k_file_exists = step_warning(code = m_your_file_exists) ,
    %fi
    %if %bliss(bliss36) %then
    k_warning = 1 ,
    k_warn_elm = 1 ,
    k_warn_cls = 1 ,
    k_warn_gen = 1 ,
    k_file_exists = 1 ,
    %fi

    ! Non-success code for errors that need not be fatal, such as when the user
    ! makes a syntax error or mentions a non-existent generation.
    %if %bliss(bliss32) %then
    k_silent_error = step_status(severity = sts$k_error, inhib_msg = 1),
    %fi
    %if %bliss(bliss36) %then
    k_silent_error = 0 ,
    %fi

    ! Non-succes codes for fatal errors, such as when CMS detects a bug or
    ! something wrong with the project library.
    %if %bliss(bliss32) %then
    k_silent_severe = step_status(severity = sts$k_severe, inhib_msg = 1),
    k_severe_program_abort = step_status(severity = sts$k_severe,
				code = m_program_abort),
    k_severe_user_abort = step_status(severity = sts$k_severe,
				code = m_user_abort) ;
    %fi
    %if %bliss(bliss36) %then
    k_silent_severe = 0 ,
    k_severe_program_abort = 0 ,
    k_severe_user_abort = 0 ;
    %fi


!  HOSUSR.REQ  --  LAST LINE