Google
 

Trailing-Edge - PDP-10 Archives - BB-X117B-SB_1986 - 10,7/nml/nmlpdb.bli
There are 2 other files named nmlpdb.bli in the archive. Click here to see a list.
! UPD ID= 40, SNARK:<6.1.NML>NMLPDB.BLI.2,  24-May-84 16:31:04 by GLINDELL
! DSKT:[10,6026,NML703]NMLPDB.BLI 16-Mar-84 11:23:00, Edit by DAVENPORT
!
! Add new argument ERR_DETAIL to all permanent data base calls to be
! consistent with NMLVDB changes.
!
module NMLPDB	(
		ident = 'X03.00'
		) =
begin

!
!			  COPYRIGHT (c) 1980,1981 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:	DECnet-10/20 V3.0 Network Management Layer (NML)
!
! ABSTRACT:
!
!	Performs permanent data base processing for all entities.
!
! ENVIRONMENT:	TOPS-10/20 & MCB/RSX11 User mode under NML
!
! AUTHOR: Dale C. Gunn , CREATION DATE: 12-Nov-80
!
! MODIFIED BY:
!
!	, : VERSION
! 01	-
!--
!
! INCLUDE FILES:
!

library 'NMLLIB' ;                      ! All required definitions

!require 'NMLEXT' ;                      ! NML External routines

!
! TABLE OF CONTENTS
!

forward routine
        NML$PDB_READ,
        NML$PDB_CHANGE ;

!
! MACROS:
!

!
! EQUATED SYMBOLS:
!

!
! OWN STORAGE:
!

!
! EXTERNAL REFERENCES:
!

global routine %unquote NML$PDB_READ (FUNCTION,TYPE,ENTITY,QUALIFIER,
                                      SELECTOR,LENGTH,BUFFER,ERR_DETAIL) =

!++
! FUNCTIONAL DESCRIPTION:
!
!	Performs the NML NICE read function for NML permanent parameters.
!
! FORMAL PARAMETERS
!
!	FUNCTION  - Code to denote whether the specified parameter is to be
!                   defined or purged.
!       TYPE      - The NML entity type number of the entity to which the
!                   parameter pertains.
!       ENTITY    - Character sequence pointer to the entity id.
!       QUALIFIER - An optional character sequence pointer to a qualifier in
!                   parameter format.
!       SELECTOR  - For the return function, the class of entities to return.
!       LENGTH    - The address of a variable to be updated with the length
!                   of the data returned in the buffer.
!       BUFFER    - A character sequence pointer to the parameter buffer.
!       ERR_DETAIL - The address of a variable in which to return the
!		     error detail field for the response message if this
!		     request fails.
!
! IMPLICIT INPUTS
!
!	NONE.
!
! ROUTINE VALUE:
!
!	NML specified NICE return code.
!
! SIDE EFFECTS:
!
!	NONE.
!
!--

    begin

    return $NICE$ERR_OPF ; 

    end;				!End of NML$PDB_READ
global routine %unquote NML$PDB_CHANGE (FUNCTION,TYPE,ENTITY,QUALIFIER,
                                        LENGTH,BUFFER,ERR_DETAIL) =

!++
! FUNCTIONAL DESCRIPTION:
!
!	Performs the NML NICE change function for NML permanent parameters.
!
! FORMAL PARAMETERS
!
!	FUNCTION  - Code to denote whether the specified parameter is to be
!                   defined or purged.
!       TYPE      - The NML entity type number of the entity to which the
!                   parameter pertains.
!       ENTITY    - Character sequence pointer to the entity id.
!       QUALIFIER - An optional character sequence pointer to a qualifier in
!                   parameter format.
!       LENGTH    - The address of a variable which contains the length
!                   of the parameter data passed in the buffer.
!       BUFFER    - A character sequence pointer to the parameter buffer.
!       ERR_DETAIL - The address of a variable in which to return the
!		     error detail field for the response message if this
!		     request fails.
!
! IMPLICIT INPUTS
!
!	NONE.
!
! ROUTINE VALUE:
!
!	NML specified NICE return code.
!
! SIDE EFFECTS:
!
!	NONE.
!
!--

    begin

    return $NICE$ERR_OPF ;

    end;				!End of NML$PDB_CHANGE
end				!End of Module NMLPDB
eludom