Yes, seems the $DEST kind of destroyed my registers and it was actually the RETURN failing.. Old code did not do a SAVE at beginning.. Once I added that, it started working thank goodness! I think we have probably been lucky that it hasn't had a problem before I touched it.
Thanks you for all the patience and kindness! Anne D. Crabtree System Programmer WV Office of Technology Data Center 1900 Kanawha Blvd East Bldg 6, Room B-110 Charleston, WV 25305 (304)558-5914 ext 58292 (304)558-1441 fax -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Gerhard Postpischil Sent: Wednesday, February 27, 2013 1:37 PM To: [email protected] Subject: Re: JES exit 6 On 2/27/2013 12:58 PM, Crabtree, Anne D wrote: > Here's what I get: > > 0000FC 5110 B698 00698 20546 $DEST > DEST=$WORK16,LEN=L'$WORK16,CONV=SBINARY > 000136 4160 B698 00698 20599 LA R6,$WORK16 > 00013A D503 C210 6000 00260 00000 20600 CLC =CL4'VPRT',0(R6) > > Dump shows: > Registers 0-7 > GR: 00000000 000004D2 9855D2D2 185A8810 00000000 105A81FC 00007698 > 00000001 > AR: 00000000 00000000 00000000 00000000 00000000 00000000 00000000 > 00000000 Registers 8-15 > GR: 000B42B0 185A8869 1807B000 00007000 185F4D88 7F50F6A4 185F4E64 > 00000000 > AR: 00000000 00000000 00000000 00000000 00000000 00000000 00000000 > 00000000 Note that the assembled CLC uses register 12, which has an instruction in it. About half the registers look questionable. Some macros have special restrictions, and may require registers to be saved; I don't know whether the $DEST is responsible, or something earlier. Gerhard Postpischil Bradford, Vermont ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
