L r01,psaaold-psa
L r01,ascbassb-assb(,r01)
L r01,assbjsab-iazjsab(,r01) Regards, Pierre. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
