*DECK CSASCII 
          IDENT  CSASCII
*CALL COPYRITE
          ENTRY  CSASCII
          SYSCOM B1 
          TITLE  CSASCII - CHANGE CHARACTER SET TO ASCII. 
          COMMENT CSASCII - CHANGE CHARACTER SET TO ASCII.
          SPACE  4,10 
***       CSASCII - CHANGE CHARACTER SET TO ASCII.
* 
*         CALL CSASCII
* 
*         CSASCII;            *SYMPL* CALL. 
* 
*         ENTRY 
  
  
 CSASCII  SUBR               ENTRY/EXIT 
          SB1    1
          CSET   ASCII       CHANGE CURRENT CHARACTER SET 
          EQ     CSASCIIX    RETURN 
  
          END 
