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

!	RBUSR.REQ - Require file used by ROLBCK
!
!			  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 require file is by ROLBCK for data definitions.
!
! ENVIRONMENT:
!   VAX/VMS,DS-20
!
! AUTHOR: Bob Wheater, CREATION DATE: 25-JUL-1981
!
! MODIFIED BY:
!
!--

! 	definitions of the user area of the rolbck list.
! RBDEFS
$field
	rb_defs =
		set
			
		add_iob = [$address],		! address of iob

		op_code = [$integer],		! file operation code

		fil_typ = [$integer],		! library or user file

		opn_trn_data_valid = [$integer],! truncation data has been filled in
						!   true/false

		%if vaxvms %then
		sav_rfa = [$bytes(rab$s_rfa)]	! RFA save area
		%fi

		%if Tops20 %then
		opn_sav_fbsiz = [$integer]	! original size of file in bytes
		%fi

		%if Tops10 %then
		%error('DS-10 code not yet implemented')
		%fi

		tes;

literal
    K_rb_def_size = $field_set_size ;			! # of fullwords

! END OF RBDEFS


! 	definitions of operation codes for I/O performed on the files

$literal
    k_base_op = 1,
    k_read = k_base_op + $distinct,			! read operation
    k_append = k_base_op + $distinct,			! append operation
    k_write = k_base_op + $distinct;			! write operation

! definition for file type
    
$literal
    k_base_typ = 20,
    k_lib = k_base_typ + $distinct,			! lib file
    k_user = k_base_typ + $distinct;			! user file    


! 	definitions for the closed file list
! RBFNENT
$field
    	rbfnent =

		set
			
		sub_descriptor(name=fil_nam),	! desc of file name string

		fop_code = [$integer],		! file operation code

		f_type = [$integer],		! library or user file

		clo_trn_data_valid = [$integer],! truncation date valid
						!   true/false

		%if %bliss(bliss32) %then
		sv_add = [$bytes(rab$s_rfa)]	! RFA save area
		%fi

		%if Tops20 %then
		clo_sav_fbsiz = [$integer]	! original size of file in bytes
		%fi

		%if Tops10 %then
		%error('DS-10 code not yet implemented')
		%fi

		tes;

literal
    k_rbfnent_size = $field_set_size ;			! length in fullwords
! END RBFNENT

!  definitions of file status
$literal
    k_base_stat = 30,
    k_open = k_base_stat + $distinct,
    k_closed = k_base_stat +$distinct ;
    
        
! definitions of return values on the rolbck process
$literal
    k_base_return = 40,
    k_commit_s = k_base_return + $distinct,
    k_uncommit_lib_restored_s = k_base_return + $distinct,
    k_uncommit_s = k_base_return + $distinct,
    k_inhibit_f = k_base_return + $distinct,
    k_fail = k_base_return + $distinct ,
    k_not_needed = k_base_return + $distinct ;    

! definitions of codes to indicate where rolbck is being called from
$literal
    k_base_from = 50,
    k_from_ctrlc = k_base_from + $distinct,
    k_from_error = k_base_from + $distinct;


!	RBUSR.REQ - end of file