Re: FB to VB PDS
Quoting my dearly departed mother, Is this the biggest problem in your life today? -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Godfrey Sent: Saturday, February 14, 2015 1:46 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: FB to VB PDS The IEBUPDTE step in your JCL doesn't do what you think it does. Although the step ends with return code 0, the resulting PDS is RECFM=F LRECL=80 BLKSIZE=80. Bill On Fri, 13 Feb 2015 09:59:03 -0800, Sri h Kolusu wrote: It certainly can be done. We did not hear anything from OP and hence did not show the IEBPTCH - SORT - IEBUPDTE route. For anyone who is interested here is the JCL //** //* PUNCH ALL MEMBERS TO A SEQUENTIAL FILE (CREATES AN FBA FILE) * //** //STEP0100 EXEC PGM=IEBPTPCH //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=Your Input FB PDS //SYSUT2 DD DSN=amp;PDSMEM,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE) //SYSINDD * PUNCH TYPORG=PO //* //** //* CREATE CONTROL CARDS AS INPUT FOR IEBUPDTE PROGRAM* //** //STEP0200 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=amp;PDSMEM,DISP=SHR //SORTOUT DD DSN=amp;O,DISP=(,PASS),SPACE=(CYL,(Y,Y),RLSE),RECFM=FB //SYSINDD * OPTION COPY INREC BUILD=(2,80) OUTREC IFTHEN=(WHEN=(1,11,CH,EQ,C'MEMBER NAME'), BUILD=(C'./ ADDNAME=',14,8,80:X)) //* //** //* CREATE A VB PDS FROM A SEQUENTIAL FB FILE * //* X = Primay Space Y = Secondary Space Z = Directory Blocks * //* 1 Directory Block can contain 5 or 6 members * //* DirBlocksReq = INT(Num Of Member To Create / 5 + .99 ) * //** //** //STEP0300 EXEC PGM=IEBUPDTE,PARM=NEW,COND=(0,NE,STEP0200) //SYSUT2 DD DSN=Your Output VB PDS, //DISP=(NEW,CATLG,DELETE), //UNIT=SYSDA, //DCB=(RECFM=VB,LRECL=84), //SPACE=(CYL,(X,Y,Z),RLSE) //SYSPRINT DD SYSOUT=* //SYSINDD DSN=amp;O,DISP=(OLD,PASS) Thanks, Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FB to VB PDS
Not being sure if the original post required individual members, the output of IEBPTPCH could be modified. from :MEMBER NAME to ./ ADDetc etc so as to provide input to IEBUPDTE. I'm not sure of how trailing blanks will be treated. I did something like this years ago, but in reverse, VB to FB. I had the luxury of PDSMAN but the concept is the same. Editorial P.S. : I never liked VB in the past, still don't, won't like it for the next few months. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Friday, February 13, 2015 10:21 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: FB to VB PDS Paul, Yes I am offering him a choice as you can get both. If your shop has FILE Manager you can use the following JCL FB to VB PDS //** //* COPY ALL MEMBERS FROM FB PDS AND CREATE A VB PDS * //* X = Primay Space Y = Secondary Space Z = Directory Blocks * //* 1 Directory Block can contain 5 or 6 members * //* DirBlocksReq = INT(Num Of Member To Create / 5 + .99 ) * //** //STEP0100 EXEC PGM=FILEMGR //SYSPRINT DD SYSOUT=* //DDIN DD DISP=SHR,DSN=Your Input FB PDS //DDOUTDD DSN=Your Output VB PDS, //DISP=(NEW,CATLG,DELETE), //DCB=(RECFM=VB,LRECL=84), //SPACE=(CYL,(X,Y,Z),RLSE) //SYSINDD * $$FILEM DSC INPUT=DDIN OUTPUT=DDOUT MEMBER=* //* FB to VB Sequential File //** //* COPY ALL MEMBERS FROM FB PDS AND CREATE VB SEQUENTIAL FILE* //** //STEP0100 EXEC PGM=FILEMGR //SYSPRINT DD SYSOUT=* //DDIN DD DISP=SHR,DSN=Your Input FB PDS //DDOUTDD DSN=Your Output VB Seq file, //DISP=(NEW,CATLG,DELETE), //DCB=(RECFM=VB,LRECL=84), //SPACE=(CYL,(X,Y),RLSE) //SYSINDD * $$FILEM DSC INPUT=DDIN OUTPUT=DDOUT MEMBER=* //* If you don't have File manager then you can go the traditional route of punching(PGM=IEBPTPCH) the pds members to a sequential dataset and then using SORT to create the VB file. //** //* PUNCH ALL MEMBERS TO A SEQUENTIAL FILE (CREATES AN FBA FILE) * //** //STEP0100 EXEC PGM=IEBPTPCH //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=Your Input FB PDS //SYSUT2 DD DSN=PDSMEM,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE) //SYSINDD * PUNCH TYPORG=PO //* //** //* PUNCH ALL MEMBERS TO A SEQUENTIAL VB FILE * //** //STEP0200 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=PDSMEM,DISP=SHR //SORTOUTDD DSN=Your Output VB Seq file, //DISP=(NEW,CATLG,DELETE), //RECFM=VB, //SPACE=(CYL,(X,Y),RLSE) //SYSINDD * OPTION COPY OMIT COND=(2,11,CH,EQ,C'MEMBER NAME') INREC BUILD=(2,80) OUTFIL FTOV //* Thanks, Kolusu DFSORT Development IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 02/12/2015 04:35:05 PM: From: Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu To: IBM-MAIN@LISTSERV.UA.EDU Date: 02/12/2015 04:35 PM Subject: Re: FB to VB PDS Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On 2015-02-12 16:17, Sri h Kolusu wrote: Fred, Do you need the Output to be also a PDS? or sequential file with contents of each member written one after another? Are you offering him a choice? I suppose there's a middle ground: All the input members concatenated into a single member of the output PDS. IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 02/12/2015 03:04:28 PM: From: Fred Kaptein fred.kapt...@hp.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 02/12/2015 03:05 PM Subject: FB to VB PDS Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Does any one have any conversion utilities to copy a complete PDS of many members from FB to VB format. Won't ISPF Copy utility do this? Do you want trailing blanks preserved? Stripped? Other (specify)? I was much vexed decades ago when I used ISPF Copy with binary data, PS VB to PS VB, IIRC, and all trailing x'40' vanished. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to
Re: XREF Members of JCL libs and their datasets
No no, John is correct. Page 1 of the installation guide states: My, you are handsome! -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mitch Sent: Friday, February 13, 2015 12:09 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: XREF Members of JCL libs and their datasets the problem obviously was between the chair and the keyboard. Mitch -Original Message- From: Chase, John jch...@ussco.com To: IBM-MAIN IBM-MAIN@LISTSERV.UA.EDU Sent: Fri, Feb 13, 2015 12:00 pm Subject: Re: XREF Members of JCL libs and their datasets You originally wrote complimentary, which in some contexts does mean free (of charge or cost). Perhaps you meant complEmentary instead? -jc- -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mitch Sent: Friday, February 13, 2015 11:44 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: XREF Members of JCL libs and their datasets good one. Love your sense of humor! Mitch -Original Message- From: J R jayare...@hotmail.com To: IBM-MAIN IBM-MAIN@LISTSERV.UA.EDU Sent: Fri, Feb 13, 2015 10:31 am Subject: Re: XREF Members of JCL libs and their datasets RES Suite is comprised of over 20 complimentary and synergistic products So, they're free! === Date: Fri, 13 Feb 2015 08:11:07 -0800 From: charl...@mcn.org Subject: Re: XREF Members of JCL libs and their datasets To: IBM-MAIN@LISTSERV.UA.EDU Someone should tell Tivoli LOL: http://www.tivoliassociates.com/education Charles -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ** Information contained in this e-mail message and in any attachments thereto is confidential. If you are not the intended recipient, please destroy this message, delete any copies held on your systems, notify the sender immediately, and refrain from using or disclosing all or any part of its content to any other person. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FB to VB PDS
Or in my case, EE, forever is July 1. (he he he) -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Elardus Engelbrecht Sent: Friday, February 13, 2015 12:11 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: FB to VB PDS Tony's Basement Computer wrote: Editorial P.S. : I never liked VB in the past, still don't, won't like it for the next few months. Then you will hate, hate, HATE the VBS forever, forever until in eternity in all and every far, far away galaxies... ;-D :-D ;-D PS: VB and VBS are deadly traps for inexperienced programmers, trust me. I had the 'privilege' to heal those programmers wounds caused by messy and dirty abends... Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: What exactly does SHRD tell me in the IEF032I step end message?
Geez Jim, you been hangin' around Metz too long. :-) -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jim Mulder Sent: Monday, January 26, 2015 1:16 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: What exactly does SHRD tell me in the IEF032I step end message? IEF032I STEP/UTIL/STOP 2015021.1318 CPU: .. VIRT: 9832K SYS: 840K EXT: 1539796K SYS: 18188K ATB- REAL: 716K SLOTS: 32K VIRT- ALLOC: 67M SHRD: 1015808M This tells me that the step has as much as 67M above the bar storage allcated (highwater mark). This was backed by up to 716K of fral frames (also highwater mark). Now here are my questions: a) Does SLOT mean slots on AUX only, or would this include slots on FlashExpress used for paging? The value displayed is RAXHVGAuxSlots * 4 SYS1.MODGEN(IARRAX) RAXHVGAuxSlots DS 0D High water mark RAXHVGAux DS D High water mark for the * number of aux slots and SCM * blocks used to back 64-bit * private storage b) Both REAL and SLOTS are in KiB, not frames and pages, right? Yes. c) What does the SHRD mean? This what the manual says: SHRD: Indicates the maximum megabytes of above the bar shared virtual storage (high-water mark) that were accessable by the step. Do the REAL and SLOTS numbers include the frames/pages from the shared area? No. Jim Mulder z/OS System Test IBM Corp. Poughkeepsie, NY -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Another df/sort objective.
Guys, I have a classic case of WHEN=GROUP processing.I have an input file FB/80: Header1..data-I-need-in-column 1 Detail1.data-I-need-in-column 10 Detail2.data-I-need-in-column 20 Detail3..data-I-need-in-column 30 Header2... data-I-need-in_column 1etc Detail1. etc Detail2.. etc Detail3...etc Detail4...etc Header3.etc etc My output record, FB/any-length, I wish to consist of Header-data,detail1-data,detail2-data,detailn...data.etc etc I can do this in 2 passes but I'd like to achieve in 1. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Another df/sort objective.
The first pass consists of: INREC IFTHEN=(WHEN=GROUP, - Define the Group.. BEGIN=(1,10,CH,EQ,C'HEADER-REC '),- Group begins.. PUSH=(81:ID=5)) - Add seq number... The second pass is a JOINKEYS operation using the sequence number as a key. For each header there will be a minimum of zero and a maximum of 5 80 byte detail records. Each detail record type can be readily identified so that I can pick up the detail data from differing columns. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Friday, January 23, 2015 11:49 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Another df/sort objective. Tony, You can use ICETOOL's RESIZE operator to merge multiple records into a single record. Is the number of detail records a variable one or is it a fixed number of detail records? RESIZE works with fixed number of records. Another alternative is to use IFTHEN processing with WHEN=GROUP or SPLICE and merge them into a single record. You also need to consider the LRECL limits. 32760 for FB records which would allow roughly about 409 records each with 80 bytes of length. Show me the 2 step process you used and may be I can suggest an alternative of combining the 2 passes into a single pass. Thanks, Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 01/23/2015 09:40:49 AM: From: Tony's Basement Computer tbabo...@comcast.net To: IBM-MAIN@LISTSERV.UA.EDU Date: 01/23/2015 09:41 AM Subject: Another df/sort objective. Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Guys, I have a classic case of WHEN=GROUP processing.I have an input file FB/80: Header1..data-I-need-in-column 1 Detail1.data-I-need-in-column 10 Detail2.data-I-need-in-column 20 Detail3..data-I-need-in-column 30 Header2... data-I-need-in_column 1etc Detail1. etc Detail2.. etc Detail3...etc Detail4...etc Header3.etc etc My output record, FB/any-length, I wish to consist of Header-data,detail1-data,detail2-data,detailn...data.etc etc I can do this in 2 passes but I'd like to achieve in 1. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Boston - what a place
The entry for Congerville, IL is incorrect. A farmer called it in using the C scale. I drove right by that morning and laughed at the radio. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Tuesday, January 13, 2015 8:11 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Boston - what a place On Tue, 13 Jan 2015 00:05:53 -0600, Ed Gould wrote: I'm originally from North Dakota and experienced -41F in the winter and 108F in the summer. I finally had enough of that and moved to Colorado 18 years ago. Bill So what is better -41 year around in colorado or the occasion +106's ? !? http://en.wikipedia.org/wiki/U.S._state_temperature_extremes And: http://www.eol.ucar.edu/cgi-bin/weather.cgi?site=flunits=englishperiod=monthly (reading from the graph) shows -15F and +60F in the past 30 days. No -41F. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Enumerating User IDs (was: CANCEL TSO Logon?)
Yep. BTW, how did Mr. Mainframehacker get to the TSO log on screen? Did someone provide the magic VTAM command? I ask from ignorance because I didn't watch 100% of the video and I'm not connect literate. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Frank Swarbrick Sent: Monday, January 05, 2015 6:06 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Enumerating User IDs (was: CANCEL TSO Logon?) Something like this?ICH408I USER(MYPSWD99) GROUP() NAME(??? ) LOGON/JOB INITIATION - USER AT TERMINAL DVDU NOT RACF-DEFINED The above was generated using the CICS CESN signon transaction. From: Tony's Basement Computer tbabo...@comcast.net To: IBM-MAIN@LISTSERV.UA.EDU Sent: Monday, January 5, 2015 9:57 AM Subject: Re: Enumerating User IDs (was: CANCEL TSO Logon?) Back years ago I worked at a Top Secret shop. That product wrote a console message when a log on attempt has occurred that specified an unknown user. Sadly, what was usually seen was a password. It's been years since I was in that business so I don't know if that display is a configurable option. Sidebar: I watched video and I found it dismaying. The presenter spoke in demeaning tone of the traditional terminology to which we are all familiar which I found insulting. I felt he acted proud that *his* technology was superior because *his* terms are more current, thus better. I felt he made some assumptions in his presentation that would lead the uninitiated to believe that these exposures exist in all cases and in all environments. Stipulating that a deficiently configured z/OS-RACF (or TS or ACF2) shop could present these opportunities, I feel he should have made this disclaimer at the outset. Had he done so I might have taken him more seriously. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Monday, January 05, 2015 10:35 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Enumerating User IDs (was: CANCEL TSO Logon?) SMF and console messages to record logon/authentication failures. These could be intercepted in real time to alert someone of unusual probing while it is occurring Yup! Come to either of my sessions at SHARE to learn about how to do that (albeit with one of several commercial products). Unfortunately I know of no way to intercept in real time the invalid userid at its initial usage and possible validation as opposed to when it is actually used for a logon with password. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joel Ewing Sent: Monday, January 05, 2015 8:18 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Enumerating User IDs (was: CANCEL TSO Logon?) On 01/05/2015 09:35 AM, Paul Gilmartin wrote: On Mon, 5 Jan 2015 07:21:28 -0800, Charles Mills wrote: For TSO, you can probe for known user ids, but you will see a lot of LOGON and IEA989I message in the SYSLOG. Only if you set a specific SLIP trap for this condition. In the video cited: On Jan 2, 2015, at 3:31 PM, Mark Regan wrote: Black Hat 2013 - Mainframes: The Past Will Come to Haunt You, by a Philip Young and it's about an hour long. http://youtu.be/uL65zWrofvk ... the speaker opined that such probing is less likely to be detected by Security than by Operations as a spike in CPU usage. -- gil RACF uses SMF and console messages to record logon/authentication failures. These could be intercepted in real time to alert someone of unusual probing while it is occurring. We used independent review of daily summary reports generated from RACF SMF records to verify that such probing had not occurred, just the typical typos and forgotten passwords from terminals within the corporation. With our normal system workload, someone would have been more likely to notice a flood of unusual console messages than see any noticeable impact on CPU. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CANCEL TSO Logon?
Being old enough to remember the pre-Protected days, when this feature appeared we implemented it into every user profile we could find that satisfied the criteria. Zero pain, more uninterrupted sleep. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lester, Bob Sent: Monday, January 05, 2015 6:07 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: CANCEL TSO Logon? Hey Lou, BTDT, *very* painful. Had to learn that one the hard way. Cheers! BobL -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lou Losee Sent: Monday, January 05, 2015 4:56 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: CANCEL TSO Logon? [ EXTERNAL ] Hopefully all of your started proc user ids are PROTECTED otherwise those 3 invalid password attempts could cause you big problems. Lou -- Artificial Intelligence is no match for Natural Stupidity - Unknown On Mon, Jan 5, 2015 at 2:21 PM, Mike Schwab mike.a.sch...@gmail.com wrote: On Mon, Jan 5, 2015 at 9:45 AM, Vernooij, CP (ITOPT1) - KLM kees.verno...@klm.com wrote: What is the point in trying to find a valid userid, if the userid will be suspended after trying 3 invalid passwords (in our situation)? Kees. But not if you keep rotating IDs. It is three in a row for the same ID. -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN This e-mail transmission may contain information that is proprietary, privileged and/or confidential and is intended exclusively for the person(s) to whom it is addressed. Any use, copying, retention or disclosure by any person other than the intended recipient or the intended recipient's designees is strictly prohibited. If you are not the intended recipient or their designee, please notify the sender immediately by return e-mail and delete all copies. OppenheimerFunds may, at its sole discretion, monitor, review, retain and/or disclose the content of all email communications. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CANCEL TSO Logon?
I once suggested to management that we secure our z/OS user profiles. At the time they were used as EMAIL addresses as well. I explained the scenario of rotating IDs as Mike suggested it could lead to a DoS exploitation. Naturally the EMAIL people prevailed.sigh. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mike Schwab Sent: Monday, January 05, 2015 2:21 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: CANCEL TSO Logon? On Mon, Jan 5, 2015 at 9:45 AM, Vernooij, CP (ITOPT1) - KLM kees.verno...@klm.com wrote: What is the point in trying to find a valid userid, if the userid will be suspended after trying 3 invalid passwords (in our situation)? Kees. But not if you keep rotating IDs. It is three in a row for the same ID. -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CANCEL TSO Logon?
.a user without a TSO segment ? -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Boris Lenz Sent: Monday, January 05, 2015 9:44 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: CANCEL TSO Logon? On Mon, January 5, 2015 16:29, Charles Mills wrote: I see no console message at all (absent some SLIP trap) for simply testing a userid (as opposed to a userid and password). Did I miss it? But you can probe for a valid userid on the logon panel. No message to the syslog. If you don't get IKJ56420I USERID user_id NOT AUTHORIZED TO USE TSO on the logon screen then you know you have a valid TSO userid. That's why I think it would be sane to omit this message. But oh well Regards, Boris P.S. To Paul Gilmartin's (Why?) [is the userid field not modifyable], that's probably so you don't log in with USERIF's procedure, region size and Command, etc... since they get pulled from the TSO segment. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CANCEL TSO Logon?
DoS, revoke all the non-Special and non-Protected users. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Vernooij, CP (ITOPT1) - KLM Sent: Monday, January 05, 2015 9:46 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: CANCEL TSO Logon? What is the point in trying to find a valid userid, if the userid will be suspended after trying 3 invalid passwords (in our situation)? Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Boris Lenz Sent: 05 January, 2015 16:44 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: CANCEL TSO Logon? On Mon, January 5, 2015 16:29, Charles Mills wrote: I see no console message at all (absent some SLIP trap) for simply testing a userid (as opposed to a userid and password). Did I miss it? But you can probe for a valid userid on the logon panel. No message to the syslog. If you don't get IKJ56420I USERID user_id NOT AUTHORIZED TO USE TSO on the logon screen then you know you have a valid TSO userid. That's why I think it would be sane to omit this message. But oh well Regards, Boris P.S. To Paul Gilmartin's (Why?) [is the userid field not modifyable], that's probably so you don't log in with USERIF's procedure, region size and Command, etc... since they get pulled from the TSO segment. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: article that may be of interest to some of us
Agreed, and I even convinced my 2 buddies, the 71 year old heart surgeon and the 70 year old pilot. I figured I'd change careers eventually, maybe I'll drive the courtesy van at my local Cadillac dealer. ;-) -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Barkow, Eileen Sent: Monday, December 22, 2014 8:07 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: article that may be of interest to some of us http://www.cmswire.com/cms/customer-experience/are-you-too-old-to-work-in-te ch-its-midlife-crisis-026821.php?utm_source=disqusutm_medium=cm-140129utm_ campaign=cm#null -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Utility to replace occurrences of string in PDS?
This thread brings back a memory from back in the day when they actually paid me to be a SYSPROG. IPOUPDTE was all we had so we added a step to load the sacred member, do the changes, delete the member in a following step. Annoying, like my new Keurig coffee machine. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of van der Grijn, Bart (B) Sent: Tuesday, December 16, 2014 1:30 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Utility to replace occurrences of string in PDS? There used to be a zap for IPOUPDTE to get rid of the $$$COIBM requirement. Google IPOUPDTE ZAP. Don't know if they still work. But it is likely worth the quick search and test if you need the functionality. Bart -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Tuesday, December 16, 2014 2:01 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Utility to replace occurrences of string in PDS? When I tried IPOUPDTE on my PDS I got an error IPO006 FILE @PDS INVALID FOR IPOUPDTE that I resolved by adding a member $$$COIBM, so I conclude that the restriction is still there, at least on the copy on my V2R1 system. It's a GREAT little utility except for the stupid kneecapping. FWIW, here is the resolution of my requirement: No FileAid, no File Manager. CBT 040 is really complex, lightly-commented assembler code from the dark ages (31 bit? reentrance? what's that?) and way overkill for what I want. IPOUPDTE would be *perfect* except for the $$$COIBM restriction. Yes, I can work around that, but the result is kind of an offensive kludge. I wrote a little Rexx program, cannibalizing some Rexx I had lying around. Problem solved. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of David Mingee Sent: Tuesday, December 16, 2014 10:17 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Utility to replace occurrences of string in PDS? I think the requirement for a member name $$$COIBM has been removed. I have used IPOUPDTE on 3 different sites in the past few years without this restriction. Many of the other utilities are great, but some cost money or may not be installed at some sites, so IPPOUPDTE is a great option. It also allows for updating multiple pds/pdse's in one execution and provides a PARM=CHECK or UPDATE to allow checking your changes before doing the actual UPDATE. The DD name(s) must start with @. A JCL example: //IPOUPDTE JOB (24186),'CHANGE JCL',CLASS=P,MSGCLASS=O //* //* //* MASS CHANGE TO LIBRARY MEMBERS * //STEP EXEC PGM=IPOUPDTE,PARM=CHECK will simulate changes //*STEP EXEC PGM=IPOUPDTE,PARM=UPDATEwill perform changes //SYSPRINT DD SYSOUT=* //@TESTDD DSN=GRT.GIOIDXM.JCL,DISP=SHR can use more than one LIB //@TEST2 DD DSN=GRP.GIOIDXM.JCL,DISP=SHR //SYSINDD * CLASS=PCLASS=A *ASYSOUT= AFOPERBMC /* There is a 4k? limit on the total bytes in the control cards, so if a large number of control cards is used, more than one run would be needed. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ibm 3278 talking terminal
Thanks for links, John. I'll check them both. There is another aspect to vision impairment that most web based apps introduce their own deficiency, i.e. contrast. We have some folks whose vision doesn't need enlargement or magnification because that's not their challenge. Contrast is the issue. Background colors that are too close in the spectrum to the text colors result in a blank gray screen for some. Most of the web is designed by young people who like pretty colors and can't relate to those who don't watch the Saturday morning cartoons any longer. black on white is good, blue on gray is bad -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John McKown Sent: Monday, November 10, 2014 8:12 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ibm 3278 talking terminal Perhaps one of the products on these pages would help? https://www.enablemart.com/vision/blindness/screen-readers http://www.freedomscientific.com/Products/Blindness I don't know anything about them. I got the above from this series of posts: https://groups.google.com/forum/#!topic/bit.listserv.ibm-main/DN59u8FjA0E On Mon, Nov 10, 2014 at 7:33 AM, Hilary Hurwitz hila...@nioi.gov.il wrote: I know this is a long shot. We have a blind programmer in our DBA team who has been working for about 30 years on a IBM 3278 talking terminal. However it recently went to that big cyber store in the sky and no one here in Israel can find spare parts so far. Is there anyone in the world who has another - maybe in a storeroom, or museum :) ? ALternatively is there any blind person who has succeeded working mainframe emulation with Cobra on a PC ? Or what other alternatives are there. The best we have found is Cobra - in conjunction with Attachmate (PCOM just would not work) Can anyone help please ? Hilary Hurwitz Israel National Security -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- The temperature of the aqueous content of an unremittingly ogled culinary vessel will not achieve 100 degrees on the Celsius scale. Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Any standard IBM tool to set ISPF statistics in a batch step?
Years ago, I'm guessing maybe 10, I wanted to do exactly that, create a PDS or PDSE, by writing a bunch of members, then in the next job step reset all the stats, just to get record counts. Being too lazy to go 3.5 or S * G, I posted this request to the list. Some kind REXXer sent in a reply, I believe LMxxx hocus pocus was involved. I went through the exercise of wrapping JCL around the REXX and used it for years. Sadly it was lost in one of my many previous layoffs. An archive search might just turn it up. Time frame would be 2001-2011 more or less. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Farley, Peter x23353 Sent: Tuesday, September 30, 2014 5:44 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Any standard IBM tool to set ISPF statistics in a batch step? I did see the TOUCH program in # 357 but I missed COPYISPF in # 720. Unfortunately I don't have access to a PL/I compiler for TOUCH. By its description, COPYISPF is actually a Rexx program with assembler subroutines. As I said originally, I know I can do this myself in Rexx using the ISPF LMxxx functions, and I probably have enough code and JCL lying around that uses ISPF and LMxxx functions to code up an ADDSTAT routine. I was just hoping there was an existing alternative to writing it (besides PDS86). However, I was intrigued by the ISPF 3.5 function you mentioned. I never even noticed that function existed (3.4, 3.12 to 3.15 and 3.17 are about all I ever use). Good question, why can't it be done in batch? This is an interesting line of research. Thank you for pointing it out. If I do figure out the secrets I'll post them. Thanks for chiming in, you were very helpful. Peter -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Nims,Alva John (Al) Sent: Tuesday, September 30, 2014 3:53 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Any standard IBM tool to set ISPF statistics in a batch step? To further my contribution to this discussion, I was looking for a way to run the ISPF opt 3.5 in batch last year, when I was working as a contractor to IBM, but never did figure out the way to do so. Gee, they give us a way to SuperC Compare (3.12) in batch, why can't IBM give us 3.5! :) Now I know you asked for Any standard IBM tool, but if you don't mind, there are a couple of tools on the CBTTAPE (www.cbttape.org) that you might want to take a look into; File 357 has TOUCH a PL/I based program to modify ISPF Statistics. File 720 has COPYISPF which copies from one PDS to another while updating the ISPF Stats in the process. This is not exactly what you want, the author writes out some fixed information, but you might be able to modify to use current date/time information during the copy process. Just trying to be helpful. Al Nims Systems Admin/Programmer 3 Information Technology University of Florida (352) 273-1298 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Farley, Peter x23353 Sent: Tuesday, September 30, 2014 2:24 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Any standard IBM tool to set ISPF statistics in a batch step? That explains the behavior I saw, though it does not excuse it. My tests used LRECL=1028. Why in the world does LRECL have anything at all to do with whether ISPF statistics are recorded or not? That just makes no sense to me whatsoever. Thank you for the RTFM pointer. Another sad fact is that when the z/OS FTP server does set the ISPF statistics, it seems to use a simple-minded STCK + STCKCONV algorithm, since in my tests the date and time are set to UTC instead of setting them to the local time using the CVT time zone values. It makes the ISPFSTATS option a lot less useful, IMHO. There ought to exist another SITE option to change that behavior when the receiving z/OS system is known a priori to be using UTC time in the hardware clock. I would suggest ISPFSTATS[=UTC|LOCAL] if I could, where LOCAL means use the CVT values to adjust the STCK time before STCKCONV. Peter -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Nims,Alva John (Al) Sent: Tuesday, September 30, 2014 1:41 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Any standard IBM tool to set ISPF statistics in a batch step? For your VB data set, is the LRECL less than 256 (e.g.: 255 or less?). From IP User's Guide and Commands v1.13 (SC31-8780-11) it states on page 98: Note: ISPFStats is ignored for sequential data sets. Also, the record format must be either variable or fixed, and the record length must be less than 256. --- Transferring PDS member to PDS member in block mode or in compress mode differs in behavior from transferring in stream mode. If the user wants to
Another DF/SORT quest. (splice?)
I'm trying to develop a seemingly simple SPLICE operation where all the input comes from a single dataset. I want to combine several records types into 1 record containing the fields from each input record type. For example I have an input file where various types can appear in a header-trailer1 or header-trailer1-trailer2 or header only sequence of records. There is no key, only the type to work with. The input sequence of record can look like any of the following: H02 T21 or H02 T21 T22or H03 T21or H04 T21 H02 T21 T22 T23 or H02only H03 only H04 only My output should look like: H02 fields + t21 fields H02 fields + t21 fields + t22 fields H03 fields + t21 fields H04 fields + t21 fields H02 _ t21 + t22 + t23 H02 H03 H04 No sorting is needed, the records are in the desired sequence already. Only the combining of fields is necessary. I've done quite a bit of reading in the DF/SORT APG but could not find a relevant example. I've considered SPLICE but lack a key. I tried WHEN=GROUP but I don't see a method to create a combined record. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: GDG Job issue
Since all the DCB stuff is there why even specify a model? I haven't for decades. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Clark, David Sent: Monday, September 08, 2014 12:11 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: GDG Job issue I think something might have happened to your model - DCB=(GDG, See if GDG is still cataloged. David Clark Brown University 3 Davol Sq Suite B 250 Providence, RI 02912-1885 Phone (401) 863-7555 Fax (401) 863-7329 On Mon, Sep 8, 2014 at 1:01 PM, venkat kulkarni venkatkulkarn...@gmail.com wrote: Hello, I am running below JCL to take backup of my catalog into PS but not sure, what I am getting this GDG dataset issue. 01 //MVSLIST JOB MVSLIST,LISTCAT,CLASS=A,MSGCLASS=A 02 //LIST EXEC PGM=IDCAMS,REGION=0M 03 //SYSPRINT DD DSN=CATLIST.LIST(+1), 04 //DISP=(NEW,CATLG,DELETE), 05 //DCB=(GDG,LRECL=133,RECFM=VBA,BLKSIZE=5320), 06 //SPACE=(CYL,(60,5),RLSE), 07 //UNIT=3390,VOL=SER=SMPWK1 08 //SYSINDD DSN=BACK.SYSIN(CATLIST),DISP=SHR 09 //* O/P STMT NO. MESSAGE 5 IEFC001I PROCEDURE FTPCATW WAS EXPANDED USING SYSTEM LIBRARY SYS2.PROC ICH70001I VENKAT1 LAST ACCESS AT 08:55:57 ON MONDAY, SEPTEMBER 8, 2014 IEFA107I MVSLIST LIST SYSPRINT - DATA SET CATLIST.LIST.G1006V00 NOT FOUND IEF272I MVSLIST LIST - STEP WAS NOT EXECUTED. IEF373I STEP/LIST/START 2014251.0938 IEF032I STEP/LIST/STOP 2014251.0938 CPU: 0 HR 00 MIN 00.00 SECSRB: 0 HR 00 MIN 00.00 SEC VIRT: 0K SYS: 0K EXT:0K SYS:0K ATB- REAL: 0K SLOTS: 0K VIRT- ALLOC: 0M SHRD: 0M IEF375I JOB/MVSLIST /START 2014251.0938 IEF033I JOB/MVSLIST /STOP 2014251.0938 CPU: 0 HR 00 MIN 00.00 SECSRB: 0 HR 00 MIN 00.00 SEC -- I have GDG defined in my system like CATLIST.LIST CATLIST.LIST.G1001V00 CATLIST.LIST.G1002V00 CATLIST.LIST.G1003V00 CATLIST.LIST.G1004V00 CATLIST.LIST.G1005V00 BACK.SYSIN(CATLIST) have entry like LISTCAT ALL CAT(ZOS1A.MASTER.CATALOG) LISTCAT ALL CAT(ZOS1B.MASTER.CATALOG) LISTCAT ALL CAT(ZOS1C.MASTER.CATALOG) LISTCAT ALL CAT(ZOS1D.MASTER.CATALOG) LISTCAT ALL CAT(ZOS21.MASTER.CATALOG) Any clue. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IEFUJI problem, preventing TSO logon
Likewise, I have shot myself in a lower extremity when creating/modifying a logon proc. A once old timer advised while still in edit, submit it. JCL errors will occur then as opposed to later. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Elardus Engelbrecht Sent: Thursday, June 26, 2014 10:16 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IEFUJI problem, preventing TSO logon John Clifford wrote: IKJ56457I LOGON FAILED JCL ERROR IN LOGON PROCEDURE denotes that a dataset on a DD stmt in the LOGON proc could not be allocated. Check all allocation names and spelling. Excellent catch which I initially overlooked. Just wondering whether the new exit is causing this problem with the DD. Anyways, it also helps to have a spare logon proc just for this trouble. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Mainframe on NCIS
Years ago at our county fair I asked one of the 083 fortune tellers are you sure that's 9 edge, face down? Blank stare was his reply. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Robert A. Rosenberg Sent: Sunday, June 22, 2014 5:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Mainframe on NCIS At 14:29 + on 06/22/2014, DASDBILL2 wrote about Re: Mainframe on NCIS: There's nothing like high-tech as perceived by the masses. I remember when high-tech card sorters were used at carnival sideshows by fortune tellers and weight guessers. Card Sorters were also used for criminal record lookups on the old Dragnet Show along with spinning tapes. Many shows in that era had spinning tapes for computers (as well as blinking lights). Bill Fairchild Senior Software Engineer ASG Software Solutions Naples, FL - Original Message - From: Merrill, Barry ba...@mxg.com To: IBM-MAIN@LISTSERV.UA.EDU Sent: Sunday, June 22, 2014 8:17:30 AM Subject: Mainframe on NCIS Listening to a past NCIS, we think it may have been Season 9 Episode 13: How did you get that voice message he had deleted from his Cell Phone? I used the service provider's MAINFRAME. Barry Merrill -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
df/sort parameter error. fixlen with leading zero
I have a minor DF/SORT application that works on one LPAR and fails on another. The leading zero appears to be the culprit. PARSE=(%01=(ABSPOS=31,ENDBEFR=C'.',FIXLEN=8)), works cc=0, but if I specify 08 (zero-eight) for FIXLEN PARSE=(%01=(ABSPOS=31,ENDBEFR=C'.',FIXLEN=08)), abends with the following error: OUTFIL FNAMES=SURROGAT,INCLUDE=(RESCLASS,CH,EQ,C'SURROGAT '), PARSE=(%01=(ABSPOS=31,ENDBEFR=C'.',FIXLEN=08)), BUILD=(RESCLASS,2X, 10RESOURCE CLASS +2 %01,2X, 10SURROGAT TO: +2 ACCLEVEL,2X, 10ACCESS LEVEL +2 USERPROF,2X, 10USER PROFILE +2 PERMITEE)20PERMITEE +2 ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED OUTFIL FNAMES=SURROGAT,INCLUDE=(RESCLASS,CH,EQ,C'SURROGAT '), PARSE=(%01=(ABSPOS=31,ENDBEFR=C'.',FIXLEN=08)), $ 0ICE805I 1 JOBNAME: AB14816G , STEPNAME: AU ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL ICE283A 0 SYMBOL, SYNTAX OR DELIMITER ERROR BUILD=(RESCLASS,2X, 10RESOURCE CLASS +2 %01,2X, 10SURROGAT TO: +2 ACCLEVEL,2X, 10ACCESS LEVEL +2 USERPROF,2X, 10USER PROFILE +2 PERMITEE)20PERMITEE +2 ICE287A 0 ONE OR MORE ERRORS ENCOUNTERED DURING SYMBOL SUBSTITUTION Is there any DF/SORT maintenance that accounts for this behavior? Sincerely, Tony Babonas -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Catalog manipulation (was RE: DFDSS QUESTION - SEMI URGENT - EXPLANATION)
This brings back memories of a small zOS shop I worked at in the late 90s. They routinely built user catalogs whose entire name was 8 characters or less, and intentionally happened to match a high level qualifier(s). Their reasoning for this practice was that they did not have to define aliases. This shop supported a number of retail businesses whose datasets were all peculiar to their business, each branch having its own user catalog. When I inquired about the why and wherefore the response was it's too much trouble to define an alias. Personally I never thought it was all that tough a task. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of willie bunter Sent: Monday, June 16, 2014 11:13 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFDSS QUESTION - SEMI URGENT - EXPLANATION Here is how the user bypassed the standard CATALOG search : DEFINE CLUSTER - ( NAME(MRP01.FOCUS.APPLIC.I0001.A001) - LINEAR - REUSE - CYLINDERS(100 200) - SHAREOPTIONS(3 3) ) - DATA - ( NAME(MRP01.FOCUS.APPLIC.I0001.A001) - ) - CATALOG(T10D) By specificying the parm CATALOG(T10D) the CLUSTER was created in the CATALOG where the ALIAS T10D resides in. This floored me because I have never seen this parm with the ALIAS specified in the define cluster. On Fri, 6/13/14, retired mainframer retired-mainfra...@q.com wrote: Subject: Re: DFDSS QUESTION - SEMI URGENT To: IBM-MAIN@LISTSERV.UA.EDU Received: Friday, June 13, 2014, 10:15 PM But Willie said it was done in JCL. How? :: -Original Message- :: From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On :: Behalf Of Skip Robinson :: Sent: Friday, June 13, 2014 3:04 PM :: To: IBM-MAIN@LISTSERV.UA.EDU :: Subject: Re: DFDSS QUESTION - SEMI URGENT :: :: To specify a catalog, you have to use IDCAMS DEFINE with the CATALOG :: parameter. If SAF allows it, you can specify any catalog you choose :: regardless of normal search order. :: :: From: retired mainframer :: To: IBM-MAIN@LISTSERV.UA.EDU, :: Date: 06/13/2014 12:16 PM :: Subject: Re: DFDSS QUESTION - SEMI URGENT :: Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU :: :: :: :: How does a user specify a specific catalog in JCL when defining a :: dataset? :: :: :: -Original Message- :: :: From: IBM Mainframe Discussion List [mailto:IBM- :: m...@listserv.ua.edu] :: On :: :: Behalf Of willie bunter :: :: Sent: Friday, June 13, 2014 9:31 AM :: :: To: IBM-MAIN@LISTSERV.UA.EDU :: :: Subject: Re: DFDSS QUESTION - SEMI URGENT :: :: :: :: I found the cause of the problem. The user defined the dsn in a :: :: specific USER CAT. In his JCL he specified the USER CAT name. He :: broke :: :: the house rules of letting the system decide which USER CAT to has :: to :: be :: :: allocated. Hence when the LISTCATs failed because the system was :: :: looking at the default USER CAT. The REPRO MERGECAT of the ALIAS :: fixed :: :: the problem. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Demonstrating Moore's law
Holy Granola Ed, I had to do a double take. This post looked like a Wheeler-mania. :-) -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ed Finnell Sent: Tuesday, June 10, 2014 2:21 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Demonstrating Moore's law From Wiki: Z12 chipset: Description[_edit_ (http://en.wikipedia.org/w/index.php?title=IBM_zEC12_(microprocessor)action=editsection=1) ] The chip measures 597.24 mm2 and consists of 2.75 billion _transistors_ (http://en.wikipedia.org/wiki/Transistor) fabricated in IBM's _32 nm_ (http://en.wikipedia.org/wiki/32_nm) _CMOS_ (http://en.wikipedia.org/wiki/CMOS) _silicon on insulator_ (http://en.wikipedia.org/wiki/Silicon_on_insulator) _fabrication process_ (http://en.wikipedia.org/wiki/Semiconductor_device_fabrication) , supporting speeds of 5.5 _GHz_ (http://en.wikipedia.org/wiki/GHz) , the highest clock speed CPU ever produced for commercial sale._[3]_ (http://en.wikipedia.org/wiki/IBM_zEC12_(microprocessor)#cite_note-RedBookTechIn tro-3) The processor implements the _CISC_ (http://en.wikipedia.org/wiki/Complex_instruction_set_computer) _z/Architecture_ (http://en.wikipedia.org/wiki/Z/Architecture) with a _superscalar_ (http://en.wikipedia.org/wiki/Superscalar) , _out-of-order_ (http://en.wikipedia.org/wiki/Out-of-order_execution) _pipeline_ (http://en.wikipedia.org/wiki/Instruction_pipeline) and some new _instructions_ (http://en.wikipedia.org/wiki/Instruction_(computer_science)) mainly related to _transactional execution_ (http://en.wikipedia.org/wiki/Software_transactional_memory) . The cores have numerous other enhancements such as better branch prediction, out of order execution and one dedicated co-processor for compression and cryptography. The instruction pipeline has 15 to 17 stages; the instruction queue can hold 40 instructions; and up to 90 instructions can be in flight. It has six _cores_ (http://en.wikipedia.org/wiki/Multi-core) , each with a private 64 _KB_ (http://en.wikipedia.org/wiki/Kilobyte) _L1 instruction cache_ (http://en.wikipedia.or g/wiki/CPU_cache) , a private 96 KB L1 data cache, a private 1 _MB_ (http://en.wikipedia.org/wiki/Megabyte) _L2 cache_ (http://en.wikipedia.org/wiki/CPU_cache) instruction cache, and a private 1 MiB L2 data cache. In addition, there is a 48 MB shared L3 cache implemented in _eDRAM_ (http://en.wikipedia.org/wiki/EDRAM) and controlled by two on-chip L3 cache controllers. There's also an additional shared L1 cache used for compression and cryptography operations. Each core has six _RISC_ (http://en.wikipedia.org/wiki/Reduced_instruction_set_computing) -like execution units, including two _integer units_ (http://en.wikipedia.org/wiki/Arithmetic_logic_unit) , two _load-store units_ (http://en.wikipedia.org/wiki/Load-store_unit_(computing)) , one binary _floating point unit_ (http://en.wikipedia.org/wiki/Floating-point_unit) and one _decimal floating point_ (http://en.wikipedia.org/wiki/Decimal_floating_point) unit. The zEC12 chip can decode three instructions and execute seven operations in a single clock cycle._[4]_ (http://en.wikipedia.org/wiki/IBM_zEC12_(microprocessor)#cite_note-RedBookTechGuide-4) Attached to each core is a special co-processor accelerator unit; in the previous z CPU there were two shared by all four cores. The zEC12 chip has on board multi-channel _DDR3 RAM_ (http://en.wikipedia.org/wiki/DDR_SDRAM) _memory controller_ (http://en.wikipedia.org/wiki/Memory_controller) supporting a _RAID_ (http://en.wikipedia.org/wiki/RAID) like configuration to recover from memory faults. The zEC12 also includes two _GX bus_ (http://en.wikipedia.org/wiki/PowerPC_600#6XX_and_GX_buses) controllers for accessing host channel adapters and peripherals. Z10: Description[_edit_ (http://en.wikipedia.org/w/index.php?title=IBM_z10_(microprocessor)action=editsection=1) ] The processor implements the _CISC_ (http://en.wikipedia.org/wiki/Complex_instruction_set_computer) _z/Architecture_ (http://en.wikipedia.org/wiki/Z/Architecture) and has four _cores_ (http://en.wikipedia.org/wiki/Multi-core) . Each core has a 64 _KB_ (http://en.wikipedia.org/wiki/Kilobyte) _L1 instruction cache_ (http://en.wikipedia.org/wiki/CPU_cache) , a 128 KB L1 data cache and a 3 _MB_ (http://en.wikipedia.org/wiki/Megabyte) _L2 cache_ (http://en.wikipedia.org/wiki/CPU_cache) (called the L1.5 cache by IBM). Finally, there is a 24 MB shared L3 cache (referred to as the L2 cache by IBM). The chip measures 21.7×20.0 mm and consists of 993 million _transistors_ (http://en.wikipedia.org/wiki/Transistor) fabricated in IBM's _65 nm_ (http://en.wikipedia.org/wiki/65_nm) _SOI_ (http://en.wikipedia.org/wiki/Silicon_on_insulator) _fabrication process_ (http://en.wikipedia.org/wiki/Semiconductor_device_fabrication) (CMOS 11S), supporting speeds of 4.4 _GHz_ (http://en.wikipedia.org/wiki/GHz) and
Re: XR vs SR
Gilmore, did Dale Carnegie ever punch you in the nose? -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John Gilmore Sent: Wednesday, June 04, 2014 8:49 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: XR vs SR Shane, How is it that I am somehow not quite convinced of your ignorance of phlogiston? Is it because most of the people of my acquaintance who can recite on quantum entanglement know something about phlogiston too? Or is it perhaps the striking similarity between smoking electronics and the escape of a a fire-like principle from combustibles as they burn? John Gilmore, Ashland, MA 01721 - USA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN