*DECK SETC63
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBF 
USETEXT COMACST 
PROC SETC63;
# TITLE SETC63 - RESET CODE TRANSLATION TABLES FOR 63 CHARACTER SET. #
  
      BEGIN  # SETC63 # 
  
# 
**    PROC SETC63 - RESET CODE TRANSLATION TABLES FOR THE 63 CHARACTER
*                   SET.
* 
*     ENTRY   NONE. 
* 
*     EXIT    ARRAY CSET HAS BEEN RESET FOR THE 63 CHARACTER SET
* 
*     PROCESS RESET COLON TO BE REPRESENTED AS AN OCTAL 63 IN THE 
*             C6 CODE SET AS OPPOSED TO OCTAL 0.  BOTH PERCENT AND
*             COLON WILL TRANSLATE TO C6 COLON--O"63".
* 
**** PROC SETC63 - XREF LIST BEGIN. 
# 
  
# 
**** PROC SETC63 - XREF LIST END. 
# 
  
  
  
                                               CONTROL EJECT; 
      F6TOCN[0] = ZBT63;
      C6TOCN[O"63"] = X"3A";
      CNTOC6[X"3A"] = O"63";
      FNTOC6[X"3A"] = CVT;
      END  # PROC SETC63 #
  
TERM
