Find out allocations of current MSTJCL
Hi folks, I wonder if there's a way to find out which datasets are allocated to master jcl (some control block or something like that). Regards Volkmar Langer -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Find out allocations of current MSTJCL
Volkmar Langer wrote: I wonder if there's a way to find out which datasets are allocated to master jcl (some control block or something like that). The official ones are in the master scheduler TIOT. In some versions of OS that TIOT is also used in the top level TCB (region control task) in your address space. Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Erase tape data securely
Hi all, I have a T9840 tape drive and lots of carts that need to be erased the data on them. I know that there is an option in T9840 CSE panel that can be turned on/off:DSE(Data security erase), my question is: if I turned it on, what utility or software can I use to erase the data on those cartridges? I am using IBM rmm. Could you anyone send me a sample jcl or tell me where to find the procedure? Regards Victor -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Erase tape data securely
Victor Zhang wrote: Hi all, I have a T9840 tape drive and lots of carts that need to be erased the data on them. I know that there is an option in T9840 CSE panel that can be turned on/off:DSE(Data security erase), my question is: if I turned it on, what utility or software can I use to erase the data on those cartridges? I am using IBM rmm. Could you anyone send me a sample jcl or tell me where to find the procedure? First, it depends on what you mean securely. 1. You can release the tape to scratch status - such tape cannot be read in RMM environment. However authorised users can bypass RMM rules, and RMM cannot protect tapes which leaved your datacenter. 2. You can write any data as (SL,1) dataset. Residual data is behind the wall of EOD. Such data is very hardly available - it requires specialized software (i.e. Innovation Data products). So, it cannot be read by any regular user - no tool, no authority. 3. The tape can be overwritten with some byte pattern. Whole tape, from beginning to end. In RMM you can flag the volume as ERASE ON SCRATCH. Then run EDGINERS utility to erase such volumes. It is time consuming process. However the data is erased only once. For disks the are black magic rules which says the disk should be erased at least three times (or 7 times or any other number you imagine - no justification provided). The same apply to tape media, don't it? 4. Degausser. Physically degausses the media in seconds. However modern carts are factory preformatted, so degaussed media are no longer usable. 5. Tartar's fire, hell's abyss, sulphur acid... -- Radoslaw Skorupka Lodz, Poland -- BRE Bank SA ul. Senatorska 18 00-950 Warszawa www.brebank.pl Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237 NIP: 526-021-50-88 Wedug stanu na dzie 01.01.2008 r. kapita zakadowy BRE Banku SA wynosi 118.642.672 zote i zosta w caoci wpacony. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Trying to figure out IEAMSCHD
I never saw the initial post, but the program provided as an example with the BR 14 was incorrect. It was off by a level of indirection. This was what was posted: MODESET KEY=ZERO,MODE=SUP STORAGE OBTAIN,LENGTH=2,SP=227 LR R5,R1 MVC 0(2,R5),=X'07FE' IEAMSCHD EPADDR=(R5),ENV=STOKEN,TARGETSTOKEN=STOKEN Ignoring the fact that this is somewhat wrong if reentrant (as it ought to use list/execute forms), when a reg form is used for IEAMSCHD, the reg is to contain the address of a word that contains the entry point address. Your reg contains the address of the routine itself. As coded, this SRB uses as an AMODE 31 entry point x'07FE' and (if you're lucky) blows up and will have no effect whatsoever on the issuing task or the target space. I suppose if you're unlucky there could be instructions at that address and just about anything could happen. If you want the SRB to run synchronously with respect to the caller, you could consider the SYNCH=YES keyword of IEAMSCHD. I do find it distressing that experienced people on this forum would give advice about using non-programming interfaces such as CVTSRBRT. I urge the originator of this thread to try to find someone local who has addtional experience to provide some guidance with respect to writing authorized code, to avoid adversely affecting a customer's system, either functionally or integrity-wise. It was mentioned that the desire is to do VSMLIST. Why? What will you do with the information? Maybe there are other pieces of information available in the system without going through the trouble (and cycles) of retrieving VSMLIST and analyzing the conl structures. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TN3270 Abend S0F8 RC04
On Sun, 17 Aug 2008 09:04:35 -0500, Chase, John wrote: Hi, All, Running a smoke test of z/OS 1.9 on the Prod LPAR, and getting intermittent S0F8-04 abends in TN3270. No hits on IBMLink for this. System Codes manual says: The issuer [of an SVC instruction] was in a mode other than task control block (TCB) mode. Any ideas, while we open a PMR? Well, nobody replied, so it must be a new problem. For our z/OS 1.9 rollout attempt yesterday, it was a show-stopper. The effect on end-users is that they are unable to connect to the system at all. Empirical evidence suggests that this situation affects only tn3270 clients assigned to an LU pool for which we don't specify a default LOGAPPL. This is consistent with IBM's analysis so far of our dump from last week, in which they have determined that the abending task was trying to send the USSMSG10 buffer to the connecting client. Adding to the puzzle is the fact that clients assigned to an LU pool that -does- have a default LOGAPPL can, upon exit from that application, display the (same) USSMSG10 without problem. I'll try to keep the list updated with progress from our PMR. -jc- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Find out allocations of current MSTJCL
On Mon, 25 Aug 2008 01:59:20 -0500 Volkmar Langer [EMAIL PROTECTED] wrote: :Hi folks, :I wonder if there's a way to find out which datasets are allocated to master jcl :(some control block or something like that). Depends on what you mean by allocated. You can look for SYSDSN ENQ's, for one. There is something that shows allocated UCB's. -- Binyamin Dissen [EMAIL PROTECTED] http://www.dissensoftware.com Director, Dissen Software, Bar Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Catalog Error - Can't delete dataset
DELETE 'dataset name' nvr FILE(DD1) DD1 points to the correct UCAT HTH, snip So just to try renaming it to something... Seems like everything I try really wants the physical file there - which doesn't make sense since I've run into rouge catalog entries before and not had trouble cleaning them up. This one is being stubborn. ALTER GROUP.PCLAIMS.LOA.TJJ49MIG.D2002262.T1439255 - NEWNAME(GROUP.PCLAIMS.LOA.JUNK) - CAT(ISV.SICF.USERCAT.VSYSP35) IDC3014I CATALOG ERROR IDC3009I ** VSAM CATALOG RETURN CODE IS 94 - REASON CODE IS IGG0CLRN-8 8 Explanation: OBTAIN did not find requested format-1 DSCB on specified volume. /snip Programmer Response: Ensure that the correct volume is -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Trying to figure out IEAMSCHD
Peter Relson wrote: It was mentioned that the desire is to do VSMLIST. Why? What will you do with the information? Maybe there are other pieces of information available in the system without going through the trouble (and cycles) of retrieving VSMLIST and analyzing the conl structures. Lindy stated that this was to gain experience. Knowledge for its own sake is a valuable asset. In my career I've been lucky that most of the time I worked for employers who understood that, and saw that play time provided experience that could be used to give our service bureau, or ISV products, a competitive edge. The first time this came up, and convinced me, was the time I worked for Applied Data Research's service bureau, and a customer needed IBM 2260 CRTs. A colleague and I wrote a silly application - a battleship game. By itself it signified nothing, but the hands-on experience affected the outcome of a contract bid, where a government agency wanted to convert a batch program to an interactive one. We won the contract, and finished on time and under budget. Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Interrupting CICS and IMS transactions
Chris All I meant by this phrase was that some user input would cause a program to be executed in the CICS / IMS region. It could be what you described in your post or something else though I can't comment due to my ignorance of these matters. Rest of my post was the specific bit that I could contribute to the solution of this problem namely issuing cancel thread command programatically to end DB2 processing. Would you please elobrate on the difficulty you forsee in implementing this ? Regards Mohammad PS: It's Khan not Kahn. On Fri, 22 Aug 2008 09:24:16 -0500, Chris Mason [EMAIL PROTECTED] wrote: snip What, I wonder, is an user interrupt request as mentioned by Mohammad Kahn. If this corresponds to what I have been describing, there may be some progress - but not easily implemented if the rest of his post is taken into account. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Why don't I see my CSA storage in the dump?
On Sun, 24 Aug 2008 20:08:26 +0200, Lindy Mayfield [EMAIL PROTECTED] wrote: That's exactly what I want to do. Problem is that there are some basic concepts that aren't covered so even though I've read those chapters a few times over, I don't get out of them what I should. I think the basics are covered, Lindy, if you carefully read -all- of the MVS Programming Assembler Services Guide and the MVS Programming Authorized Assembler Services Guide. And the Extended Addressability Gyide. And a good reading of the Principles of Operation helps, too. And that's a good part of the answer to your question about how we learn to do this stuff. It's true that a large part will come from studying others' code, and from spending years doing this kind of work. But a lot of it comes from reading all the books, and experimenting, and reading some more. -- Walt -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Find out allocations of current MSTJCL
On Mon, 25 Aug 2008 15:39:20 +0300, Binyamin Dissen [EMAIL PROTECTED] wrote: On Mon, 25 Aug 2008 01:59:20 -0500 Volkmar Langer [EMAIL PROTECTED] wrote: :Hi folks, :I wonder if there's a way to find out which datasets are allocated to master jcl :(some control block or something like that). Depends on what you mean by allocated. You can look for SYSDSN ENQ's, for one. There is something that shows allocated UCB's. I don't think that looking for SYSDSN ENQs will work. MSTJCL runs IEEMB860, and IEEMB860 gets the property ND or NODSI from the PPT. With NODSI, allocation drops the SYSDSN ENQ after allocating the DD, so it won't affect subsequent allocation processing. -- Walt Farrell, CISSP IBM STSM, z/OS Security Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: commands in a JCL stream.
John, The commands entered in JCL have a space after the //. It should be a continuation card or one of the few SET, INCLUDE,.. cards that doesn't need a name verb after the slashs. It should be simple to check of ot one of these cards, continuation card or a suspected command. In regard to the command name, I don't believe that the converteris aware of valid commands. Are you sure the command is not printed in syslog? Remember that the commands are executed in coversion time, not run time. Itschak On 8/25/08, John McKown [EMAIL PROTECTED] wrote: Yet another question in my quest to create a JCL parser. I know of the // COMMAND 'command' JCL statement. But I also know that it is possible to do something like: // VARY 200,ONLINE as well. Since I don't want to actually parse every possible z/OS command in my JCL parser, I am thinking of making a rule to catch all JCL statements which have an unknown verb and consider them to be possible z/OS commands. Does this seem reasonable? Or should I simply give a SYNTAX ERROR type return and say something to the effect: IF THIS IS A Z/OS COMMAND, USE THE COMMAND VERB TO ISSUE THE COMMAND. ? I did notice that something seems to know that VARY and I guess the other z/OS commands are valid, whereas something like // MOMMA will get a JCL error. From my testing, I think that the converter knows all the possible z/OS command verbs. That's because I used CA-OPS/MVS to create a command rule called MOMMA. When embedded in JCL, the command does not get executed and I get a JCL error. But I can enter the command via SDSF or a console session. Again, many thanks. -- Q: What do theoretical physicists drink beer from? A: An EIN stein. Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Enterprise COBOL v3.4.1 run time issue
Hi all, One of our most curious programmers noticed that when he uses READ or READ INTO statement to parse alphanumeric data, a translation is made. The value passed is the arithmetic truncation of the string. For example a string 'FOW123' is passed with value '666123'. As you can see X'F1' = C6D6E6F1F2F3. The truncation made before assigning the value to an element so, using DTR instead of DTR has no effect. Do you think this is a compiler or LE issue? Thank you in advance K. Zafiropoulos EFG EUROBANK z/OS junior System Programmer -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Why don't I see my CSA storage in the dump?
On Mon, 2008-08-25 at 08:32 -0500, Walt Farrell wrote: I think the basics are covered, Lindy, if you carefully read -all- of the MVS Programming Assembler Services Guide and the MVS Programming Authorized Assembler Services Guide. And the Extended Addressability Gyide. And a good reading of the Principles of Operation helps, too. And that's a good part of the answer to your question about how we learn to do this stuff. It's true that a large part will come from studying others' code, and from spending years doing this kind of work. But a lot of it comes from reading all the books, and experimenting, and reading some more. Nope - you'd need to be Tolkien to decipher that lot if you were coming in cold. IBM have a *lot* to answer for when they went OCO. For people that never had access to the fiche, or the PLMs - or the (internals) education classes - large parts of this might as well be runes. Doesn't inspire confidence in the quality of software that may be forthcoming in future. And we (customers) are supposed to unquestioningly agree to allow any and all auth'd code from vendors. m ... Shane ... (this is not a beat up on Lindy - I have no issue with anybody trying to learn. My beef is that she has so many impediments). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Enterprise COBOL v3.4.1 run time issue
K Zafirop wrote: Hi all, One of our most curious programmers noticed that when he uses READ or READ INTO statement to parse alphanumeric data, a translation is made. I don't believe it. READ transfers bytes of data from an external source into a memory location unchanged. The only exception I'm aware of is if you are reading ASCII tapes and have requested the translation in your DD statement. The value passed is the arithmetic truncation of the string. For example a string 'FOW123' is passed with value '666123'. I'm confused here. How can the string 'FOW123' have a value '666123'? The string is its value. Maybe you could give us some more code: * relevant portion of record layout * Select, FD, Open, and READ statement coding * How are you detecting this value As you can see X'F1' = C6D6E6F1F2F3. The truncation made before assigning the value to an element so, using DTR instead of DTR has no effect. Do you think this is a compiler or LE issue? What is DTR? Thank you in advance K. Zafiropoulos EFG EUROBANK z/OS junior System Programmer -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Enterprise COBOL v3.4.1 run time issue
DTR will test and give you a Compile time error if truncation is occurring, that is moving a 6 digit field to a 5 digit field. It will also test to see when you are moving an alphanumeric field to a numeric field. This is a compile time and not a runtime option. The value I am seeing FOW123, if you or the compiler were to move it to a binary or packed field would give you a packed decimal value of 666123. Somewhere it appears a PACK instruction is being done on this field. Without seeing the code, I can only speculate on what might have caused this. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of K Zafirop Sent: Monday, August 25, 2008 10:02 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Enterprise COBOL v3.4.1 run time issue Hi all, One of our most curious programmers noticed that when he uses READ or READ INTO statement to parse alphanumeric data, a translation is made. The value passed is the arithmetic truncation of the string. For example a string 'FOW123' is passed with value '666123'. As you can see X'F1' = C6D6E6F1F2F3. The truncation made before assigning the value to an element so, using DTR instead of DTR has no effect. Do you think this is a compiler or LE issue? Thank you in advance K. Zafiropoulos EFG EUROBANK z/OS junior System Programmer -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html - The information contained in this e-mail message is intended only for the personal and confidential use of the recipient(s) named above. This message may be an attorney-client communication and/or work product and as such is privileged and confidential. If the reader of this message is not the intended recipient or an agent responsible for delivering it to the intended recipient, you are hereby notified that you have received this document in error and that any review, dissemination, distribution, or copying of this message is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail, and delete the original message. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Enterprise COBOL v3.4.1 run time issue
On Mon, 25 Aug 2008 09:02:26 -0500 K Zafirop [EMAIL PROTECTED] wrote: :Hi all, : :One of our most curious programmers noticed that when he uses READ or READ :INTO statement to parse alphanumeric data, a translation is made. The value :passed is the arithmetic truncation of the string. For example a :string 'FOW123' is passed with value '666123'. As you can see X'F1' = :C6D6E6F1F2F3. The truncation made before assigning the value to an element :so, using DTR instead of DTR has no effect. Do you think this is a compiler or :LE issue? I don't know what DTR is, but if you simply use a field as numeric data COBOL will issue a PACK followed by the rest of the operation. The field above will generate valid packed data. You can use the IF NUMERIC class test to verify the contents. -- Binyamin Dissen [EMAIL PROTECTED] http://www.dissensoftware.com Director, Dissen Software, Bar Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Enterprise COBOL v3.4.1 run time issue
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of K Zafirop Sent: Monday, August 25, 2008 9:02 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Enterprise COBOL v3.4.1 run time issue Hi all, One of our most curious programmers noticed that when he uses READ or READ INTO statement to parse alphanumeric data, a translation is made. The value passed is the arithmetic truncation of the string. For example a string 'FOW123' is passed with value '666123'. As you can see X'F1' = C6D6E6F1F2F3. The truncation made before assigning the value to an element so, using DTR instead of DTR has no effect. Do you think this is a compiler or LE issue? Thank you in advance I'm a bit confused. But if you have some external datum which is character 'FOW123' and read it into a COBOL data item which is defined as PIC 9(6) USAGE DISPLAY., then what you are seeing in normal. The problem is that when you then move that data to somewhere else, the code generated does a CVD instruction. The CVD instruction pays no attention to the high order nybble of the data, except for the last byte, in which it the zone nybble is used as the sign nybble. If you want to make sure that the input is valid, then do a IF variable IS NUMERIC or IF variable IS NOT NUMERIC type test before using the datum. -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology The information contained in this e-mail message may be privileged and/or confidential. It is for intended addressee(s) only. If you are not the intended recipient, you are hereby notified that any disclosure, reproduction, distribution or other use of this communication is strictly prohibited and could, in certain circumstances, be a criminal offense. If you have received this e-mail in error, please notify the sender by reply and delete this message without copying or disclosing it. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
SYSOUT LRECL/dcb parms and JES2 performance
Hi! I wondering if there are some preformance consideration regarding dcb parms for a SYSOUT dataset. Lets say that I want to write multiple lines on sysout and they are of very different lengths, everything from zero to 3 chars. Does it matter if I use FB or VB and what maxlength i use (LRECL) ? Maybe JES2 compresses it anyway ? TIA Thomas Berg __ Thomas Berg Specialist IT-U SWEDBANK -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: sFTP from/to z/OS best practices
snip We need to set up some type of area that our users (user's) can each place their files but that can't be accessed by the other outside users. unsnip You may want to look at access ACLs in the OMVS directory. Also the [EMAIL PROTECTED] list may be more informative. Jack Kelly 202-502-2390 (Office) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Catalog Error - Can't delete dataset
4. For this one you need to leave the ver… as is. //SYSINDD * ZAP BCS(USERCAT.NAME) - DELETE(KEY(DATASET.NAME) - VER(04,C'A')) Well, I'd love to try the zap, but I don't have CatalogRecovery +. Bummer. Nothing else is working. Thanks for all the tips so far, I'll keep trying stuff and let you know what becomes of this. Jeffrey Deaver, Engineer Systems Engineering [EMAIL PROTECTED] 651-665-4231(v) IS - Creating competitive advantage with technology. Providing service that excels. OSS - Where Innovation Happens -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SYSOUT LRECL/dcb parms and JES2 performance
--snip-- I wondering if there are some preformance consideration regarding dcb parms for a SYSOUT dataset. Lets say that I want to write multiple lines on sysout and they are of very different lengths, everything from zero to 3 chars. Does it matter if I use FB or VB and what maxlength i use (LRECL) ? Maybe JES2 compresses it anyway ? ---unsnip- AFAIK, JES2 only trims off trailing blanks. In your situation, I would use VB and be careful to only write the actual data, truncating trailing blanks. 30,000 chars on a sysout record? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Enterprise COBOL v3.4.1 run time issue
On Mon, 25 Aug 2008 08:26:19 -0600, Steve Comstock wrote: K Zafirop wrote: The value passed is the arithmetic truncation of the string. For example a string 'FOW123' is passed with value '666123'. I'm confused here. How can the string 'FOW123' have a value '666123'? The string is its value. It appears as if something is doing a Pack and ignoring data errors. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
SV: SYSOUT LRECL/dcb parms and JES2 performance
I thought that maybe today JES2 stores it in its own, compressed, format regardless of what I specify. The natural choice if thinking in terms of normal dataset IO would of course be VB as You suggest. The 3 chars was just an example to show the unpredictability of the output. (Logging, debugging and statistical purposes.) Thanks, Thomas __ Thomas Berg Specialist IT-U SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] För Rick Fochtman Skickat: den 25 augusti 2008 17:39 Till: IBM-MAIN@BAMA.UA.EDU Ämne: Re: SYSOUT LRECL/dcb parms and JES2 performance --snip-- I wondering if there are some preformance consideration regarding dcb parms for a SYSOUT dataset. Lets say that I want to write multiple lines on sysout and they are of very different lengths, everything from zero to 3 chars. Does it matter if I use FB or VB and what maxlength i use (LRECL) ? Maybe JES2 compresses it anyway ? ---unsnip- AFAIK, JES2 only trims off trailing blanks. In your situation, I would use VB and be careful to only write the actual data, truncating trailing blanks. 30,000 chars on a sysout record? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Trying to figure out IEAMSCHD
In a message dated 8/25/2008 7:00:29 A.M. Central Daylight Time, [EMAIL PROTECTED] writes: I do find it distressing that experienced people on this forum would give advice about using non-programming interfaces such as CVTSRBRT. I didn't know until your post that using CVTSRBRT was not the optimal way to return from SRB code. I try to use an official interface when I know that there is one. Now I know, and I'll use R14 upon entry from now on. Thanks for the admonition. Bill Fairchild Rocket Software **It's only a deal if it's where you want to go. Find your travel deal here. (http://information.travel.aol.com/deals?ncid=aoltrv000547) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Catalog Error - Can't delete dataset
I've had good luck with IBM's unsupported VVDSFIX tool, to delete an otherwise un-delete-able data set. The VVDSFIX tool's DELBCSR command did the trick for me. //*DELBCSR - DELETE BCS RECORD will erase a BCS record.** //* The purpose of this command is to erase a catalog ** //* record that has a bad name such as a special ** //* character imbedded within the name that IDCAMS thinks ** //* is bad and prevents the DELETE from working. ** //*** Google VVDSFIX which shows the following link as the tool source: www-1.ibm.com/support/docview.wss?uid=isg3S1000618 Brian On Mon, 25 Aug 2008 10:15:42 -0500, Jeffrey Deaver wrote: Well, I'd love to try the zap, but I don't have CatalogRecovery +. Bummer. Nothing else is working. Thanks for all the tips so far, I'll keep trying stuff and let you know what becomes of this. Jeffrey Deaver, Engineer -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Enterprise COBOL v3.4.1 run time issue
Doubt the Read is involved. Look at the move code for this field generated by the complier. Pics? On Mon, 25 Aug 2008 08:26:19 -0600, Steve Comstock wrote: K Zafirop wrote: The value passed is the arithmetic truncation of the string. For example a string 'FOW123' is passed with value '666123'. I'm confused here. How can the string 'FOW123' have a value '666123'? The string is its value. It appears as if something is doing a Pack and ignoring data errors. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- NOTICE: This electronic mail message and any attached files are confidential. The information is exclusively for the use of the individual or entity intended as the recipient. If you are not the intended recipient, any use, copying, printing, reviewing, retention, disclosure, distribution or forwarding of the message or any attached file is not authorized and is strictly prohibited. If you have received this electronic mail message in error, please advise the sender by reply electronic mail immediately and permanently delete the original transmission, any attachments and any copies of this message from your computer system. Thank you. == -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Erase tape data securely
In article [EMAIL PROTECTED] you write: Hi all, I have a T9840 tape drive and lots of carts that need to be erased the data on them. I know that there is an option in T9840 CSE panel that can be turned on/off:DSE(Data security erase), my question is: if I turned it on, what utility or software can I use to erase the data on those cartridges? I am using IBM rmm. Could you anyone send me a sample jcl or tell me where to find the procedure? If you speak assembler, you can probably adapt the following to OS. It was originally written for VM. Not by me, From Rich Chong at (then) the CTA. The DIAG would be replaced by an EXCP and WAIT, The LINEDIT by a WTO. You would probably want to change the format 1 CCWs to format 2 CCWs. The reason for the WTM at the beginning is so that the tape will not be completely blank, which if mounted on drives of that era would run off the end of the reel, and is still a good idea on newer drives. I will leave the rest as an exercise for the student. TAPERASE TITLE 'PROGRAM TO ERASE TAPES ON 3420''S' * THIS PROGRAM ERASES TAPES ON 3420'S AT VIRTUAL ADDRESS 181. * NOTE THAT IF THE OPERATOR HIT'S RESET/UNLOAD-REWIND DIAGNOSE 20 * RETURNS A CONDITION CODE OF ZERO. OH WELL ... TAPERASE CSECT ENTRY POINT FOR DATA SET ERASE PROGRAM. USING TAPERASE,R12 ESTABLISH PROGRAM ADDRESSABILITY. LAR1,X'181' GET ADDRESS OF DEVICE TO DO I/O TO. LAR2,CCWLISTGET ADDRESS OF CHANNEL COMMAND WORDS. DIAG R1,R2,X'0020' LET CP DO THE IO. BALR R3,0 GET RIGHT HALF PSW WITH CC. SLL R3,2 GET RID OF THE ILC. SRL R3,30 PUT CC IN LOW ORDER BYTE. LTR R3,R3 IS CONDITION CODE ZERO? BZEXIT YES, NO MESSAGE. LRR4,R15COPY RETURN CODE. LINEDIT TEXT='CC=.. RY= R15=', SUB=(HEX,(R3),HEX,(R2),HEX,(R4)),RENT=NO EXIT DS0HONLY EXIT FROM PROGRAM. XRR15,R15 ZERO RETURN CODE BRR14 RETURN TO CMS. CCWLIST DS0DCCW'S FOLLOW. CCW X'1F',0,X'40',1WTM FOLLOWED BY CCW X'17',0,X'40',1ERASE GAP FOLLOWED BY CCW X'97',0,X'40',1DATA SECURITY ERASE. CCW X'0F`,0,0,1THEN UNLOAD REGEQU STANDARD CMS REGISTER EQUATES. END TAPERASE PROGRAM END. -- Rich Greenberg N Ft Myers, FL, USA richgr atsign panix.com + 1 239 543 1353 Eastern time. N6LRT I speak for myself my dogs only.VM'er since CP-67 Canines:Val, Red, Shasta Casey (RIP), Red Zero, Siberians Owner:Chinook-L Retired at the beach Asst Owner:Sibernet-L -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
PassTicket on FEPI Terminal
Dear All, Our shop has never used FEPI before, but since the bussiness need grew, we are currently exploring that option. Any experience in using FEPI is very much needed. We really need an expert on guiding us towards the right way on how to implement this. So we are going to have a CICS Program that will go back-and-forth to different CICS Region using FEPI Terminal calling different CICS Transactions. We also know there is another option IBM called Service Flow, but we are a few months behind that, since we havent customize the system to be able to use WDZ (Websphere Developer for Z Series). One thing that we heard Service Flow can do what FEPI can, but much more robust and powerful (for ex, commit after all transactions has been done successfully, which I heard FEPI cannot). We are planning to pass the credentials of user id signing on using a PASSTICKET FEPI Command. We uses this command: EXEC CICS FEPI REQUEST PASSTICKET (W-PASSTICKET) CONVID (W-FEPI-CONVID) ESMREASON (W-ESMREASON) ESMRESP(W-ESMRESP) RESP (W-RESPONSE) END-EXEC. But when we run the program, and displaying the result, the CEEMSG shows result like this: PX29DATK 20080825210450 DATKIA04 ESMREASON: , ESMRESP: 0008, EIBRESP: 0016, EIBRESP2: 0250 We tried to follow RACF Admnistrator Guide and set these command: SETR CLASSACT(PTKTDATA) SETR RACLIST(PTKTDATA) SETR RACLIST(PTKTDATA) REFRESH RDEFINE PTKTDATA GIBSPTKT SSIGNON(KEYMASKED(1212121212121212)) UACC(NONE) then we give the USER-ID that is going to run these FEPI command authority towards PTKTDATA GIBSPTKT. Anything that we miss and need to do? From whom that is still trying to digest, the books. Thank you in advance. Regards, Fransiscus Kaurrany -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
sharing data sets acrosss systems
There used to be an IBM manual about placement of system daya sets in MVS. It also told what system data sets could be shared and not shared. Does any one knoe what that manual is now or where I can find such information? We just installed z/OS 1.9 and are sharing the logrec data set between three LPARS and I am not sure if this is ok. Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: sharing data sets acrosss systems
On Mon, 25 Aug 2008 12:29:15 -0500, John C. Wolf [EMAIL PROTECTED] wrote: There used to be an IBM manual about placement of system daya sets in MVS. It also told what system data sets could be shared and not shared. Does any one knoe what that manual is now or where I can find such information? The planning manual for your release has a suggested system layout. There used to be a MVS System Data Set Definition but that went away in z/OS 1.7. I don't think anything replaced it but all the information in there is probably in mixture of other manuals. We just installed z/OS 1.9 and are sharing the logrec data set between three LPARS and I am not sure if this is ok. Unless you are talking about a CF logstream, then answer is NO, it is not ok. Each LPAR needs their own SYS1.LOGREC (or whatever you are calling it). Where is that documented now? The best I could find is in the diagnosis manual with a little reading between the lines (note the word individual): an installation can use a logrec data set, associated with an individual system, to record error records. Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: sharing data sets acrosss systems
For some reason, the powers that be who are in charge of IBM manuals have decided that the old System Data Set Definition manual is no longer needed. I found the following reference which explains that the LOGREC data set must be unique to each z/OS system, from z/OS Diagnosis Tools and Service Aids: -=-=-=- 14.2 Choosing the correct logrec recording medium You can choose where the system will record logrec error records. When a system is not in a sysplex, an installation can use a logrec data set, associated with an individual system, to record error records. An installation can choose to continue this type of recording by initializing the logrec data set before IPLing the system that will use it. In a sysplex, however, because each system requires its own logrec data set, you might need to look at each logrec data set when an error occurs. -=-=-=- You should give each z/OS system its own LOGREC data set, or, in a sysplex, you can use a logstream. If you don't want to use a logstream, there's a couple different ways to give each system a unique LOGREC data set. 1) Code LOGREC=data.set.name.for.system.one in IEASYS00 for the first system, LOGREC=data.set.name.for.system.two for the second system, etc. 2) Don't code LOGREC= at all, but in the master catalog for each system, make sure that SYS1.LOGREC points to a unique data set on each system (by volser). Brian On Mon, 25 Aug 2008 12:29:15 -0500, John C. Wolf wrote: There used to be an IBM manual about placement of system daya sets in MVS. It also told what system data sets could be shared and not shared. Does any one knoe what that manual is now or where I can find such information? We just installed z/OS 1.9 and are sharing the logrec data set between three LPARS and I am not sure if this is ok. Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: sharing data sets acrosss systems
My own preference would be to NOT share LOGREC, MAN files, certain zFS or HFS files, Page Datasets, and so on. I would share Copule Data Sets, Catalogs, Spool, and so on. Lizette There used to be an IBM manual about placement of system daya sets in MVS. It also told what system data sets could be shared and not shared. Does any one knoe what that manual is now or where I can find such information? We just installed z/OS 1.9 and are sharing the logrec data set between three LPARS and I am not sure if this is ok. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: sharing data sets acrosss systems
On Mon, 25 Aug 2008 13:47:03 -0500, Mark Zelden [EMAIL PROTECTED] wrote: On Mon, 25 Aug 2008 12:29:15 -0500, John C. Wolf [EMAIL PROTECTED] wrote: There used to be an IBM manual about placement of system daya sets in MVS. It also told what system data sets could be shared and not shared. Does any one knoe what that manual is now or where I can find such information? The planning manual for your release has a suggested system layout. There used to be a MVS System Data Set Definition but that went away in z/OS 1.7. I don't think anything replaced it but all the information in there is probably in mixture of other manuals. We just installed z/OS 1.9 and are sharing the logrec data set between three LPARS and I am not sure if this is ok. Unless you are talking about a CF logstream, then answer is NO, it is not ok. Each LPAR needs their own SYS1.LOGREC (or whatever you are calling it). Where is that documented now? The best I could find is in the diagnosis manual with a little reading between the lines (note the word individual): an installation can use a logrec data set, associated with an individual system, to record error records. The next paragraph spells it out more clearly. In a sysplex, however, because each system requires its own logrec data set, you might need to look at each logrec data set when an error occurs. Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Abend U1188 in Syncsort with EMC DASD
As promised, I now have a solution to my Syncsort Jobs abending with U1188. EMC has a microcode patch for DMX2 (DMX3000 Storage array) family and DMX4 (DMX4500 Storage Array) family. You can search powerlink with the following phrase: ‘IOS050I SyncSort ABEND U1188’ You will see a couple for Aug 2008. The article I have been directed to for this issue is: emc185969 Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PassTicket on FEPI Terminal
Fransiscus I was obliged to call on the services of Google in order to work out what you were talking about here. Eventually FEPI and CICS as keywords cleared the matter up. You should probably use the CICS-L list for this query. See http://www-01.ibm.com/software/htp/cics/communities/cics-l.html for how to subscribe. Chris Mason On Tue, 26 Aug 2008 00:26:29 +0700, FRANSISCUS KAURRANY [EMAIL PROTECTED] wrote: Dear All, Our shop has never used FEPI before, but since the bussiness need grew, we are currently exploring that option. Any experience in using FEPI is very much needed. We really need an expert on guiding us towards the right way on how to implement this. So we are going to have a CICS Program that will go back-and-forth to different CICS Region using FEPI Terminal calling different CICS Transactions. We also know there is another option IBM called Service Flow, but we are a few months behind that, since we havent customize the system to be able to use WDZ (Websphere Developer for Z Series). One thing that we heard Service Flow can do what FEPI can, but much more robust and powerful (for ex, commit after all transactions has been done successfully, which I heard FEPI cannot). We are planning to pass the credentials of user id signing on using a PASSTICKET FEPI Command. We uses this command: EXEC CICS FEPI REQUEST PASSTICKET (W-PASSTICKET) CONVID (W-FEPI-CONVID) ESMREASON (W-ESMREASON) ESMRESP(W-ESMRESP) RESP (W-RESPONSE) END-EXEC. But when we run the program, and displaying the result, the CEEMSG shows result like this: PX29DATK 20080825210450 DATKIA04 ESMREASON: , ESMRESP: 0008, EIBRESP: 0016, EIBRESP2: 0250 We tried to follow RACF Admnistrator Guide and set these command: SETR CLASSACT(PTKTDATA) SETR RACLIST(PTKTDATA) SETR RACLIST(PTKTDATA) REFRESH RDEFINE PTKTDATA GIBSPTKT SSIGNON(KEYMASKED(1212121212121212)) UACC(NONE) then we give the USER-ID that is going to run these FEPI command authority towards PTKTDATA GIBSPTKT. Anything that we miss and need to do? From whom that is still trying to digest, the books. Thank you in advance. Regards, Fransiscus Kaurrany -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Catalog Error - Can't delete dataset
I've had good luck with IBM's unsupported VVDSFIX tool, to delete an otherwise un-delete-able data set. The VVDSFIX tool's DELBCSR command did the trick for me. SHAZAM! It worked. Thanks! Jeffrey Deaver, Engineer Systems Engineering [EMAIL PROTECTED] 651-665-4231(v) IS - Creating competitive advantage with technology. Providing service that excels. OSS - Where Innovation Happens -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
SHOWzOS 7.17 for z/OS R10 (beta)
Roland, how can I contact you to get the beta version of Showzos? Thanks, Jon Jon L. Veilleux [EMAIL PROTECTED] (860) 636-2683 This e-mail may contain confidential or privileged information. If you think you have received this e-mail in error, please advise the sender by reply e-mail and then delete this e-mail immediately. Thank you. Aetna -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Which OMEGAMON is correct?
Doron, There is doubt that your CSA size in not 10M, there are only 16M down there... Did you use IRLM for IMS as well? I mean, may be from DB2 point of view IRLM uses only 10M in ECSA, and the rest 3MB are used by IMS settings left behind after IMS drop? Start OM for DBCTL and see what it has to tell about CSA consumption... ITschak On 8/24/08, Doron Geva [EMAIL PROTECTED] wrote: Hi All I need help in understanding the numbers OMEGAMONMVS nd DB2 show. In the site I work, we have DB2 and OMEGAMON MVS and DB2. The OMEGAMON for OMEGAMON DB2 shows that IRLM CSA numbers are: Max 10M *Current 8M* High watermark is 8M At the same time, OMEGAMON MVS shows that IRLM allocated: *1356K in ECSA * 15K in ESQA 256 bytes in SQA Can anyone explain the difference? Thanks Doron -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Catalog Error - Can't delete dataset
Why don't you just zap the VTOC entry for this dataset to PS? The catalog structure is much simpler then and bypasses VVDS. You should be familiar with VTOP dump, zap and format-x DSCBs. Don't try it at home if you are not familiar with it! If you have CA-Disk, you can use a utility to this for you. ITschak On 8/25/08, Brian Peterson [EMAIL PROTECTED] wrote: I've had good luck with IBM's unsupported VVDSFIX tool, to delete an otherwise un-delete-able data set. The VVDSFIX tool's DELBCSR command did the trick for me. //*DELBCSR - DELETE BCS RECORD will erase a BCS record.** //* The purpose of this command is to erase a catalog ** //* record that has a bad name such as a special ** //* character imbedded within the name that IDCAMS thinks ** //* is bad and prevents the DELETE from working. ** //*** Google VVDSFIX which shows the following link as the tool source: www-1.ibm.com/support/docview.wss?uid=isg3S1000618 Brian On Mon, 25 Aug 2008 10:15:42 -0500, Jeffrey Deaver wrote: Well, I'd love to try the zap, but I don't have CatalogRecovery +. Bummer. Nothing else is working. Thanks for all the tips so far, I'll keep trying stuff and let you know what becomes of this. Jeffrey Deaver, Engineer -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: sharing data sets acrosss systems
I too found the System Data Set Definitions manual to be quite useful. As Mark pointed out it went away with z/OS 1.7. You can get the last version at http://publibz.boulder.ibm.com/epubs/pdf/iea2g500.pdf The info may be 'old', but I believe it is still mostly relevant. Don Imbriale -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Mark Zelden Sent: Monday, August 25, 2008 2:47 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: sharing data sets acrosss systems On Mon, 25 Aug 2008 12:29:15 -0500, John C. Wolf [EMAIL PROTECTED] wrote: There used to be an IBM manual about placement of system daya sets in MVS. It also told what system data sets could be shared and not shared. Does any one knoe what that manual is now or where I can find such information? The planning manual for your release has a suggested system layout. There used to be a MVS System Data Set Definition but that went away in z/OS 1.7. I don't think anything replaced it but all the information in there is probably in mixture of other manuals. This communication is from JPMorgan. Generally, this communication is for informational purposes only and it is not intended as an offer or solicitation for the purchase or sale of any financial instrument or as an official confirmation of any transaction. In the event you are receiving the offering materials attached below related to your interest in hedge funds or private equity, this communication may be intended as an offer or solicitation for the purchase or sale of such fund(s). All market prices, data and other information are not warranted as to completeness or accuracy and are subject to change without notice. Any comments or statements made herein do not necessarily reflect those of JPMorgan Chase Co., its subsidiaries and affiliates. This transmission may contain information that is privileged, confidential, legally privileged, and/or exempt from disclosure under applicable law. If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution, or use of the information contained herein (including any reliance thereon) is STRICTLY PROHIBITED. Although this transmission and any attachments are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by JPMorgan Chase Co., its subsidiaries and affiliates, as applicable, for any loss or damage arising in any way from its use. If you received this transmission in error, please immediately contact the sender and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. Please refer to http://www.jpmorgan.com/pages/disclosures for disclosures relating to UK legal entities. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Platinum and z/OS V1.9
Cross posting to IBMMAIN and DB2 Newsgroups Are there any issues with DB2 V8, Platinum and z/OS V1.9? Our DBA group is indicating that since the z/OS V1.9 operating system went in, the Platinum loads have failed on space issues. What they are seeing are: IGD17226I THERE IS AN INSUFFICIENT NUMBER OF VOLUMES IN THE ELIGIBLE STORAGE GROUP(S) TO SATISFY THIS REQUEST FOR DATA SET TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 IGD17290I THERE WERE 1 CANDIDATE STORAGE GROUPS OF WHICH THE FIRST 1 WERE ELIGIBLE FOR VOLUME SELECTION. THE CANDIDATE STORAGE GROUPS WERE:TST1 IGD17279I 88 VOLUMES WERE REJECTED BECAUSE THE SMS VOLUME STATUS WAS DISABLED IGD17279I 133 VOLUMES WERE REJECTED BECAUSE OF INSUFF TOTAL SPACE IGD17219I UNABLE TO CONTINUE DEFINE OF DATA SET TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12 DEFINE CLUSTER (NAME(TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 ) - LINEAR REUSE SPEED SHAREOPTIONS(3 3) ) - DATA (NAME(TSTDSN1.DSNDBD.DSN1005.DSN1XXOE.I0001.A001 ) - RECORDS( 000297000,9) - CONTROLINTERVALSIZE(32768) - VOLUMES(* )) My recommendation is to add more asterisks to the VOLUME statement. We have at least 6 volumes that can handle the primary allocation. And if I calculated it correctly it is 1650 Cylinders Primary and 500 cylinders secondary. What I believe to be happening is that due to the one asterisk is causing the failure and if it had more it might make it. My questions: 1) Can you alter the define in Platinum to use more asterisks? 2) Is there a change in z/OS V1.9 that makes storage allocation more difficult with DFSMS? Any ACS or other changes needed to alter the behavior? Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Platinum and z/OS V1.9
Lizette, You might consider using a Data class that has the following attributes: Space Constraint Relief . . . : YES Reduce Space Up To (%) . . : 30 Dynamic Volume Count . . . : 9 Regards, Dave O'Brien From: Lizette Koehler [mailto:[EMAIL PROTECTED] Sent: Mon 8/25/2008 4:11 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Platinum and z/OS V1.9 Cross posting to IBMMAIN and DB2 Newsgroups Are there any issues with DB2 V8, Platinum and z/OS V1.9? Our DBA group is indicating that since the z/OS V1.9 operating system went in, the Platinum loads have failed on space issues. What they are seeing are: IGD17226I THERE IS AN INSUFFICIENT NUMBER OF VOLUMES IN THE ELIGIBLE STORAGE GROUP(S) TO SATISFY THIS REQUEST FOR DATA SET TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 IGD17290I THERE WERE 1 CANDIDATE STORAGE GROUPS OF WHICH THE FIRST 1 WERE ELIGIBLE FOR VOLUME SELECTION. THE CANDIDATE STORAGE GROUPS WERE:TST1 IGD17279I 88 VOLUMES WERE REJECTED BECAUSE THE SMS VOLUME STATUS WAS DISABLED IGD17279I 133 VOLUMES WERE REJECTED BECAUSE OF INSUFF TOTAL SPACE IGD17219I UNABLE TO CONTINUE DEFINE OF DATA SET TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12 DEFINE CLUSTER (NAME(TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 ) - LINEAR REUSE SPEED SHAREOPTIONS(3 3) ) - DATA (NAME(TSTDSN1.DSNDBD.DSN1005.DSN1XXOE.I0001.A001 ) - RECORDS( 000297000,9) - CONTROLINTERVALSIZE(32768) - VOLUMES(* )) My recommendation is to add more asterisks to the VOLUME statement. We have at least 6 volumes that can handle the primary allocation. And if I calculated it correctly it is 1650 Cylinders Primary and 500 cylinders secondary. What I believe to be happening is that due to the one asterisk is causing the failure and if it had more it might make it. My questions: 1) Can you alter the define in Platinum to use more asterisks? 2) Is there a change in z/OS V1.9 that makes storage allocation more difficult with DFSMS? Any ACS or other changes needed to alter the behavior? Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
SMS Dynamic Volume and still D37
I thought that I understood this option until a user came in. Researching this issue, I discovered, what everyone else probably knows but, Dynamic Vol addition doesn't occur if there's no secondary allocation requested, eg SPACE=(TRK,(10,0)). This was obfuscated by Syncsort's wannabee ICETOOL which appears to extend allocation and extents without Dataclas. Just thought someone else may appreciate this peril. Jack Kelly 202-502-2390 (Office) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Platinum and z/OS V1.9
Would that force Platinum to use more '*'? Currently the dataclas for this data is (NULL). Lizette Lizette, You might consider using a Data class that has the following attributes: Space Constraint Relief . . . : YES Reduce Space Up To (%) . . : 30 Dynamic Volume Count . . . : 9 Regards, Dave O'Brien From: Lizette Koehler [mailto:[EMAIL PROTECTED] Sent: Mon 8/25/2008 4:11 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Platinum and z/OS V1.9 Cross posting to IBMMAIN and DB2 Newsgroups Are there any issues with DB2 V8, Platinum and z/OS V1.9? Our DBA group is indicating that since the z/OS V1.9 operating system went in, the Platinum loads have failed on space issues. What they are seeing are: IGD17226I THERE IS AN INSUFFICIENT NUMBER OF VOLUMES IN THE ELIGIBLE STORAGE GROUP(S) TO SATISFY THIS REQUEST FOR DATA SET TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 IGD17290I THERE WERE 1 CANDIDATE STORAGE GROUPS OF WHICH THE FIRST 1 WERE ELIGIBLE FOR VOLUME SELECTION. THE CANDIDATE STORAGE GROUPS WERE:TST1 IGD17279I 88 VOLUMES WERE REJECTED BECAUSE THE SMS VOLUME STATUS WAS DISABLED IGD17279I 133 VOLUMES WERE REJECTED BECAUSE OF INSUFF TOTAL SPACE IGD17219I UNABLE TO CONTINUE DEFINE OF DATA SET TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12 DEFINE CLUSTER (NAME(TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 ) - LINEAR REUSE SPEED SHAREOPTIONS(3 3) ) - DATA (NAME(TSTDSN1.DSNDBD.DSN1005.DSN1XXOE.I0001.A001 ) - RECORDS( 000297000,9) - CONTROLINTERVALSIZE(32768) - VOLUMES(* )) My recommendation is to add more asterisks to the VOLUME statement. We have at least 6 volumes that can handle the primary allocation. And if I calculated it correctly it is 1650 Cylinders Primary and 500 cylinders secondary. What I believe to be happening is that due to the one asterisk is causing the failure and if it had more it might make it. My questions: 1) Can you alter the define in Platinum to use more asterisks? 2) Is there a change in z/OS V1.9 that makes storage allocation more difficult with DFSMS? Any ACS or other changes needed to alter the behavior? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Platinum and z/OS V1.9
It should but the file must be SMS managed. From: Lizette Koehler [mailto:[EMAIL PROTECTED] Sent: Mon 8/25/2008 4:24 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Platinum and z/OS V1.9 Would that force Platinum to use more '*'? Currently the dataclas for this data is (NULL). Lizette Lizette, You might consider using a Data class that has the following attributes: Space Constraint Relief . . . : YES Reduce Space Up To (%) . . : 30 Dynamic Volume Count . . . : 9 Regards, Dave O'Brien From: Lizette Koehler [mailto:[EMAIL PROTECTED] Sent: Mon 8/25/2008 4:11 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Platinum and z/OS V1.9 Cross posting to IBMMAIN and DB2 Newsgroups Are there any issues with DB2 V8, Platinum and z/OS V1.9? Our DBA group is indicating that since the z/OS V1.9 operating system went in, the Platinum loads have failed on space issues. What they are seeing are: IGD17226I THERE IS AN INSUFFICIENT NUMBER OF VOLUMES IN THE ELIGIBLE STORAGE GROUP(S) TO SATISFY THIS REQUEST FOR DATA SET TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 IGD17290I THERE WERE 1 CANDIDATE STORAGE GROUPS OF WHICH THE FIRST 1 WERE ELIGIBLE FOR VOLUME SELECTION. THE CANDIDATE STORAGE GROUPS WERE:TST1 IGD17279I 88 VOLUMES WERE REJECTED BECAUSE THE SMS VOLUME STATUS WAS DISABLED IGD17279I 133 VOLUMES WERE REJECTED BECAUSE OF INSUFF TOTAL SPACE IGD17219I UNABLE TO CONTINUE DEFINE OF DATA SET TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12 DEFINE CLUSTER (NAME(TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 ) - LINEAR REUSE SPEED SHAREOPTIONS(3 3) ) - DATA (NAME(TSTDSN1.DSNDBD.DSN1005.DSN1XXOE.I0001.A001 ) - RECORDS( 000297000,9) - CONTROLINTERVALSIZE(32768) - VOLUMES(* )) My recommendation is to add more asterisks to the VOLUME statement. We have at least 6 volumes that can handle the primary allocation. And if I calculated it correctly it is 1650 Cylinders Primary and 500 cylinders secondary. What I believe to be happening is that due to the one asterisk is causing the failure and if it had more it might make it. My questions: 1) Can you alter the define in Platinum to use more asterisks? 2) Is there a change in z/OS V1.9 that makes storage allocation more difficult with DFSMS? Any ACS or other changes needed to alter the behavior? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Which OMEGAMON is correct?
Hi ITsckak We are DB2 only. We stop using IMS about 10 months ago All numbers related to ECSA Have fun Doron On Mon, Aug 25, 2008 at 10:16 PM, Itschak Mugzach [EMAIL PROTECTED]wrote: Doron, There is doubt that your CSA size in not 10M, there are only 16M down there... Did you use IRLM for IMS as well? I mean, may be from DB2 point of view IRLM uses only 10M in ECSA, and the rest 3MB are used by IMS settings left behind after IMS drop? Start OM for DBCTL and see what it has to tell about CSA consumption... ITschak On 8/24/08, Doron Geva [EMAIL PROTECTED] wrote: Hi All I need help in understanding the numbers OMEGAMONMVS nd DB2 show. In the site I work, we have DB2 and OMEGAMON MVS and DB2. The OMEGAMON for OMEGAMON DB2 shows that IRLM CSA numbers are: Max 10M *Current 8M* High watermark is 8M At the same time, OMEGAMON MVS shows that IRLM allocated: *1356K in ECSA * 15K in ESQA 256 bytes in SQA Can anyone explain the difference? Thanks Doron -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Best Regards Doron Geva Email: [EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Platinum and z/OS V1.9
All of our DB2 data bases are managed by SMS. What is puzzeling is the DBAs are saying this worked fine in z/OS V1.7 but with the installation of z/OS V1.9 it is failing. I am looking in IBM Link and not finding anything that would support that view. But I will try setting up the DC routine to use VOL 10 for these files. Lizette It should but the file must be SMS managed. From: Lizette Koehler [mailto:[EMAIL PROTECTED] Sent: Mon 8/25/2008 4:24 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Platinum and z/OS V1.9 Would that force Platinum to use more '*'? Currently the dataclas for this data is (NULL). Lizette Lizette, You might consider using a Data class that has the following attributes: Space Constraint Relief . . . : YES Reduce Space Up To (%) . . : 30 Dynamic Volume Count . . . : 9 Regards, Dave O'Brien From: Lizette Koehler [mailto:[EMAIL PROTECTED] Sent: Mon 8/25/2008 4:11 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Platinum and z/OS V1.9 Cross posting to IBMMAIN and DB2 Newsgroups Are there any issues with DB2 V8, Platinum and z/OS V1.9? Our DBA group is indicating that since the z/OS V1.9 operating system went in, the Platinum loads have failed on space issues. What they are seeing are: IGD17226I THERE IS AN INSUFFICIENT NUMBER OF VOLUMES IN THE ELIGIBLE STORAGE GROUP(S) TO SATISFY THIS REQUEST FOR DATA SET TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 IGD17290I THERE WERE 1 CANDIDATE STORAGE GROUPS OF WHICH THE FIRST 1 WERE ELIGIBLE FOR VOLUME SELECTION. THE CANDIDATE STORAGE GROUPS WERE:TST1 IGD17279I 88 VOLUMES WERE REJECTED BECAUSE THE SMS VOLUME STATUS WAS DISABLED IGD17279I 133 VOLUMES WERE REJECTED BECAUSE OF INSUFF TOTAL SPACE IGD17219I UNABLE TO CONTINUE DEFINE OF DATA SET TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12 DEFINE CLUSTER (NAME(TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 ) - LINEAR REUSE SPEED SHAREOPTIONS(3 3) ) - DATA (NAME(TSTDSN1.DSNDBD.DSN1005.DSN1XXOE.I0001.A001 ) - RECORDS( 000297000,9) - CONTROLINTERVALSIZE(32768) - VOLUMES(* )) My recommendation is to add more asterisks to the VOLUME statement. We have at least 6 volumes that can handle the primary allocation. And if I calculated it correctly it is 1650 Cylinders Primary and 500 cylinders secondary. What I believe to be happening is that due to the one asterisk is causing the failure and if it had more it might make it. My questions: 1) Can you alter the define in Platinum to use more asterisks? 2) Is there a change in z/OS V1.9 that makes storage allocation more difficult with DFSMS? Any ACS or other changes needed to alter the behavior? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Enterprise COBOL v3.4.1 run time issue
As others have indicated, I (mostly) doubt that the READ (rather than READ INTO) is doing ANY manipulation of data. The one possible exception is if you have the 01-level under the FD defined as a numeric or edited field - and even then, I doubt that conversion takes place. (The other exception is READING ASCII tape files, but that doesn't sound like this case). Can you tell us/show us exactly how the FD and subsequent 01-level are defined? If you do that, we may be able to tell you what is happening (and why). If the 01-level is actually a group item or you find that the READ is NOT doing conversions but the READ INTO is, then let us know what the 01-level under the FD and the receiving (INTO) field look like). K Zafirop [EMAIL PROTECTED] wrote in message news:[EMAIL PROTECTED]... Hi all, One of our most curious programmers noticed that when he uses READ or READ INTO statement to parse alphanumeric data, a translation is made. The value passed is the arithmetic truncation of the string. For example a string 'FOW123' is passed with value '666123'. As you can see X'F1' = C6D6E6F1F2F3. The truncation made before assigning the value to an element so, using DTR instead of DTR has no effect. Do you think this is a compiler or LE issue? Thank you in advance K. Zafiropoulos EFG EUROBANK z/OS junior System Programmer -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Erase tape data securely
-Original Message- Hi all, I have a T9840 tape drive and lots of carts that need to be erased the data on them. I know that there is an option in T9840 CSE panel that can be turned on/off:DSE(Data security erase), my question is: if I turned it on, what utility or software can I use to erase the data on those cartridges? I am using IBM rmm. Could you anyone send me a sample jcl or tell me where to find the procedure? Regards Victor Victor, You'll find that all tape drives provide support for a Data Security Erase feature which can be used to erase data on a tape at high-speed without tying up the tape control unit. What this means is that the erase function can clear all data from a tape without impacting other jobs using tape drives on the same control unit. The erase takes place at maximum tape write speeds which will vary depending on the type of tape drive model you are using. You can either use a commercially available solution such as Innovation Data Processing's FATS/ERASE or write your own program to invoke the data security erase feature. 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Erase tape data securely
Victor, What the others have told is correct. However, one more thing to be aware with STK drives is that there is an option to perform a fast erase and a full or slow erase. The fast erase will only erase a couple of feet (not sure how many) so that an attempt to read past the double-tape-mark after the last EOF1/2 records will get many I/O errors. HOWEVER, after getting past many I/O errors the residual data will be readable. You need to have your Sun/STK CE change the setting on the device/control unit to perform a complete erase when the erase-CCW command is issued. Of course, the downside is how long a complete erase-CCW takes. On the newer 3590-H it can take over 30-minutes to erase a single cartridge. Not something you want to do everytime the volume goes scratch. But, if you selling old cartridges you need to make sure all residual data has been erased; so you have no real choice in that situation. Russell Witt -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Behalf Of Victor Zhang Sent: Monday, August 25, 2008 2:43 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Erase tape data securely Hi all, I have a T9840 tape drive and lots of carts that need to be erased the data on them. I know that there is an option in T9840 CSE panel that can be turned on/off:DSE(Data security erase), my question is: if I turned it on, what utility or software can I use to erase the data on those cartridges? I am using IBM rmm. Could you anyone send me a sample jcl or tell me where to find the procedure? Regards Victor -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Dependencies between subsystem initialization routines
IBM would like to know if anyone has created dependencies on the ordering of subsystem initialization routines or depends on the subsystem initialization process being synchronous. We are specifically interested in the subsystem initialization routines that are run as part of defining the subsystem to the subsystem interface (SSI). (These are NOT the subsystem initialization routines that run when the subsystem is activated.) The subsystem initialization routines we're interested in are run as each IEFSSNxx statement is processed. Note that not all subsystem have subsystem initialization routines that run during IEFSSNxx processing. W. Kevin Kelley IBM POK Lab -- z/OS Core Technical Development -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SYSOUT LRECL/dcb parms and JES2 performance
Thomas Berg wrote: ... [performance] consideration ... dcb for a SYSOUT dataset. ... I want to write multiple lines on sysout and they are of very different lengths, everything from zero to 3 chars. Does it matter if I use FB or VB and what [LRECL] i use ... ? Yes, it could matter. But only a tiny amount, unless, I suspect, you are trying to write a tremendous number of lines in a very sort time span. Maybe JES2 compresses it anyway ? For ordinary SYSOUT data (say, lines that would be printed), the rightmost blanks are typically truncated, but this is, of course, dependent on the attributes of the SYSOUT CLASS as set by the installation. There is no compression prior to SYSOUT data being written to SPOOL, just blank truncation. John McKown wrote: JES2 truncates trailing blanks from the line before writing it to the SPOOL. Unless that option has not been selected for that SYSOUT CLASS. ... JES uses its equivalent of VB when writing to the SPOOL. Use VB or FB according to which you consider to be easier. I agree. But if the application is going to be writing very long lines (3 chars), some of which have a large number of non-blank characters, using RECFM=F[B] will cause JES2 to do a lot of work truncating blanks from the end of such lines. In that case, using RECFM=V[B] should cut down the CPU overhead considerably. (But, we shall see ... below.) The only thing that I'm aware of that would have performance implications is the BLKSIZE. Actually, not (as you can see from the benchmark results, below). You do PUTs to your SYSOUT DD. When the buffer fills up, then the JES interface code does an SVC 111 to send the data from your buffer to a JES buffer. So, a larger BLKSIZE will result in fewer SVC 111's being issued. But I doubt that the overhead is very important. That's exactly the case. It's not. While you will have fewer trips thru the HAMSVC, you will have more trips thru the SAM C/I buffering routine. I bet the JES2 code to unblock a buffer is quicker than the SAM code to actually write any buffer to the SYSOUT C/I code. If that is actually the case, then the extra SVC 111's do not matter. On the other hand, if the trip thru HAMSVC and SVC FLIH/SLIH was very expensive, that would make unblocked SYSOUT relatively more expensive. I didn't profile it, but I do remember reading all the code once (the complete round trip), and decided that unblocked SAM SPOOL I/O probably had the least CPU overhead. At least that's what I remember. (And, it turns out I was right.) Since I wanted to know for sure, I built a simple benchmark for 2 typical cases as well as the corner cases. The program SPOOLed the following print line data, each using RECFM=FA and VA, plus FBA and VBA using the maximum possible block size less than or equal to 32760: o 132 non-blank columns + no trailing blanks o RECFM=F[B]A: LRECL=133 PUT len = 133 = 1+132 o RECFM=V[B]A: LRECL=137 PUT len = 137 = 4+1+132 o 100 non-blank columns + 32 trailing blanks o RECFM=F[B]A: LRECL=133 PUT len = 133 = 1+132 o RECFM=V[B]A: LRECL=137 PUT len = 137 = 4+1+132 o 100 non-blank columns (and no trailing blanks) o RECFM=F[B]A: LRECL=101 PUT len = 101 = 1+100 o RECFM=V[B]A: LRECL=105 PUT len = 105 = 4+1+100 o 40 non-blank columns + 92 trailing blanks o RECFM=F[B]A: LRECL=133 PUT len = 133 = 1+132 o RECFM=V[B]A: LRECL=137 PUT len = 137 = 4+1+132 o 40 non-blank columns (and no trailing blanks) o RECFM=F[B]A: LRECL=41 PUT len = 41 = 1+040 o RECFM=V[B]A: LRECL=45 PUT len = 45 = 4+1+040 o1 non-blank column +131 trailing blanks o RECFM=F[B]A: LRECL=133 PUT len = 133 = 1+132 o RECFM=V[B]A: LRECL=137 PUT len = 137 = 4+1+132 o1 non-blank column (and no trailing blanks) o RECFM=F[B]A: LRECL=2 PUT len = 2 = 1+001 o RECFM=V[B]A: LRECL=6 PUT len = 6 = 4+1+001 The results: RECFM LRECL BLKSIZE LINELN RDW ASA NBCHAR TRBLNK CPUTIMESEC LINES - - --- -- --- --- -- -- -- --- FA 002 002002 1001000 000.066567 100,000 FBA 002 002002 1001000 000.067147 100,000 VA 006 010006 4 1001000 000.067942 100,000 VBA 006 010006 4 1001000 000.071148 100,000 FA 133 133133 1001131 000.072199 100,000 FBA 133 133133 1001131 000.072732 100,000 VA 137 141137 4 1040131 000.073588 100,000 VBA 137 141137 4 1040131 000.073794 100,000 FA 041 041041 1040000 000.079547 100,000 FBA 041 041041 1040000 000.079991 100,000 VA 045 049045 4 1040000 000.080112 100,000 VBA 045 049045 4 1040000 000.080755 100,000 FA 133 133133 1040092
Re: Platinum and z/OS V1.9
Check in the z/OS 1.9 migration guide under DFSMS migration actions. There is a section in there that talks about defining linear data sets with CISIZE greater than 4096. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of O'Brien, David W. (NIH/CIT) [C] Sent: Monday, August 25, 2008 4:27 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Platinum and z/OS V1.9 It should but the file must be SMS managed. From: Lizette Koehler [mailto:[EMAIL PROTECTED] Sent: Mon 8/25/2008 4:24 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Platinum and z/OS V1.9 Would that force Platinum to use more '*'? Currently the dataclas for this data is (NULL). Lizette Lizette, You might consider using a Data class that has the following attributes: Space Constraint Relief . . . : YES Reduce Space Up To (%) . . : 30 Dynamic Volume Count . . . : 9 Regards, Dave O'Brien From: Lizette Koehler [mailto:[EMAIL PROTECTED] Sent: Mon 8/25/2008 4:11 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Platinum and z/OS V1.9 Cross posting to IBMMAIN and DB2 Newsgroups Are there any issues with DB2 V8, Platinum and z/OS V1.9? Our DBA group is indicating that since the z/OS V1.9 operating system went in, the Platinum loads have failed on space issues. What they are seeing are: IGD17226I THERE IS AN INSUFFICIENT NUMBER OF VOLUMES IN THE ELIGIBLE STORAGE GROUP(S) TO SATISFY THIS REQUEST FOR DATA SET TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 IGD17290I THERE WERE 1 CANDIDATE STORAGE GROUPS OF WHICH THE FIRST 1 WERE ELIGIBLE FOR VOLUME SELECTION. THE CANDIDATE STORAGE GROUPS WERE:TST1 IGD17279I 88 VOLUMES WERE REJECTED BECAUSE THE SMS VOLUME STATUS WAS DISABLED IGD17279I 133 VOLUMES WERE REJECTED BECAUSE OF INSUFF TOTAL SPACE IGD17219I UNABLE TO CONTINUE DEFINE OF DATA SET TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12 DEFINE CLUSTER (NAME(TSTDSN1.DSNDBC.DSN1005.DSN1XXOE.I0001.A001 ) - LINEAR REUSE SPEED SHAREOPTIONS(3 3) ) - DATA (NAME(TSTDSN1.DSNDBD.DSN1005.DSN1XXOE.I0001.A001 ) - RECORDS( 000297000,9) - CONTROLINTERVALSIZE(32768) - VOLUMES(* )) My recommendation is to add more asterisks to the VOLUME statement. We have at least 6 volumes that can handle the primary allocation. And if I calculated it correctly it is 1650 Cylinders Primary and 500 cylinders secondary. What I believe to be happening is that due to the one asterisk is causing the failure and if it had more it might make it. My questions: 1) Can you alter the define in Platinum to use more asterisks? 2) Is there a change in z/OS V1.9 that makes storage allocation more difficult with DFSMS? Any ACS or other changes needed to alter the behavior? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] 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 [EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Porting Apache 2.2.9 to z/OS 1.9, and other matters
Information passed to my opt-in list already... After over two months of work, I have succesfully ported the Apache server, version 2.2.9, to our z/OS 1.9 system. Based on this work, I have produced a paper on how to do this (or at least how I did it, which may or may not work for you). If you are interested in this paper, please drop me a line and I'll send you a copy. -- Also, I have a new 40 page paper on Applications Assembler Programming for z. It's not everyone's cup of tea, but if you or a colleague would like a copy, drop me a line and I'll it email to you. Right now the plan is to include this as a supplement to our base Toolkits and to send to those who request it, and not to put it on our website. - Also, We are pleased to announce the availability of our newest toolkits: * Team Edition Language Environment Toolkit * Personal Edition Language Environment Toolkit * Team Edition DB2 Basic Toolkit * Personal Edition DB2 Basic Toolkit check out http://www.trainersfriend.com/TTFStore/ and follow the link on the left hand side for DB2 Basic Toolkit Personal Edition or Team Edition Reminder: What Are Toolkits from The Trainer's Friend? A toolkit produced by the The Trainer's Friend is a collection of working programs that run under z/OS that demonstrate how to use various features of z/OS or its components or products, such as DB2 or Language Environment. The programs are written in Assembler, COBOL, PL/I, and C. A toolkit also provides a collection of JCL and REXX execs tailored to your environment that support Assembling or compiling, program binding, DB2 binding, and running the provided programs, along with test data. Reminder: How do I use a toolkit? We envision several ways to use our toolkits: * Use the sample programs for guidance and examples for accomplishing specific tasks in the language of your choice: working how-to samples * Use the sample programs as starter code (copy and paste) to create your own programs: help programmers write code that works faster and more effectively * Use the supporting JCL and EXECs to develop and test your own programs in a stand-alone environment, an environment not encumbered by other tools and rules, nor disturbed by other programmers Reminder: What's the difference between Personal Toolkits and Team Toolkits? Based on information you send us, we tailor each toolkit. A Personal Edition toolkit is designed for a single TSO user: a complete set of libraries just for you. A PDS we call the LIBRARY data set contains the primary setting values for your installation (for example, names of files used by the compilers) A Team Edition toolkit is desgined for a group with similar needs. When a Team Edition toolkit is installed, each member of the group runs a short dialog that builds a private toolkit tailored for that user. All user toolkits built from a Team Edition toolkit, however, share the LIBRARY dataset; if a compiler file name is changed, all users sharing that LIBRARY will automatcially use the new compiler. Generally speaking, if you need five or more personal toolkits, a Team Edition toolkit is the most economical way to go. Reminder: Are there prerequisites? All toolkit users must start with a Base toolkit, either Personal Edition or Team Edition. All subsequent toolkits build off a Base. Currently we offer toolkits for DB2 and for Language Environment (LE) in addition to the Base. Toolkits have not been tested for releases of z/OS earlier than z/OS 1.7, although they should work. The DB2 toolkits will work for DB2 V8 and V9, and probably for some earlier versions of DB2 (some features may not be present in earlier releases, especially regarding cursors). 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
