1 /* BEGIN INCLUDE FILE mtape_dcls.incl.pl1. Created by J. A. Bush 04/20/83 */
 2 /* format: style4 */
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(00-01-26,Schroth), approve(00-01-26,MECR-Y2K):
 6      Add declaration of pfm_utils_$label_unexpired for label date expiry checks
 7                                                    END HISTORY COMMENTS */
 8 
 9 /* Usage: call mtape_$alloc (mtdp, type, link_tail, length, alloc_ptr); */
10 dcl  mtape_$alloc entry (ptr, fixed bin, ptr, fixed bin (21), ptr);
11 
12 /* Usage: call mtape_$allocate_buffers (mtdp, block_size, code); */
13 dcl  mtape_$allocate_buffers entry (ptr, fixed bin (21), fixed bin (35));
14 
15 /* Usage: call mtape_$demount (mtdp, code);
16 dcl  mtape_$demount entry (ptr, fixed bin (35));
17 
18 /* Usage: call mtape_$error (mtdp, code, ioa_cntl_string, arguments); */
19 dcl  mtape_$error entry options (variable);
20 
21 /* Usage: call mtape_$flush_buffers (mtdp, code); */
22 dcl  mtape_$flush_buffers entry (ptr, fixed bin (35));
23 
24 /* Usage: call mtape_$mount (mtdp, code);
25 dcl  mtape_$mount entry (ptr, fixed bin (35));
26 /* Usage: call mtape_$order (mtdp, mnemonic, repeat_count, info_ptr, code); */
27 dcl  mtape_$order entry (ptr, char (*), fixed bin, ptr, fixed bin (35));
28 
29 /* Usage: call mtape_$read_block (mtdp, code); */
30 dcl  mtape_$read_block entry (ptr, fixed bin (35));
31 
32 /* Usage: call mtape_$read_label (mtdp, lr_ptr, code); */
33 dcl  mtape_$read_label entry (ptr, ptr, fixed bin (35));
34 
35 /* Usage: call mtape_$set_mode (mtdp, mode, mode_index, mode_ptr, code); */
36 dcl  mtape_$set_mode entry (ptr, char (*), fixed bin, ptr, fixed bin (35));
37 
38 /* Usage: call mtape_$stop_tape (mtdp, code); */
39 dcl  mtape_$stop_tape entry (ptr, fixed bin (35));
40 
41 /* Usage: call mtape_$user_query (mtdp, query_code, code); */
42 dcl  mtape_$user_query entry (ptr, fixed bin, fixed bin (35));
43 
44 /* Usage: call mtape_$volume_switch (mtdp, new_vs_ptr, code); */
45 dcl  mtape_$volume_switch entry (ptr, ptr, fixed bin (35));
46 
47 /* Usage: call mtape_$write_block (mtdp, code); */
48 dcl  mtape_$write_block entry (ptr, fixed bin (35));
49 
50 /* Usage: call mtape_$write_label (mtdp, lr_ptr, code); */
51 dcl  mtape_$write_label entry (ptr, ptr, fixed bin (35));
52 
53 /* Usage: call pfm_utils_$file_search (mtdp, fi_ptr, vs_ptr, code); */
54 dcl  pfm_utils_$file_search entry (ptr, ptr, ptr, fixed bin (35));
55 
56 /* Usage: call pfm_utils_$init_label_record (mtdp, link_tail, link_head, lr_ptr, length); */
57 dcl  pfm_utils_$init_label_record entry (ptr, ptr, ptr, ptr, fixed bin (21));
58 
59 /* Usage: bool_unexpired = pfm_utils_$label_unexpired (label_date_string); */
60 dcl  pfm_utils_$label_unexpired entry (char (*)) returns (bit (1) aligned);
61 
62 /* Usage: blk_yyddd = pfm_utils_$julian_date (date_time_string); */
63 dcl  pfm_utils_$julian_date entry (char (*)) returns (char (6));
64 
65 /* Usage: call pfm_utils_$position_in_file (mtdp, fi_ptr, vs_ptr, position_constant, code); */
66 dcl  pfm_utils_$position_in_file entry (ptr, ptr, ptr, fixed bin, fixed bin (35));
67 
68 /* Usage: call pfm_utils_$read_file_labels (mtdp, fi_ptr, vs_ptr, label_type, code); */
69 dcl  pfm_utils_$read_file_labels entry (ptr, ptr, ptr, fixed bin, fixed bin (35));
70 
71 /* Usage: call pfm_utils_$setup_file (mtdp, fi_ptr, new_section); */
72 dcl  pfm_utils_$setup_file entry (ptr, ptr, bit (1) aligned);
73 
74 /* Usage: call pfm_utils_$truncate_file_set (mtdp); */
75 dcl  pfm_utils_$truncate_file_set entry (ptr);
76 
77 /* Usage: call pfm_utils_$write_file_labels (mtdp, label_type, code); */
78 dcl  pfm_utils_$write_file_labels entry (ptr, fixed bin, fixed bin (35));
79 
80 /* END INCLUDE FILE mtape_dcls.incl.pl1 */
81 
82 
83