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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
