Re: z/OS Control block question
The tcb-tiot chain has worked well for a long time but GETDSAB may provide a longer term solution for new code if the OP is only trying to access the current TIOT for the job step they are running under (see XTIOT). http://publib.boulder.ibm.com/infocenter/zos/v1r11/index.jsp?topic=/com.ibm.zos.r11.ieaa200/iea2a2a0290.htm ...chris. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Walt Farrell Sent: Monday, October 24, 2011 10:22 AM To: IBM-MAIN@bama.ua.edu Subject: Re: z/OS Control block question On Mon, 24 Oct 2011 10:03:58 -0500, Wayne Driscoll wdri...@us.ibm.com wrote: Walt, Thanks, I missed an important qualifier what I should have said was all non-job step TCB's under a given JSTCB will point to the same TIOT. No, that still doesn't work, Wayne, as it still has that ambiguous ues of under. I think you really do need to say 'with the same TCBJSTCB rather than under a given JSTCB. Consider, for example, the case where you have // EXEC PGM=A where A, running authorized, attaches B and C both as jobstep TCBs, and with separate TIOTs. B then attaches non-jobstep TCBs B1 and B2, which share B's TIOT. C attaches non-jobstep TCBs C1 and C2, which share C's TIOT. In the sense of subtasking, all of B1, B2, C1, and C2 are under A, but none share A's TIOT. -- Walt -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
On Sat, 22 Oct 2011 19:29:11 -0500, Wayne Driscoll wdri...@us.ibm.com wrote: Please explain how all TCB's under a given JSTCB will point to the same TIOT is incorrect, but every TCB with the same TCBJSTCB will normally have the same TIOT is true, when the two statements make the same point? I -think- he's using a different definition of under than you are, Wayne. For example, the Region Control Task (RCT) is a jobstep task, and under it (subtask) is the initiator (also, iirc, a jobstep task), and under the initiator (subtask) is the user's jobstep task. -- Walt -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
Actually, no. There are 3 requirements for using JSCTB=YES on an attach macro, the first is that you have to be authorized, the second is that you have to have NO subtasks that have been attached without JSTCB=YES specified and the third is that you must be a JOB STEP TCB. Also,once you have a JSTCB=YES subtask running you cannot attach any subtasks with JSTCB=NO specified. Look at the return codes from ATTACH in the Authorized Services Reference, in particular RC=14 and RC=18 for more details.. === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Micheal Butz michealb...@optonline.net To: IBM-MAIN@bama.ua.edu Date: 10/23/2011 12:04 AM Subject: Re: z/OS Control block question Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Cann't a Authorized program do a ATTACH JSTCB=YES anytime -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Wayne Driscoll Sent: Saturday, October 22, 2011 8:29 PM To: IBM-MAIN@bama.ua.edu Subject: Re: z/OS Control block question Please explain how all TCB's under a given JSTCB will point to the same TIOT is incorrect, but every TCB with the same TCBJSTCB will normally have the same TIOT is true, when the two statements make the same point? === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net To: IBM-MAIN@bama.ua.edu Date: 10/22/2011 06:28 PM Subject: Re: z/OS Control block question Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu In of23f0c2c5.ab17dd83-on8625792f.0052d8f0-8625792f.0052e...@us.ibm.com, on 10/20/2011 at 10:05 AM, Wayne Driscoll wdri...@us.ibm.com said: but all TCB's under a given JSTCB will point to the same TIOT. Actually not. There will generally be more than one JSTCB. What is true is that every TCB with the same TCBJSTCB will normally[1] have the same TIOT. [1] I'm not aware of any exceptions. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
Walt, Thanks, I missed an important qualifier what I should have said was all non-job step TCB's under a given JSTCB will point to the same TIOT. === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Walter Farrell/Poughkeepsie/IBM@IBMUS To: IBM-MAIN@bama.ua.edu Date: 10/24/2011 08:23 AM Subject: Re: z/OS Control block question Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu On Sat, 22 Oct 2011 19:29:11 -0500, Wayne Driscoll wdri...@us.ibm.com wrote: Please explain how all TCB's under a given JSTCB will point to the same TIOT is incorrect, but every TCB with the same TCBJSTCB will normally have the same TIOT is true, when the two statements make the same point? I -think- he's using a different definition of under than you are, Wayne. For example, the Region Control Task (RCT) is a jobstep task, and under it (subtask) is the initiator (also, iirc, a jobstep task), and under the initiator (subtask) is the user's jobstep task. -- Walt -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
On Mon, 24 Oct 2011 10:03:58 -0500, Wayne Driscoll wdri...@us.ibm.com wrote: Walt, Thanks, I missed an important qualifier what I should have said was all non-job step TCB's under a given JSTCB will point to the same TIOT. No, that still doesn't work, Wayne, as it still has that ambiguous ues of under. I think you really do need to say 'with the same TCBJSTCB rather than under a given JSTCB. Consider, for example, the case where you have // EXEC PGM=A where A, running authorized, attaches B and C both as jobstep TCBs, and with separate TIOTs. B then attaches non-jobstep TCBs B1 and B2, which share B's TIOT. C attaches non-jobstep TCBs C1 and C2, which share C's TIOT. In the sense of subtasking, all of B1, B2, C1, and C2 are under A, but none share A's TIOT. -- Walt -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
In of5be197b2.1ea188a2-on86257933.00517983-86257933.00524...@us.ibm.com, on 10/24/2011 at 09:58 AM, Wayne Driscoll wdri...@us.ibm.com said: Actually, no. There are 3 requirements for using JSCTB=YES on an attach macro, the first is that you have to be authorized, Are you sure that the requirement is just APF rather than PSW State? I vaguely recall a requirement for Supervisor. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
In ofc492b912.f5b62f41-on86257932.00027c1b-86257932.0002a...@us.ibm.com, on 10/22/2011 at 07:29 PM, Wayne Driscoll wdri...@us.ibm.com said: Please explain how all TCB's under a given JSTCB will point to the same TIOT is incorrect, but every TCB with the same TCBJSTCB will normally have the same TIOT is true, when the two statements make the same point? Your question contains an assumption contrary to fact. The two statements do *NOT* make the same point. Reread my response. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
In 036001cc913f$1932d270$4b987750$@net, on 10/23/2011 at 12:49 AM, Micheal Butz michealb...@optonline.net said: Cann't a Authorized program do a ATTACH JSTCB=YES Il va sans dire. Not only can but do. In fact, the e-mail that Wayne responded to mentioned that there could be more than one JSTCB. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
In p06240800cac5472d0e58@[192.168.1.11], on 10/19/2011 at 11:39 PM, Robert A. Rosenberg hal9...@panix.com said: RDJFCB is only usable if you are the job you are enquiring about. If you are not, then you need to schedule your code to run in the other address space, at which point it has the access it needs. If you are another job (such as the aforementioned checking on a STC from some other task, I don't believe that the OP mentioned doing it from another address space. I'd probably schedule an IRB rather than an SRB and use RDJFCB. Or would that have SYSZTIOT issues? -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
In 1319130809.82374.yahoomail...@web65505.mail.ac4.yahoo.com, on 10/20/2011 at 10:13 AM, Scott Ford scott_j_f...@yahoo.com said: There are about 6 ways to skin the cat on any system writting code. Yes some work better than others, The issue is not whether it will work better, but whether it will work at all on someone else's system. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
In of801c83a7.13489988-on8625792f.003ee13e-8625792f.003f3...@us.ibm.com, on 10/20/2011 at 06:30 AM, Wayne Driscoll wdri...@us.ibm.com said: Your program also assumes that the routine is running under an RB in the Job Step Task. In a multi-tasking application (for instance under TSO/E) that will not be the case. In that case, you will need to add a L 4,TCBJSTCB Get Jobstep Task After the L 4,PSATOLD Why? ATTACH normally propogates TCBTIO. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
In of23f0c2c5.ab17dd83-on8625792f.0052d8f0-8625792f.0052e...@us.ibm.com, on 10/20/2011 at 10:05 AM, Wayne Driscoll wdri...@us.ibm.com said: but all TCB's under a given JSTCB will point to the same TIOT. Actually not. There will generally be more than one JSTCB. What is true is that every TCB with the same TCBJSTCB will normally[1] have the same TIOT. [1] I'm not aware of any exceptions. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
Please explain how all TCB's under a given JSTCB will point to the same TIOT is incorrect, but every TCB with the same TCBJSTCB will normally have the same TIOT is true, when the two statements make the same point? === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net To: IBM-MAIN@bama.ua.edu Date: 10/22/2011 06:28 PM Subject: Re: z/OS Control block question Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu In of23f0c2c5.ab17dd83-on8625792f.0052d8f0-8625792f.0052e...@us.ibm.com, on 10/20/2011 at 10:05 AM, Wayne Driscoll wdri...@us.ibm.com said: but all TCB's under a given JSTCB will point to the same TIOT. Actually not. There will generally be more than one JSTCB. What is true is that every TCB with the same TCBJSTCB will normally[1] have the same TIOT. [1] I'm not aware of any exceptions. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
Cann't a Authorized program do a ATTACH JSTCB=YES anytime -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Wayne Driscoll Sent: Saturday, October 22, 2011 8:29 PM To: IBM-MAIN@bama.ua.edu Subject: Re: z/OS Control block question Please explain how all TCB's under a given JSTCB will point to the same TIOT is incorrect, but every TCB with the same TCBJSTCB will normally have the same TIOT is true, when the two statements make the same point? === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net To: IBM-MAIN@bama.ua.edu Date: 10/22/2011 06:28 PM Subject: Re: z/OS Control block question Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu In of23f0c2c5.ab17dd83-on8625792f.0052d8f0-8625792f.0052e...@us.ibm.com, on 10/20/2011 at 10:05 AM, Wayne Driscoll wdri...@us.ibm.com said: but all TCB's under a given JSTCB will point to the same TIOT. Actually not. There will generally be more than one JSTCB. What is true is that every TCB with the same TCBJSTCB will normally[1] have the same TIOT. [1] I'm not aware of any exceptions. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
John, Your program also assumes that the routine is running under an RB in the Job Step Task. In a multi-tasking application (for instance under TSO/E) that will not be the case. In that case, you will need to add a L 4,TCBJSTCB Get Jobstep Task After the L 4,PSATOLD === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Roberts, John J jrobe...@dhs.state.ia.us To: IBM-MAIN@bama.ua.edu Date: 10/19/2011 04:43 PM Subject: Re: z/OS Control block question Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu My little subprog: *** *SUBROUTINE TO OBTAIN SYSTEM INFORMATION * *** GETJINFO CSECT GETJINFO AMODE 31 GETJINFO RMODE ANY LENTRY STM 14,12,12(13) BALR 12,0 USING *,12 L 2,0(1) GET PTR TO RETURN AREA USING ZSYSINFO,2 * *ADDRESS KEY CB'S * USING PSA,0 L 3,PSAAOLD LOCATE ASCB USING ASCB,3 L 4,PSATOLD LOCATE TCB USING TCB,4 L 5,TCBTIOLOCATE TIOT USING TIOT1,5 L 6,TCBJSCB LOCATE JSCB USING IEZJSCB,6 L 7,ASCBASXB LOCATE ASXB USING ASXB,7 L 8,ASXBSENV LOCATE ACEE USING ACEE,8 * *SAVE SYSTEM INFO FIELDS *--- XCZSYSINFO(256),ZSYSINFO MVC ZSYSPGMN,JSCBPGMN GET PROGRAM NAME MVC ZSYSUSER,ACEEUSRI GET USERID MVC ZSYSGRPN,ACEEGRPN GET GROUP MVC ZSYSJOBN,TIOCNJOB GET JOB NAME MVC ZSYSSTEP,TIOCSTEP GET STEP NAME * *BUILD THE DDNAME LIST *- ZAP ZSYSNDDN,=P'0' SET DDNAME COUNTER LA11,SSYSDD POINT TO DUMMY ENTRY LA15,ZSYSDD POINT TO FIRST SLOT LA14,TIOENTRY POINT TO FIRST TIOT DD ENTRY USING TIOENTRY,14 LDDN01 DS0H CLI TIOELNGH,X'00' IS THIS THE END OF THE TIOT? BELDDN99 YEAH - BREAK OUT CPZSYSNDDN,=P'512'ABOUT TO OVERFLOW? BNL LDDN99 YES - STOP B4 WE BUST LIMIT APZSYSNDDN,=P'1' NO - BUMP COUNT XC0(64,15),0(15) CLEAR SLOT MVC 0(8,15),TIOEDDNMSAVE DDNAME ZAP 8(2,15),=P'0' PRESET CONCAT SEQUENCE CLI TIOEDDNM,X'40' IS THIS A CONCAT ENTRY? BNE LDDN02 NO - SKIP MVC 0(8,15),0(11) YES - RESET DDNAME ZAP 8(2,15),8(2,11) PROPAGATE ... AP8(2,15),=P'1' ... CONCAT SEQUENCE LDDN02 DS0H LR11,15 SAVE PTR TO PRIOR ENTRY SR1,1 ICM 1,B'0111',TIOEJFCB LOCATE JFCB MVC 10(44,15),16(1) LA15,54(15) BUMP SLOT POINTER SR1,1 IC1,TIOELNGH LOAD CURRENT ENTRY LENGTH LA14,0(1,14) POINT TO NEXT TIOT DD ENTRY B LDDN01 LDDN99 DS0H DROP 14 * *EXIT * SR15,15 SET RC=0 L 14,12(13) RESTORE R14 LM0,12,20(13) RESTORE R0 TO R12 BR14 RETURN SSYSDD DS0CL54 DUMMY DD ENTRY DCCL8'' DCPL2'0' DCCL44'*' LTORG ZSYSINFO DSECT ZSYSJOBN DSCL8 CURRENT JOB NAME ZSYSSTEP DSCL16CURRENT JOBSTEP AND PROCSTEP ZSYSPGMN DSCL8 CURRENT PROGRAM NAME ZSYSUSER DSCL8 CURRENT USERID ZSYSGRPN DSCL8 CURRENT GROUP DSCL206 RESERVED FOR EXPANSION ZSYSNDDN DSPL2 COUNT OF DDNAME ENTRIES ZSYSDD DS512XL54 ARRAY OF DDNAME ENTRIES IHAPSA DSECT=YES,LIST=YES IHAASCB DSECT=YES,LIST=YES IHAASXB DSECT=YES,LIST=YES IHAACEE IEZJSCB IKJTCB DSECT=YES,LIST=YES TIOT DSECT IEFTIOT1 END -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu
Re: z/OS Control block question
I have a vague memory that whether it works as an address depends on the SWA=BELOW (default) parameter. Definitely can't works with SWA=ABOVE because that puts the SWA above the 16Meg line, which requires a 31 bit address. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Roberts, John J Sent: Wednesday, October 19, 2011 5:39 PM To: IBM-MAIN@bama.ua.edu Subject: Re: z/OS Control block question I just ran a test using my z/OS 1.11 system and it worked. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Gerhard Postpischil Sent: Wednesday, October 19, 2011 4:56 PM To: IBM-MAIN@bama.ua.edu Subject: Re: z/OS Control block question On 10/19/2011 5:29 PM, Roberts, John J wrote: My little subprog: SR1,1 ICM 1,B'0111',TIOEJFCB LOCATE JFCB MVC 10(44,15),16(1) This always works only in older systems. For current ones, the TIOEJFCB field is a double index into SQA, and you need to use SWAREQ (unauthorized for retrieval) to get the virtual JFCB address. Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
For JFCBs below the line it still works, HOWEVER, it is not a supported interface so you should always use SWAREQ in case IBM decides to change the way it works in the future. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of McKown, John Sent: Thursday, October 20, 2011 8:33 AM To: IBM-MAIN@bama.ua.edu Subject: Re: z/OS Control block question I have a vague memory that whether it works as an address depends on the SWA=BELOW (default) parameter. Definitely can't works with SWA=ABOVE because that puts the SWA above the 16Meg line, which requires a 31 bit address. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Roberts, John J Sent: Wednesday, October 19, 2011 5:39 PM To: IBM-MAIN@bama.ua.edu Subject: Re: z/OS Control block question I just ran a test using my z/OS 1.11 system and it worked. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Gerhard Postpischil Sent: Wednesday, October 19, 2011 4:56 PM To: IBM-MAIN@bama.ua.edu Subject: Re: z/OS Control block question On 10/19/2011 5:29 PM, Roberts, John J wrote: My little subprog: SR1,1 ICM 1,B'0111',TIOEJFCB LOCATE JFCB MVC 10(44,15),16(1) This always works only in older systems. For current ones, the TIOEJFCB field is a double index into SQA, and you need to use SWAREQ (unauthorized for retrieval) to get the virtual JFCB address. Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html This e-mail may contain confidential or privileged information. If you think you have received this e-mail in error, please advise the sender by reply e-mail and then delete this e-mail immediately. Thank you. Aetna -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
SV: z/OS Control block question
Could You post a corrected version of the code, please ? :) Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Gerhard Postpischil Skickat: den 20 oktober 2011 06:43 Till: IBM-MAIN@bama.ua.edu Ämne: Re: z/OS Control block question On 10/19/2011 6:38 PM, Roberts, John J wrote: I just ran a test using my z/OS 1.11 system and it worked. And a stopped clock is correct twice a day. If I had a dollar for every problem in your little code segment, I could buy something nice at Starbucks. 1. There is no check to handle a deleted entry. 2. The code should save the caller's AMODE (e.g., BSM 14,0 / STM 14,12,12(13) at start; BSM 0,14 at end) and switch to AMODE 31, as pointed out by Shmuel. Having AMODE and RMODE statements in your assembly indicates a preference, but is not enforced at execution time. 3. The code is inefficient. There are unused registers, but it accesses TIOELNGH twice. It would be simpler to do an ICM at the top of the loop, branch out of the loop on zero, and at the end of the loop, just add that register to 14. 4. Your RX instructions use index registers rather than base registers [e.g., L 2,0(1) instead of L 2,0(,1)]. That may cause problems when called by a program that uses access registers. And if you don't need to update the access register, the code is easier to maintain if that's shown explicitly [LA 15,54(15,0)] 5. And as I mentioned originally, you must either treat the JFCB address as an SVA (preferred), or test whether it's an address. While SVAs are odd, IBM has made no commitment to that effect, so using SWAREQ is the preferred approach. Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
Could You post a corrected version of the code, please ? I wrote it a long time ago, and it still works at this installation. The defects others have pointed out may or may not affect you. So for me, it is a case of if it ain't broke, don't try to fix it. I will leave it to the others to perfect it. John -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
SV: z/OS Control block question
That was to Gerhard Postpischil. He had suggestions for improving it so I thought it would be valuable to see his code variant. :) Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Roberts, John J Skickat: den 20 oktober 2011 16:07 Till: IBM-MAIN@bama.ua.edu Ämne: Re: z/OS Control block question Could You post a corrected version of the code, please ? I wrote it a long time ago, and it still works at this installation. The defects others have pointed out may or may not affect you. So for me, it is a case of if it ain't broke, don't try to fix it. I will leave it to the others to perfect it. John -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
Resending so the comments are attached to the correct thread. I did something stupid in my mail client. Sorry, the additional load, while it won't hurt, isn't needed. I was thinking of TCBJPQ, which is only populated for the JSTCB. TCBTIO is populated for all TCB's, but all TCB's under a given JSTCB will point to the same TIOT. === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Wayne Driscoll/Chicago/IBM@IBMUS To: IBM-MAIN@bama.ua.edu Date: 10/20/2011 06:31 AM Subject: Re: z/OS Control block question Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu John, Your program also assumes that the routine is running under an RB in the Job Step Task. In a multi-tasking application (for instance under TSO/E) that will not be the case. In that case, you will need to add a L 4,TCBJSTCB Get Jobstep Task After the L 4,PSATOLD === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Roberts, John J jrobe...@dhs.state.ia.us To: IBM-MAIN@bama.ua.edu Date: 10/19/2011 04:43 PM Subject: Re: z/OS Control block question Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu My little subprog: *** *SUBROUTINE TO OBTAIN SYSTEM INFORMATION * *** GETJINFO CSECT GETJINFO AMODE 31 GETJINFO RMODE ANY LENTRY STM 14,12,12(13) BALR 12,0 USING *,12 L 2,0(1) GET PTR TO RETURN AREA USING ZSYSINFO,2 * *ADDRESS KEY CB'S * USING PSA,0 L 3,PSAAOLD LOCATE ASCB USING ASCB,3 L 4,PSATOLD LOCATE TCB USING TCB,4 L 5,TCBTIOLOCATE TIOT USING TIOT1,5 L 6,TCBJSCB LOCATE JSCB USING IEZJSCB,6 L 7,ASCBASXB LOCATE ASXB USING ASXB,7 L 8,ASXBSENV LOCATE ACEE USING ACEE,8 * *SAVE SYSTEM INFO FIELDS *--- XCZSYSINFO(256),ZSYSINFO MVC ZSYSPGMN,JSCBPGMN GET PROGRAM NAME MVC ZSYSUSER,ACEEUSRI GET USERID MVC ZSYSGRPN,ACEEGRPN GET GROUP MVC ZSYSJOBN,TIOCNJOB GET JOB NAME MVC ZSYSSTEP,TIOCSTEP GET STEP NAME * *BUILD THE DDNAME LIST *- ZAP ZSYSNDDN,=P'0' SET DDNAME COUNTER LA11,SSYSDD POINT TO DUMMY ENTRY LA15,ZSYSDD POINT TO FIRST SLOT LA14,TIOENTRY POINT TO FIRST TIOT DD ENTRY USING TIOENTRY,14 LDDN01 DS0H CLI TIOELNGH,X'00' IS THIS THE END OF THE TIOT? BELDDN99 YEAH - BREAK OUT CPZSYSNDDN,=P'512'ABOUT TO OVERFLOW? BNL LDDN99 YES - STOP B4 WE BUST LIMIT APZSYSNDDN,=P'1' NO - BUMP COUNT XC0(64,15),0(15) CLEAR SLOT MVC 0(8,15),TIOEDDNMSAVE DDNAME ZAP 8(2,15),=P'0' PRESET CONCAT SEQUENCE CLI TIOEDDNM,X'40' IS THIS A CONCAT ENTRY? BNE LDDN02 NO - SKIP MVC 0(8,15),0(11) YES - RESET DDNAME ZAP 8(2,15),8(2,11) PROPAGATE ... AP8(2,15),=P'1' ... CONCAT SEQUENCE LDDN02 DS0H LR11,15 SAVE PTR TO PRIOR ENTRY SR1,1 ICM 1,B'0111',TIOEJFCB LOCATE JFCB MVC 10(44,15),16(1) LA15,54(15) BUMP SLOT POINTER SR1,1 IC1,TIOELNGH LOAD CURRENT ENTRY LENGTH LA14,0(1,14) POINT TO NEXT TIOT DD ENTRY B LDDN01 LDDN99 DS0H DROP 14 * *EXIT * SR15,15 SET RC=0 L 14,12(13) RESTORE R14 LM0,12,20(13) RESTORE R0 TO R12 BR14 RETURN SSYSDD DS0CL54 DUMMY DD ENTRY DCCL8'' DCPL2'0' DCCL44'*' LTORG ZSYSINFO DSECT ZSYSJOBN DSCL8 CURRENT JOB NAME ZSYSSTEP DSCL16CURRENT JOBSTEP AND PROCSTEP ZSYSPGMN DSCL8 CURRENT PROGRAM NAME ZSYSUSER DSCL8 CURRENT USERID ZSYSGRPN DSCL8 CURRENT GROUP DSCL206 RESERVED FOR EXPANSION ZSYSNDDN DSPL2 COUNT OF DDNAME ENTRIES ZSYSDD DS512XL54 ARRAY OF DDNAME ENTRIES IHAPSA DSECT=YES,LIST=YES
Re: z/OS Control block question
John, Many moons ago I ran into two oem vendors that did not support SWA above the line. One vendor fixed the issue with a few days. The other, CA gave me the runaround. As it tuns out after looking around I found the source and fixed it myself. We implemented it and it worked in the next system test. We went production a week later. I called CA and told them I found their issue and fixed it and they asked me for my fix and I suggested they should send a check. That was of course was met with silence. Since then CA was crossed off my Semi OK let and on to my bad list. Ed -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
All: There are about 6 ways to skin the cat on any system writting code. Yes some work better than others, but testing is what determines what the code issue is or performance issue. I understand everyone has tons of experience, as I do too, but if someone is nice enough to provide a sample, I an grateful to say thank you. I may change it, sure, so it not be perfect, nothing is, but a least they took initiative to send it. Scott J Ford Software Engineer http://www.identityforge.com From: Roberts, John J jrobe...@dhs.state.ia.us To: IBM-MAIN@bama.ua.edu Sent: Thursday, October 20, 2011 10:07 AM Subject: Re: z/OS Control block question Could You post a corrected version of the code, please ? I wrote it a long time ago, and it still works at this installation. The defects others have pointed out may or may not affect you. So for me, it is a case of if it ain't broke, don't try to fix it. I will leave it to the others to perfect it. John -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
z/OS Control block question
To all: I need to know the dataset names of the files that are allocated (DD stmts) of a STC. Can some one point me to the initial CB, I looked at TCB , do I assume this is the place to start ? Scott J Ford Software Engineer http://www.identityforge.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
My little subprog: *** *SUBROUTINE TO OBTAIN SYSTEM INFORMATION * *** GETJINFO CSECT GETJINFO AMODE 31 GETJINFO RMODE ANY LENTRY STM 14,12,12(13) BALR 12,0 USING *,12 L 2,0(1) GET PTR TO RETURN AREA USING ZSYSINFO,2 * *ADDRESS KEY CB'S * USING PSA,0 L 3,PSAAOLD LOCATE ASCB USING ASCB,3 L 4,PSATOLD LOCATE TCB USING TCB,4 L 5,TCBTIOLOCATE TIOT USING TIOT1,5 L 6,TCBJSCB LOCATE JSCB USING IEZJSCB,6 L 7,ASCBASXB LOCATE ASXB USING ASXB,7 L 8,ASXBSENV LOCATE ACEE USING ACEE,8 * *SAVE SYSTEM INFO FIELDS *--- XCZSYSINFO(256),ZSYSINFO MVC ZSYSPGMN,JSCBPGMN GET PROGRAM NAME MVC ZSYSUSER,ACEEUSRI GET USERID MVC ZSYSGRPN,ACEEGRPN GET GROUP MVC ZSYSJOBN,TIOCNJOB GET JOB NAME MVC ZSYSSTEP,TIOCSTEP GET STEP NAME * *BUILD THE DDNAME LIST *- ZAP ZSYSNDDN,=P'0' SET DDNAME COUNTER LA11,SSYSDD POINT TO DUMMY ENTRY LA15,ZSYSDD POINT TO FIRST SLOT LA14,TIOENTRY POINT TO FIRST TIOT DD ENTRY USING TIOENTRY,14 LDDN01 DS0H CLI TIOELNGH,X'00' IS THIS THE END OF THE TIOT? BELDDN99 YEAH - BREAK OUT CPZSYSNDDN,=P'512'ABOUT TO OVERFLOW? BNL LDDN99 YES - STOP B4 WE BUST LIMIT APZSYSNDDN,=P'1' NO - BUMP COUNT XC0(64,15),0(15) CLEAR SLOT MVC 0(8,15),TIOEDDNMSAVE DDNAME ZAP 8(2,15),=P'0' PRESET CONCAT SEQUENCE CLI TIOEDDNM,X'40' IS THIS A CONCAT ENTRY? BNE LDDN02 NO - SKIP MVC 0(8,15),0(11) YES - RESET DDNAME ZAP 8(2,15),8(2,11) PROPAGATE ... AP8(2,15),=P'1' ... CONCAT SEQUENCE LDDN02 DS0H LR11,15 SAVE PTR TO PRIOR ENTRY SR1,1 ICM 1,B'0111',TIOEJFCB LOCATE JFCB MVC 10(44,15),16(1) LA15,54(15) BUMP SLOT POINTER SR1,1 IC1,TIOELNGH LOAD CURRENT ENTRY LENGTH LA14,0(1,14) POINT TO NEXT TIOT DD ENTRY B LDDN01 LDDN99 DS0H DROP 14 * *EXIT * SR15,15 SET RC=0 L 14,12(13) RESTORE R14 LM0,12,20(13) RESTORE R0 TO R12 BR14 RETURN SSYSDD DS0CL54 DUMMY DD ENTRY DCCL8'' DCPL2'0' DCCL44'*' LTORG ZSYSINFO DSECT ZSYSJOBN DSCL8 CURRENT JOB NAME ZSYSSTEP DSCL16CURRENT JOBSTEP AND PROCSTEP ZSYSPGMN DSCL8 CURRENT PROGRAM NAME ZSYSUSER DSCL8 CURRENT USERID ZSYSGRPN DSCL8 CURRENT GROUP DSCL206 RESERVED FOR EXPANSION ZSYSNDDN DSPL2 COUNT OF DDNAME ENTRIES ZSYSDD DS512XL54 ARRAY OF DDNAME ENTRIES IHAPSA DSECT=YES,LIST=YES IHAASCB DSECT=YES,LIST=YES IHAASXB DSECT=YES,LIST=YES IHAACEE IEZJSCB IKJTCB DSECT=YES,LIST=YES TIOT DSECT IEFTIOT1 END -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
I need to know the dataset names of the files that are allocated (DD stmts) of a STC. Can some one point me to the initial CB, I looked at TCB , do I assume this is the place to start ? Start with the PSA at absolute address zero (IHAPSA). Field PSATOLD contains the address of the current TCB (IKJTCB). Field TCBTIO contains the address of the Task Input Output Table (TIOT - mapped by IEFTIOT1). The TIOT is an array containing one or more entries for each DDNAME (field TIOEDDNM). Within the TIOT entry, field TIOEJFCB contains a three byte address of the Job File Control Block (JFCB). The JFCB contains the DSNAME. I will send separately a little ASM subprog that does this and a bit more. John -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
-Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Ford Sent: Wednesday, October 19, 2011 3:53 PM To: IBM-MAIN@bama.ua.edu Subject: z/OS Control block question To all: I need to know the dataset names of the files that are allocated (DD stmts) of a STC. Can some one point me to the initial CB, I looked at TCB , do I assume this is the place to start ? Scott J Ford Software Engineer http://www.identityforge.com Unless the STC runs NODSI, I would use the ISGQUERY to ask GRS what SYSDSN enqueues are owned by the STC. It's much easier than scheduling an SRB into the address space and running around in memory (chain chasing). I'd use the REQINFO=QSCAN, QNAMEMATCH=SPECIFIC, QNAME=sysdsn, RNAMEMATCH=ANY, SCOPE=ANY, SERIALIZE_BY=ENQ_ONLY, SYSNAME=ANY_SYSNAME, and JOBNAME=stcname parameters. sysdsn is the label of a DC CL8'SYSDSN' stcdsn is a DC CL8 which contains the STC name. I assume it is unique. If not, look at the ASID= parameter instead if you know the ASID. What is really good about this is that it is totally GUPI and so not likely to cause problems in the future. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A2B0/121.0 -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 9151 Boulevard 26 . N. Richland Hills . TX 76010 (817) 255-3225 phone . john.mck...@healthmarkets.com . www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
The solution I suggested presumes that you are adding code to the STC program itself (inside looking out). If you are on the outside looking in (i.e. another task wants to see what resources the STC is using), then my solution won't work, since most of the control blocks are in the private address space of the STC. John -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
On 10/19/2011 5:29 PM, Roberts, John J wrote: My little subprog: SR1,1 ICM 1,B'0111',TIOEJFCB LOCATE JFCB MVC 10(44,15),16(1) This always works only in older systems. For current ones, the TIOEJFCB field is a double index into SQA, and you need to use SWAREQ (unauthorized for retrieval) to get the virtual JFCB address. Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
Guys and Gals, Thank you ,Thank you , so much appreciated Scott J Ford Software Engineer http://www.identityforge.com From: Roberts, John J jrobe...@dhs.state.ia.us To: IBM-MAIN@bama.ua.edu Sent: Wednesday, October 19, 2011 5:40 PM Subject: Re: z/OS Control block question The solution I suggested presumes that you are adding code to the STC program itself (inside looking out). If you are on the outside looking in (i.e. another task wants to see what resources the STC is using), then my solution won't work, since most of the control blocks are in the private address space of the STC. John -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
I just ran a test using my z/OS 1.11 system and it worked. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Gerhard Postpischil Sent: Wednesday, October 19, 2011 4:56 PM To: IBM-MAIN@bama.ua.edu Subject: Re: z/OS Control block question On 10/19/2011 5:29 PM, Roberts, John J wrote: My little subprog: SR1,1 ICM 1,B'0111',TIOEJFCB LOCATE JFCB MVC 10(44,15),16(1) This always works only in older systems. For current ones, the TIOEJFCB field is a double index into SQA, and you need to use SWAREQ (unauthorized for retrieval) to get the virtual JFCB address. Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
Thank you John Scott J Ford Software Engineer http://www.identityforge.com From: Roberts, John J jrobe...@dhs.state.ia.us To: IBM-MAIN@bama.ua.edu Sent: Wednesday, October 19, 2011 6:38 PM Subject: Re: z/OS Control block question I just ran a test using my z/OS 1.11 system and it worked. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Gerhard Postpischil Sent: Wednesday, October 19, 2011 4:56 PM To: IBM-MAIN@bama.ua.edu Subject: Re: z/OS Control block question On 10/19/2011 5:29 PM, Roberts, John J wrote: My little subprog: SR 1,1 ICM 1,B'0111',TIOEJFCB LOCATE JFCB MVC 10(44,15),16(1) This always works only in older systems. For current ones, the TIOEJFCB field is a double index into SQA, and you need to use SWAREQ (unauthorized for retrieval) to get the virtual JFCB address. Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
In 93891f43642f3c419a7d75acc2b1db6f3c005da...@exchangemb2.dhs.state.ia.us, on 10/19/2011 at 04:29 PM, Roberts, John J jrobe...@dhs.state.ia.us said: Start with the PSA at absolute address zero No. In fact, he can't. He should start with virtual address zero, which will map into real address 0, which in turn will map into the correct absolute address for the CPU he is running on. The TIOT is an array The entries are variable length. field TIOEJFCB contains a three byte address No. It contains an SVA. While I believe that SWAREQ is the easiest way to get to the JFCB, the documentation says not to use it but to use RDJFCB. BTW, does the STC in question use XTIOT? If so, more code will be needed. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
In 93891f43642f3c419a7d75acc2b1db6f3c005da...@exchangemb2.dhs.state.ia.us, on 10/19/2011 at 04:29 PM, Roberts, John J jrobe...@dhs.state.ia.us said: My little subprog: Won't work if SWA is above the line. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
At 19:18 -0500 on 10/19/2011, Shmuel Metz (Seymour J.) wrote about Re: z/OS Control block question: field TIOEJFCB contains a three byte address No. It contains an SVA. While I believe that SWAREQ is the easiest way to get to the JFCB, the documentation says not to use it but to use RDJFCB. RDJFCB is only usable if you are the job you are enquiring about. If you are another job (such as the aforementioned checking on a STC from some other task, you need to go the SWAREQ route (since RDJFCB needs a DCB accessing the Task's TIOT and when you are inspecting some other task, you have access to YOUR TIOT not the one for the task). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Control block question
On 10/19/2011 6:38 PM, Roberts, John J wrote: I just ran a test using my z/OS 1.11 system and it worked. And a stopped clock is correct twice a day. If I had a dollar for every problem in your little code segment, I could buy something nice at Starbucks. 1. There is no check to handle a deleted entry. 2. The code should save the caller's AMODE (e.g., BSM 14,0 / STM 14,12,12(13) at start; BSM 0,14 at end) and switch to AMODE 31, as pointed out by Shmuel. Having AMODE and RMODE statements in your assembly indicates a preference, but is not enforced at execution time. 3. The code is inefficient. There are unused registers, but it accesses TIOELNGH twice. It would be simpler to do an ICM at the top of the loop, branch out of the loop on zero, and at the end of the loop, just add that register to 14. 4. Your RX instructions use index registers rather than base registers [e.g., L 2,0(1) instead of L 2,0(,1)]. That may cause problems when called by a program that uses access registers. And if you don't need to update the access register, the code is easier to maintain if that's shown explicitly [LA 15,54(15,0)] 5. And as I mentioned originally, you must either treat the JFCB address as an SVA (preferred), or test whether it's an address. While SVAs are odd, IBM has made no commitment to that effect, so using SWAREQ is the preferred approach. Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html