On Tue, 22 Feb 2011 12:53:45 -0500 Tony Lubrano <[email protected]> wrote:

:>Another - and maybe better - way to do it:

:>L    Rx,PSATOLD-PSA(,R0)
:>L    Rx,TCBJSTCB-TCB(,Rx)
:>L    Rx,TCBFSA-TCB(,Rx)
:>L    Rx,SA_R1(,Rx)
:>CLC  =CL4'ECP',0(Rx)
:>JE   >>> IMS BMP

Safe, as worst case R1-> Word

:>CLC  =CL6'DFSRRC',20(Rx)
:>JE   >>> IMS MPP

Problematic, as R1 area may be too short.

Thank you.

--
Binyamin Dissen <[email protected]>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

----------------------------------------------------------------------
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

Reply via email to