1 /*  BEGIN:   backup_record_types.incl.pl1                     *  *  *  *  *  */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(87-01-05,GDixon), approve(87-04-15,MCR7617),
 6      audit(87-06-22,RBarstad), install(87-07-15,MR12.1-1040):
 7      Converted internal static variables to named constants.  Renamed
 8      record_type array to RECORD_TYPE, to avoid naming conflict with
 9      backup_preamble_header.incl.pl1's h.record_type variable.
10                                                    END HISTORY COMMENTS */
11 
12 
13 /* Created June 1970, R H Campbell. */
14 /* Modified 1/16/73 by N. I. Morris     */
15 /* Modified 7/17/75 by R. Bratt */
16 /* Modified 11/04/83 by G. Dixon - better comments */
17 
18 dcl  ndc_segment fixed binary int static options(constant) initial (1);
19                                                             /* Record of segment with NDC attributes */
20 dcl  ndc_directory fixed binary int static options(constant) initial (2);
21                                                             /* Record of directory with NDC attributes */
22 dcl  ndc_directory_list fixed binary int static options(constant) initial (3);
23                                                             /* Record of directory list with initial ACL */
24 dcl  sec_seg fixed binary int static options(constant) initial(19);
25                                                             /* Seg with security & call_limiter */
26 dcl  sec_dir fixed binary int static options(constant) initial(20);
27                                                             /* Dir with security & call_limiter */
28 
29 dcl  RECORD_TYPE (0: 20) character (10) aligned             /* Name of the record types. */
30      int static options(constant)
31      initial (*, "NDC seg", "NDC dir", "NDC dirlst", *, *, *, *,
32               *, *, *, *, *, *, *, *,
33               *, *, *, "SEG", "DIR");
34 
35 /* The following is an excerpt from a backup map showing the relationship
36    between entries in the backup map and the named constants given above.
37    I don't know under what conditions the ndc_seg and ndc_dir named constants
38    are ever used.  (G. Dixon)
39 
40                                       Map Excerpt
41                      ---------------------------------------------
42 Named Constant       ENTRY NAME                   BLOCKS REC_TYPE
43 
44 sec_dir              >library_dir_dir>system_library_unbundled
45                       object                           0 directory
46                                o
47 sec_dir               source                           0 directory
48                                s
49 
50 ndc_directory_list   >library_dir_dir>system_library_unbundled>object
51                                                        0 directory
52 sec_seg               bound_gcos_tss_.1.archive      104 segment
53 
54 
55 ndc_directory_list   >library_dir_dir>system_library_unbundled>source
56                                                        0 directory
57 sec_seg               bound_gcos_tss_.1.s.archive    134 segment
58 
59 
60                                                                       */
61 
62 
63 /*  END OF:  backup_record_types.incl.pl1                     *  *  *  *  *  */