1 03/31/83  requote_string_
 2 
 3 
 4 Entry points in requote_string_:
 5    (List is generated by the help command)
 6 
 7 
 8 :Entry:  requote_string_:  02/09/83  requote_string_
 9 
10 
11 Function: doubles all quotes within a character string and returns the
12 result enclosed in quotes.
13 
14 
15 Syntax:
16 declare requote_string_ entry (char(*)) returns(char(*));
17 requoted_string = requote_string_ (string);
18 
19 
20 Arguments:
21 string
22    is the string to be requoted.  (Input)
23 requoted_string
24    is the string with all quotes doubled and enclosed in quotes.
25    (Output)
26 
27 
28 EXAMPLES
29         """a""" = requote_string_ ("a")
30 
31         """a""""b""" = requote_string_ ("a""b")
32