1 /* BEGIN INCLUDE FILE mtape_constants.incl.pl1. Created by J. A. Bush 10/07/82 */
 2 /* format: style4 */
 3 
 4 /* This include file defines various named constants used throughout mtape_
 5    and its associated Per-Format modules */
 6 
 7 /* Storage allocation constants, used to denote what type of storage to allocate */
 8 
 9 dcl  (MTAPE_ALLOC_VS init (1),                              /* to allocate a volume_set structure */
10      MTAPE_ALLOC_LR init (2),                               /* to allocate a label record structure */
11      MTAPE_ALLOC_FI init (3),                               /* to allocate a file_info structure */
12      MTAPE_ALLOC_STR init (4)                               /* to allocate a character string, or undefined block */
13      ) fixed bin int static options (constant);
14 
15 /* Volume density constants */
16 
17 dcl  MTAPE_VALID_DENSITIES (5) init (200, 556, 800, 1600, 6250)
18           fixed bin int static options (constant);
19 
20 /* Device speed constants */
21 
22 dcl  MTAPE_SPEED_VALUES (4) init (0, 75, 125, 200)          /* 0 is any speed device */
23           fixed bin int static options (constant);
24 
25 /* Hardware Mode constants */
26 
27 dcl  (MTAPE_HWM_BIN init (1),                               /* For binary hardware mode */
28      MTAPE_HWM_NINE init (2),                               /* For nine hardware mode */
29      MTAPE_HWM_BCD init (3)                                 /* For BCD hardware mode */
30      ) fixed bin int static options (constant);
31 
32 /* Data conversion constants */
33 
34 dcl  (MTAPE_UNSPECIFIED init (0),                           /* attribute not specified */
35      MTAPE_NO_CONVERSION init (1),                          /* No conversion on input or output */
36      MTAPE_CV_EBCDIC init (2),                              /* Convert to/from EBCDIC (from/to ASCII) */
37      MTAPE_CV_BCD init (3),                                 /* Convert to/from BCD (from/to ASCII) */
38      MTAPE_CV_UC_ASCII init (4),                            /* Convert to Upper case ASCII (from any case ASCII) */
39      MTAPE_CV_UC_EBCDIC init (5)                            /* Convert to Upper case EBCDIC (from any case ASCII) */
40      ) fixed bin int static options (constant);
41 
42 /* File positioning constants */
43 
44 dcl  (NOT_POSITIONED_IN_FILE init (0),                      /* Not currently positioned within this file */
45      AT_BOFH init (1),                                      /* Positioned at beginning of file hdr */
46      AT_EOFH init (2),                                      /* Positioned at end of file hdr */
47      AT_BOFD init (3),                                      /* Positioned at beginning of file data */
48      AT_IFD init (4),                                       /* Positioned in file data, not beginning */
49      AT_EOFD init (5),                                      /* Positioned prior to end of data file */
50      AT_BOFT init (6),                                      /* Positioned at beginning of trailer label file */
51      AT_EOFT init (7),                                      /* Positioned at end of trailer label file */
52      AT_EOF init (8),                                       /* Positioned after trailer labels at EOF */
53      FILES_PER_FILE_GRP init (3)                            /* # of physical files per file (section) group */
54      ) fixed bin int static options (constant);
55 
56 dcl  (BOF_LABEL init (1),                                   /* indicates beginning of file label */
57      EOV_LABEL init (2),                                    /* indicates end of volume label */
58      EOF_LABEL init (3)                                     /* indicates end of file label */
59      ) fixed bin int static options (constant);
60 
61 /* user query constant codes */
62 
63 dcl  (Q_NO_NEXT_VOLUME init (1),
64      Q_LABELED_VOLUME init (2),
65      Q_UNEXPIRED_VOLUME init (3),
66      Q_INCORRECT_VOLUME init (4),
67      Q_UNEXPIRED_FILE init (5),
68      Q_ABORT_FILE init (6)
69      ) fixed bin int static options (constant);
70 
71 /* END INCLUDE FILE mtape_constants.incl.pl1 */