Re: Archive login rejects
Anyone else having password rejected problems on the archive ?. Has happened twice in the last week, and now it won't let me in at all. Might be Darren giving me a (not so) subtle hint. Must be Darren giving you a hint :-) I am always logged in to the ibm-main archives and was also able to get to the ibm-main-archives archive. *That* is one of the cookies that I allow on my PC - keeps the password and allows me to post from the list interface without loggin in. Best regards, Barbara -- 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: CFRM formating IXCl1DSU Item name(connect) number(1-255)
gnalu itsys...@bper.dpn.ch wrote in message news:5a3fe851-b22c-4c35-9841-01b57f21a...@y31g2000vbt.googlegroups.com ... On 7 sep, 13:49, gnalu itsys...@bper.dpn.ch wrote: Can somebody explain me what is a connection and who I can estimate howmuch I need ? I didn't find an good explanation int the setting up a sysplex book Thanks Regards Bernard Coeytaux I received the following answer from IBM In parameter ITEM NAME(CONNECT) NUMBER( ) for type CFRM a connection is a specific component like JES2,GRS,etc . To use a structure an A/S must first connect to the structure .This is done using IXLCONN macro services which returns an unique connection name. Bernard Coeytaux If IBM says so, this must be true. However I was under the impression that is was the number of LPARs connection to this particualar CF. D XCF,CF,CFNAME=name tells me how many systems are connected to the CF and I supposed it was controlled by ITEM NAME(CONNECT) NUMBER( ). The limit of 255 Adress Spaces connection to a CF seems a little low for a large installation. Kees. Ps. This newsgroup is a mirror of a listserver, where the majority of the IBM-MAIN population resides and reads the posts. Only a few people read posts sent to the newsgroup. See the information automagically attached below. For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- 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: CFRM formating IXCl1DSU Item name(connect) number(1-255)
However I was under the impression that is was the number of LPARs connection to this particualar CF. D XCF,CF,CFNAME=name tells me how many systems are connected to the CF and I supposed it was controlled by ITEM NAME(CONNECT) NUMBER( ). The limit of 255 Adress Spaces connection to a CF seems a little low for a large installation. ITEM NAME(CONNECT) NUMBER( ) is defined as Specifies the number of connections that can be defined for a coupling facility structure. (Default=32, Minimum=1, Maximum=255) So that is number of connections per structure. I believe it has always been like that. I don't believe that there is a definition limit to the connections per lpar to any one CF. (That limit would be implied by the number of paths from the lpar to the CF and by the achievable throughput - or is that thruput these days?) The usual sysplex application design is that an address space is a connector to a structure. So number of connections per structure is usually equal to number of address spaces that connect to a structure (after all, it doesn't make much sense to have the same asid connect twice to the same structure; I am not even sure that that is allowed). I don't think that 255 is a low value. In a really huge plex with 32 systems (maximum value allowed for maxsystem) there would probably still be 'only' 32 connections at the most per structure. In our CFRM definitions I have generally limited ITEM NAME(CONNECT) to 20, as there needs to be space in the CDS for every potential connection. This is probably still overkill for a maxsystem=5 sysplex, but tell that to my boss! I was going to say that there is even a health check that the limits aren't reached and that there is sufficient white space in the definitions. But there isn't. The health check I had in mind was for the number of groups and members, i.e. for the sysplex CDS, not the CFRM CDS. That alone (in my opinion) shows that number of connections to a structure has not been an issue yet. Best regards, Barbara -- 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: CFRM formating IXCl1DSU Item name(connect) number(1-255)
Barbara Nitz nitz-...@gmx.net wrote in message news:listserv%201009100237596896.0...@bama.ua.edu... However I was under the impression that is was the number of LPARs connection to this particualar CF. D XCF,CF,CFNAME=name tells me how many systems are connected to the CF and I supposed it was controlled by ITEM NAME(CONNECT) NUMBER( ). The limit of 255 Adress Spaces connection to a CF seems a little low for a large installation. ITEM NAME(CONNECT) NUMBER( ) is defined as Specifies the number of connections that can be defined for a coupling facility structure. (Default=32, Minimum=1, Maximum=255) So that is number of connections per structure. I believe it has always been like that. Aha, per structure, that sounds more reasonable. This was not that clear for IBM's answer to Bernard. I don't believe that there is a definition limit to the connections per lpar to any one CF. (That limit would be implied by the number of paths from the lpar to the CF and by the achievable throughput - or is that thruput these days?) The usual sysplex application design is that an address space is a connector to a structure. So number of connections per structure is usually equal to number of address spaces that connect to a structure (after all, it doesn't make much sense to have the same asid connect twice to the same structure; I am not even sure that that is allowed). I don't think that 255 is a low value. In a really huge plex with 32 systems (maximum value allowed for maxsystem) there would probably still be 'only' 32 connections at the most per structure. Yes, in that sense, 255 is sufficient. Unless you have several applications per system on all 32 systems connection to the same structure. In our CFRM definitions I have generally limited ITEM NAME(CONNECT) to 20, as there needs to be space in the CDS for every potential connection. This is probably still overkill for a maxsystem=5 sysplex, but tell that to my boss! I was going to say that there is even a health check that the limits aren't reached and that there is sufficient white space in the definitions. But there isn't. The health check I had in mind was for the number of groups and members, i.e. for the sysplex CDS, not the CFRM CDS. That alone (in my opinion) shows that number of connections to a structure has not been an issue yet. Best regards, Barbara -- 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 information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- 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
CFMODE STATUS
I cannot found whre the MODE of the CF (VOLATILE or NONVOLATILE) is saved ? Somehewhere in the SE ? It survives to a poweron reset. Thanks and regards Bernard Coeytaux -- 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
another test only message
another test only message -- 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
test message only
test message only -- 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: Possible DFSORT problem?
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of William M Klein Sent: Thursday, September 09, 2010 5:29 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Possible DFSORT problem? John, You don't mention whether your Enterprise COBOL 3.4 program was compiled with FASTSRT or not. My guess is that it was. You might try recompiling and running it with NOFASTSRT. You said (later in the thread) that you have created a PMR, but trying with NOFASTSRT might (or might not) help you identify where the problem is. You also don't mention if your COBOL SORT has any input or output procedures. That too might be relevant. Having said all of this, I am certain that IBM L2 will get to the bottom of this. This program uses both an INPUT PROCEDURE IS and OUTPUT PROCEDURE IS and so FASTSRT should not be relevant. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-691-6183 cell 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 -- 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: CFMODE STATUS
On Fri, 10 Sep 2010 04:01:53 -0500, SUBSCRIBE IBM-MAIN itsystem BPER itsys...@bper.dpn.ch wrote: I cannot found whre the MODE of the CF (VOLATILE or NONVOLATILE) is saved ? Somehewhere in the SE ? It survives to a poweron reset. Thanks and regards Bernard Coeytaux Don't know. In EEPROM somewhere? Why do you need to know?Isn't it enough to know that the setting is preserved across POR? Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.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: REXX : how to determine the member name of a DD card
With the listdsi, i only have the pdsname in the sysdsname variable ... The member name is not indicated. -Message d'origine- De : IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] De la part de Itschak Mugzach Envoyé : jeudi 9 septembre 2010 18:02 À : IBM-MAIN@bama.ua.edu Objet : Re: REXX : how to determine the member name of a DD card I would try LISTDSI('xxx file). It might return the dsnname into SYSDSNAME which you can investigate using member=(word(translate(sysdsname,' ',()'),2) ITschak On Thu, Sep 9, 2010 at 5:35 PM, CUNY Yann yc...@externe.generali.fr wrote: Works fine ! thank you ... -Message d'origine- De : IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] De la part de Veilleux, Jon L Envoyé : jeudi 9 septembre 2010 16:04 À : IBM-MAIN@bama.ua.edu Objet : Re: REXX : how to determine the member name of a DD card Here is some sample REXX code that will list the dataset allocated to ddname DD1 using Listalc st. /* rexx */ Z=OUTTRAP(SYSOUTLINE.,'*',NOCONCAT) ADDRESS TSO INDEX=' ' LISTALC STATUS Z=OUTTRAP(OFF) I=1 DO i=1 to SYSOUTLINE.0 test=word(sysoutline.i,1) if test='DD1' then do x=i-1 say sysoutline.x i=sysoutline.0 end end exit Jon L. Veilleux veilleu...@aetna.com (860) 636-9179 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Veilleux, Jon L Sent: Thursday, September 09, 2010 9:28 AM To: IBM-MAIN@bama.ua.edu Subject: Re: REXX : how to determine the member name of a DD card Can you use ISRDDN and parse the output? Jon L. Veilleux veilleu...@aetna.com (860) 636-9179 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Dana Mitchell Sent: Thursday, September 09, 2010 9:13 AM To: IBM-MAIN@bama.ua.edu Subject: Re: REXX : how to determine the member name of a DD card On Wed, 8 Sep 2010 10:58:14 +0200, CUNY Yann yc...@externe.generali.fr wrote: //IN DD DSN=P3CUN.YANN.JCL(TEST14),DISP=SHR I need, in my rexx, to retrieve the member name of the DD CARD IN. With the LISTDSI, I just have the pds name. Any idea ? You can use OUTTRAP function to trap the output from the 'LISTA STATUS' TSO command. Then parse through and find the DD you are interested in. Dana -- 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 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 -- 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: REXX : how to determine the member name of a DD card
Yann, If you use the REXX code supplied by Jon L. Veilleux below, you will be able to get the dsn and member name. At the point in his code where the IF is triggered, sysoutline.x will contain the information you seek. Simply parse sysoutline.x into 2 variables, something like parse var sysoutline.x dsn(mem) and you should have what you want. Chuck Charles Hardee CA technologies Sr Sustaining Engineer Tel: +1-952-838-1039 charles.har...@ca.com -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of CUNY Yann Sent: Friday, September 10, 2010 9:06 AM To: IBM-MAIN@bama.ua.edu Subject: Re: REXX : how to determine the member name of a DD card With the listdsi, i only have the pdsname in the sysdsname variable ... The member name is not indicated. -Message d'origine- De : IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] De la part de Veilleux, Jon L Envoyé : jeudi 9 septembre 2010 16:04 À : IBM-MAIN@bama.ua.edu Objet : Re: REXX : how to determine the member name of a DD card Here is some sample REXX code that will list the dataset allocated to ddname DD1 using Listalc st. /* rexx */ Z=OUTTRAP(SYSOUTLINE.,'*',NOCONCAT) ADDRESS TSO INDEX=' ' LISTALC STATUS Z=OUTTRAP(OFF) I=1 DO i=1 to SYSOUTLINE.0 test=word(sysoutline.i,1) if test='DD1' then do x=i-1 say sysoutline.x i=sysoutline.0 end end exit Jon L. Veilleux veilleu...@aetna.com (860) 636-9179 -- 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: REXX : how to determine the member name of a DD card
In the second part of Itschak's reply he tells you how to extract the member name from the returned sysdsname ... CUNY Yann yc...@externe.generali.fr Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 10/09/2010 04:05 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: REXX : how to determine the member name of a DD card With the listdsi, i only have the pdsname in the sysdsname variable ... The member name is not indicated. -Message d'origine- De : IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] De la part de Itschak Mugzach Envoyé : jeudi 9 septembre 2010 18:02 À : IBM-MAIN@bama.ua.edu Objet : Re: REXX : how to determine the member name of a DD card I would try LISTDSI('xxx file). It might return the dsnname into SYSDSNAME which you can investigate using member=(word(translate(sysdsname,' ',()'),2) ITschak -- 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 message, including any attachments transmitted with it, is CONFIDENTIAL and may contain legally privileged information. This message is intended solely for the use of the individual or entity to whom it is addressed. If you have received this message in error, please notify us immediately and delete it from your system. Please visit our website to read the full disclaimer: http://www.euroclear.com/site/public/disclaimer -- 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
Channel path acronym's
Hi If someone knows a list of different channel path acronym's We need to differentiate somehow between disk and network channel paths -- 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: Updating CHPID Mapping Tool
For the files... the install exe will take care of removing the old version. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Johnston, Robert E Sent: Wednesday, September 08, 2010 3:37 PM To: IBM-MAIN@bama.ua.edu Subject: Updating CHPID Mapping Tool I have v05.20 (J) of the CHPID mapping tool installed, from around Feb 2008. I need to install the newest version now but I haven't found anywhere how to handle my situation. The old doc talks about getting an upgrade file but there is not one on Resourcelink, just the new version of the CMT (which I have downloaded). My question is, should I un-install the old CMT from Windows (XP) before launching the setupjre.exe installer or will it take care of uninstalling the old version? Thought I'd better ask the pros before trying anything... Thanks, Robert Johnston UAMS - Little Rock Confidentiality Notice: This e-mail message, including any attachments, is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.. -- 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: CFMODE STATUS
This is set in the HMC while within the CF partition. The command escapes me at the moment as I don't do this kind of support any longer (something simple like SET MODE NONVOLATILE) but it is indeed kept across IPLs but does go back to a default I believe when a POR is performed... Regards, Stan Stan Weyman Senior Software Engineer stan.wey...@emc.com EMC² (508)249-3966 where information lives It is wise to keep in mind that neither success nor failure is ever final... -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of SUBSCRIBE IBM-MAIN itsystem BPER Sent: Friday, September 10, 2010 5:02 AM To: IBM-MAIN@bama.ua.edu Subject: CFMODE STATUS I cannot found whre the MODE of the CF (VOLATILE or NONVOLATILE) is saved ? Somehewhere in the SE ? It survives to a poweron reset. Thanks and regards Bernard Coeytaux -- 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: Latch services question
Steve, GRS will not become confused. It is expected that more than one requester will use the same value in order to group requests together for the purpose of purging them later. ~Chris On Thu, 26 Aug 2010 11:56:32 +0100, Steve Austin steve.aus...@macro4.com wrote: If multiple TCB and SRB callers all specify the same 'requestorid' on the ISGLOBT call will this confuse ISGLOBT, or is the requestorid only for use by ISGLPRG? Thanks Steve -- 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
Anyone has experience with File Manager compare?
We're running File Manager compares and they seem to be running long. Is there another product that is more efficient? Cobol program? TIA -- 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: REXX : how to determine the member name of a DD card
No, LISTDSI will not work, at least not for me. Here's my REXX (based on Jon's earlier REXX): /* rexx */ Z=OUTTRAP(SYSOUTLINE.,'*',NOCONCAT) ADDRESS TSO INDEX=' ' LISTALC STATUS Z=OUTTRAP(OFF) I=1 DO i=1 to SYSOUTLINE.0 test=word(sysoutline.i,1) if test='DD1' then do x=i-1 say sysoutline.x i=sysoutline.0 end end z=listdsi(DD1 FILE) say sysdsname exit I then allocated a file to my TSO session: :ALLOC FI(DD1) DA(pdsname(memname)) SHR I then ran the REXX and received two displays as expected, but not what was wanted by the OP: pdsname(memname) pdsname The first line was from the say sysoutline.x and the second line was from say sysdsname As can be seen, no member name from LISTDSI. Chuck Charles Hardee CA technologies Sr Sustaining Engineer Tel: +1-952-838-1039 charles.har...@ca.com -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Peter Nuttall Sent: Friday, September 10, 2010 9:29 AM To: IBM-MAIN@bama.ua.edu Subject: Re: REXX : how to determine the member name of a DD card In the second part of Itschak's reply he tells you how to extract the member name from the returned sysdsname ... CUNY Yann yc...@externe.generali.fr Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 10/09/2010 04:05 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: REXX : how to determine the member name of a DD card With the listdsi, i only have the pdsname in the sysdsname variable ... The member name is not indicated. -Message d'origine- De : IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] De la part de Itschak Mugzach Envoyé : jeudi 9 septembre 2010 18:02 À : IBM-MAIN@bama.ua.edu Objet : Re: REXX : how to determine the member name of a DD card I would try LISTDSI('xxx file). It might return the dsnname into SYSDSNAME which you can investigate using member=(word(translate(sysdsname,' ',()'),2) ITschak -- 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 message, including any attachments transmitted with it, is CONFIDENTIAL and may contain legally privileged information. This message is intended solely for the use of the individual or entity to whom it is addressed. If you have received this message in error, please notify us immediately and delete it from your system. Please visit our website to read the full disclaimer: http://www.euroclear.com/site/public/disclaimer -- 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: Anyone has experience with File Manager compare?
Beyond Compare on the PC Hutchison, Gregory A. Oregon DOT DMVIS phone:503-945-7081 fax:503-945-5220 gregory.hutchi...@odot.state.or.us -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of gsg Sent: Friday, September 10, 2010 8:42 AM To: IBM-MAIN@bama.ua.edu Subject: Anyone has experience with File Manager compare? We're running File Manager compares and they seem to be running long. Is there another product that is more efficient? Cobol program? TIA -- 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: Anyone has experience with File Manager compare?
There are a few products that have better compare functionality. InSync is excellent , as is Comparex. -- 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: Anyone has experience with File Manager compare?
This would be for the mainframe z/OS. These are the File Manager parms: $$FILEM DSM TYPE=RECORD, $$FILEM PACK=UNPACK, $$FILEM SYNCH=KEYED, $$FILEM KEYLOCOLD=(16,1), $$FILEM KEYLOCNEW=(16,1), $$FILEM KEYLEN=(22,15), $$FILEM KEYTYPE=CHAR, $$FILEM LIST=SUMMARY, $$FILEM WIDE=YES, $$FILEM HEX=YES, $$FILEM HILIGHT=YES, $$FILEM IOUTPUT=INSERTS, $$FILEM DOUTPUT=DELETES, $$FILEM NCOUTPUT=NEWCHGS, $$FILEM DDOLD=IMACTOLD, $$FILEM SKIPOLD=0, $$FILEM CMPOLD=ALL, $$FILEM DDNEW=IMACTNEW, $$FILEM SKIPNEW=0, $$FILEM CMPNEW=ALL -- 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: CFMODE STATUS
The OP didn't ask how to set it, they asked where the setting is saved. And no, it doesn't go back to a default when you POR, which I'm sure is why the OP was curious / asking where the setting is saved. DYNDISP is also saved. The CF command is: MODE NONVOLatile | VOLatile Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ On Fri, 10 Sep 2010 11:21:05 -0400, Stan Weyman stan.wey...@emc.com wrote: This is set in the HMC while within the CF partition. The command escapes me at the moment as I don't do this kind of support any longer (something simple like SET MODE NONVOLATILE) but it is indeed kept across IPLs but does go back to a default I believe when a POR is performed... Regards, Stan Stan Weyman Senior Software Engineer stan.wey...@emc.com EMC² (508)249-3966 where information lives It is wise to keep in mind that neither success nor failure is ever final... -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of SUBSCRIBE IBM-MAIN itsystem BPER Sent: Friday, September 10, 2010 5:02 AM To: IBM-MAIN@bama.ua.edu Subject: CFMODE STATUS I cannot found whre the MODE of the CF (VOLATILE or NONVOLATILE) is saved ? Somehewhere in the SE ? It survives to a poweron reset. Thanks and regards Bernard Coeytaux -- 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: REXX : how to determine the member name of a DD card
Try this: Parse sysoutline.x pdsname ( memname ) Say memname -- Donald Grinsell State of Montana 406-444-2983 dgrins...@mt.gov He who returns from a journey is not the same as he who left. -- Chinese Proverb -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Hardee, Charles H Sent: Friday, 10 September 2010 09:42 To: IBM-MAIN@bama.ua.edu Subject: Re: REXX : how to determine the member name of a DD card No, LISTDSI will not work, at least not for me. Here's my REXX (based on Jon's earlier REXX): /* rexx */ Z=OUTTRAP(SYSOUTLINE.,'*',NOCONCAT) ADDRESS TSO INDEX=' ' LISTALC STATUS Z=OUTTRAP(OFF) I=1 DO i=1 to SYSOUTLINE.0 test=word(sysoutline.i,1) if test='DD1' then do x=i-1 say sysoutline.x i=sysoutline.0 end end z=listdsi(DD1 FILE) say sysdsname exit I then allocated a file to my TSO session: :ALLOC FI(DD1) DA(pdsname(memname)) SHR I then ran the REXX and received two displays as expected, but not what was wanted by the OP: pdsname(memname) pdsname The first line was from the say sysoutline.x and the second line was from say sysdsname As can be seen, no member name from LISTDSI. Chuck Charles Hardee CA technologies Sr Sustaining Engineer Tel: +1-952-838-1039 charles.har...@ca.com -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Peter Nuttall Sent: Friday, September 10, 2010 9:29 AM To: IBM-MAIN@bama.ua.edu Subject: Re: REXX : how to determine the member name of a DD card In the second part of Itschak's reply he tells you how to extract the member name from the returned sysdsname ... CUNY Yann yc...@externe.generali.fr Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 10/09/2010 04:05 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: REXX : how to determine the member name of a DD card With the listdsi, i only have the pdsname in the sysdsname variable ... The member name is not indicated. -Message d'origine- De : IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] De la part de Itschak Mugzach Envoyé : jeudi 9 septembre 2010 18:02 À : IBM-MAIN@bama.ua.edu Objet : Re: REXX : how to determine the member name of a DD card I would try LISTDSI('xxx file). It might return the dsnname into SYSDSNAME which you can investigate using member=(word(translate(sysdsname,' ',()'),2) ITschak -- 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 message, including any attachments transmitted with it, is CONFIDENTIAL and may contain legally privileged information. This message is intended solely for the use of the individual or entity to whom it is addressed. If you have received this message in error, please notify us immediately and delete it from your system. Please visit our website to read the full disclaimer: http://www.euroclear.com/site/public/disclaimer -- 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: CFMODE STATUS
you are correct Mark. I do think at one point it did revert on POR because I remember having to reset it for some reason. As I said, I don't directly do this support (did so in another life elsewhere g). Thanks for correcting my mistake... regards, Stan Stan Weyman Senior Software Engineer stan.wey...@emc.com EMC² (508)249-3966 where information lives It is wise to keep in mind that neither success nor failure is ever final... -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mark Zelden Sent: Friday, September 10, 2010 11:56 AM To: IBM-MAIN@bama.ua.edu Subject: Re: CFMODE STATUS The OP didn't ask how to set it, they asked where the setting is saved. And no, it doesn't go back to a default when you POR, which I'm sure is why the OP was curious / asking where the setting is saved. DYNDISP is also saved. The CF command is: MODE NONVOLatile | VOLatile Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ On Fri, 10 Sep 2010 11:21:05 -0400, Stan Weyman stan.wey...@emc.com wrote: This is set in the HMC while within the CF partition. The command escapes me at the moment as I don't do this kind of support any longer (something simple like SET MODE NONVOLATILE) but it is indeed kept across IPLs but does go back to a default I believe when a POR is performed... Regards, Stan Stan Weyman Senior Software Engineer stan.wey...@emc.com EMC² (508)249-3966 where information lives It is wise to keep in mind that neither success nor failure is ever final... -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of SUBSCRIBE IBM-MAIN itsystem BPER Sent: Friday, September 10, 2010 5:02 AM To: IBM-MAIN@bama.ua.edu Subject: CFMODE STATUS I cannot found whre the MODE of the CF (VOLATILE or NONVOLATILE) is saved ? Somehewhere in the SE ? It survives to a poweron reset. Thanks and regards Bernard Coeytaux -- 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
Jobclas Protection - IEFUJI
Hi, I need to manage the use of classes when users submit their batch processes . . . I have been researching the topic and found that I can do it using the exit IEFUJI and defining a special class in RACF. Has anyone done this implementation before ? Grateful if you can help me Thanks. Alvaro. -- 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: CFMODE STATUS
On Fri, 10 Sep 2010 08:28:05 -0500, Mark Zelden mzel...@flash.net wrote: On Fri, 10 Sep 2010 04:01:53 -0500, SUBSCRIBE IBM-MAIN itsystem BPER itsys...@bper.dpn.ch wrote: I cannot found whre the MODE of the CF (VOLATILE or NONVOLATILE) is saved ? Somehewhere in the SE ? It survives to a poweron reset. Thanks and regards Bernard Coeytaux Don't know. In EEPROM somewhere? Why do you need to know?Isn't it enough to know that the setting is preserved across POR? And the answer (sort of) is in the PR/SM planning manual: The settings established using DYNDISP, MODE and TIMEZONE commands are recorded in the policy file for the coupling facility. As a result, all values are persistent across resets, deactivations, and reactivations. Now, as to what is the CF policy file and where is it stored, back to my original response: No clue. :-) -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.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: Moving JES2 NJE function from one system to another in a MAS?
Mark Z. Your #2 answer matches our setup: 2) If they have the same APPL, then you probably have to $PLGN(n) from one LPAR and start it on the other before you can start nodes. Again, you also need defined / active and idle lines. This assumes the other LPARs VTAM definitions are in place to do so. If the VTAMLST is shared, you probably inact the node on one LPAR and activate it on the other. I tried this out on our sandbox JES2 MAS LPARS and it worked great. I used the '$PLGN(1)' on one, and then '$SLGN(1)' on the other to move the NJE SNA APPLID. Since the sandbox doesn't have any SNA connections with other systems, I couldn't test beyond that, but at least now I know that the NJE APPLID move process works. Thanks, Mark Regan From: Mark Zelden mzel...@flash.net To: IBM-MAIN@bama.ua.edu Sent: Thu, September 9, 2010 2:22:24 PM Subject: Re: Moving JES2 NJE function from one system to another in a MAS? On Thu, 9 Sep 2010 10:57:52 -0700, Mark T. Regan, K8MTR netsfw-ibmm...@yahoo.com wrote: We've never had to do this before, but since acquiring these two JES2 (we're a JES3 shop) systems via an acquisition, we need to set up a process to move NJE from one JES2 LPAR to another. Can anyone supply me with the commands to move NJE? A lot of assumptions made below so we need more information. 1) Is this something that was done prior to acquisition and you just need to documented it, or was it never set up to do this before? 2) Are both LPARs in the same MAS? 3) Are there any static NJE connections defined (CONNECT statements in JES2)? 4) Is it SNA or TCP/IP NJE? Assuming it is SNA and both LPARs are in the same MAS: 1) If both LPARs have their own LOGON (VTAM APPL), all you may need to do is restart the connections from the other LPAR ($SN,A=applid). You need to have the LOGON active and active/idle lines. 2) If they have the same APPL, then you probably have to $PLGN(n) from one LPAR and start it on the other before you can start nodes. Again, you also need defined / active and idle lines. This assumes the other LPARs VTAM definitions are in place to do so. If the VTAMLST is shared, you probably inact the node on one LPAR and activate it on the other. 3) If static connections are defined, the other end must have the mas member defined or it won't connect. I've seen it done both ways: Same APPLID that gets moved or each LPAR with its own APPLID. If you define a new / 2nd appl, then coordination is needed with your partners, so I think sharing the same APPLID is more common. I haven't had to do something like this from scratch (I've defined new nodes and swapped SNA for IP) in more years than I can recall specifically, so I hope I didn't forget something or give you wrong information. Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.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 -- 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: CFMODE STATUS
On Fri, 10 Sep 2010 12:00:52 -0400, Stan Weyman stan.wey...@emc.com wrote: you are correct Mark. I do think at one point it did revert on POR because I remember having to reset it for some reason. As I said, I don't directly do this support (did so in another life elsewhere g). Thanks for correcting my mistake... Yes, that is true from what I recall. I'm not sure if it changed with z900 or a generation (or 2) before or with z990 and later. Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.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: Jobclas Protection - IEFUJI
On Fri, 10 Sep 2010 10:58:15 -0500, Alvaro Quintupray B. aquin...@bancoestado.cl wrote: Hi, I need to manage the use of classes when users submit their batch processes . . . I have been researching the topic and found that I can do it using the exit IEFUJI and defining a special class in RACF. Has anyone done this implementation before ? If you searched the archives, then you will see that the answer is yes. Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.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: REXX : how to determine the member name of a DD card
That should have been: Parse var sysoutline.x pdsname ( memname ) Regards. -- Donald Grinsell State of Montana 406-444-2983 dgrins...@mt.gov The limits of my language are the limits of my world. -- Ludwig Wittgenstein -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Grinsell, Don Sent: Friday, 10 September 2010 10:00 To: IBM-MAIN@bama.ua.edu Subject: Re: REXX : how to determine the member name of a DD card Try this: Parse sysoutline.x pdsname ( memname ) Say memname -- Donald Grinsell State of Montana 406-444-2983 dgrins...@mt.gov He who returns from a journey is not the same as he who left. -- Chinese Proverb -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Hardee, Charles H Sent: Friday, 10 September 2010 09:42 To: IBM-MAIN@bama.ua.edu Subject: Re: REXX : how to determine the member name of a DD card No, LISTDSI will not work, at least not for me. Here's my REXX (based on Jon's earlier REXX): /* rexx */ Z=OUTTRAP(SYSOUTLINE.,'*',NOCONCAT) ADDRESS TSO INDEX=' ' LISTALC STATUS Z=OUTTRAP(OFF) I=1 DO i=1 to SYSOUTLINE.0 test=word(sysoutline.i,1) if test='DD1' then do x=i-1 say sysoutline.x i=sysoutline.0 end end z=listdsi(DD1 FILE) say sysdsname exit I then allocated a file to my TSO session: :ALLOC FI(DD1) DA(pdsname(memname)) SHR I then ran the REXX and received two displays as expected, but not what was wanted by the OP: pdsname(memname) pdsname The first line was from the say sysoutline.x and the second line was from say sysdsname As can be seen, no member name from LISTDSI. Chuck Charles Hardee CA technologies Sr Sustaining Engineer Tel: +1-952-838-1039 charles.har...@ca.com -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Peter Nuttall Sent: Friday, September 10, 2010 9:29 AM To: IBM-MAIN@bama.ua.edu Subject: Re: REXX : how to determine the member name of a DD card In the second part of Itschak's reply he tells you how to extract the member name from the returned sysdsname ... CUNY Yann yc...@externe.generali.fr Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 10/09/2010 04:05 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: REXX : how to determine the member name of a DD card With the listdsi, i only have the pdsname in the sysdsname variable ... The member name is not indicated. -Message d'origine- De : IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] De la part de Itschak Mugzach Envoyé : jeudi 9 septembre 2010 18:02 À : IBM-MAIN@bama.ua.edu Objet : Re: REXX : how to determine the member name of a DD card I would try LISTDSI('xxx file). It might return the dsnname into SYSDSNAME which you can investigate using member=(word(translate(sysdsname,' ',()'),2) ITschak -- 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 message, including any attachments transmitted with it, is CONFIDENTIAL and may contain legally privileged information. This message is intended solely for the use of the individual or entity to whom it is addressed. If you have received this message in error, please notify us immediately and delete it from your system. Please visit our website to read the full disclaimer: http://www.euroclear.com/site/public/disclaimer -- 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: CFMODE STATUS
my guess is it changed after the z900 as I previously supported a pair of z900 from which we migrated to a pair of z10s. At that point I suspect we no longer had to do the reset. Prior to that it was years before when we converted off a pair of 9672s. Water under the bridge though as you are correct. Now-a-days it's Set it and forget it and it is kept in the SE itself. Stan p.s. as an aside and not to stroke your ego g but I do appreciated some of the utilities you've made available. IPLINFO being one I like as it takes very little set up time to use. Every once in a while when I have time I explore to see what's out there and invariably wander by your website. Thanks Stan Weyman Senior Software Engineer stan.wey...@emc.com EMC² (508)249-3966 where information lives It is wise to keep in mind that neither success nor failure is ever final... -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mark Zelden Sent: Friday, September 10, 2010 12:17 PM To: IBM-MAIN@bama.ua.edu Subject: Re: CFMODE STATUS On Fri, 10 Sep 2010 12:00:52 -0400, Stan Weyman stan.wey...@emc.com wrote: you are correct Mark. I do think at one point it did revert on POR because I remember having to reset it for some reason. As I said, I don't directly do this support (did so in another life elsewhere g). Thanks for correcting my mistake... Yes, that is true from what I recall. I'm not sure if it changed with z900 or a generation (or 2) before or with z990 and later. Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.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 -- 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
CA OPS/MVS phone home
Does OPS have the ability to call a phone number and send a message to someone? Or does another product, eg NetView? I assume that any of them can send a email but I hate assumption? TIA Jack -- 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: REXX : how to determine the member name of a DD card
You are right. My example was just showing how to get the full filename. I (mistakenly) thought that anyone with a little bit of REXX knowledge would be able to parse out the membername from the full name. Jon L. Veilleux veilleu...@aetna.com (860) 636-9179 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Hardee, Charles H Sent: Friday, September 10, 2010 11:42 AM To: IBM-MAIN@bama.ua.edu Subject: Re: REXX : how to determine the member name of a DD card No, LISTDSI will not work, at least not for me. Here's my REXX (based on Jon's earlier REXX): /* rexx */ Z=OUTTRAP(SYSOUTLINE.,'*',NOCONCAT) ADDRESS TSO INDEX=' ' LISTALC STATUS Z=OUTTRAP(OFF) I=1 DO i=1 to SYSOUTLINE.0 test=word(sysoutline.i,1) if test='DD1' then do x=i-1 say sysoutline.x i=sysoutline.0 end end z=listdsi(DD1 FILE) say sysdsname exit I then allocated a file to my TSO session: :ALLOC FI(DD1) DA(pdsname(memname)) SHR I then ran the REXX and received two displays as expected, but not what was wanted by the OP: pdsname(memname) pdsname The first line was from the say sysoutline.x and the second line was from say sysdsname As can be seen, no member name from LISTDSI. Chuck Charles Hardee CA technologies Sr Sustaining Engineer Tel: +1-952-838-1039 charles.har...@ca.com -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Peter Nuttall Sent: Friday, September 10, 2010 9:29 AM To: IBM-MAIN@bama.ua.edu Subject: Re: REXX : how to determine the member name of a DD card In the second part of Itschak's reply he tells you how to extract the member name from the returned sysdsname ... CUNY Yann yc...@externe.generali.fr Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 10/09/2010 04:05 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: REXX : how to determine the member name of a DD card With the listdsi, i only have the pdsname in the sysdsname variable ... The member name is not indicated. -Message d'origine- De : IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] De la part de Itschak Mugzach Envoyé : jeudi 9 septembre 2010 18:02 À : IBM-MAIN@bama.ua.edu Objet : Re: REXX : how to determine the member name of a DD card I would try LISTDSI('xxx file). It might return the dsnname into SYSDSNAME which you can investigate using member=(word(translate(sysdsname,' ',()'),2) ITschak -- 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 message, including any attachments transmitted with it, is CONFIDENTIAL and may contain legally privileged information. This message is intended solely for the use of the individual or entity to whom it is addressed. If you have received this message in error, please notify us immediately and delete it from your system. Please visit our website to read the full disclaimer: http://www.euroclear.com/site/public/disclaimer -- 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
Re: Jobclas Protection - IEFUJI
Yes, I have. UJI is the final say, but to be nice to your users, you might do the same security checks in the TSO submit exit, and then also in SDSF to stop the casual user from submitting to one class, and then changing it to another. _ Dave Jousma Assistant Vice President, Mainframe Services david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB1G p 616.653.8429 f 616.653.8497 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Alvaro Quintupray B. Sent: Friday, September 10, 2010 11:58 AM To: IBM-MAIN@bama.ua.edu Subject: Jobclas Protection - IEFUJI Hi, I need to manage the use of classes when users submit their batch processes . . . I have been researching the topic and found that I can do it using the exit IEFUJI and defining a special class in RACF. Has anyone done this implementation before ? Grateful if you can help me Thanks. Alvaro. -- 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 transmission contains information that is confidential and may be privileged. It is intended only for the addressee(s) named above. If you receive this e-mail in error, please do not read, copy or disseminate it in any manner. If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of this information is prohibited. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please erase it from your computer system. Your assistance in correcting this error is appreciated. -- 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: Jobclas Protection - IEFUJI
HASPUX06 also snip I need to manage the use of classes when users submit their batch processes . . . I have been researching the topic and found that I can do it using the exit IEFUJI and defining a special class in RACF. Has anyone done this implementation before ? Grateful if you can help me /snip -- 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: IBM and Texas – Outsourcing troubles part two
Funny how companies still figure on IBM to have all the answers when all they need to do is look internally. I've seen this more times than I can count. On Fri, Sep 3, 2010 at 7:20 AM, Anton Britz antonbr...@gmail.com wrote: Hi, Did you see this article ? Several threats and a long letter detailing what it calls “chronic failures” of agreed service levels, Texas has made another move in its efforts to fix a seven-year, $863 million outsourcing contract with IBM that’s gone bad. The Texas Department of Information Resources is now saying it will rebid – four years early – all work now performed by IBM. n a letter sent to IBM earlier this month, Karen Robinson, the department’s executive director said failure to correct alleged deficiencies leaves her “no course but to pursue procurement,” according to this article in the Dallas Morning News. In the letter, Robinson said the agency won’t terminate the IBM contract because it “has determined that it is not in the best interests of the state to exercise that right at this time,” the article reported. IBM maintains it has done nothing wrong, and in the article IBM spokesman Jeff Tieszen said the company disagrees with the department’s accusations, adding that “IBM has worked in cooperation and good faith” with the department and hopes “to move the data center services project forward for the benefit of the state.” You all may recall that the contract was first awarded to IBM in 2006, and by 2008, problems surfaced. There was a suspension and IBM promised to fix the problems. The contract was re-started, but things got bad again in the fall of 2009, and the contract was renegotiated. IBM was contracted to migrate data center operations for 27 agencies into two consolidated data centers. The consolidation, per IBM’s bid, was to be done within 24 months. As I wrote back in July, in this blog, only five agencies have been completely transformed, according to Texas. Moreover, Texas claims, IBM is only working on the transformation of five of the remaining 22 agencies, and that these five are “only partial” transformations. http://www.theoutsourceblog.com/2010/08/ibm-and-texas-outsourcing-troubles-part-two/ -- 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 -- Guy Gardoit z/OS Systems Programming -- 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: Jobclas Protection - IEFUJI
Dave, You are right, but I have any way to submit jobs, from TSO, ROSCOE, TWS, FTP, CICS, etc.. Atte., Alvaro Quintupray Burgos Administración de Sistemas Mainframes BancoEstado - Chile Morandé 25, piso 3 - Santiago F:(56-2) 970-3023 Anexo: 23023 -Mensaje original- De: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] En nombre de Jousma, David Enviado el: Viernes, 10 de Septiembre de 2010 13:08 Para: IBM-MAIN@bama.ua.edu Asunto: Re: Jobclas Protection - IEFUJI Yes, I have. UJI is the final say, but to be nice to your users, you might do the same security checks in the TSO submit exit, and then also in SDSF to stop the casual user from submitting to one class, and then changing it to another. _ Dave Jousma Assistant Vice President, Mainframe Services david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB1G p 616.653.8429 f 616.653.8497 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Alvaro Quintupray B. Sent: Friday, September 10, 2010 11:58 AM To: IBM-MAIN@bama.ua.edu Subject: Jobclas Protection - IEFUJI Hi, I need to manage the use of classes when users submit their batch processes . . . I have been researching the topic and found that I can do it using the exit IEFUJI and defining a special class in RACF. Has anyone done this implementation before ? Grateful if you can help me Thanks. Alvaro. -- 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 transmission contains information that is confidential and may be privileged. It is intended only for the addressee(s) named above. If you receive this e-mail in error, please do not read, copy or disseminate it in any manner. If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of this information is prohibited. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please erase it from your computer system. Your assistance in correcting this error is appreciated. -- 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 La información contenida en este correo electrónico, así como en cualquiera de sus adjuntos, es confidencial y está dirigida exclusivamente a el o los destinatarios indicados. Cualquier uso, reproducción, divulgación o distribución por otras personas distintas de el o los destinatarios está estrictamente prohibida. Si ha recibido este correo por error, por favor notifíquelo inmediatamente al remitente y bórrelo de su sistema sin dejar copia del mismo. BancoEstado no acepta responsabilidad alguna por cualquier perdida o daño como consecuencia, directa o indirecta, del uso indebido de este e-mail o de los adjuntos al mismo. The information contained in this e-mail message may be privileged, confidential and protected from disclosure. If you are not the intended recipient, any further disclosure or use, dissemination, distribution or copying of this message or any attachment is strictly prohibited. If you think you have received this e-mail message in error, please E-mail the sender and delete the e-mail. BancoEstado is not liable for any loss or damage resulting from illegal use of this E-mail or any attachment. -- 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: CA OPS/MVS phone home
The following OPS/MVS MSG rule and REXX uses SMTP to send message to e-mail and phones. )MSG IEC070I )PROC IF (MSG.JOBNAME = DLISASPP), THEN DO ADDRESS OSF /*---*/ /* SCHEDULE AN OPS/REXX PROGRAM TO RUN IN A SERVER. */ /* THE BELOW PASSES THE MESSAGE (MSG.TXT) TO THE */ /* MEMBER 'IEC070I' IN CAI.OPSMVS.TARG.REXX */ /*---*/ OI IEC070IE MSG.TEXT RETURN END RETURN SUPPRESS IEC070I member in IN CAI.OPSMVS.TARG.REXX /*---*/ 0025 /* You must customize the following code for your environment */ 0026 /* or change it to obtain the JES node name in some other way. */ 0027 /*--+1+2+3+4+5+6+*/ 0028 targeta =9995556...@mobile.mycingular.com 00290001 targetb =9995554...@vtext.com targetc =oncall...@kmc-usa.com 00290101 system = OPSINFO('SMFID') 0030 ARG msgtxt 00301000 select 00302000 when system = 'KMC1' then node = 'KMCJES2' 00303000 when system = 'CPAC' then node = 'CPACJES2' 00304000 otherwise 00305000 do 00306000 say OPSINFO(PROGRAM) unable to determine the JES node 00307000 exit 00308000 end 00309000 end 0031 /*---*/ 0032 /* Build the variables that are used to create the email text */ 0033 /*--+1+2+3+4+5+6+*/ 0034 date = DATE('N') 0035 ipltime = OPSINFO('ipltime') 0036 ipldate = OPSINFO('ipldate') 0037 iplyr = SUBSTR(ipldate,1,4) 0038 iplmn = SUBSTR(ipldate,5,2) 0039 ipldy = SUBSTR(ipldate,7,2) 0040 ipldate = iplmn'/'ipldy'/'iplyr 0041 parse var date dd mm yy 0042 yy=SUBSTR(yy,3,2) 0043 date = dd mm yy 0044 /*---*/ 0045 /* Allocate the SMTP output file*/ 0046 /*--+1+2+3+4+5+6+*/ 0047 address OPSDYNAM ALLOC FILE(PUNCH1) SYSOUT(B) WRITER(SMTP) 0048 if RC 0 then 0049 do 0050 say EMAILTXT OPSDYNAM ALLOC RC=RC 0051 exit 0052 end 0053 /*---*/ 0054 /* Queue the sample email text onto the stack */ 0055 /*--+1+2+3+4+5+6+*/ 0056 queue HELO node 0057 queue MAIL FROM:OPSMVS@node 0058 queue RCPT TO:targeta 00590001 queue RCPT TO:targetb 00591001 queue RCPT TO:targetc queue data 0060 queue Date:date time() EST 0061 queue To: targeta 00620001 queue To: targetb 00621001 queue To: targetc queue Subject: IEC070I: out of space occured 0063 queue 0064 queue The following message has occured: 0065 queue msgtxt 0066 queue Please take the appropriate action. 0067 queue This e-mail came from OPS/MVS. 0068 queue 0069 /*---*/ 0070 /* Send the email from the records on the stack */ 0071 /*--+1+2+3+4+5+6+*/ 0072 address TSO EXECIO * DISKW PUNCH1 ( FINIS 0073 if RC 0 then 0074 do 0075 say EMAILTXT EXECIO DISKW RC=RC 0076 exit 0077 end 0078 /*---*/ 0079 /* Free the SMTP output file*/ 0080 /*--+1+2+3+4+5+6+*/ 0081 address OPSDYNAM FREE FILE(PUNCH1) 0082 if RC 0 then 0083 do 0084 say EMAILTXT OPSDYNAM FREE RC=RC 0085 exit 0086 end 0087 exit Dale McCart Senior Systems Programmer / zSeries, z/OS, z/VM, zLinux Kawasaki Motors Corp., U.S.A. Telephone: (949) 770-0400 extension 2316 Fax: (949) 460-5576 E-mail: dale.mcc...@kmc-usa.com * This Email is covered by the Electronic Communications Privacy Act, 18 U.S.C. Sections 2510-2521, and is confidential, legally privileged, and exempt from disclosure. The information contained in this Email is intended only for the use of the individual or entity named above. Any review, retransmission, dissemination or other use of, or taking of any action in reliance upon, this information by persons other than the intended recipient is
Re: Jobclas Protection - IEFUJI
Both IEFUJI and HASPUX06 will be called for all jobs submitted. HASPUX06 will not be called if you are JES3, but I am sure there is an equivalent exit (any JES3 types jump in here and help me out!). HTH, snip You are right, but I have any way to submit jobs, from TSO, ROSCOE, TWS, FTP, CICS, etc.. /snip -- 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: Jobclas Protection - IEFUJI
OK, well here is my IEFUJI IEFUJI CSECT IEFUJI AMODE 31 ADDRESSING MODE @R2A IEFUJI RMODE ANYRESIDENCE MODE @R2A REGA EQU 2 @ OF 36 BYTES OF JOB INFO REGC EQU 4 @ OF 1 BYTE WITH EFF JOB PRTY D20 EQU 20 DISP OF 20 L1 EQU 1 LENGTH OF 1 D12 EQU 12 DISP OF 12 D0 EQU 0 DISP OF 0 D31 EQU 31 DISP OF 31 R15 EQU 15 REG 15 R14 EQU 14 REG 14 R13 EQU 13 REG 13 R12 EQU 12 REG 12 R11 EQU 11 REG 11 R0 EQU 0 REG 0 R1 EQU 1 REG 1 R4 EQU 4 REG 4 R5 EQU 5 REG 5 R6 EQU 6 REG 6 R7 EQU 7 REG 7 GETMAINED STORAGE ADDR R8 EQU 8 REG 8 R9 EQU 9 REG 9 R10 EQU 10 REG 9 *-- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --* BAKR R14,R0 SAVE STUFF ON THE LINKAGE STACK LRR12,R15 SAVE ENTRY POINT ADDRESS USING IEFUJI,R12 ESTABLISH ADDRESSABILITY LMREGA,REGC,D0(R1)GET PARAMETER ADDRESSES * LA R0,WORKLENLOAD SIZE OF WORKAREA GETMAIN R,LV=(0) GET CORE FOR RACF WORKAREA LRR7,R1 USING WORK,R7 SET ADDRESSABILITY TO DSECT * * IS THIS A BATCH JOB? * L R10,CVTPTR CVT L R10,CVTTCBP-CVTMAP(R10) NEXT/CURRENT TCB/ASCB TABLE L R10,12(R10) CURRENT ASCB L R10,ASCBJBNI-ASCB(R10) JOBNAME POINTER FOR BATCH JOBS LTR R10,R10 TSO OR STARTED TASK? BZOKEXIT YES - GET OUT * * DO SAF CHECK FOR JOBCLASS AUTHORIZATION * CHKAUTH MVC JOBCLASS(L1),D31(REGA) GET JOBCLASS MVI RACRNAME,C' ' INSERT BLANK MVC RACRNAME+1(39),RACRNAME BLANK PAD FIELD MVC RACRNAME(14),=C'FTB.JOBCLASS. ' RESOURCE NAME MVC RACRNAME+13(1),JOBCLASS MOVE IN REQUESTED JOB CLASS LAR6,RACRNAME LOAD ADDR OF RESOURCE MVC RACHKWRK(RACLEN),RACHECK LAR8,RACHKWRK LAR5,RACWORK RACROUTE RELEASE=2.2,REQUEST=AUTH,WORKA=(R5),ENTITY=((R6)), X MF=(E,(R8)) CHR15,=H'8' AUTHORIZATION GIVEN? BECANCEL NO - TELL THEM * OKEXIT LRR1,R7 FREEMAIN R,LV=WORKLEN,A=(1) SRR15,R15 ZERO R15 PR RETURN * CANCEL LRR1,R7 FREEMAIN R,LV=WORKLEN,A=(1) LAR15,4 RESTORE RETURN CODE
Re: CA OPS/MVS phone home
I do know that OPS can send emails, and we use it to send the emails to our cell phones via a text message. Don't remember the actual process, but I'm sure someone else can fill in that detail. I believe that OPS requires a separate server and software to actually do the calling out - we used to do this, but we lost the server hardware to another group awhile back. C. Todd Burrell PMP, MCSE 2003:Security Security+, Network+ ITIL V3 Foundations CSC Lead z/OS Systems Programmer ITSO (404) 723-2017 (Cell) -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Jack Kelly Sent: Friday, September 10, 2010 12:25 PM To: IBM-MAIN@bama.ua.edu Subject: CA OPS/MVS phone home Does OPS have the ability to call a phone number and send a message to someone? Or does another product, eg NetView? I assume that any of them can send a email but I hate assumption? TIA Jack -- 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: Jobclas Protection - IEFUJI
O.K. Thank you very much to all boys, and someone has sent me all the necessary information and that is all I need. Thanks again Saludos para todos. Atte., Alvaro Quintupray Burgos Administración de Sistemas Mainframes BancoEstado - Chile Morandé 25, piso 3 - Santiago F:(56-2) 970-3023 Anexo: 23023 -Mensaje original- De: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] En nombre de Jousma, David Enviado el: Viernes, 10 de Septiembre de 2010 13:36 Para: IBM-MAIN@bama.ua.edu Asunto: Re: Jobclas Protection - IEFUJI OK, well here is my IEFUJI IEFUJI CSECT IEFUJI AMODE 31 ADDRESSING MODE @R2A IEFUJI RMODE ANYRESIDENCE MODE @R2A REGA EQU 2 @ OF 36 BYTES OF JOB INFO REGC EQU 4 @ OF 1 BYTE WITH EFF JOB PRTY D20 EQU 20 DISP OF 20 L1 EQU 1 LENGTH OF 1 D12 EQU 12 DISP OF 12 D0 EQU 0 DISP OF 0 D31 EQU 31 DISP OF 31 R15 EQU 15 REG 15 R14 EQU 14 REG 14 R13 EQU 13 REG 13 R12 EQU 12 REG 12 R11 EQU 11 REG 11 R0 EQU 0 REG 0 R1 EQU 1 REG 1 R4 EQU 4 REG 4 R5 EQU 5 REG 5 R6 EQU 6 REG 6 R7 EQU 7 REG 7 GETMAINED STORAGE ADDR R8 EQU 8 REG 8 R9 EQU 9 REG 9 R10 EQU 10 REG 9 *-- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --* BAKR R14,R0 SAVE STUFF ON THE LINKAGE STACK LRR12,R15 SAVE ENTRY POINT ADDRESS USING IEFUJI,R12 ESTABLISH ADDRESSABILITY LMREGA,REGC,D0(R1)GET PARAMETER ADDRESSES * LA R0,WORKLENLOAD SIZE OF WORKAREA GETMAIN R,LV=(0) GET CORE FOR RACF WORKAREA LRR7,R1 USING WORK,R7 SET ADDRESSABILITY TO DSECT * * IS THIS A BATCH JOB? * L R10,CVTPTR CVT L R10,CVTTCBP-CVTMAP(R10) NEXT/CURRENT TCB/ASCB TABLE L R10,12(R10) CURRENT ASCB L R10,ASCBJBNI-ASCB(R10) JOBNAME POINTER FOR BATCH JOBS LTR R10,R10 TSO OR STARTED TASK? BZOKEXIT YES - GET OUT * * DO SAF CHECK FOR JOBCLASS AUTHORIZATION * CHKAUTH MVC JOBCLASS(L1),D31(REGA) GET JOBCLASS MVI RACRNAME,C' ' INSERT BLANK MVC RACRNAME+1(39),RACRNAME BLANK PAD FIELD MVC RACRNAME(14),=C'FTB.JOBCLASS. ' RESOURCE NAME MVC RACRNAME+13(1),JOBCLASS MOVE IN REQUESTED JOB CLASS LAR6,RACRNAME LOAD ADDR OF RESOURCE MVC RACHKWRK(RACLEN),RACHECK LAR8,RACHKWRK LAR5,RACWORK RACROUTE RELEASE=2.2,REQUEST=AUTH,WORKA=(R5),ENTITY=((R6)), X MF=(E,(R8)) CHR15,=H'8' AUTHORIZATION GIVEN? BECANCEL NO - TELL THEM * OKEXIT LRR1,R7 FREEMAIN R,LV=WORKLEN,A=(1) SRR15,R15 ZERO R15 PR RETURN * CANCEL LRR1,R7 FREEMAIN R,LV=WORKLEN,A=(1) LAR15,4 RESTORE RETURN CODE PR RETURN *-- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --* * GET USER WORKSPACE* *-- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --* RACHECK RACROUTE REQUEST=AUTH,CLASS='FACILITY',ATTR=READ,MF=L RACLEN EQU *-RACHECK WORK DSECT RACRNAME DSCL39RACF RESOURCE NAME RACHKWRK DSCL(RACLEN) RACWORK DSCL512 SAVEAREA DS18F JOBCLASS DSCL1 WORKLEN EQU (*-WORK) CVT DSECT=YES00439*6 IHAASCB00440*6 END _ Dave Jousma Assistant Vice President, Mainframe Services david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB1G p 616.653.8429 f 616.653.8497 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Quintupray Burgos Alvaro Sent: Friday, September 10, 2010 1:18 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Jobclas Protection - IEFUJI Dave, You are right, but I have any way to submit jobs, from TSO, ROSCOE, TWS, FTP, CICS, etc..
How does VTAM handle duplicate MODEENT names in a logmode table?
The title says it all, but I'll lay out the details so you can understand why I want to know. We have a modified version of ISTINCLM located in the VTAMLIB concatenation ahead of the default in SYS1.VTAMLIB. That member is missing the CPSVCMG logmode needed for an EE connection. The CPSVCMG logmode can be found in the default IBM ISTINCLM member. There is no source for the customized member, but I wrote a quick REXX exec that can regenerate a compatible source member so I can integrate additional entries from the IBM source. When I reassemble the source I get some duplicate labels - 21 in all. Actually, they are duplicate MODEENT LOGMODE=name entries. I can see from the current load module that duplicate entries really do exist. Part of the problem is that they are not actually complete duplicates, as some of the other fields do not match. Therefore, that prompts the question of how VTAM is handling this. Does VTAM use the first matching entry for the requested name in the table? Does it use the last entry? Does generate a hash table at load time, and select one entry based on some other variable? I'd like to clean up the source to remove the unused entries, but without knowing which entry VTAM uses, I don't know which to delete. On the other hand, I could leave the duplicates in place, ignore the assembler errors and create a new load module with the additional IBM-original entries added, as long as I can be assured that doing so won't alter the way VTAM handles the duplicates. Of course the second option leaves me open to some future issue should VTAM's handling of duplicates be changed. -- 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: Fwd: IBM and Texas – Outsourcing troubles part two
The problem IMHO is new management and accountants The new management has cut their teeth on the server world for example we had a deputy cio hire in, we were talking about the mainframe one day and I explained to him how we ran cics(explained it) a db, batch, users(developing cobol), etc and he was amazed. They are used to having 1 box runing a db, one running a customer interface, oneyou see where I am going. The you have the accountant seeing the charge for the mainframe and software, but when they look at the sever side they dont seem to add all the figures to the bottom line. Plus when you outsource look at all the people removed form the payroll looks good until things turn to kaka Just my $.02 mace -- 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: Jobclas Protection - IEFUJI
On Fri, 10 Sep 2010 11:21:01 -0500, Mark Zelden wrote: On Fri, 10 Sep 2010 10:58:15 -0500, Alvaro Quintupray B. wrote: Hi, I need to manage the use of classes when users submit their batch processes . . . I have been researching the topic and found that I can do it using the exit IEFUJI and defining a special class in RACF. Has anyone done this implementation before ? If you searched the archives, then you will see that the answer is yes. You might consider using an automation product to do this instead. Unless your JOB Class structure never changes. Ours doesn't... didn't... until recently. We recently went tapeless. We had a bunch of JOB Classes reserved for tapes. The reasons for segregating tape JOBs from the rest suddenly went away. If we had this hard-coded in a JES exit, it would have taken a month to change it, test it and implement. The OPS/MVS change took a couple minutes. -- 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: Jobclas Protection - IEFUJI
On Fri, 10 Sep 2010 13:25:58 -0500, Dave Kopischke dgkopisc...@oppenheimerfunds.com wrote: On Fri, 10 Sep 2010 11:21:01 -0500, Mark Zelden wrote: On Fri, 10 Sep 2010 10:58:15 -0500, Alvaro Quintupray B. wrote: Hi, I need to manage the use of classes when users submit their batch processes . . . I have been researching the topic and found that I can do it using the exit IEFUJI and defining a special class in RACF. Has anyone done this implementation before ? If you searched the archives, then you will see that the answer is yes. You might consider using an automation product to do this instead. Unless your JOB Class structure never changes. Ours doesn't... didn't... until recently. We recently went tapeless. We had a bunch of JOB Classes reserved for tapes. The reasons for segregating tape JOBs from the rest suddenly went away. If we had this hard-coded in a JES exit, it would have taken a month to change it, test it and implement. The OPS/MVS change took a couple minutes. Dave, 1) I'm not sure how automation can catch it when a job is submitted like a JES2 exit can (from any submission source). At what point does OPS/MVS catch this and how does it deal with it specifically when someone uses or tries to use a class they shouldn't? What do you base the permission on? Userid pattern? Jobname? 2) Even though IEFUJI only catches it at job initiation (instead of submit time), I don't understand how automation can even do it then. With JES2 INITs the execution class is shown in a WTO, but not until the job is initiated and started. Some processing could take place before automation could cancel the job. With WLM controlled classes, how could automation even tell what jobclass was used when the job starts (SRVCLASS is shown in $HASP373). If you explain #1, that should explain #2 also. 3) If RACF is used for the check via JES2 exit 6 or IEFUJV (which is what the OP wants to do), there is no hard coding in the exit. If the rules of the game change, all that is needed is a RACF command to change the security. I agree if you hard coded rules in the exit, it could be cumbersome to change / implement the changes into a production system that had strict change control (otherwise, both SMF and JES2 exits can be changed dynamically if needed / desired). Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.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: Jobclas Protection - IEFUJI
---snip Hi, I need to manage the use of classes when users submit their batch processes . . . I have been researching the topic and found that I can do it using the exit IEFUJI and defining a special class in RACF. Has anyone done this implementation before ? Grateful if you can help me Thanks. Alvaro. ---unsnip--- I can't help with the RACF/IEFUJI mechanism, but I do have a TSO SUBMIT exit that enforces job classes based on USERID. You're welcome to a copy by private mail if you'll send me a private address for it. Rick -- 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: Jobclas Protection - IEFUJI
On Fri, 10 Sep 2010 13:44:42 -0500, Mark Zelden wrote: Much Snippage: You might consider using an automation product to do this instead. Unless your JOB Class structure never changes. Ours doesn't... didn't... until recently. Dave, 1) I'm not sure how automation can catch it when a job is submitted like a JES2 exit can (from any submission source). At what point does OPS/MVS catch this and how does it deal with it specifically when someone uses or tries to use a class they shouldn't? What do you base the permission on? Userid pattern? Jobname? 2) Even though IEFUJI only catches it at job initiation (instead of submit time), I don't understand how automation can even do it then. With JES2 INITs the execution class is shown in a WTO, but not until the job is initiated and started. Some processing could take place before automation could cancel the job. With WLM controlled classes, how could automation even tell what jobclass was used when the job starts (SRVCLASS is shown in $HASP373). If you explain #1, that should explain #2 also. I'm not the OPS/MVS administrator, so I'm not sure exactly where OPS/MVS gets control. In our environment, we have a process within OPS/MVS that includes a table of allowed user ID's within a class and cancels any JOB that doesn't match. My impression is it's post-reader but prior to execution. I can find out if it's important. But... 3) If RACF is used for the check via JES2 exit 6 or IEFUJV (which is what the OP wants to do), there is no hard coding in the exit. If the rules of the game change, all that is needed is a RACF command to change the security. I agree if you hard coded rules in the exit, it could be cumbersome to change / implement the changes into a production system that had strict change control (otherwise, both SMF and JES2 exits can be changed dynamically if needed / desired). I think a RACF hook in the exit would be a better approach. I'd also be interested in seeing a code example of this... Our OPS/MVS approach is also manual, so it's not optimal. Someone has to maintain the table and change it as things change. Employees, JOB Classes, etc. It's just a lot more flexible and quicker to adjust than a JES exit. -- 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: CA OPS/MVS phone home
On Fri, Sep 10, 2010 at 11:25 AM, Jack Kelly lasjke...@aol.com wrote: Does OPS have the ability to call a phone number and send a message to someone? Or does another product, eg NetView? I assume that any of them can send a email but I hate assumption? TIA Jack //jobname JOB acct,pgmname,CLASS=A,MSGCLASS=X etc //STEP02 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT2 DD SYSOUT=A,DEST=SMTPA //SYSINDD DISP=SHR,DSN= (IEBGENER Control Card) //SYSUT1 DD * DSN=EMAIL,DISP=SHR,RECFM=FB if not 80 bytes. HELO JESname MAIL FROM: sendern...@sitename1.com RCPT TO: recipie...@sitename1.com RCPT TO: ccrecipie...@sitename2.com RCPT TO: bccrecipie...@sitename3.com DATA REPLY-TO: replyton...@sitename1.com FROM: sendern...@sitename1.com TO: recipie...@sitename1.com CC: ccrecipie...@sitename2.com SUBJECT: HOW TO SEND EMAILS FROM MVS WITH SMTP SUPPORT Text of message. Please review the source code of this message as a instructive sample email. Note: some email servers have phone numbers as user ids and these would be limited to short text messages. Note or other carrige control characters allowed (required?) on each text line. Note Blind CCs not included after DATA line. Note Blank line to terminate Subject. Note: . line to indicate command. Note: QUIT command . QUIT -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- 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: Jobclas Protection - IEFUJI
On Fri, 10 Sep 2010 14:02:14 -0500, Dave Kopischke dgkopisc...@oppenheimerfunds.com wrote: I think a RACF hook in the exit would be a better approach. I'd also be interested in seeing a code example of this... Someone already posted a sample IEFUJI. It looks similar to mine but mine used an installation defined class instead of FACILITY and the resource name was JOBCLASS.x. My JES2 exit 6 used the same check. Our OPS/MVS approach is also manual, so it's not optimal. Someone has to maintain the table and change it as things change. Employees, JOB Classes, etc. It's just a lot more flexible and quicker to adjust than a JES exit. -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.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: CA OPS/MVS phone home
we do something similar ... our exec submits a batch job that runs XMITIP ... --Stephen On 09/10/2010 07:33 AM, Dale McCart wrote: The following OPS/MVS MSG rule and REXX uses SMTP to send message to e-mail and phones. )MSG IEC070I )PROC IF (MSG.JOBNAME = DLISASPP), THEN DO ADDRESS OSF /*---*/ /* SCHEDULE AN OPS/REXX PROGRAM TO RUN IN A SERVER. */ /* THE BELOW PASSES THE MESSAGE (MSG.TXT) TO THE */ /* MEMBER 'IEC070I' IN CAI.OPSMVS.TARG.REXX */ /*---*/ OI IEC070IE MSG.TEXT RETURN END RETURN SUPPRESS IEC070I member in IN CAI.OPSMVS.TARG.REXX /*---*/ 0025 /* You must customize the following code for your environment */ 0026 /* or change it to obtain the JES node name in some other way. */ 0027 /*--+1+2+3+4+5+6+*/ 0028 targeta =9995556...@mobile.mycingular.com 00290001 targetb =9995554...@vtext.com targetc =oncall...@kmc-usa.com 00290101 system = OPSINFO('SMFID') 0030 ARG msgtxt 00301000 select 00302000 when system = 'KMC1' then node = 'KMCJES2' 00303000 when system = 'CPAC' then node = 'CPACJES2' 00304000 otherwise 00305000 do 00306000 say OPSINFO(PROGRAM) unable to determine the JES node 00307000 exit 00308000 end 00309000 end 0031 /*---*/ 0032 /* Build the variables that are used to create the email text */ 0033 /*--+1+2+3+4+5+6+*/ 0034 date = DATE('N') 0035 ipltime = OPSINFO('ipltime') 0036 ipldate = OPSINFO('ipldate') 0037 iplyr = SUBSTR(ipldate,1,4) 0038 iplmn = SUBSTR(ipldate,5,2) 0039 ipldy = SUBSTR(ipldate,7,2) 0040 ipldate = iplmn'/'ipldy'/'iplyr 0041 parse var date dd mm yy 0042 yy=SUBSTR(yy,3,2) 0043 date = dd mm yy 0044 /*---*/ 0045 /* Allocate the SMTP output file*/ 0046 /*--+1+2+3+4+5+6+*/ 0047 address OPSDYNAM ALLOC FILE(PUNCH1) SYSOUT(B) WRITER(SMTP) 0048 if RC 0 then 0049 do 0050 say EMAILTXT OPSDYNAM ALLOC RC=RC 0051 exit 0052 end 0053 /*---*/ 0054 /* Queue the sample email text onto the stack */ 0055 /*--+1+2+3+4+5+6+*/ 0056 queue HELO node 0057 queue MAIL FROM:OPSMVS@node 0058 queue RCPT TO:targeta 00590001 queue RCPT TO:targetb 00591001 queue RCPT TO:targetc queue data 0060 queue Date:date time() EST 0061 queue To: targeta 00620001 queue To: targetb 00621001 queue To: targetc queue Subject: IEC070I: out of space occured 0063 queue 0064 queue The following message has occured: 0065 queue msgtxt 0066 queue Please take the appropriate action. 0067 queue This e-mail came from OPS/MVS. 0068 queue 0069 /*---*/ 0070 /* Send the email from the records on the stack */ 0071 /*--+1+2+3+4+5+6+*/ 0072 address TSO EXECIO * DISKW PUNCH1 ( FINIS 0073 if RC 0 then 0074 do 0075 say EMAILTXT EXECIO DISKW RC=RC 0076 exit 0077 end 0078 /*---*/ 0079 /* Free the SMTP output file*/ 0080 /*--+1+2+3+4+5+6+*/ 0081 address OPSDYNAM FREE FILE(PUNCH1) 0082 if RC 0 then 0083 do 0084 say EMAILTXT OPSDYNAM FREE RC=RC 0085 exit 0086 end 0087 exit Dale McCart Senior Systems Programmer / zSeries, z/OS, z/VM, zLinux Kawasaki Motors Corp., U.S.A. Telephone: (949) 770-0400 extension 2316 Fax: (949) 460-5576 E-mail: dale.mcc...@kmc-usa.com * This Email is covered by the Electronic Communications Privacy Act, 18 U.S.C. Sections 2510-2521, and is confidential, legally privileged, and exempt from disclosure. The information
System Dump - Long non-dispatchable
All, Since we upgraded to z/OS 1.11, we have encountered a couple of system dumps that have set the system non-dispatchable during global data capture for 15 seconds! This long delay caused an application outage because the application could not tolerate that long of wait. The two dumps causing the long wait were unrelated (i.e. different products/different abends). We have had other system dumps where the global data capture only took about 1 second. IBM is looking at one of the dumps where the system was set non-dispatchable for 15 seconds, but I was wondering if anyone has encountered this? Mike Martin /PREThis email may contain confidential and privileged material for the sole use of the intended recipient. If you are not the intended recipient, please contact the sender and delete all copies. Any review or distribution by others is strictly prohibited. Personal emails are restricted by policy of the State Employees' Credit Union (SECU). Therefore SECU specifically disclaims any responsibility or liability for any personal information or opinions of the author expressed in this email. /P -- 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: IBM and Texas – Outsourcing troubles part two
Funny how companies still figure on IBM to have all the answers when all they need to do is look internally. I've seen this more times than I can count. Ditto. I've lost my job twice due to outsourcing, and I'm pretty good at what I do. Unfortunately, that makes you high-priced. And, out-sourcers are more concerned about salary than skills. Hence the 'problems' and the spin. Also, companies fall into the trap of asking the wrong question. The question should be: How can we deliver our product/service most effectively?. Unfortunately, the question asked is: What can we out-source, this year? And, with the 'dumbing' of the support staff, this becomes: How quickly can we shoot ourselves in the foot? Or, Which calibre? (The circus ring-master to the quitting human cannonball: where can we find another man of your calibre?) - I'm a SuperHero with neither powers, nor motivation! Kimota! -- 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: Possible DFSORT problem?
Try recompiling the program with DATA(24). PS all sub-routines must be compiled with DATA(24) if the main program is compiled with DATA(24). Regards Otto Schumacher HP Enterprise Services Infrastructure Specialist Ahold Account CICS Capacity Technical Support P.O. Box 6462 2000 Wade Hampton Blvd. LC1-302 Greenville, South Carolina, 29606 Cell: 864 449 1755 Tel: 864 987-1417 Fax: 864 987-4500 E-mail: otto.schumac...@hp.com -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of William M Klein Sent: Thursday, September 09, 2010 6:29 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Possible DFSORT problem? John, You don't mention whether your Enterprise COBOL 3.4 program was compiled with FASTSRT or not. My guess is that it was. You might try recompiling and running it with NOFASTSRT. You said (later in the thread) that you have created a PMR, but trying with NOFASTSRT might (or might not) help you identify where the problem is. You also don't mention if your COBOL SORT has any input or output procedures. That too might be relevant. Having said all of this, I am certain that IBM L2 will get to the bottom of this. original note follows We are having a problem with a COBOL internal sort. If we run the job with no PARM=, the job abends with U4082-2. If it runs with PARM='TRAP(OFF)', it abends with S0C4-38 in ICEF64A. The latter dump has the following indicative dump: SYSTEM COMPLETION CODE=0C4 REASON CODE=0038 TIME=09.01.18 SEQ=26947 CPU= ASID=005D PSW AT TIME OF ERROR 078D2001 80060D28 ILC 6 INTC 38 NO ACTIVE MODULE FOUND NAME=UNKNOWN DATA AT PSW 00060D22 - E2E3D6D9 C540D21D 40006004 AR/GR 0: /_8005D88E 1: 0020/_0005F530 2: /1199_0002 3: /1199_0004 4: /_00074B00 5: /_00060D28 6: /11A1_0588 7: /0008_0584 8: /_0001 9: /_00060CD8 A: /_050D7056 B: /_85145028 C: /_050D6CC0 D: /_0005F000 E: /_850D70B2 F: /_0004 END OF SYMPTOM DUMP I have a SYSMDUMP from both runs. I am indeed running in AMODE(64). The instruction abending is D2 1D 4006 6004. As you can see, R6 has a non-zero value, 11A1, in the high word of the 64-bit register. And the SYSMDUMP show the TRNE as 11A1_ . So, do I have a LE problem or a DFSORT problem? That is, to which should I open a PMR? I'm thinking DFSORT. I don't see anything like this in IBMLink. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-691-6183 cell mailto:john.mck...@healthmarkets.com john.mck...@healthmarkets.com * http://www.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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to mailto:lists...@bama.ua.edu lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html 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: Anyone has experience with File Manager compare?
I have personally used CompuWare's FileAid, but I have not used File Manager. FileAid works great for us, both online under TSO and in batch. Linda - Original Message - From: gsg gsg_...@yahoo.com To: IBM-MAIN@bama.ua.edu Sent: Friday, September 10, 2010 8:41:46 AM Subject: Anyone has experience with File Manager compare? We're running File Manager compares and they seem to be running long. Is there another product that is more efficient? Cobol program? TIA -- 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
CA ESP Workload Automation
Does anyone use a CA job scheduler product called ESP Workload Automation? PROS/CONS compared to other job schedulers? TIA -- 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
S906-08
I was under the mistaken belief the use count didn't matter for modules linked RENT and/or found in the LPA from a LOAD macro. But I see that you will get a S906 after 32767 (x'7fff') loads. This is z/OS 1.11. Did it always work this way? NAME. IEFBR14 ENTPT 00C64000 CHAIN 00F814F0 USE.. 7FFF SP... 00 LOADED BY NIP OR FLPA/MLPA MODULE. REENTERABLE. REUSABLE. APF LIBRARY. AC(1). DYNAMIC LPA. ONLY WHOLE PAGES ARE PAGE-PROTECTED. CDE EXTENSION EXISTS. CSV002I REQUESTS FOR MODULE IEFBR14 EXCEED MAXIMUM USE COUNT CSV028I ABEND906-08 -- 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: Jobclas Protection - IEFUJI
On Fri, 10 Sep 2010 14:19:10 -0500, Mark Zelden wrote: I think a RACF hook in the exit would be a better approach. I'd also be interested in seeing a code example of this... Someone already posted a sample IEFUJI. It looks similar to mine but mine used an installation defined class instead of FACILITY and the resource name was JOBCLASS.x. My JES2 exit 6 used the same check. I saw that and printed it off to review later and didn't even notice it has everything I need. I'm really glad it's Friday. What a week. I'll check out your website too and see what will work best for us. Thanks again -- 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: Jobclas Protection - IEFUJI
On Fri, 10 Sep 2010 19:06:51 -0500, Dave Kopischke dgkopisc...@oppenheimerfunds.com wrote: On Fri, 10 Sep 2010 14:19:10 -0500, Mark Zelden wrote: I think a RACF hook in the exit would be a better approach. I'd also be interested in seeing a code example of this... Someone already posted a sample IEFUJI. It looks similar to mine but mine used an installation defined class instead of FACILITY and the resource name was JOBCLASS.x. My JES2 exit 6 used the same check. I saw that and printed it off to review later and didn't even notice it has everything I need. I'm really glad it's Friday. What a week. I'll check out your website too and see what will work best for us. The exits I spoke of aren't on my web site nor CBT tape file. They were from a former employer and while I have a copy of them, I don't know that I could put them in the public domain. Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.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: S906-08
1) The use count is a signed halfword; 2) The use count is incremented by 1 for every LOAD and decremented by 1 for every DELETE; 3) The capacity of a signed halfword is 2^15 - 1 = 32767; 4) If loads and deletes are paired difficulties are unlikely; if they are not paired difficulties of this sort are all but certain for much-used modules. John Gilmore Ashland, MA 01721-1817 USA -- 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: S906-08
On Fri, 10 Sep 2010 17:00:24 -0700, David Alcock mainframed...@sbcglobal.net wrote: I was under the mistaken belief the use count didn't matter for modules linked RENT and/or found in the LPA from a LOAD macro. But I see that you will get a S906 after 32767 (x'7fff') loads. This is z/OS 1.11. Did it always work this way? NAME. IEFBR14 ENTPT 00C64000 CHAIN 00F814F0 USE.. 7FFF SP... 00 LOADED BY NIP OR FLPA/MLPA MODULE. REENTERABLE. REUSABLE. APF LIBRARY. AC(1). DYNAMIC LPA. ONLY WHOLE PAGES ARE PAGE-PROTECTED. CDE EXTENSION EXISTS. CSV002I REQUESTS FOR MODULE IEFBR14 EXCEED MAXIMUM USE COUNT CSV028I ABEND906-08 It must have. If not, then how would contents management know when it could FREEMAIN the storage occupied by the RENT module? It only loads into memory once with RENT, but when the count goes to zero, I think it still FREEMAIN's the module's storage as well as removing the LLE(?) for the module. -- 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: S906-08
On Fri, 10 Sep 2010 21:06:24 -0500, John McKown wrote: On Fri, 10 Sep 2010 17:00:24 -0700, David Alcock wrote: I was under the mistaken belief the use count didn't matter for modules linked RENT and/or found in the LPA from a LOAD macro. But I see that you will get a S906 after 32767 (x'7fff') loads. This is z/OS 1.11. Did it always work this way? CSV002I REQUESTS FOR MODULE IEFBR14 EXCEED MAXIMUM USE COUNT CSV028I ABEND906-08 It must have. If not, then how would contents management know when it could FREEMAIN the storage occupied by the RENT module? It only loads into memory once with RENT, but when the count goes to zero, I think it still FREEMAIN's the module's storage as well as removing the LLE(?) for the module. I hope that if it's in LPA it never gets FREEMAINed, possibly because the count never becomes zero. If it's NORENT, I hope a copy gets fetched for each LOAD, and the count for each copy should be one. If there's a common count for an LPA module, could someone perpetrate a DoS attack by issuing max-1 loads and waiting for someone else to fall into the trap? -- gil -- 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: S906-08
On 9/10/2010 8:00 PM, David Alcock wrote: I was under the mistaken belief the use count didn't matter for modules linked RENT and/or found in the LPA from a LOAD macro. But I see that you will get a S906 after 32767 (x'7fff') loads. This is z/OS 1.11. Did it always work this way? John Gilmore is correct in that the use count should get decremented under normal conditions. Ignore the other comments about multiple copies for non-reentrant modules; by definition LPA modules are treated as re-entrant regardless of their linked attributes. However, you either have 32K concurrent users of IEFBR14, something I find unlikely, or a long-running task that fails to do a DELETE. While theoretically a storage overlay is possible, it's unlikely to hit only the count field. 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