!
 !****************************************************************************
 !*                                                                          *
 !*  Copyright (c) 2001                                                      *
 !*  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.                 *
 !*                                                                          *
 !****************************************************************************
 !********************************************************************************************************************************
 ! Created 15-MAR-2001 22:56:36 by VAX SDL T3.2-8      Source: 21-JUN-1999 06:13:24 $11$DUA933:[BACKUP.SRC]BACKDEF.SDL;1 
 !********************************************************************************************************************************
      ! *** PREDECLARED TYPES
     
      %IF %DECLARED(%BASIC$QUADWORD_DECLARED) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL(2)
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$OCTAWORD_DECLARED) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL(4)
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$F_FLOATING_COMPLEX_DECL) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$D_FLOATING_COMPLEX_DECL) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$G_FLOATING_COMPLEX_DECL) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$H_FLOATING_COMPLEX_DECL) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX
            HFLOAT REAL_PART
            HFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
    
    !*** MODULE $BBHDEF ***
    
    
      DECLARE LONG CONSTANT BBH$K_COMMON = 32  !  end of common header 
      DECLARE LONG CONSTANT BBH$C_COMMON = 32  !  end of common header 
      DECLARE LONG CONSTANT BBH$K_LEVEL1 = 257  !  level 1, version 1 
      DECLARE LONG CONSTANT BBH$M_NOCRC = x'00000001'
      DECLARE LONG CONSTANT BBH$K_LENGTH = 256  !  length of block header 
      DECLARE LONG CONSTANT BBH$C_LENGTH = 256  !  length of block header 
      DECLARE LONG CONSTANT BBH$S_BBHDEF = 256
      record BBHDEF
         WORD BBH$W_SIZE                    !  size in bytes of block header 
         WORD BBH$W_OPSYS                   !  operating system ID 
         WORD BBH$W_SUBSYS                  !  subsystem ID 
         WORD BBH$W_APPLIC                  !  application ID 
         LONG BBH$L_NUMBER                  !  block sequence number 
         BYTE BBHDEF$$_FILL_1(1 to 20)      !  reserved 
         group BBH$r_fill_0
            variant
               case
                  WORD BBH$W_STRUCLEV       !  block structure level 
               case
                  group BBH$r_fill_1
                     BYTE BBH$B_STRUCVER    !  structure version number 
                     BYTE BBH$B_STRUCLEV    !  major structure level 
                  end group BBH$r_fill_1
            end variant
         end group BBH$r_fill_0
         WORD BBH$W_VOLNUM                  !  media volume number 
         LONG BBH$L_CRC                     !  block CRC 
         LONG BBH$L_BLOCKSIZE               !  block size in bytes 
         group BBH$r_fill_2
            variant
               case
                  LONG BBH$L_FLAGS          !  block flags 
               case
                  group BBH$r_fill_3
                      !  no CRC computed for block 
                     BYTE NOCRC_bits   ! COMMENT ADDED BY SDL - NOCRC_bits contains bits NOCRC through fill_4
                  end group BBH$r_fill_3
            end variant
         end group BBH$r_fill_2
         STRING BBH$T_SSNAME = 32           !  save set name (counted ASCII) 
    !  for compatibility sake don't change
    !  *** Note: Old overlay form must be used in FID ? DID due to SDL bug
    !  *** that omits the field size symbol in a structured field.
         group BBH$R_FID_OVERLAY
            variant
               case
                  WORD BBH$W_FID(1 to 3)    !  current file ID 
               case
                  group BBH$R_FID_FIELDS
                     WORD BBH$W_FID_NUM     !  file number 
                     WORD BBH$W_FID_SEQ     !  file sequence number 
                     group BBH$R_FID_RVN_OVERLAY
                        variant
                        case
                           WORD BBH$W_FID_RVN  !  relative volume number 
                        case
                           group BBH$R_FID_RVN_FIELDS
                              BYTE BBH$B_FID_RVN  !  alternate format RVN 
                              BYTE BBH$B_FID_NMX  !  alternate format file number extension 
                           end group BBH$R_FID_RVN_FIELDS
                        end variant
                     end group BBH$R_FID_RVN_OVERLAY
                  end group BBH$R_FID_FIELDS
            end variant
         end group BBH$R_FID_OVERLAY
         group BBH$R_DID_OVERLAY
            variant
               case
                  WORD BBH$W_DID(1 to 3)    !  current directory ID 
               case
                  group BBH$R_DID_FIELDS
                     WORD BBH$W_DID_NUM     !  file number 
                     WORD BBH$W_DID_SEQ     !  file sequence number 
                     group BBH$R_DID_RVN_OVERLAY
                        variant
                        case
                           WORD BBH$W_DID_RVN  !  relative volume number 
                        case
                           group BBH$R_DID_RVN_FIELDS
                              BYTE BBH$B_DID_RVN  !  alternate format RVN 
                              BYTE BBH$B_DID_NMX  !  alternate format file number extension 
                           end group BBH$R_DID_RVN_FIELDS
                        end variant
                     end group BBH$R_DID_RVN_OVERLAY
                  end group BBH$R_DID_FIELDS
            end variant
         end group BBH$R_DID_OVERLAY
         STRING BBH$T_FILENAME = 128        !  current file name 
         BYTE BBH$B_RTYPE                   !  record type of current file 
         BYTE BBH$B_RATTRIB                 !  record attributes of current file 
         WORD BBH$W_RSIZE                   !  record size of current file 
         BYTE BBH$B_BKTSIZE                 !  bucket size of current file 
         BYTE BBH$B_VFCSIZE                 !  VFC area size of current file 
         WORD BBH$W_MAXREC                  !  maximum record size of current file 
         LONG BBH$L_FILESIZE                !  allocation of current file 
         STRING BBH$T_RESERVED2 = 22        !  reserved 
         WORD BBH$W_CHECKSUM                !  header checksum 
      end record BBHDEF
    
    
    !*** MODULE $BRHDEF ***
    
    
    ! +
    ! 
    !  BRH - backup record header. This structure prefixes each record
    !  within a data block. It identifies the type and use of the record.
    ! 
    ! -
      DECLARE LONG CONSTANT BRH$K_NULL = 0  !  null record 
      DECLARE LONG CONSTANT BRH$K_SUMMARY = 1  !  BACKUP summary record 
      DECLARE LONG CONSTANT BRH$K_VOLUME = 2  !  volume summary record 
      DECLARE LONG CONSTANT BRH$K_FILE = 3  !  file attribute record 
      DECLARE LONG CONSTANT BRH$K_VBN = 4   !  file virtual block record 
      DECLARE LONG CONSTANT BRH$K_PHYSVOL = 5  !  physical volume attribute record 
      DECLARE LONG CONSTANT BRH$K_LBN = 6   !  physical volume logical block record 
      DECLARE LONG CONSTANT BRH$K_FID = 7   !  file ID record 
      DECLARE LONG CONSTANT BRH$K_FILE_EXT = 8  !  file attribute extension record 
      DECLARE LONG CONSTANT BRH$K_LBN_576 = 9  !  576 byte LBN record
      DECLARE LONG CONSTANT BRH$K_RS_DIRATTR = 10  !  RSTS directory attribute record
      DECLARE LONG CONSTANT BRH$K_ALIAS = 11
      DECLARE LONG CONSTANT BRH$K_MAX_RTYPE = 12  !  max record type
      DECLARE LONG CONSTANT BRH$M_BADDATA = x'00000001'
      DECLARE LONG CONSTANT BRH$M_DIRECTORY = x'00000002'
      DECLARE LONG CONSTANT BRH$M_NONSEQUENTIAL = x'00000004'
      DECLARE LONG CONSTANT BRH$M_BLOCKERRS = x'00000008'
      DECLARE LONG CONSTANT BRH$M_ALIAS_ENTRY = x'00000010'
      DECLARE LONG CONSTANT BRH$M_HEADONLY = x'00000020'
      DECLARE LONG CONSTANT BRH$K_LENGTH = 16
      DECLARE LONG CONSTANT BRH$C_LENGTH = 16
      DECLARE LONG CONSTANT BRH$S_BRHDEF = 16
      record BRHDEF
         WORD BRH$W_RSIZE                   !  record size in bytes 
         WORD BRH$W_RTYPE                   !  record type 
         group BRH$r_fill_5
            variant
               case
                  LONG BRH$L_FLAGS          !  record flags 
               case
                  group BRH$r_fill_6
                      !  data error occurred in record 
                      !  record belongs to a directory file 
                      !  data record is not in LBN / VBN sequence
                      !  per block error mask present
                      !  file saved via alias entry
                      !  File's data isn't copied
                     BYTE BADDATA_bits   ! COMMENT ADDED BY SDL - BADDATA_bits contains bits BADDATA through fill_7
                  end group BRH$r_fill_6
            end variant
         end group BRH$r_fill_5
         LONG BRH$L_ADDRESS                 !  address of data (e.g., VBN or LBN) 
         WORD BRH$W_BLOCKFLAGS              !  per block error mask
         WORD BRH$W_RESERVED                !  reserved 
      end record BRHDEF
    
    
    !*** MODULE $BSADEF ***
    
    
    ! +
    ! 
    !  BACKUP attribute codes. These attributes appear in various records
    !  in a save set.
    ! 
    ! -
    ! 
    !  Definition for file ID record
    !  (Structure level definition shared with other attribute records)
    ! 
      DECLARE LONG CONSTANT BSA$S_BSADEF = 10
      record BSADEF
         WORD BSA$W_STRUCLEV                !  save set structure level 
         WORD BSA$W_FID_NUM                 !  NUM word of file ID 
         group BSA$r_fill_8
            variant
               case
                  WORD BSA$W_FID_RVN        !  RVN word of file ID 
               case
                  group BSA$r_fill_9
                     BYTE BSA$B_FID_RVN     !  alternate format RVN word 
                     BYTE BSA$B_FID_NMX     !  alternate format RVN word 
                  end group BSA$r_fill_9
            end variant
         end group BSA$r_fill_8
         WORD BSA$W_FID_COUNT               !  count of SEQ words following 
         WORD BSA$W_FID_SEQ                 !  SEQ word of file ID, repeated 
    !      BSA$W_FID_COUNT times
    ! 
    !  Attribute entry header
    ! 
      end record BSADEF
    
      DECLARE LONG CONSTANT BSA$K_LENGTH = 4  !  length of attribute descriptor 
      DECLARE LONG CONSTANT BSA$C_LENGTH = 4  !  length of attribute descriptor 
    ! 
      DECLARE LONG CONSTANT BSA$S_BSADEF1 = 4
      record BSADEF1
         WORD BSA$W_SIZE                    !  size of attribute value 
         WORD BSA$W_TYPE                    !  attribute code 
    !  Data item within placement attribute record
    ! 
      end record BSADEF1
    
      DECLARE LONG CONSTANT BSA$S_BSADEF2 = 10
      record BSADEF2
         WORD BSA$W_PLC_PTR                 !  placement pointer 
         LONG BSA$L_PLC_COUNT               !  count of placed blocks 
         group BSA$r_fill_10
            variant
               case
                  LONG BSA$L_PLC_LBN        !  LBN of placed blocks 
               case
                  group BSA$r_fill_11
                     WORD BSA$W_PLC_LOLBN   !  
                     WORD BSA$W_PLC_HILBN
                  end group BSA$r_fill_11
            end variant
         end group BSA$r_fill_10
      end record BSADEF2
    
    ! 
    !  ALIAS record structure
    ! 
      DECLARE LONG CONSTANT BSA$M_IGNORED_ALIAS = x'00000001'
      DECLARE LONG CONSTANT BSA_ALIAS$K_LENGTH = 32  !  Length of fixed portion of ALIAS record
      DECLARE LONG CONSTANT BSA_ALIAS$C_LENGTH = 32  !  Length of fixed portion of ALIAS record
    ! 
      DECLARE LONG CONSTANT BSA$S_BSADEF4 = 32
      record BSADEF4
         WORD BSA$W_ALIAS_STRUCLEV          !  save set structure level 
    !  *** Note: Old overlay form must be used in FID ? DID due to SDL bug
    !  *** that omits the field size symbol in a structured field.
         group BSA$R_ALIAS_DID_OVERLAY
            variant
               case
                  WORD BSA$W_ALIAS_DID(1 to 3)  !  ALIAS directory ID 
               case
                  group BSA$R_ALIAS_DID_FIELDS
                     WORD BSA$W_ALIAS_DID_NUM  !  ALIAS Dir. file number 
                     WORD BSA$W_ALIAS_DID_SEQ  !  ALIAS Dir. file sequence number 
                     group BSA$R_ALIAS_DID_RVN_OVERLAY
                        variant
                        case
                           WORD BSA$W_ALIAS_DID_RVN  !  ALIAS Dir. relative volume number 
                        case
                           group BSA$R_ALIAS_DID_RVN_FIELDS
                              BYTE BSA$B_ALIAS_DID_RVN  !  alternate format RVN 
                              BYTE BSA$B_ALIAS_DID_NMX  !  alternate format file number extension 
                           end group BSA$R_ALIAS_DID_RVN_FIELDS
                        end variant
                     end group BSA$R_ALIAS_DID_RVN_OVERLAY
                  end group BSA$R_ALIAS_DID_FIELDS
            end variant
         end group BSA$R_ALIAS_DID_OVERLAY
         WORD BSA$W_ALIAS_ENTRY_DIR_RSS     !  alias entry Dir. filename size
         WORD BSA$W_ALIAS_ENTRY_RSS         !  alias entry filename size
         group BSA$R_PRIM_DID_OVERLAY
            variant
               case
                  WORD BSA$W_PRIM_DID(1 to 3)  !  Primary File directory ID 
               case
                  group BSA$R_PRIM_DID_FIELDS
                     WORD BSA$W_PRIM_DID_NUM  !  Primary File Dir. file number 
                     WORD BSA$W_PRIM_DID_SEQ  !  Primary File Dir. file sequence number 
                     group BSA$R_PRIM_DID_RVN_OVERLAY
                        variant
                        case
                           WORD BSA$W_PRIM_DID_RVN  !  Primary File Dir. relative volume number 
                        case
                           group BSA$R_PRIM_DID_RVN_FIELDS
                              BYTE BSA$B_PRIM_DID_RVN  !  alternate format RVN 
                              BYTE BSA$B_PRIM_DID_NMX  !  alternate format file number extension 
                           end group BSA$R_PRIM_DID_RVN_FIELDS
                        end variant
                     end group BSA$R_PRIM_DID_RVN_OVERLAY
                  end group BSA$R_PRIM_DID_FIELDS
            end variant
         end group BSA$R_PRIM_DID_OVERLAY
         group BSA$R_PRIM_FID_OVERLAY
            variant
               case
                  WORD BSA$W_PRIM_FID(1 to 3)  !  Primary file ID 
               case
                  group BSA$R_PRIM_FID_FIELDS
                     WORD BSA$W_PRIM_FID_NUM  !  Primary File file number 
                     WORD BSA$W_PRIM_FID_SEQ  !  Primary File file sequence number 
                     group BSA$R_PRIM_FID_RVN_OVERLAY
                        variant
                        case
                           WORD BSA$W_PRIM_FID_RVN  !  Primary File relative volume number 
                        case
                           group BSA$R_PRIM_FID_RVN_FIELDS
                              BYTE BSA$B_PRIM_FID_RVN  !  alternate format RVN 
                              BYTE BSA$B_PRIM_FID_NMX  !  alternate format file number extension 
                           end group BSA$R_PRIM_FID_RVN_FIELDS
                        end variant
                     end group BSA$R_PRIM_FID_RVN_OVERLAY
                  end group BSA$R_PRIM_FID_FIELDS
            end variant
         end group BSA$R_PRIM_FID_OVERLAY
         WORD BSA$W_ALIAS_PRIM_DIR_RSS      !  Primary file entry Dir. filename size
         WORD BSA$W_ALIAS_PRIM_RSS          !  Primary file entry filename size
         group BSA$r_fill_12
            variant
               case
                  LONG BSA$L_ALIAS_FLAGS    !  Alias Record Flags
               case
                  group BSA$r_fill_13
                      !    1 = alias entry ignored
                     BYTE IGNORED_ALIAS_bits   ! COMMENT ADDED BY SDL - IGNORED_ALIAS_bits contains bits IGNORED_ALIAS through  &
 ! fill_14
                  end group BSA$r_fill_13
            end variant
         end group BSA$r_fill_12
    !   Variable length strings follow the fixed portion of the ALIAS Record.
    !   These strings are: 
    ! 	the alias entry directory name string, (includes brackets),
    ! 	the alias entry name string, (NTV),
    ! 	the primary file directory name string, (includes brackets),
    ! 	and the primary file name string, (NTV).
    ! 
      end record BSADEF4
    
    ! 
    !  Attribute type codes
    ! 
    ! 
    !  BACKUP summary record
    ! 
      DECLARE LONG CONSTANT BSA$K_SSNAME = 1  !  save set name 
      DECLARE LONG CONSTANT BSA$K_COMMAND = 2  !  command line 
      DECLARE LONG CONSTANT BSA$K_COMMENT = 3  !  user comment 
      DECLARE LONG CONSTANT BSA$K_USERNAME = 4  !  name of user who wrote the set 
      DECLARE LONG CONSTANT BSA$K_USERUIC = 5  !  UIC of user 
      DECLARE LONG CONSTANT BSA$K_DATE = 6  !  date backup was done 
      DECLARE LONG CONSTANT BSA$K_OPSYS = 7  !  operating system 
      DECLARE LONG CONSTANT BSA$K_SYSVER = 8  !  operating system version 
      DECLARE LONG CONSTANT BSA$K_NODENAME = 9  !  operating system node name 
      DECLARE LONG CONSTANT BSA$K_SIR = 10  !  CPU system ID register 
      DECLARE LONG CONSTANT BSA$K_DRIVEID = 11  !  ID of drive writing backup 
      DECLARE LONG CONSTANT BSA$K_BACKVER = 12  !  version number of BACKUP 
      DECLARE LONG CONSTANT BSA$K_BLOCKSIZE = 13  !  block size of save set 
      DECLARE LONG CONSTANT BSA$K_XORSIZE = 14  !  size of each XOR group 
      DECLARE LONG CONSTANT BSA$K_BUFFERS = 15  !  number of buffers 
      DECLARE LONG CONSTANT BSA$K_VOLSETNAM = 16  !  volume set name 
      DECLARE LONG CONSTANT BSA$K_NVOLS = 17  !  number of volumes in set 
      DECLARE LONG CONSTANT BSA$K_BACKSIZE = 18  !  total file space in save set 
      DECLARE LONG CONSTANT BSA$K_BACKFILES = 19  !  total number of files in save set 
    ! 
    !  Volume summary record
    ! 
      DECLARE LONG CONSTANT BSA$K_VOLSTRUCT = 20  !  volume structure level 
      DECLARE LONG CONSTANT BSA$K_VOLNAME = 21  !  volume label 
      DECLARE LONG CONSTANT BSA$K_OWNERNAME = 22  !  volume owner name 
      DECLARE LONG CONSTANT BSA$K_FORMAT = 23  !  volume file format name 
      DECLARE LONG CONSTANT BSA$K_RVN = 24  !  relative volume number 
      DECLARE LONG CONSTANT BSA$K_VOLOWNER = 25  !  volume owner UIC 
      DECLARE LONG CONSTANT BSA$K_PROTECT = 26  !  volume protection mask 
      DECLARE LONG CONSTANT BSA$K_FILEPROT = 27  !  volume default file protection 
      DECLARE LONG CONSTANT BSA$K_RECPROT = 28  !  volume default record protection 
      DECLARE LONG CONSTANT BSA$K_VOLCHAR = 29  !  volume characteristics bits 
      DECLARE LONG CONSTANT BSA$K_VOLDATE = 30  !  volume creation date 
      DECLARE LONG CONSTANT BSA$K_WINDOW = 31  !  default file window size 
      DECLARE LONG CONSTANT BSA$K_LRU_LIM = 32  !  default directory LRU limit 
      DECLARE LONG CONSTANT BSA$K_EXTEND = 33  !  default file extend size 
      DECLARE LONG CONSTANT BSA$K_CLUSTER = 34  !  storage map cluster factor 
      DECLARE LONG CONSTANT BSA$K_RESFILES = 35  !  number of reserved files 
      DECLARE LONG CONSTANT BSA$K_VOLSIZE = 36  !  original volume size in blocks 
      DECLARE LONG CONSTANT BSA$K_TOTSIZE = 37  !  total file space in volume set 
      DECLARE LONG CONSTANT BSA$K_TOTFILES = 38  !  total number of files in volume set 
      DECLARE LONG CONSTANT BSA$K_MAXFILES = 39  !  maximum number of files allowed 
      DECLARE LONG CONSTANT BSA$K_MAXFILNUM = 40  !  highest file number 
      DECLARE LONG CONSTANT BSA$K_SERIALNUM = 41  !  pack serial number 
    ! 
    !  File attribute record
    ! 
      DECLARE LONG CONSTANT BSA$K_FILENAME = 42  !  file name 
      DECLARE LONG CONSTANT BSA$K_STRUCLEV = 43  !  file structure level 
      DECLARE LONG CONSTANT BSA$K_FID = 44  !  file ID 
      DECLARE LONG CONSTANT BSA$K_BACKLINK = 45  !  directory ID back link 
      DECLARE LONG CONSTANT BSA$K_FILESIZE = 46  !  file size in blocks 
      DECLARE LONG CONSTANT BSA$K_UIC = 47  !  file owner UIC 
      DECLARE LONG CONSTANT BSA$K_FPRO = 48  !  file protection mask 
      DECLARE LONG CONSTANT BSA$K_RPRO = 49  !  record protection mask 
      DECLARE LONG CONSTANT BSA$K_ACLEVEL = 50  !  access level 
      DECLARE LONG CONSTANT BSA$K_UCHAR = 51  !  file characteristics 
      DECLARE LONG CONSTANT BSA$K_RECATTR = 52  !  record attributes area 
      DECLARE LONG CONSTANT BSA$K_REVISION = 53  !  revision number 
      DECLARE LONG CONSTANT BSA$K_CREDATE = 54  !  creation date 
      DECLARE LONG CONSTANT BSA$K_REVDATE = 55  !  revision date 
      DECLARE LONG CONSTANT BSA$K_EXPDATE = 56  !  expiration date 
      DECLARE LONG CONSTANT BSA$K_BAKDATE = 57  !  backup date 
    ! 
    !  Physical volume attribute record
    ! 
      DECLARE LONG CONSTANT BSA$K_SECTORS = 58  !  sectors per track 
      DECLARE LONG CONSTANT BSA$K_TRACKS = 59  !  tracks per cylinder 
      DECLARE LONG CONSTANT BSA$K_CYLINDERS = 60  !  cylinders per volume 
      DECLARE LONG CONSTANT BSA$K_MAXBLOCK = 61  !  number of logical blocks per volume 
      DECLARE LONG CONSTANT BSA$K_DEVTYP = 62  !  device type 
      DECLARE LONG CONSTANT BSA$K_SERIAL = 63  !  serial number 
      DECLARE LONG CONSTANT BSA$K_DEVNAM = 64  !  device name 
      DECLARE LONG CONSTANT BSA$K_LABEL = 65  !  label 
      DECLARE LONG CONSTANT BSA$K_BADBLOCK = 66  !  bad block descriptor, a sequence of 
    !  pairs of longwords where the first
    !  is an LBN, the second is a count
    ! 
    !  Additions
    ! 
      DECLARE LONG CONSTANT BSA$K_INDEXLBN = 67  !  (VS) Index file bitmap starting LBN 
      DECLARE LONG CONSTANT BSA$K_BOOTBLOCK = 68  !  (VS) Boot block image 
      DECLARE LONG CONSTANT BSA$K_BOOTVBN = 69  !  (FA) VBN within file for 1st boot image 
      DECLARE LONG CONSTANT BSA$K_PLACEMENT = 70  !  (FA) Placement data 
      DECLARE LONG CONSTANT BSA$K_DIR_UIC = 71  !  (FA) UIC of directory 
      DECLARE LONG CONSTANT BSA$K_DIR_FPRO = 72  !  (FA) Protection of directory 
      DECLARE LONG CONSTANT BSA$K_DIR_STATUS = 73  !  (FA) Status of directory 
      DECLARE LONG CONSTANT BSA$K_DIR_VERLIM = 74  !  (FA) Version limit of directory 
      DECLARE LONG CONSTANT BSA$K_VERLIMIT = 75  !  (FA) File version limit 
      DECLARE LONG CONSTANT BSA$K_RETAINMIN = 76  !  (VS) Minimum file retention period 
      DECLARE LONG CONSTANT BSA$K_RETAINMAX = 77  !  (VS) Maximum file retention period 
      DECLARE LONG CONSTANT BSA$K_ACLSEGMENT = 78  !  (FA) ACL segment for the file 
      DECLARE LONG CONSTANT BSA$K_HIGHWATER = 79  !  (FA) Highwater mark
      DECLARE LONG CONSTANT BSA$K_JNL_FLAGS = 80  !  (FA) Journal control flags
      DECLARE LONG CONSTANT BSA$K_CRYPDATKEY = 81  !  (BS) File encryption attribute
      DECLARE LONG CONSTANT BSA$K_LBNSIZE = 82  !  (PS) Disk block size in bytes
      DECLARE LONG CONSTANT BSA$K_RS_DIRCRE = 83  !  (DA) RSTS directory creation attribute
      DECLARE LONG CONSTANT BSA$K_RS_DIRATTR = 84  !  (DA) RSTS directory attributes
      DECLARE LONG CONSTANT BSA$K_RS_FILECHAR = 85  !  (FA) RSTS specific file attributes
      DECLARE LONG CONSTANT BSA$K_RS_VOLCHAR = 86  !  (VS) RSTS specific volume characteristics
      DECLARE LONG CONSTANT BSA$K_RU_ACTIVE = 87  !  (FA) Active recovery units recoverable facility id (if non-zero)
      DECLARE LONG CONSTANT BSA$K_BACKREV = 88  !  (VS) Backup revision count.
      DECLARE LONG CONSTANT BSA$K_MIN_CLASS = 89  !  (VS) Volume min security class
      DECLARE LONG CONSTANT BSA$K_MAX_CLASS = 90  !  (VS) Volume max security class
      DECLARE LONG CONSTANT BSA$K_CLASS_PROT = 91  !  (FA) File security class
      DECLARE LONG CONSTANT BSA$K_BOOTVBN2 = 92  !  (FA) VBN within file for 2nd boot image
      DECLARE LONG CONSTANT BSA$K_NUM_ATRS = 93  !  number of attribute codes 
    ! 
    !  Placement data type codes
    ! 
      DECLARE LONG CONSTANT BSA$K_PLC_FID = 1  !  file ID 
      DECLARE LONG CONSTANT BSA$K_PLC_COUNT = 2  !  count of unplaced blocks 
      DECLARE LONG CONSTANT BSA$K_PLC_PLACE = 3  !  placement pointer, count of placed blocks 
      DECLARE LONG CONSTANT BSA$K_PLC_PLLBN = 4  !  placement pointer, count, LBN of placed blocks 
    ! 
    !  Lengths of above attributes
    ! 
    ! 
    !  BACKUP summary record
    ! 
      DECLARE LONG CONSTANT BSA$S_SSNAME = 79  !  save set name 
      DECLARE LONG CONSTANT BSA$S_COMMAND = 512  !  command line 
      DECLARE LONG CONSTANT BSA$S_COMMENT = 512  !  user comment 
      DECLARE LONG CONSTANT BSA$S_USERNAME = 32  !  name of user who wrote the set 
      DECLARE LONG CONSTANT BSA$S_USERUIC = 4  !  UIC of user 
      DECLARE LONG CONSTANT BSA$S_DATE = 8  !  date backup was done 
      DECLARE LONG CONSTANT BSA$S_OPSYS = 2  !  operating system 
      DECLARE LONG CONSTANT BSA$S_SYSVER = 4  !  operating system version 
      DECLARE LONG CONSTANT BSA$S_NODENAME = 12  !  operating system node name 
      DECLARE LONG CONSTANT BSA$S_SIR = 4   !  CPU system ID register 
      DECLARE LONG CONSTANT BSA$S_DRIVEID = 16  !  ID of drive writing backup 
      DECLARE LONG CONSTANT BSA$S_BACKVER = 32  !  version number of BACKUP 
      DECLARE LONG CONSTANT BSA$S_BLOCKSIZE = 4  !  block size of save set 
      DECLARE LONG CONSTANT BSA$S_XORSIZE = 2  !  size of each XOR group 
      DECLARE LONG CONSTANT BSA$S_BUFFERS = 2  !  number of buffers 
      DECLARE LONG CONSTANT BSA$S_VOLSETNAM = 12  !  volume set name 
      DECLARE LONG CONSTANT BSA$S_NVOLS = 2  !  number of volumes in set 
      DECLARE LONG CONSTANT BSA$S_BACKSIZE = 8  !  total file space in save set 
      DECLARE LONG CONSTANT BSA$S_BACKFILES = 4  !  total number of files in save set 
    ! 
    !  Volume summary record
    ! 
      DECLARE LONG CONSTANT BSA$S_VOLSTRUCT = 2  !  volume structure level 
      DECLARE LONG CONSTANT BSA$S_VOLNAME = 12  !  volume label 
      DECLARE LONG CONSTANT BSA$S_OWNERNAME = 12  !  volume owner name 
      DECLARE LONG CONSTANT BSA$S_FORMAT = 12  !  volume file format name 
      DECLARE LONG CONSTANT BSA$S_RVN = 2   !  relative volume number 
      DECLARE LONG CONSTANT BSA$S_VOLOWNER = 4  !  volume owner UIC 
      DECLARE LONG CONSTANT BSA$S_PROTECT = 2  !  volume protection mask 
      DECLARE LONG CONSTANT BSA$S_FILEPROT = 2  !  volume default file protection 
      DECLARE LONG CONSTANT BSA$S_RECPROT = 2  !  volume default record protection 
      DECLARE LONG CONSTANT BSA$S_VOLCHAR = 2  !  volume characteristics bits 
      DECLARE LONG CONSTANT BSA$S_VOLDATE = 8  !  volume creation date 
      DECLARE LONG CONSTANT BSA$S_WINDOW = 1  !  default file window size 
      DECLARE LONG CONSTANT BSA$S_LRU_LIM = 1  !  default directory LRU limit 
      DECLARE LONG CONSTANT BSA$S_EXTEND = 2  !  default file extend size 
      DECLARE LONG CONSTANT BSA$S_CLUSTER = 2  !  storage map cluster factor 
      DECLARE LONG CONSTANT BSA$S_RESFILES = 2  !  number of reserved files 
      DECLARE LONG CONSTANT BSA$S_VOLSIZE = 4  !  original volume size in blocks 
      DECLARE LONG CONSTANT BSA$S_TOTSIZE = 8  !  total file space in volume 
      DECLARE LONG CONSTANT BSA$S_TOTFILES = 4  !  total number of files in volume 
      DECLARE LONG CONSTANT BSA$S_MAXFILES = 4  !  maximum number of files allowed 
      DECLARE LONG CONSTANT BSA$S_MAXFILNUM = 4  !  highest file number 
      DECLARE LONG CONSTANT BSA$S_SERIALNUM = 4  !  pack serial number 
    ! 
    !  File attribute record
    ! 
      DECLARE LONG CONSTANT BSA$S_FILENAME = 128  !  file name 
      DECLARE LONG CONSTANT BSA$S_STRUCLEV = 2  !  file structure level 
      DECLARE LONG CONSTANT BSA$S_FID = 6   !  file ID 
      DECLARE LONG CONSTANT BSA$S_BACKLINK = 6  !  directory ID back link 
      DECLARE LONG CONSTANT BSA$S_FILESIZE = 4  !  file size in blocks 
      DECLARE LONG CONSTANT BSA$S_UIC = 4   !  file owner UIC 
      DECLARE LONG CONSTANT BSA$S_FPRO = 2  !  file protection mask 
      DECLARE LONG CONSTANT BSA$S_RPRO = 2  !  record protection mask 
      DECLARE LONG CONSTANT BSA$S_ACLEVEL = 1  !  access level 
      DECLARE LONG CONSTANT BSA$S_UCHAR = 4  !  file characteristics 
      DECLARE LONG CONSTANT BSA$S_RECATTR = 32  !  record attributes area 
      DECLARE LONG CONSTANT BSA$S_REVISION = 2  !  revision number 
      DECLARE LONG CONSTANT BSA$S_CREDATE = 8  !  creation date 
      DECLARE LONG CONSTANT BSA$S_REVDATE = 8  !  revision date 
      DECLARE LONG CONSTANT BSA$S_EXPDATE = 8  !  expiration date 
      DECLARE LONG CONSTANT BSA$S_BAKDATE = 8  !  backup date 
    ! 
    !  Physical volume attribute record
    ! 
      DECLARE LONG CONSTANT BSA$S_SECTORS = 1  !  sectors per track 
      DECLARE LONG CONSTANT BSA$S_TRACKS = 1  !  tracks per cylinder 
      DECLARE LONG CONSTANT BSA$S_CYLINDERS = 2  !  cylinders per volume 
      DECLARE LONG CONSTANT BSA$S_MAXBLOCK = 4  !  number of logical blocks per volume 
      DECLARE LONG CONSTANT BSA$S_DEVTYP = 4  !  device type 
      DECLARE LONG CONSTANT BSA$S_SERIAL = 4  !  serial number 
      DECLARE LONG CONSTANT BSA$S_DEVNAM = 64  !  device name 
      DECLARE LONG CONSTANT BSA$S_LABEL = 12  !  label 
      DECLARE LONG CONSTANT BSA$S_BADBLOCK = 8  !  bad block descriptor (one pair) 
    ! 
    !  Additions
    ! 
      DECLARE LONG CONSTANT BSA$S_INDEXLBN = 4  !  (VS) Index file bitmap starting LBN 
      DECLARE LONG CONSTANT BSA$S_BOOTBLOCK = 512  !  (VS) Boot block image 
      DECLARE LONG CONSTANT BSA$S_BOOTVBN = 4  !  (FA) VBN within file for boot block 
      DECLARE LONG CONSTANT BSA$S_BOOTVBN2 = 4  !  (FA) VBN within file for boot image 
      DECLARE LONG CONSTANT BSA$S_PLACEMENT = 2048  !  (FA) Placement data 
      DECLARE LONG CONSTANT BSA$S_DIR_UIC = 4  !  (FA) UIC of directory 
      DECLARE LONG CONSTANT BSA$S_DIR_FPRO = 2  !  (FA) Protection of directory 
      DECLARE LONG CONSTANT BSA$S_DIR_STATUS = 1  !  (FA) Status of directory 
      DECLARE LONG CONSTANT BSA$S_DIR_VERLIM = 2  !  (FA) Version limit of directory 
      DECLARE LONG CONSTANT BSA$S_VERLIMIT = 2  !  (FA) File version limit 
      DECLARE LONG CONSTANT BSA$S_RETAINMIN = 8  !  (VS) Minimum file retention period 
      DECLARE LONG CONSTANT BSA$S_RETAINMAX = 8  !  (VS) Maximum file retention period 
      DECLARE LONG CONSTANT BSA$S_ACLSEGMENT = 380  !  (FA) ACL segment for the file 
      DECLARE LONG CONSTANT BSA$S_HIGHWATER = 4  !  (FA) Highwater mark
      DECLARE LONG CONSTANT BSA$S_JNL_FLAGS = 1  !  (FA) Journal control flags
      DECLARE LONG CONSTANT BSA$S_CRYPDATKEY = 24  !  (BS) Saveset encryption key
      DECLARE LONG CONSTANT BSA$S_LBNSIZE = 2  !  (PS) Disk block size in bytes
      DECLARE LONG CONSTANT BSA$S_RS_DIRCRE = 4  !  (FA) RSTS directory creation attribute
      DECLARE LONG CONSTANT BSA$S_RS_DIRATTR = 14  !  (FA) RSTS directory attributes
      DECLARE LONG CONSTANT BSA$S_RS_FILECHAR = 12  !  (FA) RSTS specific file attributes
      DECLARE LONG CONSTANT BSA$S_RS_VOLCHAR = 4  !  (VS) RSTS specific volume characteristics
      DECLARE LONG CONSTANT BSA$S_RU_ACTIVE = 1  !  (FA) Active recovery units recoverable facility id (if non-zero)
      DECLARE LONG CONSTANT BSA$S_BACKREV = 2  !  (VS) Backup revision count.
      DECLARE LONG CONSTANT BSA$S_MIN_CLASS = 20  !  (VS) Volume min security class
      DECLARE LONG CONSTANT BSA$S_MAX_CLASS = 20  !  (VS) Volume max security class
      DECLARE LONG CONSTANT BSA$S_CLASS_PROT = 20  !  (FA) File security class
    ! 
    !  Placement data type codes
    ! 
      DECLARE LONG CONSTANT BSA$S_PLC_FID = 6  !  file ID 
      DECLARE LONG CONSTANT BSA$S_PLC_COUNT = 4  !  count of unplaced blocks 
      DECLARE LONG CONSTANT BSA$S_PLC_PLACE = 6  !  placement pointer, count of placed blocks 
      DECLARE LONG CONSTANT BSA$S_PLC_PLLBN = 10  !  placement pointer, count, LBN of placed blocks 
      DECLARE LONG CONSTANT BSA$K_CRYP_DESCBC = 1  !  Code for DES Cypher Block Chaining
      DECLARE LONG CONSTANT BSA$K_CRYP_DESECB = 2  !  Code for DES Electronic Code Book.
      DECLARE LONG CONSTANT BSA$S_BSADEF3 = 24
      record BSADEF3
         BYTE BSA$B_CRYPTYP                 !  Byte code describing saveset encr alg
         STRING BSA$T_CRYPRES0 = 3          !  Unused
         BASIC$QUADWORD BSA$Q_CRYPKEY       !  DES key used to encrypt saveset
         BASIC$QUADWORD BSA$Q_CRYPIV        !  DES initialize vector prototype
         LONG BSA$L_CRYPCKSM                !  Checksum for attribute record
      end record BSADEF3
    
    
    !*** MODULE $BJLDEF ***
    
    
    ! +
    ! 
    !  BACKUP journal file.
    ! 
    ! -
      DECLARE LONG CONSTANT BJL$S_SIZE_LEN = 1  !  length of size
      DECLARE LONG CONSTANT BJL$K_STRUCLEV = 0  !  structure level 
      DECLARE LONG CONSTANT BJL$K_SSNAME = 1  !  save set name 
      DECLARE LONG CONSTANT BJL$K_VOLUME = 2  !  volume identification 
      DECLARE LONG CONSTANT BJL$K_DIRECTORY = 3  !  directory name 
      DECLARE LONG CONSTANT BJL$K_FILE = 4  !  file name 
      DECLARE LONG CONSTANT BJL$S_BJLDEF = 3
      record BJLDEF
         BYTE BJL$B_SIZE                    !  record length (XOR format) 
         BYTE BJL$B_TYPE                    !  record type 
         BYTE BJL$B_DATA                    !  beginning of data portion of record 
    ! 
    !  Following definitions are all relative to data portion of record.
    ! 
    !  Structure level record.
    ! 
      end record BJLDEF
    
      DECLARE LONG CONSTANT BJL$K_LEVEL1 = 257  !  level 1, version 1 
      DECLARE LONG CONSTANT BJL$K_LEVEL2 = 258  !  level 1, version 2
      DECLARE LONG CONSTANT BJL$K_STRUC_LEN = 2  !  length of record 
      DECLARE LONG CONSTANT BJL$C_STRUC_LEN = 2  !  length of record 
    ! 
      DECLARE LONG CONSTANT BJL$S_BJLDEF1 = 2
      record BJLDEF1
         group BJL$r_fill_15
            variant
               case
                  WORD BJL$W_STRUCLEV       !  structure level 
               case
                  group BJL$r_fill_16
                     BYTE BJL$B_STRUCVER    !  structure version number 
                     BYTE BJL$B_STRUCLEV    !  major structure level 
                  end group BJL$r_fill_16
            end variant
         end group BJL$r_fill_15
    !  Save set name record.
    ! 
      end record BJLDEF1
    
      DECLARE LONG CONSTANT BJL$K_SSNAME_LEN = 255  !  maximum length of record 
      DECLARE LONG CONSTANT BJL$C_SSNAME_LEN = 255  !  maximum length of record 
    ! 
      DECLARE LONG CONSTANT BJL$S_BJLDEF2 = 255
      record BJLDEF2
         BASIC$QUADWORD BJL$Q_CREDATE       !  creation date and time 
         STRING BJL$T_SSNAME = 247          !  save set name (variable length) 
    !  Volume identification record.
    ! 
      end record BJLDEF2
    
      DECLARE LONG CONSTANT BJL$K_VOLUME_LEN = 14  !  length of record 
      DECLARE LONG CONSTANT BJL$C_VOLUME_LEN = 14  !  length of record 
    ! 
      DECLARE LONG CONSTANT BJL$S_BJLDEF3 = 14
      record BJLDEF3
         STRING BJL$T_VOLNAME = 12          !  volume label 
         WORD BJL$W_VOLNUMBER               !  volume sequence number 
    !  Directory record.
    ! 
      end record BJLDEF3
    
      DECLARE LONG CONSTANT BJL$K_DIR_LEN = 255  !  maximum length of record 
      DECLARE LONG CONSTANT BJL$C_DIR_LEN = 255  !  maximum length of record 
    !  stored in XOR format
      DECLARE LONG CONSTANT BJL$S_BJLDEF4 = 255
      record BJLDEF4
         STRING BJL$T_DIRNAME = 255         !  directory name (variable length) 
    ! 
    !  File record.  
    ! 
      end record BJLDEF4
    
    !  The following masks define flag bits.  The structure is being defined
    !  in this way because the flags do not have a set position in the record
    !  defined by BJLDEF5 but simply follow directly after the file name.  
    !  By defining the structures in this manner there is a full longword 
    !  reserved but is not position dependant
      DECLARE LONG CONSTANT BJL$M_HEADONLY = x'00000001'
      DECLARE LONG CONSTANT BJL$S_FLAG_BITS = 1
      record FLAG_BITS
          !  NOBACKUP was set when file was saved
         BYTE HEADONLY_bits   ! COMMENT ADDED BY SDL - HEADONLY_bits contains bits HEADONLY through fill_17
      end record FLAG_BITS
    
      DECLARE LONG CONSTANT BJL$K_FILE_LEN = 132  !  maximum length of record 
      DECLARE LONG CONSTANT BJL$C_FILE_LEN = 132  !  maximum length of record 
      DECLARE LONG CONSTANT BJL$S_BJLDEF5 = 132
      record BJLDEF5
         STRING BJL$T_FILENAME = 128        !  file name (variable length) 
         LONG BJL$L_FLAGS                   !  flags
      end record BJLDEF5
    
      DECLARE LONG CONSTANT BCK_DEF_JOURBUFF_SIZE = 512  !  default journal buffer size