Re: IMS - how do I run an interactive transaction?
Hi Bill A couple of comments from and old time IMSer Firstly - the DFS064 message means the transaction code you have entered is not defined to IMS. Check your stage1 or alternativly issue the /DIS TRAN xxx transaction. Also depending on the IMSGEN option chosen, you may need to enter a trailing space after the transaction code. The DFS690 message means that your MPR address space and your CTL region don't have the same IMSID (or are not running on the same LPAR). This could also occur if IMS startup was not complete but this does not appear to be the case. Check the IMSID at the end of the DFS690 message as well as the IMSID at the end of the DFS996 message from the control region and make sure that they are the same. Hope this helps. Feel free to contact me on or off list if you need any further help. -- 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: Display Panel After TBDISPL Causes Next TBDISPL to Read Same Record in REXX Exec
I would probably code this as: TBDISPL tab PANEL(HLDETL) CONTROL DISPLAY SAVE DISPLAY Panel(X) CONTROL DISPLAY RESTORE TBDISPL tab Regards Dave Dave Stapleton Mainframe Support Team -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Vinson Lee Sent: 14 May 2009 21:51 To: IBM-MAIN@bama.ua.edu Subject: Display Panel After TBDISPL Causes Next TBDISPL to Read Same Record in REXX Exec I'm trying to use the HSMLIST Rexx exec that Frank Clarke created but have found a problem when selecting multiple Backup entries for Recovery. Here is the logic: TBDISPL tab PANEL(HLDETL) DISPLAY Panel(X) TBDISPL tab The second TBDISPL is supposed to read the next entry in the table but does so only if the DISPLAY Panel statement is NOT executed. Anyone have ideas on how to fix this problem? Thanks. Vince -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html This email and any files transmitted with it are confidential and are intended solely for the use of the individual or entity to whom they are addressed. This communication represents the originator's personal views and opinions, which do not necessarily reflect those of HPI Limited. If you are not the original recipient or the person responsible for delivering the email to the intended recipient, be advised that you have received this email in error, and that any use, dissemination, forwarding, printing, or copying of this email is strictly prohibited. If you received this email in error, please immediately notify postmas...@hpi.co.uk. This message has been scanned by Anti-Virus. Recipients are advised to apply their own virus checks to this message on delivery. Company Name: HPI Limited, Company Number: 4068979, Registered in England - Registered Office: 30, St. Mary Axe. London. EC3A 8AF. -- 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 TN3270 Printer Question
Rogers Correction: The TELNETDEVICE statement I gave in my last post obviously lacked the "TELNET device code", IBM-3287-1. Thus it should be the following: TELNETDEVICE IBM-3287-1 ,DSC2K It would appear to be an undocumented "feature" of the TELNETDEVICE statement that the "TELNET device code" can be specified with or without the leading "IBM-". RFC 2355 is unambiguous: the leading "IBM-" is required. Clearly the TN3270 server logic inserts the leading "IBM-" if may have been "carelessly" omitted! Chris Mason On Thu, 14 May 2009 16:40:19 -0500, Chris Mason wrote: >Rogers > >On the face of it, if you want the mode table entry name to be used for your >printer session to be DSC2K, you will need to specify the TELNETDEVICE >statement as > >TELNETDEVICE ,DSC2K ... >>TELNETDEVICE 3287-1 dsc2k ... -- 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: Batch Process Calling a Web Service
Adding something like Apache Axis2 to the mix would be better, yes, agreed Kirk. However, there is merit to avoiding middleware functional duplication as well -- beyond avoiding the coding. There is maintenance burden involved with any software, whether in-house coded or not. How much burden? It depends, but it's non-zero. So if you've got the tool in the bag already, so to speak, it may be better to use that tool. Parsimony is often a good thing. Also, it's extremely likely that Web Services enablement will get used over and over again. It is important to take steps to make this capability available in common fashion and make it well known across the development teams. Anyway, the original poster may have something already up and running that provides Web Services enablement without necessarily being aware of it. CICS Transaction Server is one example in many shops, and there are other examples. I didn't want to jump to any particular conclusion right away, and hopefully the above illustrates some of the important considerations before reaching a particular decision. - - - - - Timothy Sipples IBM Consulting Enterprise Software Architect Based in Tokyo, Serving IBM Japan / Asia-Pacific E-Mail: timothy.sipp...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Transliteration
On Thu, 14 May 2009 06:55:56 -0500, Roland Schiradin wrote: >On Thu, 14 May 2009 12:44:10 +0200, R.S. > wrote: > >I agree and already know some of the standards (ISO 9) and we're already >using a user defined codepage in the z/OS Unicode knowledge base for this >but only one character to another. I'm just asking if someone done this by >using a user-defined codpage DBCS (UTF-16) to MBCS (EBDCI Latin). > No, I didn't. But I did use the com.ibm.icu.text Java package for various character set operations (removing accents and other diacritics...). The Transliterator class can probably do what you need (and more). http://icu-project.org/apiref/icu4j/index.html?overview-tree.html Some reading will be required as will be some experimentation. Last time I looked at it the documentation was not really for a beginner in the matter. Then again, transliteration is not a simple subject... Cheers, Jantje. -- 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 profile matched using FASTAUTH
On Wed, 13 May 2009 10:33:19 -0500, Walt Farrell wrote: a) use RACROUTE REQUEST=AUTH, from an APF-authorized program, specifying >ENTITY or ENTITYX=(resource-name-address,PRIVATE). RACF will return a >profile (still possibly one that's merged) but the name will be the member >name (possibly generic) that matched. You'll need to be in key 0 to examine >the returned data, and to FREEMAIN it. > This option worked great, thanks. >If your summary of historical access were based on RACF SMF records, of >course, you'd know the proper member name already from those records, and >wouldn't need to be trying to figure it out. > Pint was to recheck historical access after making changes, such as adding more explicit profiles, etc. That's why I wanted the profile matched. Also using LOG=NONE on my calls, as I didn't want to record these 'test' access on SMF. Thanks for your help. Joe -- 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
VM ServiceLink going away for good this time?
Saw this when I logged on to IBMLink 3270 this morning: " Withdrawal of VM ServiceLink - July 1,2009 "VM ServiceLink will be sunset on July 1, 2009. For more information on accessing IBMLink on the web at www.ibm.com/ibmlink, please review the item in News. " Bummer. :-( -jc- -- 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: CHECK(IBMCSV,CSV_LPA_CHANGES) exception for Device Support LPA
Things added improperly to LPA by ISV code (i.e., not by dynamic LPA and not via the supported IPL-time mechanisms) will get categorized in this way, because that is all the information that is available to CSV (and the health check). Everything in LPA is marked in some way (or not marked) as PLPA, MLPA/FLPA. Since the only other case validly built by the operating system is device support modules, that is how everything else is counted. During IPL, IOS identifies modules needed to "support the I/O configuration" based on information in the IODF. Some will go into the nucleus, some into LPA. I don't know much more than that. Peter Relson z/OS Core Technology Design -- 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: CHECK(IBMCSV,CSV_LPA_CHANGES) exception for Device Support LPA
Hi Jack, I reported this to CA against Common Services last year. I agreed to a FIN closure as changes were already included to use supported interfaces in CA-Common Services r12 which is recently generally available. I have not installed r12 just yet still running r11 SP8 so I cannot verify that it has been fixed. A number of other ISV's also have issues which so far they have not committed to fix and are still using the unsupported techniques that were available before OS/390 R4. We need to keep prodding them:-) Best Regards, Sam Knutson, GEICO System z Performance and Availability Management mailto:sknut...@geico.com (office) 301.986.3574 (cell) 301.996.1318 "Think big, act bold, start simple, grow fast..." -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of John Kelly Sent: Thursday, May 14, 2009 12:52 PM To: IBM-MAIN@bama.ua.edu Subject: CHECK(IBMCSV,CSV_LPA_CHANGES) exception for Device Support LPA I can't find any definition of what Device Support LPA (and the corresponding EDEVS and DLPA) is/are, other than the Health Checker saying that it is (even Google comes up short). Intuitively I would have assume that it was for I/O modules but apparently not. I get an exception for this check and the Modnames in the "DEVS Area" is TMS stuff. The 32MB delta seems to be inadequate? Does anyone else on 1.9 see this? Jack Kelly 202-502-2390 (Office) This email/fax message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution of this email/fax is prohibited. If you are not the intended recipient, please destroy all paper and electronic copies of the original message. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: BLOCK CONTAINS
Clark, Wow, 1998, that was a while ago! SyncSort processing has changed. Unless told specifically to leave the output unblocked, we will create the output data set as a blocked data set when the input is VSAM. I'm not sure when the change occurred but it was some time ago. John Reda Syncsort, Inc. 201-930-8260 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Clark Morris Sent: Thursday, May 14, 2009 10:45 PM To: IBM-MAIN@bama.ua.edu Subject: Re: BLOCK CONTAINS While blocked input files may be read successfully if neither the block size nor BLOCK 0 is specified provided record descriptions match, lack of BLOCK CONTAINS causes the default blocksize on output to be ONE record. I believe I submitted a SHARE requirement back in the 1990's to have a compile option that the default be BLOCK 0. Either is a perfectly valid default according to the COBOL standard. BLOCK would be the default consistent with VSAM handling. The whole issue is a sore point with me and possibly others. Incidentally be careful to specify BLKSIZE=0 on the DD statements of output files from sorts that sort or copy VSAM files. Unless things have changed from 1998, SYNCSORT defaulted to one record per block. -- 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-MAIN Digest - 13 May 2009 to 14 May 2009 (#2009-134)
Bill - I just finished migrating six InfoPrint 4000 printers from Bus & Tag channels to GigE connect. Everything the Operators had before is still there afterwards, only some of it's in a different format. The old "IOS0003A INTERVENTION REQUIRED" message is replaced by "APS6511I (TCPIP) INTERVENTION REQUIRED" and the "set up" message is slightly different. If you key off of that in automated operations, you've got some research to do. The big "gotchas" I encountered all centered around parms being defined through the online panels for Infoprint Server rather than in the FSS proc for each printer (Issue Intervention Message and Issue Setup messages). Other than getting the Network guys to run me some wire, I had no problems. Jim Frisbie NCSECU Dinosaur From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of IBM-MAIN automatic digest system Sent: Friday, May 15, 2009 12:00 AM To: IBM-MAIN@bama.ua.edu Subject: IBM-MAIN Digest - 13 May 2009 to 14 May 2009 (#2009-134) This email may contain confidential and privileged material for the sole use of the intended recipient. If you are not the intended recipient, please contact the sender and delete all copies. Any review or distribution by others is strictly prohibited. Personal emails are restricted by policy of the State Employees' Credit Union (SECU). Therefore SECU specifically disclaims any responsibility or liability for any personal information or opinions of the author expressed in this email. -- 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
USERCAT Error (Out of Space)
I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- 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: BLOCK CONTAINS
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Frank Swarbrick Sent: Thursday, May 14, 2009 7:03 PM To: IBM-MAIN@bama.ua.edu Subject: BLOCK CONTAINS I have been a bit of experimenting with z/OS QSAM files from a Cobol program and I find that the manuals don't exactly agree with my results. The manuals seem to imply that if you use the BLOCK CONTAINS clause (whether 0 or something else) then the file has a RECFM of either VB or FB. And if you don't include it then it's either V or B. Welcome to the MVS world. In the MVS world, we are not device dependant, nor are we data definition locked/blocked. We generally don't have to recompile our programs, change the DTF contents (DCB in MVS), etc. just because the file attributes change (xSAM to VSAM is the exception). We do not have to link PIOCS or LIOCS routines to our programs to handle I/O. The access method itself handles these things (particularly at the QSAM level). If you are using a vendor to help you migrate, you should spend a bit of time with them discussing all the changes to the environment and different concepts between VSE and MVS. As you have seen with your experiments, the information on the DD statement will override what you have in your program. And the label from the file in MVS actually contains the LRECL, BLKSIZE and RECFM, which as I recall, is not the case with VSE (for disk or tape). However, what happens if the DD statement only contains the UNIT, SPACE, DISP, and DSN? Does what you specify in the COBOL program then behave the way the manual says? Your ESDS files being taken to SAM: Just make sure that you don't actually depend on VSAM functions. And as far as your ASSIGN clause on the SELECT: you can probably leave them as they are -- but I haven't used the latest COBOL for a migration. In fact it has been a few years since I've done a migration. So unless it is going to enforce something, as I recall, only what is after the last "-" is paid attention to. And if you end with -SYS112 (or some such), then the DD being looked for is SYS112. Regards, Steve Thompson -- Opinions expressed by this poster may not reflect those of poster's employer. -- -- 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: BLOCK CONTAINS
On Friday 15 May 2009 02:05, Frank Swarbrick wrote: > We are migrating from VSE to z/OS, and at the same time we are going > to convert most of our existing ESDS files to regular sequential files. > I see no reason to add "BLOCK CONTAINS 0" to all of our FD's if it has > no affect (our VSAM FD's do not (generally!) specify the BLOCK CONTAINS > clause, because it has no meaning to VSAM). IIRC, BLOCK CONTAINS 0 is only needed for OUTPUT files in COBOL, but I think it's better to put it everywhere, so programmers later don't have to remember where it's needed. In 1991, I started to convert VSE applications to MVS/ESA and stopped to generate DCB attributes on DD statements, except for output files in IDCAMS REPRO and QUIKJOB programs, and a few others ones. A few years later, I started to convert IDCAMS REPRO to something else, for several advantages, among them not having to specify DCB info in the JCL. I'm convinced that coding DCB attributes on DD statements is something almost always useless and archaic. This is something all my customers agreed with, except an outsourcing company that absolutely had to have DCB information on all output DD statements, like this: DCB=(RECFM=xx,LRECL=yy,BLKSIZE=zzz). This was in 2007 ! In z/OS ! See examples here: http://gsf-soft.com/Prism-CS/Samples.shtml and you won't see many DD statements that contain DCB info. This is very similar to what I generated since 1991. As for the conversion of ESDS files to non-VSAM in COBOL programs, changing AS-filename to S-ddname is not always the only thing you need to do. Trust me ! -- Gilbert Saint-Flour GSF Software http://gsf-soft.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: BLOCK CONTAINS
What if a new device came out and there was a better optimum blocksize for it? Wouldn't you have to recompile everthing that used that file to get the optimum blocksize? I don't know I'm just asking. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Gilbert Saint-Flour Sent: Friday, May 15, 2009 8:29 AM To: IBM-MAIN@bama.ua.edu Subject: Re: BLOCK CONTAINS On Friday 15 May 2009 02:05, Frank Swarbrick wrote: > We are migrating from VSE to z/OS, and at the same time we are going > to convert most of our existing ESDS files to regular sequential files. > I see no reason to add "BLOCK CONTAINS 0" to all of our FD's if it has > no affect (our VSAM FD's do not (generally!) specify the BLOCK CONTAINS > clause, because it has no meaning to VSAM). IIRC, BLOCK CONTAINS 0 is only needed for OUTPUT files in COBOL, but I think it's better to put it everywhere, so programmers later don't have to remember where it's needed. In 1991, I started to convert VSE applications to MVS/ESA and stopped to generate DCB attributes on DD statements, except for output files in IDCAMS REPRO and QUIKJOB programs, and a few others ones. A few years later, I started to convert IDCAMS REPRO to something else, for several advantages, among them not having to specify DCB info in the JCL. I'm convinced that coding DCB attributes on DD statements is something almost always useless and archaic. This is something all my customers agreed with, except an outsourcing company that absolutely had to have DCB information on all output DD statements, like this: DCB=(RECFM=xx,LRECL=yy,BLKSIZE=zzz). This was in 2007 ! In z/OS ! See examples here: http://gsf-soft.com/Prism-CS/Samples.shtml and you won't see many DD statements that contain DCB info. This is very similar to what I generated since 1991. As for the conversion of ESDS files to non-VSAM in COBOL programs, changing AS-filename to S-ddname is not always the only thing you need to do. Trust me ! -- Gilbert Saint-Flour GSF Software http://gsf-soft.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html == This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to which they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited. -- 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)
I would look at: a) clean up unneeded entries b) reorg c) expand the space d) split the catalog e) all of the above Dennis Roach GHG Corporation Lockheed Martin Mission Services Flight Design and Operations Contract NASA/JSC Address: 2100 Space Park Drive LM-15-4BH Houston, Texas 77058 Mail: P.O. Box 58487 Mail Code H4C Houston, Texas 77258 Phone: Voice: (281)336-5027 Cell: (713)591-1059 Fax:(281)336-5410 E-Mail: dennis.ro...@lmco.com All opinions expressed by me are mine and may not agree with my employer or any person, company, or thing, living or dead, on or near this or any other planet, moon, asteroid, or other spatial object, natural or manufactured, since the beginning of time. > -Original Message- > From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On > Behalf Of George Rodriguez > Sent: Friday, May 15, 2009 8:24 AM > To: IBM-MAIN@bama.ua.edu > Subject: USERCAT Error (Out of Space) > > I've got this out of space problem in one of our user catalogs. Since > this particular catalog is used by a bunch of STC, I was thinking of > expanding the catalog this Sunday in a window. Here's my question...Is > it possible to REORG the catalog to reclaim "dead space"? I've deleted > about 600 entries but that only bought me about 4 hours until it got > full again. > > > > George Rodriguez > > Specialist, Systems Programmer > > Network & Technical Services > > (561) 357-7652 (office) > > (561) 707-3496 (mobil) > > School District of Palm Beach County > > 3348 Forest Hill Blvd. > > Room B-332 > > West Palm Beach, FL. 33406-5869 > > Rated "A" by the Florida Department of Education 2005, 2006, 2007 & > 2008 > > > > - Under Florida law, e-mail > addresses are public records. If you do not want your e-mail > address released in response to a public records request, do not > send electronic mail to this entity. Instead, contact this office > by phone or in writing. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: BLOCK CONTAINS
Blocksize=0 invokes system determined blocking which results in 2 blocks per track. It won't matter what DASD device is used. Dave O'Brien NIH Contractor From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of Ward, Mike S [mw...@ssfcu.org] Sent: Friday, May 15, 2009 9:37 AM To: IBM-MAIN@bama.ua.edu Subject: Re: BLOCK CONTAINS What if a new device came out and there was a better optimum blocksize for it? Wouldn't you have to recompile everthing that used that file to get the optimum blocksize? I don't know I'm just asking. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Gilbert Saint-Flour Sent: Friday, May 15, 2009 8:29 AM To: IBM-MAIN@bama.ua.edu Subject: Re: BLOCK CONTAINS On Friday 15 May 2009 02:05, Frank Swarbrick wrote: > We are migrating from VSE to z/OS, and at the same time we are going > to convert most of our existing ESDS files to regular sequential files. > I see no reason to add "BLOCK CONTAINS 0" to all of our FD's if it has > no affect (our VSAM FD's do not (generally!) specify the BLOCK CONTAINS > clause, because it has no meaning to VSAM). IIRC, BLOCK CONTAINS 0 is only needed for OUTPUT files in COBOL, but I think it's better to put it everywhere, so programmers later don't have to remember where it's needed. In 1991, I started to convert VSE applications to MVS/ESA and stopped to generate DCB attributes on DD statements, except for output files in IDCAMS REPRO and QUIKJOB programs, and a few others ones. A few years later, I started to convert IDCAMS REPRO to something else, for several advantages, among them not having to specify DCB info in the JCL. I'm convinced that coding DCB attributes on DD statements is something almost always useless and archaic. This is something all my customers agreed with, except an outsourcing company that absolutely had to have DCB information on all output DD statements, like this: DCB=(RECFM=xx,LRECL=yy,BLKSIZE=zzz). This was in 2007 ! In z/OS ! See examples here: http://gsf-soft.com/Prism-CS/Samples.shtml and you won't see many DD statements that contain DCB info. This is very similar to what I generated since 1991. As for the conversion of ESDS files to non-VSAM in COBOL programs, changing AS-filename to S-ddname is not always the only thing you need to do. Trust me ! -- Gilbert Saint-Flour GSF Software http://gsf-soft.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html == This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to which they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: USERCAT Error (Out of Space)
Catalog Recovery Plus from Mainstar.com will allow you to increase the size of your catalog, re-organize it with optimum CI sizes and move it if necessary to another volume, non-disruptively. In theory this can be done with multiple LPARs accessing the catalog. In practice I've done this type of catalog work during quiet times on Sunday. I suspect there are other products, CRP is just the one with which I'm most familiar. Dave O'Brien NIH Contractor From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez [rodrigu...@palmbeach.k12.fl.us] Sent: Friday, May 15, 2009 9:23 AM To: IBM-MAIN@bama.ua.edu Subject: USERCAT Error (Out of Space) I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: USERCAT Error (Out of Space)
Dave, Can this process be done using standard repro commands or do I need a product to do it? Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of O'Brien, David W. (NIH/CIT) [C] Sent: Friday, May 15, 2009 9:41 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) Catalog Recovery Plus from Mainstar.com will allow you to increase the size of your catalog, re-organize it with optimum CI sizes and move it if necessary to another volume, non-disruptively. In theory this can be done with multiple LPARs accessing the catalog. In practice I've done this type of catalog work during quiet times on Sunday. I suspect there are other products, CRP is just the one with which I'm most familiar. Dave O'Brien NIH Contractor From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez [rodrigu...@palmbeach.k12.fl.us] Sent: Friday, May 15, 2009 9:23 AM To: IBM-MAIN@bama.ua.edu Subject: USERCAT Error (Out of Space) I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: BLOCK CONTAINS
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Ward, Mike S Sent: Friday, May 15, 2009 8:38 AM To: IBM-MAIN@bama.ua.edu Subject: Re: BLOCK CONTAINS What if a new device came out and there was a better optimum blocksize for it? Wouldn't you have to recompile everthing that used that file to get the optimum blocksize? I don't know I'm just asking. Under VSE that would be true for other than VSAM access. Under MVS you would have to go out of your way to get into this problem of being blocksize dependent. Granted, this was done in days when there were different device geometries (2314, 3330, 3340, 3375, 3380, 3390). But as has been and will be pointed out, as long as you specify BLKSIZE=0, you will get System Determined Blocksize which will handle this situation. Regards, Steve Thompson -- Opinions expressed by this poster may not reflect those of poster's employer. -- -- 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: C/C++ Calling OBTAIN / IGC0002G
here goes - the c program (cotasm.c) was also copied from a post (i think Crista's) and added the main section. i thought i knew a little C from studying Microsoft's c# for Windows, but when i look at c, c++ on the mainframe I know next to nothing - c# is completely different. That is why i got interested in this topic. actually, i get the same type of abend (segmentation violation) trying to run some of the jni examples i have found (using c and java), although some do work and others abend. and the abends happen when running both batch and under OMVS. i have not yet looked up what the segmentation violation abend means. ctoasm.c int OBTAIN(unsigned long[]); #pragma linkage(OBTAIN, OS) #pragma pack(1) /* 1 byte alignment */ typedef struct { char Ds1FmtId; char Ds1Dssn[6]; unsigned short Ds1VolSq; char Ds1CreDt[3]; char Ds1ExpDt[3]; unsigned char Ds1NoEpv; unsigned char Ds1NoBdb; unsigned char Ds1Flag1; char Ds1SysCd[13]; char Ds1RefDt[3]; unsigned char Ds1SmsFg; unsigned char Ds1ScXft; unsigned short Ds1ScXtv; unsigned char Ds1DsOrg[2]; unsigned char Ds1RecFm; unsigned char Ds1OptCd; unsigned short Ds1BlkL; unsigned short Ds1LrecL; unsigned char Ds1KeyL; unsigned short Ds1Rkp; unsigned char Ds1DsInd; unsigned char Ds1ScAl1; unsigned char Ds1ScAl3[3]; unsigned char Ds1LstAr[3]; unsigned short Ds1TrBal; unsigned char Reserved; unsigned char Ds1Tthi; unsigned char Ds1Ext1[10]; unsigned char Ds1Ext2[10]; unsigned char Ds1Ext3[10]; unsigned char Ds1PtrDs[5]; char Filler[44]; } DSCB; #pragma pack() /* default alignment */ int call_obtain(char *Dsn, char *VolSer) { intRc; unsigned long Parm[4]; char ParmDsn[44]; char ParmVolSer[6]; DSCB Dscb; memset(ParmDsn, ' ', 44); memcpy(ParmDsn, Dsn, strlen(Dsn)); memset(ParmVolSer, ' ', 6); memcpy(ParmVolSer, VolSer, strlen(VolSer)); /*should be 6 always!*/ Parm[0] = 0xC100; Parm[1] = (unsigned long) ParmDsn; Parm[2] = (unsigned long) ParmVolSer; Parm[3] = (unsigned long) &Dscb; if((Rc = OBTAIN(&Parm[0])) != 0) return(Rc); /* do something with DSCB */ return(0); } int main() { char dsname[44], volume[6]; memset(&dsname,' ',44); ,Command ===>, memcpy(&dsname, "XCICS.EILEEN.PDSE", 17); memset(&volume,' ', 6); memcpy(&volume, "CICH92", 6); memset(&work,' ',140); call_obtain(dsname,volume,work); } **assembler program obtasm.s * Top of Data * * R0 EQU 0 R1 EQU 1 R2 EQU 2 R3 EQU 3 R4 EQU 4PARMS R5 EQU 5 R6 EQU 6 R7 EQU 7 R8 EQU 8 R9 EQU 9 R10 EQU 10 R11 EQU 11 BASE R12 EQU 12 LE/370 COMMON ANCHOR AREA (CAA) R13 EQU 13 LE/370 DYNAMIC SAVE AREA (DSA) R14 EQU 14 R15 EQU 15 * PARM DSECT PARM_FLG DSFFUNCTION-CODE HEX'C100' PARM_DSN DSFADDR OF DSN (44 BYTES) PARM_VOL DSFADDR OF VOLSER (6 BYTES) PARM_WRK DSFADDR OF 140 BYTE WORK/RETURN-AREA * * OBTAIN CEEENTRY PPA=MAINPPA, ADDR OF PROGRAM PROLOG AREA X AUTO=WORKSIZE,SIZE OF DSECT (-> SAVEAREA!) XX NAB=NO, NAB NOT USED XX MAIN=NO, NO MAINPROG XX EXPORT=NO,DONT EXPORT ENTRYPOINT XX BASE=R11 BASE * USING CEECAA,R12COMMON ANCHOR AREA USING CEEDSA,R13DSA + LOCAL (DYNAM.) VARIABLES *-- ,Command ===>,,Scroll == L R4,0(R1) LOAD ADDR OF PARMS USING PARM,R4 ADDRESS PARMS * OBTAIN PARM INVOKE OBTAIN STR15,RETCODE SAVE RC * CEETERM RC=RETCODE *-- MAINPPA CEEPPA PROGRAM PROLOG AREA LTORG *-- CEEDSA DSECT: DYNAMIC SAVE AREA RETCODE DS F RETURNCODE DS 0D ENSURE ALIGNMENT!!! WORKSIZE EQU *-CEEDSA *-- CEECAA DSECT: COMMON ANCHOR AREA CEEEDB DSECT: ENCLAVE DATA BLOCK END to compile: (get no errors) c++ -v -o ctoasm ctoasm.c obtasm.s when run: $ ctoasm CEE3204S The system detected a protection exception (System Completion Code=0C4) . From compile unit OBTAI
Re: USERCAT Error (Out of Space)
You have to keep in mind that a usercatalog is basically a KSDS. When you delete records, there are keys associated with them. If new keys you add do not collate properly, then VSAM will add them to freespace at the end. A REORG would reclaim this space. There are a few products on the market that would allow you to do this without any downtime, T-REX from Dino-Software being one of them. However, if you have a maintenance window, you could use IDCAMS EXPORT and IMPORT. If you have more questions, feel free to contact me directly. Larry Crilley 412.366.3566 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:24 AM To: IBM-MAIN@bama.ua.edu Subject: USERCAT Error (Out of Space) I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: USERCAT Error (Out of Space)
Sure, if you like living dangerously. You might consider allocating a new larger catalog then use Idcams Mergecat to move the entries. I would move them selectively ensuring that my most important HLQs were moved first. Also you will want to run Diagnose and Examine commands to make sure the catalog is clean. Good Luck, Dave O'Brien NIH Contractor PS. I have had Mergecat fail in the far distant past which is partially why I prefer CRP. That was years ago and I'm sure IBM has improved the code. From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez [rodrigu...@palmbeach.k12.fl.us] Sent: Friday, May 15, 2009 9:48 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) Dave, Can this process be done using standard repro commands or do I need a product to do it? Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of O'Brien, David W. (NIH/CIT) [C] Sent: Friday, May 15, 2009 9:41 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) Catalog Recovery Plus from Mainstar.com will allow you to increase the size of your catalog, re-organize it with optimum CI sizes and move it if necessary to another volume, non-disruptively. In theory this can be done with multiple LPARs accessing the catalog. In practice I've done this type of catalog work during quiet times on Sunday. I suspect there are other products, CRP is just the one with which I'm most familiar. Dave O'Brien NIH Contractor From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez [rodrigu...@palmbeach.k12.fl.us] Sent: Friday, May 15, 2009 9:23 AM To: IBM-MAIN@bama.ua.edu Subject: USERCAT Error (Out of Space) I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: BLOCK CONTAINS
On Fri, 15 May 2009 09:27:42 -0400, Thompson, Steve wrote: > >Welcome to the MVS world. In the MVS world, we are not device dependant, >nor are we data definition locked/blocked. We generally don't have to >recompile our programs, change the DTF contents (DCB in MVS), etc. just >because the file attributes change (xSAM to VSAM is the exception). > Huh??? If "we are not device dependant", why is there such intense trepidation and resistance to the mere suggestion of a device with a novel geometry such as more bytes per track or more tracks per cylinder? It doesn't appear that you and I have been living in the same MVS world. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: USERCAT Error (Out of Space)
I appreciate your honesty about living dangerously and your PS on your failure and I'm thing to myself ... I'm on a 1.4 system ... Should I be concerned? Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of O'Brien, David W. (NIH/CIT) [C] Sent: Friday, May 15, 2009 10:02 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) Sure, if you like living dangerously. You might consider allocating a new larger catalog then use Idcams Mergecat to move the entries. I would move them selectively ensuring that my most important HLQs were moved first. Also you will want to run Diagnose and Examine commands to make sure the catalog is clean. Good Luck, Dave O'Brien NIH Contractor PS. I have had Mergecat fail in the far distant past which is partially why I prefer CRP. That was years ago and I'm sure IBM has improved the code. From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez [rodrigu...@palmbeach.k12.fl.us] Sent: Friday, May 15, 2009 9:48 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) Dave, Can this process be done using standard repro commands or do I need a product to do it? Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of O'Brien, David W. (NIH/CIT) [C] Sent: Friday, May 15, 2009 9:41 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) Catalog Recovery Plus from Mainstar.com will allow you to increase the size of your catalog, re-organize it with optimum CI sizes and move it if necessary to another volume, non-disruptively. In theory this can be done with multiple LPARs accessing the catalog. In practice I've done this type of catalog work during quiet times on Sunday. I suspect there are other products, CRP is just the one with which I'm most familiar. Dave O'Brien NIH Contractor From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez [rodrigu...@palmbeach.k12.fl.us] Sent: Friday, May 15, 2009 9:23 AM To: IBM-MAIN@bama.ua.edu Subject: USERCAT Error (Out of Space) I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive
Re: USERCAT Error (Out of Space)
T-Rex is a nice product that might be able to help you in this situation. If you do have a window of downtime, the suggestion would be to perform an IDCAMS MERGECAT. If you're at the limit of alias entries, than you should split the catalog into multiple usercats. You should look at the size of the current usercat and the number of entries in the catalog. Michael Spencer BMC Software -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Larry Crilley Sent: Friday, May 15, 2009 10:00 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You have to keep in mind that a usercatalog is basically a KSDS. When you delete records, there are keys associated with them. If new keys you add do not collate properly, then VSAM will add them to freespace at the end. A REORG would reclaim this space. There are a few products on the market that would allow you to do this without any downtime, T-REX from Dino-Software being one of them. However, if you have a maintenance window, you could use IDCAMS EXPORT and IMPORT. If you have more questions, feel free to contact me directly. Larry Crilley 412.366.3566 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:24 AM To: IBM-MAIN@bama.ua.edu Subject: USERCAT Error (Out of Space) I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: USERCAT Error (Out of Space)
>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... Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Spencer, Mike Sent: Friday, May 15, 2009 10:10 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) T-Rex is a nice product that might be able to help you in this situation. If you do have a window of downtime, the suggestion would be to perform an IDCAMS MERGECAT. If you're at the limit of alias entries, than you should split the catalog into multiple usercats. You should look at the size of the current usercat and the number of entries in the catalog. Michael Spencer BMC Software -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Larry Crilley Sent: Friday, May 15, 2009 10:00 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You have to keep in mind that a usercatalog is basically a KSDS. When you delete records, there are keys associated with them. If new keys you add do not collate properly, then VSAM will add them to freespace at the end. A REORG would reclaim this space. There are a few products on the market that would allow you to do this without any downtime, T-REX from Dino-Software being one of them. However, if you have a maintenance window, you could use IDCAMS EXPORT and IMPORT. If you have more questions, feel free to contact me directly. Larry Crilley 412.366.3566 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:24 AM To: IBM-MAIN@bama.ua.edu Subject: USERCAT Error (Out of Space) I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: USERCAT Error (Out of Space)
George, As an FYI, I've completed hundreds of MERGECATS through many different releases of MVS without any problems. There was a problem many years ago with SMS managed data and a usercat move. I don't remember the specifics, but it was back in the ESA days. With a usercat of only 230 tracks, a MERGECAT into a larger catalog would not take much time and would be easy to verify the results. Be sure to back up the original usercat before doing any work. :-) Michael Spencer BMC Software -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 10:22 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) >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... Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Spencer, Mike Sent: Friday, May 15, 2009 10:10 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) T-Rex is a nice product that might be able to help you in this situation. If you do have a window of downtime, the suggestion would be to perform an IDCAMS MERGECAT. If you're at the limit of alias entries, than you should split the catalog into multiple usercats. You should look at the size of the current usercat and the number of entries in the catalog. Michael Spencer BMC Software -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Larry Crilley Sent: Friday, May 15, 2009 10:00 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You have to keep in mind that a usercatalog is basically a KSDS. When you delete records, there are keys associated with them. If new keys you add do not collate properly, then VSAM will add them to freespace at the end. A REORG would reclaim this space. There are a few products on the market that would allow you to do this without any downtime, T-REX from Dino-Software being one of them. However, if you have a maintenance window, you could use IDCAMS EXPORT and IMPORT. If you have more questions, feel free to contact me directly. Larry Crilley 412.366.3566 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:24 AM To: IBM-MAIN@bama.ua.edu Subject: USERCAT Error (Out of Space) I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html --
Re: USERCAT Error (Out of Space)
You said you gained 4 hours by deleting a lot of entries. What's eating your space? What's changed? Why now and not before? I'm just curious. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:22 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) >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... Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Spencer, Mike Sent: Friday, May 15, 2009 10:10 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) T-Rex is a nice product that might be able to help you in this situation. If you do have a window of downtime, the suggestion would be to perform an IDCAMS MERGECAT. If you're at the limit of alias entries, than you should split the catalog into multiple usercats. You should look at the size of the current usercat and the number of entries in the catalog. Michael Spencer BMC Software -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Larry Crilley Sent: Friday, May 15, 2009 10:00 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You have to keep in mind that a usercatalog is basically a KSDS. When you delete records, there are keys associated with them. If new keys you add do not collate properly, then VSAM will add them to freespace at the end. A REORG would reclaim this space. There are a few products on the market that would allow you to do this without any downtime, T-REX from Dino-Software being one of them. However, if you have a maintenance window, you could use IDCAMS EXPORT and IMPORT. If you have more questions, feel free to contact me directly. Larry Crilley 412.366.3566 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:24 AM To: IBM-MAIN@bama.ua.edu Subject: USERCAT Error (Out of Space) I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html == This email and any files transmitted with it are confidential and intended solely for the
Re: BLOCK CONTAINS
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Friday, May 15, 2009 9:07 AM To: IBM-MAIN@bama.ua.edu Subject: Re: BLOCK CONTAINS On Fri, 15 May 2009 09:27:42 -0400, Thompson, Steve wrote: > >Welcome to the MVS world. In the MVS world, we are not device dependant, >nor are we data definition locked/blocked. We generally don't have to >recompile our programs, change the DTF contents (DCB in MVS), etc. just >because the file attributes change (xSAM to VSAM is the exception). > Huh??? If "we are not device dependant", why is there such intense trepidation and resistance to the mere suggestion of a device with a novel geometry such as more bytes per track or more tracks per cylinder? It doesn't appear that you and I have been living in the same MVS world. In the VSE world, if you set up to read tape, you can not change your JCL to instead read Disk. A DTFSD (Define The File - Sequential Disk) can not be used to read a tape (DTFMT - Define The File - Magnetic Tape). If you did use the DTFDI (Define The File - Device Independent) it is only good for limited situations. In the MVS world, DCB is DCB -- We don't have DCBSD for Data Control Block - Sequential Disk. The Access Method connects you to the device and handles it (unless you went out of your way to make the DCB specific to a device, such as a card reader). As you can see, there is device dependence and then there is device dependence. Regards, Steve Thompson -- Opinions expressed by this poster may not reflect those of poster's employer. -- -- 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)
I have a product called Power Exchange from Informatica and it creates these condense files. Right now I have 488 of these entries in the catalog in question...Nothing has really changed except that I'm allocating space more efficiently by using a better block size for the file. Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Ward, Mike S Sent: Friday, May 15, 2009 10:28 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You said you gained 4 hours by deleting a lot of entries. What's eating your space? What's changed? Why now and not before? I'm just curious. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:22 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) >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... Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Spencer, Mike Sent: Friday, May 15, 2009 10:10 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) T-Rex is a nice product that might be able to help you in this situation. If you do have a window of downtime, the suggestion would be to perform an IDCAMS MERGECAT. If you're at the limit of alias entries, than you should split the catalog into multiple usercats. You should look at the size of the current usercat and the number of entries in the catalog. Michael Spencer BMC Software -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Larry Crilley Sent: Friday, May 15, 2009 10:00 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You have to keep in mind that a usercatalog is basically a KSDS. When you delete records, there are keys associated with them. If new keys you add do not collate properly, then VSAM will add them to freespace at the end. A REORG would reclaim this space. There are a few products on the market that would allow you to do this without any downtime, T-REX from Dino-Software being one of them. However, if you have a maintenance window, you could use IDCAMS EXPORT and IMPORT. If you have more questions, feel free to contact me directly. Larry Crilley 412.366.3566 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:24 AM To: IBM-MAIN@bama.ua.edu Subject: USERCAT Error (Out of Space) I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive acces
Re: CICS TN3270 Printer Question
Rogers I'm looking further into this - actually taking the time to read the manual! Ideally somebody who has actually done this would respond but, meantime, let's see what can be done. - >From what you said before I assumed you had provided the specific name XS128PTS in the definitions set up in your TN3270E client. If this is not the case, you will need to use DEFAULTPRT XS128PTS ENDDEFAULTPRT in order to have the "printer" connection select LU name XS128PTS in the basic testing setup I proposed. - It may be that you shouldn't need to use the CICS ACQUIRE process in order to initiate the "printer" session. As far as CICS is concerned, you could have the "printer" itself initiate the session. In terms of the SNA flow involved, this would be similar to the use of the LOGAPPL operand of the APPL, LOCAL or LU statement representing the secondary LU. A "printer" does *not* use the DEFAULTAPPL statement in order to initiate the "printer" session. The text following "DEFAULTAPPL:" in the Communications Server IP Configuration Guide states "The DEFAULTAPPL statement applies only to terminal emulators connecting in TN3270, TN3270E, or DBCSTRANSFORM mode." In the days before TN3270E and printer support, TN3270 supported only logical display devices and described them as "terminals". With the introduction of printer support, descriptions continue confusingly to use the term "terminal" in order to indicate a logical *display* device. A "printer" uses the PRTDEFAULTAPPL statement in order to initiate the "printer" session which is necessarily using TN3270E TELNET negotiation. Thus I suggest you could try using the statement PRTDEFAULTAPPL CICSPEGQ if you are using the simplified test setup I proposed. Alternatively, you could "go for broke" and try stitching PRTDEFAULTAPPL CICSPEGQ IPPEGQ into the definitions you posted. Either of these should cause your "printer" connection to concatenate to a session with CICS at the time you make the TN3270E client connection and you will not actually need to use the CICS ACQUIRE command. If the TN3270E server initiates the session as I indicate here, it is now important that the mode table entry name is correctly specified in the TN3270E server definitions using the TELNETDEVICE statement: TELNETDEVICE IBM-3287-1 ,DSC2K If you are very keen instead to use the DLOGMOD operand of the APPL statement, you could specify the following: TELNETDEVICE IBM-3287-1 ,NONE Note that, if you continue to have problems, you should post any error messages from the two components in this configuration from which you did not mention any information in your initial post. These two components are the TN3270 server and VTAM. If there are any messages at the time you issue the CICS ACQUIRE command or, using the definitions I have just proposed, at the time you make your TN3270E "printer" connection, you should post these. In addition, any status display information from any of the components, "before" and "after", should be posted. Incidentally, if you decide to use the mechanism implied by the PRTDEFAULTAPPL statement - and get it to work of course, you will not need AUTH=(ACQ) to be specified on the APPL statement. It will do no harm to be left in place but would contribute to "good documentation" if it were removed. It would also serve not to confuse anyone trying to make sense of your definitions should you happen not to be available to explain them - a lot of that going on these days! - Please let us know how you get on. - A final point for now: I see you are using a mode table entry which suggests that you want to use LU type 3. Using LU type 1 for "printer" sessions is generally more efficient. Note that I am assuming, despite the fact that you have specified the MODETAB operand on your APPL statement which names a "private" mode table, you are, in fact, using the mode table entry specified in the mode table supplied by VTAM and always available, ISTINCLM. If you do decide to use LU type 1 with a mode table entry such as "SCS" and the system running CICS is not the same one running the TN3270E server, you may want to improve flow by taking care of the "pacing" values. This is where your "private" mode table could become useful. - Chris Mason On Thu, 14 May 2009 15:05:45 -0500, Laine, Rogers wrote: >From an Attachmate Extra session defined as a TN3270 printer, I am able >to connect to the luname XS128PTS. The session state of the session in >Extra displays >as 'Active and not bound'. When an acquire is attempted from CICS, the >below message is generated in the MSGUSR log. A network analyzer shows >that no >network traffic is generated by the acquire. >Can you explain what is going wrong with this printer? > >VTAM APPL Definition: >XS128PTS APPL >AUTH= (ACQ),EAS=1,PARSESS=NO,SESSLIM=YES,MODETAB=WNBMODE1,DLOGMOD=DS C2K,E >NCR=NONE > >CICS Printer definition: > OBJECT CHARACTERISTICSC
Re: USERCAT Error (Out of Space)
George, Let me second Mike Spencer's recommendation to backup the catalog before starting. Depending on your level of experience, confidence both an Export and a Volume backup might be in order. Also make sure the HLQ of your backup is not an alias in the catalog being worked on. I saw a co-worker do that. He deleted the catalog and then could not access the now uncataloged SMS managed backup dataset. Dave O'Brien NIH Contractor From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez [rodrigu...@palmbeach.k12.fl.us] Sent: Friday, May 15, 2009 10:21 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) >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... Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Spencer, Mike Sent: Friday, May 15, 2009 10:10 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) T-Rex is a nice product that might be able to help you in this situation. If you do have a window of downtime, the suggestion would be to perform an IDCAMS MERGECAT. If you're at the limit of alias entries, than you should split the catalog into multiple usercats. You should look at the size of the current usercat and the number of entries in the catalog. Michael Spencer BMC Software -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Larry Crilley Sent: Friday, May 15, 2009 10:00 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You have to keep in mind that a usercatalog is basically a KSDS. When you delete records, there are keys associated with them. If new keys you add do not collate properly, then VSAM will add them to freespace at the end. A REORG would reclaim this space. There are a few products on the market that would allow you to do this without any downtime, T-REX from Dino-Software being one of them. However, if you have a maintenance window, you could use IDCAMS EXPORT and IMPORT. If you have more questions, feel free to contact me directly. Larry Crilley 412.366.3566 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:24 AM To: IBM-MAIN@bama.ua.edu Subject: USERCAT Error (Out of Space) I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html --
Re: C/C++ Calling OBTAIN / IGC0002G
Hey, One quick look, you're calling call_obtain with 3 arguments.. although it's got only two. Another thing, don't bother setting 44 spaces, this will be done in call_obtain. int main() { call_obtain("DATASET","VOLUME"); } Best regards, Cristi Terpea Barkow, Eileen wrote: here goes - the c program (cotasm.c) was also copied from a post (i think Crista's) and added the main section. i thought i knew a little C from studying Microsoft's c# for Windows, but when i look at c, c++ on the mainframe I know next to nothing - c# is completely different. That is why i got interested in this topic. actually, i get the same type of abend (segmentation violation) trying to run some of the jni examples i have found (using c and java), although some do work and others abend. and the abends happen when running both batch and under OMVS. i have not yet looked up what the segmentation violation abend means. ctoasm.c int OBTAIN(unsigned long[]); #pragma linkage(OBTAIN, OS) #pragma pack(1) /* 1 byte alignment */ typedef struct { char Ds1FmtId; char Ds1Dssn[6]; unsigned short Ds1VolSq; char Ds1CreDt[3]; char Ds1ExpDt[3]; unsigned char Ds1NoEpv; unsigned char Ds1NoBdb; unsigned char Ds1Flag1; char Ds1SysCd[13]; char Ds1RefDt[3]; unsigned char Ds1SmsFg; unsigned char Ds1ScXft; unsigned short Ds1ScXtv; unsigned char Ds1DsOrg[2]; unsigned char Ds1RecFm; unsigned char Ds1OptCd; unsigned short Ds1BlkL; unsigned short Ds1LrecL; unsigned char Ds1KeyL; unsigned short Ds1Rkp; unsigned char Ds1DsInd; unsigned char Ds1ScAl1; unsigned char Ds1ScAl3[3]; unsigned char Ds1LstAr[3]; unsigned short Ds1TrBal; unsigned char Reserved; unsigned char Ds1Tthi; unsigned char Ds1Ext1[10]; unsigned char Ds1Ext2[10]; unsigned char Ds1Ext3[10]; unsigned char Ds1PtrDs[5]; char Filler[44]; } DSCB; #pragma pack() /* default alignment */ int call_obtain(char *Dsn, char *VolSer) { intRc; unsigned long Parm[4]; char ParmDsn[44]; char ParmVolSer[6]; DSCB Dscb; memset(ParmDsn, ' ', 44); memcpy(ParmDsn, Dsn, strlen(Dsn)); memset(ParmVolSer, ' ', 6); memcpy(ParmVolSer, VolSer, strlen(VolSer)); /*should be 6 always!*/ Parm[0] = 0xC100; Parm[1] = (unsigned long) ParmDsn; Parm[2] = (unsigned long) ParmVolSer; Parm[3] = (unsigned long) &Dscb; if((Rc = OBTAIN(&Parm[0])) != 0) return(Rc); /* do something with DSCB */ return(0); } int main() { char dsname[44], volume[6]; memset(&dsname,' ',44); ,Command ===>, memcpy(&dsname, "XCICS.EILEEN.PDSE", 17); memset(&volume,' ', 6); memcpy(&volume, "CICH92", 6); memset(&work,' ',140); call_obtain(dsname,volume,work); } **assembler program obtasm.s * Top of Data * * R0 EQU 0 R1 EQU 1 R2 EQU 2 R3 EQU 3 R4 EQU 4PARMS R5 EQU 5 R6 EQU 6 R7 EQU 7 R8 EQU 8 R9 EQU 9 R10 EQU 10 R11 EQU 11 BASE R12 EQU 12 LE/370 COMMON ANCHOR AREA (CAA) R13 EQU 13 LE/370 DYNAMIC SAVE AREA (DSA) R14 EQU 14 R15 EQU 15 * PARM DSECT PARM_FLG DSFFUNCTION-CODE HEX'C100' PARM_DSN DSFADDR OF DSN (44 BYTES) PARM_VOL DSFADDR OF VOLSER (6 BYTES) PARM_WRK DSFADDR OF 140 BYTE WORK/RETURN-AREA * * OBTAIN CEEENTRY PPA=MAINPPA, ADDR OF PROGRAM PROLOG AREA X AUTO=WORKSIZE,SIZE OF DSECT (-> SAVEAREA!) XX NAB=NO, NAB NOT USED XX MAIN=NO, NO MAINPROG XX EXPORT=NO,DONT EXPORT ENTRYPOINT XX BASE=R11 BASE * USING CEECAA,R12COMMON ANCHOR AREA USING CEEDSA,R13DSA + LOCAL (DYNAM.) VARIABLES *-- ,Command ===>,,Scroll == L R4,0(R1) LOAD ADDR OF PARMS USING PARM,R4 ADDRESS PARMS * OBTAIN PARM INVOKE OBTAIN STR15,RETCODE SAVE RC * CEETERM RC=RETCODE *-- MAINPPA CEEPPA PROGRAM PROLOG AREA LTORG *-- CEEDSA DSECT: DYNAMIC SAVE AREA RETCODE DS F RETURNCODE DS 0D ENSURE ALIGNMENT!!! WORKSIZE EQU *-CEEDSA *-- CEECAA DSECT: COMMON
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)
See II13354: MOVING ICF CATALOGS - STEP BY STEP SCENARIOS, INCLUDING SHARED CATALOGS on IBMLINK. You can probably do this right now with little or no impact. Of course, if you want to wait for the window... HTH, I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: CICS TN3270 Printer Question
Chris, Thank you for your time in researching this question. I'm not directly making these changes, just passing them on to the VTAM programmer. When he provides me with his feed back I will pass it on to you. Thanks again. Rogers -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Chris Mason Sent: Friday, May 15, 2009 9:39 AM To: IBM-MAIN@bama.ua.edu Subject: Re: CICS TN3270 Printer Question Rogers I'm looking further into this - actually taking the time to read the manual! Ideally somebody who has actually done this would respond but, meantime, let's see what can be done. - >From what you said before I assumed you had provided the specific name XS128PTS in the definitions set up in your TN3270E client. If this is not the case, you will need to use DEFAULTPRT XS128PTS ENDDEFAULTPRT in order to have the "printer" connection select LU name XS128PTS in the basic testing setup I proposed. - It may be that you shouldn't need to use the CICS ACQUIRE process in order to initiate the "printer" session. As far as CICS is concerned, you could have the "printer" itself initiate the session. In terms of the SNA flow involved, this would be similar to the use of the LOGAPPL operand of the APPL, LOCAL or LU statement representing the secondary LU. A "printer" does *not* use the DEFAULTAPPL statement in order to initiate the "printer" session. The text following "DEFAULTAPPL:" in the Communications Server IP Configuration Guide states "The DEFAULTAPPL statement applies only to terminal emulators connecting in TN3270, TN3270E, or DBCSTRANSFORM mode." In the days before TN3270E and printer support, TN3270 supported only logical display devices and described them as "terminals". With the introduction of printer support, descriptions continue confusingly to use the term "terminal" in order to indicate a logical *display* device. A "printer" uses the PRTDEFAULTAPPL statement in order to initiate the "printer" session which is necessarily using TN3270E TELNET negotiation. Thus I suggest you could try using the statement PRTDEFAULTAPPL CICSPEGQ if you are using the simplified test setup I proposed. Alternatively, you could "go for broke" and try stitching PRTDEFAULTAPPL CICSPEGQ IPPEGQ into the definitions you posted. Either of these should cause your "printer" connection to concatenate to a session with CICS at the time you make the TN3270E client connection and you will not actually need to use the CICS ACQUIRE command. If the TN3270E server initiates the session as I indicate here, it is now important that the mode table entry name is correctly specified in the TN3270E server definitions using the TELNETDEVICE statement: TELNETDEVICE IBM-3287-1 ,DSC2K If you are very keen instead to use the DLOGMOD operand of the APPL statement, you could specify the following: TELNETDEVICE IBM-3287-1 ,NONE Note that, if you continue to have problems, you should post any error messages from the two components in this configuration from which you did not mention any information in your initial post. These two components are the TN3270 server and VTAM. If there are any messages at the time you issue the CICS ACQUIRE command or, using the definitions I have just proposed, at the time you make your TN3270E "printer" connection, you should post these. In addition, any status display information from any of the components, "before" and "after", should be posted. Incidentally, if you decide to use the mechanism implied by the PRTDEFAULTAPPL statement - and get it to work of course, you will not need AUTH=(ACQ) to be specified on the APPL statement. It will do no harm to be left in place but would contribute to "good documentation" if it were removed. It would also serve not to confuse anyone trying to make sense of your definitions should you happen not to be available to explain them - a lot of that going on these days! - Please let us know how you get on. - A final point for now: I see you are using a mode table entry which suggests that you want to use LU type 3. Using LU type 1 for "printer" sessions is generally more efficient. Note that I am assuming, despite the fact that you have specified the MODETAB operand on your APPL statement which names a "private" mode table, you are, in fact, using the mode table entry specified in the mode table supplied by VTAM and always available, ISTINCLM. If you do decide to use LU type 1 with a mode table entry such as "SCS" and the system running CICS is not the same one running the TN3270E server, you may want to improve flow by taking care of the "pacing" values. This is where your "private" mode table could become useful. - Chris Mason On Thu, 14 May 2009 15:05:45 -0500, Laine, Rogers wrote: >From an Attachmate Extra session defined as a TN3270 printer, I am able >to connect to the luname XS128PTS. The session state of the session in >Extra displays as 'Active and not bound'. When an acquire is attempted
Re: C/C++ Calling OBTAIN / IGC0002G
I just added the work parm to see if it made any difference - but it did not. when i run the thing in batch with trap OFF and Nospie, i get a real 0c4 abend - i am going to get a system dump to see where the abend is - in the c or asm module. IEA995I SYMPTOM DUMP OUTPUT 710 SYSTEM COMPLETION CODE=0C4 REASON CODE=0004 TIME=10.40.43 SEQ=03238 CPU= ASID=0031 PSW AT TIME OF ERROR 078D0400 98A0011C ILC 6 INTC 04 ACTIVE LOAD MODULE ADDRESS=18A0 OFFSET=011C NAME=CTOASM DATA AT PSW 18A00116 - D203B0A4 D0804110 B09858F0 GR 0: 03B8 1: 00AC1C48 2: 000173A8 3: 000107F0 4: 800173C0 5: 8000 thanks Cristi -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Cristi Terpea Sent: Friday, May 15, 2009 10:42 AM To: IBM-MAIN@bama.ua.edu Subject: Re: C/C++ Calling OBTAIN / IGC0002G Hey, One quick look, you're calling call_obtain with 3 arguments.. although it's got only two. Another thing, don't bother setting 44 spaces, this will be done in call_obtain. int main() { call_obtain("DATASET","VOLUME"); } Best regards, Cristi Terpea Barkow, Eileen wrote: > here goes - the c program (cotasm.c) was also copied from a post (i > think Crista's) and added the main section. > i thought i knew a little C from studying Microsoft's c# for Windows, > but when i look at c, c++ on the mainframe I know next to nothing - c# > is completely different. That is why i got interested in this topic. > > actually, i get the same type of abend (segmentation violation) trying > to run some of the jni examples i have found (using c and java), > although some do work and others abend. and the abends happen when > running both batch and under OMVS. i have not yet looked up what the > segmentation violation abend means. > > > ctoasm.c > > int OBTAIN(unsigned long[]); > > #pragma linkage(OBTAIN, OS) > > #pragma pack(1) /* 1 byte alignment */ > typedef struct > { > char Ds1FmtId; > char Ds1Dssn[6]; > unsigned short Ds1VolSq; > char Ds1CreDt[3]; > char Ds1ExpDt[3]; > unsigned char Ds1NoEpv; > unsigned char Ds1NoBdb; > unsigned char Ds1Flag1; > char Ds1SysCd[13]; > char Ds1RefDt[3]; > unsigned char Ds1SmsFg; > unsigned char Ds1ScXft; > unsigned short Ds1ScXtv; > unsigned char Ds1DsOrg[2]; > unsigned char Ds1RecFm; > unsigned char Ds1OptCd; > unsigned short Ds1BlkL; > unsigned short Ds1LrecL; > unsigned char Ds1KeyL; > unsigned short Ds1Rkp; > unsigned char Ds1DsInd; > unsigned char Ds1ScAl1; > unsigned char Ds1ScAl3[3]; > unsigned char Ds1LstAr[3]; > unsigned short Ds1TrBal; > unsigned char Reserved; > unsigned char Ds1Tthi; > unsigned char Ds1Ext1[10]; > unsigned char Ds1Ext2[10]; > unsigned char Ds1Ext3[10]; > unsigned char Ds1PtrDs[5]; > char Filler[44]; > } DSCB; > #pragma pack() /* default alignment */ > > > int call_obtain(char *Dsn, char *VolSer) { > intRc; > unsigned long Parm[4]; > char ParmDsn[44]; > char ParmVolSer[6]; > DSCB Dscb; > > memset(ParmDsn, ' ', 44); > memcpy(ParmDsn, Dsn, strlen(Dsn)); > memset(ParmVolSer, ' ', 6); > memcpy(ParmVolSer, VolSer, strlen(VolSer)); /*should be 6 always!*/ > > Parm[0] = 0xC100; > Parm[1] = (unsigned long) ParmDsn; > Parm[2] = (unsigned long) ParmVolSer; > Parm[3] = (unsigned long) &Dscb; > > if((Rc = OBTAIN(&Parm[0])) != 0) >return(Rc); > > /* do something with DSCB */ > return(0); > } >int main() > { > char dsname[44], volume[6]; > memset(&dsname,' ',44); > ,Command ===>, > memcpy(&dsname, "XCICS.EILEEN.PDSE", 17); > memset(&volume,' ', 6); > memcpy(&volume, "CICH92", 6); > memset(&work,' ',140); > call_obtain(dsname,volume,work); > } > > **assembler program obtasm.s > > * Top of Data * > * > R0 EQU 0 > R1 EQU 1 > R2 EQU 2 > R3 EQU 3 > R4 EQU 4PARMS > R5 EQU 5 > R6 EQU 6 > R7 EQU 7 > R8 EQU 8 > R9 EQU 9 > R10 EQU 10 > R11 EQU 11 BASE > R12 EQU 12 LE/370 COMMON ANCHOR AREA (CAA) > R13 EQU 13 LE/370 DYNAMIC SAVE AREA (DSA) > R14 EQU 14 > R15 EQU 15 > * > PARM DSECT > PARM_FLG DSFFUNCTION-CODE HEX'C100' > PARM_DSN DSFADDR OF DSN (44 BYTES) > PARM_VOL DSFADDR OF VOLSER (6 BYTES) > PARM_WRK DSFADDR OF 140 BYTE WORK/RETURN-AREA > * > * > OBTAIN CEEENTRY PPA=MAINPPA, ADDR OF PROGRAM PROLOG AREA X > AUTO=WORKSIZE,SIZE OF DSECT (-> SAVEAREA!) > XX > NAB=NO, NAB NOT USED > XX > MAIN=NO, NO MAIN
Re: USERCAT Error (Out of Space)
Do the files created by Power Exchange have a timestamp in the DSN. If so, you have the old "creeping key" problem and a REORG for this catalog will need to be scheduled periodically. I would not recommend a REPRO MERGECAT (IDCAMS) if files in the catalog are OPEN. There are a lot of issues when moving entries associated with OPEN datasets that are not covered by IDCAMS. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 10:42 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) I have a product called Power Exchange from Informatica and it creates these condense files. Right now I have 488 of these entries in the catalog in question...Nothing has really changed except that I'm allocating space more efficiently by using a better block size for the file. Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Ward, Mike S Sent: Friday, May 15, 2009 10:28 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You said you gained 4 hours by deleting a lot of entries. What's eating your space? What's changed? Why now and not before? I'm just curious. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:22 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) >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... Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Spencer, Mike Sent: Friday, May 15, 2009 10:10 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) T-Rex is a nice product that might be able to help you in this situation. If you do have a window of downtime, the suggestion would be to perform an IDCAMS MERGECAT. If you're at the limit of alias entries, than you should split the catalog into multiple usercats. You should look at the size of the current usercat and the number of entries in the catalog. Michael Spencer BMC Software -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Larry Crilley Sent: Friday, May 15, 2009 10:00 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You have to keep in mind that a usercatalog is basically a KSDS. When you delete records, there are keys associated with them. If new keys you add do not collate properly, then VSAM will add them to freespace at the end. A REORG would reclaim this space. There are a few products on the market that would allow you to do this without any downtime, T-REX from Dino-Software being one of them. However, if you have a maintenance window, you could use IDCAMS EXPORT and IMPORT. If you have more questions, feel free to contact me directly. Larry Crilley 412.366.3566 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:24 AM To: IBM-MAIN@bama.ua.edu Subject: USERCAT Error (Out of Space) I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 - Under Florida law, e-mail addresses are
Compuware Announces Strategic Divestiture, Focus on End-to-end Application Performance
Has anyone figured out which products are included in this? Compuware Announces Strategic Divestiture, Focus on End-to-end Application Performance http://www.compuware.com/solutions/7290_ENG_HTML.htm Best Regards, Sam Knutson, GEICO System z Performance and Availability Management mailto:sknut...@geico.com (office) 301.986.3574 "Think big, act bold, start simple, grow fast..." This email/fax message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution of this email/fax is prohibited. If you are not the intended recipient, please destroy all paper and electronic copies of the original message. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: 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)
Larry, Yes, there a date and time stamp for each file...It looks like this: OEM#P.STR.V8.CND.CP090430.T0635812 Thanks for the heads up on the periodic "REORG" for this catalog. I may go a step further and change its HLQ so that it is in its own catalog... The reason I'm doing this Sunday is because all my other OEM products reside in the same catalog... Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Larry Crilley Sent: Friday, May 15, 2009 10:48 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) Do the files created by Power Exchange have a timestamp in the DSN. If so, you have the old "creeping key" problem and a REORG for this catalog will need to be scheduled periodically. I would not recommend a REPRO MERGECAT (IDCAMS) if files in the catalog are OPEN. There are a lot of issues when moving entries associated with OPEN datasets that are not covered by IDCAMS. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 10:42 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) I have a product called Power Exchange from Informatica and it creates these condense files. Right now I have 488 of these entries in the catalog in question...Nothing has really changed except that I'm allocating space more efficiently by using a better block size for the file. Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Ward, Mike S Sent: Friday, May 15, 2009 10:28 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You said you gained 4 hours by deleting a lot of entries. What's eating your space? What's changed? Why now and not before? I'm just curious. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:22 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) >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... Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Spencer, Mike Sent: Friday, May 15, 2009 10:10 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) T-Rex is a nice product that might be able to help you in this situation. If you do have a window of downtime, the suggestion would be to perform an IDCAMS MERGECAT. If you're at the limit of alias entries, than you should split the catalog into multiple usercats. You should look at the size of the current usercat and the number of entries in the catalog. Michael Spencer BMC Software -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Larry Crilley Sent: Friday, May 15, 2009 10:00 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You have to keep in mind that a usercatalog is basically a KSDS. When you delete records, there are keys associated with them. If new keys you add do not collate properly, then VSAM will add them to freespace at the end. A REORG would reclaim this space. There are a few products on the market that would allow you to do this without any downtime, T-REX from Dino-Software being one of them. However, if you have a maintenance window, you could use IDCAMS EXPORT and IMPORT. If you have more questions, feel free to contact me directly. Larry Crilley 412.366.3566 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.
Re: USERCAT Error (Out of Space)
Weekly, I run this job against all my catalogs: //STEP010 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSINDD * EXAMINE NAME(CATALOG.SBPBC.USERCAT)INDEXTEST DATATEST /* Since I started this about a year or so ago, I have not had one problem with any catalog. Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Richard Peurifoy Sent: Friday, May 15, 2009 10:55 AM To: IBM-MAIN@bama.ua.edu Subject: 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 - Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- 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)
There is another product I am familiar with that updated the key of the DSN to avoid the creeping key. I believe they simply put the timestamp before the date. I wonder if the vendor for your tool could do the same? -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 11:02 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) Larry, Yes, there a date and time stamp for each file...It looks like this: OEM#P.STR.V8.CND.CP090430.T0635812 Thanks for the heads up on the periodic "REORG" for this catalog. I may go a step further and change its HLQ so that it is in its own catalog... The reason I'm doing this Sunday is because all my other OEM products reside in the same catalog... Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Larry Crilley Sent: Friday, May 15, 2009 10:48 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) Do the files created by Power Exchange have a timestamp in the DSN. If so, you have the old "creeping key" problem and a REORG for this catalog will need to be scheduled periodically. I would not recommend a REPRO MERGECAT (IDCAMS) if files in the catalog are OPEN. There are a lot of issues when moving entries associated with OPEN datasets that are not covered by IDCAMS. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 10:42 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) I have a product called Power Exchange from Informatica and it creates these condense files. Right now I have 488 of these entries in the catalog in question...Nothing has really changed except that I'm allocating space more efficiently by using a better block size for the file. Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Ward, Mike S Sent: Friday, May 15, 2009 10:28 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You said you gained 4 hours by deleting a lot of entries. What's eating your space? What's changed? Why now and not before? I'm just curious. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of George Rodriguez Sent: Friday, May 15, 2009 9:22 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) >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... Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Spencer, Mike Sent: Friday, May 15, 2009 10:10 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) T-Rex is a nice product that might be able to help you in this situation. If you do have a window of downtime, the suggestion would be to perform an IDCAMS MERGECAT. If you're at the limit of alias entries, than you should split the catalog into multiple usercats. You should look at the size of the current usercat and the number of entries in the catalog. Michael Spencer BMC Software -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Larry Crilley Sent: Friday, May 15, 2009 10:00 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) You have to keep in mind that a usercatalog is basically a KSDS. When you delete records, there are keys associated with them. If new keys you add do not collate properly, then VSAM will add them to freespace at
Re: Compuware Announces Strategic Divestiture, Focus on End-to-end Application Performance
>From checking Compuware's site I suspect they are: DevPartner Optimal Trace QaDirector TestPartner QaLoad And FileAid/CS Alan Schwartz -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Knutson, Sam Sent: Friday, May 15, 2009 9:52 AM To: IBM-MAIN@bama.ua.edu Subject: Compuware Announces Strategic Divestiture, Focus on End-to-end Application Performance Has anyone figured out which products are included in this? Compuware Announces Strategic Divestiture, Focus on End-to-end Application Performance http://www.compuware.com/solutions/7290_ENG_HTML.htm Best Regards, Sam Knutson, GEICO System z Performance and Availability Management mailto:sknut...@geico.com (office) 301.986.3574 "Think big, act bold, start simple, grow fast..." This email/fax message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution of this email/fax is prohibited. If you are not the intended recipient, please destroy all paper and electronic copies of the original message. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- 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: Compuware Announces Strategic Divestiture, Focus on End-to-end Application Performance
> -Original Message- > From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On > Behalf Of Knutson, Sam > Sent: Friday, May 15, 2009 10:52 AM > To: IBM-MAIN@bama.ua.edu > Subject: Compuware Announces Strategic Divestiture, Focus on End-to-end > Application Performance > > Has anyone figured out which products are included in this? > > Compuware Announces Strategic Divestiture, Focus on End-to-end Application > Performance > > http://www.compuware.com/solutions/7290_ENG_HTML.htm A brief visit to the Compuware main website and clicking on Quality Solutions sends you to a page with a Products drop-down with these names in it: DevPartner Optimal Trace QADirector TestPartner QALoad File-Aid/CS DevPartner includes mainframe Xpediter. The rest of DevPartner appears to be Windows-targeted. Optimal Trace appears to be a requirements gathering/collaborating system that runs on Windows. QADirector appears to be for centralized management and execution of testing assets and activities. It's not too specific, but the impression I get is that it's Windows-oriented, or at least non-mainframe-oriented. TestPartner appears to be an automated testing tool for distributed (i.e., non-mainframe) technologies. QALoad appears to be a volume-test product, again for distributed technologies. I'm not quite sure what File-Aid/CS does, but the website says, among other things, that it "bridges the File-AID mainframe user to the distributed environment". HTH Peter This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- 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: BLOCK CONTAINS
>If "we are not device dependant", why is there such intense trepidation and >resistance to the mere suggestion of a device with a novel geometry such as >more bytes per track or more tracks per cylinder? That is a different issue. If you code BLOCK CONTAINS 0, your application does not need to concern itself with the device (tape or disk), or with whatever the disk geometry is. So, if we ever get a new disk type, the programme will not need recompiling. - Too busy driving to stop for gas! -- 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: BLOCK CONTAINS
On Thu, 14 May 2009 23:45:14 -0300, Clark Morris wrote: >On 14 May 2009 17:05:53 -0700, in bit.listserv.ibm-main you wrote: > >>I have been a bit of experimenting with z/OS QSAM files from a Cobol program >>and I find that the manuals don't exactly agree with my results. The manuals >>seem to imply that if you use the BLOCK CONTAINS clause (whether 0 or >>something else) then the file has a RECFM of either VB or FB. And if you don't >>include it then it's either V or B. > >While blocked input files may be read successfully if neither the >block size nor BLOCK 0 is specified provided record descriptions >match, lack of BLOCK CONTAINS causes the default blocksize on output >to be ONE record. I believe I submitted a SHARE requirement back in >the 1990's to have a compile option that the default be BLOCK 0. >Either is a perfectly valid default according to the COBOL standard. >BLOCK would be the default consistent with VSAM handling. The whole >issue is a sore point with me and possibly others. So are you saying that if I create a file (using, say, ISPF 3.2) and specify VB with a particular block size, if my Cobol program that writes data to this (empty) file does *not* have BLOCK CONTAINS 0 (or BLOCK CONTAINS whatever the actual block size is) the actual I/O will *not* be blocked? It definitely works, but I don't know how to tell what the actual blocking factor is. Frank -- 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: C/C++ Calling OBTAIN / IGC0002G
Hi, but when i look at c, c++ on the mainframe I know next to nothing - c# is completely different. That is why i got interested in this topic. Well, C# ist more like Java as C or C++ although some do work and others abend. and the abends happen when running both batch and under OMVS. i have not yet looked up what the segmentation violation abend means. segmentation violation is a S0C4. int main() { char dsname[44], volume[6]; memset(&dsname,' ',44); ,Command ===>, memcpy(&dsname, "XCICS.EILEEN.PDSE", 17); memset(&volume,' ', 6); memcpy(&volume, "CICH92", 6); memset(&work,' ',140); call_obtain(dsname,volume,work); Try call_obtain("XCICS.EILEEN.PDSE", "CICH92"); and remove the stuff above... Bye, Michael -- 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: BLOCK CONTAINS
On Fri, 15 May 2009 09:27:42 -0400, Thompson, Steve wrote: >-Original Message- >From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On >Behalf Of Frank Swarbrick >Sent: Thursday, May 14, 2009 7:03 PM >To: IBM-MAIN@bama.ua.edu >Subject: BLOCK CONTAINS > >I have been a bit of experimenting with z/OS QSAM files from a Cobol >program >and I find that the manuals don't exactly agree with my results. The >manuals seem to imply that if you use the BLOCK CONTAINS clause (whether >0 or something else) then the file has a RECFM of either VB or FB. And >if you don't include it then it's either V or B. > > > >Welcome to the MVS world. In the MVS world, we are not device dependant, >nor are we data definition locked/blocked. We generally don't have to >recompile our programs, change the DTF contents (DCB in MVS), etc. just >because the file attributes change (xSAM to VSAM is the exception). > >We do not have to link PIOCS or LIOCS routines to our programs to handle >I/O. The access method itself handles these things (particularly at the >QSAM level). > >If you are using a vendor to help you migrate, you should spend a bit of >time with them discussing all the changes to the environment and >different concepts between VSE and MVS. We are not using a vendor. We have systems and applications programmers that come from the MVS world, so we're going with that expertise. Though I suppose the fact that I am asking these questions here might indicate that said expertise is perhaps not sufficient? Hmmm... >As you have seen with your experiments, the information on the DD >statement will override what you have in your program. And the label >from the file in MVS actually contains the LRECL, BLKSIZE and RECFM, >which as I recall, is not the case with VSE (for disk or tape). > >However, what happens if the DD statement only contains the UNIT, SPACE, >DISP, and DSN? Does what you specify in the COBOL program then behave >the way the manual says? It depends on if the file is "pre-defined". If it is not, and I don't include DCB stuff on the DD, then it does what Cobol tells it to do (because there is no other place to get that information!). However if the file *is* predefined then *that* information appears (for blocking only, not for RECFM (V vs B) or LRECL) to override what Cobol states. Examples... If I predefine a file as RECFM=VB, BLKSIZE=1, LRECL=4004 then 1) If Cobol says "BLOCK CONTAINS 1" it works (of course). 2) If Cobol says "BLOCK CONTAINS 0" it works. 3) If Cobol says "BLOCK CONTAINS 12345" it works (!!!) 4) If Cobol does not have a BLOCK CONTAINS clause it works (!!!) This is the case no matter if I am reading from the file or writing to it. I am glad it works "no matter what". But the documentation seems to me to indicate that conditions 3 and 4 should not work, even though they do. That is where I am getting confused. >Your ESDS files being taken to SAM: Just make sure that you don't >actually depend on VSAM functions. Any hints as to what VSAM functions I might be depending on? The only case we've come upon so far is if the file is defined to CICS we have to leave it as an ESDS. We have about two dozen of those, but plan on converting all others to SAM. >And as far as your ASSIGN clause on the SELECT: you can probably leave >them as they are -- but I haven't used the latest COBOL for a migration. >In fact it has been a few years since I've done a migration. So unless >it is going to enforce something, as I recall, only what is after the >last "-" is paid attention to. And if you end with -SYS112 (or some >such), then the DD being looked for is SYS112. Both VSE and z/OS require the AS- prefix in order for Cobol to distinguish between between a VSAM ESDS and a regular SAM file. Other than that, yes, only the last "node" has any meaning. Nonetheless our conversion program is going to remove all of the superfluous stuff. I have been trying to get my fellow programmers to cut out this information for years, but with little success. Hopefully this way people will have fewer bad examples to follow! Thanks! Frank -- 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: C/C++ Calling OBTAIN / IGC0002G
I removed all the stuff and got the same abend at the same offset, which appears to be in the c module. i have to get the load map, or maybe compile in batch but the jcl generated with -v gives so many parms that it is hard to copy over for batch run. i just copied the hfs module into a pdse and executed it, which i think is okay to do. thanks for looking at this Michael. int main() { call_obtain("XCICS.EILEEN.PDSE", "CICH92"); /*char dsname[44], volume[6]; */ /* memset(&dsname,' ',44); */ /* memcpy(&dsname, "XCICS.EILEEN.PDSE", 17); */ /* memset(&volume,' ', 6); */ /* memcpy(&volume, "CICH92", 6); */ /* call_obtain(dsname,volume); */ } IEA995I SYMPTOM DUMP OUTPUT 311 SYSTEM COMPLETION CODE=0C4 REASON CODE=0004 TIME=11.57.15 SEQ=03253 CPU= ASID=0031 PSW AT TIME OF ERROR 078D0400 98A0011C ILC 6 INTC 04 ACTIVE LOAD MODULE ADDRESS=18A0 OFFSET=011C NAME=CTOASM DATA AT PSW 18A00116 - D203B0A4 D0804110 B09858F0 GR 0: 03B8 1: 00AC1C48 2: 00017368 3: 000107F0 4: 80017380 5: 8000 6: 0001 7: 98F8AA3A 8: 0030 9: 8000 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Michael Knigge Sent: Friday, May 15, 2009 11:46 AM To: IBM-MAIN@bama.ua.edu Subject: Re: C/C++ Calling OBTAIN / IGC0002G Hi, > but when i look at c, c++ on the mainframe I know next to nothing - c# > is completely different. That is why i got interested in this topic. Well, C# ist more like Java as C or C++ > although some do work and others abend. and the abends happen when > running both batch and under OMVS. i have not yet looked up what the > segmentation violation abend means. segmentation violation is a S0C4. >int main() > { > char dsname[44], volume[6]; > memset(&dsname,' ',44); > ,Command ===>, > memcpy(&dsname, "XCICS.EILEEN.PDSE", 17); > memset(&volume,' ', 6); > memcpy(&volume, "CICH92", 6); > memset(&work,' ',140); > call_obtain(dsname,volume,work); Try call_obtain("XCICS.EILEEN.PDSE", "CICH92"); and remove the stuff above... Bye, Michael -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
IBM Mainframe: 50 Years of Big Iron Innovation
Nice visual walk down memory lane, for you old timers out there ; ) http://www.eweek.com/c/a/IT-Infrastructure/The-IBM-Mainframe-50-Years-of-Big-Iron-Innovation-583073/?kc=EWKNLBOE05152009FEA1 Courtesy eWeek -- 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: BLOCK CONTAINS
Perhaps this explains the observed action? http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR31/5.2.4 BLOCK CONTAINS 0 can be specified for QSAM files. If BLOCK CONTAINS 0 is specified for a QSAM file, then: * The block size is determined at run time from the DD parameters or the data set label. If the RECORD CONTAINS 0 CHARACTERS clause is specified and the BLOCK CONTAINS 0 CHARACTERS clause is specified (or omitted), the block size is determined at run time from the DD parameters or the data set label of the file. For output data sets, with either of the above conditions, the DCB used by Language Environment will have a zero block size value. If you do not specify a block size value, the operating system might select a system-determined block size (SDB). See the operating system specifications for further information about SDB. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: BLOCK CONTAINS
On Fri, 15 May 2009 15:28:37 +0200, Gilbert Saint-Flour wrote: >On Friday 15 May 2009 02:05, Frank Swarbrick wrote: > >> We are migrating from VSE to z/OS, and at the same time we are going >> to convert most of our existing ESDS files to regular sequential files. >> I see no reason to add "BLOCK CONTAINS 0" to all of our FD's if it has >> no affect (our VSAM FD's do not (generally!) specify the BLOCK CONTAINS >> clause, because it has no meaning to VSAM). > >IIRC, BLOCK CONTAINS 0 is only needed for OUTPUT files in COBOL, but I think >it's better to put it everywhere, so programmers later don't have to remember >where it's needed. What I'm getting at is that it appears to not even be required for OUTPUT files *as long as that information can be determined by other means*. >In 1991, I started to convert VSE applications to MVS/ESA and stopped to >generate DCB attributes on DD statements, except for output files in IDCAMS >REPRO and QUIKJOB programs, and a few others ones. A few years later, >I started to convert IDCAMS REPRO to something else, for several advantages, >among them not having to specify DCB info in the JCL. I'm convinced that >coding DCB attributes on DD statements is something almost always useless and >archaic. This is something all my customers agreed with, except an >outsourcing company that absolutely had to have DCB information on all output >DD statements, like this: DCB=(RECFM=xx,LRECL=yy,BLKSIZE=zzz). >This was in 2007 ! In z/OS ! I agree that DCB et al is generally not needed. The exceptions being 1) if "IEFBR14" is being used to create the file. 2) if a Cobol program is being used to create the file and one wants a blocked file but did not specify a BLOCK CONTAINS statement. It's this latter one that is my only cause for concern. We'd have to use RECFM and BLKSIZE statements if we wanted to override Cobol's default of non-blocked. Probably in the end we'll probably decide to include BLOCK CONTAINS 0 for all non-VSAM sequential files. It just bugs me that I have to do that when 95% of the time it's meaningless, because it's overriden by information retrieved elsewhere. >See examples here: http://gsf-soft.com/Prism-CS/Samples.shtml and you won't >see many DD statements that contain DCB info. This is very similar to what >I generated since 1991. > >As for the conversion of ESDS files to non-VSAM in COBOL programs, >changing AS-filename to S-ddname is not always the only thing you need >to do. Trust me ! Now you have me curious. What other gotchas do you think we might run in to? We already use FILE STATUS for file I/O error checking, so that should not be a problem. We have SELECT OPTIONAL for the cases where we want to be able to open for input an empty VSAM file. This does not (thank god!) appear to be an issue for SAM files, but leaving OPTIONAL does not appear to hurt either. I have not decided yet if we'll keep or remove the OPTIONAL clause. Probably remove it, since it has no meaning for SAM, but... To be honest, I was personally against "migrating" our ESDS files to SAM. I thought why take the chance? The one thing that has convinced me is the fact that we have quite a few cases in VSE where we sort several ESDS files together in to a single ESDS output file. DFSORT on z/OS does not allow this! Thus we have to use sequential files at least as intermediate files, so we figured we'd just convert almost all of them (we'll leave the ones defined to CICS as ESDS). Additionally we will want to use GDGs and I've been told (though I have not researched it) that you can't have GDG ESDS files. There may be other reasons, but I can't recall what they are at the moment... Frank -- 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: VM ServiceLink going away for good this time?
Well, it's only been a couple months since the last spate of missives on this list about the web ibmlink being down :( I won't enjoy my drop in efficiency needing to GUI around without command line shortcuts. Dave Gibney Information Technology Services Washington State University > -Original Message- > From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On > Behalf Of Chase, John > Sent: Friday, May 15, 2009 4:42 AM > To: IBM-MAIN@bama.ua.edu > Subject: VM ServiceLink going away for good this time? > > Saw this when I logged on to IBMLink 3270 this morning: > > " Withdrawal of VM ServiceLink - July 1,2009 > > > "VM ServiceLink will be sunset on July 1, 2009. For more information > > on accessing IBMLink on the web at www.ibm.com/ibmlink, please review > the item in News. " > > Bummer. :-( > > -jc- > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: BLOCK CONTAINS
On Fri, 15 May 2009 10:34:31 -0400, Thompson, Steve wrote: >-Original Message- >From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On >Behalf Of Paul Gilmartin >Sent: Friday, May 15, 2009 9:07 AM >To: IBM-MAIN@bama.ua.edu >Subject: Re: BLOCK CONTAINS > >On Fri, 15 May 2009 09:27:42 -0400, Thompson, Steve wrote: >> >>Welcome to the MVS world. In the MVS world, we are not device >dependant, >>nor are we data definition locked/blocked. We generally don't have to >>recompile our programs, change the DTF contents (DCB in MVS), etc. just >>because the file attributes change (xSAM to VSAM is the exception). >> >Huh??? > >If "we are not device dependant", why is there such intense trepidation >and resistance to the mere suggestion of a device with a novel geometry >such as more bytes per track or more tracks per cylinder? It doesn't >appear that you and I have been living in the same MVS world. > > > >In the VSE world, if you set up to read tape, you can not change your >JCL to instead read Disk. A DTFSD (Define The File - Sequential Disk) >can not be used to read a tape (DTFMT - Define The File - Magnetic >Tape). > >If you did use the DTFDI (Define The File - Device Independent) it is >only good for limited situations. I don't know what assembler stuff is done under the covers, but in Cobol for VSE/ESA (and VS COBOL II) you can use a single SELECT statement that will work with printers, tape files, sequential files and VSAM-managed SAM files. SELECT MY-FILE ASSIGN TO SYS005-MYFILE. Frank -- 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: BLOCK CONTAINS
Frank Swarbrick wrote: [snip] On Fri, 15 May 2009 09:27:42 -0400, Thompson, Steve wrote: I have been a bit of experimenting with z/OS QSAM files from a Cobol program and I find that the manuals don't exactly agree with my results. The manuals seem to imply that if you use the BLOCK CONTAINS clause (whether 0 or something else) then the file has a RECFM of either VB or FB. And if you don't include it then it's either V or B. We are not using a vendor. We have systems and applications programmers that come from the MVS world, so we're going with that expertise. Though I suppose the fact that I am asking these questions here might indicate that said expertise is perhaps not sufficient? Hmmm... [snip] Both VSE and z/OS require the AS- prefix in order for Cobol to distinguish between between a VSAM ESDS and a regular SAM file. Other than that, yes, only the last "node" has any meaning. Nonetheless our conversion program is going to remove all of the superfluous stuff. I have been trying to get my fellow programmers to cut out this information for years, but with little success. Hopefully this way people will have fewer bad examples to follow! Frank, I've been watching this thread evolve and I'd like to throw in some thoughts here. There was some change in behavior in COBOL + QSAM a few years ago, and the documentation never did, to my perception, do a good job of pointing this out. Here is an extract from one page in our course "Enterprise COBOL Update I: Essentials": While not strictly a change to the language, there has been a change to the way OPEN works that is worthwhile knowing about * Historically, coding BLOCK CONTAINS ensured the value in your program would be used for block size * If you wanted to obtain the existing block size (for input files) or to set the blocksize in JCL (for output files) you coded BLOCK CONTAINS 0 RECORDS in your FD The new behavior is this: * Block size in the label overrides BLOCK CONTAINS value in the program * The implications are: + For input files, may now simply omit the BLOCK CONTAINS clause: it will be ignored / overridden + For output files, BLOCK CONTAINS 0 is required if DSORG, LRECL, and RECFM are not specified on the DD statement + BLOCK CONTAINS 0 is not necessary if you code DSORG, LRECL, and RECFM on the DD statement (the system will choose blocksize for you) -- [of course, if you pre-allocate the file using ISPF 3.2 or some other mechanism, existing label information will be used there, too.] -- Regarding your systems and applications programmers with MVS experience: COBOL has gone through extensive changes of late, and the experience of these people may be somewhat out of date. I really recommend the course mentioned above. It's only two days but it catches experienced programmers up to speed in terms of new features and approaches. The details are here: http://www.trainersfriend.com/COBOL_Courses/d704descr.htm As with all our course descriptions, this page has further links to more detail, especially note the links to the pages with more detailed course objectives and the very detailed topical outline. - Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 http://www.trainersfriend.com z/OS Application development made easier * Our classes include + How things work + Programming examples with realistic applications + Starter / skeleton code + Complete working programs + Useful utilities and subroutines + Tips and techniques ==> Check out the Trainer's Friend Store to purchase z/OS <== ==> application developer toolkits. Sample code in four<== ==> programming languages, JCL to Assemble or compile, <== ==> bind and test. <== ==> http://www.trainersfriend.com/TTFStore/index.html<== -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: BLOCK CONTAINS
-- What if a new device came out and there was a better optimum blocksize for it? Wouldn't you have to recompile everthing that used that file to get the optimum blocksize? I don't know I'm just asking. - No, you're not going to have to recompile everything. That's why BLOCK CONTAIN 0 RECORDS is so important. Let the OPEN/CLOSE and access method routines handle the differences "under the covers" and they'll manage just fine. :-) -- Rick -- Remember that if you’re not the lead dog, the view never changes. -- 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: BLOCK CONTAINS
On Fri, 15 May 2009 11:31:19 -0500, McKown, John wrote: >Perhaps this explains the observed action? > >http://publibz.boulder.ibm.com/cgi- bin/bookmgr_OS390/BOOKS/IGY3LR31/5.2.4 > > >BLOCK CONTAINS >0 can be specified for QSAM files. If BLOCK CONTAINS 0 is specified for a QSAM file, then: > >* The block size is determined at run time from the DD parameters or the data set label. If the RECORD CONTAINS 0 CHARACTERS clause is specified and the BLOCK CONTAINS 0 CHARACTERS clause is specified (or omitted), the block size is determined at run time from the DD parameters or the data set label of the file. For output data sets, with either of the above conditions, the DCB used by Language Environment will have a zero block size value. If you do not specify a block size value, the operating system might select a system-determined block size (SDB). See the operating system specifications for further information about SDB. > That quote specifically refers to use of BLOCK CONTAINS 0. It does not seem to explain why the same results are seen if there is no BLOCK CONTAINS clause at all. ... Wait, it does say "or omitted". So I guess this does explain it. This gives me one more reason to not have BLOCK CONTAINS 0. That as well as "BLOCK CONTAINS can be omitted for SYSIN files and for SYSOUT files. The blocking is determined by the operating system. " Though of course specifying BLOCK CONTAINS 0 there would not hurt. But again I don't like to have it there if it's just going to be ignored. Oy! Frank -- 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: BLOCK CONTAINS
>3) If Cobol says "BLOCK CONTAINS 12345" it works (!!!) I'll bet you 3) If Cobol says "BLOCK CONTAINS " doesn't :) Dave Gibney Information Technology Services Washington State University -- 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)
I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. --- In one of the manuals, I forget which, under the main heading "Managing ICF Catalogs", there was a set of sample JCL that demonstrated the exact process for the re-org of a ICF Catalog. I've used that JCL for years with nary a problem, although I broke it into multiple jobs for my own peace of mind. Select a quiet time, check it through to be sure you understand exactly what it's doing and I think you'll be quite pleased with the results. You should also investigate WHY this condition is occuring and consider alternative mechanisms when you find the problem/issue/process. -- Rick -- Remember that if you’re not the lead dog, the view never changes. -- 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: BLOCK CONTAINS
On Fri, 15 May 2009 10:53:52 -0600, Steve Comstock wrote: >I've been watching this thread evolve and I'd like to throw >in some thoughts here. > >There was some change in behavior in COBOL + QSAM a few years >ago, and the documentation never did, to my perception, do a >good job of pointing this out. > >Here is an extract from one page in our course "Enterprise COBOL >Update I: Essentials": > >While not strictly a change to the language, there has >been a change to the way OPEN works that is worthwhile >knowing about > >* Historically, coding BLOCK CONTAINS ensured the value > in your program would be used for block size > >* If you wanted to obtain the existing block size (for > input files) or to set the blocksize in JCL (for > output files) you coded BLOCK CONTAINS 0 RECORDS in your FD > >The new behavior is this: > >* Block size in the label overrides BLOCK CONTAINS value > in the program > >* The implications are: > > + For input files, may now simply omit the BLOCK CONTAINS > clause: it will be ignored / overridden > > + For output files, BLOCK CONTAINS 0 is required if DSORG, > LRECL, and RECFM are not specified on the DD statement > > + BLOCK CONTAINS 0 is not necessary if you code DSORG, > LRECL, and RECFM on the DD statement (the system will > choose blocksize for you) > >-- >[of course, if you pre-allocate the file using ISPF 3.2 or > some other mechanism, existing label information will be > used there, too.] > >-- You are the man, Steve! I think that almost totally covers it. What I would add is something specifically addressing the "pre-existing file" issue that you mention in your "epilog" above. I would word it this way * The implications are: + For input files, may now simply omit the BLOCK CONTAINS clause: it will be ignored / overridden + For output files, BLOCK CONTAINS 0 is only if 1) the file is not already defined and 2) RECFM and BLKSIZE are not specified on the DD statement. + in all other cases BLOCK CONTAINS 0 is ignored / overridden I don't, however, thing that the following is strictly true. + BLOCK CONTAINS 0 is not necessary if you code DSORG, LRECL, and RECFM on the DD statement (the system will choose blocksize for you) Well, it is true in that it is not necessary to have "BLOCK CONTAINS 0". However if it is not present it appears to behave as if "BLOCK CONTAINS 1" was specified, unless there is also an explicit BLKSIZE on the DD. >Regarding your systems and applications programmers with >MVS experience: COBOL has gone through extensive changes >of late, and the experience of these people may be somewhat >out of date. > >I really recommend the course mentioned above. It's only >two days but it catches experienced programmers up to >speed in terms of new features and approaches. If it were my decision I would do it. Let me see if I can convince TPTB. Only a few of us are working on the z/OS project right now. Would you think that those few should get this education now and do the rest when we are closer to cutover? I worry about cost (having the class twice), but we're doing that in other situations, so I guess we could do that here as well. (Probably makes sense to respond to me directly at frank.swarbr...@efirstbank.com.) Thanks again Steve!! Frank -- 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
CICS TN3270 Printer Question
Chris, The VTAM programmer was able to successful BIND the printer using the below information. This configuration produced a bound printer session in CICSSYZA without having to do an acquire. He also removed AUTH=ACQ from the VTAM APPL. Next week he will to the real test of sending output to the printer. Again thanks for all of your assistance. Rogers 49 TELNETPARMS 50 PORT 6623 51 MSG07 52 ; Define telnet terminals 53 TELNETDEVICE IBM-3287-1 NONE 54 LUSESSIONPEND; On termination of a Telnet server connection, 55 ; the user will revert to the DEFAULTAPPL 56 SMFINIT STD 57 SMFTERM STD 58 ; DBCSTRANSFORM 59 ENDTELNETPARMS 000140 BEGINVTAM 000141 PORT 6623 000142 PRTGROUP PEGQ 000143 xs128pts xs129pts xs130pts xs131pts 000144 ENDPRTGROUP 000145 IPGROUP IPPEGQ 255.255.255.0:111.22.33.0 ENDIPGROUP replaced IP address to protect the real address. 000146 PRTMAP PEGQ IPPEGQ 000147 PRTDEFAULTAPPL CICSSYZA 000148 ENDVTAM -- 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: Display Panel After TBDISPL Causes Next TBDISPL to Read Same Record in REXX Exec
That worked. Thanks Dave! Vince -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of David Stapleton Sent: Friday, May 15, 2009 12:52 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Display Panel After TBDISPL Causes Next TBDISPL to Read Same Record in REXX Exec I would probably code this as: TBDISPL tab PANEL(HLDETL) CONTROL DISPLAY SAVE DISPLAY Panel(X) CONTROL DISPLAY RESTORE TBDISPL tab Regards Dave Dave Stapleton Mainframe Support Team -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Vinson Lee Sent: 14 May 2009 21:51 To: IBM-MAIN@bama.ua.edu Subject: Display Panel After TBDISPL Causes Next TBDISPL to Read Same Record in REXX Exec I'm trying to use the HSMLIST Rexx exec that Frank Clarke created but have found a problem when selecting multiple Backup entries for Recovery. Here is the logic: TBDISPL tab PANEL(HLDETL) DISPLAY Panel(X) TBDISPL tab The second TBDISPL is supposed to read the next entry in the table but does so only if the DISPLAY Panel statement is NOT executed. Anyone have ideas on how to fix this problem? Thanks. Vince -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html This email and any files transmitted with it are confidential and are intended solely for the use of the individual or entity to whom they are addressed. This communication represents the originator's personal views and opinions, which do not necessarily reflect those of HPI Limited. If you are not the original recipient or the person responsible for delivering the email to the intended recipient, be advised that you have received this email in error, and that any use, dissemination, forwarding, printing, or copying of this email is strictly prohibited. If you received this email in error, please immediately notify postmas...@hpi.co.uk. This message has been scanned by Anti-Virus. Recipients are advised to apply their own virus checks to this message on delivery. Company Name: HPI Limited, Company Number: 4068979, Registered in England - Registered Office: 30, St. Mary Axe. London. EC3A 8AF. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
VSE I/O Performance VS MVS [was BLOCK CONTAINS]
Because of past conversions, I think this needs to be said: 1) VSE/ESA got to use XA I/O just like MVS. This means, to the VSE shop, that some slick stuff that got offloaded to the I/O Subsystem (shall we say parts of VM's and MVS' I/O Supervisor code) became available w/o any JCL or application coding changes. Things like dual (or multi) pathing with dynamic pathing. What does this have to do with anything? Well, the typical throughput performance gains seen in the past when going from VSE to MVS don't happen because what was giving those (for the most part) has already been realized. 2) VSAM is implemented in VSE differently than in MVS. So, the way sharing and buffer management is done changes and WILL cause performance issues when you get to MVS. 3) CICS is impacted by these changes, and you may see less throughput. Although, with the ability to have more storage than z/VSE allows, you may over come it. But be sure to have sufficient page volumes. Bottom line: To get the same or better performance from a well tuned VSE shop that goes to MVS, you will need people who are well versed in all the tricks. And they will need to understand what was happening on the VSE system to effect similar results on the MVS system. Regards, Steve Thompson -- Opinions expressed by this poster may not reflect those of poster's employer. -- -- 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: BLOCK CONTAINS
On Fri, 15 May 2009 10:05:48 -0700, Gibney, Dave wrote: >>3) If Cobol says "BLOCK CONTAINS 12345" it works (!!!) > >I'll bet you 3) If Cobol says "BLOCK CONTAINS " doesn't :) Sorry, you lose that bet. That does work. The only things that I've been able to determine simple do not work are if you specify a block size that 1) for RECFM=VB is not either 0 or at least 8 bytes more than the maximum record length, or 2) for RECFM=FB is not either 0 or a multiple of the record length. If you violate item 1 you get this: IGYGR1243-S FILE "MY-FILE" HAD A "RECORDING MODE" OF "V", BUT THE BLOCK SIZE WAS LESS THAN 8 PLUS THE MAXIMUM RECORD SIZE OF 500. THE FILE DEFINITION WAS DISCARDED. If you violate item 2 you get this: IGYGR1212-W THE MAXIMUM INTEGER IN THE "BLOCK CONTAINS" CLAUSE WAS NOT A MULTIPLE OF THE CALCULATED RECORD SIZE. THE CLAUSE WAS ACCEPTED. If you ignore the warning for number 2 you get an IEC141I 013-20. For number 1 we get RC > 4 so we don't even try to create the load module, much less run it! :-) Frank -- 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: BLOCK CONTAINS
By fail, I would have expected you to get an I/O error reading an existing file where the COBOL BLOCK CONTAINS is less. But, now I think about it, recent DFP, like somewhere in the last coupe decades (Probably around os390 1.4 or 2.5 for us) OPEN got smarter and handles unlike block sizes much better. Dave Gibney Information Technology Services Washington State University > -Original Message- > From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On > Behalf Of Frank Swarbrick > Sent: Friday, May 15, 2009 11:18 AM > To: IBM-MAIN@bama.ua.edu > Subject: Re: BLOCK CONTAINS > > On Fri, 15 May 2009 10:05:48 -0700, Gibney, Dave > wrote: > > >>3) If Cobol says "BLOCK CONTAINS 12345" it works (!!!) > > > >I'll bet you 3) If Cobol says "BLOCK CONTAINS " doesn't :) > > Sorry, you lose that bet. That does work. > > The only things that I've been able to determine simple do not work are > if you > specify a block size that > 1) for RECFM=VB is not either 0 or at least 8 bytes more than the > maximum > record length, or > 2) for RECFM=FB is not either 0 or a multiple of the record length. > > If you violate item 1 you get this: > IGYGR1243-S FILE "MY-FILE" HAD A "RECORDING MODE" OF "V", BUT THE > BLOCK SIZE WAS LESS THAN 8 PLUS THE MAXIMUM RECORD SIZE OF 500. > THE FILE DEFINITION WAS DISCARDED. > > If you violate item 2 you get this: > IGYGR1212-W THE MAXIMUM INTEGER IN THE "BLOCK CONTAINS" CLAUSE > WAS NOT A MULTIPLE OF THE CALCULATED RECORD SIZE. THE CLAUSE WAS > ACCEPTED. > > If you ignore the warning for number 2 you get an IEC141I 013-20. For > number 1 we get RC > 4 so we don't even try to create the load module, > much less run it! :-) > > Frank > > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: USERCAT Error (Out of Space)
I believe Innovations FDR Compactor can be used to reorganize usercats on the fly also. If you have Compactor, your Sunday window would be a good time. It probably would be easier to use than IDCAMs. Eric Eric Bielefeld Sr. Systems Programmer Milwaukee, Wisconsin 414-475-7434 -- 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 Mainframe: 50 Years of Big Iron Innovation
On Fri, 15 May 2009 12:17:00 -0400, Michael Sullivan wrote: >Nice visual walk down memory lane, for you old timers out there ; ) >... Excuse me, but that's "Long timers". We prefer to avoid the word "old". What is sequence here? ASCII collating sequence? It's not by date. Their jump from 1400 (1962) to 3031 (1977) appears to leave out a lot! They don't show the 360s and 370s until after the 30xx machines. Good pictures. Poor arrangement. Pat O'Keefe -- 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)
Not so sure about FDR. Do you have a link? I see a lot of references to reorganizing datasets on a volume (releasing space, consolidate free space, consolidate data set extents, etc.), but I don't see any reference to reorganizing user catalogs. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Eric Bielefeld Sent: Friday, May 15, 2009 3:45 PM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) I believe Innovations FDR Compactor can be used to reorganize usercats on the fly also. If you have Compactor, your Sunday window would be a good time. It probably would be easier to use than IDCAMs. Eric Eric Bielefeld Sr. Systems Programmer Milwaukee, Wisconsin 414-475-7434 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: VM ServiceLink going away for good this time?
On Fri, 15 May 2009 09:48:41 -0700, Gibney, Dave wrote: > Well, it's only been a couple months since the last spate of missives >on this list about the web ibmlink being down :( > > I won't enjoy my drop in efficiency needing to GUI around without >command line shortcuts. >... I won't enjoy it either, but we don't count. We're just users. Pat O'Keefe -- 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 Mainframe: 50 Years of Big Iron Innovation
Pat - you may be a long timer, but I, as well as the majority of those on IBM-Main, are getting old. Call it like it is! Eric Eric Bielefeld Sr. Systems Programmer Milwaukee, Wisconsin 414-475-7434 - Original Message - From: "Patrick O'Keefe" Excuse me, but that's "Long timers". We prefer to avoid the word "old". Pat O'Keefe -- 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
OA26802 - System REXX NF / Usability
PROBLEM SUMMARY: * USERS AFFECTED: Users of System REXX at HBB7740 * * and HBB7750. * * PROBLEM DESCRIPTION: New function is provided to * * address customer requirements * * for System REXX.* * RECOMMENDATION: * The following new functions are provided by this apar. Complete documentation can be found at the following web site: http://publibz.boulder.ibm.com/zoslib/pdf/OA26802.pdf Some nice stuff in there. However, I'm not able to get anything from http://publibz.boulder.ibm.com/zoslib/pdf/OA26802.pdf Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:mark.zel...@zurichna.com z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: OA26802 - System REXX NF / Usability
Alot more information in OA25932 James (Jim) Chappell 503 745-7841 503 349-5603(cell) james.chapp...@daimler.com Daimler Trucks North America LLC If you are not the intended addressee, please inform us immediately that you have received this e-mail in error, and delete it. We thank you for your cooperation. -- 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)
Yeah, I believe COMPAKTOR will re-arrange the extents of a usercat, but I don't think it will even merge the extents. It certainly WILL NOT reorganize the catalog records. >>> Larry Crilley 5/15/2009 4:04 PM >>> Not so sure about FDR. Do you have a link? I see a lot of references to reorganizing datasets on a volume (releasing space, consolidate free space, consolidate data set extents, etc.), but I don't see any reference to reorganizing user catalogs. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Eric Bielefeld Sent: Friday, May 15, 2009 3:45 PM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) I believe Innovations FDR Compactor can be used to reorganize usercats on the fly also. If you have Compactor, your Sunday window would be a good time. It probably would be easier to use than IDCAMs. Eric Eric Bielefeld Sr. Systems Programmer Milwaukee, Wisconsin 414-475-7434 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains confidential and privileged information intended only for the addressee. If you are not the intended recipient, please be advised that you have received this material in error and that any forwarding, copying, printing, distribution, use or disclosure of the material is strictly prohibited. If you have received this material in error, please (i) do not read it, (ii) reply to the sender that you received the message in error, and (iii) erase or destroy the material. Emails are not secure and can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by email. Thank you. -- 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)
Why not just pick one of the larger high level qualifiers and move it to another usercat, especially if the large high level is lightly used? MERGECAT will move the high level, and then all you need to do is delete and redefine the alias in all of the effected master catalogs. This might buy you more time until Sunday. C. Todd Burrell, PMP, MCP Lead z/OS Systems Programmer ITSO (404) 723-2017 (Cell) -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Rick Fochtman Sent: Friday, May 15, 2009 1:06 PM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) -- -- I've got this out of space problem in one of our user catalogs. Since this particular catalog is used by a bunch of STC, I was thinking of expanding the catalog this Sunday in a window. Here's my question...Is it possible to REORG the catalog to reclaim "dead space"? I've deleted about 600 entries but that only bought me about 4 hours until it got full again. --- In one of the manuals, I forget which, under the main heading "Managing ICF Catalogs", there was a set of sample JCL that demonstrated the exact process for the re-org of a ICF Catalog. I've used that JCL for years with nary a problem, although I broke it into multiple jobs for my own peace of mind. Select a quiet time, check it through to be sure you understand exactly what it's doing and I think you'll be quite pleased with the results. You should also investigate WHY this condition is occuring and consider alternative mechanisms when you find the problem/issue/process. -- Rick -- Remember that if you're not the lead dog, the view never changes. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM Mainframe: 50 Years of Big Iron Innovation
>Pat - you may be a long timer, but I, as well as the majority of those on >IBM-Main, are getting old. Call it like it is! 52 years on May 9. I think that makes me a youngster! On the other hand, my mother thinks she's old because her third child is turning 50 this year. - Too busy driving to stop for gas! -- 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 Mainframe: 50 Years of Big Iron Innovation
Only 48 here, I've always considered myself young - for a Sysprog ;-) >>> Ted MacNEIL 5/15/2009 4:53 PM >>> >Pat - you may be a long timer, but I, as well as the majority of those on >IBM-Main, are getting old. Call it like it is! 52 years on May 9. I think that makes me a youngster! On the other hand, my mother thinks she's old because her third child is turning 50 this year. - Too busy driving to stop for gas! -- 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 CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains confidential and privileged information intended only for the addressee. If you are not the intended recipient, please be advised that you have received this material in error and that any forwarding, copying, printing, distribution, use or disclosure of the material is strictly prohibited. If you have received this material in error, please (i) do not read it, (ii) reply to the sender that you received the message in error, and (iii) erase or destroy the material. Emails are not secure and can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by email. Thank you. -- 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 Mainframe: 50 Years of Big Iron Innovation
I'm 43, and I have always been the baby every place I've worked (usually by MANY years). Hard to believe I've been doing this work for 20 years. C. Todd Burrell, PMP, MCP Lead z/OS Systems Programmer ITSO (404) 723-2017 (Cell) -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Scott Rowe Sent: Friday, May 15, 2009 5:01 PM To: IBM-MAIN@bama.ua.edu Subject: Re: IBM Mainframe: 50 Years of Big Iron Innovation Only 48 here, I've always considered myself young - for a Sysprog ;-) >>> Ted MacNEIL 5/15/2009 4:53 PM >>> >Pat - you may be a long timer, but I, as well as the majority of those on IBM-Main, are getting old. Call it like it is! 52 years on May 9. I think that makes me a youngster! On the other hand, my mother thinks she's old because her third child is turning 50 this year. - Too busy driving to stop for gas! -- 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 CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains confidential and privileged information intended only for the addressee. If you are not the intended recipient, please be advised that you have received this material in error and that any forwarding, copying, printing, distribution, use or disclosure of the material is strictly prohibited. If you have received this material in error, please (i) do not read it, (ii) reply to the sender that you received the message in error, and (iii) erase or destroy the material. Emails are not secure and can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by email. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM Mainframe: 50 Years of Big Iron Innovation
Actually, I've found it helps my morale to track my age in hexadecimal... only 35 :-) Kel Scott Rowe wrote: > Only 48 here, I've always considered myself young - for a Sysprog ;-) -- 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 Mainframe: 50 Years of Big Iron Innovation
cute one, I'll use that one too --. 33 here, with 23 years in IT Bobbie Justice - Original Message - From: "Kelly Arrey" Newsgroups: bit.listserv.ibm-main To: Sent: Friday, May 15, 2009 5:09 PM Subject: Re: IBM Mainframe: 50 Years of Big Iron Innovation Actually, I've found it helps my morale to track my age in hexadecimal... only 35 :-) Kel Scott Rowe wrote: Only 48 here, I've always considered myself young - for a Sysprog ;-) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: USERCAT Error (Out of Space)
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. Eric Bielefeld Sr. Systems Programmer Milwaukee, Wisconsin 414-475-7434 - Original Message - From: "Scott Rowe" Newsgroups: bit.listserv.ibm-main To: Sent: Friday, May 15, 2009 3:42 PM Subject: Re: USERCAT Error (Out of Space) Yeah, I believe COMPAKTOR will re-arrange the extents of a usercat, but I don't think it will even merge the extents. It certainly WILL NOT reorganize the catalog records. Larry Crilley 5/15/2009 4:04 PM >>> Not so sure about FDR. Do you have a link? I see a lot of references to reorganizing datasets on a volume (releasing space, consolidate free space, consolidate data set extents, etc.), but I don't see any reference to reorganizing user catalogs. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Eric Bielefeld Sent: Friday, May 15, 2009 3:45 PM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) I believe Innovations FDR Compactor can be used to reorganize usercats on the fly also. If you have Compactor, your Sunday window would be a good time. It probably would be easier to use than IDCAMs. Eric Eric Bielefeld Sr. Systems Programmer Milwaukee, Wisconsin 414-475-7434 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains confidential and privileged information intended only for the addressee. If you are not the intended recipient, please be advised that you have received this material in error and that any forwarding, copying, printing, distribution, use or disclosure of the material is strictly prohibited. If you have received this material in error, please (i) do not read it, (ii) reply to the sender that you received the message in error, and (iii) erase or destroy the material. Emails are not secure and can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by email. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: USERCAT Error (Out of Space)
In a message dated 5/15/2009 3:51:52 P.M. Central Daylight Time, z...@cdc.gov writes: MERGECAT will move the high level, and then all you need to do is delete and redefine the alias in all of the effected master catalogs. This might buy you more time until Sunday. >> ---> listc ent('ucat_name') **An Excellent Credit Score is 750. See Yours in Just 2 Easy Steps! (http://pr.atwola.com/promoclk/100126575x1221823239x1201398650/aol?redir=http://www.freecreditreport.com/pm/default.aspx?sc=668072&hmpgID=62&bcd=May Excfooter51509NO62) -- 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
IBM Softcopy Reader and Vista
I was trying to install the Softcopy Reader tools from my z/OS 1.9 collection dated April 2008. Does anyone know if that is compatible with Windows Vista? I had some problems trying to install it. Eric Bielefeld Sr. Systems Programmer Milwaukee, Wisconsin 414-475-7434 -- 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: IBM Softcopy Reader and Vista
I don't usually reply to my own posts, but I will this time. I did a search on softcopy reader download, and it took me right to the correct web site. I downloaded the 3.8 version, and it seems to be working fine. I should have done that first. Eric Bielefeld Sr. Systems Programmer Milwaukee, Wisconsin 414-475-7434 - Original Message - From: "Eric Bielefeld" Newsgroups: bit.listserv.ibm-main To: Sent: Friday, May 15, 2009 4:31 PM Subject: IBM Softcopy Reader and Vista I was trying to install the Softcopy Reader tools from my z/OS 1.9 collection dated April 2008. Does anyone know if that is compatible with Windows Vista? I had some problems trying to install it. -- 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)
You are probably correct. Maybe someone from Innovation will reply on Monday with the definitive answer. Eric Bielefeld Sr. Systems Programmer Milwaukee, Wisconsin 414-475-7434 - Original Message - From: "Richard Peurifoy" Newsgroups: bit.listserv.ibm-main To: Sent: Friday, May 15, 2009 4:45 PM Subject: 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: VSE I/O Performance VS MVS [was BLOCK CONTAINS]
On Fri, 15 May 2009 14:09:33 -0400, Thompson, Steve wrote: >Because of past conversions, I think this needs to be said: > >1) VSE/ESA got to use XA I/O just like MVS. This means, to the VSE shop, >that some slick stuff that got offloaded to the I/O Subsystem (shall we >say parts of VM's and MVS' I/O Supervisor code) became available w/o any >JCL or application coding changes. Things like dual (or multi) pathing >with dynamic pathing. > >What does this have to do with anything? Well, the typical throughput >performance gains seen in the past when going from VSE to MVS don't >happen because what was giving those (for the most part) has already >been realized. > >2) VSAM is implemented in VSE differently than in MVS. So, the way >sharing and buffer management is done changes and WILL cause performance >issues when you get to MVS. > >3) CICS is impacted by these changes, and you may see less throughput. >Although, with the ability to have more storage than z/VSE allows, you >may over come it. But be sure to have sufficient page volumes. Are you saying the MVS VSAM is "less efficient" then VSE VSAM? Hmmm! One might start to wonder why we are migrating at all! :-) Thanks for the info. I will pass it on to our systems programmers (who hopefully already know what you are talking about anyway, but it couldn't hurt). Frank -- 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)
> -Original Message- > From: IBM Mainframe Discussion List > [mailto:ibm-m...@bama.ua.edu] On Behalf Of Eric Bielefeld > Sent: Saturday, 16 May 2009 7:57 AM > To: IBM-MAIN@bama.ua.edu > Subject: Re: USERCAT Error (Out of Space) > > You are probably correct. Maybe someone from Innovation will > reply on Monday with the definitive answer. > To answer the question about Innovation's FASTCPK product, it does not handle the internal reorganisation of catalogs. FASTCPK's primary function is to reduce free space fragmentation on a volume by the consolidation of free space areas. Additionally FASTCPK provides for the merging of dataset extents and the releasing or partial releasing of unused space from overallocated PS, PO, PDSE datasets and VSAM components. There are also features for the enlarging and/or moving of the volume's VTOC. Here's the link to FASTCPK on Innovation's web site for anyone who might be interested: http://www.innovationdp.fdr.com/products/fdr/fdrcpk.cfm Stephen Mednick Computer Supervisory Services Sydney, Australia Asia/Pacific representatives for Innovation Data Processing, Inc. -- 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 Mainframe: 50 Years of Big Iron Innovation
--- 52 years on May 9. I think that makes me a youngster! Yup. 59 on August 2. Started as a Systems Programmer on January 2, 1970. -- Rick -- Remember that if you’re not the lead dog, the view never changes. -- 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: VM ServiceLink going away for good this time?
On 15 May 2009 13:07:15 -0700, in bit.listserv.ibm-main you wrote: >On Fri, 15 May 2009 09:48:41 -0700, Gibney, Dave wrote: > >> Well, it's only been a couple months since the last spate of missives >>on this list about the web ibmlink being down :( >> >> I won't enjoy my drop in efficiency needing to GUI around without >>command line shortcuts. >>... > >I won't enjoy it either, but we don't count. We're just users. I suggest SHARE and other user groups put in a priority 5 requirement for 24/7 availability of servicelink. After all z/OS is supposed to have 5 nines availability. If the web access can't meet the requirement, then someone should be very embarrassed and in a very public manner. Like have one of us who is a shareholder (as a retired sysprog and owner of shares, I'll do it for expense money), show up at the annual meeting and ask questions. > >Pat O'Keefe > -- 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: PSF printer question
IPDS (AFP) printers respond to JES printer commands (back/forward space, etc.) regardless of connection type (channel/SNA/TCP/IP). However, some older printers will not show interrupt messages (paper jam, out of paper, attention) on the console (this facility requires a current PSF release). PSF 2.2 has been out of service for about 8 years It will support older printers attached with TCP/IP. Current printers may work, but some functions will not be supported. Of course, no AFP or printer functions after end-of-service will be supported. The current release of PSF is 4.2. Howard Turetzky Advanced Technical Support, M/S 004H Dept ME7 InfoPrint Solutions Company 6300 Diagonal Hwy, Boulder, CO 80301 howard.turet...@infoprint.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: VSE I/O Performance VS MVS [was BLOCK CONTAINS]
Frank, I suggest you download the Redbook, VSAM De-Mystified. It will answer your questions concerning VSAM performance. As my instructor told the class years ago - Don't take the defaults! Specify CI sizes that give the best space utilization for your record size. Choose a large enough Index CI Size to avoid 'dead areas' in your data component. Specify a robust value for your Bufferspace parameter, in most cases the larger the better. (I'm sure someone will volunteer a 'war story' where this wasn't the case but generally a large buffer space improves throughput.) For batch processing look into BLSR. For CICS use LSRpools, again be generous. The more data stored in memory the fewer physical I/O. HTH, Dave O'Brien NIH Contractor From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of Frank Swarbrick [fswarbr...@gmail.com] Sent: Friday, May 15, 2009 6:20 PM To: IBM-MAIN@bama.ua.edu Subject: Re: VSE I/O Performance VS MVS [was BLOCK CONTAINS] On Fri, 15 May 2009 14:09:33 -0400, Thompson, Steve wrote: >Because of past conversions, I think this needs to be said: > >1) VSE/ESA got to use XA I/O just like MVS. This means, to the VSE shop, >that some slick stuff that got offloaded to the I/O Subsystem (shall we >say parts of VM's and MVS' I/O Supervisor code) became available w/o any >JCL or application coding changes. Things like dual (or multi) pathing >with dynamic pathing. > >What does this have to do with anything? Well, the typical throughput >performance gains seen in the past when going from VSE to MVS don't >happen because what was giving those (for the most part) has already >been realized. > >2) VSAM is implemented in VSE differently than in MVS. So, the way >sharing and buffer management is done changes and WILL cause performance >issues when you get to MVS. > >3) CICS is impacted by these changes, and you may see less throughput. >Although, with the ability to have more storage than z/VSE allows, you >may over come it. But be sure to have sufficient page volumes. Are you saying the MVS VSAM is "less efficient" then VSE VSAM? Hmmm! One might start to wonder why we are migrating at all! :-) Thanks for the info. I will pass it on to our systems programmers (who hopefully already know what you are talking about anyway, but it couldn't hurt). Frank -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: BLOCK CONTAINS
On 15 May 2009 09:32:23 -0700, in bit.listserv.ibm-main you wrote: >Perhaps this explains the observed action? > >http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR31/5.2.4 > > >BLOCK CONTAINS >0 can be specified for QSAM files. If BLOCK CONTAINS 0 is specified for a > QSAM file, then: > >* The block size is determined at run time from the DD parameters or > the data set label. If the RECORD CONTAINS 0 CHARACTERS clause is specified > and the BLOCK CONTAINS 0 CHARACTERS clause is specified (or omitted), the > block size is determined at run time from the DD parameters or the data set > label of the file. For output data sets, with either of the above conditions, > the DCB used by Language Environment will have a zero block size value. If > you do not specify a block size value, the operating system might select a > system-determined block size (SDB). See the operating system specifications > for further information about SDB. > I checked the reference you gave and for QSAM files, if the BLOCK CONTAINS clause is omitted, BLOCK 1 RECORD is assumed. This stupidity has aggravated me for years. -- 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 Mainframe: 50 Years of Big Iron Innovation
On Fri, 15 May 2009 18:44:43 -0500, Rick Fochtman wrote: >... >Yup. 59 on August 2. Started as a Systems Programmer on January 2, 1970. >... Gees. The youngsters we've got around here. At least 59 is respectable - approaching maturity. 63 here, but who's counting. Pat O'Keefe -- 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
Trying to issue an Error Message during ISPF Panel Initialization in REXX Exec
I'm trying to issue an error message when displaying an ISPF panel in a Rexx exec but the panel comes up without the error message. Here is the Rexx code: errfnd = 'Y' "DISPLAY PANEL(HLVERF)" Here is the INIT section of the panel: )INIT .ZVARS = '(REPL)' &NEWDSN = &Z &REPL = &Z VGET errfnd IF (&ERRFND EQ 'Y') &ZERRHM = 'ISR0' &ZERRSM = 'New dataset exists' &ZERRLM = 'The new dataset name entered already exists.' &ZERRALRM = 'YES' .MSG = ISRZ002 .RESP = ENTER Any ideas on what I'm doing wrong? Thanks. Vince -- 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: Trying to issue an Error Message during ISPF Panel Initialization in REXX Exec
The panel is doing a VGET but the program didn't do a VPUT. Simply remove the VGET from the panel or add a VPUT to the program. Either one of those should fix it. However, I'd suggest that instead of doing either of those things it would be much better to simply issue the message directly from the program. For example, change the program to look like this: ZERRHM = 'ISR0' ZERRSM = 'New dataset exists' ZERRLM = 'The new dataset name entered already exists.' ZERRALRM = 'YES' "SETMSG MSG(ISRZ002)" "DISPLAY PANEL(HLVERF)" This allows you to remove all the message logic from the panel and not worry about passing flags back and forth. As an alternative you could remove the SETMSG shown above and do it this way instead: msgnum = "ISRZ002" "DISPLAY PANEL(HLVERF) MSG("msgnum")" If you do it this second way then remember to set MSGNUM to null before you first display the panel, and reset it back to null after each display. HTH, Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/SIM/simplist.htm > Date: Fri, 15 May 2009 18:36:21 -0700 > From: v...@sdccd.edu > Subject: Trying to issue an Error Message during ISPF Panel Initialization in > REXX Exec > To: IBM-MAIN@bama.ua.edu > > I'm trying to issue an error message when displaying an ISPF panel in a Rexx > exec but the panel comes up without the error message. Here is the Rexx > code: > > errfnd = 'Y' > "DISPLAY PANEL(HLVERF)" > > Here is the INIT section of the panel: > > )INIT > .ZVARS = '(REPL)' > &NEWDSN = &Z > &REPL = &Z > VGET errfnd > IF (&ERRFND EQ 'Y') > &ZERRHM = 'ISR0' > &ZERRSM = 'New dataset exists' > &ZERRLM = 'The new dataset name entered already exists.' > &ZERRALRM = 'YES' > .MSG = ISRZ002 > .RESP = ENTER > > > Any ideas on what I'm doing wrong? > > Thanks. > > Vince > > -- > 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 _ Create a cool, new character for your Windows Live™ Messenger. http://go.microsoft.com/?linkid=9656621 -- 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
is out of the office.
I will be out of the office starting 05/15/2009 and will not return until 05/19/2009. I will be out of the office on Monday, May 18th. I will return on Tuesday, May 19th. Thanks. ** The information contained in this communication is confidential, private, proprietary, or otherwise privileged and is intended only for the use of the addressee. Unauthorized use, disclosure, distribution or copying is strictly prohibited and may be unlawful. If you have received this communication in error, please notify the sender immediately at (312)653-6000 in Illinois; (800)835-8699 in New Mexico; (918)560-3500 in Oklahoma; or (972)766-6900 in Texas. ** -- 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: VSE I/O Performance VS MVS [was BLOCK CONTAINS]
--- On Fri, 5/15/09, Frank Swarbrick wrote: SNIP-- > > > >What does this have to do with anything? Well, the > typical throughput > >performance gains seen in the past when going from VSE > to MVS don't > >happen because what was giving those (for the most > part) has already > >been realized. > SNIP OK I will be the first to admit it but I have not seen DOS in 40(?) years. So if DOS has improved I would be very surprised (as far as I/O improvements). Did DOS finally as a default support 5 I/O buffers on QSAM? I remember when SAM-e came out for MVS in the '70's) and it made a HUGE impact on I/O and all for the good (mind you). My vague memory of DOS was a DTFxx and you had to specify the 1st and 2nd IOareas and that was needed (IIRC) just to get two buffers. In MVS when we added SAM-e we saw a *SIGNIFICANT* improvement in job elapsed time. Like I said it was 30+ years ago my memory says it decreased run time by 50% to 66% typically and of course some were less and some where more so I do not want to say average but it was in the area of 50-66 percent. I distinctly remember getting a call from production support at something in the morning says something was wrong as jobs were running way to fast. I assured them it was a performance enhancement and they would see most jobs running a lot faster. Fast forward 5 years in the 80's Change of job. We brought up MVS and were running VS1 and jobs were running so fast the operator could not keep up with the manual log he had. Again same call from production support(different company) as production got done at 630AM normally on VS1 and on MVS (with SAMe) they were done at 430AM. The only thing the operators didn't like was that tape drive selection was set at random so they couldn't premount tapes. In VS1 (IIRC) the lowest tape drive address was always 380 and the drive was getting beat up on and failing more often. The CE (customer Engineer) was ecstatic as he wasn't fixing the same tape drive all the time. IIRC SAMe was $15 a month charge option then. After a while practically every flavor of MVS that was being shipped was ordered with SAMe and it became standard (don't ask me what year). The bottom line is the MVS had SAMe and I do not recall it ever being offered in DOS (pick your flavor), are you suggesting that it was, if so how? The DOS I was used to (granted old) would never have allowed it. Ed -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html