Re: Mount path more than 72 characters - error
Jake anderson wrote: MOUNT FILESYSTEM('M.R.E.PP.ZFS') MOUNTPOINT('/u/users/fffworke/mfcharl/msinstal/chrr080/qq/rolll/security ') TYPE(ZFS) MODE(RDWR) As per the MVS tuning reference guide, the Mount definition can given till 71st line and the part of the definition can be continued in the next line. Reread it ('Syntax rules for BPXPRMxx') again. Use the example as listed in the book. Your path should end in column 71 and continue at column 1. Letter y in security is in wrong place assuming M in MOUNT is in column 1. 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
Re: Mount path more than 72 characters - error
Hi Elardus, I have specified the letter 'Y' at the 71st column and I have continued the next definition in First Column. On Mon, Feb 23, 2015 at 3:54 PM, Elardus Engelbrecht elardus.engelbre...@sita.co.za wrote: Jake anderson wrote: MOUNT FILESYSTEM('M.R.E.PP.ZFS') MOUNTPOINT('/u/users/fffworke/mfcharl/msinstal/chrr080/qq/rolll/security ') TYPE(ZFS) MODE(RDWR) As per the MVS tuning reference guide, the Mount definition can given till 71st line and the part of the definition can be continued in the next line. Reread it ('Syntax rules for BPXPRMxx') again. Use the example as listed in the book. Your path should end in column 71 and continue at column 1. Letter y in security is in wrong place assuming M in MOUNT is in column 1. 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: IEASYMxx: How is possible define more than one LPARNAME at same time in SYSDEF?
I did forget to mention that the system supports wildcard matching (* and ?) for LPARNAME, HWNAME, VMUSERID within the SYSDEF specification so a lot of things are possible with suitably-named entities. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Japan clocks keep time for 16 billion years
This is another example of nature, very irritatingly, not obeying our rules, like the leap-second. How shall we call this second? No hurry, we still got time. Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Elardus Engelbrecht Sent: 23 February, 2015 14:39 To: IBM-MAIN@LISTSERV.UA.EDU Subject: OT: Japan clocks keep time for 16 billion years Seriously OT, but I'm innocent just in time. Blame those clever Japanese researchers. they are so accurate they will lose a second only every 16 billion years - Not accurate enough for me, but ... :-) http://www.fin24.com/Tech/News/Japan-clocks-keep-time-for-16-billion-years-20150223 Have a tick-tock-tick fun! 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 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
Re: Unload DB2 table in CSV format
Ron Thomas wrote: //FMNOUT DD DSN=USMKT.SL2P.KUSMDW01.CUSSTO.F2B23.UNL1, // UNIT=CART,VOL=(,RETAIN,,30),LABEL=01, // DISP=(NEW,CATLG,CATLG) FMNBA318 Output data set FMNOUT /USMKT.SL2P.KUSMDW01.CUSSTO.F2B23.UNL1 OPEN failed ABEND code 013-34 . FMNDB801 Export function was canceled by the user, or error encountered while prrocessing the copybook A quick look at 013 abend message, showed me there is something wrong with the missing DCB, possibly with BLKSIZE and LRECL. Please post it or refer to your product's documentation for a comparision. Since you have CATLG for abend situation, you can try out tapemap to see what the eventual DCB are there if that is written on your tape at all. But, you can lookup the correct DCB in the docs, include it in your JCL and re-submit your job after checking you DSN is not catalogued. DISCLAIMER: I'm not familiar with FMNDB2, but experience showed me if you don't get your output's attributes correct, you may get 'interesting' 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
Re: Unload DB2 table in CSV format
You might also want to post this on the DB2 List. If you have not joined, you can do so at IDUG.ORG Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ron Thomas Sent: Monday, February 23, 2015 6:55 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Unload DB2 table in CSV format Hello. We are trying to unload the db2 table uusing file manager and creating a CSV file, the below is the error we are getting. Could some one please help us and let us know what could be the issue ? or is there any other way we can download the file to a CSV format. //FMNDB2 EXEC PGM=FMNDB2,PARM=('SSID=DBKU,SQID=P4LX13V') //STEPLIB DD DSN=SYS1.IFM.SFMNMOD1,DISP=SHR // DD DSN=SYS5.DBGU.SDSNEXIT,DISP=SHR // DD DSN=SYS5.DBGU.SDSNLOAD,DISP=SHR //SYSPRINT DD SYSOUT=* //FMNTSPRT DD SYSOUT=* //SYSTERM DD SYSOUT=* //FMNOUT DD DSN=USMKT.SL2P.KUSMDW01.CUSSTO.F2B23.UNL1, // UNIT=CART,VOL=(,RETAIN,,30),LABEL=01, // DISP=(NEW,CATLG,CATLG) //SYSINDD * $$FILEM DBX OBJIN=T23MDW01.PUS_STO, $$FILEM OUTPUT=FMNOUT, $$FILEM NULLIND=_, $$FILEM CSV=YES, $$FILEM CSVHDR=YES, $$FILEM DATAFORMAT=CSV, $$FILEM SEPARATOR=',', $$FILEM ROWS=ALL FMNBA318 Output data set FMNOUT /USMKT.SL2P.KUSMDW01.CUSSTO.F2B23.UNL1 OPEN failed ABEND code 013-34 . FMNDB801 Export function was canceled by the user, or error encountered while prrocessing the copybook Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OT: Japan clocks keep time for 16 billion years
Does it automatically adjust for relativistic effects? This is critical because the Earth, upon which I assume the clock resides, does not reside in an inertial frame, but is constantly accelerating. On Feb 23, 2015 7:39 AM, Elardus Engelbrecht elardus.engelbre...@sita.co.za wrote: Seriously OT, but I'm innocent just in time. Blame those clever Japanese researchers. they are so accurate they will lose a second only every 16 billion years - Not accurate enough for me, but ... :-) http://www.fin24.com/Tech/News/Japan-clocks-keep-time-for-16-billion-years-20150223 Have a tick-tock-tick fun! 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: web: Buffett Adds to IBM Stake as Rometty Shifts Big Blue to Cloud - Bloomberg B ...
Unless he has become a technology expert he seems be out of his circle of competence here. Then again he probably won't even miss that money if it all goes down the drain. Mohammad On Sat, 21 Feb 2015 15:50:58 -0500, Gabe Goldberg g...@gabegold.com wrote: Someone still has hope ... or faith. http://www.bloomberg.com/news/articles/2015-02-17/buffett-adds-to-ibm-stake-as-rometty-shifts-big-blue-to-cloud -- Gabriel Goldberg, Computers and Publishing, Inc. g...@gabegold.com 3401 Silver Maple Place, Falls Church, VA 22042 (703) 204-0433 LinkedIn: http://www.linkedin.com/in/gabegoldTwitter: GabeG0 -- 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
OT: Japan clocks keep time for 16 billion years
Seriously OT, but I'm innocent just in time. Blame those clever Japanese researchers. they are so accurate they will lose a second only every 16 billion years - Not accurate enough for me, but ... :-) http://www.fin24.com/Tech/News/Japan-clocks-keep-time-for-16-billion-years-20150223 Have a tick-tock-tick fun! 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
Re: Unload DB2 table in CSV format
From the list of well-know errorcodes: 013-34: invalid blocksize. You should specify DCB info on the //FMNOUT dataset. Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ron Thomas Sent: 23 February, 2015 14:55 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Unload DB2 table in CSV format Hello. We are trying to unload the db2 table uusing file manager and creating a CSV file, the below is the error we are getting. Could some one please help us and let us know what could be the issue ? or is there any other way we can download the file to a CSV format. //FMNDB2 EXEC PGM=FMNDB2,PARM=('SSID=DBKU,SQID=P4LX13V') //STEPLIB DD DSN=SYS1.IFM.SFMNMOD1,DISP=SHR // DD DSN=SYS5.DBGU.SDSNEXIT,DISP=SHR // DD DSN=SYS5.DBGU.SDSNLOAD,DISP=SHR //SYSPRINT DD SYSOUT=* //FMNTSPRT DD SYSOUT=* //SYSTERM DD SYSOUT=* //FMNOUT DD DSN=USMKT.SL2P.KUSMDW01.CUSSTO.F2B23.UNL1, // UNIT=CART,VOL=(,RETAIN,,30),LABEL=01, // DISP=(NEW,CATLG,CATLG) //SYSINDD * $$FILEM DBX OBJIN=T23MDW01.PUS_STO, $$FILEM OUTPUT=FMNOUT, $$FILEM NULLIND=_, $$FILEM CSV=YES, $$FILEM CSVHDR=YES, $$FILEM DATAFORMAT=CSV, $$FILEM SEPARATOR=',', $$FILEM ROWS=ALL FMNBA318 Output data set FMNOUT /USMKT.SL2P.KUSMDW01.CUSSTO.F2B23.UNL1 OPEN failed ABEND code 013-34 . FMNDB801 Export function was canceled by the user, or error encountered while prrocessing the copybook Thanks Ron T -- 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
Re: Unload DB2 table in CSV format
Ok Thanks . I am getting the below message when i provided the DCB Parameters FMNBA324 A data set, or volume full condition occurred while attempting to save this data set Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: O/T What ‘The Imitation Game’ didn’t tell you about Turing’s greatest triumph - The Washington Post
I have the same problem with gmail Gil's emails as well. On Feb 23, 2015 2:22 AM, Wayne Bickerdike wayn...@gmail.com wrote: The link works fine in my Gmail client. Almost all of Pauls OMVS email postings end up in my spam folder. Google have been supplied with many examples for their (non) spam filter. Any one else find this happens? On Mon, Feb 23, 2015 at 1:56 AM, Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu wrote: On Sat, 21 Feb 2015 23:34:42 -0600, Ed Gould wrote: http://www.washingtonpost.com/national/health-science/what-imitation- game-didnt-tell-you-about-alan-turings-greatest-triumph/2015/02/20/ ffd210b6-b606-11e4-9423-f3d0a1ec335c_story.html What �The Imitation Game� didn�t tell you about Turing�s greatest triumph Unwrapped, I hope: http://www.washingtonpost.com/national/health-science/what-imitation-game-didnt-tell-you-about-alan-turings-greatest-triumph/2015/02/20/ffd210b6-b606-11e4-9423-f3d0a1ec335c_story.html Ed needs to get a better mail agent. In cases such as this, dumber is probably better than amarter. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Wayne V. Bickerdike -- 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
Unload DB2 table in CSV format
Hello. We are trying to unload the db2 table uusing file manager and creating a CSV file, the below is the error we are getting. Could some one please help us and let us know what could be the issue ? or is there any other way we can download the file to a CSV format. //FMNDB2 EXEC PGM=FMNDB2,PARM=('SSID=DBKU,SQID=P4LX13V') //STEPLIB DD DSN=SYS1.IFM.SFMNMOD1,DISP=SHR // DD DSN=SYS5.DBGU.SDSNEXIT,DISP=SHR // DD DSN=SYS5.DBGU.SDSNLOAD,DISP=SHR //SYSPRINT DD SYSOUT=* //FMNTSPRT DD SYSOUT=* //SYSTERM DD SYSOUT=* //FMNOUT DD DSN=USMKT.SL2P.KUSMDW01.CUSSTO.F2B23.UNL1, // UNIT=CART,VOL=(,RETAIN,,30),LABEL=01, // DISP=(NEW,CATLG,CATLG) //SYSINDD * $$FILEM DBX OBJIN=T23MDW01.PUS_STO, $$FILEM OUTPUT=FMNOUT, $$FILEM NULLIND=_, $$FILEM CSV=YES, $$FILEM CSVHDR=YES, $$FILEM DATAFORMAT=CSV, $$FILEM SEPARATOR=',', $$FILEM ROWS=ALL FMNBA318 Output data set FMNOUT /USMKT.SL2P.KUSMDW01.CUSSTO.F2B23.UNL1 OPEN failed ABEND code 013-34 . FMNDB801 Export function was canceled by the user, or error encountered while prrocessing the copybook Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Unload DB2 table in CSV format
Is the maintenance for your file manager current? www-01.ibm.com/support/docview.wss?uid=swg21170609 To get a listing of current fixes for File Manager Have you opened a case with the vendor on this? Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ron Thomas Sent: Monday, February 23, 2015 7:44 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Unload DB2 table in CSV format Ok Thanks . I am getting the below message when i provided the DCB Parameters FMNBA324 A data set, or volume full condition occurred while attempting to save this data set Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Unload DB2 table in CSV format
This is not a question, I presume? Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ron Thomas Sent: 23 February, 2015 15:44 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Unload DB2 table in CSV format Ok Thanks . I am getting the below message when i provided the DCB Parameters FMNBA324 A data set, or volume full condition occurred while attempting to save this data set Thanks Ron T -- 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
Re: web: Buffett Adds to IBM Stake as Rometty Shifts Big Blue to Cloud - Bloomberg B ...
You seem to be under the illusion that stock prices, even for technology stocks, reflect technological quality. Would that it were so. Just look at the experience of Sony Betamax vs VHS. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mohammad Khan Sent: Monday, February 23, 2015 6:02 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: web: Buffett Adds to IBM Stake as Rometty Shifts Big Blue to Cloud - Bloomberg B ... Unless he has become a technology expert he seems be out of his circle of competence here. Then again he probably won't even miss that money if it all goes down the drain. Mohammad On Sat, 21 Feb 2015 15:50:58 -0500, Gabe Goldberg g...@gabegold.com wrote: Someone still has hope ... or faith. http://www.bloomberg.com/news/articles/2015-02-17/buffett-adds-to-ibm-stake-as- rometty-shifts-big-blue-to-cloud -- Gabriel Goldberg, Computers and Publishing, Inc. g...@gabegold.com 3401 Silver Maple Place, Falls Church, VA 22042 (703) 204-0433 LinkedIn: http://www.linkedin.com/in/gabegoldTwitter: GabeG0 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DF/SORT JOINKEYS question.
Sri, as usual thank you for your help. I'm still digesting the last suggestion you sent me. I'll let you know my results. Meanwhile, to the current topic: //* here's what I have. //STEP1EXEC PGM=SORT,PARM='RC16=ABE' //SYSOUTDD SYSOUT=* //IN1 DD * ABCD1 INPUT1 DATA ABCD2 INPUT1 DATA ABCD3 INPUT1 DATA //IN2 DD * ABCD1 INPUT2 DATA ABCD2 INPUT2 DATA ABCD3 INPUT2 DATA //SORTOUT DD DISP=(NEW,CATLG,DELETE),DSN=MYHLQ.JOINED.ONE.PLUS.TWO //SYMNAMES DD * KEY,1,5 OREC,1,25 //SYSIN DD * OPTION COPY JOINKEYS F1=IN1,FIELDS=(KEY,A) JOINKEYS F2=IN2,FIELDS=(KEY,A) REFORMAT FIELDS=(F1:OREC,F2:OREC) //*--- //* 2ND JOIN STEP. //STEP2EXEC PGM=SORT,PARM='RC16=ABE' //SYSOUTDD SYSOUT=* //IN3 DD * ABCD1 INPUT3 DATA ABCD2 INPUT3 DATA ABCD3 INPUT3 DATA //IN2 DD DISP=SHR,DSN=MYHQL.JOINED.ONE.PLUS.TWO //SORTOUT DD DISP=(NEW,CATLG,DELETE),DSN=MYHLQ.JOINED.TWO.PLUS.THREE //SYMNAMES DD * KEY,1,5 OREC,1,25 //SYSIN DD * OPTION COPY JOINKEYS F1=IN3,FIELDS=(KEY,A) JOINKEYS F2=IN2,FIELDS=(KEY,A) REFORMAT FIELDS=(F1:OREC,F2:OREC) //*--- //* HERE'S WHAT I WANT //STEP1EXEC PGM=SORT,PARM='RC16=ABE' //SYSOUTDD SYSOUT=* //IN1 DD * ABCD1 INPUT1 DATA ABCD2 INPUT1 DATA ABCD3 INPUT1 DATA //IN2 DD * ABCD1 INPUT2 DATA ABCD2 INPUT2 DATA ABCD3 INPUT2 DATA //IN3 DD * ABCD1 INPUT3 DATA ABCD2 INPUT3 DATA ABCD3 INPUT3 DATA //SORTOUT DD DISP=(NEW,CATLG,DELETE),DSN=MYHLQ.JOINED.ONE.TWO.THREE //SYMNAMES DD * KEY,1,5 OREC,1,25 //SYSIN DD * OPTION COPY JOINKEYS F1=IN1,FIELDS=(KEY,A) JOINKEYS F2=IN2,FIELDS=(KEY,A) JOINKEYS F3=IN3,FIELDS=(KEY,A) REFORMAT FIELDS=(F1:OREC,C'MORE DATA', F2:OREC,C'MORE.DA O F3:OREC,C'MORE.DATA') On 2/20/2015 4:16 PM, Sri h Kolusu wrote: 1. I would like to be able to JOIN more than 2 input files in a single job step. I'm currently doing this by using additional job steps. Tony, You can use ICETOOL to combine multiple Join operations into a single step. I would like to be able to write constants in the output file. The REFORMAT statement accepts the usual P,M as well as a fill byte value. I would like the ability to specify constants as the OUTREC statement allows. I currently am formatting blanks in the output file by finding You can use JNF1CNTL or JNF2CNTL to add constants you want to see in the final output. You can also use INREC statement on the main task that lets you add any constants you want. Show me your entire Joinkeys JCL and the control cards and I will show you a way to get the desired reuslts. Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 02/20/2015 02:00:24 PM: From: Tony's Outlook via Mozilla tbabo...@outlook.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 02/20/2015 02:10 PM Subject: DF/SORT JOINKEYS question. Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU I have a job stream that contains several relatively simple JOINKEYS steps. I need to expand the scope of this job by adding some input files and writing some specific constants in the output data. Specifically: 1. I would like to be able to JOIN more than 2 input files in a single job step. I'm currently doing this by using additional job steps. 2. I would like to be able to write constants in the output file. The REFORMAT statement accepts the usual P,M as well as a fill byte value. I would like the ability to specify constants as the OUTREC statement allows. I currently am formatting blanks in the output file by finding them in either the F1 or F2. Obviously this is not a reliable method. Opinions? -- 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: O/T What ‘The Imitation Game’ didn’t tell you about Turing’s greatest triumph - The Washington Post
In the original Email that I received from Ed the Email source text (as opposed to the way my Email client renders it) shows the presence of a hex-encoded blank (= 2 0) followed by a CR at about the 70-character mark in the two places where the original URL later gets separated when quoted. I'm not sure who or what is producing or introducing this URL formatting as it is definitely not part of the actual URL. My Thunderbird Email client seems to partly realize that the extra characters are not a legitimate part of the URL and when displaying the Email elides the three parts without a blank or forced CR, but the part rendered in blue as a link and the part passed as the URL when clicking on the link stops at the first = 2 0 CR point, so the passed URL from the link doesn't work in my browser. This is certainly a confusing inconsistency in Thunderbird if not an out-right bug (depends on whether this way of wrapping long character strings is actually an approved Email standard). Apparently some other Email clients do interpret it in a way that preserves the link. On the other hand there are certainly Email clients that send long URLs without using this formatting convention, as I frequently receive long URLs in Emails (including the reformatted version of this URL from Paul) that work fine with Thunderbird. Joel C. Ewing On 02/23/2015 02:22 AM, Wayne Bickerdike wrote: The link works fine in my Gmail client. Almost all of Pauls OMVS email postings end up in my spam folder. Google have been supplied with many examples for their (non) spam filter. Any one else find this happens? On Mon, Feb 23, 2015 at 1:56 AM, Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu wrote: On Sat, 21 Feb 2015 23:34:42 -0600, Ed Gould wrote: http://www.washingtonpost.com/national/health-science/what-imitation- game-didnt-tell-you-about-alan-turings-greatest-triumph/2015/02/20/ ffd210b6-b606-11e4-9423-f3d0a1ec335c_story.html What �The Imitation Game� didn�t tell you about Turing�s greatest triumph Unwrapped, I hope: http://www.washingtonpost.com/national/health-science/what-imitation-game-didnt-tell-you-about-alan-turings-greatest-triumph/2015/02/20/ffd210b6-b606-11e4-9423-f3d0a1ec335c_story.html Ed needs to get a better mail agent. In cases such as this, dumber is probably better than amarter. -- gil -- Joel C. Ewing,Bentonville, AR jcew...@acm.org -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMFxTME field
Thank you to everyone for your help. It turns out my content was correct but my timing was off. I was filling in the SMFxTME with the correct Time component of TIME BIN but I was doing it when my server started. I need to change my code to fill in the SMFxTME with the correct Time component of TIME BIN at the time the SMF record is written. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OT: Japan clocks keep time for 16 billion years
On Mon, 23 Feb 2015 08:43:03 -0600, John McKown wrote: Does it automatically adjust for relativistic effects? This is critical because the Earth, upon which I assume the clock resides, does not reside in an inertial frame, but is constantly accelerating. It must, given that such effects have been measured for about a half century: http://en.wikipedia.org/wiki/Hafele%E2%80%93Keating_experiment#Gravitational_time_dilation On 02/23/2015 06:53 AM, Vernooij, CP (ITOPT1) - KLM wrote: This is another example of nature, very irritatingly, not obeying our rules, like the leap-second. How shall we call this second? No hurry, we still got time. Indeed. One contributor to this forum is so irritated that he denies that the next leap second will properly be designated: 2015 June 30, 23h 59m 60s https://hpiers.obspm.fr/iers/bul/bulc/bulletinc.dat ... because that contradicts the congruential scheme of time notation obsoleted by the adoption of UTC in 1972. I grant that: o UTC with its leap seconds is a PITA to IT personnel. o I believe (a smoothed) UT1 would have been a better standard for IT. Alas, POSIX hadn't that foresight. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A possible bug in the IBM Runtimne C library
I still do not know how to make PL/I communicate with C, but COBOL and C communicate like a pair of newlyweds once this was resolved. ZA, Chapter 8 and 9 from this manual might help you. Sample programs in section 8.9 and 9.8 might be what you are looking at. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CEEA4180/CCONTENTS Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FW: Help with IBM Session Manager Prefix Command
Hi, I got no takers on this one. I called IBM but nothing appeared to jump out documenting what a G does. It may be doing a STARTSC OFF command. One of our System Programmers found this in SISZCCNF where we define our Panel. You may also find this. G may work for you to bypass the startscript. when uc_c_m2.sub2 = 'g' /* kka08 start manual session */ let t_command = s_n.sub2/* kka08 inserted for manual start * let uc_manuell = 'YES' /* kka08 for checking in startscript let uc_c_m2.sub2 = ' ' /* kka08 wipe prefix area */ Later, Dave From: Hansen, Dave L - Eagan, MN Sent: Friday, February 20, 2015 3:38 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Help with IBM Session Manager Prefix Command Dear Session Manager Experts, On the main ISM menu I see a description for My Appl. To the left is the number. From the command line on the bottom I can enter 35 to get to My Appl. I can enter S as a prefix command to select 35/My Appl. I am looking for documentation on what a G does when entered as a prefix command. Session Manager: Sel Description --- --- _35 My Appl So I looked in the following books and did not find the Prefix Commands documented (the ones that are shown on the online help panels when you enter ?): The following publications are available for Session Manager for z/OS, V3.2: Title Order number Session Manager for z/OS V3.2 - Installation and GC34-2804-00 Customization Session Manager for z/OS V3.2 - Technical ReferenceSC34-2805-00 Session Manager for z/OS V3.2 - Panels, ScriptsSC34-2806-00 and Variables Session Manager for z/OS V3.2 - Online and Batch SC34-2807-00 Administration Session Manager for z/OS V3.2 - User and Administrator SC34-2808-00 Guide Session Manager for z/OS V3.2 - Quick ReferenceSC34-2809-00 I can enter ? as a prefix command to see the Prefix commands: On the supplied privileged MENU, the prefix area will accept the following commands : Prefix command S/MGR commandDescription -- ---- ? display this screen S (SELECT) start/re-join session K (KILL) RESET n terminate session n R (RESET) RESET n terminate session n E (END) ENDSCRIPT n run ENDSCRIPT and end session * ENDSCRIPT * run ENDSCRIPTS and end ALL sessions H (HALTSCRIPT)HALTSCRIPT n kill SCRIPT running on this session P (HARDCOPY) HARDCOPY n take hardcopy print of this session C (CONCEAL) CONCEAL nconceal this session D (DELSESS) DELSESS ndelete this ADDSESS session Q). Where did IBM hide the documentation on the Prefix Commands for 5655-U98 IBM Session Manager for z/OS 3.200B? When I enter a G as a prefix command it looks like it bypasses the scripting so I can do a -Reconnect to get back to my TSO userid. Enter an 'S' before each option desired below: -Nomail -Nonotice-Reconnect-OIDcard Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSMS: Can CDSs and UCAT, be SMS managed or not ??
Caveat: insert the daily delay for listServ digestion here... Small v1.12 monoplex shop. Our (my) mandate is that unless there's a good/valid reason/justification, any given dataset should be SMS managed. [1] As such, my CDSs are non-managed [2] since I inherited them that way and see no reason/benefit to change; being all of 5 cylinders each. All my uCats are managed and directed to a restricted access pool along with (non-z/OS) LinkList, procLibs, and zUnix root(s). DB2 uCats are pooled with the table/index spaces strictly for FlashCopy consistency. [3] z/OS volumes are non-managed because the guy in charge won't consider SMS at all. He manages those volumes himself and the StorClas ACS routine has specific code to avoid them. [1] The mCat(s) are on those volumes as well. Follow-up tips: 1) I have multiple ACDS on different volumes; 3 of which include FAILOVR in their name. As part of the process to harden/finalize a new configuration, I issue SETSMS SAVEACDS(ACDS.FAILOVR#) for each. It allows me to endure 3 volume failures [4] before I need to panic; using SETSMS ACDS(ACDS.FAILOVR#). I have the same for the CommDS. 2) One housekeeping item to consider is moving APF-only ie. not LinkList as well, datasets to SMS managed. Then, the ParmLib APF entries use the volume *SMS* and they can be moved around if/as desired ie. HSM interval processing, FDRMove. [1] My ACS routine(s) auto-assign class values unless specifically directed not to ie. StorClas=[nonSMS | None], volSer=nonSMS, HLQ=nonSMS, etc. [2] I am prepared for the eventuality by including them in the DataSet Separation profile. [3] We had catalogue consistency problems with DR when the uCats were in a different pool and backed up at a different time of day. That led to moving them into the same storage pool. [4] Although Rad will point out that 'volumes' are strictly a logical construct not actually reflected in the physical storage medium. *grin* signature = 6 lines follows Neil Duffee, Joe Sysprog, uOttawa, Ottawa, Ont, Canada telephone:1 613 562 5800 x4585 fax:1 613 562 5161 mailto:NDuffee of uOttawa.ca http:/ /aix1.uOttawa.ca/ ~nduffee “How *do* you plan for something like that?” Guardian Bob, Reboot “For every action, there is an equal and opposite criticism.” “Systems Programming: Guilty, until proven innocent” John Norgauer 2004 -Original Message- From: Toni Cecil [mailto:ac...@gma...com] Sent: February 22, 2015 13:34 Subject: Re: DFSMS: Can CDSs and UCAT, be SMS managed or not ?? [snip] talking about DFSMS ACDS,SCDS and COMMDS (i'll refer CDSs hereafter). The reason for this question is that I have all flavours. Systems with UCAT be SMS managed and CDSs not be sms managed. CDSs be SMS managed and UCAT not sms managed. I wonder if there was any not mandatory but very much advisable rule to set up these datasets. In all cases, each of these CDSs is placed in one dedicated dasd volume. On Wed, Feb 18, 2015 at 5:42 PM, R.S. r...sk...@bre...com...pl wrote: W dniu 2015-02-18 o 18:27, Toni Cecil pisze: do you know any consideration to have ACS,SCDS and COMMDS as sms managed or not ?? and how about the catalog where these datasets are placed ?? I'm with z/os V1.13 According to ServerPac Installation Dialog the CDSes have to be cataloged in MCAT, but this is not true. I have never put those CDSes on SMS-managed volume and I think there is good reason for that, like never putting spare door key inside the room. However AFAIR there is no requirement for those datasets to be not SMS-managed. There is no requirement to be SMS-managed as well. -- Radoslaw Skorupka -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: O/T What ‘The Imitation Game’ didn’t tell you about Turing’s greatest triumph - The Washington Post
On Mon, 23 Feb 2015 10:14:44 -0600, Joel Ewing wrote: In the original Email that I received from Ed the Email source text (as opposed to the way my Email client renders it) shows the presence of a hex-encoded blank (= 2 0) followed by a CR at about the 70-character GIYF: Character-set: USASCII; Format-flowed Content-transfer-encoding: Quoted-printable This is certainly a confusing inconsistency in Thunderbird if not an out-right bug (depends on whether this way of wrapping long character strings is actually an approved Email standard). RFC 822 requires support for up to 999. Apparently some other Email clients do interpret it in a way that preserves the link. On the other hand there are certainly Email clients that send long URLs without using this formatting convention, as I frequently receive long URLs in Emails (including the reformatted version of this URL from Paul) that work fine with Thunderbird. I (of course) blame IBM for allowing 80- and 72- character limitations of obsolete hardware to set the standard for data representation on other media. VM/CMS (optionally) communicates with the SMTP server via a virtual card punch. On 02/23/2015 02:22 AM, Wayne Bickerdike wrote: The link works fine in my Gmail client. Almost all of Pauls OMVS email postings end up in my spam folder. Google have been supplied with many examples for their (non) spam filter. Any one else find this happens? And they won't tell you why! Almost all my IBM-MAIN postings are via the WWW interface, not email, and I suspect that Gmail considers an inconsistency between my email address (...@AIM.com) and Received: headers identifying UA.EDU a symptom of spam. Do my IBM-MAIN submissions get treated as spam? My recent submission Re: Japan was via AIM.com rather than UA.EDU. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A possible bug in the IBM Runtimne C library
Obviously, I know that and I realized that the issue is integral boundaries! I am dealing with COBOL, not PL/I but the real issue was that the order is the other way around (i.e. the fullword is first and the halfword is second, leaving a two bytes gap unaccounted for after every pair. So I resolved it by adding a dummy two bytes variable in the end of each pair: 10 A PIC 9(9) COMP-5. 10 B PIC 9(4) COMP-5. 10 FILLER PIC XX.=== compensating for the integral boundary of the next pair 10 D PIC 9(9) COMP-5. 10 E PIC 9(4) COMP-5. 10 FILLER PIC XX.=== compensating for the integral boundary of the next element This works fine. I still do not know how to make PL/I communicate with C, but COBOL and C communicate like a pair of newlyweds once this was resolved. ZA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: O/T What ‘The Imitation Game’ didn’t tell y ou about Turing’s greatest triumph - The Washington Post
At 10:14 -0600 on 02/23/2015, Joel Ewing wrote about Re: O/T What The Imitation Game¹ didn¹t tell you abo: In the original Email that I received from Ed the Email source text (as opposed to the way my Email client renders it) shows the presence of a hex-encoded blank (= 2 0) followed by a CR at about the 70-character mark in the two places where the original URL later gets separated when quoted. I'm not sure who or what is producing or introducing this URL formatting as it is definitely not part of the actual URL. My Thunderbird Email client seems to partly realize that the extra characters are not a legitimate part of the URL and when displaying the Email elides the three parts without a blank or forced CR, but the part rendered in blue as a link and the part passed as the URL when clicking on the link stops at the first = 2 0 CR point, so the passed URL from the link doesn't work in my browser. This is certainly a confusing inconsistency in Thunderbird if not an out-right bug (depends on whether this way of wrapping long character strings is actually an approved Email standard). Apparently some other Email clients do interpret it in a way that preserves the link. On the other hand there are certainly Email clients that send long URLs without using this formatting convention, as I frequently receive long URLs in Emails (including the reformatted version of this URL from Paul) that work fine with Thunderbird. Joel C. Ewing If the URL is enclosed in angle brackets this is a signal that it is a URL and most Mail Clients will remove the encoded blank and close up the segments upon receipt. Your URL was unbracketed and thus was not handled this way. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A possible bug in the IBM Runtimne C library
On Mon, 23 Feb 2015 12:15:09 -0600, Ze'ev Atlas zatl...@yahoo.com wrote: So I resolved it by adding a dummy two bytes variable in the end of each pair: 10 A PIC 9(9) COMP-5. 10 B PIC 9(4) COMP-5. 10 FILLER PIC XX.=== compensating for the integral boundary of the next pair You might want to use the SYNC keyword for this, instead of adding filler. I still do not know how to make PL/I communicate with C, but COBOL and C communicate like a pair of newlyweds once this was resolved. Glad you got it to work. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A possible bug in the IBM Runtimne C library
Ze'ev Atlas wrote: Obviously, I know that and I realized that the issue is integral boundaries! So I resolved it by adding a dummy two bytes variable in the end of each pair: 10 A PIC 9(9) COMP-5. What are you doing to ensure that A starts on a full word? In other words, what is declared before it and ending of course in a full word boundary? 10 B PIC 9(4) COMP-5. 10 FILLER PIC XX.=== compensating for the integral boundary of the next pair Hmmm, I need to compile a sample program and see for myself the layout. ... but COBOL and C communicate like a pair of newlyweds once this was resolved. Good analogy, just be careful of a divorce during honeymoon! ;-) I'm glad you solved your problem. Does that means all your questions in two threads this month are now resolved? 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
Re: DF/SORT JOINKEYS question.
Tony, Here is the equivalent DFSORT/ICETOOL JCL that will combine your 2 steps into a single step //STEP0100 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //SYMNAMES DD * KEY,1,5 OREC,1,25 //DFSPARM DD * DEBUG ABEND //SYMNOUT DD SYSOUT=* //IN1 DD * ABCD1 INPUT1 DATA ABCD2 INPUT1 DATA ABCD3 INPUT1 DATA //IN2 DD * ABCD1 INPUT2 DATA ABCD2 INPUT2 DATA ABCD3 INPUT2 DATA //IN3 DD * ABCD1 INPUT3 DATA ABCD2 INPUT3 DATA ABCD3 INPUT3 DATA //OUT1 DD DSN=MYHLQ.JOINED.ONE.PLUS.TWO, //DISP=(NEW,CATLG,DELETE), //SPACE=(CYL,(X,Y),RLSE) //* //OUT2 DD DSN=MYHLQ.JOINED.TWO.PLUS.THREE, //DISP=(NEW,CATLG,DELETE), //SPACE=(CYL,(X,Y),RLSE) //* //TOOLIN DD * COPY JKFROM TO(OUT1) USING(CTL1) COPY JKFROM TO(OUT2) USING(CTL2) //* //CTL1CNTL DD * JOINKEYS F1=IN1,FIELDS=(KEY,A) JOINKEYS F2=IN2,FIELDS=(KEY,A) REFORMAT FIELDS=(F1:OREC,F2:OREC) //* //CTL2CNTL DD * JOINKEYS F1=IN3,FIELDS=(KEY,A) JOINKEYS F2=OUT1,FIELDS=(KEY,A) REFORMAT FIELDS=(F1:OREC,F2:OREC) //* And if you want to pass constants to the files before join then you can use TASKID and pass the constants For example //TOOLIN DD * COPY JKFROM TO(OUT1) USING(CTL1) COPY JKFROM TO(OUT2) USING(CTL2) //* //CTL1CNTL DD * JOINKEYS F1=IN1,FIELDS=(KEY,A),TASKID=T1 JOINKEYS F2=IN2,FIELDS=(KEY,A),TASKID=T1 REFORMAT FIELDS=(F1:OREC,F2:OREC) //* //T1F1CNTL DD * INREC OVERLAY=(21:C'CON1') //* //T1F2CNTL DD * INREC OVERLAY=(21:C'CON2') //* //CTL2CNTL DD * JOINKEYS F1=IN3,FIELDS=(KEY,A) JOINKEYS F2=OUT1,FIELDS=(KEY,A) REFORMAT FIELDS=(F1:OREC,F2:OREC) //* In the above example for file1 we will use the INREC statement specified in T1F1CNTL and for file 2 we will use the INREC specified in T1F2CNTL. Check this example of using multiple COPY operators for JOINKEYS applications that preprocess different input files in different ways http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/7.4.3? Further if you have any questions please let me know Thanks, Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 02/23/2015 09:28:24 AM: From: Tony's Outlook via Mozilla tbabo...@outlook.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 02/23/2015 09:38 AM Subject: Re: DF/SORT JOINKEYS question. Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Sri, as usual thank you for your help. I'm still digesting the last suggestion you sent me. I'll let you know my results. Meanwhile, to the current topic: //* here's what I have. //STEP1EXEC PGM=SORT,PARM='RC16=ABE' //SYSOUTDD SYSOUT=* //IN1 DD * ABCD1 INPUT1 DATA ABCD2 INPUT1 DATA ABCD3 INPUT1 DATA //IN2 DD * ABCD1 INPUT2 DATA ABCD2 INPUT2 DATA ABCD3 INPUT2 DATA //SORTOUT DD DISP=(NEW,CATLG,DELETE),DSN=MYHLQ.JOINED.ONE.PLUS.TWO //SYMNAMES DD * KEY,1,5 OREC,1,25 //SYSIN DD * OPTION COPY JOINKEYS F1=IN1,FIELDS=(KEY,A) JOINKEYS F2=IN2,FIELDS=(KEY,A) REFORMAT FIELDS=(F1:OREC,F2:OREC) //*--- //* 2ND JOIN STEP. //STEP2EXEC PGM=SORT,PARM='RC16=ABE' //SYSOUTDD SYSOUT=* //IN3 DD * ABCD1 INPUT3 DATA ABCD2 INPUT3 DATA ABCD3 INPUT3 DATA //IN2 DD DISP=SHR,DSN=MYHQL.JOINED.ONE.PLUS.TWO //SORTOUT DD DISP=(NEW,CATLG,DELETE),DSN=MYHLQ.JOINED.TWO.PLUS.THREE //SYMNAMES DD * KEY,1,5 OREC,1,25 //SYSIN DD * OPTION COPY JOINKEYS F1=IN3,FIELDS=(KEY,A) JOINKEYS F2=IN2,FIELDS=(KEY,A) REFORMAT FIELDS=(F1:OREC,F2:OREC) //*--- //* HERE'S WHAT I WANT //STEP1EXEC PGM=SORT,PARM='RC16=ABE' //SYSOUTDD SYSOUT=* //IN1 DD * ABCD1 INPUT1 DATA ABCD2 INPUT1 DATA ABCD3 INPUT1 DATA //IN2 DD * ABCD1 INPUT2 DATA ABCD2 INPUT2 DATA ABCD3 INPUT2 DATA //IN3 DD * ABCD1 INPUT3 DATA ABCD2 INPUT3 DATA ABCD3 INPUT3 DATA //SORTOUT DD DISP=(NEW,CATLG,DELETE),DSN=MYHLQ.JOINED.ONE.TWO.THREE //SYMNAMES DD * KEY,1,5 OREC,1,25 //SYSIN DD * OPTION COPY JOINKEYS F1=IN1,FIELDS=(KEY,A) JOINKEYS F2=IN2,FIELDS=(KEY,A) JOINKEYS F3=IN3,FIELDS=(KEY,A) REFORMAT FIELDS=(F1:OREC,C'MORE DATA', F2:OREC,C'MORE.DA O F3:OREC,C'MORE.DATA') On 2/20/2015 4:16 PM, Sri h Kolusu wrote: 1. I would like to be able to JOIN more than 2 input files in a single job step. I'm currently doing this by using additional job steps. Tony, You can use ICETOOL to combine multiple Join operations into a single step. I would like to be able to write
Check out BBC News - Battery power alone can be used to track Android phones
_BBC News - Battery power alone can be used to track Android phones_ (http://www.bbc.com/news/technology-31587621) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Delete all members from PDS with symbolic in name?
I'm trying to do the following and I know it does not work because IDCAMS says IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME But is there a way to do something like this, without restricting the job to V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the PDS is named with a JCL symbol: //DELETMEM EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //OUTLOAD DD DISP=(OLD,KEEP),DSN=FOO.FMID..LOAD //SYSINDD * DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD) /* I suppose I could do something with IEFBR14 and allocate a new dataset with a temporary name in one step and then delete the old dataset and rename the new one in the next step. Is there something easier? Thanks, Charles -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: O/T What ‘The Imitation Game’ didn’t tell you about Turing’s greatest triumph - The Washington Post
The link works fine in my Gmail client. Almost all of Pauls OMVS email postings end up in my spam folder. Google have been supplied with many examples for their (non) spam filter. Any one else find this happens? On Mon, Feb 23, 2015 at 1:56 AM, Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu wrote: On Sat, 21 Feb 2015 23:34:42 -0600, Ed Gould wrote: http://www.washingtonpost.com/national/health-science/what-imitation- game-didnt-tell-you-about-alan-turings-greatest-triumph/2015/02/20/ ffd210b6-b606-11e4-9423-f3d0a1ec335c_story.html What �The Imitation Game� didn�t tell you about Turing�s greatest triumph Unwrapped, I hope: http://www.washingtonpost.com/national/health-science/what-imitation-game-didnt-tell-you-about-alan-turings-greatest-triumph/2015/02/20/ffd210b6-b606-11e4-9423-f3d0a1ec335c_story.html Ed needs to get a better mail agent. In cases such as this, dumber is probably better than amarter. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Wayne V. Bickerdike -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Mount path more than 72 characters - error
Hello, Cross Posted to IBM-MAIN and MVS-OE group. I am trying to mount the below paths using BPXPRM00(Used the '00' in IEASYS00) but it fails. THE MOUNT POINT SPECIFIED IN BPXPRM00 DOES NOT EXIST. BPXF008I FILE SYSTEM M.SS.E.QQ.ZFS 393 WAS NOT MOUNTED. THE MOUNT POINT SPECIFIED IN BPXPRM00 DOES NOT EXIST. BPXF008I FILE SYSTEM M.R.E.PP.ZFS 394 WAS NOT MOUNTED. THE MOUNT POINT SPECIFIED IN BPXPRM00 DOES NOT EXIST. Mount point and File system: MOUNT FILESYSTEM('MM.SS.E.QQ.ZFS') MOUNTPOINT('/u/users/fffworke/mfcharl/msinstal/chrr080/qq/rolll/security ') TYPE(ZFS) MODE(RDWR) MOUNT FILESYSTEM('M.R.E.PP.ZFS') MOUNTPOINT('/u/users/fffworke/mfcharl/msinstal/chrr080/qq/rolll/security ') TYPE(ZFS) MODE(RDWR) As per the MVS tuning reference guide, the Mount definition can given till 71st line and the part of the definition can be continued in the next line. I did the same based on Manual recommendation but during the MVS SYNTAXCHECK it does not produces any error messages. After the IPL, i get the above error messages. Then the same path I mount using ISHELL.All the paths are in smaller case. Not sure if there is anything I missed. Any suggestions are advises much appreciated. z/OS : 2.1 Jake -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Delete all members from PDS with symbolic in name?
On Mon, 23 Feb 2015 15:00:52 -0800, Charles Mills wrote: I'm trying to do the following and I know it does not work because IDCAMS says IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME But is there a way to do something like this, without restricting the job to V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the PDS is named with a JCL symbol: DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD) Well, since most of the PDSes I care about are NFS automounted to Solaris systems, I'd do: rm /mvsmount/foo/*.load/* ... wondering the while why programmers torture themselves by restricting themselves to Legacy MVS constructs. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A possible bug in the IBM Runtimne C library
I guess I will use SYNC to ensure all integral boundaries... next release :) ZA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Mount path more than 72 characters - error
On Mon, 23 Feb 2015 14:10:20 +0530, Jake anderson wrote: THE MOUNT POINT SPECIFIED IN BPXPRM00 DOES NOT EXIST. BPXF008I FILE SYSTEM M.SS.E.QQ.ZFS 393 WAS NOT MOUNTED. ... Mount point and File system: MOUNT FILESYSTEM('MM.SS.E.QQ.ZFS') MOUNTPOINT('/u/users/fffworke/mfcharl/msinstal/chrr080/qq/rolll/security ') TYPE(ZFS) MODE(RDWR) ... I did the same based on Manual recommendation but during the MVS SYNTAXCHECK it does not produces any error messages. After the IPL, i get the above error messages. This would seem to be not a syntax error but an environmental error (DOES NOT EXIST), which a syntax check does not detect. And I'm left wondering why z/OS elects to inflict such anguish on its UNIX administrators by requiring them to adhere to 80-column punched card techniques. It seems to be a dog-in-manger behavior of the Old School. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Delete all members from PDS with symbolic in name?
Yeah, you're right. Thanks. I was picturing doing something where I copied the space allocation from the old to the new but (1) there's no need: I can hard-code the size; and (2) what I was picturing does not exist anyway: there is no such specification as SPACE=*.ddname or *.stepname.ddname. (Does it seem odd that there is not? That would be useful and not hard to have implemented, right?) Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Nims,Alva John (Al) Sent: Monday, February 23, 2015 3:31 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Delete all members from PDS with symbolic in name? There a couple of programs on the CBTTAPE (cbttape.org) that can empty a PDS or PDSe. As stated, the PDS command can also be used. Using IEFBR14, you can a little simpler than what you specified. //DELETE EXEC PGM=IEFBR14 //DELETE DD DISP=(MOD,DELETE),SPACE=(TRK,(0)), // DSN=FOO.FMID..LOAD //ALLOC EXEC PGM=IEFBR14 //NEW DD DISP=(NEW,CATLG,DELETE), // DSN=FOO.FMID..LOAD 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 Charles Mills Sent: Monday, February 23, 2015 6:01 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Delete all members from PDS with symbolic in name? I'm trying to do the following and I know it does not work because IDCAMS says IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME But is there a way to do something like this, without restricting the job to V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the PDS is named with a JCL symbol: //DELETMEM EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //OUTLOAD DD DISP=(OLD,KEEP),DSN=FOO.FMID..LOAD //SYSINDD * DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD) /* I suppose I could do something with IEFBR14 and allocate a new dataset with a temporary name in one step and then delete the old dataset and rename the new one in the next step. Is there something easier? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Delete all members from PDS with symbolic in name?
Well, one answer would be that it is step 5 of a 14-step batch job. Another answer would be because I don't have a Solaris system, know nothing about them, and have my plate full already of stuff that I AM supposed to be learning and that is of more interest to me. g Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Monday, February 23, 2015 4:50 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Delete all members from PDS with symbolic in name? On Mon, 23 Feb 2015 15:00:52 -0800, Charles Mills wrote: I'm trying to do the following and I know it does not work because IDCAMS says IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME But is there a way to do something like this, without restricting the job to V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the PDS is named with a JCL symbol: DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD) Well, since most of the PDSes I care about are NFS automounted to Solaris systems, I'd do: rm /mvsmount/foo/*.load/* ... wondering the while why programmers torture themselves by restricting themselves to Legacy MVS constructs. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A possible bug in the IBM Runtimne C library
The SYNCHRONIZED clause is new to me (I do not code COBOL on regular basis any more.) I will incorporate that in the next release. Thanks to all who had suggested it ZA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A possible bug in the IBM Runtimne C library
Thanks Kolusu I will look into the PL/I interface for both this and the PCRE... maybe next release ZA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
A Must read --------
Check out this article on Wired.com.How the NSA’s Firmware Hacking Works and Why It’s So Unsettling http://www.wired.com/2015/02/nsa-firmware-hacking/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Delete all members from PDS with symbolic in name?
On Mon, 23 Feb 2015 17:09:57 -0800, Charles Mills wrote: Well, one answer would be that it is step 5 of a 14-step batch job. Another answer would be because I don't have a Solaris system, know nothing about them, and have my plate full already of stuff that I AM supposed to be learning and that is of more interest to me. g One might do as well with Linux, available on a variety of platforms from x86 to z. (But John M. has reported NFS problems.) NFS mounting Classic data sets to z/OS UNIX System Services would seem a natural approach, but I've heard no reports of success with such a configuration. Allocation of personal development resource must be decideg by ROI, of course. It has been said that Perl is the duct tape of UNIX. And it appears that DFSORT is the vise-grip plier of z/OS. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: O/T What The Imitation Game¹ didn¹t tell you about Turing¹s greatest triumph - The Washington Post
At 11:59 -0600 on 02/23/2015, Paul Gilmartin wrote about Re: O/T What The Imitation Game¹ didn¹t tell you abo: On Mon, 23 Feb 2015 10:14:44 -0600, Joel Ewing wrote: In the original Email that I received from Ed the Email source text (as opposed to the way my Email client renders it) shows the presence of a hex-encoded blank (= 2 0) followed by a CR at about the 70-character GIYF: Character-set: USASCII; Format-flowed Content-transfer-encoding: Quoted-printable This is certainly a confusing inconsistency in Thunderbird if not an out-right bug (depends on whether this way of wrapping long character strings is actually an approved Email standard). RFC 822 requires support for up to 999. Format-flowed says that long lines are split with each line ending in =20CR. Each split line should be no longer than 80 characters (including the =20CR). Your input meets this format. The =20CR is removed and the next line is concatenated until a line does NOT end with =20CR. At that point you have the original long input line. This requires that the receiving MUA support Format-flowed however. Apparently some other Email clients do interpret it in a way that preserves the link. On the other hand there are certainly Email clients that send long URLs without using this formatting convention, as I frequently receive long URLs in Emails (including the reformatted version of this URL from Paul) that work fine with Thunderbird. See my prior message. The URL was malformed since it was not included in angle brackets. URLs without angle brackets are part of the text and are not indicated as URLs - Thus may not be spotted for special treatment. Note that such text URLs MAY be correctly handled anyway but you are playing Russian Roulette with 5 bullets if you do not bracket your URLs. -- 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: A Must read --------
On Tue, 24 Feb 2015 01:15:17 -0500, Scott Ford wrote: Check out this article on Wired.com.How the NSA’s Firmware Hacking Works and Why It’s So Unsettling And NSA director Michael Rogers says everything they do is lawful. Without actually admitting they do *anything*. I note they drop a dll on the victims ... lol. Shane ... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CEE3SRP/CEEMRCE example in LE C?
Here's CEE3DMP in C if that helps: _CHAR80 dumpTitle = blah blah blah; // do not exceed 60 characters per z/OS V1R10.0 Language Environment Programming Reference _CHAR255 dumpOptions = BLOCKS,REGSTOR(256),FNAME(CZADIAG),NOENTRY; _FEEDBACK fc; CEE3DMP(dumpTitle, dumpOptions, fc); Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Janet Graff Sent: Monday, February 23, 2015 3:29 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: CEE3SRP/CEEMRCE example in LE C? The LE Programming Guide has examples of using CEE3SRP and CEEMRCE in Cobol and PL/I. I have mine coded in C. Does anyone have a sample of calling for a resume in C that I can compare my attempt to? I've got something funky about my addressing. The proper token address is passed to the abend handler and the token points to my structure but my structure elements aren't formatted properly in the abend handler. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Delete all members from PDS with symbolic in name?
Ha! You're a genius! Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Monday, February 23, 2015 3:37 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Delete all members from PDS with symbolic in name? Charles, Try this // SET FMID='' //STEP0100 EXEC PGM=IKJEFT01, // PARM='DELETE ''FOO.FMID..LOAD(*)''' //SYSTSPRT DD SYSOUT=* //SYSTSIN DD DUMMY //* Kolusu IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 02/23/2015 03:00:52 PM: From: Charles Mills charl...@mcn.org To: IBM-MAIN@LISTSERV.UA.EDU Date: 02/23/2015 03:01 PM Subject: Delete all members from PDS with symbolic in name? Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU I'm trying to do the following and I know it does not work because IDCAMS says IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME But is there a way to do something like this, without restricting the job to V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the PDS is named with a JCL symbol: -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Mount path more than 72 characters - error
On Mon, 23 Feb 2015 16:30:42 +0530, Jake anderson justmainfra...@gmail.com wrote: I have specified the letter 'Y' at the 71st column and I have continued the next definition in First Column. ...snipped... MOUNT FILESYSTEM('M.R.E.PP.ZFS') MOUNTPOINT('/u/users/fffworke/mfcharl/msinstal/chrr080/qq/rolll/security ') TYPE(ZFS) MODE(RDWR) Just curious about something: In the node before security does the word rolll really have 3 l (el) characters? If you think that the y is in column 71 maybe you have a typo in what you've shown us, or in what's really in your member. In any case, I agree with Elardus that in what you've shown us the y is in column 72. -- Walt -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IEASYMxx: How is possible define more than one LPARNAME at same time in SYSDEF?
1. You always name the 'other guy' with CTC addresses, never yourself, because in the world of CTCs, you cannot talk to yourself. 2. It helps immensely to have a strict CTC addressing convention. I've discussed the topic here in the past. I presented a SHARE session on it some time ago. 3. Even without a strict naming convention, you can set up IEASYMxx to handle various situations. Basically for an LPAR that 'moves' in DR, you would need to specify a different CTC address. For one that does not move, you specify the same address. 4. All of this can be controlled by judicious use of LOADxx and IEASYMxx. No operator commands are required. . . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Horein Sent: Sunday, February 22, 2015 7:24 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IEASYMxx: How is possible define more than one LPARNAME at same time in SYSDEF? On Sat, Feb 21, 2015 at 6:41 PM, J O Skip Robinson jo.skip.robin...@sce.com wrote: SYMDEF(CTCPID#1='i-xxx,i-yyy') /* SET INPUT ADDRESS LIST */ SYMDEF(CTCPOD#1='o-xxx,o-yyy') /* SET OUTPUT ADDRESS LIST */ For clarification, does 'xxx' represent the address on z196-1, and 'yyy' the address on z196-2? Or are both addresses defined to the same HWNAME? I glanced at both MVS Init Tuning Reference and Setting up a Sysplex, but didn't find a good description of the behavior (or benefits?) of specifying multiple devices. I interpreted the OP's question to relate more on how to handle the TEST systems when PROD systems move around, and was going to suggest using SETXCF MODIFY command on the TEST LPARs to specify new Inbound/Outbound addresses for the new PROD connections. Symbolics could still be used in that case, defining normal operations addresses, and FDR addresses when PROD is on alternate hardware. If 'yyy' automagically takes over when 'xxx' is not available, then a lot less manual effort (in the form of console commands) would be required. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Delete all members from PDS with symbolic in name?
The PDS command can handle this task very nicely. . . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Monday, February 23, 2015 3:01 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Delete all members from PDS with symbolic in name? I'm trying to do the following and I know it does not work because IDCAMS says IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME But is there a way to do something like this, without restricting the job to V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the PDS is named with a JCL symbol: //DELETMEM EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //OUTLOAD DD DISP=(OLD,KEEP),DSN=FOO.FMID..LOAD //SYSINDD * DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD) /* I suppose I could do something with IEFBR14 and allocate a new dataset with a temporary name in one step and then delete the old dataset and rename the new one in the next step. Is there something easier? Thanks, Charles -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
CEE3SRP/CEEMRCE example in LE C?
The LE Programming Guide has examples of using CEE3SRP and CEEMRCE in Cobol and PL/I. I have mine coded in C. Does anyone have a sample of calling for a resume in C that I can compare my attempt to? I've got something funky about my addressing. The proper token address is passed to the abend handler and the token points to my structure but my structure elements aren't formatted properly in the abend handler. Janet -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Delete all members from PDS with symbolic in name?
There a couple of programs on the CBTTAPE (cbttape.org) that can empty a PDS or PDSe. As stated, the PDS command can also be used. Using IEFBR14, you can a little simpler than what you specified. //DELETE EXEC PGM=IEFBR14 //DELETE DD DISP=(MOD,DELETE),SPACE=(TRK,(0)), // DSN=FOO.FMID..LOAD //ALLOC EXEC PGM=IEFBR14 //NEW DD DISP=(NEW,CATLG,DELETE), // DSN=FOO.FMID..LOAD 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 Charles Mills Sent: Monday, February 23, 2015 6:01 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Delete all members from PDS with symbolic in name? I'm trying to do the following and I know it does not work because IDCAMS says IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME But is there a way to do something like this, without restricting the job to V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the PDS is named with a JCL symbol: //DELETMEM EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //OUTLOAD DD DISP=(OLD,KEEP),DSN=FOO.FMID..LOAD //SYSINDD * DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD) /* I suppose I could do something with IEFBR14 and allocate a new dataset with a temporary name in one step and then delete the old dataset and rename the new one in the next step. Is there something easier? Thanks, 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
Re: Delete all members from PDS with symbolic in name?
Charles, Try this // SET FMID='' //STEP0100 EXEC PGM=IKJEFT01, // PARM='DELETE ''FOO.FMID..LOAD(*)''' //SYSTSPRT DD SYSOUT=* //SYSTSIN DD DUMMY //* Kolusu IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 02/23/2015 03:00:52 PM: From: Charles Mills charl...@mcn.org To: IBM-MAIN@LISTSERV.UA.EDU Date: 02/23/2015 03:01 PM Subject: Delete all members from PDS with symbolic in name? Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU I'm trying to do the following and I know it does not work because IDCAMS says IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME But is there a way to do something like this, without restricting the job to V2R1 and symbols in SYSIN? I want to delete all members of a PDS where the PDS is named with a JCL symbol: //DELETMEM EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //OUTLOAD DD DISP=(OLD,KEEP),DSN=FOO.FMID..LOAD //SYSINDD * DELETE FOO.*.LOAD(*) NONVSAM FILE(OUTLOAD) /* I suppose I could do something with IEFBR14 and allocate a new dataset with a temporary name in one step and then delete the old dataset and rename the new one in the next step. Is there something easier? Thanks, 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