1 /* BEGIN INCLUDE FILE ... plio2_ps.incl.pl1 */
 2 /* Stream I/O data block used by PL/I I/O runtime routines.
 3 
 4    Modified: 31 January 1978 by RAB to change plio2_data_$fsb_thread to plio2_data_fsb_thread_
 5 */
 6 /* format: style3,idind30 */
 7 
 8 /* based */
 9 
10 declare   1 ps                          aligned based (psp),/* items set NORMALLY by compiled procedures */
11             2 stack_frame_p             ptr,                /* items set in block prologue */
12             2 ST_top_p                  ptr,
13             2 ST_block_p                ptr,
14             2 format_area_p             ptr,
15             2 ss_list_p                 ptr,
16             2 ab_return,                                    /* items set in prep call */
17               3 abret                   (3) ptr,
18             2 source_p                  ptr,                /* addr(fakefsb) for string option,
19                                                                addr(file) for explicit file option */
20             2 special_list_p            ptr,                /* addr(OKlist) for get data, addr(format_list) for edit */
21             2 copy_file_p               ptr,
22             2 job                       aligned,
23               3 explicit_file           bit (1) unal,
24               3 string                  bit (1) unal,
25               3 varying_string          bit (1) unal,
26               3 data                    bit (1) unal,
27               3 edit                    bit (1) unal,
28               3 list                    bit (1) unal,
29               3 get                     bit (1) unal,
30               3 put                     bit (1) unal,
31               3 page                    bit (1) unal,
32               3 line                    bit (1) unal,
33               3 skip                    bit (1) unal,
34               3 copy                    bit (1) unal,
35               3 p1p2                    bit (1) unal,
36               3 bit_string              bit (1) unal,       /* for environment(stringvalue) */
37               3 char_string             bit (1) unal,
38               3 read                    bit (1) unal,
39               3 write                   bit (1) unal,
40               3 rewrite                 bit (1) unal,
41               3 delete                  bit (1) unal,
42               3 locate                  bit (1) unal,
43               3 key                     bit (1) unal,
44               3 keyto                   bit (1) unal,
45               3 keyfrom                 bit (1) unal,
46               3 set                     bit (1) unal,
47               3 into                    bit (1) unal,
48               3 ignore                  bit (1) unal,
49               3 from                    bit (1) unal,
50               3 version                 bit (6) unal,
51               3 not_byte_buffer         bit (1) unal,
52               3 pad1                    bit (1) unal,
53               3 packed_ptr              bit (1) unal,
54             2 number                    fixed bin (15),
55             2 value_p                   ptr,                /* items set NORMALLY by compiled procedures per transmission */
56             2 descriptor                bit (36) aligned,
57             2 length                    fixed bin (15),     /* may be swallowed into descriptor */
58             2 top_half                  bit (18) unal,
59             2 offset                    bit (18) unal,
60             2 prep                      fixed bin (15),     /* items treated ABNORMALLY, written by user and PLIO */
61             2 new_format                fixed bin (15),
62             2 switch                    aligned,            /* items used by PLIO and not touched by compiled procedures */
63               3 first_field             bit (1) unal,
64               3 file                    bit (1) unal,
65               3 transmit_error          bit (1) unal,
66               3 semi_sep                bit (1) unal,
67               3 pad2                    bit (32) unal,
68             2 file_p                    ptr,
69             2 fsbp                      ptr,
70             2 auxp                      ptr,                /* used as addr(ldidata) for GETs */
71             2 fabp                      ptr,
72             2 fab2p                     ptr,
73             2 vp                        ptr,
74             2 descr                     bit (36) aligned,
75             2 start_copy                fixed bin (15),
76             2 quick_stream_storage,
77               3 a_stored                fixed bin (35),
78               3 q_stored                fixed bin (35);
79 
80 /* external static */
81 
82 declare   (
83           plio2_data_$pspstat,
84           plio2_data_$fsbpstat,
85           plio2_data_$badfsbp,
86           plio2_data_$fabpstat,
87           plio2_data_$fab2pstat,
88           plio2_data_$pliostringfsbp
89           )                             ptr external static;
90 
91 dcl       plio2_data_fsb_thread_        ptr ext static initial (null);
92                                                             /* *system var */
93 
94 declare   (
95           plio2_data_$badjob            bit (36) aligned,
96           plio2_data_$undef_file_sw     bit (1) aligned
97           )                             external static;
98 
99 /* END INCLUDE FILE ... plio2_ps.incl.pl1 */