PLITRAN12

PLITRAN12 translates one-byte data from a source buffer to two-byte data in a target buffer.

p: Address of the target buffer.
q: Address of the source buffer.
n: Length of the source buffer. The buffer length must be nonnegative and must have a computational type. The buffer length is converted to type size_t.¹
t: Address of the 512-byte translate table.

The target buffer must be at least twice as large as the source buffer.

The translate table must be aligned on a doubleword boundary. The easiest way to force this alignment is to add the attribute ALIGNED(8) to the declare of the table.

On z/OS, PLITRAN12 is implemented via inline code using the CU12 instruction.

Example:

This table can be used to quickly transform a buffer to lower-case hex:

           dcl
             1 lowerhex(16) static nonasgn aligned(8)
                            char(32) init (
                         /*   0 1 2 3 4 5 6 7 8 9 a b c d e f   */
                            '000102030405060708090a0b0c0d0e0f',
                            '101112131415161718191a1b1c1d1e1f',
                            '202122232425262728292a2b2c2d2e2f',
                            '303132333435363738393a3b3c3d3e3f',
                            '404142434445464748494a4b4c4d4e4f',
                            '505152535455565758595a5b5c5d5e5f',
                            '606162636465666768696a6b6c6d6e6f',
                            '707172737475767778797a7b7c7d7e7f',
                            '808182838485868788898a8b8c8d8e8f',
                            '909192939495969798999a9b9c9d9e9f',
                            'a0a1a2a3a4a5a6a7a8a9aaabacadaeaf',
                            'b0b1b2b3b4b5b6b7b8b9babbbcbdbebf',
                            'c0c1c2c3c4c5c6c7c8c9cacbcccdcecf',
                            'd0d1d2d3d4d5d6d7d8d9dadbdcdddedf',
                            'e0e1e2e3e4e5e6e7e8e9eaebecedeeef',
                            'f0f1f2f3f4f5f6f7f8f9fafbfcfdfeff'  );

           call plitran12( p, q, n, addr(lowerhex) );