1 /* BEGIN INCLUDE FILE ... plio2_psr.incl.pl1 */
 2 /* Record I/O data block used by PL/I I/O runtime routines. */
 3 /* format: style3,idind30 */
 4 
 5 declare   1 psr                         aligned based (psp),
 6             2 pad0                      (5) ptr,            /* items set NORMALLY by compiled procedures */
 7             2 ab_return,                                    /* items set in prep call */
 8               3 abret                   (3) ptr,
 9             2 source_p                  ptr,                /* addr(file) for explicit file option */
10             2 set_p_p                   ptr,
11             2 pad1                      bit (36) aligned,
12             2 variable_bitlen           fixed bin (35),
13             2 job                       aligned,
14               3 explicit_file           bit (1) unal,
15               3 string                  bit (1) unal,
16               3 varying_string          bit (1) unal,
17               3 data                    bit (1) unal,
18               3 edit                    bit (1) unal,
19               3 list                    bit (1) unal,
20               3 get                     bit (1) unal,
21               3 put                     bit (1) unal,
22               3 page                    bit (1) unal,
23               3 line                    bit (1) unal,
24               3 skip                    bit (1) unal,
25               3 copy                    bit (1) unal,
26               3 p1p2                    bit (1) unal,
27               3 bit_string              bit (1) unal,       /* for environment(stringvalue) */
28               3 char_string             bit (1) unal,
29               3 read                    bit (1) unal,
30               3 write                   bit (1) unal,
31               3 rewrite                 bit (1) unal,
32               3 delete                  bit (1) unal,
33               3 locate                  bit (1) unal,
34               3 key                     bit (1) unal,
35               3 keyto                   bit (1) unal,
36               3 keyfrom                 bit (1) unal,
37               3 set                     bit (1) unal,
38               3 into                    bit (1) unal,
39               3 ignore                  bit (1) unal,
40               3 from                    bit (1) unal,
41               3 version                 bit (6) unal,
42               3 not_bytebuffer          bit (1) unal,
43               3 varying_array           bit (1) unal,
44               3 packedptr               bit (1) unal,
45             2 number                    fixed bin (21),
46             2 variable_p                ptr,                /* items set NORMALLY by compiled procedures per transmission */
47             2 pad2                      bit (36) aligned,
48             2 pad3                      bit (36) aligned,
49             2 pad4                      bit (36) aligned,
50             2 locking_switch            bit (36) aligned,   /* items treated ABNORMALLY, written by user and PLIO */
51                                                             /* "prep" for stream I/O */
52             2 new_format                fixed bin (15),     /* for stream I/O only */
53             2 pad5                      bit (36) aligned,   /* items used by PLIO and not touched by compiled procedures */
54             2 file_p                    ptr,
55             2 fsbp                      ptr,
56             2 auxp                      ptr,
57             2 fabp                      ptr,
58             2 fab2p                     ptr,
59             2 pad6                      bit (36) aligned,
60             2 pad7                      bit (36) aligned,
61             2 pad8                      bit (36) aligned,
62             2 pad9                      bit (36) aligned,
63             2 pad10                     bit (36) aligned,
64             2 pl1_ops_flags             aligned,            /* for communication between pl1_operators_ and plio2 */
65               3 keyto_keyset            bit (1) unal,       /* ON after keyto assignment done */
66               3 pad11                   bit (35) unal,
67             2 keytemp                   char (256) varying; /* used for key, keyto, and keyfrom */
68 
69 /* END INCLUDE FILE ... plio2_psr.incl.pl1 */