Re: Help with IEWFETCH Error RC0F Reason 40
On 9/1/2010 11:51 AM, Lizette Koehler wrote: I am not sure where to go with this abend. So if you could give me some pointers, that would be great. The errors are IEW4009I FETCH FAILED FOR MODULE MYLOAD01 FROM DDNAME STEPLIB BECAUSE OF AN I/O ERROR. IEW4005I FETCH FOR MODULE MYLOAD1 FROM DDNAME STEPLIB FAILED BECAUSE IEWFETCH ISSUED RC 0F AND REASON 40 CSV031I LIBRARY ACCESS FAILED FOR MODULE MYLOAD1, RETURN CODE 24, REASON CODE 26080021, DDNAME STEPLIB According to the return code/reason code, it is an I/O error on the PDS in the STEPLIB I looked at the library that holds this module and it is good. I browsed the library and module under ISPF and not I/O error messages occurred. I also browsed several other members to ensure I did not miss an error. I have not seen a compress or Endevor job run that updated or compressed this file. So, I need some next steps. I think if I have the STC cycled it should be okay. But at this time we have not cycled. Am I going in the right direction? Can you cause the STC to close and re-open the dataset? If not, try loading the module from a batch job to see if it is ok? If that works, I would think recycling the STC should fix it. Normally I would suspect an extent was taken by some other job while the STC had it open, or if the STC keeps track of TTR's that it was compressed or updated. Since you don't think it has been compressed or updated maybe there was some overlay in the STC that has corrupted something . Without knowing more about what the STC does, it's hard to tell. -- Richard -- 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: Help with IEWFETCH Error RC0F Reason 40
Sent this to the newsgroup instead of the list the first time, sorry if you get it twice. On 9/1/2010 12:31 PM, Richard Peurifoy wrote: Can you cause the STC to close and re-open the dataset? Obviously not thinking clearly when I wrote this as you said it was a STEPLIB. -- Richard -- 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: PDSE Performance
On 8/12/2010 11:42 PM, Barbara Nitz wrote: BUFFER_BEYOND_CLOSE is useless. We do have it on, both for SMSPDSE1 and SMSPDSE. Our directory caching is set to take the default of 2G (come on, how large can a *directory* be ?!? ), and it does NOT cache entries. Unless I have my small 'keep-it-open' program running, in my case the second ISPF 3.4 takes as long as the first. And as Alan said, even my program only helps for the first less than 15 minutes, per system. Barbara, I am curious if you have tried having your 'keep-it-open' program close and re-open the file every 10 min? Or maybe try having the program issue a DESERV to read the directory every 10 min. Seems silly to have to do something like this, but maybe it would get the system to keep the directory cached. -- Richard -- 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: Where what to do next - Load modules missing from PDS
On 8/5/2010 3:09 PM, Ken Porowski wrote: Why? Is it that the DS gets extra extents and IMS can't read past the original? I suspect he means the the IMS regions do a BLDL at startup When a compress moves them the BLDL no longer matches and IMS can't load them anymore until it is restarted. -- Richard -- 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: I Need Help
On 8/2/2010 10:00 AM, George Rodriguez wrote: Hi Binyamin, I entered the following command: PM DSNAME, but the messages are still being displayed and from what I see, MN DSNAME has always been in the CONSOL000 from sometime... Any other ideas? Are you seeing these messages from all jobs, or just some. It is possible to suppress these with a WTO exit (or maybe even MPF these days). Could an exit have been deleted/disabled? -- Richard -- 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
Disk geometry (was: History of Hard-coded Offsets)
On 8/2/2010 12:57 PM, Rick Fochtman wrote: ---snip--- On Mon, 2 Aug 2010 09:24:53 -0500, Rick Fochtman wrote: ---snip-- Because you didn't use system services to insulate yourself from changes. ---unsnip Most of those geometry-related System Services didn't exist! :-) Not even by the advent of the 3390, the last ever conversion? --unsnip--- That's right Rick Actually, the biggest problem I had was not code that couldn't handle the different geometries (though APT did have this problem). Most code would use the tables provided by the OS to get track size, cylinder size, etc. The biggest problem was moving datasets to the new devices. At the time some datasets still had CCHHR or TTR pointers in them which would obviously be wrong of they were just copied. IEBCOPY would correct TTR pointers in the directory, but if they existed in a member, or a non PDS dataset you had problems. SAS was also a big problem. At the time SAS created RECFM=U datasets with a BLKSIZE that depended on the type of disk. If you just copied the dataset with IEBGENER or some other non SAS utility SAS wouldn't recognize it as a SAS dataset. So all SAS dataset had to be identified and copied using a SAS utility. -- Richard -- 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: Disk geometry
On 8/2/2010 1:59 PM, Bill Fairchild wrote: The RECFM=U would only byte you if you tried to move that kind of data set to a smaller track size. A bigger track size would work, but then you would be wasting space, and DASDs were a lot more expensive then than now. I think SAS data sets were also unmovable for the first couple of decades. IIRC when we moved from 3330's (track size 13030) to 3350's (track size 19069) SAS data sets copied with FDR or IEBGENER could not be processed by SAS, and had to be recopied with a SAS utility. SAS expected the BLKSIZE of the data set to match the size it expected for the device type. If it didn't match SAS would not process it as a SAS data set. I think I even tried changing the BLKSIZE in the VTOC, but then SAS complained about wrong size records when it read the data. It's been a long time, so perhaps I don't remember this correctly. It's much better now, I don't know of any non-system datasets that can't be easily moved on our system (assuming you can stop whatever is using them), except maybe for ADABAS. I don't know enough about ADABAS to know if they have any device dependency, but we always use ADABAS utilities for these anyway. -- Richard -- 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: AXR04 on z/OS 1.11
On 7/21/2010 1:25 PM, Edward Jaffe wrote: Binyamin Dissen wrote: On Wed, 21 Jul 2010 12:59:19 -0300 Clark Morris cfmpub...@ns.sympatico.ca wrote: :While I am semi-retired (offer me a good contract and ...), I am :appalled that a function is installed that requires a FORCE for it to :shutdown. If I were a systems programmer, I would APAR that at a :severity 2 and escalate if not accepted. FORCE or even CANCEL should :not be a part of normal shutdown practice. That has been part of the normal shutdown since at least early Z, and quite possibly in OS390 (do not have enough neurons to save all this info) In spite of it being somewhat scary looking, FORCE ARM is really just a type of CANCEL. There are several system address spaces that must be canceled to shut them down. AXR and TN3270 are the only two I can think of that use FORCE ARM. TN3270 on my system (z/OS 1.11) accepts a STOP command. I would prefer not to have to use CANCEL or FORCE ARM, but I can deal with it. -- Richard -- 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: Geographic separation of primary and backup/DR sites
On 6/24/2010 9:06 AM, Vernooij, CP - SPLXM wrote: Doesn't this simply means your task is to take care that your diesel tanks are full (and large enough)? All the other options seem non-transparant and non-controllable. We had a power failure once that looked like it might last several days. Our ops manager decided to have the diesel tanks topped off to try to keep the generator running. When he called our regular supplier he was informed that there was plenty of diesel, but the supplier was affected by the outage as well, and couldn't pump the diesel out of his underground tanks. Fortunately the power company got the power back up about 5 hours later. For extended outages you might need multiple suppliers that also have their own generators to run the pumps. -- Richard -- 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: FTP
On 6/22/2010 11:15 AM, Mark T. Regan, K8MTR wrote: The standard z/OS FTP client will not be able to connect to a SSH based FTP server. They are not compatible. You will have to install IBM's OpenSSH product or another vendor's SFTP implementation. Thanks, Mark Regan From: Mark Steelymark.ste...@wnco.com To: IBM-MAIN@bama.ua.edu Sent: Tue, June 22, 2010 11:58:02 AM Subject: Re: FTP Need to know how to connect to an FTP server which is listening on port 22. I found out I can specify the port number on the machine ststement. EZA1456I Connect to ? EZA1736I xxx 22- port number EZA1554I Connecting to: .xxx.COM 1xx.xx.xxx.xx port: 22. SSH-2.0-Sun_SSH_1.1 Adding the port number at the end of the DNS/IP field is the correct way if this is truly an FTP server. -- Richard -- 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: Emulator Sessions Hung
On 6/18/2010 5:13 PM, Dave Kopischke wrote: That's why I posted. I checked everything I could think of (everything obvious). I'll look through VTAM messages more closely and see if there's something buried deeper in there. I already checked AUTOINSTALL and found no differences, but I'll look at that again. There has to be an answer. Have you checked the definitions in VTAMLST to make sure they don't specify LOGAPPL=xxx This will also show up on a D NET,ID=terminalluname,E as CONTROLLING LU = applid -- Richard -- 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: Is anybody using TKLM, TS-1120 drives for encryption?
On 6/16/2010 1:37 PM, Mark Jacobs wrote: Even though IBM says that Tivoli Key Lifecycle Manager (TKLM) is IBM’s strategic new platform for storage and delivery of encryption keys to encrypting storage end-point devices. EKM is still available and will work. Trust me though, its a PITA to get working however. Is TKLM a no cost feature like EKM (I've heard yes and no)? We have had EKM for some time now, and except for a cert problem with the last upgrade (which IBM already had a fix for), it has worked fine. I would have a hard time justifying spending money to replace it. -- Richard -- 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: Is anybody using TKLM, TS-1120 drives for encryption?
On 6/16/2010 4:37 PM, Lucy Arnold wrote: TKLM is not free. The zbox folks were just told that is what we're using. We didn't get a vote. Thanks, that confirms what I thought. -- Richard -- 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: TCPIP Routes
On 6/9/2010 3:51 PM, Matthew Stitt wrote: I've been given a task which sounds easy, but.. The IP addresses is being changed to a different network and I'm having trouble (as usual) getting the ROUTE statement(s) set up correctly. Here is the specific information I've been given so far: network = 10.10.230.0 gateway = 10.10.230.2 netmask = 255.255.254.0 The new IP address for the primary connection has been decided as 10.10.231.99 for this system. I can ping the new gateway right now using the existing setup. I changed the TCPIP stack to the new addresses, and nothing works (sigh) Could someone help me out with the ROUTE statements so I can (hopefully) test this change before we get to the point of no return? Sorry if you get this twice, I sent it to the newsgroup instead of the list the first time. I think you want something like this: HOME 10.10.231.99 link ; == ; Routing configuration ; == BEGINROUTES ROUTE 10.10.230.0/23=linkmtu 1500 ROUTE DEFAULT10.10.230.2 linkmtu 1500 ENDROUTES where link is the link name of the network interface, and mtu is whatever is appropriate for the network. -- Richard -- 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: DFHSM Doc on when it resets the dataset changed flag(bit)
On 5/21/2010 4:48 PM, Gibney, Dave wrote: I do have SETSYS INCREMENTALBACKUP(ORIGINAL) specified. I want HSM to be the product turning off the change bit. It seems that it is not doing this during the AUTOBACKUP cycle. I no longer run an AUTODUMP cycle. HSM really doesn't play as well as FDR for full volume restore and apply incremental. We plan on using the TYPE=FDR/AUTO in the event of DR. We do HSM dataset back-ups because my application people find TSO HRECOVER easier that running a FDR online restore job. (actually, so to I) I expect I can ask IBM to confirm that HSM only resets the bit during DUMP cycles and not BACKUP cycles. Can you change it so HSM runs first, and then let FDR reset the bits? Note, we don't have HSM so I don't really know anything about it. -- Richard -- 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: EKM at z/OS 1.11
IBM found my EKM problem. If the the alias (cert label) is exactly 21 characters it fails. This is fixed in JAVA SR6. Naturally I'm at SR5. We have ordered the latest JAVA. -- Richard -- 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: privilige to run a compress job.
On 5/2/2010 10:08 AM, Paul Gilmartin wrote: On Sun, 2 May 2010 11:15:12 +0300, Matan Cohen wrote: Hi, We using RACF on a z/os 1.10. I trying to find a way to permit a user to run a compress job on a data sets while is access on the data set is READ. any idea on how can I limit the user to a READ access and still able them to compress the data sets when needed? note - I don't want them to run the job using a powrful user using the USER statement . Would PDSE avoid the problem? Does Endevor suffer the stale handle problem? Is PDSE ever a solution? -- gil I can't say for sure on the latest release, but the last time we checked Endevor only supported PDSE's for loadlibs. If it's other PDS's were changed to PDSE's it failed. I never looked into why, maybe they are using EXCP. -- Richard -- 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
EKM at z/OS 1.11
We are upgrading to z/OS 1.11, and EKM is having problems. I get the following when an tape to be encypted is mounted: Logic:validateDKiAlias:testing alias=TAMMVS1 rest of cert label Logic:validateDKiAlias:suffix=MVS1 rest of cert label validateDKiAlias:wrong format 'TAMMVS1 rest of cert label' is a valid certificate label which has been workinf at z/OS 1.9. I don't know where 'MVS1 rest of cert label' came from, I don't have a certificate like this, and haven't defined this anywhere I can find. I am wondering if PK59178 and PK70752 might have something to do with this. I am contacting support, but thought I would see if anyone has seen this. Does anyone have EKM running on z/OS 1.11? Thanks, Richard -- 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: EKM at z/OS 1.11
On 4/26/2010 10:42 AM, Rob Schramm wrote: Richard, Where are the certs being stored? In RACF. In my searching, so far the only reference to DKI I can find is for LTO drives, but we are using TS1120s. I am waiting on a call back from level2. I will let you now what I find. Thanks, Richard -- 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: TCPIP question
On 4/20/2010 3:06 PM, Pommier, Rex R. wrote: Hi List, I know this is IBM-main and not the TCPIP list but I get better responses here anyway. :-) That said, is there some way of getting the IP address that is bound to an OSA card from the z/OS console? We have operations staff trying to bring up our Z at a hotsite but I can't remote into a TN3270 session. We can't ping the address it is supposed to be using either. I do have remote access to the console, but nothing else and would like to figure out what IP address is beingbound to the OSA card. If I kill and restart TCPIP, it shows the port come active but the IP address I have documented at that port doesn't respond. Thanks. Rex D TCPIP,,N,HOME will show the addresses for each device. You might also want to do a D TCPIP,,N,ROUTE to check you route statements. -- Richard -- 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: Timezone mail display
On 4/15/2010 5:29 PM, Donnelly, John P wrote: Geez, get the most wonderful problems which require a fix by 'Monday'... We wish to get a date display as: Mainframe Date: Date: Thu, 15 Apr 2010 00:21:27 PDT on every piece of mail that traverses SMTP and reaches a mailhub, below is a sample of what we get now... Suggestions most welcome: Type: No timezone Originator:j45...@scmvs4.nsc.com Mainframe Date:Date: Thu, 15 Apr 2010 00:13:00 Mail*Hub rewrites this to be: Date: Thu, 15 Apr 2010 00:13:00 PDT Subject: AVNET ASIA - INBOUND ROSETTANET PO REPORT [Job: S450SCEP] How are you generating the mail? We are currently running z/OS 1.9, and in our SMTP config we have: TIMEZONE SYSTZ This causes a date of the form: Date: Thu, 15 Apr 10 18:05:09 -0500 to be added to any mail that doesn't specify a Date: This assumes you run you system on GMT with the correct offset in CLOCKxx. If you specify TIMEZONE CDT Date: Thu, 15 Apr 10 18:22:26 CDT In this case, you will need to change the config file for daylight saving adjustments. I opened a PMR once to try and get a 4 digit year, but so for no luck. I don't think they expect people to use SMTP anymore. I looked into zapping the code to fix this, but it is written in PASCAL, and so far I haven't found where the date is being generated. There is supposed to be some new SMTP support in z/OS 1.11, but I don't know what it does yet. If you want something else, you need to code the Date: in your mail source, then SMTP will not put in one. -- Richard -- 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: Mainframe Executive article on the death of tape
On 3/23/2010 5:29 PM, Pinnacle wrote: Anybody read the Mainframe Executive article on the death of tape as a backup media? The guy writing it used to work for STK and Sun, and now works for disk-based backup vendors. He says the following: - 15% of all backups fail (my experience 1%) - 10-50% of all restores from tape fail (my experience 1%) - 40-50% failure when restoring data from tape 5 years (my experience again is 1%) So what are you guys seeing out there? Do we really have mainframe tape failure rates in the double-digits percentwise? If we do, then the guy is right and tape is dead, but I just don't buy those figures. What say you? Our current tape system is only a couple of years old, but our last system was still using 3480 and 3490E tapes most of which were over 20 years old. Our failure rate was well under 1%. -- Richard -- 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: Adventure - Or Colossal Cave Adventure
On 2/22/2010 5:17 PM, Shmuel Metz , Seymour J. wrote: Inm31vghaxi4@garlic.com, on 02/19/2010 at 01:30 PM, Anne Lynn Wheelerl...@garlic.com said: Tymshare had gotten a copy from sail/stanford and put it up on their pdp machine ... and then ported it from pdp (fortran) to vm/cms (fortran). DEC had a bunch of unrelated machines with PD in their model numbers. They didn't even have the same word size. I suspect that what Tymshare had was a PDP-10, or maybe the older PDP-6, which was basically an older version of the same machine. I lost track of that copy over the years, however a couple years ago i managed to trip across a (later) PLI source (a WYLBUR/TSO version I know what a TSO version is, but how could you have a Wylbur version written in PL/I? Wylbur didn't support any language other than its own command/macro language. I suspect he may have meant ORVYL, the interactive exuction companion to WYLBUR. We never ran it, so I don't know much about it. -- Richard -- 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
How to tell when TMSINIT has run
We use CA1 to manage our tapes. If TMSINIT has not run yet, and a job starts (STC in this case) which will use a tape it will not be recorded by CA1, and the tape will be left as a scratch tape. To fix this, the tape has to be copied so CA1 knows about it, and the old tape has to be re-labeled so that CA1 won't flag it as an error the next time it is mounted as scratch and the HDR1 DSN doesn't match. I think there is a zap that can be applied to prevent this by abending the job, but this means someone has to notice this and restart the job after TMSINIT runs. After an upgrade, it may also be forgotten. What I would like is some programmatic way to determine if TMSINIT has run. I guess I could use automation or MPF to trap a message, but I was wondering if anyone knew of some control block that could be checked. I am looking at CA1 doc to see if I can find anything, but thought I would check the group or Russell Witt as well. Maybe there is some other way I haven't thought of to solve this as well. Thanks, Richard -- 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: How to tell when TMSINIT has run
On 2/19/2010 3:49 PM, Pinnacle wrote: - Original Message - From: Richard Peurifoy r-peuri...@neo.tamu.edu Newsgroups: bit.listserv.ibm-main Sent: Friday, February 19, 2010 4:27 PM Subject: How to tell when TMSINIT has run We use CA1 to manage our tapes. If TMSINIT has not run yet, and a job starts (STC in this case) which will use a tape it will not be recorded by CA1, and the tape will be left as a scratch tape. To fix this, the tape has to be copied so CA1 knows about it, and the old tape has to be re-labeled so that CA1 won't flag it as an error the next time it is mounted as scratch and the HDR1 DSN doesn't match. I think there is a zap that can be applied to prevent this by abending the job, but this means someone has to notice this and restart the job after TMSINIT runs. After an upgrade, it may also be forgotten. What I would like is some programmatic way to determine if TMSINIT has run. I guess I could use automation or MPF to trap a message, but I was wondering if anyone knew of some control block that could be checked. I am looking at CA1 doc to see if I can find anything, but thought I would check the group or Russell Witt as well. Maybe there is some other way I haven't thought of to solve this as well. Thanks, Richard Richard, Your best solution is to install the failsafe usermod, which will issue a WTOR when a tape is mounted and CA-1 is not active. Maybe I don't remember correctly, or maybe it has changed. I thought the job abended if it was started first. I will have the CA1 person put this on and see what happens. That still leaves the problem of what happens if we forget to put it on during an upgrade. I would like some way to check just to make sure. Thanks, Richard -- 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: How to tell when TMSINIT has run
On 2/19/2010 3:59 PM, Richard Peurifoy wrote: On 2/19/2010 3:49 PM, Pinnacle wrote: - Original Message - From: Richard Peurifoy r-peuri...@neo.tamu.edu Newsgroups: bit.listserv.ibm-main Sent: Friday, February 19, 2010 4:27 PM Subject: How to tell when TMSINIT has run We use CA1 to manage our tapes. If TMSINIT has not run yet, and a job starts (STC in this case) which will use a tape it will not be recorded by CA1, and the tape will be left as a scratch tape. To fix this, the tape has to be copied so CA1 knows about it, and the old tape has to be re-labeled so that CA1 won't flag it as an error the next time it is mounted as scratch and the HDR1 DSN doesn't match. I think there is a zap that can be applied to prevent this by abending the job, but this means someone has to notice this and restart the job after TMSINIT runs. After an upgrade, it may also be forgotten. What I would like is some programmatic way to determine if TMSINIT has run. I guess I could use automation or MPF to trap a message, but I was wondering if anyone knew of some control block that could be checked. I am looking at CA1 doc to see if I can find anything, but thought I would check the group or Russell Witt as well. Maybe there is some other way I haven't thought of to solve this as well. Thanks, Richard Richard, Your best solution is to install the failsafe usermod, which will issue a WTOR when a tape is mounted and CA-1 is not active. Maybe I don't remember correctly, or maybe it has changed. I thought the job abended if it was started first. I will have the CA1 person put this on and see what happens. That still leaves the problem of what happens if we forget to put it on during an upgrade. I would like some way to check just to make sure. Thinking about this some more, maybe the problem is because the job starts before CAIRIM has put in it's hooks. I will have to investigate further. Thanks again, Richard -- 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
Fwd: Re: COBOL and DFSORT change?
Meant to send this to the list. Sorry if you see it twice. -- Richard Original Message Subject: Re: COBOL and DFSORT change? Date: Thu, 18 Feb 2010 14:03:35 -0600 From: Richard Peurifoy r-peuri...@neo.tamu.edu Organization: Texas AM University- College Station, TX, USA Newsgroups: bit.listserv.ibm-main References: 2d14e7856646224aacdda13ab1d3555706a0086...@wdcv7exvs2.opm.gov On 2/18/2010 1:49 PM, Richards, Robert B. wrote: I have been asked to determine is anything has changed with either DFSORT or Enterprise COBOL V4 recently that would change how it handles the following question from one of my programmers: Has something changed in IBM COBOL? It used to be that if the sort failed and the SORT-RETURN-CODE field was not referenced anywhere in the code, then the program abended. If the field was referenced in the code, then handling the failure became the responsibility of the program. According to the programmer, the job issued IGZ0026W after an ICE46A message and the program DID NOT abend and finished with a return code of ZERO. Is anyone aware of any changes? I am at z/OS 1.10. I don't think your programmer is correct. I don't think this ever had anything to do with whether the COBOL program checked the SORT-RETURN-CODE field. There is an option in sort to control whether sort returns with a RC after an error, or abends. ERET=ABEND will cause an abend. -- Richard -- 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: DFSMSrmm Tape encryption
On 2/17/2010 5:04 PM, Tom Longfellow wrote: We use IBM's 3592 Tape Encryption technology for all our tape encryption needs. Any software based tape encryption is going to cost CPU cycles whereas offloading the encryption/decryption to the hardware we've found to be a cost effective solution. How did the installation of TKLM go? It has been a nightmare for us. Over a month of effort without a valid working install yet. And now we have to deal with getting an operational DB2 and WebSphere app server (SSRE) system at our DR site before we can read any encrypted data. Running SSRE takes more storage frames that our major subsystems. The overhead in software to activate this 'hardware' feature is becoming more trouble than it is worth. I can't speak for Mark, but we don't have TKLM. I am not even sure what it does. I just installed an EKM server on z/OS (did take a while to get all the JAVA pieces worked out), and created a key through RACF. I use SMS to control what gets encrypted (by default everything). The only thing we are writing are backups, so they all use the same key. Key management could get to be a problem if you needed lots of keys. -- Richard -- 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: TS7700 Backups
On 2/17/2010 5:19 PM, Tom Longfellow wrote: Just started a good look at something like the IBM TS7700 and sure enough the Chief comes by with a broad question. Are any people using the TS7700 to backup data from our Brethren over on the Windows or RedHat Linux side of things and then taking those dumps offsite. Let me know if indeed this is meant to be in the cards. In the meantime I need to go start reading on the TS7700 and such things. All of those things are possible and Tivoli Storage Manager can do it. What I do not have handy is a list of people actually doing it. TS7700 and SMS policies can implement duplexing and offsite issues for the stacked virtual volumes TSM itself can be told when and how to stack data for duplexing and offsite vaulting. The Windows and RHEL boxen would run the TSM Backup Client and forward data to the TSM server on z/OS. Some additional disk space on z/OS would be required while the data is captured from the Brethren and before it is sent to tape. This is not based on direct working knowledge so excuse any errors in my interpretation. Our Unix and PC group is running TSM to do their backups, but not on z/OS. I think it's on an AIX box. They have their own set of LTO and 3592 drives connected through the SAN fabric. TSM does eject tapes to be taken offsite. That about exhausts my knowledge of this. -- Richard -- 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: TSO PING LOOPBACK
On 2/10/2010 5:42 PM, Glen Gasior wrote: * TSO PING LOOPBACK gives me EZZ3111I Unknown host 'LOOPBACK' and RTFM and even REDBOOKS has not helped me. * I can ping 127.0.0.1 successfully, which makes me suspect a hosts entry or dns entry, but I am getting lost in all the parms. You are correct, if you want to use the name loopback it has to be defined in a DNS, or in your host file. If you are using the resolver address space, the host file is specified in the resolver config file as DEFAULTIPNODES or GLOBALIPNODES. -- Richard -- 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: TSO PING LOOPBACK
On 2/10/2010 6:03 PM, Paul Gilmartin wrote: On Wed, 10 Feb 2010 17:41:44 -0600, Glen Gasior wrote: * TSO PING LOOPBACK gives me EZZ3111I Unknown host 'LOOPBACK' and RTFM and even REDBOOKS has not helped me. * I can ping 127.0.0.1 successfully, which makes me suspect a hosts entry or dns entry, but I am getting lost in all the parms. * Interesting. For me, LOOPBACK fails on Solaris; works on OMVS and TSO. LOCALHOST works on all 3. For all the successful case, IP resolves to 127.0.0.1. My guess is that loopback is defined in the z/OS host (ipnodes) file, and localhost is defined in your DNS. -- Richard -- 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 countersues Neon over zPrime accelerator
On 2/5/2010 10:15 AM, Phil Smith III wrote: On Fri, Feb 5, 2010 at 11:02 AM, Bruno Suglianioldti...@wanadoo.fr wrote: The main reason a lot of customers moved from this platform to weaker ones is often because they did not need z/OS stability in the first place and could save money by moving on other OS'es . This aspect is sometimes forgotten by people and when or if something happens on the new platform, the usual laugh about the weakness of the new platform but mainly the stupidity of the management is brought forward snip This is an excellent point. Good enough is good enough is something too many shops have forgotten -- consultants rant about best of breed, when good enough is more appropriate. I'm as big a z bigot as any of you, but it doesn't make sense for everyone. True enough, but the customers aren't consistent either. We had a group that demanded sub-second response time, and complained whenever they didn't get. But when they move to a Windows based system, suddenly 30 second response to a mouse click was ok. -- Richard -- 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: Second port on OSA-Express3 in OSC mode
On 2/4/2010 5:55 AM, R.S. wrote: Few months ago IBM announced enhancement of OSA-Express3 in OSC (OSA-ICC) mode. It was planned to make second port usable. Availability date was 1Q2010 Q: How can I recognize whether it is already available on my CPC? I don't know what MCL or what ever to look for, but I think you can tell bt going into the OSA config panels on the HMC. When configuring the OSC definitions, their will be a place to specify which port you are configuring. Unfortunatley, both ports have to be OSC which doesn't do me any good. This URL shows configuring a multi-port OSC on page 5 (watch for wrap): http://www-03.ibm.com/support/techdocs/atsmastr.nsf/5cb5ed706d254a8186256c71006d2e0a/6429e1fea0d8e1868625751c005e95ad/$FILE/OSAExpress3-04.pdf -- Richard -- 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: hfs VS zfs
On Mon, 4 Jan 2010 12:07:22 -0800, Schwarz, Barry A barry.a.schw...@boeing.com wrote: On a z9 BC running z/OS 1.8, there is a noticeable (~2 minutes) pause in the IPL sequence while zFS initializes, accompanied by a non-scrollable message on the log that eventually does clear. We don't IPL that often so it is not a big deal for us. This is probably cause becaue the file system hadn't been properly shutdown. This causes the file system to be verified when starting. If you issue F OMVS,STOPPFS=ZFS before you finish shutting the system down, I think it will come up faster. -- Richard -- 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: hfs VS zfs
On Mon, 4 Jan 2010 15:30:36 -0600, McKown, John john.mck...@healthmarkets.com wrote: -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Richard Peurifoy Sent: Monday, January 04, 2010 3:27 PM To: IBM-MAIN@bama.ua.edu Subject: Re: hfs VS zfs On Mon, 4 Jan 2010 12:07:22 -0800, Schwarz, Barry A barry.a.schw...@boeing.com wrote: snip This is probably cause becaue the file system hadn't been properly shutdown. This causes the file system to be verified when starting. If you issue F OMVS,STOPPFS=ZFS before you finish shutting the system down, I think it will come up faster. -- Richard Is that needed even if I do F OMVS,SHUTDOWN I think so, but am not positive. We haven't been runnuing ZFS very long, and I have not experimented a great deal. If the file system has not been properly shutdown, you get the following sequence of messages for each file that was open: IOEZ00397I recovery statistics for ETC: IOEZ00391I Elapsed time was 14 ms IOEZ00392I 1 log pages recovered consisting of 2 records IOEZ00393I Modified 1 data blocks IOEZ00394I 1 redo-data records, 0 redo-fill records IOEZ00395I 0 undo-data records, 0 undo-fill records IOEZ00396I 0 not written blocks IOEZ00400I 0 blocks zeroed -- Richard -- 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: Write JES data to an external data set?
Joe Aulph wrote: Hello all, I have a user that want to, as part of a batch process, write the JESMSGLG and/or the JESYSMSG JES data sets to an external data set. My first thoughts were that, outside of a manual SDSF process, it can't be done. Duty bound that I am, I've dug thru the JCL Reference discussions on OUTPUT, WRITERs, attempted a few tests with variations on the WRITER theme, sith no success. Has anyone ever heard of, or done, such a thing? Short of, possibly, an OEM product, which we can't afford, I can't think of one. Anyone? TIA, I don't know how much work you want to do for this, but have a look at: http://ew.share.org/client_files/callpapers/attach/SHARE_in_Austin/S2811DD095959.pdf This is a Share session that discussed using SAPI (SSI 79). There is sample code on the CBT site. -- Richard -- 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: Filezilla, was Ipswitch WS_FTP Pro 12 not displaying OMVS directories correctly
Gibney, Dave wrote: I must have something wrong. I just installed the latest. 3.3.0.1 and I still get: Trace: CTransferSocket::OnReceive(), m_transferMode=0 Trace: GnuTLS error -9: A TLS packet with unexpected length was received. Status: Server did not properly shut down TLS connection Error: Could not read from transfer socket: ECONNABORTED - Connection aborted Trace: CTransferSocket::TransferEnd(3) This past weekend, I applied APAR PK77240 (UK43295 on z/OS 1.9) to my test system and set TLSRFCLEVEL RFC4217 in FTP.DATA. This does seem to have fixed the problem. -- Richard -- 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: Filezilla, was Ipswitch WS_FTP Pro 12 not displaying OMVS directories correctly
Gibney, Dave wrote: I must have something wrong. I just installed the latest. 3.3.0.1 and I still get: Trace: CTransferSocket::OnReceive(), m_transferMode=0 Trace: GnuTLS error -9: A TLS packet with unexpected length was received. Status: Server did not properly shut down TLS connection Error: Could not read from transfer socket: ECONNABORTED - Connection aborted Trace: CTransferSocket::TransferEnd(3) We had a similar problem some time ago.. With help from the IBMTCP-L list I found: http://trac.filezilla-project.org/ticket/3626 which seemed to match the problem. Nothing I tried at the time got around this problem. My next thing to try was switching to AT-TLS which someone said fixed the problem, but I have been too busy to get it set up. However I now see: http://trac.filezilla-project.org/ticket/3684 which sounds like there might be a fix without AT-TLS. I am going to try this this weekend. Steve Bireley of Bluezone helped in looking at some of my traces, and also suggested I try the Bluezone client which is free. http://www.bluezonesoftware.com/ Richard -- 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: What SVCs are in use?
Thompson, Steve wrote: Actually, I was being quite literal and was thinking how I could determine this, without having to have an intercept in SVCFLIH. And then I started reading other people's answers and didn't say anything. In this case GTF may be the right answer as suggested, but you may need to run it for quit awhile if you have seldom used SVC's. SVC screening may also be a way to get what you want, but I have never set this up, so I don't know for sure. However, depending on what you are trying to find this may not be complete. Some SVC routines also support branch entry if properly authorized. And then of course there are PC routines. If you are trying to determine if one SVC is being used, it may be best to front-end it to log it's use. -- Richard -- 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: INACTIVE INTERVAL EXCEEDED BY SPECIAL USER
Ted MacNEIL wrote: Is they reply case sensitive? Was it entered in such a way that it was not upper cased? Since when is a reply case-sensitive? We're talking mainframes, here! This started on RACF-L, but since you asked here I will answer here. I have seen code that assumed the reply would be upper case, and the console normally will upper case the reply. However if the reply is in quotes, or is sent thru SVC 34 I think it is sent asis. -- Richard -- 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: FTPS rc = 406 (Error while reading or writing data)
Finley, Frank wrote: Thank you for the pointers, It looks like the issue is resolving back to the server side running explicit FTPS on port 990 rather than implicit which is what you would normally expect on that port. Apparently this was done to get around some firewall limitations with the normal port 21. Is there a way to force the connection to use explicit FTP on my side while connecting to port 990, I can not seem to find any settings in the FTP.DATA file that would do it, and my google fu is failing me. I think TLSPORT in the FTP.DATA file specifies the implicit port. So if you code TLSPORT 999 or some such, port 990 will no longer be considered implicit. -- Richard -- 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: FTPS rc = 406 (Error while reading or writing data)
Finley, Frank wrote: Hello, I've been beating my head against the wall for a while on this one and wondering if anyone has any thoughts that may help me in troubleshooting. I am having issues with an FTPS connection to a remote host. IBM Z/OS 1.8 (our side) client connecting to a Unix FTPS server running proftpd. This is outside a firewall, but ports have been open between our two locations. Windows clients aren't having any issues connecting to their server. We are using RACF for the certificates and I have verified that the certificate chain is in place for the user. Is anyone able to steer me in the right direction troubleshooting? FC0760 authServer: entered FC0767 authServer: secure_socket_open() SC3717 getFNDELAY: entered FC0834 authServer: secure_socket_init() FU0536 secureWrite: entered FU0436 secureRead: entered SC3752 setFNDELAY: entered FC0847 authServer: secure_socket_init failed with rc = 406 (Error while reading or writing data) FC1004 endSecureConn: entered EZA2897I Authentication negotiation failed FC1025 endSecureEnv: entered SC3607 inSession: entered CZ0582 SETCEC code = 17 EZA2898I Unable to successfully negotiate required authentication CX0336 main: error and exit on error SC3558 getLastReply: entered CX0350 main: RC=-0001 cmd_in_progress=10 CX0353 main: last_reply= 220 err=17 PC0905 setClientRC: entered SC3558 getLastReply: entered PC0975 setClientRC: std_rc=10220, rc_type=STD, rc=10220 EZA1735I Std Return Code = 10220, Error Code = 00017 CZ1170 ftpQuit: entered CZ1242 ftpClose: entered SC3607 inSession: entered SC3686 setLoggedIn: entered CZ1242 ftpClose: entered SC3607 inSession: entered SC3686 setLoggedIn: entered CX0484 removeAff: entered The RC = 406 message is pretty generic, and doesn't really provide you with enough info to determine what the problem is. Unfortunately in these cases, you need to run a packet and/or GSK trace. The last time I got one of these, it turned out to be the server was sending an FTP error message in the middle of the SSL negotiation. Turned out the server was configured wrong, and couldn't find it's certificate store. This was easy to see in a packet trace. For other SSL problems, the GSK trace is probably better. -- Richard -- 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: Reading DD card information
Paul Gilmartin wrote: On Thu, 17 Sep 2009 09:38:39 -0600, Frank Swarbrick wrote: //DB2PLAN DD DSN=amp;PLAN I've always hated the fact that DISP defaults to (NEW,DELETE), but here is one case where that is ideal, so why not take advantage of it? Looks like SPACE must default to (0,0), so again that is ideal. My experience has been that omitting SPACE results in a JCL error. SMS may change the rules. You can set a default space parm in the ALLOCxx parmlib member. We don't have this coded, and it appears you can't change this dynamically, so I can't test if it would avoid the JCL error, but I would think it might. Richard -- 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: Initiator HSM HRECALL/HDELETE
Paul Gilmartin wrote: On Fri, 21 Aug 2009 16:04:46 +0200, Gilbert Saint-Flour wrote: I hope the recently-updated Initiator knows that IEFBR14 is the 4-byte IBM version, not a special utility program written locally and also called IEFBR14, something I saw at-least once before. Discussed here several weeks ago, when an IBM employee replied, no, it doesn't know. The MVS JCL was significantly enhanced in the late 1980s and early 1990s and I wish a number of JCL-related HSM issues were solved at the time. Why did it take 25 years to skip HRESTORE when PGM=IEFBR14 and DISP=(MOD,DELETE) ? How many millions of HSM ML2 tapes had to be mounted for nothing ? RESTORE? RECALL? Whatever. And I tried an IEFBR14 with DISP=SHR,UNIT=(,,DEFER) (z/OS 1.7). The data set was recalled regardless. Regrettable; not recalling until OPEN would be good notional agreement with DEFER. I'm curious: in days of yore, did DEFER actually defer mounting demountable DASD? -- gil I don't think anyone ever answered this. DEFER did work for mountable DASD. Mountable DASD allocation wasn't very smart though. It always selected the first available drive (not permanently mounted and not allocated). At slow times, this could lead to a pair of disks being repeatedly mounted on the same drive. ASP may have modified this, I don't know, we never ran it. I made a mod to store the time at unalloc, and at alloc if the volume wasn't already mounted it would search for an available drive with the oldest time stamp. -- Richard -- 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: The Shame Approach
Edward Jaffe wrote: Martin Kline wrote: Nicely worded, Ed. Maybe I'm not imagining things when I believe IBM is more interested in closing open problem records than in solving the underlying problems. It didn't used to be this way. Having posted this publicly, can I assume you don't mind if I use the same response? There does seem to be much more emphasis on getting PMRs closed than before. Someone's performance appraisal is probably based on the number of open (or closed) PMRs. After all, closed means resolved. Right? I think this varies with groups. I had an SSL problem which was obviously caused at the other end, but I needed IBM's help to read the trace. I was ready to close the PMR as soon as I new what the error was, but he wanted to leave it open until we tested with the other end. -- Richard -- 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: Concatenations and blocksizes
Paul Gilmartin wrote: On Mon, 10 Aug 2009 17:48:31 -0500, Richard Peurifoy wrote: Paul Gilmartin wrote: On Mon, 10 Aug 2009 16:52:59 -0500, Patrick O'Keefe wrote: I'm just puzzled that the enhancement limited itself to QSAM. No mention of BPAM. I had hoped this was an oversight in the doc, but apparently not. An assembly with: //SYSLIBDD UNIT=SYSALLDA,SPACE=(80,(1,1)), // RECFM=FB,LRECL=80,BLKSIZE=80 // DD DISP=SHR,DSN=SYS1.MACLIB Unless there is a typo, you concatenated a seq file (no directories) with the PDS. You mean I need _two_ commas, not just one? Why does OPEN let me do that, and not just ABEND? OK. I changed to: 6 //SYSLIBDD UNIT=SYSALLDA,SPACE=(80,(1,,1)), // DISP=NEW,DSN=amp;MAC, // RECFM=FB,LRECL=80,BLKSIZE=80 X/SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 7 // DD DISP=SHR,DSN=SYS1.MACLIB I needed to specify DISP and DSN to override those in the library proc. And it fails the same with: * TOP OF DATA ** ** ASMA999U Assembly terminated - SYNAD Exit taken - Permanent I/O error on SYSL ,HELLO ,C ,4140,D,SYSLIB ,UNKOWN,WRNG.LEN.RECORD,1F7100030 BOTTOM OF DATA Experimental control: if I change BLKSIZE from 80 to 32760, it assembles with no errors, and library macros are fetched from the second catenand. Interesting, I tried a temp PDS, and also failed, so I tried a permanent PDS with a small blksize and it worked ok. I then tried allocating a temp pds in a previous step and passed it. This also worked ok. I don't know why it fails if allocated in the same step. -- Richard -- 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: EREP query
Beesley, Paul wrote: We run a job every day at 06:30 to clear LOGREC and write to a history file ( JCL below ). Every day without fail the following message is issued while the job is running. *IFB081I LOGREC DATA SET IS FULL,06.30.58, DSN=SYS1.FIF2.LOGREC When I check LOGREC, its full of MDR records for every DASD volume in the known universe as at 06:30. Why is this happening and how can I stop it ? There's not much point clearing logrec only for it to fill up again with useless MDR records. This caused us to have no valid logrec records for IBM the other day after a system outage ... //JS010 EXEC PGM=IFCEREP1,TIME=10, //PARM='LINECT=60,ACC=Y,HIST=N,ZERO=Y,SYSUM=Y' //SERLOG DD DSN=SYS1.FIF2.LOGREC,DISP=SHR //ACCDEV DD DSN=SYS3.FIF2.EREPHIST, //DISP=(NEW,CATLG,DELETE), //SPACE=(2000,(3000,3000),RLSE), //AVGREC=U, //LRECL=2000, //RECFM=VB //DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,(5,5)) //TOURIST DD SYSOUT=* //EREPPT DD SYSOUT=* //SYSINDD DUMMY,DCB=BLKSIZE=80 IFCEREP1 downloads the MDR's at the time it runs (Z EOD also does this). I think they also get downloaded if the counters overflow. You should increase the size of you LOGREC or switch to the system logger. If your LOGREC is full, and you don't want to loose the MDR's you can run IFCOFFLD which dumps/clears LOGREC without downloading the MDR's. -- Richard -- 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: EREP query
Beesley, Paul wrote: Richard and Mark Thanks for the info and suggestions. I plan to increase LOGREC ( pity it needs an IPL, one of the few things that does so these days) - its only 59 tracks. Hadn't heard of IFCOFFLD, looks useful There is a SETLOGRC IGNORE command. I don't know if this would allow you to scratch and reallocate it or not. Remember to dump it before you do this if you want to preserve whats already in it. If this works then a SETLOGRC DATASET should restart it. Warning, I have never tried this. -- Richard -- 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: EREP query
Richard Peurifoy wrote: Beesley, Paul wrote: Richard and Mark Thanks for the info and suggestions. I plan to increase LOGREC ( pity it needs an IPL, one of the few things that does so these days) - its only 59 tracks. Hadn't heard of IFCOFFLD, looks useful There is a SETLOGRC IGNORE command. I don't know if this would allow you to scratch and reallocate it or not. Remember to dump it before you do this if you want to preserve whats already in it. If this works then a SETLOGRC DATASET should restart it. Warning, I have never tried this. Also, the new one probably needs to be on the same volume. -- Richard -- 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: Concatenations and blocksizes
Scott Rowe wrote: Most likely because the BLKSIZE is in the JFCB, and so acts as an override. If the small BLKSIZE is only in the DSCB it is treated differently. I actually thought about testing this yesterday, but didn't have time. I suspected that it would work this way. This appears to be true. If I code a blksize on the DDCARD of the passed temp dataset in the ASM step, it also fails. I guess this means the system (or assembler) will use the largest blksize at open time if there is no blksize in any JFCB's. Obviously the system can't override a blksize coded on a DCB macro. -- Richard -- 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: Concatenations and blocksizes
Ted MacNEIL wrote: And apparently still doesn't. By a crude experiment: //STEPEXEC PGM=IEFBR14 //STEPLIB DD DISP=SHR,DSN=SYS1.LINKLIB,BLKSIZE=1 Worked fine. Of course it did! IEFBR14 has (effectively) two instructions: SR 15,15 BR 14 NO open. (But did I really test what I thought I tested?) I don't think so, there used to be a minimum BLKSIZE of 18, but that's not detected until you try to open the DSN. No open; no error. IEFBR14 does no open. I think what he Gill was testing was that program fetch didn't care about blksize, in which case I think he did test it, and got the result I would expect. There may have been a time when program fetch cared, but if so, I don't remember it. By the way I think the 18 byte minimum was only for tape. -- Richard -- 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: Concatenations and blocksizes
Paul Gilmartin wrote: On Mon, 10 Aug 2009 16:52:59 -0500, Patrick O'Keefe wrote: I'm just puzzled that the enhancement limited itself to QSAM. No mention of BPAM. I had hoped this was an oversight in the doc, but apparently not. An assembly with: //SYSLIBDD UNIT=SYSALLDA,SPACE=(80,(1,1)), // RECFM=FB,LRECL=80,BLKSIZE=80 // DD DISP=SHR,DSN=SYS1.MACLIB Fails with: * TOP OF DATA ** ** ASMA999U Assembly terminated - SYNAD Exit taken - Permanent I/O error on SYSL ,HELLO ,C ,4140,D,SYSLIB ,UNKOWN,WRNG.LEN.RECORD,1F7100030 BOTTOM OF DATA Unless there is a typo, you concatenated a seq file (no directories) with the PDS. -- Richard -- 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: USSTAB
Martin Kline wrote: BTW, for everyone (anyone?) who bothered to read this far, how many use a custom USS table? Is it just Chris, Patrick, myself and a couple other people in the world? When we had real 3270's, I used a custom table. When we first setup TCP/IP the TN3270 server didn't support USS tables, so I got a copy of the old network solicitor from someone on IBM-MAIN or IBMTCP-L (don't remember which). This is what was used in VTAM before USS support, and produces a simialr looking screen. Since I had all the code, I could add things to the display that aren't available through USS. We even switched to using this for the real 3270's. When TN3270 added USS support, we didn't switch because we wanted to keep the additions we had made. We no longer have any real 3270's, the closest is OSC attached terminals. I am using our solicitor for these as well, but do have a USS table defined in case the solicitor is unavailable. -- Richard -- 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: 2 Identical STC Running at the Same Time
Ted MacNEIL wrote: As long as the DD is never opened, the VTOC is never searched for the DSN. What is special about this? I've always received JCL errors when specifying DISP=OLD with a non-existant DSN. And, I started in this business as a JCL jockey (Production Support) in February 1981. Is it the VOL=REF? It's that UNIT and VOL are specified. If these aren't specified it has to do a catalog lookup, and you get a JCL error if it isn't cataloged. -- Richard -- 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: How to encrypt DFHSM Tapes
Lizette Koehler wrote: Thanks for the correction. I should not respond from the top of the head. It never works for me. Anyway I have a clearer description of the issue. Apparently DFHSM is using ESOTERICS, and we will need to create a new esoteric (including a change to the IODF) for it to use for the E05 drives. I am not sure why since we only have one type of tape drive. We have DFHSM currently set to use the esoteric for 3590-1. I am still researching this because I believe we should be able to do this with a more general esoteric inside DFHSM. Lizette Lizette, We don't have DFHSM, so I can't say anything about it. However, I think this is really a matter of how you assign the DATACLAS in you SMS ACSDC routine. If you are using the esoteric unit name to make the assignment, then you have to match what ever HSM is using. If you are using dataset names to make the assignment, then the esoteric shouldn't matter. If you look in the joblog, you should see something like: IEC205I ddname,jobname,stepname,FILESEQ=1, COMPLETE VOLUME LIST, DSN=dsname,VOLS=volser, LISTED VOL(S) HAVE BEEN DATA ENCRYPTED,KL1CD:L,KL2CD:L, KL1=key1,KL2=key2,TOTALBLOCKS=number if the tape is encrypted. -- Richard -- 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: Special RACF users and message ICH301I
Clark Morris wrote: On 30 Jul 2009 09:28:34 -0700, in bit.listserv.ibm-main you wrote: On Thu, 30 Jul 2009 10:18:55 -0500, Mark Zelden mark.zel...@zurichna.com wrote: LOL! That may work in a tiny shop, but our special users (call them admins, security engineers, whatever) need their authority and are doing work all throughout the day that requires it (that doesn't include password resets which the help desk can do). One could consider hiring only administrators who won't forget their passwords. Or one could make them non-SPECIAL, but give them access to a program that would, with proper RACF authorization, let them become SPECIAL after logon by modifying their ACEE.Then they would not cause this problem during logon, and could still have SPECIAL once they had logged on. Wouldn't this program be a security exposure? Limiting access to it and its functions would seem to be an interesting exercise. If I understood more about how z/OS security worked, I would be getting interesting ideas for hacking into the system if I had at least applications programmer type access. I would think the idea would be that such a program would use access to some facility class or some such to determine who is allowed to do this. Of course this has to be written correctly to be sure someone can't abuse it. -- Richard -- 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: Operator Validation before Executing Command
Ted MacNEIL wrote: No solution will ever be iron clad. But inserting even a small loop can help enormously vs. the type-it-and-watch-helplessly alternative. I tend to agree. But, when they respond automatically, they still tend to type-it-and-watch-helplessly. Unfortunately, especially with the fix it quick attitude, we usually lose. For common replies/commands, this is true, but I think for unusual situations that happen rarely, a confirmation can help. A long time ago (late sixties) we had an operator reply COLD to a HASP startup, he didn't understand what it meant. Our HASP sysprog added a little code that checked for a reply of COLD, and issued the following message: There is a curse I'm told on those who wrongly reply COLD. Their hair turns white, their eye's loose site, they grow wrinkled and old. DO YOU WISH TO CONTINUE? We never had an inadvertent COLD start again. -- Richard -- 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 Intends to Acquire SPSS Inc.
Timothy Sipples wrote: IBM just announced its intention to acquire SPSS Inc.: http://www.ibm.com/press/us/en/pressrelease/27936.wss: SPSS is a leading producer of predictive business analytic software. This acquisition, when complete, continues IBM's big push into the business intelligence market. Anybody using SPSS for z/OS? We still have an old version, but I don't think it is used much. Being a University, we tend to acquire a lot of things when new professors come in and want something they used at their last school. So we ended up with about 5 differant statistics packages. Of course, most of this has moved to PC's now, so we don't see this as much anymore on z/OS. Sometime ago (80's I think) we had a call about needing more region for SPSS. Every time they ran they got a message stating there was not enough space for some table and suggested a bigger region. They had upped their region from 4M to 60M before they called asking why it didn't work. After some study we determined that SPSS was only using 24bit storage, so we called the company to see if they had a later version that would handle this. We were told that they were concentrating on their PC product and would not make any further enhancements to the mainframe version. This was a long time ago, so this may have changed. -- Richard -- 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: RACF group access to datasets
dh-esc wrote: Can anyone point me in the direction of how to find out what dataset profiles a RACF group can access? You can run the RACF IRRRID00 utility. This is used to generate a set of commands to delete an ID from RACF, including all dataset and resource access. By looking at what would be removed, you can determine what it can access. -- Richard -- 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: Offload work to zIIP with zPRIME
Shane wrote: IBM provides an API to vendors to allow preemptible SRBs to be routed to zIIPs, but remember that a zIIP is really the same as a CP. It is capable of running any work. It is entirely possible to hook MVS in a manner that will make a zIIP eligible to run any work. Whether it's legal to do that is a matter for the courts. Whether it is ethical for a vendor to do that should be obvious. Which means of course that all vendors have thought about how it all hangs together, and how it might be used sans API. See Brians post from a few days back. If they hadn't actually gone to the extent of cutting code, I bet they have rectified that since the zPrime balloon went up. IBM probably doesn't care if a vendor runs their own code on zXXP's, that won't affect IBM's software charging, though it may sell more zXXP engines, and less CP engines. But they and other vendors probably do care if someone runs code they had not intended to run on a zXXP. This would affect software revenue. Ultimately, I wish they would just fix software cost so we could afford it with out all these specialty engines. This just causes extra code and development time to support them. It also makes it harder to balance the system loads. If you don't have the right mix of workload types, you have engines sitting idle. -- Richard -- 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: Offload work to zIIP with zPRIME
Richard Peurifoy wrote: Shane wrote: IBM provides an API to vendors to allow preemptible SRBs to be routed to zIIPs, but remember that a zIIP is really the same as a CP. It is capable of running any work. It is entirely possible to hook MVS in a manner that will make a zIIP eligible to run any work. Whether it's legal to do that is a matter for the courts. Whether it is ethical for a vendor to do that should be obvious. Which means of course that all vendors have thought about how it all hangs together, and how it might be used sans API. See Brians post from a few days back. If they hadn't actually gone to the extent of cutting code, I bet they have rectified that since the zPrime balloon went up. IBM probably doesn't care if a vendor runs their own code on zXXP's, that won't affect IBM's software charging, though it may sell more zXXP engines, and less CP engines. But they and other vendors probably do care if someone runs code they had not intended to run on a zXXP. This would affect software revenue. Ultimately, I wish they would just fix software cost so we could afford it with out all these specialty engines. This just causes extra code and development time to support them. It also makes it harder to balance the system loads. If you don't have the right mix of workload types, you have engines sitting idle. I meant to add while work is waiting, obviously if there is not enough work engines may be idle. -- Richard -- 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: code page help
Frank Swarbrick wrote: Oy. We don't have much, but I know of a few cases where we have a code page 037 logical not which shows up as a caret in code page 1047 and code page 037 left and right brackets which show up as, well, brackets. Oh well. Thanks for letting me know that at least I'm not crazy. Frank We went through this a few years ago, a just bit the bullet and converted to using 1047. I modified one of our editors to accept either value for not. Fortunately, we didn't have many files that had the problem characters in them, but when old files are looked at, some may still turn up. We have been through this several times in the past, real 3270 vs. 7171 vs. TTY connected through a COMTEN. -- Richard -- 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: Delete all members of a PDS with JCL
Paul Gilmartin wrote: On Tue, 7 Jul 2009 13:17:24 -0700, Skip Robinson wrote: PDSE behaves differently. Deleting a member makes previously occupied space available for the next member to be added. But perhaps not immediately, if other jobs are holding the PDSE OPEN. Does anyone know how to find who has connections to members in a PDSE? I looked for an API or command once, but didn't find anything. Maybe I just didn't look in the right place. If a PDSE is in LNKLST, is there a connection to each member? If so, the library might need to be much larger to allow replacing members without an IPL. I guess the safe thing would be to create a new library and dynamically add it to LNKLST, but then if you want running jobs to use it you have to issue SETPROG LNKLST,UPDATE,JOB=name or *. -- Richard -- 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: Alert and Resolve price changes
Gibney, Dave wrote: Great, presumably they are saving money by discontinuing Green Screen Ibmlink, so the price goes up. Makes perfect sense :( Actually, I have never understood this. Phone support has to cost IBM a lot, but it is free (part of the license cost), but IBMLINK where we do out own research instead of having people on the phone do it cost extra. -- Richard -- 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: How to convince not to over initiate?
Mark Zelden wrote: On Wed, 1 Jul 2009 09:38:10 -0700, John Mattson john_matt...@ea.epson.com wrote: I am currently negociating with my operators to get them to open up ENOUGH inits because I have loved jobs sitting for 40 minutes waiting for inits because unloved jobs are sitting on them, and only 20 inits started. WLM INITs are the way to go. But WLM inits aren't for all applications / needs. Many shops (including ours) have a class (or a few classes) set aside for JES2 initiators for jobs that must get initiated immediately, regardless of the system utilization being at or near 100%. This can be anything, but often, from what I have seen over the years, it is a job submitted from CICS or MQ that is part of a transaction. You may also need to use JES inits if you need to control the maximum number of jobs running in some class. We have a database that doesn't support enclaves, so batch calls run at the same priority as CICS calls. We need to limit the number of batch jobs to keep online response time acceptable. -- Richard -- 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: How to convince not to over initiate?
McKown, John wrote: -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Richard Peurifoy Sent: Wednesday, July 01, 2009 2:56 PM To: IBM-MAIN@bama.ua.edu Subject: Re: How to convince not to over initiate? snip You may also need to use JES inits if you need to control the maximum number of jobs running in some class. We have a database that doesn't support enclaves, so batch calls run at the same priority as CICS calls. We need to limit the number of batch jobs to keep online response time acceptable. -- Richard At least by z/OS 1.8 you can control the XEQCOUNT=(MAXIMUM=nnn) subparameter of the JOBCLASS(c) JES2 parameter member. We are JES3, but there is probably a similar parameter. However, we aren't having any problems with out inits, or our operators, so I haven't looked at this in some time. -- Richard -- 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: Weird Formatting of posts
Patrick O'Keefe wrote: On Thu, 25 Jun 2009 16:07:33 -0500, Bill Godfrey yak36...@yahoo.com wrote: This problem was discussed, but not resolved, in a thread named width of postings July 18-19 2007. In that thread, in one of my posts, I suggested it might be a problem with the HTML built by the Listserv program... I still think the problem is in Listserv. ... Well, we have one of those weird ones in today's archive: Ed Gould's posting. (As usual, watch the wrap.) http://bama.ua.edu/cgi-bin/wa?A2=ind0906L=ibm- mainT=0O=DF=S=P=183214 With IBM-Main options medium text and monospaced font, and using IE6.0 with who-knows-what options I see the repeated words and, well, this is a lot weider than I thought. If I vary the width of my browser window so that the lines are reformated the problem goes away and will not reappear regardless of my display width. But if I exit and rebrowse the posting, the duplication is back. This evening I'll check using Firefox. Pat O'Keefe I think the posts that don't show this problem may have CRs often enough that the browser doesn't have to flow the text. When the text has to be flowed to new lines, the browser (IE6 ?) sometimes repeats part of the text. -- Richard -- 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: CICS T/S 3.2 - SACIREL = 0650
d21mike21 wrote: On Jun 22, 11:16 am, Mike Carver m...@data21.com wrote: Can anyone tell me where I can get a list ofSACIRELValues for the various CICS T/S Releases. I have the following at this point: CICS T/S 2.2 -SACIREL= 0620 CICS T/S 3.1 -SACIREL= CICS T/S 3.2 -SACIREL= 0650 What is next? Looks like maybe there is no one place to get this information. If you are running a CICS T/S Release other then the ones I have the values for above could you do the following? CEMT SET SYS (press enter) and look for the Release Values on the right hand side. Thanks. CICS T/S 3.1 is 0640 -- Richard -- 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: What's Needed in Linklst?
Lizette Koehler wrote: I am running into a documentation issue. Apparently we have not kept up on what IBM has added to the LINKLST over the years. Is there a doc somewhere that states all the libraries that IBM wants in the LINKLST as of z/OS V1.9? I have been reviewing the REDBOOKs and other manuals, but do not find a current list. What I am missing todate I think are SYS1.SIEALNKE SYS1.SIEAMIGE Not sure if there are others. The CPAC PROG00 member did not show it included. However, some of my research seems to show it should be. Lizette, Here are the IBM libraries we have in LINKLST: SYS1.LINKLIB SYS1.MIGLIB SYS1.CSSLIB SYS1.SCUNIMG SYS1.NFSLIBE SYS1.DGTLLIB IGY.SIGYCOMP SYS1.DFQLLIB SYS1.SIEAMIGE SYS1.SIEALNKE SYS1.SICELINK SYS1.SORTLIB NETVIEW.SCNMLNKN NETVIEW.CNMLINK REXX.SEAGALT EOX.SEPHLOD1 TCPIP.SEZALOAD EUV.SEUVLINK SYS1.CMDLIB SYS1.SCBDHENU CSF.SCSFMOD0 EOY.SEOYLOAD GIM.SGIMLMD0 CEE.SCEERUN ISP.SISPLOAD FFST.SEPWMOD2 FFST.SEPWMOD4 IOE.SIOELMOD SYS1.SIOALMOD ASM.SASMMOD1 CBC.SCLBDLL GDDM.SADMMOD SYS1.SIATLINK SYS1.SIATLIB SYS1.SIATMIG CBC.SCCNCMP CBC.SCLBDLL2 CEE.SCEERUN2 VSF2.VSF2LOAD SYS1.CICSTS31.CICS.SDFHLINK SYS1.CICSTS31.CPSM.SEYULINK The SYS1.SIAT... are JES3, if you run JES2, you need a different set. -- Richard -- 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: What's Needed in Linklst?
Lizette Koehler wrote: I am running into a documentation issue. Apparently we have not kept up on what IBM has added to the LINKLST over the years. Is there a doc somewhere that states all the libraries that IBM wants in the LINKLST as of z/OS V1.9? I have been reviewing the REDBOOKs and other manuals, but do not find a current list. What I am missing todate I think are SYS1.SIEALNKE SYS1.SIEAMIGE Not sure if there are others. The CPAC PROG00 member did not show it included. However, some of my research seems to show it should be. Lizette, Another thing to think about if you are adding libraries is RACF or equivalent PROGRAM CLASS. Here is whats in mine: CBC.SCBCCMP CBC.SCLBDLL CEE.SCEERUN CEE.SCEERUN2 CSF.SCSFMOD0 CSF.SCSFMOD1 DB2.DSNEXIT DB2.DSNLOAD GLD.SGLDLNK GSK.SGSKLOAD ICA.SICALMOD IOE.SIOELMOD SAG.ADA743.LOAD SAG.ADA743B.LOAD SAG.NAT424.LOAD SAG.NDV225.LOAD SSW.DMS.LOADLIB SYS1.CSSLIB SYS1.LINKLIB SYS1.MIGLIB SYS1.SIEALNKE SYS2.MVSA.CA1.CAILIB TCPIP.SEZALINK TCPIP.SEZALOAD Note this and the LINKLST I sen earlier are at z/OS 1.9 -- Richard -- 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: What's Needed in Linklst?
Richard Peurifoy wrote: Lizette Koehler wrote: I am running into a documentation issue. Apparently we have not kept up on what IBM has added to the LINKLST over the years. Is there a doc somewhere that states all the libraries that IBM wants in the LINKLST as of z/OS V1.9? I have been reviewing the REDBOOKs and other manuals, but do not find a current list. What I am missing todate I think are SYS1.SIEALNKE SYS1.SIEAMIGE Not sure if there are others. The CPAC PROG00 member did not show it included. However, some of my research seems to show it should be. Lizette, Another thing to think about if you are adding libraries is RACF or equivalent PROGRAM CLASS. Here is whats in mine: CBC.SCBCCMP CBC.SCLBDLL CEE.SCEERUN CEE.SCEERUN2 CSF.SCSFMOD0 CSF.SCSFMOD1 DB2.DSNEXIT DB2.DSNLOAD GLD.SGLDLNK GSK.SGSKLOAD ICA.SICALMOD IOE.SIOELMOD SAG.ADA743.LOAD SAG.ADA743B.LOAD SAG.NAT424.LOAD SAG.NDV225.LOAD SSW.DMS.LOADLIB SYS1.CSSLIB SYS1.LINKLIB SYS1.MIGLIB SYS1.SIEALNKE SYS2.MVSA.CA1.CAILIB TCPIP.SEZALINK TCPIP.SEZALOAD Note this and the LINKLST I sen earlier are at z/OS 1.9 I forgot to remove the non IBM libraries, but I'm sure you can figure that out :-). -- Richard -- 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: Sequential D/S to PO D/S Member
Tom Marchant wrote: On Mon, 22 Jun 2009 12:17:19 -0500, Paul Gilmartin wrote: ... Isn't there an option to cause catalog errors to ABEND or at least cause bad RC from the step? (But this frustrates the OP's apparent intent to make the JCL reusable.) There is. Or was. IIRC it was a simple USERMOD. It is not needed for SMS-managed data sets. This was made into a PARMLIB option. In ALLOCxx CATLG_ERRFAILJOB(YES) ERRORMSG(YES) -- Richard -- 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: What's Needed in Linklst?
Kelly Arrey wrote: Hi Richard, A quick aside - CBC.SCBCCMP is the old OS/390 C/C++ compiler, which has not been enhanced since 2000. The current compiler, the z/OS XL C/C++ compiler, is in CBC.SCCNCMP. This compiler has been enhanced in almost every release since z/OS V1.2. Thanks and Regards, Kel Release Manager, z/OS XL C/C++ Compiler Development Thanks, I had missed that change. I guess we don't have anything that needs to use it in a controlled environment or I would have gotten an error. I will fix this. -- Richard -- 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: Sequential D/S to PO D/S Member
Paul Gilmartin wrote: On Mon, 22 Jun 2009 12:42:55 -0500, Tom Marchant wrote: On Mon, 22 Jun 2009 12:17:19 -0500, Paul Gilmartin wrote: On Mon, 22 Jun 2009 11:11:42 -0500, Frank Schubert wrote: No one seems to have hit upon the exact cause of your problem. It has nothing to do with what you have in your JCL, except for the DISP on the IEFBR14 step. What you have done wrong, although wrong is a subjective term in this case, is tried to create a PDS dataset using DISP=MOD, when a PS dataset with the same name already existed. ... In fact, if the data set does not pre-exist, I verified by experiment that DSORG=PS causes no problem. If the COPY step specified: //SYSUT2 DD VOL=REF=*.ALLOC.PRTLIB,... ... would it have used the data set from ALLOC (uncatalogued; likely not what the OP wanted)? No, as above. OK. I see. Isn't there an option to cause catalog errors to ABEND or at least cause bad RC from the step? (But this frustrates the OP's apparent intent to make the JCL reusable.) There is. Or was. IIRC it was a simple USERMOD. It is not needed for SMS-managed data sets. Would this (PARMLIB option) have caused an error for: IEF287I user.TSTPRB.COMPILE.OUTPUT NOT RECTLGD 2 ... ? Yes, if you specify FAILJOB(YES). The job is terminated with a JCL error, and the message: IEF378I jobname stepname - JOB FAILED - TIME=hh.mm.mm CATALOG DISPOSITION ERROR -- Richard -- 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: Sequential D/S to PO D/S Member
Tom Marchant wrote: On Mon, 22 Jun 2009 15:43:18 -0500, Paul Gilmartin wrote: On Mon, 22 Jun 2009 12:42:55 -0500, Tom Marchant wrote: On Mon, 22 Jun 2009 12:17:19 -0500, Paul Gilmartin wrote: Isn't there an option to cause catalog errors to ABEND or at least cause bad RC from the step? (But this frustrates the OP's apparent intent to make the JCL reusable.) There is. Or was. IIRC it was a simple USERMOD. It is not needed for SMS-managed data sets. Would this (PARMLIB option) have caused an error for: IEF287I user.TSTPRB.COMPILE.OUTPUT NOT RECTLGD 2 ... ? I think so. Unfortunately, I'm not in a position to test it. BTW, if the intent of the MOD,CATLG was to make the JCL reusable, it relies upon the data set that is being used this way having the correct characteristics. If there is a chance that the data set that exists by that name has different characteristics, then the existing data set must first be deleted. In this case the error was caused because the existing data set was sequential when PO was needed. There could also have been errors if, e.g., FB 80 was desired but the data set was VB or a different LRECL. In any of these cases, a MOD,DELETE step followed by a NEW,CATLG would be preferable. As long as it didn't have members that needed to be kept. -- Richard -- 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: SSRV
SRK wrote: Question, looking at at the trace component of an ABEND dump, I see an SSRV 78 right before the SVCR of a LOAD. I know that a SVC 78 is a GETMAIN, and, it would terminate with an SVCR 78. But, what is an SSRV, and how is it different than an SVC? This is a PC or Branch entry to a system service (in this case getmain/freemain) See MVS Diagnosis: Tools and Service Aids http://publibz.boulder.ibm.com/epubs/pdf/iea2v191.pdf Chapter 8 System Trace. -- Richard -- 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: SSL certificate renewal
Mark Pace wrote:
Trying to follow the directions in the RACF manual to renew a self-signed
certificate that expired.
A display for ID TN3270
Label:TnServerCert
Certificate ID:2Qbj1fPy9/DjleKFmaWFmcOFmaNA
Status:TRUST
Start Date:2008/05/30 00:00:00
End Date: 2009/05/30 23:59:59
Serial Number:00
Issuer's Name:CN=zos19.OU=IT.O=Mainline.C=US
Subject's Name:CN=zos19.OU=IT.O=Mainline.C=US
Private Key Type:Non-ICSF
Private Key Size:1024
Ring Associations:
Ring Owner:TN3270
Ring:TNRING
So I see it exists and it's expired.
Next create a certificate request based on the old certificate.
*racdcert id(TN3270) genreq(label('TnServerCert')) dsn('ibmuser.cert.req')*
This executes and creates the IBMUSER.CERT.REQ file.
Then renew and replace the certficate.
*racdcert id(TN3270) gencert('ibmuser.cert.req')
signwith(label('TnServerCert'))
*
*IRRD107I No matching certificate was found for this user.*
I can't figure out why it says this certificate is not found, when I clearly
displayed it earlier.
I think you need signwith(id(TN3270) label('TnServerCert')),
however, I have never tried signing a cert with itself, so I
don't know if this works.
Do others have a copy of this cert on their TN3270 clients,
or do they just accept a self-signed cert?
If they just accept the self-signed cert, just create a new
one.
Alternatively, you could create a signing cert with a long
End Date and use that to sign your cert. If the clients have
a copy of your cert, just give them a copy of your signig
cert to use as the CA for your TN3270 cert.
--
Richard
--
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: IMS..IMS..Gotta love IMS. Why is my PCB failing?
David Logan wrote: Just to provide an interesting update on this: It appears that the engineers are compiling these COBOL programs in some odd way. When I compile them, they work. I wonder if it could be that they are compiling them on a different platform. I know they like to compile their stuff on z/OS 1.4 still (and all of our IMS testing has been done on z/OS 1.8) Anyway, that's the update. No coding error, it's somehow environmental. Thanks again to those who gave me the tips to speed up my productivity! This might be caused by using uninitialized fields, or indexing past the end of an array. What you get depends on what happens to be in memory. The SSRANGE COBOL option can help find array index problems. For uninitialized fields, you either have to find them and initialized them before you use them or use the set the LE option to clear memory. -- Richard -- 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: TSO/E Exits
John Eells wrote: 26 people responded to my question about user exits, most in the first day or two. Thank you! As usual, after the first several responses things settled down quickly and a clear pattern emerged. Overall, 42 module names were identified in the responses. Not all of them are exits. Of the exits, not all of them are documented (!). Here is the entire list, for the curious. Name - Number of respondents IKJEFF53 - 13 IKJEFF10 - 10 IKJEFLD1 - 07 IKJEFLD3 - 04 IKJEFLN2 - 04 IKJCNXAC - 02 IKJCNXCI - 02 IKJEESX9 - 02 IKJEFTB2 - 02 INMXZ01 - 02 IRXANCHR - 02 IRXISPRM - 02 IEEVSNX1 - 01 IKJCT44B - 01 IKJEBEPD - 01 IKJEBINS - 01 IKJEESXB - 01 IKJEESX2 - 01 IKJEFF11 - 01 IKJEFLD - 01* IKJEFLD2 - 01 IKJEFLD3 - 01 IKJEFLN2 - 01 IKJEFLPA - 01 IKJEFTAP - 01 IKJEFTA2 - 01 IKJEFTB2 - 01 IKJEFTE2 - 01 IKJEFTE8 - 01 IKJEFTNS - 01 IKJENLNU - 01 IKJHCA00 - 01 IKJLPENP - 01 IKJXDLPA - 01 INMRZ01 - 01 INMRZ11 - 01 INMXZ02 - 01 INMXZ02R - 01 IRXCMPTM - 01 IRXCPMTX - 01 IRXFLOC - 01 * One respondent said all ACF2 customers use this exit. I don't know whether that is true or not. John, Not a big deal, but IKJEFLD3 and IKJEFLN2 show up twice, the first time with 4 responders each, and the second with one responder each. Also, I only counted 41 modules (39 if you remove the duplicates). Just a guess, but maybe some of the undocumented exits are really old and were documented at one time. -- Richard -- 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: TSO/E Exits
Richard Peurifoy wrote: John Eells wrote: 26 people responded to my question about user exits, most in the first day or two. Thank you! As usual, after the first several responses things settled down quickly and a clear pattern emerged. Overall, 42 module names were identified in the responses. Not all of them are exits. Of the exits, not all of them are documented (!). Here is the entire list, for the curious. Name - Number of respondents IKJEFF53 - 13 IKJEFF10 - 10 IKJEFLD1 - 07 IKJEFLD3 - 04 IKJEFLN2 - 04 IKJCNXAC - 02 IKJCNXCI - 02 IKJEESX9 - 02 IKJEFTB2 - 02 INMXZ01 - 02 IRXANCHR - 02 IRXISPRM - 02 IEEVSNX1 - 01 IKJCT44B - 01 IKJEBEPD - 01 IKJEBINS - 01 IKJEESXB - 01 IKJEESX2 - 01 IKJEFF11 - 01 IKJEFLD - 01* IKJEFLD2 - 01 IKJEFLD3 - 01 IKJEFLN2 - 01 IKJEFLPA - 01 IKJEFTAP - 01 IKJEFTA2 - 01 IKJEFTB2 - 01 IKJEFTE2 - 01 IKJEFTE8 - 01 IKJEFTNS - 01 IKJENLNU - 01 IKJHCA00 - 01 IKJLPENP - 01 IKJXDLPA - 01 INMRZ01 - 01 INMRZ11 - 01 INMXZ02 - 01 INMXZ02R - 01 IRXCMPTM - 01 IRXCPMTX - 01 IRXFLOC - 01 * One respondent said all ACF2 customers use this exit. I don't know whether that is true or not. John, Not a big deal, but IKJEFLD3 and IKJEFLN2 show up twice, the first time with 4 responders each, and the second with one responder each. Also, I only counted 41 modules (39 if you remove the duplicates). Just a guess, but maybe some of the undocumented exits are really old and were documented at one time. Opps, missed one. IKJEFTB2 is also duplicated. -- Richard -- 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: USERCAT Error (Out of Space)
George Rodriguez wrote: From all the responses that I've gotten, it seems a product is highly recommended. To answer some of the questions asked or implied ... No I have not exceed the alias limit ... in fact there will only be 15 alias' defined after all is said and done. The original catalog was defined only with a primary space or 230 tracks (no secondary allocation). I do have a window already scheduled for 7:00 am Sunday morning. Yes, after all is said and done, I will run an examine to make sure everything is ok... I don't have a product, so I do this with IDCAMS. I have never had a problem. You should check Managing catalogs http://publibz.boulder.ibm.com/epubs/pdf/dgt2c160.pdf. If you want to re-org the catalog do something like this (note this is from memory, you should verify this): //CATREORG JOB //* //REORG EXEC PGM=IDCAMS //* //OUT DD DSN=unload.name, // UNIT=SYSDA, // SPACE=( // DISP=(NEW,CATLG) //SYSPRINT DD SYSOUT=* //SYSIN DD * ALTER CATALOG.catname LOCK /* */ IF MAXCC = 0 THEN + EXPORT catname - OUTFILE(OUT) - TEMPORARY /* */ IF MAXCC = 0 THEN + IMPORT INFILE(OUT) - OUTDATASET(catname) - ALIAS- CATALOG(mstcat) /* */ IF MAXCC = 0 THEN + ALTER CATALOG.catname UNLOCK If you want to make the catalog bigger, you need to delete reallocate it in the middle ot this. 1. ALTER catdsname LOCK 2. EXPORT catdsname OUTFILE(EXPDD) TEMPORARY 3. DELETE catdsname RECOVERY USERCATALOG 4. DEFINE USERCATALOG (many parameters) 5. IMPORT INDATASET(backupdsn) OUTDATASET(catdsname) ALIAS UNLOCK INTOEMPTY WARNING PRIVLEDGED TASK CAN BYPASS LOCK You may want to review IBM info APAR II13354 on moving catalogs. -- Richard -- 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: USERCAT Error (Out of Space)
Richard Peurifoy wrote: George Rodriguez wrote: From all the responses that I've gotten, it seems a product is highly recommended. To answer some of the questions asked or implied ... No I have not exceed the alias limit ... in fact there will only be 15 alias' defined after all is said and done. The original catalog was defined only with a primary space or 230 tracks (no secondary allocation). I do have a window already scheduled for 7:00 am Sunday morning. Yes, after all is said and done, I will run an examine to make sure everything is ok... I don't have a product, so I do this with IDCAMS. I have never had a problem. You should check Managing catalogs http://publibz.boulder.ibm.com/epubs/pdf/dgt2c160.pdf. If you want to re-org the catalog do something like this (note this is from memory, you should verify this): //CATREORG JOB //* //REORG EXEC PGM=IDCAMS //* //OUT DD DSN=unload.name, // UNIT=SYSDA, // SPACE=( // DISP=(NEW,CATLG) //SYSPRINT DD SYSOUT=* //SYSIN DD * ALTER CATALOG.catname LOCK /* */ IF MAXCC = 0 THEN + EXPORT catname - OUTFILE(OUT) - TEMPORARY /* */ IF MAXCC = 0 THEN + IMPORT INFILE(OUT) - OUTDATASET(catname) - ALIAS- CATALOG(mstcat) /* */ IF MAXCC = 0 THEN + ALTER CATALOG.catname UNLOCK If you want to make the catalog bigger, you need to delete reallocate it in the middle ot this. 1. ALTER catdsname LOCK 2. EXPORT catdsname OUTFILE(EXPDD) TEMPORARY 3. DELETE catdsname RECOVERY USERCATALOG 4. DEFINE USERCATALOG (many parameters) 5. IMPORT INDATASET(backupdsn) OUTDATASET(catdsname) ALIAS UNLOCK INTOEMPTY WARNING PRIVLEDGED TASK CAN BYPASS LOCK You may want to review IBM info APAR II13354 on moving catalogs. I forgot to mention that you should use diagnose and examine on the old catalog before you start to make sure there are no existing problems. -- Richard -- 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: USERCAT Error (Out of Space)
Eric Bielefeld wrote: I was trying to find my CD with FDR, and I found it, but its too hard finding anything with a PDF file. I thought I read something in the book about reorging catalogs with Compactor, but its been a long time since I read about that, and I don't really remember what it does and doesn't do. I don't remember if FDR has their books on their web site, or if you have to own the product to access them. I know I always used the paper manual, which I could always find what I wanted. Probably what you are thinking of is that when compacting there was an option to reorg the VTOC so that all the unused DSCB's were at the end. I think the intent was to speed up VTOC searches, but it actually slowed most down, because usually the DSCB TTR was in the catalog entry, and after being reorg'd, they were wrong. This would eventually be corrected, because the system will recatalog datasets with bad DSCB TTR pointers. The compactor manual now recommends against reorging the VTOC. Of course if you are moving the VTOC this doesn't apply as the TTR's will be wrong anyway. I don't recall any option to reorg a CATALOG. -- Richard -- 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: Assembler and ECBL conversion issues
pjfarley3 wrote: On May 1, 5:11 pm, LesWagner wagn...@finance.nyc.gov wrote: We are belatedly beginning for the third time, an Cobol II to Enterprise Cobol batch conversion and are encountering problems with linking above the line, Cobol programs that call assembler subroutines. The solution being proposed is to continue to call the assembler routines statically, and link the ECBL programs below the line. This requires the least amount of recoding. Are we losing anything important in implementing this solution? What do we need to do to get this above the line? Anything else we should be worrying about? Leslie Wagner CC'ed to the IBM-MAIN mailing list, where you will get many more answers than just on the usenet list or google group. To answer your questions in order, (1.a) you lose the ability to expand internal tables to take advantage of above the line storage and (1.b) you lose in having to re-link EVERY module that uses one of the 24-bit routines whenever it changes, and (1.c) you lose in not being able to reduce elapsed time by increasing buffers below the line (because all your code is now above the line), or by taking advantage of moving buffers above the line (for VSAM, at least). (2) The solutions to this problem that I have seen at several large enterprises is to interpose a helper module between the newer above- the-line programs and the legacy below-the-line assembler code. There are several ways of doing this, from the most general (one helper for all 24-bit programs, most efficiently a new assembler module) to the most specific (a separate 31-bit helper for every 24-bit module). The general idea is that the helper module is compiled with DATA(24) (or AMODE ANY/RMODE 24 for assembler) while the calling COBOL programs are compiled with DATA(31). The helper module moves the 31-bit parameters to its own working-storage below the line (or to dynamically obtained below-the-line storage for assembler) and calls the 24-bit module with it's local 24-bit copies of the passed parameters, and re-copies the 24-bit versions back to the 31-bit passed parameters after the call completes. Obviously the helper module(s) needs extra information to do its (their) job (like the name of the 24-bit module and the number and length of each passed parameter), so some recoding of the calling COBOL programs is a requirement of using this solution. Any of these solutions requires some program changes to every 31-bit program that calls 24-bit code. I'm afraid any solution that avoids recoding also avoids getting most of the benefits of converting to 31- bit in the first place. You just have to bite the bullet and make some coding changes as you convert, one program at a time. One at a time is the key, with good helper module(s) you can convert in phases instead of all at once. The advantages of a helper module, are (2.a) that the calling programs now reside above the line and can use the larger storage area there for larger tables, etc., while still being able to dynamically call their 24-bit assembler subroutines; (2.b) the 24-bit subroutines do not have to change; (2.c) if they do change but still stay below the line, your new 31-bit code is unaffected and does not need to change or be relinked. You really, really want to avoid static links and DATA(24) as much as you can. The maintenance nightmares of static links are enough to drive any rational programmer (and their managers) to drink. And IMHO using DATA(24) removes much of the incentive to do the conversion in the first place. But that's just my USD$0.02 worth. HTH, and please feel free to email me privately if you want to discuss the pros and cons offline. I live in Brooklyn, so your problems are of great interest to me and I'd love to help you solve them efficiently and within your budget. Peter Our biggest reason for converting to 31bit COBOL was CICS. Most of our batch COBOL programs aren't big enough to be constrained by out 24bit region size (approx 11MB), but in CICS we would have frequent Short On Storage problems. I think there may also be some (probably small) performance gain by using the ALL31(ON) option in LE. It reduces the need for AMODE switching. If you want to convert to 31bit, the first thing I would look at is if some/all of the assembler routines might be replaced with COBOL routines and/or LE callable services. Any that can't be replaced might be easily converted to 31bit. It has been quit awhile now, but as I recall the two biggest issues we had were assembler routines that did I/O (DCB's have to be below the line), and address fields with flags in the high order byte. Most of our assembler routines didn't have any problems, and after checking them could just be relinked to AMODE/RMODE 31. One set of routines did I/O. They were re-entrant, so I modified the getmain to make sure the storage for the copied DCB was below the line. I also added a DCBE so the EODAD could be above the line. -- Richard
Re: Slightly off topic power limits
R.S. wrote: This is NOT nameplate rating, this is current utilisation! In this *real* case z10 consumer approx. 50% more power for the same number of MIPS. It's not nameplate, not theory, not sales presentation, this is measured reality. Who's MIPS, marketing MIPS don't really match the true speed of the processor. There are other things that consume power. Is the memory size the same? Same number and type of channels? Same number of specialty engines, crypto cards, ...? -- Richard -- 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: Using FTP to send loadlib
Ted MacNEIL wrote: Well, with OPERATIONS authority, I can do the same thing with IEBCOPY. If you leave the door open, it doesn't matter how strong the lock is. This is the same fallacious argument that has been hashed to death regarding AMASPZAP. If you say so. As I said, others articulated a better argument. I still, as I already said in my original response, was use XMIT with OUTFILE to unload loadlibs. It's pretty well guaranteed to work, because it's not protected (usually). But, rightly, or wrongly, ADRDSSU is. And, not all of us have admin privilidges. The issue was how to FTP load libs, NOT how to protect programmes. AND, we were looking for a method with few stumbling blocks. Another argument for not using ADRDSSU is that it is not universally available. It is an optional feature. IEBCOPY and transmit/receive are standard on all z/OS systems. -- Richard -- 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: FTP's
Mark Steely wrote: We are z/OS V1R9. I have a customer you is trying to ftp a file from a Unix machine down to the mainframe. The FTP is executing on the mainframe and is receiving the file. The file is delimited by x'05'. The FTP does not recognize this and the file comes across and is strung together. Is there a way to specify a delimiter or is there a better why to handle this type of file. Thank You Is this a binary transfer? Binary transfers the data exactly as it is. Otherwise the data is converted from/to ASCII/EBCDIC, and the lines should be terminated by a line feed. -- Richard -- 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: RECEIVE ORDER ERROR
Edward Jaffe wrote: Chase, John wrote: If I did that, wouldn't I have all of the PTFs that haven't yet gone through CST? Yes, but you can APPLY by SOURCEID(RSU*). Right now, I just RECEIVE ORDER CONTENT(RECOMMENDED), whatever comes back comes back, and I APPLY *all* of it with a canned job stream that's always the same. Simple. The suggestion seems to be to use RECEIVE ORDER CONTENT(ALL) and then selectively manage what comes back. I become the one who decides which fixes have undergone enough testing and which have not. I have to keep track of these numbered/dated RSUs to help understand which fixes I want and which I don't. And, I have to be sure to specify the right RSU value(s) at APPLY time. From where I sit, this process sounds like extra work. Clearly, this is a job to be undertaken by a professional sysprog--something I've never claimed to be. I think I'll stick with simple... If you want to apply all RSU maintenance, you can specify RSU* on the APPLY. Is CONTENT(RECOMMENDED) different than RSU? -- Richard -- 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: RECEIVE ORDER ERROR
Edward Jaffe wrote: Richard Peurifoy wrote: If you want to apply all RSU maintenance, you can specify RSU* on the APPLY. How does the RSU SOURCEID find its way to a PTF I previously RECEIVEd? Does SMP/E add missing SOURCEIDs automatically when I do RECEIVE ORDER? I can't speak to RECEIVE ORDER, we aren't using it yet. Traditionally when you receive hold data, it includes updates to sourceid's. Because we aren't using RECEIVE ORDER, I also don't know if CONTENT(RECOMMENDED) is the same as RSU maintenance. I was just trying to point out a way to APPLY all RSU maintenance without having to keep up with RSU numbers. If HIPER's are included in CONTENT(RECOMMENDED), you would want to include them as well. -- Richard -- 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: Where are the device codes (returned by LOCATE) defined?
Binyamin Dissen wrote: For example, X’3010200E’ = 3380 DISK DEVICE CODE Where is the table defined? You can use the EDTINFO macro to get this. If this is not what you are looking for, can you be more specific. -- Richard -- 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: Effective pipeline programming
Patrick O'Keefe wrote: On Thu, 23 Apr 2009 12:35:17 -0700, John R. Ehrman (408-463-3543 T/543-) ehr...@vnet.ibm.com wrote: Cross-posted to the Assembler Listserver. Check the SHARE proceedings for presentations by David Bond titled Coding Assembler for Performance. Excellent advice therein. John Ehrman I found it as Session 8192 August 2006 - longer ago than I expected. The presentation is also at http://www.tachyonsoft.com/s8192db.pdf Pat O'Keefe There is Session 8193 August 2008 which include z10 some info. -- Richard -- 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: Fw: INFOPAC
Ron Wells wrote: Another related problem...was just informed the following is occuring since we put on rsu0812.. IEF085I REGION UNAVAILABLE, ERROR CODE=20 we are readjucting the region parm to 7m from 8m to see if that works.so something has changedno word from ibm nor asg on open tickets... It is not clear, are you getting this all the time, or just sometimes? If it is all the time, your below the line CSA must have increased enough to cross the boundary to using another meg. Probably LPA grew a little with the maintenance. Are you running IMS, or something else that uses lots of below the line CSA? My CSA is only 5MB leaving an almost 12MB private, but when we ran IMS, CSA was much larger. Of course that was long ago, for all I know IMS may have moved this above the line or to a dataspace by now. If you have a monitor to look at your various CSA pools, you may find you can reduce CSA a little a get back to 8MB. If it just happens occasionally, you have something that is leaving storage allocated in the initiator, causing fragmentation. There is a DIAGxx option to restart the initiator after some amount of fragmentation: VSM CHECKREGIONLOSS(512K,5M) will restart the initiator if 512KB is lost below the line, or if 5MB is lost above the line. -- Richard -- 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: Fw: INFOPAC
Ron Wells wrote: Below is a screenshot of current and before Region V=V6000 009F 10216K 9.9M Region V=R6000 00025FFF 128K.1M PSA+System6000 6000 0K.0M This indicates you have almost 10MB for private, and it was the same before the maintenance. So something is fragmenting the storage in the initiator. You should add the VSM CHECKREGIONLOSS(xx,xx) to DIAGxx so the system will automatically restart the initiator when this happens. If you want to track down what is causing this, I think there is a SLIP trap you can set to get a dump. It also appears you have a V=R region defined. Unless you have some special need for this, you can probably eliminate it. I haven't had a V=R region for several decades now. -- Richard -- 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: Fw: INFOPAC
Ken Porowski wrote: I agree, you are probably not using topics. Initiator fragmentation is an old issue. I believe there are now parms that can be set which will restart an initiator if x% or xM is fragmented. Your issue could be that you actually need most of the below the line region for processing so even a small bit of fragmentation hurts. The parm is VSM CHECKREGIONLOSS in the DIAGxx member of PARMLIB. For example: VSM CHECKREGIONLOSS(512K,5M) says that if you loose 512K below the line, or 5M above the line the initiator will be automatically restarted. -- Richard -- 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 Health Checker
Dana Mitchell wrote: Hal, The book is here: http://publibz.boulder.ibm.com/epubs/pdf/e0z2l121.pdf If your lpars are sharing JES2 spool, SDSF should be able to display checks from other systems, you can use SYSNAME command to select what you see. HTH Dana There is also an HZSPRINT job which will allow you to select what you want to look at and give more details. I think it may have to be run on the same system as Health Checker. -- Richard -- 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: Temporary Data Set Duplicate Name Bahavior
Martin Kline wrote: We recently had a job using duplicate temporary data set names and got some really unexpected results. I didn't find this behavior documented anywhere, thus the post. First, to validate the results, I created a simple four-step job. All four steps use IEBGENER. Step 1 creates a temporary data set named amp;T1 with DISP= (NEW,PASS). Step 2 copies amp;T1 using DISP=(OLD,PASS) to SYSOUT. Step 3 repeats step 1, also with data set name amp;T1 and DISP=(NEW,PASS), but with different data going to the SYSUT2. Step 4 copies amp;T1 to SYSOUT. All steps ran with return code zero. The result is that steps 2 and 4 copied the same amp;T1 to SYSOUT both times. The second amp;T1 data set was apparently simply discarded. The generated data set name for amp;T1 was the same for all steps. The JCL reference indicates I should have gotten a duplicate data set name JCL error. But I did not. Others have explained why you got the first temp file, but I am curious to see what you read in the JCL reference. Can you specify what you read? You have always been able to create duplicate datasets, just not on the same volume. You can't catalog more than one, but you can create as many as you have volumes. This used to be a big problem, a job would fail, and would be re-run without cleaning up the datasets. You would end up with lots of them scattered over the volumes. The job would get a message indicating a catalog failure, but that wasn't always noticed. If you referenced the dataset through the catalog you wouldn't get the latest version. SMS mostly fixed this for permanent datasets because they had to be cataloged, and were cataloged at create time instead of step end. But temporary datasets aren't cataloged even with SMS. -- Richard -- 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: ENQ a member of a PDS
Paul Gilmartin wrote: On Mon, 30 Mar 2009 14:56:31 -0700, Schwarz, Barry A wrote: All of us whose workload would still fit on a 4381 but had to upgrade to get around maintenance and support issues. Plus anyone still using a P390 or a FLEX-ES if I remember the literature correctly. And on the z9 I support we have only one LPAR also. The ply to which I replied said multi-CPU. LPAR is different. Is z9 marketed in a single-CPU version? P390 or FLEX-ES may be single-CPU, AFAIK. -Original Message- From: Paul Gilmartin Sent: Sunday, March 29, 2009 5:06 PM Doesn't need to be multi-CPU; multi-task is bad enough. Who has a single-CPU system nowadays, anyway? -- gil I think you can still get single CPU systems on z9's, and z10's. Assuming that by CPU you mean engines, and not CEC's or whatever the current terms are. But I don't see what this has to do with ENQ. ENQ doesn't care how many CPU's there are. The scope is STEP, SYSTEM, or SYSTEMS. None of these implies multiple CPU's, or single CPU's for that matter. You can run multiple LPAR's on a single CPU, or have an LPAR with multiple CPU's. -- Richard -- 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: Optimal Tape Blocksize
Roach, Dennis , N-GHG wrote: Does it really make a difference? IIRC, starting with 3490, the control unit compressed and buffered the data and then wrote to the physical tape in a fixed, very large block size. This being the case, block size only impacts the channel utilization and with fiber channels, I have not seen this to be an issue. It generally doesn't make a difference in tape utilization, but larger block sizes still reduce the number of passes thru the I/O supervisor (EXCP/STARTIO and I/O interupts). -- Richard -- 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: SVC 50 (0A32)
Rick Fochtman wrote: IIRC, it was used to allocate space on a DASD volume. Been a LOOONG time, so I may be wong. Paul Schuster wrote: Does anyone know what this SVC does? The diag ref manual only says 'reserved'. Thank you. Paul This is correct. It still works for non-SMS managed volumes. I think it fails if the volume is SMS managed. You pass it a UCB address, and a JFCB address. I think you may be able to use a DSCB rather than a JFCB (IEHMOVE may have done this). -- Richard -- 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: SVC 50 (0A32)
Rick Fochtman wrote: IIRC, it was used to allocate space on a DASD volume. Been a LOOONG time, so I may be wong. Paul Schuster wrote: Does anyone know what this SVC does? The diag ref manual only says 'reserved'. Thank you. Paul Sorry, I was looking at decimal SVC 32, I see you meant hex 32 decimal 50. In the oldest doc I have (S360 IBM Field Engineering Manual dated 1971) it is listed as a NOP. I don't know if it was used for something before that. -- Richard -- 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
