Re: JCL Question

2011-07-15 Thread Elardus Engelbrecht
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

2011-07-14 Thread Walter Marguccio
 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

2011-07-14 Thread R.S.

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

2011-07-14 Thread Shmuel Metz (Seymour J.)
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

2011-07-14 Thread Elardus Engelbrecht
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

2011-07-14 Thread Ed Gould
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

2011-07-14 Thread R.S.

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

2011-07-13 Thread Brian Westerman
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

2011-07-13 Thread R.S.

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

2011-07-13 Thread Binyamin Dissen
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

2011-07-13 Thread R.S.

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

2011-07-13 Thread McKown, John
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

2011-07-13 Thread Gerhard Postpischil

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

2011-07-13 Thread Shmuel Metz (Seymour J.)
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

2011-07-13 Thread Shmuel Metz (Seymour J.)
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

2011-07-13 Thread Shmuel Metz (Seymour J.)
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

2011-07-13 Thread Shmuel Metz (Seymour J.)
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

2011-07-13 Thread Bryan Klimek
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

2011-07-13 Thread Gross, Randall [GCG-PFS]
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

2011-07-13 Thread Mike Schwab
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

2011-07-13 Thread Ted MacNEIL
 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

2011-07-12 Thread Paul Gilmartin
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

2011-07-12 Thread Staller, Allan
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

2011-07-12 Thread Veilleux, Jon L
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

2011-07-12 Thread Gerhard Postpischil

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

2011-07-12 Thread Cris Hernandez #9
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

2011-07-12 Thread Starr, Alan
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

2011-07-12 Thread Ted MacNEIL
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

2011-07-12 Thread Binyamin Dissen
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

2011-07-12 Thread Ted MacNEIL
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

2011-07-12 Thread Jonathan Goossen
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

2011-07-12 Thread Lizette Koehler
 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

2010-04-08 Thread Angel-Luis Dominguez
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

2010-04-08 Thread Kelman, Tom
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

2010-04-08 Thread Michel Castelein
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

2010-04-08 Thread Greg Shirey
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

2010-04-08 Thread Paul Gilmartin
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

2010-04-08 Thread Kelman, Tom
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

2010-04-08 Thread Thompson, Steve
-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

2010-04-08 Thread Kelman, Tom
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

2010-04-08 Thread Paul Gilmartin
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

2010-04-08 Thread Paul Gilmartin
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

2010-04-08 Thread Thompson, Steve
-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

2010-04-08 Thread Farley, Peter x23353
 -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

2010-04-08 Thread Greg Shirey
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

2010-04-08 Thread McKown, John
 -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

2010-04-08 Thread Elardus Engelbrecht
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

2010-04-08 Thread Paul Gilmartin
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

2010-04-08 Thread Vernooij, CP - SPLXM
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

2010-04-08 Thread Ted MacNEIL
  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

2010-04-08 Thread Ted MacNEIL
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

2010-04-08 Thread Ted MacNEIL
 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

2010-04-08 Thread Steve Comstock

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

2010-04-08 Thread Thompson, Steve
-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

2010-04-08 Thread Elardus Engelbrecht
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

2010-04-08 Thread R.S.

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

2010-04-08 Thread Tom Marchant
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

2010-04-08 Thread Ted MacNEIL
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

2010-04-08 Thread Scott Rowe
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

2010-04-08 Thread Scott Rowe
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

2010-04-08 Thread Paul Gilmartin
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

2010-04-08 Thread Ted MacNEIL
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

2010-04-07 Thread Paul Gilmartin
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

2010-04-07 Thread Peter Nuttall
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

2010-04-07 Thread R.S.

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

2010-04-07 Thread esmie moo
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

2010-04-07 Thread Howard Brazee
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

2010-04-07 Thread esmie moo
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

2010-04-07 Thread esmie moo
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

2010-04-07 Thread Kelman, Tom
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

2010-04-07 Thread Thompson, Steve
-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

2010-04-07 Thread R.S.

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

2010-04-07 Thread McKown, John
 -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

2010-04-07 Thread Ted MacNEIL
//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

2010-04-07 Thread Paul Gilmartin
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

2010-04-07 Thread Paul Gilmartin
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

2010-04-07 Thread Thompson, Steve
-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

2010-04-07 Thread Rick Fochtman

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

2007-10-25 Thread Hunkeler Peter (KIUK 3)
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

2007-10-25 Thread esmie moo
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

2007-10-25 Thread wtrovijo
 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

2007-10-25 Thread van Arnhem, Gerrit

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
ÿþDit bericht is vertrouwelijk en kan 
geheime informatie bevatten enkel

bestemd voor de geadresseerde. Indien 
dit bericht niet voor u is bestemd,

verzoeken wij u dit onmiddellijk aan 
ons te melden en het bericht te

vernietigen.

Aangezien de integriteit van het 
bericht niet veilig gesteld is middels

verzending via internet, kan Atos 
Origin niet aansprakelijk worden 
gehouden

voor de inhoud daarvan.

Hoewel wij ons inspannen een virusvrij 
netwerk te hanteren, geven

wij geen enkele garantie dat dit 
bericht virusvrij is, noch aanvaarden 
wij

enige aansprakelijkheid voor de 
mogelijke aanwezigheid van een virus in 
dit

bericht.

 

Op al onze rechtsverhoudingen, 
aanbiedingen en overeenkomsten 
waaronder

Atos Origin goederen en/of diensten 
levert zijn met uitsluiting van alle

andere voorwaarden de 
Leveringsvoorwaarden van Atos Origin 
van toepassing.

Deze worden u op aanvraag direct 
kosteloos toegezonden.

 

This e-mail and the documents attached 
are confidential and intended solely

for the addressee; it may also be 
privileged. If you receive this e-mail

in error, please notify the sender 
immediately and destroy it.

As its integrity cannot be secured on 
the Internet, the Atos Origin group

liability cannot be triggered for the 
message content. Although the

sender endeavours to maintain a 
computer virus-free network, the sender

does not warrant that this transmission 
is virus-free and will not be

liable for any damages resulting from 
any virus transmitted.

 

On all offers and agreements under 
which Atos Origin supplies goods and/or

services of whatever nature, the Terms 
of Delivery from Atos Origin

exclusively apply. 

The Terms of Delivery shall be promptly 
submitted to 

Re: JCL QUESTION

2007-10-25 Thread esmie moo
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

2007-01-29 Thread Hunkeler Peter (KIUK 3)
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

2007-01-29 Thread Eric Bielefeld
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

2007-01-29 Thread Howard Brazee
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

2007-01-28 Thread Doug Fuerst
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

2007-01-28 Thread Todd Burch
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