1 /*     BEGIN INCLUDE FILE gcos_xlate_bcd_ascii_.incl.pl1  5/19/76/  RHM     */
 2 
 3 /* Change: Dave Ward          05/20/81 options constant.
 4 */
 5 
 6 dcl  xlate (0: 63) char(1) int static options(constant) init(                   /* bcd to ascii xlation table */
 7 
 8      "0","1","2","3","4","5","6","7","8","9","[","#","@",":",">","?",
 9 
10      " ","a","b","c","d","e","f","g","h","i","&",".","]","(","<","\",
11 
12      "^","j","k","l","m","n","o","p","q","r","-","$","*",")",";","'",
13 
14      "+","/","s","t","u","v","w","x","y","z","_",",","%","=","""","!" );
15 
16 /*     END INCLUDE FILE gcos_xlate_bcd_ascii_.incl.pl1     */