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