* * SAMPLE CODE TO TRANSLATE TRUE HEX TO PRINTABLE HEX * AND BACK TO HEX USING ARCHAIC METHODS * * IT IS COMPLEX TO DO LONG STREAMS WITH THIS METHOD * P5MM1 ZMFACC CODE,START,NAME='Melvyn Maltz' * CONVERT BIN TO HEX CHAR UNPK MYCHAR,MYHEX(7) UNPACK HEX STREAM TR MYCHAR,TABLE-240 TRANSLATE TO CHAR FORM * CONVERT HEX CHAR BACK TO BIN MVC WORK,MYCHAR SAVE FOR RECONVERT TR WORK(12),TRANHXCH-X'C1' TRANSLATE TO UNPACKED HEX PACK MYHEX2,WORK PACK BACK TO HEX ZMFACC CODE,END MYHEX DC X'FFA193BC120A' HEX DATA DC X'00' DUMMY BYTE ZMFACC INPUT,START MYCHAR DS XL13 CHAR DATA ZMFACC INPUT,END WORK DS XL13 CHAR DATA ZMFACC OUTPUT,START MYHEX2 DS XL7 BACK TO HEX ZMFACC OUTPUT,END * * C1C2C3C4C5C6 TRANHXCH DC X'0A0B0C0D0E0F000000000000000000' C1-CF DC 32X'00' D0-EF * F0F1F2F3F4F5F6F7F8F9 DC X'00010203040506070809000000000000' F0-FF * TABLE DC C'0123456789ABCDEF' * LTORG * END