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 And at 0007698: 00007690 8000707B 00000000 E5D7D9E3 F1F2F3F4 | ...#....VPRT1234 | 000076A0 40404040 40404040 2040B010 0000001C | . ...... | 000076B0 00CAFC8B 652CB2E0 32000000 01010001 | .......\........ | 000076C0 00000000 00000000 80000000 00000000 | ................ | 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:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Skip Robinson Sent: Wednesday, February 27, 2013 12:03 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JES exit 6 I wondered briefly along the same lines, so I got off my duff and assembled the instruction myself: 000006 D503 C018 6000 00018 00000 9 CLC =CL4'VPRT',0(R6) ... 000018 E5D7D9E3 35 =CL4'VPRT' '03' indicates the correct length on the CLC. 'C018' indicates correct base register/offset. I see no reason for S0C4. Please compare this snippet with the original assembly. . . JO.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: "Sambataro, Anthony (NIH/NBS) [E]" <anthony.sambat...@nih.gov> To: IBM-MAIN@LISTSERV.UA.EDU, Date: 02/27/2013 08:41 AM Subject: Re: JES exit 6 Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> Have you tried: CLC 0(4,R6), =C'VPRT' -----Original Message----- From: Crabtree, Anne D [mailto:anne.d.crabt...@wv.gov] Sent: Wednesday, February 27, 2013 11:20 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JES exit 6 Thanks! I've gotten to the point I know what is going on (thanks to a lot of help from people!) In our JES2 parmlib on production, I have statements like this: DESTID(VPRT1234) DEST=U1234 Therefore, the JCTPRRID contains x'40's for this particular destination. However, the JCTPROUT has the hex representation and I'm trying to use $DEST to convert it back to a symbolic. So, far that works but now I'm stuck on how to compare that symbolic to the character string 'VPRT'. This command: CLC =CL4'VPRT',0(R6) Gets a S0C4. I see the string 'VPRT' at the address in R6 but evidently I can't compare them this way. Anyway, that's where I am so far on this problem. 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:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Greg Dorner Sent: Wednesday, February 27, 2013 10:43 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JES exit 6 I turn on the trace like this: $S TRACE(13) $T EXIT(6),TRACE=YES $T TRACEDEF,ACTIVE=YES,LOG=(CLASS=L,START=YES) ** (class L where you want the trace output ** Then turn it off: $T TRACEDEF,SPIN $T TRACEDEF,ACTIVE=NO,LOG=(START=NO) $T EXIT(6),TRACE=NO $P TRACE(13) The trace can reveal a lot about the CI text. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
