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

!    SHWUSR.REQ  --  Declarations for the SHOW Command

!
!			  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 contains declarations that are use in the show command.
!
! Environment: Transportable.
!
! Author: Robert Wheater	Creation Date: February 1980
!
!--

!	The following declarations are used in SHOW RESERVATIONS


!   	The definition of the buffer table follows:

$FIELD
    D_REC_FLD =
	
		SET

		SUB_DESCRIPTOR(NAME=D_COM_LIN), 	! complete line desc

		SUB_DESCRIPTOR(NAME=D_RES_GEN),		! desc of reserved gen

		SUB_DESCRIPTOR(NAME=D_USR_NAM)	 	! user name desc

		TES;

LITERAL
    K_REC_FLD_FULL = $FIELD_SET_SIZE;			! # of fullwords


!	The following is a definition if individual chain entry blocks that
!	are allocated when more buffer space is required.

$FIELD
    CHN_BLK =

		SET

		CHN_CNT = [$BYTES(2)],			! # of this block

		BUF_LEN = [$BYTES(2)],			! length of this buffer

		FWD_LNK = [$ADDRESS],			! forward link

		BWD_LNK = [$ADDRESS],			! backward link

		P_BLK   = [$ADDRESS]			! pointer to buffer
		
		TES;
LITERAL
    K_CHN_BLK_FULL = $FIELD_SET_SIZE;			! # of fullwords in chn entry

!+
!   The following declarations are used in SHWLOG
!+

!   The definition for the month table follows:

$UNIT_FIELD
    MON_FLDS =

		SET

		MONTH = [$STRING(3)]		! month of year

		TES ;

LITERAL
    K_MON_FLDS_UNITS = $FIELD_SET_UNITS ;		! # of addressable unitsz

!   the above field may be referenced as a blockvector in a manner similar
!   to the following declaration:
!
!	TABLE: REF $UNIT_BLOCKVECTOR[,K_MON_FLDS_UNITS] FIELD(MON_FLDS)
!

!   The definition of the log components field of the log file follows:

$FIELD
    LOG_FLD =
		SET

		SUB_DESCRIPTOR(NAME=LOG_COMP)		! field in log record

		TES ;

LITERAL
    K_LOG_FLD_FULL = $FIELD_SET_SIZE ;			! # of fullwords

!   The above field may be referenced as a blockvector similar to the following
!   declaration:
!
!	TABLE: REF BLOCKVECTOR[,K_LOG_FLD_FULL] FIELD(LOG_FLD)
!

!   The definition of the subparameter chain block follows:

$UNIT_FIELD
    SUB_PARM =
		SET

		SUB_ADDR = [$ADDRESS],		! address of parsed individual
						! parameters
		SUB_CNT = [$INTEGER],           ! count of number of components
						! of this parameter
		FW_LNK = [$ADDRESS],		! forward link to next block

		BW_LNK = [$ADDRESS]		! backward link to previous
						! block
		TES ;

LITERAL
    K_SUB_PARM_UNITS = $FIELD_SET_UNITS ;		! # of addressable units

!   The above fields may be referenced by a declaration similar to the
!   following:
!
!	BLK: REF $UNIT_BLOCK FIELD(SUB_PARM)
!


!	The following declarations are used in SHWLOG and SHWLG2:

$LITERAL			!give values 1 through n to following literals
	NO_CLEAR = $DISTINCT,
	CLEAR	 = $DISTINCT,
	FREE_MEM = $DISTINCT;

KEYWORDMACRO
    SIMULATE_XPOGETMEM
	(CHARACTERS = 0,
	 FULLWORDS  = 0,
	 RESULT     = 0,
	 OPERATION  = NO_CLEAR )   =

	GETMEM ( (CHARACTERS), (FULLWORDS), (RESULT), (OPERATION) );   
    % ;

!    --  LAST LINE