Assembly NI (AND) operation in SORT

kratos86 · Posted: Fri Sep 28, 2012 1:59 pm

Is there a way to do Assembly level AND operation in SORT

I have the below piece which executes TM and NI instruction

Bill Woodger · Posted: Fri Sep 28, 2012 2:59 pm

As a "quickie" you can define as binary, divide by 16 then multiply by 16.

Skolusu · Posted: Fri Sep 28, 2012 11:43 pm

kratos86,

As bill mentioned you can divide and multiply by 16 treating it as a BI.

Use the following

Skolusu · Posted: Tue Oct 02, 2012 10:12 pm

Alternatively you can use the TRAN=BIT and TRAN=UNBIT parms to get the desired results

Assuming LRECL=80 and RECFM=FB. we first convert the byte at position 9 to bits in position 81 and then replace the end portion with zeros and then use UNBIT to put it back at position 9.

Bill Woodger · Posted: Wed Oct 03, 2012 1:03 pm

Another variant. Uses a hex constant (X'...') on SYMNAMES for the '0C' value (since it will be used in two places).

The constant is appended to the end of the record, then a SUBtract, with both fields specified as BInary. May be useful where a bit pattern exists, but where other bits are required to retain their value, zero or non-zero (1).

kratos86 · Posted: Wed Oct 03, 2012 2:32 pm

Thank you Bill and Kolusu...