Re: JCL Question
R.Skorupka wrote: I dare to disagree. Completely. Feel free to do that. Search the archives. My reply is for those who don't have those automation software. 1. ControlM (and others) did that despite of the reasons above. Agreed. I'm indeed using those %%variables to generate datasets and reports for my RACF audit reports. Can't already live without those %%variables. :-D 2. Scope of the facilities offered by %%variables is much wider than system variables which are available in STC, but not in batch. Some of the facilities are completely unrelated to the considerations above. 3. ControlM do offer rich set of datetime variables and functions, so you have ordering date, execution date etc. Anything you want. With no ambiguity. Here I agree with you... ;-D But not every one has that luxury. This is why this thread originally started. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
The trick is to run a process at 23:59:59 everyday to update the MCDATE member in a proclib that is in your JES2 proclib concatenation. We've done this for years and it works well. This is exactly what we do at our shop. In case the user needs to use variables in SYSIN DD type datasets, then we exploit EZACFSM1. Walter Marguccio z/OS Systems Programmer BELENUS LOB Informatic GmbH Munich - Germany -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
W dniu 2011-07-13 14:52, McKown, John pisze: I'd likely use JES exit 2 to insert // SET DATE=... // SET TIME=... and so on into the JCL stream immediately after the JOB card. And I like Job Scheduler Utilities for such purposes. For example ControlM has %%variables, with strong support for date, time, day of week, days since, etc. but not only. And you can do some simple calculations, string operations, IF, CASE operators, etc. etc. That makes any homegrown tricks much much less sexy. I believe that competition products have similar faicilities. I believe this is main reason why JCL haven't been enhanced to have such facilities. BIG customers - those which IBM listen to - already have such facilities (in Job Scheduler) and have no reason to push IBM. I also think the above is also reason for uchanged limit for GDG - 255. -- Radoslaw Skorupka Lodz, Poland -- Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku. This e-mail may contain legally privileged information of the Bank and is intended solely for business use of the addressee. This e-mail may only be received by the addressee and may not be disclosed to any third parties. If you are not the intended addressee of this e-mail or the employee authorised to forward it to the addressee, be advised that any dissemination, copying, distribution or any other similar activity is legally prohibited and may be punishable. If you received this e-mail by mistake please advise the sender immediately by using the reply facility in your e-mail software and delete permanently this e-mail including any copies of it either printed or saved to hard drive. BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax +48 (22) 829 00 33, e-mail: i...@brebank.pl Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. Wedug stanu na dzie 01.01.2011 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 168.346.696 zotych. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
In cajtoo5-fxq7vkwj3yayw0ncrfgbqhdzaxqjj76mzxsngm_e...@mail.gmail.com, on 07/13/2011 at 09:04 PM, Mike Schwab mike.a.sch...@gmail.com said: I have done an IEBGENER to a INTRDR to run the same job until I broke the loop. That's not iteration in JCL. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
R. Skorupka wrote: I believe this is main reason why JCL haven't been enhanced to have such facilities. BIG customers - those which IBM listen to - already have such facilities (in Job Scheduler) and have no reason to push IBM. Partly true, but the actual reason has been stated many times here on IBM-MAIN: Reason - where and when do you want variables substituted? On the system where JCL is submitted or on the system where the JCL is to be executed? Before you yell at me that date/time is universal on any machine, take in account the local time of the machine where you want date/time substitution... About when - at submission or at job start or what? Who do you want the actual work to be done: JES2 at interpretation or when the resource manager gets the DD statements? Forget for now about the possibility that the date/time variables are substituted in next day or week... :-) Also forget for a moment about possible mixup of local times and/or Zulu time (greenwich time) ;-D Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
Indeed that becomes important. When I was working on a 200 ( and growing) node jesx/rscs/ power systems it became extremely complex as sometimes when a job floated it became let's say difficult to figure out. When it became fun trying to contact the various tech people to find out about the System it came through. Add to that some of the techies were let's say less than fully informed you could end up chasing your tail. Let me assure you that there is just not one way to make everyone happy. Ed Sent from my iPad On Jul 14, 2011, at 12:56 PM, Elardus Engelbrecht elardus.engelbre...@sita.co.za wrote: R. Skorupka wrote: I believe this is main reason why JCL haven't been enhanced to have such facilities. BIG customers - those which IBM listen to - already have such facilities (in Job Scheduler) and have no reason to push IBM. Partly true, but the actual reason has been stated many times here on IBM-MAIN: Reason - where and when do you want variables substituted? On the system where JCL is submitted or on the system where the JCL is to be executed? Before you yell at me that date/time is universal on any machine, take in account the local time of the machine where you want date/time substitution... About when - at submission or at job start or what? Who do you want the actual work to be done: JES2 at interpretation or when the resource manager gets the DD statements? Forget for now about the possibility that the date/time variables are substituted in next day or week... :-) Also forget for a moment about possible mixup of local times and/or Zulu time (greenwich time) ;-D Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
W dniu 2011-07-14 19:56, Elardus Engelbrecht pisze: R. Skorupka wrote: I believe this is main reason why JCL haven't been enhanced to have such facilities. BIG customers - those which IBM listen to - already have such facilities (in Job Scheduler) and have no reason to push IBM. Partly true, but the actual reason has been stated many times here on IBM-MAIN: Reason - where and when do you want variables substituted? On the system where JCL is submitted or on the system where the JCL is to be executed? Before you yell at me that date/time is universal on any machine, take in account the local time of the machine where you want date/time substitution... About when - at submission or at job start or what? Who do you want the actual work to be done: JES2 at interpretation or when the resource manager gets the DD statements? Forget for now about the possibility that the date/time variables are substituted in next day or week... :-) Also forget for a moment about possible mixup of local times and/or Zulu time (greenwich time) ;-D I dare to disagree. Completely. 1. ControlM (and others) did that despite of the reasons above. 2. Scope of the facilities offered by %%variables is much wider than system variables which are available in STC, but not in batch. Some of the facilities are completely unrelated to the considerations above. 3. ControlM do offer rich set of datetime variables and functions, so you have ordering date, execution date etc. Anything you want. With no ambiguity. 4. What about GDG 365 ??? %$%! Regards -- Radoslaw Skorupka Lodz, Poland P.S. I'm not selling ControlM, the above is not advertisement. shameless plug I'm pretty sure that me and my coleague are very first users of CtM in Poland, possibly first users of any batch scheduler in our country g It was BooleBabbage branded then... /shameless plug -- Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku. This e-mail may contain legally privileged information of the Bank and is intended solely for business use of the addressee. This e-mail may only be received by the addressee and may not be disclosed to any third parties. If you are not the intended addressee of this e-mail or the employee authorised to forward it to the addressee, be advised that any dissemination, copying, distribution or any other similar activity is legally prohibited and may be punishable. If you received this e-mail by mistake please advise the sender immediately by using the reply facility in your e-mail software and delete permanently this e-mail including any copies of it either printed or saved to hard drive. BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax +48 (22) 829 00 33, e-mail: i...@brebank.pl Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. Wedug stanu na dzie 01.01.2011 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 168.346.696 zotych. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
I have a UJV exit that we market which allows you to create variables for BATCH jobs as well as STC's. At our customer sites we use it to control the DSN's of the backups and hundreds of other jobs. The users also take advantage of the capabilities, (the ones that know how to read the manual :)). You can license ours, or you can download a very similar one from www.cbttape.org/ file 573 that has a few less capabilities (but should be able to do the below), but is free. i.e. // SET BKPDSN='DZYEAR.ZMONTH.ZDAY..TZTIME.' //BACKUP00 EXEC PGM=ADRDSSU,REGION=0M //SYSPRINT DD SYSOUT=* //DISK0DD UNIT=3390,DISP=SHR,VOL=SER=FC6C00 //TAPE0DD UNIT=3480,DISP=(,CATLG),LABEL=(1,SL), //DSN=SYSTAPE.Z13DL1.BKPDSN,VOL=(,RETAIN,,10) ends up with a DSN (assuming the job runs today at 22:59) of: SYSTAPE.Z13DL1.D110712.T2259 There are literally hundreds (well, maybe a lot is a better term) of JCL variables that you can create using the exit and you are not limited to running as a Started Task for any of them. Some people don't like using exits, I personally feel that a good exit is worth it's weight in gold. Eventually IBM will come around and support doing this natively, and (currently) there are a lot of reasons why they can't, but there is no reason you shouldn't do it on your own until then. Brian -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
W dniu 2011-07-12 21:36, Ted MacNEIL pisze: I disagree. JCL meets all criteria to be a programming language. It doesn't do everything, but what language does? Watch the name: JOB CONTROL language. In fact there is no big value in JCL classification, especially as there is no single exact definition of programming language. Last, but not least: let's imagine we would work out the classification. And ? But, it is more complex than channel programmes, and they're considered a programming language. You compare channel programs to programming language. Not to mention that channel programs are functionally similar to SCSI commands. -- Radoslaw Skorupka Lodz, Poland -- Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku. This e-mail may contain legally privileged information of the Bank and is intended solely for business use of the addressee. This e-mail may only be received by the addressee and may not be disclosed to any third parties. If you are not the intended addressee of this e-mail or the employee authorised to forward it to the addressee, be advised that any dissemination, copying, distribution or any other similar activity is legally prohibited and may be punishable. If you received this e-mail by mistake please advise the sender immediately by using the reply facility in your e-mail software and delete permanently this e-mail including any copies of it either printed or saved to hard drive. BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax +48 (22) 829 00 33, e-mail: i...@brebank.pl Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. Wedug stanu na dzie 01.01.2011 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 168.346.696 zotych. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
On Wed, 13 Jul 2011 10:28:33 +0200 R.S. r.skoru...@bremultibank.com.pl wrote: :W dniu 2011-07-12 21:36, Ted MacNEIL pisze: : I disagree. : JCL meets all criteria to be a programming language. : It doesn't do everything, but what language does? :Watch the name: JOB CONTROL language. How many legs does a dog have, if you call a tail a leg? Four - just because you call a tail a leg does not make it a leg. :In fact there is no big value in JCL classification, especially as there :is no single exact definition of programming language. Last, but not :least: let's imagine we would work out the classification. And ? : But, it is more complex than channel programmes, and they're considered a programming language. :You compare channel programs to programming language. Not to mention :that channel programs are functionally similar to SCSI commands. -- Binyamin Dissen bdis...@dissensoftware.com http://www.dissensoftware.com Director, Dissen Software, Bar Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
W dniu 2011-07-13 10:44, Binyamin Dissen pisze: On Wed, 13 Jul 2011 10:28:33 +0200 R.S.r.skoru...@bremultibank.com.pl wrote: :W dniu 2011-07-12 21:36, Ted MacNEIL pisze: : I disagree. : JCL meets all criteria to be a programming language. : It doesn't do everything, but what language does? :Watch the name: JOB CONTROL language. How many legs does a dog have, if you call a tail a leg? Four - just because you call a tail a leg does not make it a leg. No, in general it is matter of definition. My English is poor, but let me present another example, as off topic as dog's one: A car. In my country, Combi (Wagon) car is named in folders as 5-doors car. Hatchback is also 5-doors or 3-doors. Does anyone use the tailgate as a doors? Definition of leg is common and quite well specified/understood. For ages. Definition of programming language is not and IMHO it could evolve significantly during last 40 years. Last, but not least: since we talk about PROGRAMMING language that means there are non-programming (but computer-related) languages. -- Radoslaw Skorupka Lodz, Poland -- Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku. This e-mail may contain legally privileged information of the Bank and is intended solely for business use of the addressee. This e-mail may only be received by the addressee and may not be disclosed to any third parties. If you are not the intended addressee of this e-mail or the employee authorised to forward it to the addressee, be advised that any dissemination, copying, distribution or any other similar activity is legally prohibited and may be punishable. If you received this e-mail by mistake please advise the sender immediately by using the reply facility in your e-mail software and delete permanently this e-mail including any copies of it either printed or saved to hard drive. BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax +48 (22) 829 00 33, e-mail: i...@brebank.pl Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. Wedug stanu na dzie 01.01.2011 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 168.346.696 zotych. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
I'd likely use JES exit 2 to insert // SET DATE=... // SET TIME=... and so on into the JCL stream immediately after the JOB card. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Brian Westerman Sent: Wednesday, July 13, 2011 1:00 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL Question I have a UJV exit that we market which allows you to create variables for BATCH jobs as well as STC's. At our customer sites we use it to control the DSN's of the backups and hundreds of other jobs. The users also take advantage of the capabilities, (the ones that know how to read the manual :)). You can license ours, or you can download a very similar one from www.cbttape.org/ file 573 that has a few less capabilities (but should be able to do the below), but is free. i.e. // SET BKPDSN='DZYEAR.ZMONTH.ZDAY..TZTIME.' //BACKUP00 EXEC PGM=ADRDSSU,REGION=0M //SYSPRINT DD SYSOUT=* //DISK0DD UNIT=3390,DISP=SHR,VOL=SER=FC6C00 //TAPE0DD UNIT=3480,DISP=(,CATLG),LABEL=(1,SL), //DSN=SYSTAPE.Z13DL1.BKPDSN,VOL=(,RETAIN,,10) ends up with a DSN (assuming the job runs today at 22:59) of: SYSTAPE.Z13DL1.D110712.T2259 There are literally hundreds (well, maybe a lot is a better term) of JCL variables that you can create using the exit and you are not limited to running as a Started Task for any of them. Some people don't like using exits, I personally feel that a good exit is worth it's weight in gold. Eventually IBM will come around and support doing this natively, and (currently) there are a lot of reasons why they can't, but there is no reason you shouldn't do it on your own until then. Brian -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
On 7/13/2011 6:52 AM, R.S. wrote: No, in general it is matter of definition. My English is poor, but let me present another example, as off topic as dog's one: A car. In my country, Combi (Wagon) car is named in folders as 5-doors car. Hatchback is also 5-doors or 3-doors. Does anyone use the tailgate as a doors? Since we're already off-topic - yes. Some years ago the locks on my station wagon froze (we have fairly cold winters), and I had to get into the car through the back. Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
In of2fd6182a.9e19429d-on862578cb.00711c7c-862578cb.00711...@assurant.com, on 07/12/2011 at 03:35 PM, Jonathan Goossen jonathan.goos...@assurant.com said: Job Control Language Gesundheit! That's not even a claim that it's a programming language. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
In 887215793-1310501180-cardhu_decombobulator_blackberry.rim.net-1377146756-@b12.c1.bise6.blackberry, on 07/12/2011 at 08:06 PM, Ted MacNEIL eamacn...@yahoo.ca said: Looping constructs are not required to make it a programming language. The ability to iterate is. Of course, that can be done with recursion rather than explicit loops, but JCL doesn't have that either. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
In 45e5f2f45d7878458ee5ca679697335502e25...@usdaexch01.kbm1.loc, on 07/12/2011 at 12:57 PM, Staller, Allan allan.stal...@kbmg.com said: IIRC, static system symbols can be substituted in JCL. For STC and TSU, but not for batch. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
In 1340844227-1310499369-cardhu_decombobulator_blackberry.rim.net-208261873-@b12.c1.bise6.blackberry, on 07/12/2011 at 07:36 PM, Ted MacNEIL eamacn...@yahoo.ca said: I disagree. JCL meets all criteria to be a programming language. Nonsense. It doesn't do everything, but what language does? Irrelevant. The question isn't whether it does everything, the question is whether it does at least the minimum. It doesn't. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
We create thousands of datasets with a date stamp as a qualifier. See example: //BJKBR14 JOB 1,'BRYAN K.',CLASS=Z,MSGCLASS=X,MSGLEVEL=(1,1) //INCL INCLUDE MEMBER=MCDATE //STEP005 EXEC PGM=IEFBR14 //DD1 DD DSN=SHRT.DUMMY.DMCDATE,UNIT=VIO,SPACE=(TRK,(1,1)) The expanded JCL after execution looks like this: 1 //BJKBR14 JOB 1,'BRYAN K.',CLASS=Z,MSGCLASS=X,MSGLEVEL=(1,1) JOB54091 2 //INCL INCLUDE MEMBER=MCDATE XX* SET A VARIABLE FOR THE CURRENT DATA 3 XXDTSTAMP SET MCDATE=2011194 4 //STEP005 EXEC PGM=IEFBR14 5 //DD1 DD DSN=SHRT.DUMMY.DMCDATE,UNIT=VIO,SPACE=(TRK,(1,1)) IEFC653I SUBSTITUTION JCL - DSN=SHRT.DUMMY.D2011194,UNIT=VIO,SPACE=(TRK,(1,1)) The trick is to run a process at 23:59:59 everyday to update the MCDATE member in a proclib that is in your JES2 proclib concatenation. We've done this for years and it works well. I guess the only downside is if the automation task somehow fails to update the MCDATE member at midnight. Bryan Klimek Mayo Clinic -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
How about EZACFSM1? -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Mosley, George Sent: Tuesday, July 12, 2011 1:28 PM To: IBM-MAIN@bama.ua.edu Subject: JCL Question Hello All. We're trying to set up a batch job that will append a datestamp to a dataset name. For example: //S0 EXEC PGM=EMCSRDF //SYSPRINT DD DSN=STRG.SRDF.INVTRKS.JUL09.@1408, //STORCLAS=BASE,MGMTCLAS=MEDIUM, //DISP=(,CATLG), //SPACE=(TRK,(15,15),RLSE), //DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0) //SYSINDD * EMC-SQ VOL,44FA,INV_TRKS /* When we run this job, we hard code JUL09.@1408 to the end of the SYSPRINT dataset name. Is there a way to have the JCL automatically add the datestamp? George (ICBC) This email and any attachments are intended only for the named recipient and may contain confidential and/or privileged material. Any unauthorized copying, dissemination or other use by a person other than the named recipient of this communication is prohibited. If you received this in error or are not named as a recipient, please notify the sender and destroy all copies of this email immediately. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
On Wed, Jul 13, 2011 at 1:07 PM, Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net wrote: Looping constructs are not required to make it a programming language. The ability to iterate is. Of course, that can be done with recursion rather than explicit loops, but JCL doesn't have that either. -- Shmuel (Seymour J.) Metz, SysProg and JOAT I have done an IEBGENER to a INTRDR to run the same job until I broke the loop. -- 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...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
The ability to iterate is. Of course, that can be done with recursion rather than explicit loops, but JCL doesn't have that either Looping/iteration, while desirable, is NOT a requirement to be a programming language. Just stepping through is adequate! - Ted MacNEIL eamacn...@yahoo.ca Twitter: @TedMacNEIL -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
On Tue, 12 Jul 2011 17:27:58 +, Mosley, George wrote: Is there a way to have the JCL automatically add the datestamp? No. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
IIRC, static system symbols can be substituted in JCL. Check the Init Tuning Guide for details as what the static system symbols are. Try: //SYSPRINT DD DSN=STRG.SRDF.INVTRKS.SYSDATE., //STORCLAS=BASE,MGMTCLAS=MEDIUM, //DISP=(,CATLG), //SPACE=(TRK,(15,15),RLSE), //DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0) (I think I got the syntax right). If that does not work, there are several utility programs on the CBT tape (www.cbttape.org) that will perform symbol substitution for you. HTH, snip We're trying to set up a batch job that will append a datestamp to a dataset name. For example: //SYSPRINT DD DSN=STRG.SRDF.INVTRKS.JUL09.@1408, //STORCLAS=BASE,MGMTCLAS=MEDIUM, //DISP=(,CATLG), //SPACE=(TRK,(15,15),RLSE), //DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0) // When we run this job, we hard code JUL09.@1408 to the end of the SYSPRINT dataset name. Is there a way to have the JCL automatically add the datestamp? /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
I found this on the web and it appears to work but you can bypass the first job by running as a Started Task: //ABAB77V1 JOB (0400,PT,PES),'KIRAN',CLASS=C,MSGCLASS=X, // MSGLEVEL=(1,1),NOTIFY=ABAB77,REGION=0008192K //STEP0100 EXEC PGM=EZACFSM1 //SYSOUTDD SYSOUT=(*,INTRDR) //SYSIN DD DATA,DLM=@@ //ABAB77V2 JOB (0400,PT,PES), // 'VIJAY', // CLASS=C, // MSGCLASS=X, // NOTIFY=SYSUID //STEPK1 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=ABAB.TX.SND.SQUS0001.SI,DISP=SHR //SYSUT2 DD DSN=ABAB.TX.SND.SQUS0001.SI.DLYYMMDD..TLHHMMSS, //DISP=(NEW,CATLG,DELETE), //SPACE=(CYL,(2,2),RLSE), //DCB=(LRECL=890,RECFM=FB) //SYSIN DD DUMMY @@ For the Started Task all you need is: //STEPK1 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=ABAB.TX.SND.SQUS0001.SI,DISP=SHR //SYSUT2 DD DSN=ABAB.TX.SND.SQUS0001.SI.DLYYMMDD..TLHHMMSS, //DISP=(NEW,CATLG,DELETE), //SPACE=(CYL,(2,2),RLSE), //DCB=(LRECL=890,RECFM=FB) //SYSIN DD DUMMY -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Mosley, George Sent: Tuesday, July 12, 2011 1:28 PM To: IBM-MAIN@bama.ua.edu Subject: JCL Question Hello All. We're trying to set up a batch job that will append a datestamp to a dataset name. For example: //S0 EXEC PGM=EMCSRDF //SYSPRINT DD DSN=STRG.SRDF.INVTRKS.JUL09.@1408, //STORCLAS=BASE,MGMTCLAS=MEDIUM, //DISP=(,CATLG), //SPACE=(TRK,(15,15),RLSE), //DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0) //SYSINDD * EMC-SQ VOL,44FA,INV_TRKS /* When we run this job, we hard code JUL09.@1408 to the end of the SYSPRINT dataset name. Is there a way to have the JCL automatically add the datestamp? George (ICBC) This email and any attachments are intended only for the named recipient and may contain confidential and/or privileged material. Any unauthorized copying, dissemination or other use by a person other than the named recipient of this communication is prohibited. If you received this in error or are not named as a recipient, please notify the sender and destroy all copies of this email immediately. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html This e-mail may contain confidential or privileged information. If you think you have received this e-mail in error, please advise the sender by reply e-mail and then delete this e-mail immediately. Thank you. Aetna -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
On 7/12/2011 1:27 PM, Mosley, George wrote: We're trying to set up a batch job that will append a datestamp to a dataset name. //SYSPRINT DD DSN=STRG.SRDF.INVTRKS.JUL09.@1408, Is there a way to have the JCL automatically add the datestamp? Not per se, but you could add code for the submission/conversion date in a system exit (e.g., IEFUJV, or one of the JES exits). Depending on how you get the JCL into the system, it might be easier to do as part of the submission process? Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
contrary to popular misconceptions, JCL is not a programming language, meaning it's not used to manipulate data. To append data onto any existing file, code disp=mod instead of shr/new/old and use appropriate pgm/util to read in write out what you want. --- On Tue, 7/12/11, Mosley, George george.mos...@icbc.com wrote: From: Mosley, George george.mos...@icbc.com Subject: JCL Question To: IBM-MAIN@bama.ua.edu Date: Tuesday, July 12, 2011, 1:27 PM Hello All. We're trying to set up a batch job that will append a datestamp to a dataset name. For example: //S0 EXEC PGM=EMCSRDF //SYSPRINT DD DSN=STRG.SRDF.INVTRKS.JUL09.@1408, // STORCLAS=BASE,MGMTCLAS=MEDIUM, // DISP=(,CATLG), // SPACE=(TRK,(15,15),RLSE), // DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0) //SYSIN DD * EMC-SQ VOL,44FA,INV_TRKS /* When we run this job, we hard code JUL09.@1408 to the end of the SYSPRINT dataset name. Is there a way to have the JCL automatically add the datestamp? George (ICBC) This email and any attachments are intended only for the named recipient and may contain confidential and/or privileged material. Any unauthorized copying, dissemination or other use by a person other than the named recipient of this communication is prohibited. If you received this in error or are not named as a recipient, please notify the sender and destroy all copies of this email immediately. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
George, As others have mentioned, this is not a big deal IF the job can run as an STC (i.e. using dynamic system symbols). I had a customer who absolutely insisted on doing something similar (i.e. placing a time-stamp in a DSN created by a batch job). I could easily do it with a REXX or CLIST (e.g. that uses ISPF File Tailoring or EDIT Macro services or even the EDIT CP). I didn't want to do that, so I came up with an alternative that you may find too messy to utilize. In a nutshell, the batch jobstep (S0 in your case) creates a dataset having a base DSN (i.e. without any date/time stamp information); this would be DSN=STRG.SRDF.INVTRKS in your case. A subsequent jobstep renames this dataset, adding a time-stamp. The JCL for that step is: // SET MYDSN=STRG.SRDF.INVTRKS // SET STAMP='$(date +.D%y%m%d.T%H%M%S)' //* //USS EXEC PGM=BPXBATCH,REGION=31M, // PARM='sh tso -t RENAME ''MYDSN'' ''MYDSNSTAMP''' //STDOUTDD SYSOUT=* The time-stamp comprises the current date (Dyymmdd) and time (Thhmmss). Be sure that you use CAPS OFF because case is significant. Also, it's very difficult to differentiate apostrophes from quotation marks in the sample above. Here is the text of the parm with Q utilized as quotation mark () and A utilized as apostrophe ('): // PARM=Ash tso -t QRENAME AAMYDSNAA AAMYDSNSTAMPAAQA Short explanation of what I am doing: 1) I am embedding a USS environment variable in the DSN using the special $(command) notation. This notation causes the OUTPUT of the specified command to be substituted in place of $(command) 2) The USS command that I am invoking is date. The string specified in quotation marks, following the plus sign, is a mask. All characters except %_ (where _ represents some character) represent themselves (e.g. the D, T and .) %_ is replaced by some piece of the current date or time; there is a whole slew of possibilities (see USS commands). 3) the PARM tells the USS shell to invoke a TSO service (i.e. RENAME). The shell substitutes all USS environment values, including $(command), before invoking the tso service. Cheers, Alan -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Mosley, George Sent: Tuesday, July 12, 2011 10:28 AM To: IBM-MAIN@bama.ua.edu Subject: JCL Question Hello All. We're trying to set up a batch job that will append a datestamp to a dataset name. For example: //S0 EXEC PGM=EMCSRDF //SYSPRINT DD DSN=STRG.SRDF.INVTRKS.JUL09.@1408, //STORCLAS=BASE,MGMTCLAS=MEDIUM, //DISP=(,CATLG), //SPACE=(TRK,(15,15),RLSE), //DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0) //SYSINDD * EMC-SQ VOL,44FA,INV_TRKS /* When we run this job, we hard code JUL09.@1408 to the end of the SYSPRINT dataset name. Is there a way to have the JCL automatically add the datestamp? George (ICBC) This email and any attachments are intended only for the named recipient and may contain confidential and/or privileged material. Any unauthorized copying, dissemination or other use by a person other than the named recipient of this communication is prohibited. If you received this in error or are not named as a recipient, please notify the sender and destroy all copies of this email immediately. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
I disagree. JCL meets all criteria to be a programming language. It doesn't do everything, but what language does? But, it is more complex than channel programmes, and they're considered a programming language. - Ted MacNEIL eamacn...@yahoo.ca Twitter: @TedMacNEIL -Original Message- From: Cris Hernandez #9 hernandez...@yahoo.com Sender: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Date: Tue, 12 Jul 2011 12:08:22 To: IBM-MAIN@bama.ua.edu Reply-To: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Subject: Re: JCL Question contrary to popular misconceptions, JCL is not a programming language, meaning it's not used to manipulate data. To append data onto any existing file, code disp=mod instead of shr/new/old and use appropriate pgm/util to read in write out what you want. --- On Tue, 7/12/11, Mosley, George george.mos...@icbc.com wrote: From: Mosley, George george.mos...@icbc.com Subject: JCL Question To: IBM-MAIN@bama.ua.edu Date: Tuesday, July 12, 2011, 1:27 PM Hello All. We're trying to set up a batch job that will append a datestamp to a dataset name. For example: //S0 EXEC PGM=EMCSRDF //SYSPRINT DD DSN=STRG.SRDF.INVTRKS.JUL09.@1408, // STORCLAS=BASE,MGMTCLAS=MEDIUM, // DISP=(,CATLG), // SPACE=(TRK,(15,15),RLSE), // DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0) //SYSIN DD * EMC-SQ VOL,44FA,INV_TRKS /* When we run this job, we hard code JUL09.@1408 to the end of the SYSPRINT dataset name. Is there a way to have the JCL automatically add the datestamp? George (ICBC) This email and any attachments are intended only for the named recipient and may contain confidential and/or privileged material. Any unauthorized copying, dissemination or other use by a person other than the named recipient of this communication is prohibited. If you received this in error or are not named as a recipient, please notify the sender and destroy all copies of this email immediately. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
On Tue, 12 Jul 2011 19:36:09 + Ted MacNEIL eamacn...@yahoo.ca wrote: :I disagree. :JCL meets all criteria to be a programming language. :It doesn't do everything, but what language does? No looping construct. :But, it is more complex than channel programmes, and they're considered a programming language. Has TIC :Ted MacNEIL :eamacn...@yahoo.ca :Twitter: @TedMacNEIL : :-Original Message- :From: Cris Hernandez #9 hernandez...@yahoo.com :Sender: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu :Date: Tue, 12 Jul 2011 12:08:22 :To: IBM-MAIN@bama.ua.edu :Reply-To: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu :Subject: Re: JCL Question : :contrary to popular misconceptions, JCL is not a programming language, meaning it's not used to manipulate data. To append data onto any existing file, code disp=mod instead of shr/new/old and use appropriate pgm/util to read in write out what you want. : : :--- On Tue, 7/12/11, Mosley, George george.mos...@icbc.com wrote: : : From: Mosley, George george.mos...@icbc.com : Subject: JCL Question : To: IBM-MAIN@bama.ua.edu : Date: Tuesday, July 12, 2011, 1:27 PM : Hello All. : : We're trying to set up a batch job that will append a : datestamp to a dataset name. : For example: : : //S0 EXEC PGM=EMCSRDF : //SYSPRINT DD DSN=STRG.SRDF.INVTRKS.JUL09.@1408, : // : STORCLAS=BASE,MGMTCLAS=MEDIUM, : // DISP=(,CATLG), : // : SPACE=(TRK,(15,15),RLSE), : // : DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0) : //SYSIN DD * : EMC-SQ VOL,44FA,INV_TRKS : /* : : When we run this job, we hard code JUL09.@1408 to the end : of the SYSPRINT dataset name. : Is there a way to have the JCL automatically add the : datestamp? : : George (ICBC) : : This email and any attachments are intended only for the : named : recipient and may contain confidential and/or privileged : material. : Any unauthorized copying, dissemination or other use by a : person : other than the named recipient of this communication is : prohibited. : If you received this in error or are not named as a : recipient, : please notify the sender and destroy all copies of this : email : immediately. : : -- : For IBM-MAIN subscribe / signoff / archive access : instructions, : send email to lists...@bama.ua.edu : with the message: GET IBM-MAIN INFO : Search the archives at http://bama.ua.edu/archives/ibm-main.html : : :-- :For IBM-MAIN subscribe / signoff / archive access instructions, :send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO :Search the archives at http://bama.ua.edu/archives/ibm-main.html : :-- :For IBM-MAIN subscribe / signoff / archive access instructions, :send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO :Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Binyamin Dissen bdis...@dissensoftware.com http://www.dissensoftware.com Director, Dissen Software, Bar Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
No looping construct. Has TIC Looping constructs are not required to make it a programming language. It makes it easier, but it's not required. - Ted MacNEIL eamacn...@yahoo.ca Twitter: @TedMacNEIL -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
Job Control Language Thank you and have a Terrific day! Jonathan Goossen, ACS, CL Tape Specialist ACT Mainframe Storage Group 651-361-4541 IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 07/12/2011 02:08:22 PM: From: Cris Hernandez #9 hernandez...@yahoo.com To: IBM-MAIN@bama.ua.edu Date: 07/12/2011 02:08 PM Subject: Re: JCL Question Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu contrary to popular misconceptions, JCL is not a programming language, meaning it's not used to manipulate data. To append data onto any existing file, code disp=mod instead of shr/new/old and use appropriate pgm/util to read in write out what you want. --- On Tue, 7/12/11, Mosley, George george.mos...@icbc.com wrote: From: Mosley, George george.mos...@icbc.com Subject: JCL Question To: IBM-MAIN@bama.ua.edu Date: Tuesday, July 12, 2011, 1:27 PM Hello All. We're trying to set up a batch job that will append a datestamp to a dataset name. For example: //S0 EXEC PGM=EMCSRDF //SYSPRINT DD DSN=STRG.SRDF.INVTRKS.JUL09.@1408, // STORCLAS=BASE,MGMTCLAS=MEDIUM, //DISP=(,CATLG), // SPACE=(TRK,(15,15),RLSE), // DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0) //SYSINDD * EMC-SQ VOL,44FA,INV_TRKS /* When we run this job, we hard code JUL09.@1408 to the end of the SYSPRINT dataset name. Is there a way to have the JCL automatically add the datestamp? George (ICBC) This email and any attachments are intended only for the named recipient and may contain confidential and/or privileged material. Any unauthorized copying, dissemination or other use by a person other than the named recipient of this communication is prohibited. If you received this in error or are not named as a recipient, please notify the sender and destroy all copies of this email immediately. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html This e-mail message and all attachments transmitted with it may contain legally privileged and/or confidential information intended solely for the use of the addressee(s). If the reader of this message is not the intended recipient, you are hereby notified that any reading, dissemination, distribution, copying, forwarding or other use of this message or its attachments is strictly prohibited. If you have received this message in error, please notify the sender immediately and delete this message and all copies and backups thereof. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
When we run this job, we hard code JUL09.@1408 to the end of the SYSPRINT dataset name. Is there a way to have the JCL automatically add the datestamp You should look at the system symbols for DUMPSRVR and see if they might be usable. It has things like date and time (various flavors) that you might be able to use. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
We use this as first step. If the file exits, it is deleted. If don't exits, RC=0 in the same way. //PASOBOR EXEC PGM=IEFBR14 //D1 DD DISP=(MOD,DELETE),UNIT=SYSALLDA, // SPACE=(1,1), // DSN=USTS.U0Z72B6.. Regards Angel Luis Domínguez sysprog - Spain -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Actually, the dataset we had a problem with wasn't a VSAM dataset, but the situation was that the storage folks had started setting up VSAM striped datasets which, of course, required VSAM EF. I've been a performance analyst/capacity planner for some 15 years now, so I'm no real familiar with the current SMS processes. I don't know why setting up VSAM EF to stripe one VSAM file would have caused this. I just know that it did. The PS dataset in question had the same high level as the VSAM dataset they had striped. Tom Kelman Enterprise Capacity Planner Commerce Bank of Kansas City (816) 760-7632 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of R.S. Sent: Wednesday, April 07, 2010 10:43 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION Kelman, Tom pisze: Just a warning about using SPACE=(TRK,0). We had a job that used that and it all of a sudden started getting abends with a message that there was no space defined. Our storage folks had just set up SMS for VSAM Extended for that specific group of datasets. It appears that once you do that it closes a hole that allowed the SPACE=(TRK,0) specification. We had to change it to SPACE=(TRK,1) which worked. I did not consider VSAM, especially VSAM EF. My habit is to use IDCAMS when manipulating VSAM. Of course it is allowed to use IDCAMS for nonVSAM datasets and DISP=(MOD,DELETE) for VSAM ones, but I just didn't try to specify TRK,0 for VSAM EF. Honestly I've been using TRK,1 for years (just a habit). It seems it's more flexible. ;-) -- Radoslaw Skorupka Lodz, Poland -- BRE Bank SA ul. Senatorska 18 00-950 Warszawa www.brebank.pl Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237 NIP: 526-021-50-88 Wedug stanu na dzie 01.01.2009 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 118.763.528 zotych. W zwizku z realizacj warunkowego podwyszenia kapitau zakadowego, na podstawie uchway XXI WZ z dnia 16 marca 2008r., oraz uchway XVI NWZ z dnia 27 padziernika 2008r., moe ulec podwyszeniu do kwoty 123.763.528 z. Akcje w podwyszonym kapitale zakadowym BRE Banku SA bd w caoci opacone. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html * If you wish to communicate securely with Commerce Bank and its affiliates, you must log into your account under Online Services at http://www.commercebank.com or use the Commerce Bank Secure Email Message Center at https://securemail.commercebank.com NOTICE: This electronic mail message and any attached files are confidential. The information is exclusively for the use of the individual or entity intended as the recipient. If you are not the intended recipient, any use, copying, printing, reviewing, retention, disclosure, distribution or forwarding of the message or any attached file is not authorized and is strictly prohibited. If you have received this electronic mail message in error, please advise the sender by reply electronic mail immediately and permanently delete the original transmission, any attachments and any copies of this message from your computer system. * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
On Thu, 8 Apr 2010 06:35:15 -0500, Angel-Luis Dominguez angel_luis_dominguez_mar...@yahoo.es wrote: We use this as first step. If the file exits, it is deleted. If don't exits, RC=0 in the same way. //PASOBOR EXEC PGM=IEFBR14 //D1 DD DISP=(MOD,DELETE),UNIT=SYSALLDA, // SPACE=(1,1), // DSN=USTS.U0Z72B6.. Regards Angel Luis Domínguez sysprog - Spain BTW, SPACE=(1,1) should be SPACE=(TRK,(1,1)). If the data set does not already exist, DISP=MOD is processed as DISP=NEW, which causes I/O to be initiated to access the VTOC and allocate disk space, space that will be unallocated at the end of the step. Using IDCAMS is more performant: //PASOBOR EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSINDD * LISTCAT ENTRY(USTS.U0Z72B6..) IF LASTCC=0 THEN DELETE USTS.U0Z72B6.. SET MAXCC=0 /* // Regards, Michel Castelein z/OS instructor -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Why? If I run: //DPC088IF JOB (DPC088,JDG),'IEFBR14',CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),NOTIFY=DPC088 //EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=* //SYSOUTDD SYSOUT=* //TEST DD DSN=DPC088.TEST.TEST.ALLOC,DISP=(MOD,DELETE,DELETE), // SPACE=(1,1) I see: IGD101I SMS ALLOCATED TO DDNAME (TEST) DSN (DPC088.TEST.TEST.ALLOC ) STORCLAS (TSOSC) MGMTCLAS () DATACLAS (DEFAULT) VOL SER NOS= TSO002 IEF142I DPC088IF - STEP WAS EXECUTED - COND CODE Greg Shirey Ben E. Keith Co. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Michel Castelein Sent: Thursday, April 08, 2010 9:07 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION BTW, SPACE=(1,1) should be SPACE=(TRK,(1,1)). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
On Thu, 8 Apr 2010 09:07:12 -0500, Michel Castelein wrote: //PASOBOR EXEC PGM=IEFBR14 //D1 DD DISP=(MOD,DELETE),UNIT=SYSALLDA, // SPACE=(1,1), // DSN=USTS.U0Z72B6.. BTW, SPACE=(1,1) should be SPACE=(TRK,(1,1)). Why? In my opinion Simpler Is Better. What advantage do you see in using the more complicated form? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
You see the SMS allocation because if the dataset doesn't exist the JCL you've specified will allocate it as a new dataset and then delete it. If it does exist it will be allocated at and old (mod) dataset and then deleted. In either case you should see this message later in the JESYSMSG. IGD105I DPC088.TEST.TEST.ALLOC DELETED, DDNAME=TEST Tom Kelman Enterprise Capacity Planner Commerce Bank of Kansas City (816) 760-7632 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Greg Shirey Sent: Thursday, April 08, 2010 9:15 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION Why? If I run: //DPC088IF JOB (DPC088,JDG),'IEFBR14',CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),NOTIFY=DPC088 //EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=* //SYSOUTDD SYSOUT=* //TEST DD DSN=DPC088.TEST.TEST.ALLOC,DISP=(MOD,DELETE,DELETE), // SPACE=(1,1) I see: IGD101I SMS ALLOCATED TO DDNAME (TEST) DSN (DPC088.TEST.TEST.ALLOC ) STORCLAS (TSOSC) MGMTCLAS () DATACLAS (DEFAULT) VOL SER NOS= TSO002 IEF142I DPC088IF - STEP WAS EXECUTED - COND CODE Greg Shirey Ben E. Keith Co. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Michel Castelein Sent: Thursday, April 08, 2010 9:07 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION BTW, SPACE=(1,1) should be SPACE=(TRK,(1,1)). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html * If you wish to communicate securely with Commerce Bank and its affiliates, you must log into your account under Online Services at http://www.commercebank.com or use the Commerce Bank Secure Email Message Center at https://securemail.commercebank.com NOTICE: This electronic mail message and any attached files are confidential. The information is exclusively for the use of the individual or entity intended as the recipient. If you are not the intended recipient, any use, copying, printing, reviewing, retention, disclosure, distribution or forwarding of the message or any attached file is not authorized and is strictly prohibited. If you have received this electronic mail message in error, please advise the sender by reply electronic mail immediately and permanently delete the original transmission, any attachments and any copies of this message from your computer system. * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Thursday, April 08, 2010 9:20 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION On Thu, 8 Apr 2010 09:07:12 -0500, Michel Castelein wrote: //PASOBOR EXEC PGM=IEFBR14 //D1 DD DISP=(MOD,DELETE),UNIT=SYSALLDA, // SPACE=(1,1), // DSN=USTS.U0Z72B6.. BTW, SPACE=(1,1) should be SPACE=(TRK,(1,1)). Why? In my opinion Simpler Is Better. What advantage do you see in using the more complicated form? snip Gil, try it and let us know how you get around paying your syntax. Regards, Steve Thompson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Paul, I was surprised. I thought the type of space (TRK, CYL, etc.) was required. I just tried allocating a dataset using SPACE=(1,1), and it does allocate 1 track. However, personally I still prefer putting TRK in the SPACE parameter. It's called documentation, and there are probably others, notably application programmers, who don't realize that SPACE=(1,1) will allocate 1 track. Tom Kelman Enterprise Capacity Planner Commerce Bank of Kansas City (816) 760-7632 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Thursday, April 08, 2010 9:20 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION On Thu, 8 Apr 2010 09:07:12 -0500, Michel Castelein wrote: //PASOBOR EXEC PGM=IEFBR14 //D1 DD DISP=(MOD,DELETE),UNIT=SYSALLDA, // SPACE=(1,1), // DSN=USTS.U0Z72B6.. BTW, SPACE=(1,1) should be SPACE=(TRK,(1,1)). Why? In my opinion Simpler Is Better. What advantage do you see in using the more complicated form? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html * If you wish to communicate securely with Commerce Bank and its affiliates, you must log into your account under Online Services at http://www.commercebank.com or use the Commerce Bank Secure Email Message Center at https://securemail.commercebank.com NOTICE: This electronic mail message and any attached files are confidential. The information is exclusively for the use of the individual or entity intended as the recipient. If you are not the intended recipient, any use, copying, printing, reviewing, retention, disclosure, distribution or forwarding of the message or any attached file is not authorized and is strictly prohibited. If you have received this electronic mail message in error, please advise the sender by reply electronic mail immediately and permanently delete the original transmission, any attachments and any copies of this message from your computer system. * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
On Thu, 8 Apr 2010 09:15:02 -0500, Greg Shirey wrote: BTW, SPACE=(1,1) should be SPACE=(TRK,(1,1)). Why? If I run: //DPC088IF JOB (DPC088,JDG),'IEFBR14',CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),NOTIFY=DPC088 //EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=* //SYSOUTDD SYSOUT=* //TEST DD DSN=DPC088.TEST.TEST.ALLOC,DISP=(MOD,DELETE,DELETE), // SPACE=(1,1) Perhaps the same reason you allocate SYSPRINT and SYSOUT in an IEFBR14 step. (What about SYSIN?) Habit? Perhaps your installation has a different version of IEFBR14 from mine. I used SPACE=(1,0). I'm a minimalist. Does thle involve less work cleaning up the VTOC on DELETE? But I agree, IDCAMS is better; it avoids a job step with 3 allocations, and it avoids creating a data set only to delete it immediately. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
On Thu, 8 Apr 2010 09:29:50 -0500, Kelman, Tom wrote: I was surprised. I thought the type of space (TRK, CYL, etc.) was required. I just tried allocating a dataset using SPACE=(1,1), and it does allocate 1 track. However, personally I still prefer putting TRK in the SPACE parameter. It's called documentation, and there are probably others, notably application programmers, who don't realize that SPACE=(1,1) will allocate 1 track. Perhaps it was just Muphry's law. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Thursday, April 08, 2010 9:32 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION SNIIPAGE Perhaps the same reason you allocate SYSPRINT and SYSOUT in an IEFBR14 step. (What about SYSIN?) Habit? Perhaps your installation has a different version of IEFBR14 from mine. I used SPACE=(1,0). I'm a minimalist. Does thle involve less work cleaning up the VTOC on DELETE? But I agree, IDCAMS is better; it avoids a job step with 3 allocations, and it avoids creating a data set only to delete it immediately. SNIP Seriously, I knew that you do this in ALLOC under TSO. But I've never seen SPACE=(1,1) work in JCL. I just looked at my old 1.7 manual and as I read it, you must code the allocation unit parm. Uh, OK, is it assuming a block of 1 byte in this case? Regards, Steve Thompson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Kelman, Tom Sent: Thursday, April 08, 2010 10:30 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION Paul, I was surprised. I thought the type of space (TRK, CYL, etc.) was required. I just tried allocating a dataset using SPACE=(1,1), and it does allocate 1 track. However, personally I still prefer putting TRK in the SPACE parameter. It's called documentation, and there are probably others, notably application programmers, who don't realize that SPACE=(1,1) will allocate 1 track. Hold on there! I resemble that remark! I and plenty of other application programmers aren't as ignorant as some on this list would lead you to think. For my own delete-before-creating steps, I successfully use SPACE=(0,0) with no trouble at all. YMMV, of course. Peter This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Eh? I was simply asking the same question you asked - why should you code SPACE=(TRK,(1,1))? Then I included an example showing that it isn't necessary. I wasn't asking why it worked. Greg -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Thursday, April 08, 2010 9:32 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION BTW, SPACE=(1,1) should be SPACE=(TRK,(1,1)). Why? If I run: //DPC088IF JOB (DPC088,JDG),'IEFBR14',CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),NOTIFY=DPC088 //EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=* //SYSOUTDD SYSOUT=* //TEST DD DSN=DPC088.TEST.TEST.ALLOC,DISP=(MOD,DELETE,DELETE), // SPACE=(1,1) Perhaps the same reason you allocate SYSPRINT and SYSOUT in an IEFBR14 step. (What about SYSIN?) Habit? Perhaps your installation has a different version of IEFBR14 from mine. I used SPACE=(1,0). I'm a minimalist. Does thle involve less work cleaning up the VTOC on DELETE? But I agree, IDCAMS is better; it avoids a job step with 3 allocations, and it avoids creating a data set only to delete it immediately. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Kelman, Tom Sent: Thursday, April 08, 2010 9:30 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION Paul, I was surprised. I thought the type of space (TRK, CYL, etc.) was required. I just tried allocating a dataset using SPACE=(1,1), and it does allocate 1 track. However, personally I still prefer putting TRK in the SPACE parameter. It's called documentation, and there are probably others, notably application programmers, who don't realize that SPACE=(1,1) will allocate 1 track. Tom Kelman SPACE=(1,1) means: Allocate the number of tracks need to contain 1 block which has a blksize of 1. This is always 1 TRK. I agree that (TRK,1) is simply better in that it causes less confusion. As is proven by these messages. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Thompson, Steve wrote: Seriously, I knew that you do this in ALLOC under TSO. But I've never seen SPACE=(1,1) work in JCL. I just looked at my old 1.7 manual and as I read it, you must code the allocation unit parm. Uh, OK, is it assuming a block of 1 byte in this case? I decided to do this (I changed DISP so I can see afterwards on =3.4) just to see what happens: //STEP1 EXEC PGM=IEFBR14 //SYSUT4 DD DSN=A,DISP=(,CATLG),SPACE=(0,0) Organization . . . : PS Record format . . . : ? Record length . . . : 0 Block size . . . . : 0 1st extent tracks . : 0 Secondary blocks . : 0 //STEP1 EXEC PGM=IEFBR14 //SYSUT4 DD DSN=B,DISP=(,CATLG),SPACE=(1,1) Organization . . . : PS Record format . . . : ? Record length . . . : 0 Block size . . . . : 0 1st extent tracks . : 1 Secondary blocks . : 0 //STEP1 EXEC PGM=IEFBR14 //SYSUT4 DD DSN=C,DISP=(,CATLG),SPACE=(1,0) Organization . . . : PS Record format . . . : ? Record length . . . : 0 Block size . . . . : 0 1st extent tracks . : 0 Secondary blocks . : 0 Not practical results, but go figure... ;-D Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
On Thu, 8 Apr 2010 10:39:32 -0400, Farley, Peter x23353 wrote: in the SPACE parameter. It's called documentation, and there are probably others, notably application programmers, who don't realize that SPACE=(1,1) will allocate 1 track. The necessary documentation is all in the JCL RM. Has been long before and after 1.7. Hold on there! I resemble that remark! I and plenty of other application programmers aren't as ignorant as some on this list would lead you to think. For my own delete-before-creating steps, I successfully use SPACE=(0,0) with no trouble at all. YMMV, of course. I will habitually avoid the delete-before-creating step with: //CREATE DD DISP=(MOD,CATLG),UNIT=SYSALLDA,SPACE=..., // DSN=... //* //SYSUT2 DD DISP=SHR,DSN=*.CREATE,VOL=REF=*.CREATE. (Provided I trust the attributes of the existing data set.) (Typed from memory; untested.) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Elardus Engelbrecht elardus.engelbre...@sita.co.za wrote in message news:listserv%201004080948500199.0...@bama.ua.edu... Thompson, Steve wrote: Seriously, I knew that you do this in ALLOC under TSO. But I've never seen SPACE=(1,1) work in JCL. I just looked at my old 1.7 manual and as I read it, you must code the allocation unit parm. Uh, OK, is it assuming a block of 1 byte in this case? I decided to do this (I changed DISP so I can see afterwards on =3.4) just to see what happens: //STEP1 EXEC PGM=IEFBR14 //SYSUT4 DD DSN=A,DISP=(,CATLG),SPACE=(0,0) Organization . . . : PS Record format . . . : ? Record length . . . : 0 Block size . . . . : 0 1st extent tracks . : 0 Secondary blocks . : 0 //STEP1 EXEC PGM=IEFBR14 //SYSUT4 DD DSN=B,DISP=(,CATLG),SPACE=(1,1) Organization . . . : PS Record format . . . : ? Record length . . . : 0 Block size . . . . : 0 1st extent tracks . : 1 Secondary blocks . : 0 //STEP1 EXEC PGM=IEFBR14 //SYSUT4 DD DSN=C,DISP=(,CATLG),SPACE=(1,0) Organization . . . : PS Record format . . . : ? Record length . . . : 0 Block size . . . . : 0 1st extent tracks . : 0 Secondary blocks . : 0 Not practical results, but go figure... ;-D Groete / Greetings No figure at all: as explained, the first number is the blocklength and the second is the number of blocks. Requesting 1 block gives 1 track, requesting 0 blocks gives 0 tracks. Kees. 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...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
LISTCAT ENTRY(USTS.U0Z72B6..) IF LASTCC=0 THEN DELETE USTS.U0Z72B6.. SET MAXCC=0 Simpler/shorter: DELETE USTS.U0Z72B6.. IF LASTCC9 THEN SET MAXCC=0 - Too busy driving to stop for gas! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
I just tried allocating a dataset using SPACE=(1,1), and it does allocate 1 track. Actually, there is the old form of JCL, where you are allocating in blocks, rather than tracks/cylinders. Check the JCL Reference. BTW, you are asking for one byte blocks, and only one of them. But, the minimum dataset size is one track for (E)CKD. - Too busy driving to stop for gas! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
SPACE=(1,1) will allocate 1 track. The necessary documentation is all in the JCL RM. Has been long before and after 1.7. Since at least 1981, when I first learned JCL. With SMS, the allocation units were changed to allow M/K to be tacked on, so that (in theory) apps-types could think in records, rather than in device dependent terms. I've never seen it catch on though. Most JCL I've seen still talks in TRK CYL, regardless of who writes/copies/steals it. - Too busy driving to stop for gas! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Thompson, Steve wrote: -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Thursday, April 08, 2010 9:20 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION On Thu, 8 Apr 2010 09:07:12 -0500, Michel Castelein wrote: //PASOBOR EXEC PGM=IEFBR14 //D1 DD DISP=(MOD,DELETE),UNIT=SYSALLDA, // SPACE=(1,1), // DSN=USTS.U0Z72B6.. BTW, SPACE=(1,1) should be SPACE=(TRK,(1,1)). Why? In my opinion Simpler Is Better. What advantage do you see in using the more complicated form? snip Gil, try it and let us know how you get around paying your syntax. Regards, Steve Thompson Nothing wrong with the syntax: it says allocate enough space to hold 1 block of 1 byte long; the system will figure out that can fit on one track. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 http://www.trainersfriend.com * z/OS application programmer training + Instructor-led on-site classroom based classes + Course materials licensing + Remote contact training + Roadshows + Course development -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Steve Comstock Sent: Thursday, April 08, 2010 10:49 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION Thompson, Steve wrote: -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Thursday, April 08, 2010 9:20 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION On Thu, 8 Apr 2010 09:07:12 -0500, Michel Castelein wrote: //PASOBOR EXEC PGM=IEFBR14 //D1 DD DISP=(MOD,DELETE),UNIT=SYSALLDA, // SPACE=(1,1), // DSN=USTS.U0Z72B6.. BTW, SPACE=(1,1) should be SPACE=(TRK,(1,1)). Why? In my opinion Simpler Is Better. What advantage do you see in using the more complicated form? snip Gil, try it and let us know how you get around paying your syntax. Regards, Steve Thompson Nothing wrong with the syntax: it says allocate enough space to hold 1 block of 1 byte long; the system will figure out that can fit on one track. SNIP This was just a case of tunnel vision. I knew about block size allocation. But my brain rebelled at 0 or 1. Then I started thinking... This is what you get when you work on data xfer software and are dependant on how JCL and SVC99 Text units interplay and then you are working on some special problem... The joys of tunnel vision. Regards, Steve Thompson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Vernooij, CP wrote: No figure at all: as explained, the first number is the blocklength and the second is the number of blocks. Requesting 1 block gives 1 track, requesting 0 blocks gives 0 tracks. Of course. Not that difficult to figure it out. You put it better in words than me. Thanks. Kees, please continue posting your valuable and interesting post here. As Barbara very nicely said, I will go back to my corner and stop ranting... ;-D Take care to all! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
W dniu 2010-04-08 16:32, Paul Gilmartin pisze: [...] But I agree, IDCAMS is better; it avoids a job step with 3 allocations, and it avoids creating a data set only to delete it immediately. No. IDCAMS is different, not better. What's better? IT DEPENDS! For enqueued datasets IDCAMS will end with RC0, AFAIK the same code as unsuccesful DELETE cause by nonexistent dataset. In simple words IDCAMS will not delete the datasets and let you proceed subsequent steps. IEFBR14 (simplification) will WAIT FOR DATASETS. White message will be issued on operator console. For past versions of the system IEFBR14 caused migrated dataset to be recalled and then deleted, while IDCAMS could delete them without recall, much quicker. Oh, BTW IEFBR14 method does not always delete the dataset! AFAIK it is enough to set EXPDT for PS and MOD,DELETE will not delete it. IDCAMS DELETE ... PURGE will delete. -- Radoslaw Skorupka Lodz, Poland -- BRE Bank SA ul. Senatorska 18 00-950 Warszawa www.brebank.pl Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, nr rejestru przedsiębiorców KRS 025237 NIP: 526-021-50-88 Według stanu na dzień 01.01.2009 r. kapitał zakładowy BRE Banku SA (w całości wpłacony) wynosi 118.763.528 złotych. W związku z realizacją warunkowego podwyższenia kapitału zakładowego, na podstawie uchwały XXI WZ z dnia 16 marca 2008r., oraz uchwały XVI NWZ z dnia 27 października 2008r., może ulec podwyższeniu do kwoty 123.763.528 zł. Akcje w podwyższonym kapitale zakładowym BRE Banku SA będą w całości opłacone. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
On Thu, 8 Apr 2010 09:07:12 -0500, Michel Castelein wrote: Using IDCAMS is more performant: Is it? Maybe, but it is not obvious to me. In the case where the data set does exist, I'm sure that the BR14 uses fewer resources. The IDCAMS step has to have SYSIN and SYSPRINT allocated. It has to open them both, read the SYSIN and write the SYSPRINT. //PASOBOR EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSINDD * LISTCAT ENTRY(USTS.U0Z72B6..) IF LASTCC=0 THEN DELETE USTS.U0Z72B6.. SET MAXCC=0 -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
In simple words IDCAMS will not delete the datasets and let you proceed subsequent steps. Yes it will. You cab query and set condition codes. DELETE dsn IF MAXCC9 THEN SET MAXCC=0 I've been doing this since 1981! - Too busy driving to stop for gas! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
No, Ted, I won't: DELETE 'SROWE1.TEST' IKJ56225I DATA SET SROWE1.TEST ALREADY IN USE, TRY LATER IKJ56225I DATA SET IS ALLOCATED TO ANOTHER JOB OR USER IDC0551I ** ENTRY SROWE1.TEST NOT DELETED IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8 IF MAXCC9 THEN SET MAXCC=0 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0 Ted MacNEIL eamacn...@yahoo.ca 4/8/2010 5:23 PM In simple words IDCAMS will not delete the datasets and let you proceed subsequent steps. Yes it will. You cab query and set condition codes. DELETE dsn IF MAXCC9 THEN SET MAXCC=0 I've been doing this since 1981! - Too busy driving to stop for gas! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains confidential and privileged information intended only for the addressee. If you are not the intended recipient, please be advised that you have received this material in error and that any forwarding, copying, printing, distribution, use or disclosure of the material is strictly prohibited. If you have received this material in error, please (i) do not read it, (ii) reply to the sender that you received the message in error, and (iii) erase or destroy the material. Emails are not secure and can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by email. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Oops, c /I/it/ Scott Rowe scott.r...@joann.com 4/8/2010 5:48 PM No, Ted, I won't: DELETE 'SROWE1.TEST' IKJ56225I DATA SET SROWE1.TEST ALREADY IN USE, TRY LATER IKJ56225I DATA SET IS ALLOCATED TO ANOTHER JOB OR USER IDC0551I ** ENTRY SROWE1.TEST NOT DELETED IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8 IF MAXCC9 THEN SET MAXCC=0 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0 Ted MacNEIL eamacn...@yahoo.ca 4/8/2010 5:23 PM In simple words IDCAMS will not delete the datasets and let you proceed subsequent steps. Yes it will. You cab query and set condition codes. DELETE dsn IF MAXCC9 THEN SET MAXCC=0 I've been doing this since 1981! - Too busy driving to stop for gas! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains confidential and privileged information intended only for the addressee. If you are not the intended recipient, please be advised that you have received this material in error and that any forwarding, copying, printing, distribution, use or disclosure of the material is strictly prohibited. If you have received this material in error, please (i) do not read it, (ii) reply to the sender that you received the message in error, and (iii) erase or destroy the material. Emails are not secure and can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by email. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains confidential and privileged information intended only for the addressee. If you are not the intended recipient, please be advised that you have received this material in error and that any forwarding, copying, printing, distribution, use or disclosure of the material is strictly prohibited. If you have received this material in error, please (i) do not read it, (ii) reply to the sender that you received the message in error, and (iii) erase or destroy the material. Emails are not secure and can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by email. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
On Thu, 8 Apr 2010 17:50:44 -0400, Scott Rowe wrote: Oops, c /I/it/ Scott Rowe 4/8/2010 5:48 PM No, Ted, I won't: DELETE 'SROWE1.TEST' IKJ56225I DATA SET SROWE1.TEST ALREADY IN USE, TRY LATER IKJ56225I DATA SET IS ALLOCATED TO ANOTHER JOB OR USER IDC0551I ** ENTRY SROWE1.TEST NOT DELETED IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8 IF MAXCC9 THEN SET MAXCC=0 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0 Ted MacNEIL eamacn...@yahoo.ca 4/8/2010 5:23 PM In simple words IDCAMS will not delete the datasets and let you proceed subsequent steps. Ah, yes. But Ted cleverly deleted the two lines in which R.S. clearly stated the condition under which the IDCAMS approach fails. So Scott's example doesn't count. End the job with: //ENQ EXEC PGM=IEFBR14,COND=(0,LE) //EXCL DD DISP=MOD,DSN=SROWE1.TEST,... ... and all will be well. It's likely (WAG) that the OP's JCL already contains a step that accomplishes this. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
No, Ted, I won't: Won't what? You cannot control ENQ's. All we can do is all we can do! Nothing is perfect. DISP=(MOD,etc) won't work with and ENQ'd DSN either. If you haven't locked it, you don't have it! - Too busy driving to stop for gas! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
On Wed, 7 Apr 2010 06:50:55 -0700, esmie moo wrote: I have a problem with a batch job which keeps failing on a JCL error. The first step deletes the dsn and the second step recreates the dsn using PGM=IDCAMS. Is there a way of having the job continue to execute STEP2 even though it posts a jcl error (dsn not found) in STEP1. I looked at using COND=EVEN but it doesn't work because the job did not abend to meet the condition. Is there another way of going about having the job continue to STEP2 eventhough STEP1 has a jcl error? Use DISP=(MOD,DELETE),SPACE=(1,0),UNIT=SYSALLDA in STEP1 and no JCL error should occur. (Untested.) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Are you using IDCAMS to do the predelete in the first step ? ... If so you can set the maxcc (SET MAXCC=0) ... Or if using IEFBR14 to do the delete, set the disp to (MOD,DELETE) ... esmie moo esmie_...@yahoo.ca Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 07/04/2010 03:50 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject JCL QUESTION Good Morning Gentle Readers, I have a problem with a batch job which keeps failing on a JCL error. The first step deletes the dsn and the second step recreates the dsn using PGM=IDCAMS. Is there a way of having the job continue to execute STEP2 even though it posts a jcl error (dsn not found) in STEP1. I looked at using COND=EVEN but it doesn't work because the job did not abend to meet the condition. Is there another way of going about having the job continue to STEP2 eventhough STEP1 has a jcl error? Thanks __ Looking for the perfect gift? Give the gift of Flickr! http://www.flickr.com/gift/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html This e-mail message, including any attachments transmitted with it, is CONFIDENTIAL and may contain legally privileged information. This message is intended solely for the use of the individual or entity to whom it is addressed. If you have received this message in error, please notify us immediately and delete it from your system. Please visit our website to read the full disclaimer: http://www.euroclear.com/site/public/disclaimer
Re: JCL QUESTION
esmie moo pisze: Good Morning Gentle Readers, I have a problem with a batch job which keeps failing on a JCL error. The first step deletes the dsn and the second step recreates the dsn using PGM=IDCAMS. Is there a way of having the job continue to execute STEP2 even though it posts a jcl error (dsn not found) in STEP1. I looked at using COND=EVEN but it doesn't work because the job did not abend to meet the condition. Is there another way of going about having the job continue to STEP2 eventhough STEP1 has a jcl error? No. However the problem can be solved. First method: //STEP1 EXEC PGM=IEFBR14 //DELTHIS DD DSN=name,DISP=(MOD,DELETE),SPACE=(TRK,0) Such step won't give you JCL error even if dataset does not exist. Second method: //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE datasetname SET MAXCC=0 Both methods have its own advantages and disadvantages and can be slightly modified. Both do work in most circumstances, but not all. -- Radoslaw Skorupka Lodz, Poland -- BRE Bank SA ul. Senatorska 18 00-950 Warszawa www.brebank.pl Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237 NIP: 526-021-50-88 Wedug stanu na dzie 01.01.2009 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 118.763.528 zotych. W zwizku z realizacj warunkowego podwyszenia kapitau zakadowego, na podstawie uchway XXI WZ z dnia 16 marca 2008r., oraz uchway XVI NWZ z dnia 27 padziernika 2008r., moe ulec podwyszeniu do kwoty 123.763.528 z. Akcje w podwyszonym kapitale zakadowym BRE Banku SA bd w caoci opacone. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Gentle Contributers, I tested both suggestions and it worked. Thanks to all who have helped me with their suggestions. --- On Thu, 4/8/10, Paul Gilmartin paulgboul...@aim.com wrote: From: Paul Gilmartin paulgboul...@aim.com Subject: Re: JCL QUESTION To: IBM-MAIN@bama.ua.edu Received: Thursday, April 8, 2010, 1:56 AM On Wed, 7 Apr 2010 06:50:55 -0700, esmie moo wrote: I have a problem with a batch job which keeps failing on a JCL error. The first step deletes the dsn and the second step recreates the dsn using PGM=IDCAMS. Is there a way of having the job continue to execute STEP2 even though it posts a jcl error (dsn not found) in STEP1. I looked at using COND=EVEN but it doesn't work because the job did not abend to meet the condition. Is there another way of going about having the job continue to STEP2 eventhough STEP1 has a jcl error? Use DISP=(MOD,DELETE),SPACE=(1,0),UNIT=SYSALLDA in STEP1 and no JCL error should occur. (Untested.) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html __ Looking for the perfect gift? Give the gift of Flickr! http://www.flickr.com/gift/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
On 7 Apr 2010 06:51:15 -0700, esmie_...@yahoo.ca (esmie moo) wrote: I have a problem with a batch job which keeps failing on a JCL error. The first step deletes the dsn and the second step recreates the dsn using PGM=IDCAMS. Is there a way of having the job continue to execute STEP2 even though it posts a jcl error (dsn not found) in STEP1. I looked at using COND=EVEN but it doesn't work because the job did not abend to meet the condition. Is there another way of going about having the job continue to STEP2 eventhough STEP1 has a jcl error? Does the first job abend because it is not finding the file? How are you deleting it? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Howard, The STEP1 (first step) was performing an IEFBR14. It is trying to delete the dsn: //DELFILE EXEC PGM=IEFBR14 //DD1 DD DSN=CICS2.SYSB.LISTCAT,DISP=(OLD,DELETE,DELETE) The second step (STEP2) was trying to create the same dsn using IDCAMS: //LSYSBCAT EXEC PGM=IDCAMS //SYSPRINT DD DSN=CICS2.SYSB.LISTCAT,DISP=(NEW,CATLG,DELETE), // DCB=(RECFM=VBA,LRECL=125,BLKSIZE=3750), // SPACE=(TRK,(10,1),RLSE) I tried the suggestions that were made and it worked. I have not changed the jcl in STEP1 to read as :DISP=(MOD,DELETE),SPACE=(1,0) Thanks. --- On Thu, 4/8/10, Howard Brazee howard.bra...@cusys.edu wrote: From: Howard Brazee howard.bra...@cusys.edu Subject: Re: JCL QUESTION To: IBM-MAIN@bama.ua.edu Received: Thursday, April 8, 2010, 2:34 AM On 7 Apr 2010 06:51:15 -0700, esmie_...@yahoo.ca (esmie moo) wrote: I have a problem with a batch job which keeps failing on a JCL error. The first step deletes the dsn and the second step recreates the dsn using PGM=IDCAMS. Is there a way of having the job continue to execute STEP2 even though it posts a jcl error (dsn not found) in STEP1. I looked at using COND=EVEN but it doesn't work because the job did not abend to meet the condition. Is there another way of going about having the job continue to STEP2 eventhough STEP1 has a jcl error? Does the first job abend because it is not finding the file? How are you deleting it? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html __ Get the name you've always wanted @ymail.com or @rocketmail.com! Go to http://ca.promos.yahoo.com/jacko/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Sorry I made a typo. It should read as : I have changed the jcl. --- On Thu, 4/8/10, esmie moo esmie_...@yahoo.ca wrote: From: esmie moo esmie_...@yahoo.ca Subject: Re: JCL QUESTION To: IBM-MAIN@bama.ua.edu Received: Thursday, April 8, 2010, 2:53 AM Howard, The STEP1 (first step) was performing an IEFBR14. It is trying to delete the dsn: //DELFILE EXEC PGM=IEFBR14 //DD1 DD DSN=CICS2.SYSB.LISTCAT,DISP=(OLD,DELETE,DELETE) The second step (STEP2) was trying to create the same dsn using IDCAMS: //LSYSBCAT EXEC PGM=IDCAMS //SYSPRINT DD DSN=CICS2.SYSB.LISTCAT,DISP=(NEW,CATLG,DELETE), // DCB=(RECFM=VBA,LRECL=125,BLKSIZE=3750), // SPACE=(TRK,(10,1),RLSE) I tried the suggestions that were made and it worked. I have not changed the jcl in STEP1 to read as :DISP=(MOD,DELETE),SPACE=(1,0) Thanks. --- On Thu, 4/8/10, Howard Brazee howard.bra...@cusys.edu wrote: From: Howard Brazee howard.bra...@cusys.edu Subject: Re: JCL QUESTION To: IBM-MAIN@bama.ua.edu Received: Thursday, April 8, 2010, 2:34 AM On 7 Apr 2010 06:51:15 -0700, esmie_...@yahoo.ca (esmie moo) wrote: I have a problem with a batch job which keeps failing on a JCL error. The first step deletes the dsn and the second step recreates the dsn using PGM=IDCAMS. Is there a way of having the job continue to execute STEP2 even though it posts a jcl error (dsn not found) in STEP1. I looked at using COND=EVEN but it doesn't work because the job did not abend to meet the condition. Is there another way of going about having the job continue to STEP2 eventhough STEP1 has a jcl error? Does the first job abend because it is not finding the file? How are you deleting it? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html __ Get the name you've always wanted @ymail.com or @rocketmail.com! Go to http://ca.promos.yahoo.com/jacko/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html __ Connect with friends from any web browser - no download required. Try the new Yahoo! Canada Messenger for the Web BETA at http://ca.messenger.yahoo.com/webmessengerpromo.php -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Just a warning about using SPACE=(TRK,0). We had a job that used that and it all of a sudden started getting abends with a message that there was no space defined. Our storage folks had just set up SMS for VSAM Extended for that specific group of datasets. It appears that once you do that it closes a hole that allowed the SPACE=(TRK,0) specification. We had to change it to SPACE=(TRK,1) which worked. Tom Kelman Enterprise Capacity Planner Commerce Bank of Kansas City (816) 760-7632 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of R.S. Sent: Wednesday, April 07, 2010 8:58 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION esmie moo pisze: Good Morning Gentle Readers, I have a problem with a batch job which keeps failing on a JCL error. The first step deletes the dsn and the second step recreates the dsn using PGM=IDCAMS. Is there a way of having the job continue to execute STEP2 even though it posts a jcl error (dsn not found) in STEP1. I looked at using COND=EVEN but it doesn't work because the job did not abend to meet the condition. Is there another way of going about having the job continue to STEP2 eventhough STEP1 has a jcl error? No. However the problem can be solved. First method: //STEP1 EXEC PGM=IEFBR14 //DELTHIS DD DSN=name,DISP=(MOD,DELETE),SPACE=(TRK,0) Such step won't give you JCL error even if dataset does not exist. Second method: //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE datasetname SET MAXCC=0 Both methods have its own advantages and disadvantages and can be slightly modified. Both do work in most circumstances, but not all. -- Radoslaw Skorupka Lodz, Poland -- BRE Bank SA ul. Senatorska 18 00-950 Warszawa www.brebank.pl Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237 NIP: 526-021-50-88 Wedug stanu na dzie 01.01.2009 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 118.763.528 zotych. W zwizku z realizacj warunkowego podwyszenia kapitau zakadowego, na podstawie uchway XXI WZ z dnia 16 marca 2008r., oraz uchway XVI NWZ z dnia 27 padziernika 2008r., moe ulec podwyszeniu do kwoty 123.763.528 z. Akcje w podwyszonym kapitale zakadowym BRE Banku SA bd w caoci opacone. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html * If you wish to communicate securely with Commerce Bank and its affiliates, you must log into your account under Online Services at http://www.commercebank.com or use the Commerce Bank Secure Email Message Center at https://securemail.commercebank.com NOTICE: This electronic mail message and any attached files are confidential. The information is exclusively for the use of the individual or entity intended as the recipient. If you are not the intended recipient, any use, copying, printing, reviewing, retention, disclosure, distribution or forwarding of the message or any attached file is not authorized and is strictly prohibited. If you have received this electronic mail message in error, please advise the sender by reply electronic mail immediately and permanently delete the original transmission, any attachments and any copies of this message from your computer system. * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Kelman, Tom Sent: Wednesday, April 07, 2010 10:04 AM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION Just a warning about using SPACE=(TRK,0). We had a job that used that and it all of a sudden started getting abends with a message that there was no space defined. Our storage folks had just set up SMS for VSAM Extended for that specific group of datasets. It appears that once you do that it closes a hole that allowed the SPACE=(TRK,0) specification. We had to change it to SPACE=(TRK,1) which worked. SNIP Uh, won't this break the ability to create a model 1 DSCB? But then, the reasons for having such have probably gone away. Regards, Steve Thompson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Kelman, Tom pisze: Just a warning about using SPACE=(TRK,0). We had a job that used that and it all of a sudden started getting abends with a message that there was no space defined. Our storage folks had just set up SMS for VSAM Extended for that specific group of datasets. It appears that once you do that it closes a hole that allowed the SPACE=(TRK,0) specification. We had to change it to SPACE=(TRK,1) which worked. I did not consider VSAM, especially VSAM EF. My habit is to use IDCAMS when manipulating VSAM. Of course it is allowed to use IDCAMS for nonVSAM datasets and DISP=(MOD,DELETE) for VSAM ones, but I just didn't try to specify TRK,0 for VSAM EF. Honestly I've been using TRK,1 for years (just a habit). It seems it's more flexible. ;-) -- Radoslaw Skorupka Lodz, Poland -- BRE Bank SA ul. Senatorska 18 00-950 Warszawa www.brebank.pl Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237 NIP: 526-021-50-88 Wedug stanu na dzie 01.01.2009 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 118.763.528 zotych. W zwizku z realizacj warunkowego podwyszenia kapitau zakadowego, na podstawie uchway XXI WZ z dnia 16 marca 2008r., oraz uchway XVI NWZ z dnia 27 padziernika 2008r., moe ulec podwyszeniu do kwoty 123.763.528 z. Akcje w podwyszonym kapitale zakadowym BRE Banku SA bd w caoci opacone. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of esmie moo Sent: Wednesday, April 07, 2010 8:51 AM To: IBM-MAIN@bama.ua.edu Subject: JCL QUESTION Good Morning Gentle Readers, I have a problem with a batch job which keeps failing on a JCL error. The first step deletes the dsn and the second step recreates the dsn using PGM=IDCAMS. Is there a way of having the job continue to execute STEP2 even though it posts a jcl error (dsn not found) in STEP1. I looked at using COND=EVEN but it doesn't work because the job did not abend to meet the condition. Is there another way of going about having the job continue to STEP2 eventhough STEP1 has a jcl error? Thanks No. There is no way to continue a job if a step gets a JCL error. I would guess that STEP1 is IEFBR14 with a DISP=(OLD,DELETE). If so, you could just remove the step and do a DELETE command in the IDCAMS step before allocating the new version. I do something like: //STEP2 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEL old.dsn.name SET MAXCC=0 DEFINE ... /* all the time. If you need to be sure that nobody else is using the DSN, then put an IEFBR14 step at the end of the job with a DISP=OLD on it. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 9151 Boulevard 26 . N. Richland Hills . TX 76010 (817) 255-3225 phone . (817)-961-6183 cell john.mck...@healthmarkets.com . www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
//STEP2 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEL old.dsn.name SET MAXCC=0 DEFINE ... /* I would change it to: DEL old.dsn.name IF MAXCC9 THEN SET MAXCC=0 IF MAXCC=0 THEN DEFINE ... - Too busy driving to stop for gas! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
On Wed, 7 Apr 2010 11:09:28 -0500, McKown, John wrote: all the time. If you need to be sure that nobody else is using the DSN, then put an IEFBR14 step at the end of the job with a DISP=OLD on it. Beware JES3 setup. Safer to use DISP=MOD. (Does JES3 setup require UNIT and SPACE lest the data set not exist?) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
On Wed, 7 Apr 2010 11:09:28 -0500, McKown, John wrote: all the time. If you need to be sure that nobody else is using the DSN, then put an IEFBR14 step at the end of the job with a DISP=OLD on it. But beware JES3 setup. DISP=MOD is safer. (Does JES3 require UNIT and SPACE, lest DSN not exist?) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Wednesday, April 07, 2010 12:46 PM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL QUESTION On Wed, 7 Apr 2010 11:09:28 -0500, McKown, John wrote: all the time. If you need to be sure that nobody else is using the DSN, then put an IEFBR14 step at the end of the job with a DISP=OLD on it. But beware JES3 setup. DISP=MOD is safer. (Does JES3 require UNIT and SPACE, lest DSN not exist?) SNIP I know that it does require the DSN (whether by catalog or by volume specific allocation). I don't recall it requiring space. However, I normally use SPACE=(TRK,1) as someone else demonstrated. Using IDCAMS will get you a JCL error, because SETUP makes sure that the DSN is actually available -- it doesn't see the dynamic build. Later, Steve Thompson -- Opinions expressed by this poster may not reflect those of poster's employer -- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
esmie moo wrote: Good Morning Gentle Readers, I have a problem with a batch job which keeps failing on a JCL error. The first step deletes the dsn and the second step recreates the dsn using PGM=IDCAMS. Is there a way of having the job continue to execute STEP2 even though it posts a jcl error (dsn not found) in STEP1. I looked at using COND=EVEN but it doesn't work because the job did not abend to meet the condition. Is there another way of going about having the job continue to STEP2 eventhough STEP1 has a jcl error? Thanks snip- Why not do the DELETE and ALLOCATE in the same IDCAMS step. You'll eliminate a step and dump the JCL error. Rick -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Try //anydd DD DSN=.., // VOL=(,,,nn) where nn is the number of volumes the dataset is allowed to reside on. -- Peter Hunkeler Credit Suisse -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Thanks Peter. I will give it a try. Hunkeler Peter (KIUK 3) [EMAIL PROTECTED] wrote: Try //anydd DD DSN=.., // VOL=(,,,nn) where nn is the number of volumes the dataset is allowed to reside on. -- Peter Hunkeler Credit Suisse -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html - Ask a question on any topic and get answers from real people. Go to Yahoo! Answers. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
Is there a way I can code a parm (* * * * * * * * * * * * ) for the volsers for an output PS dsn (as available when defining a VSAM cluster) ? I have a problem with space abends - IEC030I B37-04. The dsn is SMS managed. I am using a primary of 2000,500 since it is a huge file. The job is performing a sort. Thanks. Increase the volume count in dataclass. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL QUESTION
You can use an extended format dataset for it. You have to define an data class in which you add an value to the volume count parameter en specify DSN TYPE EXT. In the jcl you have to specify the data class and then your data set will be spreaded over the number of volumes you've set in the volume count parameter. Gerrit. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of esmie moo Sent: donderdag 25 oktober 2007 13:04 To: IBM-MAIN@BAMA.UA.EDU Subject: JCL QUESTION Is there a way I can code a parm (* * * * * * * * * * * * ) for the volsers for an output PS dsn (as available when defining a VSAM cluster) ? I have a problem with space abends - IEC030I B37-04. The dsn is SMS managed. I am using a primary of 2000,500 since it is a huge file. The job is performing a sort. Thanks. - Be smarter than spam. See how smart SpamGuard is at giving junk email the boot with the All-new Yahoo! Mail -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ÿþD i t b e r i c h t i s v e r t r o u w e l i j k e n k a n g e h e i m e i n f o r m a t i e b e v a t t e n e n k e l b e s t e m d v o o r d e g e a d r e s s e e r d e . I n d i e n d i t b e r i c h t n i e t v o o r u i s b e s t e m d , v e r z o e k e n w i j u d i t o n m i d d e l l i j k a a n o n s t e m e l d e n e n h e t b e r i c h t t e v e r n i e t i g e n . A a n g e z i e n d e i n t e g r i t e i t v a n h e t b e r i c h t n i e t v e i l i g g e s t e l d i s m i d d e l s v e r z e n d i n g v i a i n t e r n e t , k a n A t o s O r i g i n n i e t a a n s p r a k e l i j k w o r d e n g e h o u d e n v o o r d e i n h o u d d a a r v a n . H o e w e l w i j o n s i n s p a n n e n e e n v i r u s v r i j n e t w e r k t e h a n t e r e n , g e v e n w i j g e e n e n k e l e g a r a n t i e d a t d i t b e r i c h t v i r u s v r i j i s , n o c h a a n v a a r d e n w i j e n i g e a a n s p r a k e l i j k h e i d v o o r d e m o g e l i j k e a a n w e z i g h e i d v a n e e n v i r u s i n d i t b e r i c h t . O p a l o n z e r e c h t s v e r h o u d i n g e n , a a n b i e d i n g e n e n o v e r e e n k o m s t e n w a a r o n d e r A t o s O r i g i n g o e d e r e n e n / o f d i e n s t e n l e v e r t z i j n m e t u i t s l u i t i n g v a n a l l e a n d e r e v o o r w a a r d e n d e L e v e r i n g s v o o r w a a r d e n v a n A t o s O r i g i n v a n t o e p a s s i n g . D e z e w o r d e n u o p a a n v r a a g d i r e c t k o s t e l o o s t o e g e z o n d e n . T h i s e - m a i l a n d t h e d o c u m e n t s a t t a c h e d a r e c o n f i d e n t i a l a n d i n t e n d e d s o l e l y f o r t h e a d d r e s s e e ; i t m a y a l s o b e p r i v i l e g e d . I f y o u r e c e i v e t h i s e - m a i l i n e r r o r , p l e a s e n o t i f y t h e s e n d e r i m m e d i a t e l y a n d d e s t r o y i t . A s i t s i n t e g r i t y c a n n o t b e s e c u r e d o n t h e I n t e r n e t , t h e A t o s O r i g i n g r o u p l i a b i l i t y c a n n o t b e t r i g g e r e d f o r t h e m e s s a g e c o n t e n t . A l t h o u g h t h e s e n d e r e n d e a v o u r s t o m a i n t a i n a c o m p u t e r v i r u s - f r e e n e t w o r k , t h e s e n d e r d o e s n o t w a r r a n t t h a t t h i s t r a n s m i s s i o n i s v i r u s - f r e e a n d w i l l n o t b e l i a b l e f o r a n y d a m a g e s r e s u l t i n g f r o m a n y v i r u s t r a n s m i t t e d . O n a l l o f f e r s a n d a g r e e m e n t s u n d e r w h i c h A t o s O r i g i n s u p p l i e s g o o d s a n d / o r s e r v i c e s o f w h a t e v e r n a t u r e , t h e T e r m s o f D e l i v e r y f r o m A t o s O r i g i n e x c l u s i v e l y a p p l y . T h e T e r m s o f D e l i v e r y s h a l l b e p r o m p t l y s u b m i t t e d t o
Re: JCL QUESTION
Peter, I tried out your suggestion and it worked. Thanks for your help. Thanks to all for responding. Hunkeler Peter (KIUK 3) [EMAIL PROTECTED] wrote: Try //anydd DD DSN=.., // VOL=(,,,nn) where nn is the number of volumes the dataset is allowed to reside on. -- Peter Hunkeler Credit Suisse -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html - Make free worldwide PC-to-PC calls. Try the new Yahoo! Canada Messenger -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
Also, there are two dataset disposition fields -- normal and abnormal. The one that you specified is normal. If you want to specify what happens in an abend scenario, you need to code a second one. e.g. DISP=(MOD,KEEP,DELETE) And abend does mean abend (= abnormal end) as opposed to a mere return code 0. Any return code, be it zero or non-zero is *always* considered a normal end the system's point of view. Peter Hunkeler CREDIT SUISSE -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
The reason you would use DISP=(MOD,DELETE) is when rerunning JCL that would fail if the dataset created in the previous time you ran it were still there, the job would fail with a jcl error. The first step is usually an IEFBR14. If the dataset exists, it is deleted. If it doesn't exist, it creates a dataset and deletes it. Then, a step furthur down in the job does the real allocation of that dataset. Eric Bielefeld Sr. Systems Programmer Lands' End 608-935-4680 Dodgeville, Wisconsin J R [EMAIL PROTECTED] wrote: Does it delete the dataset if the job abends? Or does it delete the updates made to the dataset when the job abends. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
On 29 Jan 2007 02:59:56 -0800, [EMAIL PROTECTED] (J R) wrote: Also, there are two dataset disposition fields -- normal and abnormal. The one that you specified is normal. If you want to specify what happens in an abend scenario, you need to code a second one. e.g. DISP=(MOD,KEEP,DELETE) Or occasionally, DISP=(MOD,DELETE,KEEP). DISP=(MOD,DELETE) is the same thing as DISP=(MOD,DELETE,DELETE) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
You should really reference the JCL Reference Manual, which is fairly concise regarding the DISP parameter. DISP=(MOD,DELETE) specifies a disposition of status MOD, meaning that if the dataset exists, and is sequential, data will be added to it. If it does not exist it will created. The DELETE is the normal termination disposition in this case, deleting the dataset if the step completes normally, The third parameter is the abnormal termination disposition, which in this case defaults to what the second parameter specified, which is delete. The DISP parameter is discussed at length, with the various options and defaults, in the JCL Reference manual in the DD:DISP section. My old OS390 JCL Reference has the page at 12-80. Hope that helps. Doug Fuerst At 12:35 AM 1/29/2007, you wrote: Is the following correct : DISP=(MOD,DELETE). I am not sure about the DELETE portion. Does it delete the dataset if the job abends? Or does it delete the updates made to the dataset when the job abends. I was always under the impression that if MOD is coded, the parms after that make not difference. Can somebody please clear up my misconceptions? Thanks in advance. - Share your photos with the people who matter at Yahoo! Canada Photos -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html Doug Fuerst Consultant BK Associates Brooklyn, NY (718) 921-2620 (Office) (718) 921-0952 (Fax) (917) 572-7364 (Cell) [EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
DELETE used in that syntax is used for NORMAL termination disposition. If you had coded DISP=(MOD,DELETE,DELETE), then the 2nd DELETE would be for abnormal termination. See this link for a chart: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2b660/12.19.11 ?ACTION=MATCHESREQUEST=MOD,DELETETYPE=FUZZYSHELF=DT=20050713232151CASE= searchTopic=TOPICsearchText=TEXTsearchIndex=INDEXrank=RANKScrollTOP=FIR STHIT#FIRSTHIT Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of esmie moo Sent: Sunday, January 28, 2007 11:36 PM To: IBM-MAIN@BAMA.UA.EDU Subject: JCL Question Is the following correct : DISP=(MOD,DELETE). I am not sure about the DELETE portion. Does it delete the dataset if the job abends? Or does it delete the updates made to the dataset when the job abends. I was always under the impression that if MOD is coded, the parms after that make not difference. Can somebody please clear up my misconceptions? Thanks in advance. - Share your photos with the people who matter at Yahoo! Canada Photos -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html