ReadXlateTable

The procedure shown in Figure 1 reads the binary translation table data set specified by TableName, and fills in the AtoETable and EtoATable translation tables.

Figure 1. ReadXlateTable example

   procedure ReadXlateTable
            (
        var    TableName: DirectoryNameType;
        var    AtoETable: AtoEType;
        var    EtoATable: EtoAType;
        var    TranslateTableSpec: SpecOfFileType;
        var    ReturnCode: integer
            );
            external;

Parameter

Description

TableName

The name of the translate table. ReadXlateTable tries to read user_id.TableName.TCPXLBIN. If that data set exists but it has an incorrect format, ReadXlateTable returns with a ReturnCode FILEformatINVALID. If user_id.TableName.TCPXLBIN does not exist, ReadXlateTable tries to read hlq.TableName.TCPXLBIN. ReturnCode reflects the status of reading that data set.

AtoETable

Filled with ASCII-to-EBCDIC table if return code is OK.

EtoATable

Filled with EBCDIC-to-ASCII table if return code is OK.

TranslateTableSpec

If ReturnCode is OK, TranslateTableSpec contains the complete specification of the data set that ReadXlateTable used. If ReturnCode is not OK, TranslateTableSpec contains the complete specification of the last data set that ReadXlateTable tried to use.

ReturnCode

Indicates success or failure of a call. Possible return values are:

OK
ERRORopeningORreadingFILE
FILEformatINVALID