>> Actually I need to generate X'0123AB' from X'F1F2F3C1C2'
Ituriel, As I mentioned DFSORT can do the reverse also //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * F1F2F3C1C2 //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY INREC BUILD=(C'0',01,10,TRAN=UNHEX) /* Thanks, Kolusu DFSORT Development IBM Corporation ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
