1 /*----------BEGIN l6_tran_constants.incl.pl1---------------------------------*/
 2 
 3 dcl  SEND_TU_SIZE                    fixed bin (21) internal static options (constant) init (119);
 4 dcl  RECV_TU_SIZE                    fixed bin (21) internal static options (constant) init (1000);
 5 
 6 dcl  CR                              char (1) internal static options (constant) init ("^M");
 7                                                             /* A carrige return. */
 8 dcl  SP                              char (1) internal static options (constant) init (" ");
 9                                                             /* A space. */
10 dcl  HT                              char (1) internal static options (constant) init ("  ");
11                                                             /* A horizontal tab. */
12 
13 dcl  ASCII                           fixed bin internal static options (constant) init (1);
14 dcl  BINARY                          fixed bin internal static options (constant) init (2);
15 dcl  BCD                             fixed bin internal static options (constant) init (3);
16 
17 dcl  CHASE                           fixed bin (1) internal static options (constant) init (1);
18 
19 dcl  UNSTRUCTURED_FILE_TYPE          fixed bin internal static options (constant) init (1);
20 dcl  SEQUENTIAL_FILE_TYPE            fixed bin internal static options (constant) init (2);
21 dcl  BLOCKED_FILE_TYPE               fixed bin internal static options (constant) init (3);
22 dcl  INDEXED_FILE_TYPE               fixed bin internal static options (constant) init (4);
23 dcl  VARIABLE_FILE_TYPE              fixed bin internal static options (constant) init (5);
24 
25 dcl  L6_S_FILE_TYPE                  fixed bin internal static options (constant) init (1);
26 dcl  L6_D_FILE_TYPE                  fixed bin internal static options (constant) init (2);
27 dcl  L6_R_FILE_TYPE                  fixed bin internal static options (constant) init (3);
28 dcl  L6_F_FILE_TYPE                  fixed bin internal static options (constant) init (4);
29 
30 dcl  L6_FILE_TYPE                    (4) char (1) internal static options (constant) init ("S", "D", "R", "F");
31 dcl  L6_DATA_TYPE                    (3) char (1) internal static options (constant) init ("A", "8", "B");
32 
33 dcl  FILE_TYPE_TO_PNAME              (5) char (12) internal static options (constant)
34                                      init ("unstructured", "sequential", "blocked", "indexed", "variable");
35 
36 dcl  MULTICS_L6_FILE_SUFFIX          (4) char (3) internal static options (constant) init ("", "l6d", "l6r", "l6f");
37 
38 dcl  USAGE                           char (256) internal static options (constant)
39                                      init (
40                                      "Usage: nr l6_ftf <from_file> <to_file> {<control_args>}, where <*_file> is: {-nm} <file_path> {-at <address>}"
41                                      );
42 
43 /*----------END l6_tran_constants.incl.pl1-----------------------------------*/