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
