John's code is correct. There won't be a value X'10' in OBUFF. Only hex values
00, 01, 02, 04, and 08.
Even this would work:
TR OBUFF,=C'011-1---1'
Bill
On Wed, 12 Dec 2007 22:38:30 -0600, Rick Fochtman wrote:
>Look again at your translate table. What will value X'10" translate to???
>
>Nice try...
>Rick
>--------------------------------------------------------
>John P Baker wrote:
>
>>I have not tested it, but the following code should be the most compact
form of generating a binary character string from a byte value (Problem #6):
>>
>> MVC OBUFF,IBYTE
>> MVC OBUFF+1(7),WORK8
>> NC OBUFF,=X'8040201008040201'
>> MVO WORK5,OBUFF(4)
>> MVC OBUFF(4),WORK5
>> TR OBUFF,=C'011111111'
>>
>>IBYTE DC B'01110101' Sample input value
>>WORK5 DC X'0000000000'
>>OBUFF DS CL8 Output value
>>
>>Summary of storage requirements:
>>
>> 36 Instructions
>> 17 Literals
>> 1 Input Buffer
>> 5 Work Area
>> 8 Output Area
>>
>> 67 Total Bytes
>> 6 Total Instructions
>>
>>John P Baker
>>
----------------------------------------------------------------------
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
