The only way I could figure out to do it was :
LCLA &I,&J
&J SETA exponent (an EQU)
&I SETA (2 SLA &J-1)
value EQU &IIs there no better way? -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
