Actually, it will be exactly what it should be, if my desk checking is correct.
Step by step: Contents of IBYTE = X'10' After: MVC OBUFF(1),IBYTE (Note the correction "(1)") Contents of OBUFF = X'10xxxxxxxxxxxxxx' After: MVC OBUFF+1(7),OBUFF Contents of OBUFF = X'1010101010101010' After: NC OBUFF,=X'8040201008040201' Contents of OBUFF = X'0000001000000000' After: MVO WORK5,OBUFF(4) Contents of WORK5 = X'0000000100' After: MVC OBUFF(4),WORK5 Contents of OBUFF = X'0000000100000000' After: TR OBUFF,=C'011111111' Contents of OBUFF = C'00010000' Looks to be correct as far as I can tell. Also, I would note that the translate table could be changed to C'011-1---1', since the values 3, 5, 6, and 7 will never appear. John P Baker Rick Fochtman wrote: Look again at your translate table. What will value X'10" translate to??? Nice try... Rick ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html