Re: VBM to VBA?
At 15:43 -0500 on 10/13/2008, John McKown wrote about VBM to VBA?: Is there a simple way to convert a DASD dataset which is RECFM=VBM (or FBM) to VBA (or FBA)? We are converting a lot of reports to be ftp'ed to a Windows platform. The program on the Windows platform does not understand machine control and needs the ftp to convert from ANSI control to the appropriate Windows control sequences the way that it does for VBA when the ASAPRINT option is used. In particular, the program needs a control L (form feed) to delimit the pages of the report. There are two ways to do the conversion - The Simple Way and the Complex way. As others have noted M prints the line and then moves the paper. A moves the paper and then prints the line. The Simple way is to take the M code and convert it to the A code for Print a Line with No Paper Movement. You the emit a Paper advance with a Blank Line (if VBA this is a 6 byte line) or with Advance with no Print. I forget if there are separate codes for Print/No Print - I DO know that there is a Code for Print with No Paper Advance since it was used for BOLDING and Underlining. With FBA you will end up doubling the size of the file with this method since each line is now two lines (Print and Movement) to get the same result as the M code. The Complex Method is to keep track of where you are on the Page and append the correct A Code to the next line based on the M code of the prior line. This produces a smaller file (with FBA) since you end up with the same number of lines. As to end of page, I will assume that there are NO SKIP-TO-CHANNELs aside from SKIP-TO-CHANNEL-1s. This means that so long as the program that created the original Printout was counting lines and doing the New Page Code injection, you are OK. If, OTOH, the file STARTS with a New Page and then just has lines, it is replying on the printer to automatically do the New Page at the end of each page (ie: Detection of Channel 12) and you will need to do the same (ie: Count lines and New Page when the count gets to 60). I may have missed something but others here can build on my methodology. -- 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
Nested COPY statement with the REPLACING
As per the latest COBOL Version: COPY statements can be nested. However, nested COPY statements cannot contain the REPLACING phrase, and a COPY statement with the REPLACING phrase cannot contain nested COPY statements. We have a requirement to have nested COPY starements with REPLACING otherwise we will need major reqork in the system. Any suggestions or ideas please. Thanks, Amlan -- 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: TRACE table from program or from SYSMDUMP ?
Hi Jim Thank you for your answer. Why I'm asking this You see maybe see the SVCDUMP anal JAVA tool, among other nice features it has, I like the possibility to find out from the trace table entry, the C/C++ function name. I would like to make a verbexit with the similar functionality, but I would need to read/access the trace table from a verbexit. Jim Mulder wrote: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU wrote on 10/13/2008 06:22:38 AM: Hi Some tricks to process the system trace table from a program ? (psatbvtv-tbvtbufv-tte ...) If I look the SYSMDUMP , this chain brings to nowhere. TBVTs and trace buffers are virtualized in private storage in the TRACE address space. This storage would not be included in a SYSMDUMP. As of z/OS 1.10, the trace buffers are in 64-bit virtual storage. Jim Mulder z/OS System Test IBM Corp. Poughkeepsie, NY -- 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 -- Miklos Szigetvari Development Team ISIS Information Systems Gmbh tel: (+43) 2236 27551 570 Fax: (+43) 2236 21081 E-mail: [EMAIL PROTECTED] Info: [EMAIL PROTECTED] Hotline: +43-2236-27551-111 Visit our Website: http://www.isis-papyrus.com --- This e-mail is only intended for the recipient and not legally binding. Unauthorised use, publication, reproduction or disclosure of the content of this e-mail is not permitted. This email has been checked for known viruses, but ISIS accepts no responsibility for malicious or inappropriate content. --- -- 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: VBM to VBA?
On Mon, 13 Oct 2008 19:10:53 -0500, John McKown [EMAIL PROTECTED] wrote: Luckily, this is not going to be printed. It's going to be placed in a report repository on a Intel server. Wouldn't be __my__ choice, but the same type of software on z costs considerably more money. And we are in a budget crunch (like, who isn't?). In that case I recommend my CHEW external writer type program in file 172 of the CBT tape. This reads spool and writes a flat file which can be ftp'ed to a server. The price is right, too. HTH Dave -- 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: VBM to VBA?
Is there a simple way to convert a DASD dataset which is RECFM=VBM (or FBM) to VBA (or FBA)? We are converting a lot of reports to be ftp'ed to a Windows platform. The program on the Windows platform does not understand machine control and needs the ftp to convert from ANSI control to the appropriate Windows control sequences the way that it does for VBA when the ASAPRINT option is used. In particular, the program needs a control L (form feed) to delimit the pages of the report. Seems I remember wanting to do back in the 1970s and others too. I know the External Writer program accomplishes it. Another place I always look first is the CBT Tape www.cbttape.orgSee file 414 for a utility from Rick Fochtman with a bit of help. Never used it but the price is right. jim -- 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: [OT] Heart Surgery
No argument, but I'm still puffing away. Me and Pall Mall have a 40-year history and I'm well and truly hooked on nicotine. :-( Warren Brown wrote: There should not be anyone still smoking! There is absolutely no benefit at all. -- Original message from Richards, Robert B. [EMAIL PROTECTED]: -- In [EMAIL PROTECTED], on 10/12/2008 at 09:41 PM, Ed Gould said: Not really. I am do for Heart surgery in 3 weeks. Ed, I hope your operation is a complete success. I had a quadruple coronary artery bypass in March. What most people on this list do not know is that I had a 2nd and a 3rd heart attack in July and August. Apparently one of the graphs failed, causing the 2nd attack. They put in two stents. Two weeks after that, those two stents collapsed, causing the 3rd attack. It was resolved by putting another stent in there somewhere. :-) I am doing very well...finally. My secondary reason for posting this to the list is to *encourage* all of you old guys/gals to get a checkup. It may just save your life! Highest risk factors are smoking, overweight, high blood pressure, high cholesterol, stress and diabetes. If you qualify on any of these factors, again PLEASE get a checkup. Thus ends my public service announcement. I now return you to your regularly scheduled posts. :-) Bob - Robert B. Richards (Bob) US Office of Personnel Management 1900 E Street NW Room: BH04L Washington, D.C. 20415 Phone: (202) 606-1195 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 -- 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: [OT] Heart Surgery
On 14 Oct 2008 04:58:56 -0700, [EMAIL PROTECTED] (Richards, Robert B.) wrote: I hope your operation is a complete success. I had a quadruple coronary artery bypass in March. What most people on this list do not know is that I had a 2nd and a 3rd heart attack in July and August. Apparently one of the graphs failed, causing the 2nd attack. They put in two stents. Two weeks after that, those two stents collapsed, causing the 3rd attack. It was resolved by putting another stent in there somewhere. :-) I have some stents that didn't work - the tip of my heart only gets collateral blood flow. One artery is stented all the way up, so it never will be able to be bypassed. -- 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: COBOL abbreviated IF message IGYPS2048-S
On 13 Oct 2008 08:55:24 -0700, in bit.listserv.ibm-main you wrote: IF WC-FUNC (SUB) = X OR WC-FUNC (SUB) = Z IF WC-AMTUSE (SUB) + WC-AMT-PENDING (SUB) ZERO GO TO G100-FIND-CREDIT-X END-IF END-IF. And I would use IF WC-FUNC (SUB) = X OR WC-FUNC (SUB) = Y This makes it easier to comment out the OR line. -- In no part of the constitution is more wisdom to be found, than in the clause which confides the question of war or peace to the legislature, and not to the executive department. - James Madison -- 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: Nested COPY statement with the REPLACING
FWIW, I hade the same problem and posted it to this list last Year. No one had any solution to that, despite many otherwise very helpful answers. The main problem is the need for nesting. AFAICS, the only solution lies outside the compiler COPY function, like having You own preprocessor of the codes etc. Regards, Thomas Berg __ Thomas Berg Specialist IT-U SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] För Amlan Skickat: den 14 oktober 2008 08:54 Till: IBM-MAIN@BAMA.UA.EDU Ämne: Nested COPY statement with the REPLACING As per the latest COBOL Version: COPY statements can be nested. However, nested COPY statements cannot contain the REPLACING phrase, and a COPY statement with the REPLACING phrase cannot contain nested COPY statements. We have a requirement to have nested COPY starements with REPLACING otherwise we will need major reqork in the system. Any suggestions or ideas please. Thanks, Amlan -- 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: VBM to VBA?
On Tue, 14 Oct 2008 01:54:07 -0400, Robert A. Rosenberg wrote: The Simple way is to take the M code and convert it to the A code for Print a Line with No Paper Movement. You the emit a Paper advance with a Blank Line (if VBA this is a 6 byte line) or with Advance with What happens if you emit a 5-byte record (carriage control with no other data)? In principle this would result in a CCW with a count of zero, which I know is invalid. But is the JES printer driver smart enough to convert it to something legal? I recall that decades ago a 4-byte record (neither carriage control nor data) caused an ABEND somewhere in the access method. But it's been reported here that was subsequently fixed. no Print. I forget if there are separate codes for Print/No Print I know of none. -- 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
Re: DFHSM QUESTION - ML1
Esmie, No, eligible datasets will be moved to ML2 otherwise datasets will be moved to ML1 volumes. However to verify that the above answer is correct I ran the command against my ML1 volume with the most free extents and got the following: ARC0523I SPACE MANAGEMENT ENDED ON VOLUME HSM113, 719 ARC0523I (CONT.) 0380 DATA SET(S) MIGRATED/DELETED, 00041473 ARC0523I (CONT.) TRACK(S) FREED, MINAGE 7, TIME 10:55:38 Only 1 dataset was moved to ML2. HTH From: esmie moo [EMAIL PROTECTED] Sent: Tuesday, October 14, 2008 10:35 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DFHSM QUESTION - ML1 David, Please correct me if I am wrong regarding the Freevol MVOL(nn) TARGETLEVEL(ML2) command. If this command is issued then all dsns be migrated despite the Management class rules? Thanks. --- On Sat, 10/11/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Received: Saturday, October 11, 2008, 5:53 AM Willie, It might help to know a bit more about your environment. What are the following: From HSM - Days, ML1days (or Migrationlevel1days) From SMS - Primary Days, Level 1 days Are your tapes operator mounted or in a Silo? My silo recalls average 27 secs. Nobody complains. If the same recalls were operator mounted, my ML1 pool would be much larger. To avoid the type of problem you describe I issue a Freevol MVOL(nn) TARGETLEVEL(ML2) against the ML1 volume that has the highest Frag Index. I do this daily early in the AM. to avoid contention. From: willie bunter [EMAIL PROTECTED] Sent: Friday, October 10, 2008 12:38 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DFHSM QUESTION - ML1 David, You have answered my question. I wanted to be sure. We had an incident (ML1 threshold was 80%) ARC0560E NO MIGRATION LEVEL 1 SPACE ARC0560E AVAILABLE. Since we did not want to add another ML1 volume we decided to reduce the threshold and forced the Secondary Space Management. It did solve the problem temporarily. However, we had the same problem a day later. As a work around, I changed the Management class of some dsns, perform a ML2 migrate and changed back the Management class. Is there another way of handling this situation? --- On Fri, 10/10/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Date: Friday, October 10, 2008, 8:58 AM ML1 threshold as specified in the HSM Parmlib Addvol statement specifies the point at which that volume becomes eligible for migration. If a dataset is on a ML1 volume which is 50% full and your threshold for that volume is 80% then that dataset will not be migrated to ML2 even though its management class may indicate that it is eligible. Perhaps I'm reading your query incorrectly. A dataset which according to its management class should be on ML1 will stay on ML1 even if the ML1 volume %used is 90%. That's why after Secondary Space Mgmt. some ML1 volumes remain above the defined threshold for the ML1 volumes. From: willie bunter [EMAIL PROTECTED] Sent: Friday, October 10, 2008 11:42 AM To: IBM-MAIN@BAMA.UA.EDU Subject: DFHSM QUESTION - ML1 Hallo To All, Our ML1 volumes threshold is set to 80%. My question is does the Management class takes precedence over the threshold. For example, if I change the threshold to 50% would it result in the ML1 volumes being 50% full (after Secondary space management has kicked in) or will the respective Management classes prevent that from happening? I hope I am able to explain myself clearly. 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 -- 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 __ Be smarter than spam. See how
Changing NSINTERADDR dynamically - URGENT
Is it possible to change NSINTERADDR dynamically without IPL ? How can we achieve that ? I have to change SYS1.TCPPARMS(TCPDATA) NSINTERADDR parm as the DNS server has crashed. JAcky -- 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: DFHSM QUESTION - ML1
David, If I understand you correctly, the Management rules are honoured i.e. if the dsn cannot be migrated to ML2, then it will be migrated to another ML1 volume. Correct? --- On Wed, 10/15/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Received: Wednesday, October 15, 2008, 3:58 AM Esmie, No, eligible datasets will be moved to ML2 otherwise datasets will be moved to ML1 volumes. However to verify that the above answer is correct I ran the command against my ML1 volume with the most free extents and got the following: ARC0523I SPACE MANAGEMENT ENDED ON VOLUME HSM113, 719 ARC0523I (CONT.) 0380 DATA SET(S) MIGRATED/DELETED, 00041473 ARC0523I (CONT.) TRACK(S) FREED, MINAGE 7, TIME 10:55:38 Only 1 dataset was moved to ML2. HTH From: esmie moo [EMAIL PROTECTED] Sent: Tuesday, October 14, 2008 10:35 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DFHSM QUESTION - ML1 David, Please correct me if I am wrong regarding the Freevol MVOL(nn) TARGETLEVEL(ML2) command. If this command is issued then all dsns be migrated despite the Management class rules? Thanks. --- On Sat, 10/11/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Received: Saturday, October 11, 2008, 5:53 AM Willie, It might help to know a bit more about your environment. What are the following: From HSM - Days, ML1days (or Migrationlevel1days) From SMS - Primary Days, Level 1 days Are your tapes operator mounted or in a Silo? My silo recalls average 27 secs. Nobody complains. If the same recalls were operator mounted, my ML1 pool would be much larger. To avoid the type of problem you describe I issue a Freevol MVOL(nn) TARGETLEVEL(ML2) against the ML1 volume that has the highest Frag Index. I do this daily early in the AM. to avoid contention. From: willie bunter [EMAIL PROTECTED] Sent: Friday, October 10, 2008 12:38 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DFHSM QUESTION - ML1 David, You have answered my question. I wanted to be sure. We had an incident (ML1 threshold was 80%) ARC0560E NO MIGRATION LEVEL 1 SPACE ARC0560E AVAILABLE. Since we did not want to add another ML1 volume we decided to reduce the threshold and forced the Secondary Space Management. It did solve the problem temporarily. However, we had the same problem a day later. As a work around, I changed the Management class of some dsns, perform a ML2 migrate and changed back the Management class. Is there another way of handling this situation? --- On Fri, 10/10/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Date: Friday, October 10, 2008, 8:58 AM ML1 threshold as specified in the HSM Parmlib Addvol statement specifies the point at which that volume becomes eligible for migration. If a dataset is on a ML1 volume which is 50% full and your threshold for that volume is 80% then that dataset will not be migrated to ML2 even though its management class may indicate that it is eligible. Perhaps I'm reading your query incorrectly. A dataset which according to its management class should be on ML1 will stay on ML1 even if the ML1 volume %used is 90%. That's why after Secondary Space Mgmt. some ML1 volumes remain above the defined threshold for the ML1 volumes. From: willie bunter [EMAIL PROTECTED] Sent: Friday, October 10, 2008 11:42 AM To: IBM-MAIN@BAMA.UA.EDU Subject: DFHSM QUESTION - ML1 Hallo To All, Our ML1 volumes threshold is set to 80%. My question is does the Management class takes precedence over the threshold. For example, if I change the threshold to 50% would it result in the ML1 volumes being 50% full (after Secondary space management has kicked in) or will the respective Management classes prevent that from happening? I hope I am able to explain myself clearly. 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 -- 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
Re: VBM to VBA?
All, Whats the easy way to read an output sysprint Dataset I created with IDCAMS. It is in VBA format. LRECL=240 and a BLKSIZE = 3120. My problem is that the program that must open it is in Enterprise Cobol 3.4. I have tried several combinations of FD records varying , etc, cant seem to open it, usually get a open status 35...Can someone be so kind to shed some light on this one.. All my thanks Scott Ford Senior Systems Engineer [p] 678.266.3399 x304[m] 609-346-0399 identityforge.com This message is for the designated recipient only and may contain privileged, proprietary, or otherwise private information. If you have received it in error, please notify the sender immediately or let us know at [EMAIL PROTECTED] or [EMAIL PROTECTED], and then delete the original. Any other use of the email by you is prohibited. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Rick Fochtman Sent: Tuesday, October 14, 2008 11:43 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: VBM to VBA? Glad to be of help. :-) John McKown wrote: On Mon, 13 Oct 2008 17:08:19 -0500, Rick Fochtman [EMAIL PROTECTED] wrote: Somewhere I have a simple-minded utility to do exactly that. I'll see if I can find it and send it to you privately. Rick, Many thanks. I just compiled your program and ran it against an example file. It worked wonderfully. -- John -- 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
Re: Changing NSINTERADDR dynamically - URGENT
Jacky If you go to the description of the NSINTERADDR statement in the IP Configuration Reference, as with most statements, you will find a section Steps for modifying. However, unlike most of the statements in the manual with which I am familiar, the information here is just pathetic! All it does is point you to the MODIFY command in the IP System Administrators Commands manual. It really should have gone the extra centimetre and mentioned that the particular flavour of MODIFY was MODIFY command Resolver address space since not everyone will know that all these TCPIP.DATA statements fall under a topic called Resolver. Under MODIFY commandResolver address space you will find the command John suggested described. John has a locally created RESOLVER started task procedure so he can start it with the S RESOLVER command. In case you do not have a locally created RESOLVER started task procedure, you can still stop and start the provided RESOLVER started task. You stop it with the P RESOLVER command, just as John again mentioned, but it all gets a bit subtle when you need to start it again. The command you need is START IEESYSAS.RESOLVER,PROG=EZBREINI,SUB=MSTR Not so very obvious is it? The reason for this command is twofold: 1. You are using only default values for the resolver configuration file so no configuration file DD-statement is needed and, when no DD-statement is needed, the only logical statement which is needed in the started task procedure is // EXEC PGM=EZBREINI 2. z/OS - not Communications Server - very kindly provides a generalised started task procedure with the name IEESYSAS which I think does absolutely nothing - have a look at it, I can't - except to enable some tricks permitted by JCL, one of which is to override the value of the PGM operand and another is the ability to change the procedure name - thereby frustrating some who have searched their procedure libraries in vain for a member named RESOLVER! This subtlety is described in the IP Configuration Guide under Managing the resolver address space. Chris Mason On Tue, 14 Oct 2008 16:09:55 +0100, Jacky Bright [EMAIL PROTECTED] wrote: Is it possible to change NSINTERADDR dynamically without IPL ? How can we achieve that ? I have to change SYS1.TCPPARMS(TCPDATA) NSINTERADDR parm as the DNS server has crashed. JAcky -- 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: VBM to VBA?
John, Thanks for the help, it worked perfect... Scott Ford Senior Systems Engineer [p] 678.266.3399 x304[m] 609-346-0399 identityforge.com This message is for the designated recipient only and may contain privileged, proprietary, or otherwise private information. If you have received it in error, please notify the sender immediately or let us know at [EMAIL PROTECTED] or [EMAIL PROTECTED], and then delete the original. Any other use of the email by you is prohibited. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of John McKown Sent: Tuesday, October 14, 2008 12:12 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: VBM to VBA? This is how I do it, to read SYSLOG datasets. FD SYSLOG-INPUT BLOCK CONTAINS 0 RECORDS LABEL RECORDS ARE STANDARD RECORDING MODE IS V RECORD IS VARYING IN SIZE FROM 1 TO 133 CHARACTERS DEPENDING ON SYSLOG-INPUT-RECORD-LENGTH. 01 SYSLOG-RECORD-MINIMUM PIC X. 01 SYSLOG-RECORD-MAXIMUM PIC X(133). ... WORKING-STORAGE SECTION. 77 SYSLOG-FILE-STATUSPIC XX. 77 REPORT-FILE-STATUSPIC XX. 77 SYSLOG-INPUT-RECORD-LENGTHPIC 9(4) BINARY. ... 77 SYSLOG-RECORD-FIXED PIC X(133). ... READ SYSLOG-INPUT AT END SET EOF-ON-SYSLOG TO TRUE END-READ IF EOF-ON-SYSLOG THEN GOTO READ-SYSLOG-EOF END-IF MOVE SYSLOG-RECORD-MAXIMUM(1:SYSLOG-INPUT-RECORD-LENGTH) TO SYSLOG-RECORD-FIXED. ... much cut down in size, but the basic principles are there. -- John -- 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: [OT] Heart Surgery
-Original Message- From: IBM Mainframe Discussion List On Behalf Of Richards, Robert B. Howard, My chest cavity looks like our upper atmosphere. There is so much useless hardware floating around there that when it shows up on film, I laugh out loud! Sounds like you might have fun with airport security. :-) -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: VBM to VBA?
Thanks John, I will give this a try. I appreciate all the help Scott Ford Senior Systems Engineer [p] 678.266.3399 x304[m] 609-346-0399 identityforge.com This message is for the designated recipient only and may contain privileged, proprietary, or otherwise private information. If you have received it in error, please notify the sender immediately or let us know at [EMAIL PROTECTED] or [EMAIL PROTECTED], and then delete the original. Any other use of the email by you is prohibited. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of John McKown Sent: Tuesday, October 14, 2008 12:12 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: VBM to VBA? This is how I do it, to read SYSLOG datasets. FD SYSLOG-INPUT BLOCK CONTAINS 0 RECORDS LABEL RECORDS ARE STANDARD RECORDING MODE IS V RECORD IS VARYING IN SIZE FROM 1 TO 133 CHARACTERS DEPENDING ON SYSLOG-INPUT-RECORD-LENGTH. 01 SYSLOG-RECORD-MINIMUM PIC X. 01 SYSLOG-RECORD-MAXIMUM PIC X(133). ... WORKING-STORAGE SECTION. 77 SYSLOG-FILE-STATUSPIC XX. 77 REPORT-FILE-STATUSPIC XX. 77 SYSLOG-INPUT-RECORD-LENGTHPIC 9(4) BINARY. ... 77 SYSLOG-RECORD-FIXED PIC X(133). ... READ SYSLOG-INPUT AT END SET EOF-ON-SYSLOG TO TRUE END-READ IF EOF-ON-SYSLOG THEN GOTO READ-SYSLOG-EOF END-IF MOVE SYSLOG-RECORD-MAXIMUM(1:SYSLOG-INPUT-RECORD-LENGTH) TO SYSLOG-RECORD-FIXED. ... much cut down in size, but the basic principles are there. -- John -- 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: VBM to VBA?
Glad to be of help. :-) John McKown wrote: On Mon, 13 Oct 2008 17:08:19 -0500, Rick Fochtman [EMAIL PROTECTED] wrote: Somewhere I have a simple-minded utility to do exactly that. I'll see if I can find it and send it to you privately. Rick, Many thanks. I just compiled your program and ran it against an example file. It worked wonderfully. -- John -- 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: [OT] Heart Surgery
Depends on what sensitivity their machines are set to detect! :-) Bob -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Chase, John Sent: Tuesday, October 14, 2008 1:36 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: [OT] Heart Surgery -Original Message- From: IBM Mainframe Discussion List On Behalf Of Richards, Robert B. Howard, My chest cavity looks like our upper atmosphere. There is so much useless hardware floating around there that when it shows up on film, I laugh out loud! Sounds like you might have fun with airport security. :-) -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: [OT] Heart Surgery
I GUARANTEE you the folks at O'Hare get upset with me. 14 crowns on various teeth! :-) Richards, Robert B. wrote: Depends on what sensitivity their machines are set to detect! :-) Bob -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Chase, John Sent: Tuesday, October 14, 2008 1:36 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: [OT] Heart Surgery -Original Message- From: IBM Mainframe Discussion List On Behalf Of Richards, Robert B. Howard, My chest cavity looks like our upper atmosphere. There is so much useless hardware floating around there that when it shows up on film, I laugh out loud! Sounds like you might have fun with airport security. :-) -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 -- 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: TRACE table from program or from SYSMDUMP ?
IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU wrote on 10/14/2008 03:03:58 AM: Why I'm asking this You see maybe see the SVCDUMP anal JAVA tool, among other nice features it has, I like the possibility to find out from the trace table entry, the C/C++ function name. I would like to make a verbexit with the similar functionality, but I would need to read/access the trace table from a verbexit. For SVCDUMP and SYSMDUMP, PRDTTCH (note: this field is classified as Not a programming interface) contains the address of the dumped trace snapshot, which is virtualized in the TRACE address space. BROWSESYS1.MODGEN(IHAPRD) Command === PRDTTCH DS0F POINTER TO TRACE TABLE CONTROL HDR * @LCC The mapping of the snapshot (TTCH) is also not a programming interface, and the mapping is not provided in the MVS Data Areas manual. Jim Mulder z/OS System Test IBM Corp. Poughkeepsie, NY -- 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
Rare event: a public class (Assembler)
Before 9/11, when a company had a training need for just a few people, they would host a class as a consortium and allow students from other organizations to attend, to help boost the class size to a minimum. After 9/11, it just doesn't happen. With security concerns and other issues, companies often aren't allowed to let non-employees attend classes. But now, Rocket Software has a need to train a few folks in Assembler language and they have worked with The Trainer's Friend to put together a public offering near their Bentonville, AR, office. The class is our beginner Assembler language class, OS/390 Assembler Language: Classic. This five day class is being offered Dec. 1-5. If you know of someone who can use this class, follow the links off the course description on our website: http://www.trainersfriend.com/Assembler_%20courses/C410descrpt.htm I'm so excited! Not only a rare public class, but it's my favorite language! [Do not clutter the list with replies to the list; email me direct if you have questions, or complaints about the ad.] 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: DFHSM QUESTION - ML1
David, Please correct me if I am wrong regarding the Freevol MVOL(nn) TARGETLEVEL(ML2) command. If this command is issued then all dsns be migrated despite the Management class rules? Thanks. --- On Sat, 10/11/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Received: Saturday, October 11, 2008, 5:53 AM Willie, It might help to know a bit more about your environment. What are the following: From HSM - Days, ML1days (or Migrationlevel1days) From SMS - Primary Days, Level 1 days Are your tapes operator mounted or in a Silo? My silo recalls average 27 secs. Nobody complains. If the same recalls were operator mounted, my ML1 pool would be much larger. To avoid the type of problem you describe I issue a Freevol MVOL(nn) TARGETLEVEL(ML2) against the ML1 volume that has the highest Frag Index. I do this daily early in the AM. to avoid contention. From: willie bunter [EMAIL PROTECTED] Sent: Friday, October 10, 2008 12:38 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DFHSM QUESTION - ML1 David, You have answered my question. I wanted to be sure. We had an incident (ML1 threshold was 80%) ARC0560E NO MIGRATION LEVEL 1 SPACE ARC0560E AVAILABLE. Since we did not want to add another ML1 volume we decided to reduce the threshold and forced the Secondary Space Management. It did solve the problem temporarily. However, we had the same problem a day later. As a work around, I changed the Management class of some dsns, perform a ML2 migrate and changed back the Management class. Is there another way of handling this situation? --- On Fri, 10/10/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Date: Friday, October 10, 2008, 8:58 AM ML1 threshold as specified in the HSM Parmlib Addvol statement specifies the point at which that volume becomes eligible for migration. If a dataset is on a ML1 volume which is 50% full and your threshold for that volume is 80% then that dataset will not be migrated to ML2 even though its management class may indicate that it is eligible. Perhaps I'm reading your query incorrectly. A dataset which according to its management class should be on ML1 will stay on ML1 even if the ML1 volume %used is 90%. That's why after Secondary Space Mgmt. some ML1 volumes remain above the defined threshold for the ML1 volumes. From: willie bunter [EMAIL PROTECTED] Sent: Friday, October 10, 2008 11:42 AM To: IBM-MAIN@BAMA.UA.EDU Subject: DFHSM QUESTION - ML1 Hallo To All, Our ML1 volumes threshold is set to 80%. My question is does the Management class takes precedence over the threshold. For example, if I change the threshold to 50% would it result in the ML1 volumes being 50% full (after Secondary space management has kicked in) or will the respective Management classes prevent that from happening? I hope I am able to explain myself clearly. 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 -- 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 __ Be smarter than spam. See how smart SpamGuard is at giving junk email the boot with the All-new Yahoo! Mail. Click on Options in Mail and switch to New Mail today or register for free at http://mail.yahoo.ca -- 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: Nested COPY statement with the REPLACING
Amlan wrote: As per the latest COBOL Version: COPY statements can be nested. However, nested COPY statements cannot contain the REPLACING phrase, and a COPY statement with the REPLACING phrase cannot contain nested COPY statements. We have a requirement to have nested COPY starements with REPLACING otherwise we will need major reqork in the system. Any suggestions or ideas please. I think I've run in to this before and the way I resolved it was to use the REPLACE statement by itself at the beginning of the outermost module. For example: ID DIVISION. PROGRAM-ID. PROGA. REPLACE ==:SOMETHING:== BY ==SOMETHING-ELSE== ==:ANOTHER-THING:== BY ==YET-ANOTHER-THING==. DATA DIVISION. WORKING-STORAGE SECTION. COPY COPYBOOK. ... COPYBOOK can have the :SOMETHING: that needs replacing and can contain a COPY statement for a copybook that has the :ANOTHER-THING: that needs replacing. Frank -- 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: COBOL abbreviated IF message IGYPS2048-S
Howard Brazee wrote: On 13 Oct 2008 08:55:24 -0700, in bit.listserv.ibm-main you wrote: IF WC-FUNC (SUB) = X OR WC-FUNC (SUB) = Z IF WC-AMTUSE (SUB) + WC-AMT-PENDING (SUB) ZERO GO TO G100-FIND-CREDIT-X END-IF END-IF. And I would use IF WC-FUNC (SUB) = X OR WC-FUNC (SUB) = Y This makes it easier to comment out the OR line. I would use: IF WC-FUNC (SUB) = X OR Y Of course I think that the original one had an AND instead of the separate IF statement above, so if I went that way it would still require parens: IF (WC-FUNC (SUB) = X OR Y) AND (WC-AMTUSE (SUB) + WC-AMT-PENDING (SUB) ZERO) (Parens not required after the AND, but probably useful.) I'm glad to see I'm not the only one who prefers the connectors (AND / OR) at the beginning of a line for exactly the reason you mention. I tried to convince a co-worker of the use of this recently, but he simply would not budge! I still think that IF WC-FUNC (SUB) = X OR Y AND WC-AMTUSE (SUB) + WC-AMT-PENDING (SUB) ZERO should bind as IF (WC-FUNC (SUB) = X OR WC-FUNC (SUB) = Y) AND (WC-AMTUSE (SUB) + WC-AMT-PENDING (SUB) ZERO), because I would guess it would always be what one means. But IIRC it binds as IF WC-FUNC (SUB) = X OR (WC-FUNC (SUB) = Y AND WC-AMTUSE (SUB) + WC-AMT-PENDING (SUB) ZERO), which is where things go awry. Ah well. Maybe when I create my own language... :-) Frank -- 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: [OT] Heart Surgery
Hate to say it but with the exception of diabetes you probably described half the 'old timers' in IT (just add the occasional overuse of alcohol and you've got it made). We'll teach you to drink deep ere you depart. (1.2.175) Shakespeare:Hamlet -Original Message- Richards, Robert B. snip Highest risk factors are smoking, overweight, high blood pressure, high cholesterol, stress and diabetes. If you qualify on any of these factors, again PLEASE get a checkup. endsnip -- 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: VSCR IMS Version 10 and PK71583
Hi, APAR PK71583 is now closed with a PTF and we have tested this with good results in a number of IMS subsystems running Version 10. IMS Version 10 even with this APAR and without running Fast Path is using more common storage than Version 9 for each IMS subsystems. -56K CSA used when compared to baseline V9 +487K ECSA used when compared to baseline V9 +431K ECSA net increase still with fixtest PK71583 compared to +965K ECSA net increase without the fixtest for PK71583 this considers the storage that moved from below to above The VSCR impact of IMS Version 10 was a negative which was unexpected. It eroded some of the common storage savings we made recently with z/OS 1.9. Best Regards, Sam Knutson, GEICO System z Performance and Availability Management mailto:[EMAIL PROTECTED] (office) 301.986.3574 Think big, act bold, start simple, grow fast... APAR Identifier .. PK71583 Last Changed 08/10/14 CSA STORAGE IS BEING USED FOR FAST PATH BLOCKS, EVEN AFTER A COLD START WITH FP=N SPECIFIED. FAST PATH IS NOT BEING USED. Symptom .. IN INCORROUT Status ... CLOSED PER Severity ... 2 Date Closed . 08/10/08 Component .. 5635A0100 Duplicate of Reported Release . 010 Fixed Release 999 Component Name IMS V10 Special Notice HIPER Current Target Date ..09/01/14 Flags RESTART/BOOT/IPL SCP ... Platform Status Detail: SHIPMENT - Packaged solution is available for shipment. PE PTF List: PTF List: Release 010 : UK40560 available 08/10/14 (1000 ) Parent APAR: Child APAR list: ERROR DESCRIPTION: With IMS releases prior to IMS V10, when Fast Path support was not included in the SYSGEN, DBFSCD0x would not be included in module DFSBLK0x. In this case, Fast Path fields in the IMS SCD, such as SCDESCDQ, would contain zero for a non-Fast Path system and DFSPLPP0 (CTL, MODULE PRELOAD, PROCLIB PROCESSOR) would not load Fast Path modules from DBFIIN30. . Starting with IMS V10, DBFSCD0X is always included in module DFSBLK0X. Even with the parameter specification of FP=N and a COLD Start of IMS, SCD field SCDESCDQ will not contain zero so DFSPLPP0 will process the module load list contained in DBFIIN30. This will load Fast Path modules for a system which does not use Fast Path. 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: VBM to VBA?
This is how I do it, to read SYSLOG datasets. FD SYSLOG-INPUT BLOCK CONTAINS 0 RECORDS LABEL RECORDS ARE STANDARD RECORDING MODE IS V RECORD IS VARYING IN SIZE FROM 1 TO 133 CHARACTERS DEPENDING ON SYSLOG-INPUT-RECORD-LENGTH. 01 SYSLOG-RECORD-MINIMUM PIC X. 01 SYSLOG-RECORD-MAXIMUM PIC X(133). ... WORKING-STORAGE SECTION. 77 SYSLOG-FILE-STATUSPIC XX. 77 REPORT-FILE-STATUSPIC XX. 77 SYSLOG-INPUT-RECORD-LENGTHPIC 9(4) BINARY. ... 77 SYSLOG-RECORD-FIXED PIC X(133). ... READ SYSLOG-INPUT AT END SET EOF-ON-SYSLOG TO TRUE END-READ IF EOF-ON-SYSLOG THEN GOTO READ-SYSLOG-EOF END-IF MOVE SYSLOG-RECORD-MAXIMUM(1:SYSLOG-INPUT-RECORD-LENGTH) TO SYSLOG-RECORD-FIXED. ... much cut down in size, but the basic principles are there. -- John -- 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
ADRDSSU Question
Hello List, We try help a production people here, and wrote a REXX routine, to restore some files, when the user need. Here, in out installation, the userid, need know, the volume where the file was when the backup was executed, and, in the dsname of backup, have a variable with volid, and the date where the backup was made. So, the REXX routine, display a list of DSNAMES of Backup, using the LMDINIT / LMDLIST, that was a good idea gove by Rob Zenuck. After ask here, I heard that a program utility that do a backup (ADRDSSU), don't know what the files that exist on a cartridge backup, and , for this reason, if the userid don't know the volume, is impossible restore a file, at least than read volume by volume . Normally, Utilits of IBM, don't have a control of backup from files, I remember, years ago, that worked with DYNAM/T under VSE, and there, We can restore a file, because the Product have a catalog, that manage this. I know very little about ADRDSSU, anybody, know any way, that search the cartridge Backup's from locate the files easier ? Thanks very much Sergio Lima Costa System Consultant Sao Paulo - Brazil _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br -- 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: IBM DB2 Version 9 for z/OS
Roland Schiradin wrote: Haven't tried but the DB2 LOAD support paths for LOB columns. Roland Dear all, Is it possible to use for the DB2 LOAD UTILITY (DB2 Version 9 for z/OS) a file from Unix Filesystem? I mean can a PATH parameter be given to the DD statement refering a file in a zFS instead of having a normal MVS dataset? I have; works fine for BLOBs anyway. I'm giving a talk on it in Columbia, MD on Thursday, so I thought it'd be good to test it out. [Actually, I put the path on the data statements.] Here's a cut from the job I ran: //STEP1 EXEC DSNUPROC,UID=SCOMSTO.LOADLOB //SYSUT1 DD UNIT=UNIT,SPACE=(TRK,(20,20)) //SORTOUT DD UNIT=UNIT,SPACE=(TRK,(20,20)) //SYSINDD * LOAD DATA RESUME NO REPLACE CONTINUEIF(72:72)='X' INTO TABLE ITEMS (PARTNO POSITION (01) CHAR(9), DESCRIPTION POSITION (10) CHAR(30), QOH POSITION (42) INTEGER EXTERNAL(2), PICTURE POSITION (80) CHAR(30) BLOBF ) //SYSREC DD * Part00105Keys to the Kingdome 001075003483X /u/scomsto/blobs/part00105.bmp Part00240Overtime Hours00175288X /u/scomsto/blobs/part00240.bmp 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: IBM DB2 Version 9 for z/OS
Do you really mean Kingdome? Wasn't that the stadium in Seattle that got imploded a couple of years ago. Keys to the Kingdom Alan :) -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Steve Comstock Sent: Tuesday, October 14, 2008 15:42 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: IBM DB2 Version 9 for z/OS Roland Schiradin wrote: Haven't tried but the DB2 LOAD support paths for LOB columns. Roland Dear all, Is it possible to use for the DB2 LOAD UTILITY (DB2 Version 9 for z/OS) a file from Unix Filesystem? I mean can a PATH parameter be given to the DD statement refering a file in a zFS instead of having a normal MVS dataset? I have; works fine for BLOBs anyway. I'm giving a talk on it in Columbia, MD on Thursday, so I thought it'd be good to test it out. [Actually, I put the path on the data statements.] Here's a cut from the job I ran: //STEP1 EXEC DSNUPROC,UID=SCOMSTO.LOADLOB //SYSUT1 DD UNIT=UNIT,SPACE=(TRK,(20,20)) //SORTOUT DD UNIT=UNIT,SPACE=(TRK,(20,20)) //SYSINDD * LOAD DATA RESUME NO REPLACE CONTINUEIF(72:72)='X' INTO TABLE ITEMS (PARTNO POSITION (01) CHAR(9), DESCRIPTION POSITION (10) CHAR(30), QOH POSITION (42) INTEGER EXTERNAL(2), PICTURE POSITION (80) CHAR(30) BLOBF ) //SYSREC DD * Part00105Keys to the Kingdome 001075003483X /u/scomsto/blobs/part00105.bmp Part00240Overtime Hours00175288X /u/scomsto/blobs/part00240.bmp 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 -- 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: IBM DB2 Version 9 for z/OS
Field, Alan C. wrote: Do you really mean Kingdome? Wasn't that the stadium in Seattle that got imploded a couple of years ago. Keys to the Kingdom Alan :) No, I really meant Kingdome. Most of the stuff we teach can be a little boring so we try to slip in surprises in the data to see if anyone catches it. It's not a big laugh, but every bit helps. :-) -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Steve Comstock Sent: Tuesday, October 14, 2008 15:42 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: IBM DB2 Version 9 for z/OS Roland Schiradin wrote: Haven't tried but the DB2 LOAD support paths for LOB columns. Roland Dear all, Is it possible to use for the DB2 LOAD UTILITY (DB2 Version 9 for z/OS) a file from Unix Filesystem? I mean can a PATH parameter be given to the DD statement refering a file in a zFS instead of having a normal MVS dataset? I have; works fine for BLOBs anyway. I'm giving a talk on it in Columbia, MD on Thursday, so I thought it'd be good to test it out. [Actually, I put the path on the data statements.] Here's a cut from the job I ran: //STEP1 EXEC DSNUPROC,UID=SCOMSTO.LOADLOB //SYSUT1 DD UNIT=UNIT,SPACE=(TRK,(20,20)) //SORTOUT DD UNIT=UNIT,SPACE=(TRK,(20,20)) //SYSINDD * LOAD DATA RESUME NO REPLACE CONTINUEIF(72:72)='X' INTO TABLE ITEMS (PARTNO POSITION (01) CHAR(9), DESCRIPTION POSITION (10) CHAR(30), QOH POSITION (42) INTEGER EXTERNAL(2), PICTURE POSITION (80) CHAR(30) BLOBF ) //SYSREC DD * Part00105Keys to the Kingdome 001075003483X /u/scomsto/blobs/part00105.bmp Part00240Overtime Hours00175288X /u/scomsto/blobs/part00240.bmp 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
[OT] Heart Surgery
In [EMAIL PROTECTED], on 10/12/2008 at 09:41 PM, Ed Gould [EMAIL PROTECTED] said: Not really. I am do for Heart surgery in 3 weeks. Ed, I hope your operation is a complete success. I had a quadruple coronary artery bypass in March. What most people on this list do not know is that I had a 2nd and a 3rd heart attack in July and August. Apparently one of the graphs failed, causing the 2nd attack. They put in two stents. Two weeks after that, those two stents collapsed, causing the 3rd attack. It was resolved by putting another stent in there somewhere. :-) I am doing very well...finally. My secondary reason for posting this to the list is to *encourage* all of you old guys/gals to get a checkup. It may just save your life! Highest risk factors are smoking, overweight, high blood pressure, high cholesterol, stress and diabetes. If you qualify on any of these factors, again PLEASE get a checkup. Thus ends my public service announcement. I now return you to your regularly scheduled posts. :-) Bob - Robert B. Richards(Bob) US Office of Personnel Management 1900 E Street NW Room: BH04L Washington, D.C. 20415 Phone: (202) 606-1195 Email: [EMAIL PROTECTED] mailto:[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: DFHSM QUESTION - ML1
Thanks. I have made note of this. --- On Wed, 10/15/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Received: Wednesday, October 15, 2008, 4:36 AM Yes, you understand me correctly. From: esmie moo [EMAIL PROTECTED] Sent: Tuesday, October 14, 2008 11:19 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DFHSM QUESTION - ML1 David, If I understand you correctly, the Management rules are honoured i.e. if the dsn cannot be migrated to ML2, then it will be migrated to another ML1 volume. Correct? --- On Wed, 10/15/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Received: Wednesday, October 15, 2008, 3:58 AM Esmie, No, eligible datasets will be moved to ML2 otherwise datasets will be moved to ML1 volumes. However to verify that the above answer is correct I ran the command against my ML1 volume with the most free extents and got the following: ARC0523I SPACE MANAGEMENT ENDED ON VOLUME HSM113, 719 ARC0523I (CONT.) 0380 DATA SET(S) MIGRATED/DELETED, 00041473 ARC0523I (CONT.) TRACK(S) FREED, MINAGE 7, TIME 10:55:38 Only 1 dataset was moved to ML2. HTH From: esmie moo [EMAIL PROTECTED] Sent: Tuesday, October 14, 2008 10:35 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DFHSM QUESTION - ML1 David, Please correct me if I am wrong regarding the Freevol MVOL(nn) TARGETLEVEL(ML2) command. If this command is issued then all dsns be migrated despite the Management class rules? Thanks. --- On Sat, 10/11/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Received: Saturday, October 11, 2008, 5:53 AM Willie, It might help to know a bit more about your environment. What are the following: From HSM - Days, ML1days (or Migrationlevel1days) From SMS - Primary Days, Level 1 days Are your tapes operator mounted or in a Silo? My silo recalls average 27 secs. Nobody complains. If the same recalls were operator mounted, my ML1 pool would be much larger. To avoid the type of problem you describe I issue a Freevol MVOL(nn) TARGETLEVEL(ML2) against the ML1 volume that has the highest Frag Index. I do this daily early in the AM. to avoid contention. From: willie bunter [EMAIL PROTECTED] Sent: Friday, October 10, 2008 12:38 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DFHSM QUESTION - ML1 David, You have answered my question. I wanted to be sure. We had an incident (ML1 threshold was 80%) ARC0560E NO MIGRATION LEVEL 1 SPACE ARC0560E AVAILABLE. Since we did not want to add another ML1 volume we decided to reduce the threshold and forced the Secondary Space Management. It did solve the problem temporarily. However, we had the same problem a day later. As a work around, I changed the Management class of some dsns, perform a ML2 migrate and changed back the Management class. Is there another way of handling this situation? --- On Fri, 10/10/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Date: Friday, October 10, 2008, 8:58 AM ML1 threshold as specified in the HSM Parmlib Addvol statement specifies the point at which that volume becomes eligible for migration. If a dataset is on a ML1 volume which is 50% full and your threshold for that volume is 80% then that dataset will not be migrated to ML2 even though its management class may indicate that it is eligible. Perhaps I'm reading your query incorrectly. A dataset which according to its management class should be on ML1 will stay on ML1 even if the ML1 volume %used is 90%. That's why after Secondary Space Mgmt. some ML1 volumes remain above the defined threshold for the ML1 volumes. From: willie bunter [EMAIL PROTECTED] Sent: Friday, October 10, 2008 11:42 AM To: IBM-MAIN@BAMA.UA.EDU Subject: DFHSM QUESTION - ML1 Hallo To All, Our ML1 volumes threshold is set to 80%. My question is does the Management class takes precedence over the threshold. For example, if I change the threshold to 50% would it result in the ML1 volumes being 50% full (after Secondary space management has kicked in) or will the respective Management classes prevent that from happening? I hope I am able to explain myself clearly. 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: [OT] Heart Surgery
There should not be anyone still smoking! There is absolutely no benefit at all. -- Original message from Richards, Robert B. [EMAIL PROTECTED]: -- In [EMAIL PROTECTED], on 10/12/2008 at 09:41 PM, Ed Gould said: Not really. I am do for Heart surgery in 3 weeks. Ed, I hope your operation is a complete success. I had a quadruple coronary artery bypass in March. What most people on this list do not know is that I had a 2nd and a 3rd heart attack in July and August. Apparently one of the graphs failed, causing the 2nd attack. They put in two stents. Two weeks after that, those two stents collapsed, causing the 3rd attack. It was resolved by putting another stent in there somewhere. :-) I am doing very well...finally. My secondary reason for posting this to the list is to *encourage* all of you old guys/gals to get a checkup. It may just save your life! Highest risk factors are smoking, overweight, high blood pressure, high cholesterol, stress and diabetes. If you qualify on any of these factors, again PLEASE get a checkup. Thus ends my public service announcement. I now return you to your regularly scheduled posts. :-) Bob - Robert B. Richards (Bob) US Office of Personnel Management 1900 E Street NW Room: BH04L Washington, D.C. 20415 Phone: (202) 606-1195 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 -- 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: Changing NSINTERADDR dynamically - URGENT
On Tue, 14 Oct 2008 16:09:55 +0100, Jacky Bright [EMAIL PROTECTED] wrote: Is it possible to change NSINTERADDR dynamically without IPL ? How can we achieve that ? I have to change SYS1.TCPPARMS(TCPDATA) NSINTERADDR parm as the DNS server has crashed. JAcky Update the dataset, then issue the command: F RESOLVER,REFRESH I've done this is the past successfully. On rare occasion, I had to recycle the resolver: P RESOLVER S RESOLVER,SUB=MSTR -- John -- 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: VBM to VBA?
On Mon, 13 Oct 2008 17:08:19 -0500, Rick Fochtman [EMAIL PROTECTED] wrote: Somewhere I have a simple-minded utility to do exactly that. I'll see if I can find it and send it to you privately. Rick, Many thanks. I just compiled your program and ran it against an example file. It worked wonderfully. -- John -- 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: DFHSM QUESTION - ML1
Yes, you understand me correctly. From: esmie moo [EMAIL PROTECTED] Sent: Tuesday, October 14, 2008 11:19 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DFHSM QUESTION - ML1 David, If I understand you correctly, the Management rules are honoured i.e. if the dsn cannot be migrated to ML2, then it will be migrated to another ML1 volume. Correct? --- On Wed, 10/15/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Received: Wednesday, October 15, 2008, 3:58 AM Esmie, No, eligible datasets will be moved to ML2 otherwise datasets will be moved to ML1 volumes. However to verify that the above answer is correct I ran the command against my ML1 volume with the most free extents and got the following: ARC0523I SPACE MANAGEMENT ENDED ON VOLUME HSM113, 719 ARC0523I (CONT.) 0380 DATA SET(S) MIGRATED/DELETED, 00041473 ARC0523I (CONT.) TRACK(S) FREED, MINAGE 7, TIME 10:55:38 Only 1 dataset was moved to ML2. HTH From: esmie moo [EMAIL PROTECTED] Sent: Tuesday, October 14, 2008 10:35 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DFHSM QUESTION - ML1 David, Please correct me if I am wrong regarding the Freevol MVOL(nn) TARGETLEVEL(ML2) command. If this command is issued then all dsns be migrated despite the Management class rules? Thanks. --- On Sat, 10/11/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Received: Saturday, October 11, 2008, 5:53 AM Willie, It might help to know a bit more about your environment. What are the following: From HSM - Days, ML1days (or Migrationlevel1days) From SMS - Primary Days, Level 1 days Are your tapes operator mounted or in a Silo? My silo recalls average 27 secs. Nobody complains. If the same recalls were operator mounted, my ML1 pool would be much larger. To avoid the type of problem you describe I issue a Freevol MVOL(nn) TARGETLEVEL(ML2) against the ML1 volume that has the highest Frag Index. I do this daily early in the AM. to avoid contention. From: willie bunter [EMAIL PROTECTED] Sent: Friday, October 10, 2008 12:38 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DFHSM QUESTION - ML1 David, You have answered my question. I wanted to be sure. We had an incident (ML1 threshold was 80%) ARC0560E NO MIGRATION LEVEL 1 SPACE ARC0560E AVAILABLE. Since we did not want to add another ML1 volume we decided to reduce the threshold and forced the Secondary Space Management. It did solve the problem temporarily. However, we had the same problem a day later. As a work around, I changed the Management class of some dsns, perform a ML2 migrate and changed back the Management class. Is there another way of handling this situation? --- On Fri, 10/10/08, O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: From: O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] Subject: Re: DFHSM QUESTION - ML1 To: IBM-MAIN@BAMA.UA.EDU Date: Friday, October 10, 2008, 8:58 AM ML1 threshold as specified in the HSM Parmlib Addvol statement specifies the point at which that volume becomes eligible for migration. If a dataset is on a ML1 volume which is 50% full and your threshold for that volume is 80% then that dataset will not be migrated to ML2 even though its management class may indicate that it is eligible. Perhaps I'm reading your query incorrectly. A dataset which according to its management class should be on ML1 will stay on ML1 even if the ML1 volume %used is 90%. That's why after Secondary Space Mgmt. some ML1 volumes remain above the defined threshold for the ML1 volumes. From: willie bunter [EMAIL PROTECTED] Sent: Friday, October 10, 2008 11:42 AM To: IBM-MAIN@BAMA.UA.EDU Subject: DFHSM QUESTION - ML1 Hallo To All, Our ML1 volumes threshold is set to 80%. My question is does the Management class takes precedence over the threshold. For example, if I change the threshold to 50% would it result in the ML1 volumes being 50% full (after Secondary space management has kicked in) or will the respective Management classes prevent that from happening? I hope I am able to explain myself clearly. 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 -- 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: VBM to VBA?
-Original Message- From: IBM Mainframe Discussion List On Behalf Of Chris Mason To all subscribers Mea maxima culpa! Some things the spell-checker will not spot. Of course your - you're - and to think in the past I have criticised some for the odd there for their or vice versa or and possibly the odd its for it's and vice versa. I'd better do some beam casting! You are forgiven. Just don't post a sign in your front yard advertising Puppy's For Sale. :-) -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: Changing NSINTERADDR dynamically - URGENT
On Tue, 14 Oct 2008 10:17:23 -0500, John McKown [EMAIL PROTECTED] wrote: On Tue, 14 Oct 2008 16:09:55 +0100, Jacky Bright [EMAIL PROTECTED] wrote: Is it possible to change NSINTERADDR dynamically without IPL ? How can we achieve that ? I have to change SYS1.TCPPARMS(TCPDATA) NSINTERADDR parm as the DNS server has crashed. JAcky Update the dataset, then issue the command: F RESOLVER,REFRESH I've done this is the past successfully. On rare occasion, I had to recycle the resolver: P RESOLVER S RESOLVER,SUB=MSTR -- John OOPS - forgot to mention that I do have a proc called RESOLVER that I use via the BPXPRMnn member via the RESOLVER_PROC(RESOLVER) parameter. -- John -- 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: No Source for load modules not linkedited since 1980-90's
The LE conversion guide show you how to rebind the programs without recompilation. In essence, map the program, code REPLACE statements for all of the runtime CSECTs, and rebind using the LE link library. There is no need to code the REPLACE statements, just use the sample linkage editor control statements provided with LE in SAMPLIB. If the programs were compiled with RES, you can skip this step and just change the concatenation to have SCEERUN in place of COBLIB. That said, getting back to source and recompiled is the way to go, IMHO. And you can recover your source by using the services of a 3rd party, Source Recovery Company: http://www.source-recovery.com/ They take load modules and give you back source code! Cheers, TomR COBOL is the Language of the Future! -- 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: [OT] Heart Surgery
Ed, All my best...I lost my wife 4 years ago, age 49 , type 1 diabetic... I have been raising two girls on my own...no complaining , I never do.. Diabetes is a true nasty killer Scott Ford Senior Systems Engineer [p] 678.266.3399 x304[m] 609-346-0399 identityforge.com This message is for the designated recipient only and may contain privileged, proprietary, or otherwise private information. If you have received it in error, please notify the sender immediately or let us know at [EMAIL PROTECTED] or [EMAIL PROTECTED], and then delete the original. Any other use of the email by you is prohibited. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Richards, Robert B. Sent: Tuesday, October 14, 2008 7:59 AM To: IBM-MAIN@BAMA.UA.EDU Subject: [OT] Heart Surgery In [EMAIL PROTECTED], on 10/12/2008 at 09:41 PM, Ed Gould [EMAIL PROTECTED] said: Not really. I am do for Heart surgery in 3 weeks. Ed, I hope your operation is a complete success. I had a quadruple coronary artery bypass in March. What most people on this list do not know is that I had a 2nd and a 3rd heart attack in July and August. Apparently one of the graphs failed, causing the 2nd attack. They put in two stents. Two weeks after that, those two stents collapsed, causing the 3rd attack. It was resolved by putting another stent in there somewhere. :-) I am doing very well...finally. My secondary reason for posting this to the list is to *encourage* all of you old guys/gals to get a checkup. It may just save your life! Highest risk factors are smoking, overweight, high blood pressure, high cholesterol, stress and diabetes. If you qualify on any of these factors, again PLEASE get a checkup. Thus ends my public service announcement. I now return you to your regularly scheduled posts. :-) Bob - Robert B. Richards(Bob) US Office of Personnel Management 1900 E Street NW Room: BH04L Washington, D.C. 20415 Phone: (202) 606-1195 Email: [EMAIL PROTECTED] mailto:[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 -- 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: IBM DB2 Version 9 for z/OS
Steve, is this for the Balt-DC DB2 user group?? I work about 15 minutes from there. I've never been to their meetings - where I live it's move convenient to attend the PA meetings in Harrisburg, which are free and usually better. But if you are presenting, I may take the day and go to Columbia. Steve Comstock wrote: I have; works fine for BLOBs anyway. I'm giving a talk on it in Columbia, MD on Thursday, so I thought it'd be good to test it out. [Actually, I put the path on the data statements.] -- 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: [OT] Heart Surgery
Howard, My chest cavity looks like our upper atmosphere. There is so much useless hardware floating around there that when it shows up on film, I laugh out loud! Bob -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Howard Brazee Sent: Tuesday, October 14, 2008 10:00 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: [OT] Heart Surgery On 14 Oct 2008 04:58:56 -0700, [EMAIL PROTECTED] (Richards, Robert B.) wrote: I hope your operation is a complete success. I had a quadruple coronary artery bypass in March. What most people on this list do not know is that I had a 2nd and a 3rd heart attack in July and August. Apparently one of the graphs failed, causing the 2nd attack. They put in two stents. Two weeks after that, those two stents collapsed, causing the 3rd attack. It was resolved by putting another stent in there somewhere. :-) I have some stents that didn't work - the tip of my heart only gets collateral blood flow. One artery is stented all the way up, so it never will be able to be bypassed. -- 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: PDS Lock
I've just returned from holiday and haven't read through all the postings for this, so apologies if somebody else has already told you this. It should be very simple to provide the level of protection you require using your Security product (RACF, ACF2 or Top Secret). If you have some form of protection for Production datasets, you certainly have a security product of some description. I'd be surprised if you had a training or test LPAR with no security product and astonished if this was part of your Production JES MAS or production sysplex. I am only familiar with RACF, but I believe the other products work in a similar way. The RACF way to do is : 1) Create a fully qualified dataset profile in with no wildcards, e.g. aa.bbb.ccc. 2) The new profile should have UACC (Universal Access) of NONE or READ, whichever best fits with your requirements. If you want to prevent anybody other than you accessing your dataset, the UACC should be NONE. If however you are happy for people to submit your JCL but not change it, then UACC should be READ. 3) Your user id should be added to the access list with ALTER access. SPECIAL (administrator) attributes are required to carry out the above actions. I presume you will have a System or Security Administration team who have this level of access and likely you will have a documented process for requesting it (for audit purposes). It's worth mentioning that this doesn't offer absolute protection as individuals with SPECIAL or OPERATOR attributes on their user profiles will override the RACF protection, but this level of access should be restricted and audited. Hope this is of some help. Ram Balaji [EMAIL PROTECTED] Sent by: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU 07/10/2008 18:24 Please respond to IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU To IBM-MAIN@BAMA.UA.EDU cc Subject Re: PDS Lock Hi David, Iam not aware security packages... Is it possible to do it with JCLs... I mean while creating the PDS itself can we we lock it...? Regards, Ram Balaji.S -Original Message- From: Cebell, David [EMAIL PROTECTED] To: IBM-MAIN@BAMA.UA.EDU Sent: Tue, 7 Oct 2008 10:19 am Subject: Re: PDS Lock With you Security package you should be able to secure (lock) this PDS So only you have access to it. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Ram Balaji Sent: Tuesday, October 07, 2008 12:07 PM To: IBM-MAIN@BAMA.UA.EDU Subject: PDS LOCk HI all, Can anyone say how to lock a PDS. All the members of my PDS are sensitive can I lock them with password Please help me. Regards, Ram Balaji.S -- 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 This e-mail is confidential and, if you are not the intended recipient, please return it to us and do not retain or disclose it. We filter and monitor e-mails in order to protect our system and the integrity, confidentiality and availability of e-mails. We cannot guarantee that e-mails are risk free and are not responsible for any related damage or unauthorised alteration of e-mails by third parties after sending. For more information on Standard Life group, visit our website http://www.standardlife.com/ Standard Life plc (SC286832), Standard Life Assurance Limited* (SC286833) and Standard Life Employee Services Limited (SC271355) are all registered in Scotland at Standard Life House, 30 Lothian Road, Edinburgh EH1 2DH. *Authorised and regulated by the Financial Services Authority. 0131 225 2552. Calls may be recorded/monitored. Standard Life group includes Standard Life plc and its subsidiaries. Please consider the environment. Think - before you print. -- 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
A Security SubSystem question
All, I am in the process of writing an Assembler routine to see if RACF, ACF2 or Top-Secret are running on z/OS. I am confused about where I should find the information. I have tried looking at the RCVT ( desct = ichprcvt ) because I have noticed that on RACF the 1st four bytes are set to RCVT and on ACF2 and Top-Secret it is different. Shouldn't I be able to do the following: --- snippet -- USING RCVT, R9 L R4,RCVTID CLC 0(4,R4),=C'RCVT' BE FOUND Thanks for the help as always.I am in bring meltdown right now. Scott Ford Senior Systems Engineer [p] 678.266.3399 x304[m] 609-346-0399 identityforge.com This message is for the designated recipient only and may contain privileged, proprietary, or otherwise private information. If you have received it in error, please notify the sender immediately or let us know at [EMAIL PROTECTED] outbind://1-20C38AA50D0F7A4D93ED0C37A9B2F47C448A2D00/[EMAIL PROTECTED] tyforge.com or [EMAIL PROTECTED] outbind://1-20C38AA50D0F7A4D93ED0C37A9B2F47C448A2D00/identityforge@ gmail.com , and then delete the original. Any other use of the email by you is prohibited. -- 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
OpenSolaris for System z finally available for download...
We've finally received all the clearances necessary, and the system images for build 95 of OpenSolaris for System z are finally available for download from http://distribution.sinenomine.net/opensolaris. 3 packaging choices are available: VMARC, AWSTAPE and a DVD image. All three are identical code, and can be used with the installation instructions available in the package and on the www page mentioned above. Docs are provided in the VMARC files in plain text, PDF and Bookmaster/READ format. You need a z/VM 5.3 or 5.4 system with VM64466 applied, and you must be running on a z9 BC, EC, or z10 to use these images. They will *NOT* run in an LPAR or on any form of 9672, z800, z890, z900, or z990. Support and education are available - please contact me offlist for more details. It's been two years in the making, but we're pretty proud of it. Please send questions, comments or bug reports to the OpenSolaris for System z discussion list at [EMAIL PROTECTED] We encourage anyone working with this code to subscribe (by sending mail to [EMAIL PROTECTED] with the words SUBSCRIBE SOL-390 firstname lastname in the body of the message) and help us make OpenSolaris even better. Happy downloading, -- db David Boyes Sine Nomine Associates -- 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: IBM DB2 Version 9 for z/OS
Jim Harrison wrote: Steve, is this for the Balt-DC DB2 user group?? I work about 15 minutes from there. I've never been to their meetings - where I live it's move convenient to attend the PA meetings in Harrisburg, which are free and usually better. But if you are presenting, I may take the day and go to Columbia. Steve Comstock wrote: I have; works fine for BLOBs anyway. I'm giving a talk on it in Columbia, MD on Thursday, so I thought it'd be good to test it out. [Actually, I put the path on the data statements.] Jim, No, it's for Vicom International. It's by invitation, but you might be eligible. I'm forwarding this note to John Cress who is in charge of the program. I'm doing all morining on DB2 V9 and all afternoon on Enterprise COBOL. If you want the details, drop John a note. Tell him who you work for, since the audience is culled from his client and prospect list, so that might make a difference. If you prefer to call him, you can reach him at 410-707-9522. 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: IBM DB2 Version 9 for z/OS
Steve Comstock wrote: - Sent that last one to the list instead of to the poster, sorry about that. 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: A Security SubSystem question
Hi, It's inside each RACF macro.. Every RACF macro use to test , to see if RACF is in system and active. S, just assembly a macro with 'print on,gen' Anton On Tue, 14 Oct 2008 18:34:59 -0400, Scott Ford [EMAIL PROTECTED] wrote: All, I am in the process of writing an Assembler routine to see if RACF, ACF2 or Top-Secret are running on z/OS. I am confused about where I should find the information. I have tried looking at the RCVT ( desct = ichprcvt ) because I have noticed that on RACF the 1st four bytes are set to RCVT and on ACF2 and Top-Secret it is different. Shouldn't I be able to do the following: --- snippet -- USING RCVT, R9 L R4,RCVTID CLC 0(4,R4),=C'RCVT' BE FOUND Thanks for the help as always.I am in bring meltdown right now. Scott Ford Senior Systems Engineer [p] 678.266.3399 x304[m] 609-346-0399 identityforge.com This message is for the designated recipient only and may contain privileged, proprietary, or otherwise private information. If you have received it in error, please notify the sender immediately or let us know at [EMAIL PROTECTED] outbind://1- 20C38AA50D0F7A4D93ED0C37A9B2F47C448A2D00/[EMAIL PROTECTED] tyforge.com or [EMAIL PROTECTED] outbind://1- 20C38AA50D0F7A4D93ED0C37A9B2F47C448A2D00/identityforge@ gmail.com , and then delete the original. Any other use of the email by you is prohibited. -- 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: A Security SubSystem question
On Tue, 14 Oct 2008 18:34:59 -0400, Scott Ford [EMAIL PROTECTED] wrote: All, I am in the process of writing an Assembler routine to see if RACF, ACF2 or Top-Secret are running on z/OS. I am confused about where I should find the information. I have tried looking at the RCVT ( desct = ichprcvt ) because I have noticed that on RACF the 1st four bytes are set to RCVT and on ACF2 and Top-Secret it is different. Shouldn't I be able to do the following: --- snippet -- USING RCVT, R9 L R4,RCVTID CLC 0(4,R4),=C'RCVT' BE FOUND Thanks for the help as always.I am in bring meltdown right now. That is where I look in IPLINFO (rexx). RCVT = RACF RTSS = Top Secret ACF2 = ACF2 You can see my code on my web site (url below). 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: A Security SubSystem question
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Mark Zelden Sent: Tuesday, October 14, 2008 3:42 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: A Security SubSystem question On Tue, 14 Oct 2008 18:34:59 -0400, Scott Ford [EMAIL PROTECTED] wrote: All, I am in the process of writing an Assembler routine to see if RACF, ACF2 or Top-Secret are running on z/OS. I am confused about where I should find the information. I have tried looking at the RCVT ( desct = ichprcvt ) because I have noticed that on RACF the 1st four bytes are set to RCVT and on ACF2 and Top-Secret it is different. Shouldn't I be able to do the following: --- snippet -- USING RCVT, R9 L R4,RCVTID CLC 0(4,R4),=C'RCVT' BE FOUND Thanks for the help as always.I am in bring meltdown right now. Mark Zeldon said: That is where I look in IPLINFO (rexx). RCVT = RACF RTSS = Top Secret ACF2 = ACF2 If you want details on RACF status then use the RACROUTE REQUEST=STAT macro call. I believe that other security products have the same macro call that give you details like it does for RACF. I will soon find out since we will have ACF2 in our shop next year. George Fogg -- 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: A Security SubSystem question
All, Thanks for the help. I am going to try the RACF macros initially. I looked at Mark's rexx code and its great also. Having written Rexx since 1984, it's a big favorite buts that's a different story. Scott Ford Senior Systems Engineer [p] 678.266.3399 x304[m] 609-346-0399 identityforge.com This message is for the designated recipient only and may contain privileged, proprietary, or otherwise private information. If you have received it in error, please notify the sender immediately or let us know at [EMAIL PROTECTED] or [EMAIL PROTECTED], and then delete the original. Any other use of the email by you is prohibited. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of George Fogg Sent: Tuesday, October 14, 2008 8:15 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: A Security SubSystem question -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Mark Zelden Sent: Tuesday, October 14, 2008 3:42 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: A Security SubSystem question On Tue, 14 Oct 2008 18:34:59 -0400, Scott Ford [EMAIL PROTECTED] wrote: All, I am in the process of writing an Assembler routine to see if RACF, ACF2 or Top-Secret are running on z/OS. I am confused about where I should find the information. I have tried looking at the RCVT ( desct = ichprcvt ) because I have noticed that on RACF the 1st four bytes are set to RCVT and on ACF2 and Top-Secret it is different. Shouldn't I be able to do the following: --- snippet -- USING RCVT, R9 L R4,RCVTID CLC 0(4,R4),=C'RCVT' BE FOUND Thanks for the help as always.I am in bring meltdown right now. Mark Zeldon said: That is where I look in IPLINFO (rexx). RCVT = RACF RTSS = Top Secret ACF2 = ACF2 If you want details on RACF status then use the RACROUTE REQUEST=STAT macro call. I believe that other security products have the same macro call that give you details like it does for RACF. I will soon find out since we will have ACF2 in our shop next year. George Fogg -- 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: A Security SubSystem question
2008/10/14 Scott Ford [EMAIL PROTECTED]: I am in the process of writing an Assembler routine to see if RACF, ACF2 or Top-Secret are running on z/OS. I am confused about where I should find the information. I have tried looking at the RCVT ( desct = ichprcvt ) because I have noticed that on RACF the 1st four bytes are set to RCVT and on ACF2 and Top-Secret it is different. USING RCVT, R9 L R4,RCVTID CLC 0(4,R4),=C'RCVT' BE FOUND This is fine, if what you want is to determine the primary security system. But both TSS and ACF2 have compatibility modes, and you could find yourself in a situation where RACF *and* one of the other systems are running, and willing to accept calls using that security system's own interface, rather than SAF. In that case, ACF2 (and I *think* TSS) has its own macro for finding the security system's anchor, even if the RCVT says RCVT. Tony H. -- 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: [OT] Heart Surgery
Scott: Thanks... My Heart issue is a bit different than the typical clogged arteries. The procedure I am going to have done is called a hybrid maze (sp?). Instead of breaking the chest bones they put two holes into the sides of the chest and snip and sew from there. What surprised me from this whole thing is that I am hospitalized for 1 week followed by 5 weeks of home bed rest. The insurance companies are really cutting back on hospital stays. A few years ago I was in the hospital for 6+ weeks(non related to current heart issues) and every time they discharged me I would come back with issues that would probably not have happened in the hospital. Which is really funny as they refused to pay for the ambulance service because they forced me out of the hospital. Good luck and thanks for the kind words. Ed --- On Tue, 10/14/08, Scott Ford [EMAIL PROTECTED] wrote: From: Scott Ford [EMAIL PROTECTED] Subject: Re: [OT] Heart Surgery To: IBM-MAIN@BAMA.UA.EDU Date: Tuesday, October 14, 2008, 10:29 AM Ed, All my best...I lost my wife 4 years ago, age 49 , type 1 diabetic... I have been raising two girls on my own...no complaining , I never do.. Diabetes is a true nasty killer Scott Ford Senior Systems Engineer [p] 678.266.3399 x304[m] 609-346-0399 identityforge.com This message is for the designated recipient only and may contain privileged, proprietary, or otherwise private information. If you have received it in error, please notify the sender immediately or let us know at [EMAIL PROTECTED] or [EMAIL PROTECTED], and then delete the original. Any other use of the email by you is prohibited. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Richards, Robert B. Sent: Tuesday, October 14, 2008 7:59 AM To: IBM-MAIN@BAMA.UA.EDU Subject: [OT] Heart Surgery In [EMAIL PROTECTED], on 10/12/2008 at 09:41 PM, Ed Gould [EMAIL PROTECTED] said: Not really. I am do for Heart surgery in 3 weeks. Ed, I hope your operation is a complete success. I had a quadruple coronary artery bypass in March. What most people on this list do not know is that I had a 2nd and a 3rd heart attack in July and August. Apparently one of the graphs failed, causing the 2nd attack. They put in two stents. Two weeks after that, those two stents collapsed, causing the 3rd attack. It was resolved by putting another stent in there somewhere. :-) I am doing very well...finally. My secondary reason for posting this to the list is to *encourage* all of you old guys/gals to get a checkup. It may just save your life! Highest risk factors are smoking, overweight, high blood pressure, high cholesterol, stress and diabetes. If you qualify on any of these factors, again PLEASE get a checkup. Thus ends my public service announcement. I now return you to your regularly scheduled posts. :-) Bob - Robert B. Richards(Bob) US Office of Personnel Management 1900 E Street NW Room: BH04L Washington, D.C. 20415 Phone: (202) 606-1195 Email: [EMAIL PROTECTED] mailto:[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 -- 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
