Re: Printing DASD type
Option 2 of the Interactive Storage Management Facility (ISMF) dialog will get you there. So will the LISTV dialog function of the PDS command (CBT file 182). Regards, John K From: mf db dbajava...@gmail.com To: IBM-MAIN@bama.ua.edu Date: 06/13/2012 12:15 AM Subject:Printing DASD type Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Hello All, We know pretty well that Mod - 3 , Mod - 9 . Mod - 27 has a Cylinder of 3K , 9K and 27k, but in a environment where we have mixture of all these type it becomes hard to know by each Volume serial. Are there any ways to scan only the Volumes corresponding to MOD 3 or MOD 9 ? Any suggestions or advises are much appreciated. Peter -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: IBM software module names
Check here... z/OS MVS Diagnosis: Reference Document Number GA22-7588-16 Program Number 5694-A01 1.1.1 Relating a module prefix to component and product Regards, John K Jim McAlpine of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 05/30/2012 06:44:31 AM: Is there a list of the 3 letter software prefixes anywhere eg ICE for DFSORT. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Enterprise COBOL Load Module Dissection
I would recommend using the IBM Debug Tool or COBANAL. But you could also use AMBLIST or the PDS HISTORY subcommand. Product Product Compiler Module CodeName Signature Prefix COBOL 5655-G53Enterprise COBOL for z/OS V3 5655G5300 IGY,IGZ 5655-S71Enterprise COBOL for z/OS V4 5655S7100 IGY,IGZ Regards, John K 5655-S16 Debug Tool Version 8 Release 1.2 Load Module Analyzer 2012/01/12 06:44 Page 1 EQAIN: SELECT MEMBER=GLLOGMOD 5655-S16 Debug Tool Version 8 Release 1.2 Load Module Analyzer 2012/01/12 06:44 Page 2 Load Module TRIDJK.LOAD(GLLOGMOD) CSECT Sg Offset Len/Ent Program-ID Trn-DateProgram-Description GLLOGMOD 012E1 5655S7100 2010/05/06 Enterprise COBOL for z/OS and OS/390 Version 4 COBANAL V1.41 - SUMMARY Report. Dataset=TRIDJK.LOAD PARM=SYSIN |Translate||--C o m p i l e r R e l a t e d--| |--L K E D O p t i o n s--| Program Language CICS COBOL Compiler LE DATA RM RENT AM LKED ATTRIBUTES COMPDATE - - -- - --- --- --- - --- GLLOGMOD COBOL COBOL/ENT V4.1.0 YES 31 ANY NO 31 06.May.2010 Patrick Roehl of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 01/11/2012 04:24:57 PM: Given a load library and a list of member names, I want to be able to perform these steps in a batch assembler program: 1) Load a program load module into storage 2) Determine if the program is COBOL or something else (the only other thing it would likely be is assembler) 3) If COBOL, access the compile timestamp. From casual observation this appears to be in the form of MMDDHHSS and prefixed with the PROGRAM-ID. I assume a standard LOAD can be used to load the module into storage for inspection. The questions are: 1) Is there a sure-fire way to determine if the loaded program is COBOL? 2) How do I navigate to the COBOL compile timestamp? The programs only need to be identified as Enterprise COBOL or not. Thanks for any tips, pointers, and references you can provide. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
PDS Command - 40 Years Old
The PDS command is still running today in the z/OS environment. Tom Springer, Steve Smith, and William Finkelstein were the original authors 40 years ago when they worked together at Security Pacific National Bank. Bruce Leland and Steve Smith took the PDS command to a new level after developing the StarTool® vendor product. And Sam Golob (Mr CBT) deserves a lot of credit for publishing numerous articles about how to use the PDS command. I would like to thank these contributors, whose efforts made this software what it is. These people have helped by writing code and documentation, by testing, by giving SHARE presentations, and by suggesting new function enhancements. Tom Springer, Steve Smith, William Finkelstein, Bruce Leland, Greg Price, Al Ferguson, Bob Zimmerman, Guy Albertelli, Les Hamilton, Raymond Vierregger, Arnold Casinghino, Barb Couture, Ben Moore, Bill Balmer, Bill Cowan, Bill Godfrey, Bill Horton, Bill Mulcher, Bob Stein, Charles Hoffman, Dana Mitchell, Dave Alcock, Dave Cannon, David Filsinger, David Noon, David Sager, Denice Roberg, Dick Hinton, Dick Thorton, Dinesh Dattani, Don Marquardt, Doug Henry, Frank Pajerski, Frank Walschlager, Geary Vlk, George Goffe, Gerry Morris, Glen Hanna, Gray Maddry, Greg Younkin, Howard Dean, James Berry, James Doody, Jay Maynard, Jeff Multach, Jim Berry, Jim Melnyk, Jim Worcester, Joe Rarey, John Kruse, John Sullivan, Keith Moe, Kelly Reeb, Kevin McCarthy, Leslie Murphy, Lionel Dyck, M.D. Braun, Marc Schare, Maria Pieraccini, Mark Hutchinson, Mark Zelden, Marshall Wernick, Michael Emigh, Michael Mayne, Michael Theys, Michael Wilcox, Mike Loos, Mike Stayton, Paul Hinkley, Phil Kryber, Rex Widmer, Richard McCarty, Richard Schafer, Rita Seroski, Rob Scott, Robert Gregory, Robert Rosenberg, Robert Stein, Roland Schiradin, Ron Lebaube, Sam Bass, Sam Golob, Sam Knutson, Sam Lepore, Scott Peterson, Seymour Metz, Stephen Bacher, Thomas Conley, Tim Holland, Tim Norton, Tomas Doyle, Walt Farrell, William Smith, and William Warriner. Best Regards, John K Download at http://www.cbttape.org/ftp/updates/CBT182.zip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: PDS Command - 40 Years Old
Don Poitras of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 01/03/2012 09:16:02 AM: It's a great program. I wish the support for PDSE that was introduced included mapping the entire program object rather than just the B_TEXT segment though. As it is, I still need to use AMBLIST for program objects. AMBLIST is now a PDS subcommand. Regards, John K )F Example - AMBLIST mema:memb The AMBLIST subcommand invokes the IBM AMBLIST program to list a load module map, cross-reference map, and CSECT identification records (IDR). The system's pasta maker. . . take a lump of dough, send it through AMBLIST, and you come out with beautiful spaghetti! )X SYNTAX - AMBLIST memgroup ALIASES - AM, AMB, AMBL, AMBLI, AMBLIS, ABMLIST DEFAULTS - none. REQUIRED - memgroup. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: PDSMAIN manual?
If you are looking for documentation on the PDS command, download the following and look at members PDSHELP and $$$PROSE. http://www.cbttape.org/ftp/updates/CBT182.zip Regards, John K Itschak Mugzach of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 12/27/2011 06:23:12 AM: I am looking for a manual or help file for PDSMAN (I have a copy of PDS84 load module). Thanks for a copy. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
IEBCOPY in z/OS 1.13
Has anyone compared the performance of the new IEBCOPY in z/OS 1.13 with the older version? Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Product code 360HTX035?
Google this: 360H-TX-035 From: Sambataro, Anthony (NIH/NBS) [E] anthony.sambat...@nih.gov To: IBM-MAIN@bama.ua.edu Date: 12/01/2011 07:03 AM Subject:Re: Product code 360HTX035? Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Found this: ftp://ftp.software.ibm.com/networking/nswww/did/f1nb3301.pdf -Original Message- From: Pete Dillon [mailto:codecraft...@cix.co.uk] Sent: Thursday, December 01, 2011 7:15 AM To: IBM-MAIN@bama.ua.edu Subject: Product code 360HTX035? Gentlefolk, Subject says all, really. Anyone recognise product code 360HTX035? Looks to be from the dark ages, beyond that I've no idea. I've run into a few load modules recently (at different sites, but both sites are in France if that might be relevant) with this one. It seems to have something to do with comms controllers but I'd be grateful for any confirmation. A sample load module name is IFLLD1P2. All replies gratefully received! Pete. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSO SCREENSIZE
Greg Price of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 11/10/2011 08:46:03 AM: Unless they have fixed it fairly recently, SDSF does not handle large screen sizes well (unless running as an ISPF application). One problem with large screens in SDSF (ISPF) is that the ISFCMD variable is limited to 42 characters. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DSLIST-like output for Non-VSAM Files in Batch
Joseph Lenz of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 10/10/2011 06:22:37 PM: I want to generate DSLIST-like output from a batch job similar to what is displayed in ISPF 3.4 with the Space option for non-VSAM (flat files) defined on my system. There is DSAT on CBT file 296. This program was recently updated for EAV support. It would be up to you to compute the %Used value. dsat 'AC.XMITLRG' sms lastref SERIAL ALLOCFREE EXT DSORG -DCB ATTRIBUTES- CR. DATE LAST REF SMS DATACLAS MGMTCLAS STORCLAS -DSNAME- LDS901 68263 65554 1 A-PSL VB 27980 26608 06/27/2011 09/07/2011 YES DCFINLRG PRODUCTN SCFINLRG AC.XMITLRG Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: A little bit more about Gilbert Saint-flour
Sam Golob from the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 10/09/2011 09:43:52 PM: Gilbert was responsible for keeping the CBT Tape up for five years. He supplied the MVS machine that the support ran on. If it weren't for him, I doubt that the CBT site would even exist today. I remember FTP'ing some CBT updates to Gilbert's P/390 in upstate New York circa 1997. I first heard of Gilbert when Sam wrote an article about ShowMVS in Technical Support magazine. I, like others, have used many of his code snippets over the years. He will be missed. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Trouble with Redbooks Link
It downloaded OK with Firefox 6.0.2. Regards, John K Trouble with Redbooks Link Chip Grantham to: IBM-MAIN 09/12/2011 10:33 AM Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Please respond to IBM Mainframe Discussion List I just received the weekly Redbooks email with a couple of interesting Redbooks I'd like to read. My session hangs when I try to download the book. Is anyone else have the same trouble? End to End Security - z/OS Identity Propagation Revised: September 7, 2011 http://www.redbooks.ibm.com/redpieces/abstracts/sg247850.html?Open And IBM z/OS V1R13 Communications Server TCP/IP Implementation: Volume 3 High Availability, Scalability, and Performance Published: September 8, 2011 http://www.redbooks.ibm.com/redpieces/abstracts/sg247998.html?Open *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SV: SV: How to splitting loadmudules
Thomas, How is the relink going to resolve the missing CSECT's? Regards, John K SV: SV: How to splitting loadmudules Thomas Berg to: IBM-MAIN 09/09/2011 06:44 AM Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Please respond to IBM Mainframe Discussion List -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Tom Marchant Skickat: den 9 september 2011 13:30 Till: IBM-MAIN@bama.ua.edu Ämne: Re: SV: How to splitting loadmudules On Fri, 9 Sep 2011 12:11:37 +0200, Thomas Berg wrote: There's a LOT of duplicates of submodules. And it reads all CSECTs. So you have load module A containing CSECTS X, Y and Z. You also have load module B containing CSECTS N, Y and Z. And you are certain that CSECTS Y and Z in load modules A and B perform identical functions? I'm also checking linkdates and sizes. Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SV: SV: SV: How to splitting loadmudules
I am assuming the calling sequence in A is: LR15,=V(X) BASR R14,R15 How are you going to change that code in A? Regards, John K SV: SV: SV: How to splitting loadmudules Thomas Berg to: IBM-MAIN 09/09/2011 07:00 AM Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Please respond to IBM Mainframe Discussion List There is no missing CSECTs ? (I'm using NOCALL, in the example by Tom below there would be bare/NOCALL modules: X, Y, Z and N. And maybe Y(2) and Z(2) which would be placed on another loadlib.) Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För John P Kalinich Skickat: den 9 september 2011 13:48 Till: IBM-MAIN@bama.ua.edu Ämne: Re: SV: SV: How to splitting loadmudules Thomas, How is the relink going to resolve the missing CSECT's? Regards, John K SV: SV: How to splitting loadmudules Thomas Berg to: IBM-MAIN 09/09/2011 06:44 AM Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Please respond to IBM Mainframe Discussion List -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Tom Marchant Skickat: den 9 september 2011 13:30 Till: IBM-MAIN@bama.ua.edu Ämne: Re: SV: How to splitting loadmudules On Fri, 9 Sep 2011 12:11:37 +0200, Thomas Berg wrote: There's a LOT of duplicates of submodules. And it reads all CSECTs. So you have load module A containing CSECTS X, Y and Z. You also have load module B containing CSECTS N, Y and Z. And you are certain that CSECTS Y and Z in load modules A and B perform identical functions? I'm also checking linkdates and sizes. Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS Systems Programmer Jobs in Dubuque Iowa
/* Rexx */ dubuque = (4*2.5)+1+15000 From: Bobbie Justice golds...@yahoo.com To: IBM-MAIN@bama.ua.edu Date: 09/07/2011 05:24 PM Subject:Re: z/OS Systems Programmer Jobs in Dubuque Iowa let me put it this way, I told them they needed to multiply the current salary they were offering based on their requirements by about 2 and 1/2 times, then add another $10,000 on top of that since I would eventually get tired of looking at Iowa cornfields, and then add another $15,000 on top of that since it's a known sweat shop. In other words, the salary was nowhere close to what it should have been for that position. Bobbie Jo Justice -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM-MAIN INFO
This may help... http://www.lsoft.com/manuals/1.8d/user/user.html Regards, John K From: John Eells ee...@us.ibm.com To: IBM-MAIN@bama.ua.edu Date: 08/31/2011 08:43 AM Subject:IBM-MAIN INFO Trying to send a note to The University of Alabama LISTSERV Server (16.0) lists...@bama.ua.edu to get IBM-MAIN INFO, with GET IBM-MAIN INFO in both the subject line and first line of the e-mail, I get this response from the list server: GET IBM-MAIN INFO This server does not have any file by the name IBM-MAIN INFO. Anyone have any idea what's up? Or even a copy of the INFO file? -- John Eells z/OS Technical Marketing IBM Poughkeepsie ee...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SHARE Attendance
Greg Shirey of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 08/15/2011 11:00:20 AM: The farewell reception (aka SCIDS for the old timers) was really poorly attended - that's something of a mystery to me. The absence of Chuck Forney and Robert Rannie probably has something to do with it. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SHARE Hotels Sold Out!
I stayed at the Wyndham Bonnet Creek in 2008. Very nice condos on Disney property. Regards, John K From: Edward Jaffe edja...@phoenixsoftware.com To: IBM-MAIN@bama.ua.edu Date: 08/06/2011 10:17 PM Subject: SHARE Hotels Sold Out! Wow! SHARE sold out its room allocation at the Dolphin. Overflow at the Swan also sold out. Some people are staying at an off-site hotel. Yikes! Glad I booked when I did... -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR
I would issue the PDS FIXPDS subcommand to change the DCB attributes, followed by a VERIFY subcommand. Assuming the LRECL is 80 based on the block lengths from your previous VERIFY. pds 'name.of.dsname' fixpds recfm(fb) lrecl(80) blksize(27920) verify : end Regards, John K From: esmie moo esmie_...@yahoo.ca To: IBM-MAIN@bama.ua.edu Date: 07/27/2011 07:01 AM Subject:Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR Paul, I tried your suggestion, here is a sample of what I received: ** VERIFY ADBTS BLOCK LENGTH OF 20,960 EXCEEDS THE DATA SET DCB BLKSIZE BLOCK LENGTH OF 20,960 IS NOT DIVISIBLE BY THE DCB LRECL ** VERIFY ALTERTS BLOCK LENGTH OF 21,360 EXCEEDS THE DATA SET DCB BLKSIZE BLOCK LENGTH OF 21,360 IS NOT DIVISIBLE BY THE DCB LRECL ** VERIFY ALTABLE BLOCK LENGTH OF 27,920 EXCEEDS THE DATA SET DCB BLKSIZE BLOCK LENGTH OF 27,920 IS NOT DIVISIBLE BY THE DCB LRECL ** VERIFY GRANT BLOCK LENGTH OF 8,240 EXCEEDS THE DATA SET DCB BLKSIZE BLOCK LENGTH OF 8,240 IS NOT DIVISIBLE BY THE DCB LRECL Could you tell me what I should do? From: Paul Strauss strau...@us.ibm.com To: IBM-MAIN@bama.ua.edu Sent: Tuesday, July 26, 2011 3:15:35 PM Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR If you have PDS or PDS85 on the system it may help. You can run it in batch like this: //TSO EXEC PGM=IKJEFT01 //* STEPLIB DD DISP=SHR,DSN= load library where PDS is //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * PDS ' put bad pds here ' VERIFY : This command with the : says to read all members and list the bad ones. END // I'm not sure what you'll get if the dataset looks like a flat file if the directory was written over, but it may tell you something. If any members can be read, it will tell you which ones are the bad ones and you can then create an IEBCOPY job with an Exclude for all the bad members and copy the good members to a new dataset.. Thank You, Paul Strauss Integrated Technology Delivery, Global Services, IBM L0DB z/OS MVS/Program Products/Security 150 Kettletown Rd. Southbury, CT 06488 (203) 272-2758 strau...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: RES: Search a MEMBER in the Libraries
PDSMAN is a CA product. Regards, John K From: Sérgio Lima Costa sergio.co...@cetip.com.br To: IBM-MAIN@bama.ua.edu Date: 07/27/2011 02:19 PM Subject:RES: Search a MEMBER in the Libraries Hello Lizette. PDSMAN is a IBM product ? Thanks very much. Sergio -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
U.S. to Close 800 Computer Data Centers
http://www.nytimes.com/2011/07/20/technology/us-to-close-800-computer-data-centers.html?nl=technologyemc=techupdateema3 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: REENTRANT vs THREADSAFE
IIRC, the technique recommended by IBM was to use the ENQ macro before modifying RENT code. Regards, John K From: Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net To: IBM-MAIN@bama.ua.edu Date: 07/21/2011 10:59 AM Subject:Re: REENTRANT vs THREADSAFE In snt113-w225ae423b76930781f515c6...@phx.gbl, on 07/20/2011 at 07:52 PM, john gilmore john_w_gilm...@msn.com said: Initially in an IBM mainframe environment a reentrant program could modify itself, usually at initial-load time, if it held a global lock while it did so; and this is the chief reason why a stronger term, refreshable in the event, was needed, introduced, and used. There were no locks in OS/360. -- Shmuel (Seymour J.) Metz, SysProg and JOAT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: VSAM definition deck from file itself
Frank Clarke's Rexx page has one (VCX) but it does not handle AIX and PATH files. Regards, John K VSAM definition deck from file itself McKown, John to: IBM-MAIN 07/15/2011 09:14 AM Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Please respond to IBM Mainframe Discussion List Is there some IBM or vendor utility which can recreate the DEFINE CLUSTER / DEFINE AIX / DEFINE PATH for a given VSAM sphere? We simply don't seem to have an accurate set of DEFINE decks for our VSAM files. Or will I need to parse up a LISTCAT using REXX? John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Generating Linkage control cards from a load module ( PDSMAN ??)
File 035 has the PDS86 load module in it if you don't want to go through the PDS installation procedure documented in File 182. http://www.cbttape.org/ftp/cbt/CBT035.zip Regards, John K From: Paul Strauss strau...@us.ibm.com To: IBM-MAIN@bama.ua.edu Date: 07/12/2011 10:21 AM Subject:Re: Generating Linkage control cards from a load module ( PDSMAN ??) More detail than my first reply. Run this with CBT Too PDS: To run batch with PDS85: //* jobcard //TSO EXEC PGM=IKJEFT01 //STEPLIB DD DSN=SYS4.PDS.V8R5M0.LOAD,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * PDS85 'SYS5.MVS.LINKLIB' map close relink: The output from the above looks like this: map close relink ** MAP CLOSE //LKED EXEC PGM=IEWL, // PARM='NCAL,MAP,LIST,LET,RENT,REUS' //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(200,20)) //SYSPRINT DD SYSOUT=* //SYSLIB DD DISP=SHR,DSN=SYS5.MVS.LINKLIB //SYSLMOD DD DISP=SHR,DSN=SYS5.SAMS.MVS.LINKLIB //SYSLIN DD * INCLUDE SYSLIB(CLOSE) ORDER CLOSE,SHRKDLTE,SHRKFREM,SHRKLNKG MODERMODE(ANY),AMODE(31) ENTRY CLOSE NAMECLOSE(R) PDS300A ENTER OPTION -- DSN=SYS5.SAMS.MVS.LINKLIB,VOL=SER=ZIMS03 MEM=CLOSE You should be able to replace the module name close with : to have PDS85 create link edit cards for all modules in the library. MAP : RELINK Thank You, Paul Strauss Integrated Technology Delivery, Global Services, IBM L0DB z/OS MVS/Program Products/Security 150 Kettletown Rd. Southbury, CT 06488 (203) 272-2758 strau...@us.ibm.com | | From: | | --| |Clark, Kevin kevin.cl...@bcbsde.com | --| | | To:| | --| |IBM-MAIN@bama.ua.edu | --| | | Date: | | --| |07/12/2011 05:38 AM | --| | | Subject: | | --| |Generating Linkage control cards from a load module ( PDSMAN ??) | --| | | Sent by: | | --| |IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu | --| Anyone with a better memory than mind, I recall a utility , vendor product or CBT or Waterloo , that would list a load library member and then you could issue a JCL or MAPJCL like command to create input cards to re -link the load member. My problem , I have some modules (no JCL) that I need to re-link , so I to rebuild with IEWL INCLUDE or ORDER statements. Kevin This e-mail message and any attachments transmitted with it are confidential and are intended solely for the use of its authorized recipient(s). If you are not an intended or authorized recipient, you are hereby notified that any
Re: Lines, Bars and ... mini-bars???
Bill Fairchild bi...@mainstar.com of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 07/06/2011 08:34:28 AM: And just why do we use the word grande to describe machine instructions that operate on 64-bit addresses and which have the letter G somewhere in the op code? When did IBM make that official? Why not gargantuan or ginormous? lol I first heard the term grande used by Bob Rogers in his What You Do When You're a CPU SHARE presentation (2004). Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Lines, Bars and ... mini-bars???
-Original Message- From: IBM Mainframe Discussion List On Behalf Of David Cole So I'm working on XDC adding support for debugging execution above the bar, when I run into a nomenclature problem... Above the line means 16M. Above the bar means 4G. But AMODE(31) supports execution in only the zero to 2G range. For the 2G to 4G range, you need AMODE(64). So what is the name for the 2G to 4G range of storage? . . . Twilight Zone? Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: VS COBOL II signature bytes
Roland Schiradin's COBANAL program on the CBT tape translates the COBOL signature information into English. Regards, John K From: Chip Grantham cgrant...@ameritas.com To: IBM-MAIN@bama.ua.edu Date: 06/23/2011 01:01 PM Subject:VS COBOL II signature bytes I've found the answer to my dilemma for compiler options from a COBOL load module. They call them signature bytes. So now I'm looking for a VS COBOL II V1.x programmer's guide, specifically the pages on signature bytes. I'd really appreciate a copy of that section; should be about 10 pages. Thanks in advance! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Maintaining ISPF's command stack
I can't explain why you need DIALOG;;;4 rather than DIALOG;;4 which I would have expected. My CLIST test works with two or more delimiters. Anything more than 2 is ignored. Enter TSO commands below: === dand;;;u.1.1 Regards, John K ISPEXEC CONTROL ERRORS RETURN ISPEXEC CONTROL NONDISPL ENTER NOSETMSG ISPEXEC DISPLAY PANEL(DAND) ISPEXEC SELECT PANEL(TRI@PRIM) ISPEXEC CONTROL ERRORS CANCEL From: Walt Farrell wfarr...@us.ibm.com To: IBM-MAIN@bama.ua.edu Date: 06/21/2011 09:14 AM Subject:Re: Maintaining ISPF's command stack On Tue, 21 Jun 2011 09:40:39 -0400, DanD mvs-j...@sympatico.ca wrote: The )BODY section of the USERINFO panel does contain CMD(). As it is never displayed it only contains a single line of blanks with an attribute byte as the 1st character. You get an error when you have a null )BODY section. Are you saying that the ;4 is returned with the display of he USERINFO panel, even though the user will never actually see this panel? That doesn't sound logical to me. Yes, that's what I'm suggesting has happened. As for not being logical, you may be right. But note that even without your code, in DIALOG;4 the user never sees the first panel the dialog would display, but the 4 is used as though he had seen it. To me, this is very similar. In both cases, the 4 is used (I think) in response to the first display the dialog performs, and in both cases the user is not seeing that first-displayed panel. When I zap the code to branch around the call to the module that CONTROL,NONDISPL/DISPLAY's the USERINFO panel the DIALOG;4 works as I would expect...option 4 is selected from the first DISPLAYed panel. When the CONTROL,NONDISPL/DISPLAY code is invoked, to get the same results I have to enter DIALOG;;;4 (why 2 extra simicolons?). I can't explain why you need DIALOG;;;4 rather than DIALOG;;4 which I would have expected. Does this sound like a bug to you? Is a PMR suggested? Perhaps a QA type of PMR, if you have a support contract that allows you to ask questions. As I'm not part of the ISPF team here at IBM I'm not suggesting you've found an ISPF bug. I would start by trying to work around this (or researching it further) by defining a command field on your non-display panel, and seeing what you get when the user enters DIALOG;4. If you get the 4, then you can perhaps pass that back to your dialog for it to operate on, and you have an immediate workaround for your problem. Whether you should need to do that, or not, I really can't say. Someone from ISPF may know, but I don't. And perhaps this is more appropriate for the ISPF-L list than for IBM-MAIN. -- Walt -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to justify SHARE
http://www.share.org/Events/UpcomingConferences/SHAREinOrlando/BuildingaCasetoAttendSHARE/tabid/395/Default.aspx Regards, John K From: Lizette Koehler stars...@mindspring.com To: IBM-MAIN@bama.ua.edu Date: 06/21/2011 01:29 PM Subject:How to justify SHARE I thought there was a business case out on SHARE.ORG that could be used to justify going to share, but I cannot find it. Does anyone have a simple but effective paragraph on going to share they could share?? Thanks Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Maintaining ISPF's command stack
Dan, Have you considered using *Rexx/*EndRexx code in the )INIT section of the first displayable panel to fetch the Sysvars? Regards, John K From: DanD mvs-j...@sympatico.ca To: IBM-MAIN@bama.ua.edu Date: 06/18/2011 10:16 AM Subject:Re: Maintaining ISPF's command stack Thanks for trying John and Elardus. As I said, originally DLGNAME;4 worked. Now with... ISPLINK CONTROL,NONDISPL,ENTER,NOSETMSG ISPLINK DISPLAY,SYSVARS the only way I can get it to work is to add extra stack characters... DLGNAME;;;4 I also tried ISPLINK DISPLAY,SYSVARSENDCMD where ENDCMD is a variable containing END. When I tried this, no number of stack characters would get me to option 4. It appears that when the COMMAND option on the DISPLAY request is specified the command stack is cleared and replaced with the the caller's variable (ie. END). If there was a Z variable that contained the command stack, I could prefix that with END. Hmm..maybe there is such a variable. Dan -Original Message- From: Elardus Engelbrecht John P Kalinich wrote: For some reason, ISPF needs an ENTER key simulated. I got this to work by including a trailing delimiter. START PANEL(ISRUTIL);2; Or you can perhaps try out this to avoid using a delimiter: )INIT .RESP = ENTER Try either suggestions to see which is working. The fact the panel is never seen may be contributing to your dilemma. HTH! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Maintaining ISPF's command stack
Dan, For some reason, ISPF needs an ENTER key simulated. I got this to work by including a trailing delimiter. START PANEL(ISRUTIL);2; Regards, John K Maintaining ISPF's command stack DanD to: IBM-MAIN 06/17/2011 11:41 PM Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Please respond to IBM Mainframe Discussion List Greetings, I have a dialog that calls a routine to perform the following... ISPLINK CONTROL,ERRORS,RETURN ISPLINK CONTROL,NONDISPL,ENTER,NOSETMSG ISPLINK DISPLAY,SYSVARS ISPLINK CONTROL,ERRORS,CANCEL The above code is used to obtain some system level variables from the panel's )INIT section. The panel is never seen. This code is working and the variables are obtained and usually the code works as expected. The problem is that when a user invokes the dialog and stack the 1st selection option (ie. DLGNAME;4 to get to option 4). After the above code was implemented the command stack seems to get cleared and the ;4 is ignored. At first I thought this could be the ZTRAIL, but as the user is not entering something like 4.1.2, I don't believe ZTRAIL has anything to do with this problem. I have also checked the users' Command delimiter, and it is set to ; so this should work. (it did before the above SYSVARS panel nondispl/display was added). Does anyone have any ideas why this is failing? Any hints in how to debug this or correct it? Thanks in advance. Dan D -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DCBs and DCBEs - Could IBM have done it any worse?
Dave, We had a similar problem a couple of releases ago with DASD Error Recovery which was zeroing out the IOBCSW field on certain error conditions. This EXCP program had been running OK for over 25 years. IBM told us we should be using SEEK HEAD CCW's instead of SEEK CCW's even though it was within the extent. We didn't buy that and eventually they gave us a fix. Regards, John K From: Scott Rowe scott.r...@joann.com To: IBM-MAIN@bama.ua.edu Date: 06/08/2011 03:26 PM Subject:Re: DCBs and DCBEs - Could IBM have done it any worse? Dave, I was happy to see that you are only barking: at the hand that feeds you ;-) Have you opened a PMR with IBM on this to see if it is WAD? Scott On Wed, Jun 8, 2011 at 4:14 PM, David Cole dbc...@colesoft.com wrote: rant-on I just shot a bug in z/XDC that occurred only rarely, but once it occurred, it drove me nuts! And frankly, I don't think it's even my fault. It comes from what seems to me (to put it as politely as I can) to be IBM's clear violation of the principle of least surprise... Ok, first of all, here it is around 3 decades(!) after the introduction of 31-bit addressing, and DCBs still must reside in 24-bit storage?? And the best solution to this intransigence is the DCBE??? [sigh...]But I digress. That's a subject for an entirely different rant. rant off nope, rant on and on and on ... What's got me going today is this. For very good reasons, I have created my DCB and DCBE (as well as a host of other data areas and control blocks) in key-9 storage. But my code (z/XDC), when running non-authorized, runs with execution key-8. So when I open my dataset, OPEN does the following: - OPEN services opens the key-9 DCB just fine, no complaints, not a peep. - But when OPEN sees that: - It's caller (z/XDC) is running in problem state, - And it's caller is running in execution key-8, - But the DCBE is in key-9 storage, OPEN zero's out the DCBDCBE field (the DCB's link to the DCBE), and proceeds to open the DCB without the DCBE. Nevermind that key-9 storage is problem program storage. Nevermind that problem state key-8 programs are free to write to key-9 storage no matter what. Nevermind that OPEN has no complaint about the key-9 DCB. Nevermind that neither GET nor PUT nor READ nor WRITE nor CHECK nor FIND have ever complained about the key-9 DCB and DCBE. (How do I know WRT the DCBE? See below...) Nevermind that CLOSE has ever had a problem with the key-9 DCB and DCBE. OPEN simply blows away the DCBDCBE field as if nobody would care... Worse, OPEN gives no notice that it has done this! - OPEN does not abend. - OPEN does not fail to open the dataset. - OPEN does not set any return or reason code. - OPEN does not set any error, warning or informational flag. OPEN just proceeds as if the DCBE simply does not matter... [It's just unbelievable!] So I never noticed this issue until I had a broken file that resulted in s001 abends, which, I knew, couldn't happen... [Boy, I wish I had a dime for every time I've heard that...] So when I investigated, it took me a rather long time to figure it all out. Particularly because I couldn't believe that OPEN would do such a stupid thing! I was, well... surprised! Well, it turns out that there is a pretty simple workaround. Out of desperation, after OPEN completed, all dumb and happy, - I just slammed @'DCBE back into the DCBDCBE field, - And I turned DCBH0 and DCBH1 flags back on, - And voilà, my 31-bit EODAD and SYNAD routines now work just fine. Now, I don't use any of the other advanced services of the DCBE, so I don't know if this kludge would work with respect to those, but as far as I/O errors and end of data are concerned, my code is now happy, so I'm happy too [sort of... at least until IBM decides to fix against my workaround...] But come-on IBM, can't you do better than this rant off I want to thank IBM for the wonderful life they and their software have given me for
Re: OT: Personal update
John, Wishing you a speedy recovery. Regards, John K OT: Personal update John McKown to: IBM-MAIN 06/04/2011 09:08 AM Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Please respond to IBM Mainframe Discussion List I have been in the hospital since monday the 23rd. I had a gangrenous gallbladder removed. This is my second day out of ICU. I hope to leave monday or tuesday. Ahh I am weak but doing much better. -- John McKown Maranatha! Sent from my Vibrant Android phone. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PF9 Swap question
Vista tn3270 has a MoveCursorEnter function that I assign to Ctrl-Left Button for one click swapping. Regards, John K From: Lindy Mayfield lindy.mayfi...@ssf.sas.com To: IBM-MAIN@bama.ua.edu Date: 05/24/2011 07:05 AM Subject:Re: PF9 Swap question I use Vista. It is the best emulator I've ever used. And yes, I can double click on the SWAPBAR at the bottom. I don't do it, because it takes so much time to take my hands off of the keyboard and grab the mouse. :-) I grew up with those huge 3270 green screen monitors. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Tom Marchant Sent: Tuesday, May 24, 2011 2:50 PM To: IBM-MAIN@bama.ua.edu Subject: Re: PF9 Swap question If your emulator supports hotspots you can set it up so that you point to the screen you want on the swapbar and double click with the mouse. Hotspots also work with the action bar and some menus. Also the PF keys listed if you have PFSHOW enabled. You can even click on a URL and a web browser will open. I use PComm and I know it supports hotspots. I assume that most other emulators do as well. Does anyone know which ones do and which (if any) don't? -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PF9 Swap question
Lindy, Have you tried the SWAPBAR command? Regards, John K From: Lindy Mayfield lindy.mayfi...@ssf.sas.com To: IBM-MAIN@bama.ua.edu Date: 05/23/2011 11:22 AM Subject:PF9 Swap question I have been using multiple ISPF screens for many years now, 12 or so. I have memorized what each one is. Like 1 is edit, 2 is SDSF, 3 is ISHELL, 4 is 3.4 and so on. Problem is that I still cannot figure out how to make PF9 swap between two screens that I want. Let's say I am in ISHELL on number 3 and I want to swap to number 6 for example. I put 6 in the command and hit PF9 and it goes there. Then I hit PF9 and it goes to #2 for example. I want it to go from 6 to 3. How do I do that? I know it can be done, because I do it accidentally quite often, but even after all these years I haven't figured out the pattern. thank you very much Lindy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEBCOPY suddently unable to allocate utility data set
Can you post the full text of the TRANSMIT command? Did you make any SMS changes recently? Regards, John K From: Thomas David Rivers riv...@dignus.com To: IBM-MAIN@bama.ua.edu Date: 05/10/2011 09:44 AM Subject:IEBCOPY suddently unable to allocate utility data set For some reason, this morning; IEBCOPY isn't happy. When I do a TRANSMIT command, I'm now getting this: INMX040I TRANSMIT command terminated. Failure in partitioned dataset unload using IEBCOPY. + INMX042I Allocation error building OUTPUT file IKJ56221I UTILITY DATA SET NOT ALLOCATED, VOLUME NOT AVAILABLE+ IKJ56221I VOLUME NECESSARY TO SATISFY YOUR REQUEST NOT ON SYSTEM, AND CANNOT BE MOUNTED I'm pretty sure nothing changed on the system... but, a persusal of the JES messages/log doesn't give me a clue which volume it thinks is missing. This has been working for months (since our upgrade to z/OS 1.11) but suddenly has stopped working. Does anyone know what VOLUME IEBCOPY might be looking for; and why it would mysteriously have gone missing? (My search for IKJ56221I seemed to point to tape volumes, but I'm definately not doing anything with tapes - just trying to TRANSMIT a LOAD module (PDS)). - Thanks for any pointers - - Dave Rivers - -- riv...@dignus.comWork: (919) 676-0847 Get your mainframe programming tools at http://www.dignus.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEBCOPY suddently unable to allocate utility data set
Have you tried a standalone IEBCOPY in batch? Regards, John K From: Thomas David Rivers riv...@dignus.com To: IBM-MAIN@bama.ua.edu Date: 05/10/2011 02:11 PM Subject:Re: IEBCOPY suddently unable to allocate utility data set Gord Tomlin wrote: Hi Dave, From what I've seen, TRANSMIT first does an IEBCOPY unload to a temporary data set and then copies the output to its final RECFM=FB destination. Your messages suggest that the problem is happening on the IEBCOPY unload, so it is the allocation of the temporary data set that is failing. Do you have a UNIT set in the TSO segment of your RACF user profile? Hi Gord, Yeah - I agree - it's clearly IEBCOPY that is having problems with its temp data set. But - the real conumdrum here is why suddenly today, when, supposedly, nothing has changed - particularly nothing in my RACF profile. At least - nothing was purposefully changed. I would expect some message about which volume it was looking for, somewhere... I'll check the RACF profile to see if UNIT is defined there... - Thanks! - - Dave R. - -- riv...@dignus.comWork: (919) 676-0847 Get your mainframe programming tools at http://www.dignus.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Control date format using Rexx
I have a Rexx date function that I got years ago from the TSO-REXX
listserv. It has an edit option. Contact me off-list if you want it.
Regards,
John K
snip
Option 9:
Edits the supplied date. Returns '1' if date supplied in parm1 is
valid; returns 'ERROR' if date is invalid.
parm1 = null (current date) or mm/dd/yy or mm/dd/
parm2 = not used
e.g. RXDATE(9,'a1/01/2000') returns === ERROR
RXDATE(9,'01/33/1985') returns === ERROR(33 not valid)
RXDATE(9,'07/04/1776') returns === 1
RXDATE(9,'02/29/85') returns === ERROR(not leap year)
RXDATE(9,'02/29/84') returns === 1
/snip
Re: Control date format using Rexx
CUNY Yann
to:
IBM-MAIN
04/26/2011 09:32 AM
Sent by:
IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu
Please respond to IBM Mainframe Discussion List
I have a dataset with a lot of date, in YYMMDD Format.
I just want to verify that the dates indicated in the dataset are real :
120229 = OK
100229 = KO
101328 = KO
Etc.
-Message d'origine-
De : IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] De la
part de McKown, John
Envoyé : mardi 26 avril 2011 17:25
À : IBM-MAIN@bama.ua.edu
Objet : Re: Control date format using Rexx
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of CUNY Yann
Sent: Tuesday, April 26, 2011 10:17 AM
To: IBM-MAIN@bama.ua.edu
Subject: Control date format using Rexx
Hi all,
I would like to control a date format in a dataset with
REXX. I know
it is possible to convert ... but I just want to make a control.
Thanks in advance.
Yann
I don't understand. What does make a control mean to you? Perhaps an
example of the output you want would help. If you need today's date in
European format: dd/mm/yy, then
TODAY=DATE('E')
would do it.
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A390/4.3.16
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please
contact the sender by reply e-mail and destroy all copies of the original
message. HealthMarkets(r) is the brand name for products underwritten and
issued by the insurance subsidiaries of HealthMarkets, Inc. -The
Chesapeake Life Insurance Company(r), Mid-West National Life Insurance
Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM
--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the
archives at http://bama.ua.edu/archives/ibm-main.html
Ce message est confidentiel; Son contenu ne represente en aucun cas
un engagement de la part de AXA Technology Services (AXA Tech) sous
reserve de tout accord conclu par ecrit entre vous et AXA Technology
Services (AXA Tech).Toute publication, utilisation ou diffusion,meme
partielle, doit etre autorisee prealablement. Si vous n'etes pas
destinataire de ce message, merci d'en avertir immediatement l'expe-
diteur.
This message is confidential; its contents do not constitute a
commitment by AXA Technology Services (AXA Tech) except where provi-
ded for in a written agreement between you and AXA Technology
Services (AXA Tech). Any unauthorised disclosure, use or dissemina-
tion, either whole or partial, is prohibited. If you are not the
intended recipient of the message, please notify the sender imme-
diately.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
No supported release of z/OS® honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets
snip z/OS V1R11.0 Migration - All supported migration paths z/OS V1R11.0 GA22-7499-16 Description: No supported release of z/OS® honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets. /snip Our z/OS 1.11 system is allowing the IMBED attribute for new VSAM data sets. Is this WAD? DATA --- BZ.CICSVSAM.SYSA.DATA IN-CAT --- CATALOG.USERCAT4 HISTORY DATASET-OWNER-(NULL) CREATION2011.097 RELEASE2 EXPIRATION--.000 ATTRIBUTES KEYLEN-4 AVGLRECL--13 BUFSPACE9728 CISIZE--4096 RKP0 MAXLRECL--13 EXCPEXIT--(NULL) CI/CA168 SHROPTNS(1,3) SPEED UNIQUE NOERASE INDEXED NOWRITECHK IMBED NOREPLICAT UNORDEREDNOREUSE NONSPANNED Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: No supported release of z/OS(r) honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets
The creation date was 2011.097 according to LISTCAT. Regards, John K From: Ken Porowski ken.porow...@cit.com To: IBM-MAIN@bama.ua.edu Date: 04/13/2011 10:02 AM Subject:Re: No supported release of z/OS(r) honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets IIRC no new dataset can be created with those attributes (keywords ignored) but if an existing dataset has them it is still processed accordingly. If the dataset is recreated (delete/define) or restored the attributes will be removed. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Hal Merritt Sent: Wednesday, April 13, 2011 10:26 AM To: IBM-MAIN@bama.ua.edu Subject: Re: [IBM-MAIN] No supported release of z/OS(r) honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets I would think that 'allowing' and 'honoring' are two different things. That is, the cluster may have the attribute in the catalog entry but the code no longer does anything with it. You see this in other contexts for depreciated keywords: '...checked for syntax and ignored...' HTH and good luck. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John P Kalinich Sent: Wednesday, April 13, 2011 9:05 AM To: IBM-MAIN@bama.ua.edu Subject: No supported release of z/OS(r) honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets snip z/OS V1R11.0 Migration - All supported migration paths z/OS V1R11.0 GA22-7499-16 Description: No supported release of z/OS(r) honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets. /snip Our z/OS 1.11 system is allowing the IMBED attribute for new VSAM data sets. Is this WAD? DATA --- BZ.CICSVSAM.SYSA.DATA IN-CAT --- CATALOG.USERCAT4 HISTORY DATASET-OWNER-(NULL) CREATION2011.097 RELEASE2 EXPIRATION--.000 ATTRIBUTES KEYLEN-4 AVGLRECL--13 BUFSPACE9728 CISIZE--4096 RKP0 MAXLRECL--13 EXCPEXIT--(NULL) CI/CA168 SHROPTNS(1,3) SPEED UNIQUE NOERASE INDEXED NOWRITECHK IMBED NOREPLICAT UNORDEREDNOREUSE NONSPANNED Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: No supported release of z/OS(r) honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets
Norbert, We use ABR instead of HSM, but the create date was from an IDCAMS DEFINE. Regards, John K From: Norbert Friemel nf.ibmm...@web.de To: IBM-MAIN@bama.ua.edu Date: 04/13/2011 11:29 AM Subject:Re: No supported release of z/OS(r) honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets On Wed, 13 Apr 2011 10:06:36 -0500, John P Kalinich wrote: The creation date was 2011.097 according to LISTCAT. I think that's the restore date not the true creation date. The IMBED attribute is not removed by DFSMSdss/hsm during restore. Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: No supported release of z/OS(r) honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets
Mea culpa. Yes, it was the result of a FDR/ABR restore. Regards, John K From: R.S. r.skoru...@bremultibank.com.pl To: IBM-MAIN@bama.ua.edu Date: 04/13/2011 12:27 PM Subject:Re: No supported release of z/OS(r) honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets W dniu 2011-04-13 17:06, John P Kalinich pisze: The creation date was 2011.097 according to LISTCAT. Can it be result of RESTORE? -- Radoslaw Skorupka Lodz, Poland -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: No supported release of z/OS(r) honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets
You are correct, it was from an ABR RESTORE. Sorry to bother the list. Regards, John K From: Patrick Lyon ptl...@midamerican.com To: IBM-MAIN@bama.ua.edu Date: 04/13/2011 12:37 PM Subject:Re: No supported release of z/OS(r) honors the IMBED, REPLICATE, and KEYRANGE attributes for new VSAM data sets On Wed, 13 Apr 2011 12:14:45 -0500, John P Kalinich jkali...@csc.com wrote: Norbert, We use ABR instead of HSM, but the create date was from an IDCAMS DEFINE. Regards, John K John, you may want to verify that is a fact. I just attempted to do a DEFINE with IMBED and REPLICATE and the LISTCAT shows NOIMBED and NOREPLICAT. 1.11. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF Point and Shoot
or this... )PROC VAR1 = ZCMD ... )PNTS FIELD(ZPS1) VAR(ZCMD) VAL(1) Regards, John K From: michealbutz michealb...@optonline.net To: IBM-MAIN@bama.ua.edu Date: 03/19/2011 09:45 PM Subject: Re: ISPF Point and Shoot Tried that doesn't seem to work -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John P Kalinich Sent: Saturday, March 19, 2011 8:30 AM To: IBM-MAIN@bama.ua.edu Subject: Re: ISPF Point and Shoot Remove the ampersand in the VAR field. )PNTS FIELD(ZPS1) VAR(VAR1) VAL(1) Regards, John K From: michealbutz michealb...@optonline.net To: IBM-MAIN@bama.ua.edu Date: 03/18/2011 05:26 PM Subject: ISPF Point and Shoot I can't seem to get Point and shoot right The attribute field that is defined needs to have PAS(ON) So for example @ TYPE(INPUT) PAS(ON) COLOR(WHITE) The )PNTS section defines the value to be placed in the point and shoot field )BODT Point and shoot field == @field )PNTS FIELD(ZPS1) VAR(VAR1) VAL(1) So if the user cursor selects the area where field is located a value of 1 will be placed variable var1 Excepts when I do a say ' var1 = ' var1 var1 value is not 1 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF Point and Shoot
Remove the ampersand in the VAR field. )PNTS FIELD(ZPS1) VAR(VAR1) VAL(1) Regards, John K From: michealbutz michealb...@optonline.net To: IBM-MAIN@bama.ua.edu Date: 03/18/2011 05:26 PM Subject: ISPF Point and Shoot I can't seem to get Point and shoot right The attribute field that is defined needs to have PAS(ON) So for example @ TYPE(INPUT) PAS(ON) COLOR(WHITE) The )PNTS section defines the value to be placed in the point and shoot field )BODT Point and shoot field == @field )PNTS FIELD(ZPS1) VAR(VAR1) VAL(1) So if the user cursor selects the area where field is located a value of 1 will be placed variable var1 Excepts when I do a say ' var1 = ' var1 var1 value is not 1 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: REVEDIT feature of TSO REVIEW command - ISPF-like EDIT in TSO READY mode
Greg Price's REVIEW presentation from SHARE in Austin on March 5, 2009 (SHARE Session 2811) is available from http://proceedings.share.org/client_files/SHARE_in_Austin/S2811GP235506.pdf Regards, John K From: Sam Golob sbgo...@cbttape.org To: IBM-MAIN@bama.ua.edu Date: 02/09/2011 11:58 AM Subject:REVEDIT feature of TSO REVIEW command - ISPF-like EDIT in TSO READY mode Hi Folks, It was brought to my attention that there are some people who don't already know about the REVEDIT (ISPF-like editor) feature of the REVIEW TSO command from CBT Tape File 134 (source) and File 135 (load modules). This is an ISPF-like editor that works in TSO READY mode, and it can be used as a recovery tool when TSO is up, but ISPF can't come up. REVEDIT is available (I think) in REVIEW version 40 and above. It was added to REVIEW by Greg Price, in order to have an editing tool in MVS 3.8 that runs under Hercules, where ISPF is not available. But REVIEW with REVEDIT ALSO runs fine under z/OS. In order to get into the edit mode under REVIEW, the primary command is UPDATE, from the command line of a REVIEW screen if you're REVIEWing a file. From a pds member list, the line command is U instead of S. It certainly pays to have this tool installed and in place on your z/OS systems in advance, if you ever need it in a pinch. When ISPF can't come up, you can fix the LOGON procs and LOGON CLISTs in a minute, without any hassle at all. You can also submit batch jobs from inside a REVIEW session, where you've edited the batch job or started PROC in TSO READY mode, just like under ISPF. Of course, many of you already know about the availability of this tool. But for those of you who don't already have it installed, it could save you a lot of hassle in a pinch someday. It pays to keep REVIEW installed, and available to your TSO session at any time. REVIEW is not just a file browser. NOW, it is also a file editor. It pays to re-view the new REVIEW! All the best of everything to all of you. Sincerely,Sam Golob P.S. The latest versions of REVIEW will cooperate with ISPF when ISPF is up, and will not stay separate from ISPF, as in the past. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Components for ISPF point shoot
Point-and-shoot fields do not have to be in a scrollable area.
Regards,
John K
From: Micheal Butz michealb...@optonline.net
To: IBM-MAIN@bama.ua.edu
Date: 02/08/2011 09:39 AM
Subject:Re: Components for ISPF point shoot
Sorry in )PNTS.section. I had it as VALUE
Just looking at the examples in the manuals does point and shoot have
to be in a )AREA section
Sent from my iPhone
On Feb 8, 2011, at 10:25 AM, Dave Salt ds...@hotmail.com wrote:
Instead of this:
FIELD(ZPS1) VAR(tstfld) VALUE('test')
Try this:
FIELD(ZPS1) VAR(tstfld) VAL('test')
Hope that helps,
Dave Salt
SimpList(tm) - try it; you'll get it!
http://www.mackinney.com/products/program-development/simplist.html
Date: Tue, 8 Feb 2011 10:05:35 -0500
From: michealb...@optonline.net
Subject: Components for ISPF point shoot
To: IBM-MAIN@bama.ua.edu
Maybe I am missing something but the two components I need to setup a
point and shoot field on a ISPF panel are
Attr field in the ) Attr section on the panel
E.G. @ TYPE(PS)
Then after the panel definition
)PNTS
FIELD(ZPS1) VAR(tstfld) VALUE('test')
)
In )BODY. Section
I have the VAR. Value defined
In the following way + TEST FIELD = @tstfld
I must be missing something because I am getting a panel error
Thankx
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to copy code from the publications of Xephon
You might try to copy the code using the Foxit Reader. Regards, John K From: Fran Hernandez frcoh...@gmail.com To: IBM-MAIN@bama.ua.edu Date: 01/03/2011 07:29 AM Subject:Re: How to copy code from the publications of Xephon Hello, I made the choice to save the file as type txt but the problem continues the code is moved to the left, it seems that does not respect the blanks between characters. Any other ideas? I send a copy of the code in the txt file to view the effect. Kind Regards. Fran -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEFACTRT problem - z/OS 1.11
Check to see if you have the module in MLPA (IEALPAxx). I know we do. Regards, John K From: Veilleux, Jon L veilleu...@aetna.com To: IBM-MAIN@bama.ua.edu Date: 01/03/2011 09:17 AM Subject:Re: IEFACTRT problem - z/OS 1.11 And it doesn't seem to help. I still don't get valid TCB or SRB times after I installed the new exit. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of ??? ?? ??? Sent: Monday, January 03, 2011 9:14 AM To: IBM-MAIN@bama.ua.edu Subject: Re: IEFACTRT problem - z/OS 1.11 Thanks, I saw that, but it doesn't say anything about CPU time. Gadi -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Roger Lowe Sent: Monday, January 03, 2011 4:04 PM To: IBM-MAIN@bama.ua.edu Subject: Re: IEFACTRT problem - z/OS 1.11 On Mon, 3 Jan 2011 09:33:38 +0200, #1490;#1491;#1497; amp;#1489;#1503; #1488;#1489;#1497; gad...@malam.com wrote: Hi, We are testing z/OS 1.11. We use the supplied sample for IEFACTRT provided in SYS1.SAMPLIB (IEEACTRT). The exit does not provide CPU (TCB and SRB) counts. All other values seem to be OK. Has anyone seen the problem? Gadi, Have a look at APAR OA31624. Roger -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html לשימת לבך, בהתאם לנהלי החברה וזכויות החתימה בה, כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד וחתום על ידי מורשי החתימה של החברה, הנושא את לוגו החברה או שמה המודפס ובצירוף חותמת החברה. בהעדר מסמך כאמור (לרבות מסמך סרוק) המצורף להודעת דואר אלקטרוני זאת, אין לראות באמור בהודעה אלא משום טיוטה לדיון, ואין להסתמך עליה לביצוע פעולה עסקית או משפטית כלשהי. Please note that in accordance with Malam's signatory rights, no offer, agreement, concession or representation is binding on the company, unless accompanied by a duly signed separate document (or a scanned version thereof), affixed with the company's seal. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html This e-mail may contain confidential or privileged information. If you think you have received this e-mail in error, please advise the sender by reply e-mail and then delete this e-mail immediately. Thank you. Aetna -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JES2 question
I got some hits when I searched the JES2 bookshelf. JES2 issues message $HASP050 to indicate shortage(s) of one or more of the following resource types: O BERT - Block Extension reuse tables O BSCB - Bisynchronous buffers O BUFX - Extended logical buffers 4.7 $HASP050 BUFX (extended logical buffers) EXTBUF on BUFDEF Regards, John K From: Frank Chu fr...@colesoft.com To: IBM-MAIN@bama.ua.edu Date: 01/03/2011 09:24 AM Subject:JES2 question Hello and a happy new years everybody, What exactly is a BUFX? I received a $HASP050 JES2 RESOURCE SHORTAGE OF BUFX message during an IPL and I'm trying to figure out what a BUFX is. I did not get any hits in any of the JES2 manuals. Any help/info is appreciated. Thanks Frank -- Development Programmer Cole Software LLC www.colesoft.com Phone : 540.456.6164 Fax : 540.456.6658 Email : fr...@colesoft.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF Program Edit Macro
I use CLIST and Rexx Edit macros to do this. ./ ADD NAME=GO 0138-90310-06339-0900-5-8-0-TRIDJK ISREDIT MACRO ISREDIT SUBMIT ISPEXEC SELECT PGM(IOFSPF) NEWAPPL(IOF) PASSLIB /* Edit macro to submit job and invoke IOF */ ./ ADD NAME=GOSDSF 0136-90310-11002-0905-8-8-0-TRIDJK /* Rexx */ Address ISREDIT ISREDIT MACRO ISREDIT SUBMIT Address ISPEXEC ISPEXEC SELECT PGM(ISFISP) PARM(ST) NEWAPPL(ISF) PASSLIB Exit /* Edit macro to submit job and invoke SDSF */ Regards, John K ISPF Program Edit Macro DanD to: IBM-MAIN 12/31/2010 04:24 PM Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Please respond to IBM Mainframe Discussion List With recent SUBMIT discussions (ie. ISPFTEMP data set size / lrecl restrictions) I thought I'd try and create a program EDIT MACRO (assembler) to submit the unsaved EDIT/VIEW data. The EDIT MACRO is working great but I dislike having to issue !EDITSUB to call the macro. I tried adding CMD(!EDITSUB) and CMD(EDITSUB) to the command table with no success. Can a program EDIT MACRO be called in any other way than !program? Thanks Happy New Year. DanD -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Edit Macro for PDSHELP and MVS/Quickref
Sergio, This is concerning the MVS Help file that comes with the freeware PDS86 command from the CBT tape. It is a large help file that works with the TSO help command. My edit macro inserts indexing records to allow the file to be read into QWREF2 utility program. This then makes all the operands and message descriptions for the PDS86 command available within MVS/Quickref. So if you don't have either MVS/Quickref or the free PDS command this won't be of any use. thanks Dana I am also interested in using your Edit Macro. I can include it in the CBT File 182 distribution. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to discover compiler options from a csect/load module.
COBANAL (COBOL Analysis program) from the CBT tape (FILE 321) does a decent job on COBOL. The IBM Debug Tool Load Module Analyzer (EQALMA) will tell you the compiler level, but not the options. Regards, John K From: MASSIMO BIANCUCCI massimo.biancu...@t-systems.it To: IBM-MAIN@bama.ua.edu Date: 11/15/2010 02:58 AM Subject:How to discover compiler options from a csect/load module. Hi everybody, I'm wondering if and how is possible to discover the compiler options (Cobol, PLI etc.) looking at a csect in a load module. I was not able to find out anything at IBM site. Thanks a lot for you time. Best regards. Max -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: gzip123
http://www.gzip.org/ From: Luc Martens (KBC) luc.mart...@kbc.be To: IBM-MAIN@bama.ua.edu Date: 10/26/2010 06:28 AM Subject:gzip123 I'm looking for a tool with the program name GZIP123. It's used for zipping mainframe file. Does someone has an idea if it is still available somewhere? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: The meaning of SCIDS.
The button man has this one... http://www.mxg.com/thebuttonman/buttons/button792.jpg From: David Alcock mainframed...@sbcglobal.net To: IBM-MAIN@bama.ua.edu Date: 10/15/2010 09:35 AM Subject:Re: The meaning of SCIDS. Howard Dean probably had a funny button that defined the meaning of SCIDS. -- This is not an exit from SCIDS. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Replace Compuware products with CA
Susan Edwards of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 09/20/2010 06:41:57 AM: Has anyone replaced Compuware's products, Abendaid for MVS and CICS, Fileaid and Strobe with CA's products? Any information - the good, bad or ugly would be appreciated. We replaced AbendAid with IBM Fault Analyzer and are very happy with it. IBM offers free Web-based training for Fault Analyzer on the IBM Education Assistant web site. Good resource for training the programming staff. http://publib.boulder.ibm.com/infocenter/ieduasst/stgv1r0/index.jsp Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF system commands under program control?
Andy Robertson of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 09/14/2010 10:31:10 AM: Does anyone know a way to issue ISPF System Commands (eg PANELID, FKA ON, etc) under program control??? Would it, for example, be possible to set the command field in a panel and DISPLAY it with .RESP set to END??? (Doesn't seem to work, unfortunately . . .) Gilbert Saint-flour posted this on the ISPF list about a decade ago. Regards, John K /* This REXX EXEC displays the SMF system-id and screen number in the upper left hand corner of your ISPF 4.x screen. */ ADDRESS ISPEXEC CVT= PTR(16)/* CVTPTR */ SMCA = PTR(CVT+196) /* CVTSMCA (SMF CTL AREA) */ SMCASID = STRING(SMCA+16,4) /* SMCASID (SMF SYSTEM ID)*/ VGET ZSCREEN /* get screen number */ CMD = 'PANELID OFF;SCRNAME ON;SCRNAME' SMCASID'#'ZSCREEN 'PERM' DISPLAY PANEL(ISPSTRTP) COMMAND(CMD) EXIT 1 PTR: RETURN C2D(BITAND(STORAGE(D2X(ARG(1)),4),'7FFF'X)) STRING: RETURN STRIP(STORAGE(D2X(ARG(1)),ARG(2))) /* Gilbert Saint-flour: g...@ibm.net */ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SDSF and z/OS 1.11
-jc- of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 08/20/2010 08:39:17 AM: Here's a weird one for you: We recently upgraded two LPARs from z/OS 1.9 to z/OS 1.11. One of those LPARs is our sandbox, which is pretty well crippled (one CPU, 3GiB central storage, on a z9-BC). My standard tn3270 emulation is the 3290 screen size (62x160), and I specify LOGMODE(D4C32XX3) at logon time. This has worked wonderfully through z/OS 1.9. At z/OS 1.11, and (so far) only on the sandbox, my 3290 emulation simply will not display SDSF at all; the session simply hangs. If I omit the LOGMODE(D4C32XX3) and accept our default 24x80 screen size, there is no problem with SDSF (other than readability, of course). Note that the other LPAR that was upgraded lives on the same z9-BC, which also hosts a Coupling Facility. Anybody have any idea what I should look for, and where, to address my SDSF on the 'Sandbox problem? What VTAM Session Manager are you using? There were issues with CA-Teleview when we went to 1.11. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Mass Editor
Monty Spivak of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 08/19/2010 09:45:16 AM: I am is seeking a JCL Mass Editor (basically, multiple file search and replace in an LPAR). We have 3,000 JCL scripts and are seeking to make changes to upgrade SAS versions. Would you know of an appropriate tools to use (I know that someone could write scripts to examine the JCL scripts, but it would be a lot nicer if one would just be able to use a search and conditionally replace against all of the JCL in an LPAR). Some ideas. First, eliminate the version in the DSNAME for your runtime libraries, and then you won't have do a mass change again. 1) Use the PDS REPLACE command (CBT File 182) which does an update in place. Run first with the NOWRITE operand. 2) Write an ISPF Edit Macro and use the Mark Zelden EDMACALL or Lionel Dyck EDITALL rexx exec to ISPF Edit every member with the macro. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
PDS Command Updates (Was: CBT Tape Version 479 has been cut)
Paul, This is from File 001, the CBT tape directory. http://www.cbttape.org/ftp/cbt/CBTF1.txt Regards, John K snip //* PDS 8.6 incorporates the following changes: * FILE 182 //* * FILE 182 //* oPDSE (partitioned data set extended) support. * FILE 182 //* oMXI interface.* FILE 182 //* oSuperC Search-For interface. * FILE 182 //* oDISASM interface. * FILE 182 //* oDELINK interface. * FILE 182 //* oTSO TRANSMIT interface. * FILE 182 //* oOFFLOAD interface.* FILE 182 //* oSMPGEN support. * FILE 182 //* oIBM Debug Tool Load Module Analysis interface.* FILE 182 //* oFDR Compaktor MAP interface. * FILE 182 //* oCOBANAL load module analysis interface. * FILE 182 //* oCONDEND subcommand for batch execution. * FILE 182 //* oPDSLOAD interface.* FILE 182 //* oAMBLIST interface.* FILE 182 //* oExtended ISPF statistics (z/OS 1.11) support. * FILE 182 //* oGIMCPTS interface.* FILE 182 //* oPDSMATCH interface. * FILE 182 //* * FILE 182 //* PDS 8.5 incorporated the following changes: * FILE 182 //* * FILE 182 //* oYear 2000 date support. * FILE 182 //* oDynamic UCB and 4-digit device number support.* FILE 182 //* o31-bit UCB support. * FILE 182 //* o9345 and Fat DASD (3390-9 and above) support. * FILE 182 //* oPoint-and-shoot sort columns in dialog panels.* FILE 182 //* oSuperC and Comparex compare interface.* FILE 182 //* oReset ISPF creation/last modification date and time. * FILE 182 //* oISPF View support.* FILE 182 //* oISO alternative date support (yy/mm/dd). * FILE 182 //* oAMODE64 query and reporting. * FILE 182 //* oNRETRIEV/REFLIST panel logic support. * FILE 182 //* oPDS-determined block size.* FILE 182 /snip From: Paul Strauss strau...@us.ibm.com To: IBM-MAIN@bama.ua.edu Date: 08/16/2010 11:06 PM Subject:Re: CBT Tape Version 479 has been cut Hi Sam, I haven't seen your name in a long time. Good to see you are still around. I used to enjoy your articles about my favorite CBTTAPE tool, PDS. I have PDS85 on our system now. I believe it is a pre Y2K version but still does the trick. What would you consider new features that would make installing an updated release worth while? Would an updated version work with PDSE's? I'm afraid that if we go to all PDSE's, I'll loose my friend. Thank You, Paul Strauss Integrated Technology Delivery, Global Services, IBM L0DB z/OS MVS/Program Products/Security 150 Kettletown Rd. Southbury, CT 06488 (203) 272-2758 strau...@us.ibm.com From: Sam Golob sbgo...@cbttape.org To: IBM-MAIN@bama.ua.edu Date: 08/16/2010 10:36 PM Subject:CBT Tape Version 479 has been cut Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Hi Folks, CBT Tape Version 479 has just been cut. Quite a few changes (52) have been made in this version (first cut since the beginning of the year). The www.cbttape.org web site has also been
Re: More FUD on the demise of the Mainframe
I would not worry about FUD given the following statement from the article. Some companies still employ an older mainframe with a screen known as a 3270 terminal emulator, which evokes the decades-old Disk Operating System, or DOS, that predated Microsoft (MSFT) Windows From: Ken Porowski ken.porow...@cit.com To: IBM-MAIN@bama.ua.edu Date: 08/03/2010 09:31 AM Subject:More FUD on the demise of the Mainframe http://www.businessweek.com/technology/content/aug2010/tc2010082_274669.htm -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: C-I-C-S vs KICKS
And there is JAY-SILL (JCL), the first rapper control language. Regards, John K From: Bill Fairchild bi...@mainstar.com To: IBM-MAIN@bama.ua.edu Date: 07/26/2010 01:26 PM Subject:Re: C-I-C-S vs KICKS I've heard many people say SNAH. And also Crih-gee when referring to CRJE. Our working days would be far less fun-filled if we couldn't joke around with acronyms or their pronunciation, inter alia. One of my favorite things to eat is General TSO's chicken. BALR is pronounced bah-ler. STCM and ICM are Stick-em and Ick-em. Two privileged instructions are Stands-em and Stows-em (STNSM and STOSM). Then there are the FIFO, LIFO, WINO (Whenver In, Never Out), and other queueing algorithms, well, I'll BDAM, etc. and on and on for all Fridays in the foreseeable future. Bill Fairchild Rocket Software -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mark Pace Sent: Monday, July 26, 2010 12:44 PM To: IBM-MAIN@bama.ua.edu Subject: Re: C-I-C-S vs KICKS I had an SE many years ago that did say S-N-A as SNAH. Confused me every time. I've never heard anyone try to say R-J-E as a word. What you you use, reggie? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Another reason to hate PDSE's
The member data is stored in the directory entry as userdata, hence no real member data exists. TTR pointers are zero. Regards, John K From: Eric Bielefeld eric-ibmm...@wi.rr.com To: IBM-MAIN@bama.ua.edu Date: 07/26/2010 01:41 PM Subject:Re: Another reason to hate PDSE's How can you have directory entries, and no members? I can see having a huge directory and no members, but how can you have a directory entry that doesn't point to a member? -- Eric Bielefeld Systems Programmer Bill Fairchild bi...@mainstar.com wrote: And isn't the maximum size of a PDS 65535 cylinders instead of 65535 tracks? But Tom Conley has an excellent point that the maximum size of a PDS member should be supported by any redesign. E.g., I have seen some large PDSes that consisted of only a directory. One example is SMP. Another was a customer file I ran across decades ago where an entire volume was a PDS with only a directory in it; i.e., all directory entries and no members. Bill Fairchild Rocket Software -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: how to identify members that DO NOT contain a string
Jim McAlpine of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 07/21/2010 09:10:25 AM: I have a pdse that contains 4000 plus source members and I need to be able to identify those members that DO NOT contain a particular string. Any ideas. Use the PDS command (CBT file 182). READY pds 'my.pdse.dataset' find : 'needle' else(sublist) members * Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF extended stats
R.S. of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 07/20/2010 08:01:14 AM: It is something new in z/OS 1.11 AFAIK I read about it, but not found to much. Q: Does it provide anything except increased limit for number of records? Three fullwords were added to the end of the ISPF stats directory entry. There is an ISPF configuration option to enable extended stats (via STATS EXT) in ISPF Edit. direntry pds86xmi ispf PDS86XMI DIRECTORY ENTRY, LENGTH=52 LOC NAME VALUE DESCRIPTION --- - --- 00 PDS2NAME PDS86XMI MEMBER NAME 08 PDS2TTRP 016E01TTR OF FIRST BLOCK OF DATA 0B PDS2INDC 140 TTRS FOLLOW; 20 HALFWORDS OF DATA 0C ISPVERS 1.MEMBER VERSION NUMBER 0D ISPMOD 0.MEMBER REVISION NUMBER 0E ISPFLAGS 20EXTENDED STATS -- X'20' SCLM -- X'80' 0F ISPMSEC 00LAST CHANGE TIME -- FORMAT: SS 10 ISPCDATE 0110027F CREATION DATE-- FORMAT: 0CYYDDDF 14 ISPMDATE 0110027F LAST CHANGE DATE -- FORMAT: 0CYYDDDF 18 ISPMTIME 1354 LAST CHANGE TIME -- FORMAT: HHMM 1A ISPCLINE 65,535. NUMBER OF LINES CURRENTLY 1C ISPILINE 65,535. NUMBER OF LINES INITIALLY 1E ISPMLINE 0.NUMBER OF MODIFIED LINES 20 ISPUSRID TRIDJKUSERID OF LAST PERSON TO UPDATE 28 ISPECLIN 00028168 NUMBER OF LINES CURRENTLY - EXTENDED STATS 2C ISPEILIN 00028168 NUMBER OF LINES INITIALLY - EXTENDED STATS 30 ISPEMLIN NUMBER OF MODIFIED LINES - EXTENDED STATS Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Dataset Aliases - How to find ALL of them
John, I think it should be... DEFINE - ALIAS(NAME(other.name.you.want.to.use.for.the.data.set) - RELATE(real.data.set.name)) - CAT(same.catalog.as.for.real.data.set.name) Regards, John K From: John Eells ee...@us.ibm.com To: IBM-MAIN@bama.ua.edu Date: 07/15/2010 08:25 AM Subject:Re: Dataset Aliases - How to find ALL of them I am not sure what the OP meant by data set alias, or whether we mean the same thing when using this term, so... There are two kinds of aliases. User catalog connector aliases are well-defined in the books, I think, but the other kind, which I'll call data set aliases for now, are not so well-defined if I recall correctly. The VSAM equivalent for what I call a data set alias is a PATHENTRY. (I'm too lazy to search for terms, look up the command syntax today, or test it, so all this is from memory, but you should get the idea anyway.) A user catalog connector alias is created by using: DEFINE - ALIAS(NAME(aliasname) - RELATE(user.catalog.name)) - CAT(master.catalog) A data set alias is created by using DEFINE - ALIAS(NAME(real.data.set.name) - RELATE(other.name.you.want.to.use.for.the.data.set)) - CAT(same.catalog.as.for.real.data.set.name) As you can see, the differences are what you specify as the alias name, what you RELATE the alias to, and where you must place the alias entry. LISTCAT ALIAS will show both kinds. The associations (related-to) field in the output will tell you what kind of alias it is; if it's a user catalog name, it's a catalog connector alias. Otherwise, it's a data set alias. To find all the user catalog connector aliases in the normal order of catalog search (not what I think the OP wanted, but just to be complete), run a LISTCAT ALIAS ALL against the master catalog. All those associated with a user catalog name are catalog connector aliases. Any others are data set aliases. (If you don't know the names of your catalogs, see the first command below.) To find the data set aliases, run: - LISTCAT USERCATALOG against the master catalog to find all the user catalog entries. - LISTCAT ALIAS ALL CAT(usercat.name) against *each* of the catalogs appearing in the output from the command above. For true user catalogs, this will show only data set aliases. For other master catalogs that are connected to the master catalog (as user catalogs), it will show both user catalog connector aliases and data set aliases. For any catalogs that are not connected to the master catalog, I'm afraid you're on your own so far as finding them goes, but once you find them and IMPORT CONNECT them to the master catalog, the second command above will work. Having completed the steps above, you should have a complete list of every kind of alias entry on your entire system. HTH, -- John Eells z/OS Technical Marketing IBM Poughkeepsie ee...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDSMAN Equivalent
Mary Ellwood of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 07/02/2010 12:52:24 PM: I'm looking for a product that would determine if a member in a PDS has been referenced/executed since some period of time. I want to be able to do PDS cleanup. I did ask CA for pricing on PDSMAN. But $6M is way too much money. Does anyone know of any other products? OR is there anything on the CBT? If your security is ACF2, you could invoke PDS member level protection for the PDS and LOG all READ and EXECUTE resource accesses. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: O/Topic Selling poisoned software
Ed Finnell of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 06/28/2010 01:59:23 PM: In a message dated 6/28/2010 1:28:16 P.M. Central Daylight Time, bi...@mainstar.com writes: I think the poster meant MICS, and not MIX. I don't remember any MIX product. MIX was real. Precursor to MIM, Allen Systems. Enabled us to do stuff with multiprocessors that GRS couldn't handle. We used to run Super-MSI (Multiple Systems Integrity) from Allen Systems Group, circa 1980. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Delete all members of a PDS that is allocated
Greg Pruce of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 06/26/2010 01:00:32 AM: Ed Finnell wrote: In a message dated 6/25/2010 5:31:07 P.M. Central Daylight Time, rfocht...@ync.net writes: with Bruce Leland, the original author, for about 25 years. Author(s) Mike Smith and Bruce Leland. Big bloke with the red hair? Steve Smith. Most of the original ISPF interface was his work. I remember his presentation in 1990 when using PDS as a workbench was being encouraged. His pitch began Now, I don't know what your idea of a workbench is, but... and he showed a slide of a backyard shed workbench covered with as astonishing degree of clutter. I think he meant to imply that PDS offers lots of features and facilities. Cheers, Greg Here is an excerpt from the PDS doc, presumably written by Steve Smith. The first goal of the ideal work bench is to provide within easy reach those things the programmer uses all the time. Key strokes should be reduced. Reentering object names should be nearly eliminated. The user should be able to keep several activities going at one time. He should be able to apply any number of tools at any time to the things he is working on. Another goal of the ideal work bench is to provide several ways to narrowly target the objects and data that are important to the programmer. This reduces the background clutter and allows the programmer to concentrate on items of interest. This would help alleviate the information overload we all experience. Another goal of the work bench would be to provide better ways to get the right information about objects for display. This includes information not available through common utilities. It would combine and present common information on objects in ways that enhance the understanding of this data. The work bench would integrate a great many tools for processing information and also provide affective interfaces to the excellent tools provided by others. Many of these tools would be applied to individual objects or applied in mass automatically. The work bench should provide an easy way to add user supplied tools. The work bench would reduce or simplfy many of the maintenance chores we have to live with. Compressing and copying data would be easy. Means for converting data formats would be part of the copy process. The ideal work bench should really shine when it comes to handling problem situations with datasets. It would isolate and identify these problems and provide a corrective procedure. Much of the information that might be extracted by a work bench product may be useful for outside processing. The work bench would provide ways to capture information and put it into user files useful for other processing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Delete all members of a PDS that is allocated
File 182 on your CBT dial. The PDS command. Regards, John K gsg of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote: Does anyone know of a way to delete all of the members of a PDS which is allocated by job scheduler software? We currently use an assembler program that does a reset(I think), but management wants us to not use assembler. I know that IEHPROGM can delete a specific member, but the members change from day to day. I don't think you can wild card it. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Getting BIND/LINK date out of load module members
Kriss, Paul Strauss was on the right track with his PDS comments. The following IF and ATTRIB subcommands in PDS will do what you want. Download PDS from http://www.cbttape.org/ftp/updates/CBT182.zip. Regards, John K PDS100I PDS86 -- VERSION 8.6.12 APRIL 30, 2010 if : last(3) then(sublist) attrib * short PDS232I NAME ALIASOF CREATED SIZE SSI ATTRIBUTES PDS232I AI9RECAA 10/05/18 184K 01380920 NONE PDS232I PDS PDS8610/05/20 319K PAGE, TEST, RENT, REUS, REFR PDS232I PDSE PDS8610/05/20 319K PAGE, TEST, RENT, REUS, REFR PDS232I PDS86 10/05/20 319K PAGE, TEST, RENT, REUS, REFR PDS118I 2 MEMBERS RMODE24; SIZE IS 502K From: Davis, Kriss kpda...@ilstu.edu To: IBM-MAIN@bama.ua.edu Date: 05/19/2010 02:46 PM Subject:Getting BIND/LINK date out of load module members I am working on process to monitor/audit load libraries for new/replaced members during a date range. I have a working version that uses AMBLIST with a SYSIN of LISTIDR. I run the REPORT OUTPUT created by this to a disk dataset for a given load library. Then in the next step, I parse the REPORT output looking for the member name and BIND date. If the BIND date is less than 3 days old, I output the member name on the report. The AMBLIST step (unloading all the member data to the report) takes quite awhile for some of our larger LOAD libraries. And of course, outputs a lot more info than I need. I just need the member name and the BIND date. Is there another IBM utility (or a different parameter for AMBLIST) that would unload a LOAD library of its members and dates more efficiently? I only run this once a day, so it is not a big deal that it runs quite a while, but it would help testing new features if I could get the AMBLIST part to run faster. Thanks in advance! Kriss Kriss Davis Manager Illinois State University kpda...@ilstu.edu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Turning on ACF2 SECURITY Privilege through an exit . . .
Are they updating the ACF2 databases in this special app? Regards, John K From: Bathmaker, Jon jon.bathma...@credit-suisse.com To: IBM-MAIN@bama.ua.edu Date: 04/23/2010 10:20 AM Subject:Re: Turning on ACF2 SECURITY Privilege through an exit . . . Hi Tony, We want the users to have the SECURITY privilege while they are using an ISPF application and ONLY while they are using this app. If we grant them SECURITY using a command they will have that privilege the next time they logon to TSO, regardless of the app., and that 'would be wrong' (as Mr. Nixon said). Does this explain it ? Regards, Jon IBM Certified zSeries Technical Specialist, Senior Systems Programmer RDO Americas - Workspace Security D: 212-325-4714 M: 519-500-7927 -Original Message- From: IBM Mainframe Discussion List [?mailto:ibm-m...@bama.ua.edu] On Behalf Of Tony @ Comcast Sent: Friday, April 23, 2010 11:13 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Turning on ACF2 SECURITY Privilege through an exit . . . Is this Friday humor or am I misinterpreting the question? What's the point of losing it after they log off. How could they possibly access anything after they log off (unless they submitted some batch jobs while logged on?). Should their batch jobs lose their authorization after EOJ? Where's my caffeine ? -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Bathmaker, Jon Sent: Friday, April 23, 2010 9:56 AM To: IBM-MAIN@bama.ua.edu Subject: Turning on ACF2 SECURITY Privilege through an exit . . . Hi All, We have a need to grant security to a class of users they log on to a specific app. We want them to lose it when they log off. Ideally there will be a nice exit somewhere where we can set the security bit in memory just after the user has logged onto the app. Thanks. Best Regards, Jon Bathmaker IBM Certified zSeries Technical Specialist, Senior Systems Programmer RDO Americas - Workspace Security D: 212-325-4714 M: 519-500-7927 === Please access the attached hyperlink for an important electronic communications disclaimer: http://www.credit-suisse.com/legal/en/disclaimer_email_ib.html === -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html === Please access the attached hyperlink for an important electronic communications disclaimer: http://www.credit-suisse.com/legal/en/disclaimer_email_ib.html === -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Repro Variable blocked records
Joe Reichman of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 04/22/2010 09:53:37 AM: It's a VB so When I create it in my Easytrieve program I display the record Length and the length includes the trailing blanks is there any way to dump the RDW Yes, use the LIST DUMP subcommand of the PDS command processor (CBT file 182). Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TASID -- Version mismatch?
This is what I have on my system. Version number: 5.18 Compile time : 08.24 on 2009/09/21 LAST LINK-EDITED ON 9/21/09 BY LKED 5695PMB01 V01 M08 AT 08:32:12 SSI INFORMATION: A2009264 MODULE LENGTH 03F410 --254K Regards, John K From: Chase, John jch...@ussco.com To: IBM-MAIN@bama.ua.edu Date: 04/15/2010 01:29 PM Subject:TASID -- Version mismatch? Hi, All, Just downloaded the latest TASID from http://www-01.ibm.com/support/docview.wss?uid=swg24009131 , which says the version is 5.18. However, after installing it here the first panel (still) displays TASID 5.14 - Compiled at 09.22 on 2007/09/25 (the date stamp on the download is 2009/09/21). Was ist los? -jc- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TASID -- Version mismatch?
I would do a DDLIST MEMBER scan to see what loadlibs TASID is in. Regards, John K From: Chase, John jch...@ussco.com To: IBM-MAIN@bama.ua.edu Date: 04/15/2010 01:58 PM Subject:Re: TASID -- Version mismatch? -Original Message- From: IBM Mainframe Discussion List [On Behalf Of John P Kalinich This is what I have on my system. Version number: 5.18 Compile time : 08.24 on 2009/09/21 LAST LINK-EDITED ON 9/21/09 BY LKED 5695PMB01 V01 M08 AT 08:32:12 SSI INFORMATION: A2009264 MODULE LENGTH 03F410 --254K Well, that's what I think I should be seeing here -- A browse of the load module TASID shows this: TASID 5.18 - Copyright International Business Machines Corp, 1993, 2009. And the link-edit entry has: Ø..5695PMB01 |.c.. 810DDCFF4000240822 05256957420101896F031F So I think I should see exactly what you show, rather than what I see. But it's the sandbox, and running z/OS 1.11 for the very first time, so maybe there's something we haven't configured correctly yet (but at this point I have no clue what it could possibly be). Maybe an IPL will fix whatever's wrong :-) -jc- Regards, John K From: Chase, John jch...@ussco.com To: IBM-MAIN@bama.ua.edu Date: 04/15/2010 01:29 PM Subject:TASID -- Version mismatch? Hi, All, Just downloaded the latest TASID from http://www-01.ibm.com/support/docview.wss?uid=swg24009131 , which says the version is 5.18. However, after installing it here the first panel (still) displays TASID 5.14 - Compiled at 09.22 on 2007/09/25 (the date stamp on the download is 2009/09/21). Was ist los? -jc- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: (slightly OT) CA is laying off 1,000 workers and expects to take a $50m hit in pre-tax charges relating to the jobs cull
Peter Hunkeler of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 04/09/2010 09:54:06 AM: Hey zMan, I suggest you identify yourself. It's just part of the netiquette (at least on this list) not to stay anonymous. That especially applies when you're ranting... -- Peter Hunkeler Credit Suisse Years ago, there was an IBM-MAINiac who went by the handle Programmer Extraordinaire who made a remark about a CA employee. When Ron Hawkins and I went to the defense of the CA employee, P-E got miffed and eventually left the list saying he had a Sysplex to manage. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
CA-Spool Message ESF735
CA-Spool 11.5 is issuing message ESF735 CA Health Checker Initialization failed with RC=40 and it is not documented. Any ideas? Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
SHARE 2214 - How to run the PDS Lab at home
Ken Tomiak re-styled the PDS Lab exercise that was given at SHARE in Seattle. He has also included instructions on how to download and run the lab from your home site. These instructions are on slides 100-101. http://ew.share.org/client_files/callpapers/attach/SHARE_in__Seattle/S2214KT103952.pdf Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Moving away from CA-PDSMAN
The PDS command (CBT file 182) supports REFLIST dataset changing and PDS also has a Change Menu panel that allows up to 15 datasets/volsers/disps for dataset changing (this could be extended by making it a scrollable panel). The change menu variables are saved in the ISPF profile. Regards, John K snip of CHGM panel P86CHG@ - CHANGE Dataset Menu - OPTION === Choose one of the following by number (point-and-shoot): Data Set Name Volume Disp 1 'AD.ISPPLIB' 2 'AD.CLIST' 3 'AD.BACKUP.LOGMOD' . . . Note: Volume is volser (default catalog); Disp is SHR or OLD (default SHR) Herman Stocker of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 03/16/2010 09:10:25 AM: Have you looked at the ISPF REFLIST feature? It sounds like just what you are looking for. Regards, Herman Stocker It is impossible to make anything foolproof, because fools are so ingenious. -- Robert Heinlein -Original Message- We are trying to move away from CA-PDSMAN. One feature that our few remaining users like, is the Easyedit feature of a list files that the user commonly edits. Has anyone else moved away from PDSMAN and how did you handle that feature? Is there REXX exec out there that will save a list of commonly edited files (some files are likely under different high level indexes) and store that list over different TSO sessions? Thanks, Duane -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Need tool to zap core
Tom Conley of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 02/24/2010 10:21:07 AM: I have a need to zap core, but my client does not have OMEGAMON. I searched the CBT mods tape and came up empty. What we're trying to do is a SETPROG LPA,ADD, but of course, there's a vector table that needs to be updated with the address of the new module. This is not an SVC, so my only recourse to install this without an IPL is to zap core. Are there any freeware tools out there for zapping core? MXI can zap up to 8-bytes of common storage in batch mode. Regards, John K Function Alters up to eight bytes of common storage. This command can only be executed in BATCH. Command Syntax ZAP address VER(hex) REP(hex) Keywords address The address of the data that you wish to change. This address must reside within one of the following storage locations : CSA SQA R/W Nucleus Extended CSA Extended SQA Extended R/W Nucleus VER(hex) The existing hexadecimal contents at the specified address. REP(hex) The hexadecimal contents that are to be be used to replace the contents specified in VER(). Considerations 1. Use this command with utmost care. Incorrect or mistaken use will most likely cause a complete system outage. 2. The VER() keyword is always required. 3. The length of hexadecimal characters on the VER() and REP() keywords must be equal. 4. By default MXI will issue a WTOR asking for confirmation of the storage alteration. The operator must reply with a 'Y' before the storage contents are changed. 5. By default MXI is shipped with the all users denied access to the ZAP command and specific install actions are required to activate it. Example //ZAPEXEC PGM=MXI,PARM=BATCH //STEPLIB DD DISP=SHR,DSN=your.apf.loadlib //SYSPRINT DD SYSOUT=* //SYSINDD * ZAP FDEF0 VER() REP(0001) /* -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS vs. PDSE
Bruce Hewson of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 02/17/2010 04:09:59 AM: Hello John, there have been many responses.some positive some negative...this is another negative I am sorry! 1. Our developers still regularly break PDSEand we are still getting new APARs assigned as a result. 2. With CICS regions always UP! and connected, the PDSE's do not do auto- compress and release. 3. And we still break PDSE! so the rule here still is No PDSE for production applications unless absolutely required. On Wed, 10 Feb 2010 11:46:57 -0800, John R. Ehrman (408-463-3543 T/543- ) ehr...@vnet.ibm.com wrote: PDSEs have been available for a long time, and provide many advantages over PDSs. Why are people reluctant to use PDSEs? John Ehrman PDSE is not BPAM and it never will be. If IBM would open up the doc on the clandestine Media Manager, then maybe the ISV's could develop some tools (a la catalog recovery). PDSE is a file system that needs real-time transaction backout and recovery. SYSCTLG and SYS1.SYSJOBQE had similar problems back in the day. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: xml files to mainframe
Tim Brown of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 02/17/2010 12:31:12 PM: Is there any way to transfer an xml file to the mainframe and keep the look of it. By default it wraps the entire file into large records. I want this EDIT P08145.XML1 Columns 1 00072 Command === Scroll === PAGE ** * Top of Data ** 01 ?XML VERSION=1.0 STANDALONE=YES ? 02 - DATAPACKET VERSION=2.0 03 - METADATA 04 - FIELDS 05FIELD ATTRNAME=LOCN_ID FIELDTYPE=I4 / 06FIELD ATTRNAME=SERIAL_NUM FIELDTYPE=STRING WIDTH=12 / 07FIELD ATTRNAME=POSITION FIELDTYPE=I2 / 08FIELD ATTRNAME=GROUP FIELDTYPE=I2 / 09FIELD ATTRNAME=CHANNEL FIELDTYPE=STRING WIDTH=2 / 10FIELD ATTRNAME=SOURCE FIELDTYPE=STRING WIDTH=32 / 11FIELD ATTRNAME=STARTED FIELDTYPE=DATETIME / ** Bottom of Data But after transfer I get this BROWSEP08145.XML2Line Col 001 080 Command === Scroll === PAGE * Top of Data ** ?xml version=1.0 standalone=yes? DATAPACKET Version=2. 0METADATAFIE fieldtype=i2/FIELD attrname=CHANNEL fieldtype=string WIDTH=2/FIELD ldtype=i2/FIELD attrname=CONTENT fieldtype=i2/FIELD attrname=UTC_BIAS rname=INDEX fieldtype=i2/FIELD attrname=RAW_VALUE fieldtype=i4//FIEL D attrname=INDEX fieldtype=i2/FIELD attrname=VALUE fieldtype=r8//FIE ELD attrname=VALUE fieldtype=r8//FIELDSPARAMS// FIELDFIELD attrname= IELD attrname=EVENTDETAIL fieldtype=nestedFIELDSFIELD attrname=TIME_STA nestedFIELDSFIELD attrname=TIME_STAMP fieldtype=dateTime/FIELD attrn FIELD attrname=POSITION fieldtype=i2/FIELD attrname=TIME_STAMP fieldty N_ID=6420005 SERIAL_NUM=06420005 POSITION=10 GROUP=1 CHANNEL=M SOURCE= ON=1 INDEX=1 RAW_VALUE=6012089/ROWCONFIG POSITION=1 INDEX=2 RAW_VALU What platform are you doing the FTP from? In general, if you FTP a file with end of record characters (CR/LF) to an existing MVS file, you should get what you want. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS vs. PDSE
Ron Hawkins of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 02/11/2010 04:28:45 AM: Barbara, The JCL Reference Manual still shows BUFNO and NCP as valid parameters for BPAM. Ron You have me wondering if the block chaining strategy for PDSE is different to PDS, and that perhaps adding buffers to the Fault Analyzer's allocation will speed things up for you. I think that BUFNO and NCP are ignored for PDSE's. Let me check the doc for sure. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Doofus recovery routine
Barbara Nitz of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 02/11/2010 01:12:05 AM: Jim, Now, if you have some doofus recovery routine that does a retry and then issues SDUMP (and I have seen some of those), then SLIP cannot suppress it because there is no longer any time of error context for SLIP to match against. The doofus recovery routine is right in z/OS code, in the oh-so-new-and- improved console code: SFTABN 02 RIDS/UNKNOWN#L RIDS/UNKNOWN AB/S0878 PRCS/0010 RIDS/IGDCATER#R SFTABN 02 RIDS/UNKNOWN#L RIDS/UNKNOWN AB/S0878 PRCS/0010 RIDS/IGDCATER#R SFTABN 02 PIDS/5752SC1CK RIDS/CNZINLPA#L RIDS/CNZS1XIT AB/S0878 PRCS/0010 REGS/0C038 RIDS/CNZMIREC#R CNZ code is the culprit writing all the dumps! They haven't learned anything, despite your intervention a few years back. And we *do* have a generic 878 slip trap in place. Oh, and did I mention that iecvexpr is flooding logrec with symptom records? Probably caused by some sort of overlay. The whole incident took from 13 41 29 to 14 15 47 , has a lot more lost records in logrec than recordedproblems *and* wrote 16 useless dumps (useless, because they ALL don't contain LDA). That includes the dump that CATALOG wrote when the CAS service task was abended B1A and refered me back to the 878 dumps for 'the cause'. Logrec contains 4104 actual entries, not counting about 5 times as many lost records. Talk about intelligence in recovery! Regards, Barbara ps: sorry to be curt with you, Jim, I am well aware that you do your best to make them 'see the light', they just don't listen to you! When we pick teams, I want to be on Barbara's side. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Compuware FileAid to IBM FileManager Conversion
Peter Farley of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 02/10/2010 08:26:27 AM: I am told by my sysprogs that Fault Analyzer requires the ADATA output file of the compiler to be allocated in the production JCL in order to analyze production abends the first time they occur. This is a non-starter for us, thousands of JCL's would have to change. YMMV. You can specify the compiler listing PDS names in the Fault Analyzer PARMLIB member IDICNFxx, so you do not have to change any JCL. If the compiler listing is not available, FA will perform a real-time analysis of the abend, but it will not use any source code information. After the fact, FA can perform an interactive re-analysis of the abend using the information written to the FA History file. Before re-analysis, FA will prompt you for a compiler listing file. This gives you the option to compile after abend and let FA use that source code information. Regards, John K -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Vince Getgood Sent: Wednesday, February 10, 2010 5:10 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Compuware FileAid to IBM FileManager Conversion I'd also be interested in any comments, as we're looking to do exactly the same thing. We're also considering replacing: - Abend/AID Abend/AID CICS with Fault analyser Xpediter TSO Xpediter CICS with Debug tool Strobe iStrobe with Application performance analyser -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Compuware FileAid to IBM FileManager Conversion
Otto Shumacher of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 02/10/2010 09:21:09 AM: Do I understand correctly Fault analyzer software can eliminate the need for Dumpmaster(Macro4) and/or the Abendaid products(Compuware)? Is this also true for CICS and IMS online dumps? We replaced Abend-Aid with Fault Analyzer. There is some good web-based training on Fault Analyzer at the IBM Education Assistant site, http://publib.boulder.ibm.com/infocenter/ieduasst/stgv1r0/index.jsp. There is a section on CICS, IMS, and DB2 applications. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS vs. PDSE
John Ehrman of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 02/10/2010 01:46:57 PM: PDSEs have been available for a long time, and provide many advantages over PDSs. Why are people reluctant to use PDSEs? I think of a few... 1. Lack of internal documentation. 2. Former requirement that they must be SMS managed. 3. No recovery of deleted/updated members. 4. Performance. I don't see IBM using them very much. Only nine SYS1 datasets are PO-E. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
PIES Security Server (Was: z/OS V1R11 Security Error)
R.S. of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 01/22/2010 03:02:57 PM: W dniu 2010-01-22 17:25, Mark Steely pisze: I am installing z/os V1R11 and I am trying to delete an alias through 3.4. I am receiving the following error: IDC3018I SECURITY VERIFICATION FAILED+ IDC0551I ** ENTRY TDOUG01 NOT DELETED IDC0014I LASTCC=8 IDC3009I ** VSAM CATALOG RETURN CODE IS 56 - REASON CODE IS IGG0CLFT-36 *** Is there a FACILITY class that I need to be given access? It is very good that you saved us a view at all the details. The details can be shocking for us or just to obvious - so there would be no fun in guessing what's wrong on your system. Seriously: provide IDCAMS command, security server name (RACF, ACF2, TopSecret, PIES, Deadbolt) and security server message if available (CIH408I for RACF). I guess you want to delete TDOUG01 - can you provide profile name covering that alias? -- Radoslaw Skorupka Lodz, Poland I have never heard of the PIES security product. Who markets that? Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: REXX to delete all members of a PDS... serverpac CPPEDELM
Ed Jaffe of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 01/20/2010 11:34:29 AM: Paul Gilmartin wrote: On Wed, 20 Jan 2010 10:47:58 -0600, Rick Fochtman wrote: Then I came up with a little QSAM program that set the entire directory to zeros and placed the x'' in the key and first member name of the first block. Then IBM invented PDSE and spoiled all your fun. Does this technique NOT work with PDSE? -- Edward E Jaffe You have to use STOW I(nitialize) for a PDSE. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Getmain Freemain?
Jeffrey Deaver of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 01/19/2010 01:34:11 PM: STR5,SAVER5 GETMAIN EC,LV=(5),A=TABLADDR,SP=2 L R5,SAVER5 FREEMAIN R,LV=(5),A=TABLADDR,SP=2 SAVER5 DCF'0' So I think I have the form right, its not complaining about the FREEMAIN being invalid anymore, but its also not working as I would expect it. Initially, it was complaining because I did not have a subpool specified, and SP0 was being used, and my program can not free subpool 0 space. Watching the job execute in the landmark activity monitor, the storage being consumed is still from SP0 and the freemain is obviously not doing what its suppose to. I know I get to the statement, because if I screw up the form, it complains when it is executed, but the storage in SP0 keeps heading up. So - any ideas why it isn't grabbing storage from SP2, and why the FREEMAIN isn't working? M. On the flip side. I was thinking there might be a way in the REXX script that calls this thing in a loop to 'reset' itself each time - like its a step end, but not really since I can't lose the other REXX variables I'm using in there. Let me take a SWAG at this. You do not need to specify the SP keyword parameter on the GETMAIN/FREEMAIN macros, but that is not the problem. Are you sure the FREEMAIN is being executed? Do you have it before the exit code? For example... L R5,SAVER5 FREEMAIN R,LV=(5),A=TABLADDR,SP=2 L R13,4(R13) RETURN (14,12),RC=0 Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDSE allocated and used space
Mark Zelden of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 01/16/2010 11:48:56 PM: These days, it would be better to use the ISPF DSINFO service - especially if you are dealing with PDSEs. Of course that means running ISPF in batch too. I was going to provide a link to the fine manual, but the site seems to be down at the moment. Call the DSINFO service using ISPLINK, then VCOPY the (ZDSPAGU ZDSPERU) variables. The PDS command processor (CBT file 182) does this. When I run ISPF in batch I execute a minimal TSO/ISPF PROC with PARM= and override the necessary DD names (SYSTSPRT, SYSTSIN, ISPPROF). In the SYSTSIN stream, use ISPSTART PGM to launch your main program. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Source code for s/360
Lindy Mayfield of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 01/16/2010 10:29:56 PM: Does anyone know where I can find the source code for early s/360 operating systems, especially PCP? I've googled till the cows come home and haven't found it yet. Rick Fochtman used to produce a MVT source CD. It may be available on the CBT site. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Problem calling IKJEFTSR from batch
Jim McAlpine of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 12/11/2009 04:55:59 AM: We have a long running batch job that calls IKJTSOEV and then IKJEFTSR to run a REPRO command. Before calling IKJTSOEV the program allocates SYSTSPRT as a disk dataset. The sequence of events works and the REPRO completes with output in the SYSTSPRT dataset but when we deallocate the SYSTSPRT dataset we get a dynamic allocation error Ret=04, Err=001056 (hex 420) which says that we are trying to deallocate an open dataset. We need this long running task to be able run this sequence of events a number of times. How can we get the SYSTSPRT dataset closed. RTFM it seems that this would normally happen at step termination but our batch job could run for hours servicing requests for work. Your batch program could issue a LINK EP=IDCAMS. Before the link, you would have to allocate SYSIN, open for output, and write the REPRO statement, then close; and allocate SYSPRINT to a disk dataset as DISP=MOD. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Filezilla, was Ipswitch WS_FTP Pro 12 not displaying OMVS directories correctly
Dave Gibney of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 12/03/2009 12:48:37 PM: -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Scott Sent: Thursday, December 03, 2009 8:55 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Ipswitch WS_FTP Pro 12 not displaying OMVS directories correctly I always use FileZilla which I'm not the fondest of. But it works! Last I tried, the current version of Filezilla didn't to z/OS SSL secured FTP. Has that changed? Filezilla supports FTP TLS/SSL transfers. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JES2 Dynamic Proclibs - Advantages?
Luke Rabbe of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 11/23/2009 07:54:28 AM: I know that using dynamic proclibs gives you the ability to change the proclib concatenations dynamically and also the ability to rebuild pointers if a library has gone into extents or been compressed. My shop uses static concatenations. We haven't needed to change the proclib concatenations in several years and JCL can be used to rebuild JES2's pointers if needed. I'd like to convert to dynamic proclibs because it seems more modern and cooler. But I wonder if it's really necessary for my installation and maybe I'd just be doing work for work's sake. Any opinions? Am I missing some benefits? One benefit of JCLLIB might be reduced search time for a procedure. Another might be documentation when looking for the source of the PROC. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Reentrant Programs and Protected Storage
w = Well? s = Surprise? David Sheen of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 11/20/2009 11:27:00 AM: At 08:06 AM 11/20/2009 +0100, you wrote: WWwsswWW And this means what? Peter Hunkeler Credit Suisse I was wondering the same thing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEBUPDTE Supports Only LRECL =80 :-(
PDSLOAD from the CBT (file 093) can handle LRECL =256. Regards, John K Ed Jaffe of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 11/12/2009 11:13:25 AM: The 80-column punch card is still haunting me... Setting up an infrastructure for some new development, I recently discovered (the hard way) that IEBUPDTE works only with LRECL = 80. I find this to be an incredibly oppressive restriction. I now have need for IEBUPDTE function with LRECL 80. Has someone written a utility, perhaps available via CBT tape, that performs IEBUPDTE-like functions with LRECL 80? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LMCOPY failure
Ed Jaffe of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 10/16/2009 12:27:38 PM: We have some internal, ISPF-based batch utilities that help package (E)JES. Our service update utility is suddenly failing on an LMCOPY. This has been working for many years. Something has changed--perhaps via the service stream, perhaps due to some ISPF or system option I changed. LMCOPY is detecting RC=4 from IEBCOPY--which it uses internally to copy load modules--because a page-aligned module doesn't get reblocked and considering that a hard failure. (See below.) I'm sure it will take many weeks for IBM to come up with a permanent solution. I'm wondering if anyone knows a workaround I can use to quickly get out of this situation and get this utility working again...TODAY! 10:03 Start of ISPF Log - - - - Session # 275 --- 10:03 TSO - Command - - %SRVUPDAT 470 1 10:04 * Dialog Error * - Application(ISP); Function Command (SRVUPDAT); Service(LMCOPY) 10:04 Line from cmd:- lmcopy fromid( ISR00021 ) frommem( EJESPTF ) todataid( ISR00022 ) replace 10:04 IEBCOPY failed- IEBCOPY failed during copy. An IEBCOPY listing was created and is in data set 10:04 EJES.EDJX2.SPF659.IEBCOPY. IEB1135I IEBCOPY FMID HDZ1A10 SERVICE LEVEL NONE DATED 20080414 DFP3,3,2 1 IEB1035I SRVUE470 SRVUPDAT 10:04:09 FRI 16 OCT 2009 PARM='' COPYMOD OUTDD=ISP10072,INDD=((SYS00071,R)) S M=(EJESPTF) IEB190I MAXIMUM BLOCK SIZE IS 6144, MINIMUM BLOCK SIZE IS 1024 IEB1013I COPYING FROM PDS INDD=SYS00071 VOL=MVSNV0 DSN=SYS3.E470.AEJELMOD IEB1014I TO PDS OUTDD=ISP10072 VOL=MVSNV1 DSN=EJES.PROD470.QEJ4700.F2 IEB167I FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY SYS00071 IEB19CI MEMBER EJESPTF COPIED AS IS THEN ALTERED, MODULE IS PAGE-ALIGNED. *** MEMBER WAS NOT REBLOCKED. *** IEB1098I 1 OF 1 MEMBERS COPIED FROM INPUT DATA SET REFERENCED BY SYS00071 IEB144I THERE ARE 10 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY ISP10072 IEB149I THERE ARE 3 UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY IEB151I JOB HAS TERMINATED WITH ERROR(S) IEB147I END OF JOB - 4 WAS HIGHEST SEVERITY CODE Why don't you make your output PDS the same blocksize (6144) as the input PDS. Then it should work. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mark Thomen
Rick Fochtman of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 10/09/2009 02:18:53 PM: Mark Thomen withdrew from the list some time ago, IIRC, due to health issues. Does anyone know his current status? He was a very welcome and knowledgeable contributor, as well as a friend to all. I miss Mark's comments. I finally got to meet him at SHARE in NYC. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSO HELP TEXT FOR LIST OF COMMANDS
Gilbert Saint-Flour of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 10/08/2009 01:59:12 AM: Gilbert Saint-Flour usenet5...@yahoo.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Bill Godfrey wrote: Try sys1.help(commands). That's what I needed, thank you. I previously ran a search on SYS1.HELP and, for some reason, found IKJEFH90 but not COMMANDS - no idea why. Sorry I bothered IBM-MAIN with something like that. I currently plan to build an addendum to COMMANDS that lists all theSYS1.HELP members (which I have on my PWD system) and will distribute it. Something else I'm thinking about is an ISPF panel which displays the HELP list. If you have ideas on these projects, please let me know. My initial problem was to find the name of some RACF commands I wantto run in batch, and when I looked at SYS1.HELP, I saw plenty of other commands. I think building a COMPLETE LIST OF COMMANDS displayed by the HELP command would be useful (to me and perhaps to a few other people). BTW, I recently added the FSHELP command (Full-Screen HELP) to the freeware file I distribute. FSHELP uses STEMEDIT to BROWSE or VIEW the output of the HELP command. It's all here: http://gsf-soft.com/Freeware/ FSHELP (alias of REVIEW) from CBT file 134 will display the COMMANDS member of SYSHELP if no operand is given. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
