1 02/15/82  get_line_length_
 2 
 3 
 4 Function: returns the line length currently in effect on a given I/O
 5 switch.  If the line length is not available (for any reason), a
 6 status code is returned, and a default line length is returned.
 7 
 8 
 9 Entry points in get_line_length_:
10    (List is generated by the help command)
11 
12 
13 :Entry:  stream:  02/08/82 get_line_length_$stream
14 
15 
16 Function:  This entry point returns the line length of a given I/O
17 switch, identified by name.
18 
19 
20 Syntax:
21 declare get_line_length_$stream entry (char(*), fixed bin(35)) returns
22      (fixed bin);
23 line_length = get_line_length_$stream (switch_name, code);
24 
25 
26 Arguments:
27 switch_name
28    is the name of the switch whose line length is desired.  (Input) If
29    switch_name is null, the user_output I/O switch is assumed.
30 code
31    is a standard status code.  (Output)
32 line_length
33    is the line length of switch_name.  (Output)
34 
35 
36 :Entry:  switch:  02/08/82 get_line_length_$switch
37 
38 
39 Function:  This entry point returns the line length of a given I/O
40 switch, identified by pointer.
41 
42 
43 Syntax:
44 declare get_line_length_$switch entry (ptr, fixed bin(35)) returns
45      (fixed bin);
46 line_length = get_line_length_$switch (switch_ptr, code);
47 
48 
49 Arguments:
50 switch_ptr
51    is a pointer to the I/O control block of the switch whose line
52    length is desired.  (Input) If switch_ptr is null, the user_output
53    I/O switch is assumed.
54 code
55    is a standard status code.  (Output)
56 line_length
57    is the line length of switch_name.  (Output)