1 02/13/84  ascii_to_ebcdic_
 2 
 3 The ascii_to_ebcdic_ subroutine performs isomorphic (one-to-one
 4 reversible) conversion from ASCII to EBCDIC.  The input data is a
 5 string of valid ASCII characters.  A valid ASCII character is defined
 6 as a 9-bit byte with an octal value in the range
 7 0 <= octal_value <= 177.
 8 
 9 Calling ascii_to_ebcdic_ is as efficient as using the PL/I translate
10 builtin, since conversion is performed by a single MVT instruction and
11 the procedure runs in the stack frame of its caller.
12 
13 
14 Entry points in ascii_to_ebcdic_:
15    (List is generated by the help command)
16 
17 
18 :Entry: ascii_to_ebcdic_: 02/13/84  ascii_to_ebcdic_
19 
20 
21 Function: This entry point accepts an ASCII character string and
22 generates an EBCDIC character string of equal length.
23 
24 
25 Syntax:
26 declare ascii_to_ebcdic_ entry (char(*), char(*));
27 call ascii_to_ebcdic_ (ascii_in, ebcdic_out);
28 
29 
30 Arguments:
31 ascii_in
32    is a string of ASCII characters to be converted.  (Input)
33 ebcdic_out
34    is the EBCDIC equivalent of the input string.  (Output)
35 
36 
37 :Entry:  ae_table:  02/13/84 ascii_to_ebcdic_$ae_table
38 
39 
40 Function:  This entry point defines the 128-character translation table
41 used to perform conversion from ASCII to EBCDIC.  The mappings
42 implemented by the ascii_to_ebcdic_ and ebcdic_to_ascii_ subroutines
43 are isomorphic; i.e., every valid character has a unique mapping, and
44 mappings are reversible.  (See the ebcdic_to_ascii_ subroutine.)  The
45 result of an attempt to convert a character that is not in the ASCII
46 character set is undefined.
47 
48 
49 Syntax:
50 declare ascii_to_ebcdic_$ae_table char(128) external static;
51 
52 
53 Notes:  Refer to the Subroutines manual for the isomorphic
54 ascii/ebcdic conversion table.