1 09/30/83  ascii_to_bcd_
 2 
 3 
 4 Entry points in ascii_to_bcd_:
 5    (list is generated by the help command)
 6 
 7 
 8 :Entry:  ascii_to_bcd_:  09/30/83 ascii_to_bcd_
 9 
10 
11 Function:  performs isomorphic conversion from ASCII to BCD.
12 
13 
14 Syntax:
15 dcl ascii_to_bcd_ entry (char(*), bit(*));
16 call ascii_to_bcd_ (ascii_in, bcd_out);
17 
18 
19 Arguments:
20 ascii_in
21    is the ascii input characters to convert to BCD. (Input)
22 bcd_out
23    is the BCD equivalent of the input string.  Note that both upper
24    and lower case ASCII characters are converted to the single case
25    BCD characters.  ASCII characters that do not have a match in BCD
26    will be converted to a question mark (?). For more information see
27    "Notes" below. (Output)
28 
29 
30 Notes:  The ASCII question mark (?) and any ASCII characters (other
31 than lowercase letters) will be mapped into a BCD question mark (?).
32 Lowercase letters will be mapped into the equivalent uppercase letter.
33 The valid BCD characters are as follows:
34 
35 0123456789[@:?ABCDEFGHI&.](<\^JKLMNOPQR-$*);'+/STUVWXYZ_,%=!#<space>