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