M233 Translate Between Different Character Sets

OBSOLETE

Please note that this routine has been obsoleted in CNL 219. Users are advised not to use it any longer and to replace it in older programs. No maintenance for it will take place and it will eventually disappear.
Suggested replacement: None

TRTCH consists of a series of general purpose routines which will translate strings of any length according to the requested translation table. TRTCH is mostly IBM only, however, the translations between ASCII and EBCDIC are also available for VAX.

Structure:

SUBROUTINE subprogram
User Entry Names: TRA0E0, TRC0E0, TRE0A0, TRE0C0, TRE0EL, TRE0EU, TRE0TN, TRE0ZT

Usage:

    CALL TRicoc(array,nlen)

ic

Input character code (see table below).

oc

Output character code (see table below).

array

String of characters to be translated, each character occupying one 8-bit byte.

nlen

Number of characters to be translated.

A0

CERN standard ASCII,

C0

CDC display code, as used at CERN,

E0

CERN standard EBCDIC,

EL

EBCDIC with upper case letters converted to lower case,

EU

EBCDIC with lower case letters converted to upper case,

TN

EBCDIC with blanks for characters not on TN train,

ZT

EBCDIC with dots, '.', for characters not on TN train.

TRA0E0

Standard ASCII to standard EBCDIC.

TRC0E0

CDC display code to standard EBCDIC.

TRE0A0

Standard EBCDIC to standard ASCII.

TRE0C0

Standard EBCDIC to CDC display code.

TRE0EL

Standard EBCDIC to lower case only EBCDIC.

TRE0EU

Standard EBCDIC to upper case only EBCDIC.

TRE0TN

Standard EBCDIC to TN train EBCDIC.

TRE0ZT

Standard EBCDIC to TN train EBCDIC with '.'--fill.

Notes:

The TN train is the print train used by the IBM impact printer. It contains upper and lower case characters and a few unusual special characters such as boxes and numeric superscripts.
$•$

M400