Re: IBM sees software producing half of profit by 2010

2007-05-18 Thread Bruno Sugliani
On Thu, 17 May 2007 22:28:43 -0500, Ed Gould [EMAIL PROTECTED] wrote:

IBM sees software producing half of profit by 2010
EETimes Thu, 17 May 2007 9:16 AM PDT
IBM said it sees software accounting for nearly half of total profit
by 2010, up from about 40 percent last year, as the company shifts
toward more-profitable businesses from lower-margin segments such as
computer hardware.

40 % in 3 years well yes even if i think it is not very optimistic as this
is about what our accounting shows here in my shop  .
We got the annual registered letter for july , and they said 6 % increase 
because of currency fluctuation ( as the euros is so high , it must represent 
15 % or 20 % in dollars and it should have gone down not up ! )
a lot of us will go to db2 v8 or cics 3.x  in mainframe , and this is quite
a lot as well , as the consumption is growing ( cics 3.1 is about 7.5 %
extra , DB2 V8 vs V7 , i do not know yet but i heard numbers ) .
For distributed software , they implemented PVU's because it  is just
impossible to order single core processors on servers nowadays  .
Mainframe Tivoli software is going Full Cap . ( TSM is done , TDS also and i
already got the bill ) 
SAO / Netview new version is also going Full Cap .( i saw the numbers and it
is frightening )
So vWLC is becoming a joke for some products .
I am lucky to have installed zCost to control my consumption  (, i should be
able to control a part of the bill up to my retirement :-)) 3 years ? :-)) 
Bruno
Bruno(dot)sugliani(at)groupemornay(dot)asso(dot)fr
  
 

--
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: Date Time in JCL

2007-05-18 Thread Bruno Sugliani
On Thu, 17 May 2007 12:30:52 -0500, Mark Steely [EMAIL PROTECTED] wrote:

I believe the answer is no and that's what I told the customer, but I
will ask any way. Is there a way to dynamically add the current date and
time to a dataset through JCL ? We are z/OS V1R7.
http://bama.ua.edu/cgi-bin/wa?A2=ind0202L=ibm-mainD=0amp;I=1O=DT=0P=100302
Bruno 
Bruno(dot)sugliani(at)groupemornay(dot)asso(dot)fr

--
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: Date Time in JCL

2007-05-18 Thread Robert Bardos

 However, the issue is that, there is no definitive
 value of current date.

 The issue is more than just current date (and
 current time is worse).

 It all comes down to submission time, conversion time,
 execution time, or system for all variable substitution
 under Batch JCL.

 Which is valid? And, for date/time what happens if you
 do a typrun=hold?

 How do you know if the submission date is what's
 wanted, or execution date?
 What happens if you submit just before midnight?


Naive idea: why not provide system symbols for all of these
(submission time, conversion time, execution time)?  SYSSTIME,
SYSCTIME, SYSETIME?

Robert

--
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: Top 10 software install gripes

2007-05-18 Thread R.S.

Rick Fochtman wrote:

-snip--
I think everyone agrees that directory should have safe margin for 
updates. However the discussion was about magic numbers like 44,45, or 
46. Spare directory blocks are obvious, any of the numbers above not. 
Despite of discussion noone explained why these numbers (or at least any 
of them) are so magic. Hint: fit in the track is absolutely not 
reasonable.

unsnip
Why is Fit in the track unreasonable? I regard it as efficient use of 
space.


Yes, it *totally* unreasonable. I mean it. 
It has nothing to do with efficient use of space. It was proved that rest of the track can be used for members storage. 
So, If I need 100 or 200 or 1340 blocks, there is no reason to round it to multiple 44 or 45 or (n*45+44). If I need 20 blocks, there is still no need to round it to 44. 


Last, but not least: we talk about efficient use of *fraction of track*. It is simply 
*not worth* to discuss. I simply don't care about wasted track in my PDS. Even if I have 
100 or 1000 PDSes. All we agreed (any objection?) that directory should be safely 
oversized to avoid out-of-directory problems. Usually spare blocks occupy more than 
track.

Last but not least: It's funny that people take care about holy numbers, but 
there are different religions: some adore 44, others worship 45, others 46, others 
n*45+44...


--
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.2007 r. kapita zakadowy BRE Banku SA (w caoci 
opacony) wynosi 118.064.140 z. W zwizku z realizacj warunkowego 
podwyszenia kapitau zakadowego, na podstawie uchwa XVI WZ z dnia 21.05.2003 
r., kapita zakadowy BRE Banku SA moe ulec podwyszeniu do kwoty 118.760.528 
z. Akcje w podwyszonym kapitale zakadowym bd w caoci opacone.

--
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: Virtual Tape hardware

2007-05-18 Thread R.S.

Dave Kopischke wrote:

On Thu, 17 May 2007 14:44:54 -0500, McKown, John wrote:


Bustech http://www.bustech.com
FlexCUB http://www.funsoft.com
IDG9480 http://www.secureagent.com/securevts/VTStech.htm



There also:
Luminex - http://www.luminex.com
Sepaton - http://www.sepaton.com
Data Domain - http://www.datadomain.com  == This looked like it was 
targeted to open systems rather than z servers, so I didn't look too deeply at 
their offerings.


I think the last two (Sepaton and Data Domain) are not compatible with 
mainframes.

To complement the lsit again it is worth to mention FSC CentricStore virtual 
libraries and Centera solutions (conected via IP channels).

--
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.2007 r. kapita zakadowy BRE Banku SA (w caoci 
opacony) wynosi 118.064.140 z. W zwizku z realizacj warunkowego 
podwyszenia kapitau zakadowego, na podstawie uchwa XVI WZ z dnia 21.05.2003 
r., kapita zakadowy BRE Banku SA moe ulec podwyszeniu do kwoty 118.760.528 
z. Akcje w podwyszonym kapitale zakadowym bd w caoci opacone.

--
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: Date Time in JCL

2007-05-18 Thread Vernooy, C.P. - SPLXM


Robert Bardos [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]...
 
  However, the issue is that, there is no definitive
  value of current date.
 
  The issue is more than just current date (and
  current time is worse).
 
  It all comes down to submission time, conversion time,
  execution time, or system for all variable substitution
  under Batch JCL.
 
  Which is valid? And, for date/time what happens if you
  do a typrun=hold?
 
  How do you know if the submission date is what's
  wanted, or execution date?
  What happens if you submit just before midnight?
 
 
 Naive idea: why not provide system symbols for all of these
 (submission time, conversion time, execution time)?  SYSSTIME,
 SYSCTIME, SYSETIME?
 
 Robert
 

Of which system? Jobs can travel through serveral systems in an NJE
network, submitted on system1, converted on system2 executed on system3,
each with their own timesettings. Dataset1 gets timestamp 10:00, the
*next* dataset2 can get timestamp 09:10 if created 10 minutes after
dataset1. Quite confusing.

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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: 3350 failures

2007-05-18 Thread Bruno Sugliani
On Thu, 17 May 2007 15:01:48 -0400, William Donzelli [EMAIL PROTECTED]
wrote:

I have a lead on a few 3350s - obsolete, but that is the point - and
the owner mentioned that the typical failure mode is the breakdown and
failure of the seals, letting crud get on the platters. Can any of the
oldtimers here elaborate? Does anyone still service 3350s?

Also, does anyone know the weight of these 3350s?
Although my memory is fading , i used to maintain these boxes ( was a hw guy
in a former life) 
We had more often failures with the Fan and the bulbs than with the rest of
the box .
Bruno 
Bruno(dot)sugliani(at)groupemornay(dot)asso(dot)fr 

--
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: Date Time in JCL

2007-05-18 Thread Bruno Sugliani
On Fri, 18 May 2007 09:51:23 +0200, Vernooy, C.P. - SPLXM
[EMAIL PROTECTED] wrote:

Of which system? Jobs can travel through serveral systems in an NJE
network, submitted on system1, converted on system2 executed on system3,
each with their own timesettings. Dataset1 gets timestamp 10:00, the
*next* dataset2 can get timestamp 09:10 if created 10 minutes after
dataset1. Quite confusing.

Definitely confusing :-)) 
On the other hand it is executed only on one or converted only on one . 
If we have a dateC for conversion time , and we make it GMT , for me 
it is OK  - or a dateE for exec time etc ... 
We all have different usage .We accept this on a proc for STC ! 
The result is the same . Which STC of which system in which time zone 
created the dataset ? But it is supported !
Endless discussion because it does not exist . I am quite sure that if it
existed , with the written rules ansd specs  , the discussions would be less 
because we all need it somehow , and we all put different home made
solutions for it .
Bruno 
Bruno(dot)sugliani(at)groupemornay(dot)asso(dot)fr 

--
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: VTOC FULL

2007-05-18 Thread Jim McAlpine

If you can get the volume offline the you can use NEWVTOC instead of
EXTVTOC.  In which case you don't have to move any datasets as the VTOC is
moved to a new location.

Jim McAlpine


On 5/17/07, Robert Pelletier [EMAIL PROTECTED] wrote:


It works as long as there is space to expand into otherwise you have to
move files.  Thanks all.


Have a Nice Day !

Bob Pelletier
Connecticut Student Loan Foundation
Rocky Hill, Ct.
-Original Message-
From: Heloisa [mailto:[EMAIL PROTECTED]
Sent: Thursday, May 17, 2007 12:30 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: VTOC FULL

ICKDSF Release 17 can expand a VTOC. I've never tried though.
This is what the manual says:
//SYSIN DD *
REFORMAT DDNAME(VOLDD) VERIFY(TMP121) EXTVTOC(200) EXTINDEX(16)

The example above expands both VTOC and VTOC INDEX.

--
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



--
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: PUTTING DISK OFFLINE - JES3 ENVIRONMENT

2007-05-18 Thread B Sysprog

Is your device OWNED by JES3? You cannot vary offline, if not.
What is the system response from:  8I D,D=9F46
or, in your case:  *I D,D=9F46

This is the correct format for VARY:


8V 9F46,OFF,MVS01




From: willie bunter [EMAIL PROTECTED]
Reply-To: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: PUTTING DISK OFFLINE - JES3 ENVIRONMENT
Date: Tue, 15 May 2007 05:14:42 -0700

I don't know how to find that out.  All I know is that the environment is a 
JES3 environemnt.


Tom Marchant [EMAIL PROTECTED] wrote:  On Tue, 15 May 2007 
05:01:46 -0700, willie bunter wrote:


I checked with our OPS department and they use *. I tried the command
but I got errors for both commands. Could it be that the command cannot be
entered via SDSF?
 *V,9F46,OFFLINE,MVS01
IAT8188 9F46 IS AN INVALID VARY FIELD


 /*vary 9F46,offline,ALL
 IAT8188 9F46 IS AN INVALID VARY FIELD

You've gotten closer. This time the command was rejected by JES3. Is 9F46
a JES3 controlled device?

--
Tom Marchant

--
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



-
Yahoo! oneSearch: Finally,  mobile search that gives answers, not web 
links.


--
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


_
PC Magazine’s 2007 editors’ choice for best Web mail—award-winning Windows 
Live Hotmail. 
http://imagine-windowslive.com/hotmail/?locale=en-usocid=TXT_TAGHM_migration_HM_mini_pcmag_0507


--
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: LRECL of Spanned Records

2007-05-18 Thread R.S.

Paul Gilmartin wrote:

 3 //STEP EXEC  PGM=IEFBR14
 4 //SYSUT1DD   UNIT=SYSALLDA,RECFM=VBS,DSORG=PS,SPACE=(1,1),
   //  LRECL=32767
   //*
  STMT NO. MESSAGE
 -
 4 IEF638I SPECIFIED NUMERIC EXCEEDS MAXIMUM ALLOWED IN THE LRECL 
SUBPARAMETER OF THE DCB FIELD

Why?


I don't know why, but I know it's stupid.
You can use LRECL=32767, but you cannot specify that value in JCL. 
People often use such a LRECL for SMF archives (PS VBS 32767). 
It has nothing to do with LRECL=X.


Good news: if you want to process SMF archives, you can use LRECL=32760. AFAIK 
no record exceeds the length.


--
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.2007 r. kapita zakadowy BRE Banku SA (w caoci 
opacony) wynosi 118.064.140 z. W zwizku z realizacj warunkowego 
podwyszenia kapitau zakadowego, na podstawie uchwa XVI WZ z dnia 21.05.2003 
r., kapita zakadowy BRE Banku SA moe ulec podwyszeniu do kwoty 118.760.528 
z. Akcje w podwyszonym kapitale zakadowym bd w caoci opacone.

--
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: ISPF EDIT RECOVERY scope

2007-05-18 Thread Shmuel Metz (Seymour J.)
In [EMAIL PROTECTED], on 05/13/2007
   at 10:39 PM, Paul [EMAIL PROTECTED]
[EMAIL PROTECTED] said:

A few months ago, I asked in this forum whether I could disable
Confirm Data Set Delete in my Profile.  The modal reaction was,
No!  Very Bad Idea!  Extremely Dangerous!  We hope IBM never
provides such a facility, even as an option!  (There were a few
exceptions of the not my dog genre.)  But isn't RECOVERY OFF
likewise a dangerous behavior, which shouldn't be stored in a
profile?

Yes. Presumably IBM provided it for compatibility.
 
-- 
 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Date Time in JCL

2007-05-18 Thread Tom Marchant
On Fri, 18 May 2007 09:51:23 +0200, Vernooy, C.P. - SPLXM 
[EMAIL PROTECTED] wrote:



Robert Bardos [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]...

 Naive idea: why not provide system symbols for all of these
 (submission time, conversion time, execution time)?  SYSSTIME,
 SYSCTIME, SYSETIME?

 Robert


Of which system? Jobs can travel through serveral systems in an NJE
network, submitted on system1, converted on system2 executed on system3,
each with their own timesettings.

Well, let's see  If I submit a job on system1 and ask for submission time, 
I 
think I would want system1's time.  If I submit it to run on system3 and ask 
for executuion time, I think I want system3's time.  Of course, if e.g. system3 
is a sysplex with images running in different time zones, I'd probably want GMT 
time.

 Dataset1 gets timestamp 10:00, the
*next* dataset2 can get timestamp 09:10 if created 10 minutes after
dataset1. Quite confusing.

I can't see how that would happen unless the two time stamps were based 
upon a different kind of time.  Or perhaps if the job terminated and was 
restarted on a different member in the 'plex that ran in a different time zone 
and I was asking for local time.

-- 
Tom Marchant

--
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: LRECL of Spanned Records

2007-05-18 Thread Tom Marchant
On Fri, 18 May 2007 13:08:15 +0200, R.S. wrote:

I don't know why, but I know it's stupid.
You can use LRECL=32767, but you cannot specify that value in JCL.
People often use such a LRECL for SMF archives (PS VBS 32767).
It has nothing to do with LRECL=X.

Do you want to tell us *how* you can specify LRECL=32767?

-- 
Tom Marchant

--
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


How can I influence VTS device allocation

2007-05-18 Thread Vernooy, C.P. - SPLXM
Hello list,

 

We have a TS7700 VTS in a grid Configuration, which consists of 2 TS7700
clusters each with its own tapeunits, coupled together as one VTS with
two distributed libraries as seen by SMS. Since it is one VTS to SMS,
SMS will select a random tapeunit from the total pool of devices.
Normally this is no problem.

 

However, if I want tot read statistics from each cluster's library
manager, I must address a device from that specific cluster. Since SMS
considers it one VTS, I have not been able to force my allocation to an
address of the desired cluster. I tried a unitaddress, created generics
for each cluster and used them, but no success.

 

Cluster 0 has devices 0600-06FF, cluster 1 has devices 0700-07FF. How
can I force an allocation to a device of the desired cluster? 

 

Thanks,

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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: LRECL of Spanned Records

2007-05-18 Thread R.S.

Tom Marchant wrote:

On Fri, 18 May 2007 13:08:15 +0200, R.S. wrote:

I don't know why, but I know it's stupid.
You can use LRECL=32767, but you cannot specify that value in JCL.
People often use such a LRECL for SMF archives (PS VBS 32767).
It has nothing to do with LRECL=X.


Do you want to tell us *how* you can specify LRECL=32767?


Sure. You cannot. g
However you can create such dataset using LIKE or IFASMFDP:
//SMFCLEAR  EXEC PGM=IFASMFDP   
//SYSPRINT  DD SYSOUT=* 
//WEJ   DD DISP=SHR,DSN=SYS1.MAN1

//WYJ   DD DSN=HLQ.AAA.SMF,DISP=(,CATLG),SPACE=(CYL,(100,100)),
//  DSORG=PS
//SYSIN DD *
INDD(WEJ,OPTIONS(ALL))   
OUTDD(WYJ,TYPE(000:255))   
/*

HLQ.AAA.SMF will be PS VBS 32767.


--
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.2007 r. kapita zakadowy BRE Banku SA (w caoci 
opacony) wynosi 118.064.140 z. W zwizku z realizacj warunkowego 
podwyszenia kapitau zakadowego, na podstawie uchwa XVI WZ z dnia 21.05.2003 
r., kapita zakadowy BRE Banku SA moe ulec podwyszeniu do kwoty 118.760.528 
z. Akcje w podwyszonym kapitale zakadowym bd w caoci opacone.

--
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: Date Time in JCL

2007-05-18 Thread Vernooy, C.P. - SPLXM


Tom Marchant [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]...
 On Fri, 18 May 2007 09:51:23 +0200, Vernooy, C.P. - SPLXM 
 [EMAIL PROTECTED] wrote:
 
 
 
 Robert Bardos [EMAIL PROTECTED] wrote in message
 news:[EMAIL PROTECTED]...
 
  Naive idea: why not provide system symbols for all of these
  (submission time, conversion time, execution time)?  SYSSTIME,
  SYSCTIME, SYSETIME?
 
  Robert
 
 
 Of which system? Jobs can travel through serveral systems in an NJE
 network, submitted on system1, converted on system2 executed on
system3,
 each with their own timesettings.
 
 Well, let's see  If I submit a job on system1 and ask for
submission time, I 
 think I would want system1's time.  If I submit it to run on system3
and ask 
 for executuion time, I think I want system3's time.  Of course, if
e.g. system3 
 is a sysplex with images running in different time zones, I'd probably
want GMT 
 time.
 
  Dataset1 gets timestamp 10:00, the
 *next* dataset2 can get timestamp 09:10 if created 10 minutes after
 dataset1. Quite confusing.
 
 I can't see how that would happen unless the two time stamps were
based 
 upon a different kind of time.  Or perhaps if the job terminated and
was 
 restarted on a different member in the 'plex that ran in a different
time zone 
 and I was asking for local time.
 

It will also work without restart: job1 runs on system1 with time1, job2
runs 10 minutes later on system2 with time=time1-1hr.

I must admit, if you know the mechanisme, you know its shortcomings and
that could be manageable.

I think the problem is at a different level: until now, symbolics are
system-wide: with this addition you get symbolics per job. This means
that each job must create room to store all these variables. Where do
you store them, which variables do you store, how do you keep
flexibility in this set of variables, will the user demand a varying set
of user variables to be stored (yes, he will), etc. etc.?

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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: How can I influence VTS device allocation

2007-05-18 Thread Bruno Sugliani
On Fri, 18 May 2007 14:05:23 +0200, Vernooy, C.P. - SPLXM
[EMAIL PROTECTED] wrote:
Hello list,
We have a TS7700 VTS in a grid Configuration, which consists of 2 TS7700
clusters each with its own tapeunits, coupled together as one VTS with
two distributed libraries as seen by SMS. Since it is one VTS to SMS,
SMS will select a random tapeunit from the total pool of devices.
Normally this is no problem.
However, if I want tot read statistics from each cluster's library
manager, I must address a device from that specific cluster. Since SMS
considers it one VTS, I have not been able to force my allocation to an
address of the desired cluster. I tried a unitaddress, created generics
for each cluster and used them, but no success.
Cluster 0 has devices 0600-06FF, cluster 1 has devices 0700-07FF. How
can I force an allocation to a device of the desired cluster? 


Exactly the same here . 
We faced the same problem , I'll ask if my colleague found a way , she was
working on it 
Bruno 
Bruno(dot)sugliani(at)groupemornay(dot)asso(dot)fr 
 

--
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: Data Areas Manuals to be dropped

2007-05-18 Thread Mark Baron
In my forty years of experience dealing with IBM and its customer services
organization, I have found IBM to be the most customer-centric vendor out
there. So it begs the question that since Vista is about to become the PC
standard, why has IBM seemed to take such a cavalier attitude about getting
a fairly important desktop utility up to snuff.  It's just not like them at all.

And by the way, I understand that the correct spelling of the Redmond
company's name is Micro$oft and that they report what they want to report. 
Not defending them, but they are a reality.

Have a good weekend all. 

--
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: How do I build a stand alone z/OS

2007-05-18 Thread Mohan Vel

Thank you Mark for your help.

Thanks

Mohan

On 5/17/07, Mark Zelden [EMAIL PROTECTED] wrote:


On Thu, 17 May 2007 07:42:31 -0500, Mark Zelden [EMAIL PROTECTED]
wrote:


As a first step we are planning to install the z/OS, is there any way i
could build a systempac kinda  use it for future LPAR's.


snip



I have some examples on my cbt file - file 434 and in the JOBs section
of my web site (URL below in my signature).

If you don't need TCPIP then you can use the ONEPAK* examples -
otherwise you need the TWOPAK* examples (which can fit on
a single 3390-9).  I last updated them for z/OS 1.6 but was just
considering
updating them for z/OS 1.8.  If you are running z/OS 1.7, there are only
minor changes that need to be made (new LNKLST lib for example).  You
can get those from the migration manual and / or looking at one of your
1.7 systems.

snip

These are the changes that are required from my 1.6 samples to work
with z/OS 1.7 and z/OS 1.8.   I will update my CBT file soon - but you
can easily make them yourself if you plan on using my samples:

CHANGES FROM Z/OS 1.6 VERSION FOR Z/OS 1.8:

1. DEL REFERENCES TO SISPSASC (1.8 CHANGE)
2. DEL SHASLINK AND REPLACE WITH SHASLNKE (1.7 CHANGE)
3. ADD SIEAMIGE TO COPY/ALTER/LNKLST/APF IN PROG00 (1.7 CHANGE)
4. REMOVE RDINUM= FROM JES2PARM (1.7 CHANGE)
5. ADD SCEERUN2 TO COPY/ALTER/LNKLST/APF IN PROG00 (1.7 CHANGE?)
   (ABEND IN CEEBINIT AT IPL WITHOUT SCEERUN2 - OMVS RELATED)
6. CHANGE TMP HFS TO A TFS (UNRELATED TO OS LEVEL CHANGE)


5 and 6 are only for the 2 pack system that includes OMVS and TCP/IP.
SCEERUN2 is a large DSN, so it is going on the 2nd volume.

Regards,

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group:  G-ITO
mailto:[EMAIL PROTECTED]
z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/
Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.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



--
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: Old RAMAC 2 still viable?

2007-05-18 Thread Pommier, Rex R.
There should be no reason to drop the RAMAC2.  We did the same thing,
dropped our RVA for a DS6800 due to the IXFP issue.  Plus the
maintenance (IBM, not third party) and environmentals on the old RVA
were horrendous.  RAMAC2 has none of the software issues of the RVA so
you should be able to keep running it without issues.  

Rex 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Marvin Lukasik
Sent: Friday, May 18, 2007 8:38 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Old RAMAC 2 still viable?

We are currently converting our 4 RVA boxes to an IBM DS8100 in
preparation for installing Z/OS 1.7 since they ( actually IXFP ) will no
longer be supported, but were wondering if we need to jettison our old
RAMAC 2 ?
It's a 9394-002 with 9395-B23. I searched IBM and this list and couldn't
find any info on lack of support. Since it's already paid for with low
3rd party maintenance costs, we'd just as soon keep it  use it for
unimportant files we'd normally keep on tape. Another reason for keeping
it is to keep the floor space and power out of the hands of the
PC-server weenies, who seem to consume every square inch and watt that
becomes available. TIA.

--
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: Microsoft won't sue over Linux, for now

2007-05-18 Thread Tom Marchant
On Fri, 18 May 2007 08:06:46 -0500, Ed Gould wrote:

* QA: Microsoft won't sue over Linux, for now

Of course they won't sue.  If they did, they'd have to reveal what patents are 
being infringed.  Recent supreme court rulings have tightened the requirements 
that a patent neither be obvious nor prior art.  There is, IMO, very little 
probability that they have a single patent that is being infringed.

No, they won't sue anyone.  They'd rather extort royalties for license 
agreements.  Even if they don't get any, they hope to intimidate users and 
divide the open source community and stifle development.

No they won't sue anyone, for now.  And I won't break your legs, for now.

-- 
Tom Marchant

--
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


FTP Error 426

2007-05-18 Thread Chase, John
Hi, All,

Trying to understand the explanation for this FTP error:

426 Connection closed; transfer aborted. 

The manual says only this:

The FTP server received an Out Of Band ABOR subcommand from the FTP
client requesting that the data transfer in progress end. The FTP server
aborted the data transfer.

The client in this context is z/OS 1.7; server is an AIX machine in our
local network.

What is an Out Of Band condition, and why would the z/OS FTP program
(client) originate it?

BTW, the same FTP job finally succeeded after four of the above aborts.

TIA,

-jc-


--
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: Old RAMAC 2 still viable?

2007-05-18 Thread David Andrews
On Fri, 2007-05-18 at 08:38 -0500, Marvin Lukasik wrote:
 We are currently converting our 4 RVA boxes to an IBM DS8100 in
 preparation for installing Z/OS 1.7 since they ( actually IXFP ) will
 no longer be supported,

FWIW: SVAA (the successor to IXFP) *is* supported by Sun/STK.

-- 
David Andrews
A. Duda and Sons, Inc.
[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: LRECL of Spanned Records

2007-05-18 Thread R.S.

Ed Gould wrote:

On May 18, 2007, at 6:08 AM, R.S. wrote:
---SNIP--


Good news: if you want to process SMF archives, you can use 
LRECL=32760. AFAIK no record exceeds the length.





Check the archives someone ran into it (a year ago?).


I checked it for years. It was discussed few years ago.
I asked similar questions. g


--
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.2007 r. kapita zakadowy BRE Banku SA (w caoci 
opacony) wynosi 118.064.140 z. W zwizku z realizacj warunkowego 
podwyszenia kapitau zakadowego, na podstawie uchwa XVI WZ z dnia 21.05.2003 
r., kapita zakadowy BRE Banku SA moe ulec podwyszeniu do kwoty 118.760.528 
z. Akcje w podwyszonym kapitale zakadowym bd w caoci opacone.

--
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: Data Areas Manuals to be dropped

2007-05-18 Thread Mark Zelden
On Fri, 18 May 2007 07:59:08 -0500, Mark Baron [EMAIL PROTECTED] wrote:

In my forty years of experience dealing with IBM and its customer services
organization, I have found IBM to be the most customer-centric vendor out
there. So it begs the question that since Vista is about to become the PC
standard, why has IBM seemed to take such a cavalier attitude about getting
a fairly important desktop utility up to snuff.  It's just not like them at
all.


IBM software was slow to support XP and other newer M$SOFT software also.  
RMF spreadsheet reporter, HCM, ISPF GUI - just to name a few.

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group:  G-ITO
mailto:[EMAIL PROTECTED]
z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/
Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.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


Antwort: remote printing from z/OS Spool over the WAN network

2007-05-18 Thread Albert Klimek
Using Infoprint you can 
- Retry unsuccessful transmissions 
- Retain data sets on the JES spool after failed transmission

You format text-documents sending a document header with PCL-Commands.

Albert 

VERLAGSGRUPPE WELTBILD GMBH
Sitz der Gesellschaft: Augsburg
Handelsregister Augsburg HRB 6035 
Ust-ID-Nr: DE 127501299

Geschäftsführung:
Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch

Vorsitzender des Aufsichtsrates:
Dr. Klaus Donaubauer


Re: LRECL of Spanned Records

2007-05-18 Thread Ed Gould

On May 18, 2007, at 8:05 AM, R.S. wrote:
--SNIP


I checked it for years. It was discussed few years ago.
I asked similar questions. g





I *THOUGHT* IBM (someone not sure who) replied that there can be and  
and (perhaps??) suggested a way around it?


Ed

--
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: Date Time in JCL

2007-05-18 Thread Howard Brazee
On 17 May 2007 14:28:48 -0700, [EMAIL PROTECTED] (Ted MacNEIL)
wrote:

However, the issue is that, there is no definitive value of current date.

The issue is more than just current date (and current time is worse).

It all comes down to submission time, conversion time, execution time, or 
system for all variable substitution under Batch JCL.

Which is valid? And, for date/time what happens if you do a typrun=hold?

How do you know if the submission date is what's wanted, or execution date?
What happens if you submit just before midnight?

Define a few values.   If they don't fit someone's needs, they are no
worse than before.

--
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: Date Time in JCL

2007-05-18 Thread Howard Brazee
On 18 May 2007 00:14:30 -0700, [EMAIL PROTECTED] (Robert Bardos)
wrote:

Naive idea: why not provide system symbols for all of these
(submission time, conversion time, execution time)?  SYSSTIME,
SYSCTIME, SYSETIME?

With Zulu variations.

Our whole computing infrastructure should migrate to GMT, at least
internally.

--
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: Is there a way to Remove BOOK from PF6 in SDSF?

2007-05-18 Thread Howard Brazee
On 17 May 2007 13:48:54 -0700, [EMAIL PROTECTED] (Ted MacNEIL)
wrote:

Go into SDSF.  Type the command KEYS.  Change them to whatever you want and 
save.  New keys will be stored in the users ISPF Profile dataset.

Not a global change, which was what was asked for.

Of course, no change is global when you have users who have already
redefine their keys.You can change the default so that what you
think you have does something other than what it says.

--
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: SMTP Question

2007-05-18 Thread Lionel B Dyck
To see what mail is queued you need to first open your TCPIP SMTP=20
configuration file and find this keyword: MAILFILEDSPREFIX=20

MAILFILEDSPREFIX  defines the high level qualifier of the work files 
that=20
SMTP uses.  In my case it is TCPIP.SMTP (ok - so not very original)

You will find this file always: TCPIP.SMTP.TEMP.NOTE=20

this is the temp file used by SMTP for every note.

You may find other files such as these:

TCPIP.SMTP.A0065752.ADDRBLOK=20
TCPIP.SMTP.A0065752.NOTE=20

These are your queued mail files. The ADDRBLOK is the addressing and 
the=20
NOTE is the mail. On my system they don't exist for very long unless 
the=20
remote mail server is backed up or down (I've seen over 1200 at one time).

You can also, if you are authorized issue the SMSG SMTP QUEUES command and 
=

you'll get something like this:

Msg from SMTP:  * - Mail Queues -=20
Msg from SMTP:  * Spool Queue: 0=20
Msg from SMTP:  * Undeliverable Queue: 0=20
Msg from SMTP:  * --- Resolver Queues ---=20
Msg from SMTP:  * Process Queue:   0=20
Msg from SMTP:  * Send Queue:  0=20
Msg from SMTP:  * Wait Queue:  0=20
Msg from SMTP:  * Retry Queue: 0=20
Msg from SMTP:  * Completed Queue: 0=20
Msg from SMTP:  * Error Queue: 0=20

To be authorized to issue the SMSG command look in your TCPIP SMTP=20
configuration file for this section:

SMSGAUTHLIST=20
userid
  ; OPERATOR  LocalUser=20
ENDSMSGAUTHLIST  =20

Replace userid with your userid or add your userid and you're set

hth

Lionel B. Dyck, Consultant/Specialist 
Enterprise Platform Services, Mainframe Engineering 
KP-IT Enterprise Engineering, Client and Platform Engineering Services 
(CAPES) 
925-926-5332 (8-473-5332) | E-Mail: [EMAIL PROTECTED] 
AIM: lbdyck | Yahoo IM: lbdyck 
Kaiser Service Credo: Our cause is health. Our passion is service. We’re 
here to make lives better.” 

“Never attribute to malice what can be caused by miscommunication.” 

NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail, 
you are prohibited from sharing, copying, or otherwise using or disclosing 
its contents. If you have received this e-mail in error, please notify the 
sender immediately by reply e-mail and permanently delete this e-mail and 
any attachments without reading, forwarding or saving them. Thank you. 


Re: FTP Error 426

2007-05-18 Thread Greg Shirey
John,

I Googled 'out of band FTP' and got a link to RFC 0529.  I'm no expert
in IP networking, but to my reading, out-of-band is sort of an interrupt
caused by the ABOR.  So, why did the client send the abort?  Could it be
the timeout value had passed?  I think the default is 120 seconds, but
it can be overridden.  

If this is a batch job, you might check your EZA1617I messages in the
aborted runs and see if your transfer rate was running really slow at
the time.  We've found IP traffic to be so flaky that we coded a proc
that runs a REXX that attempts the FTP x number of times (4 as a
default), sleeping 30 seconds between attempts (adapted from something
we acquired from Terry Linsley somehow -- thanks, Terry).  And all our
batch jobs that need to FTP use the FTPRETRY proc - most of them are
successful on the first attempt, but many of them wind up taking 2 or 3
attempts.   And when the programmers discover a site they are FTP'ing to
that seems to fail a lot, they generally increase the timeout value too.


Anyway, our shop has viewed this unreliability in FTP transfers as SOP
(or WAD) and have adapted.  

HTH,
Greg Shirey
Ben E. Keith Company   


-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Chase, John
Sent: Friday, May 18, 2007 8:48 AM

Trying to understand the explanation for this FTP error:

426 Connection closed; transfer aborted. 

The manual says only this:

The FTP server received an Out Of Band ABOR subcommand from the FTP
client requesting that the data transfer in progress end. The FTP server
aborted the data transfer.

The client in this context is z/OS 1.7; server is an AIX machine in our
local network.

What is an Out Of Band condition, and why would the z/OS FTP program
(client) originate it?

BTW, the same FTP job finally succeeded after four of the above aborts.

--
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: calling ISPLINK from COBOL

2007-05-18 Thread Steve Comstock

Jim McAlpine wrote:

I'm trying to convert the following pseudo code to run under COBOL -


DCL TCCSID CHAR(5); /* TERMINAL CCSID */

CALL ISPLINK('VDEFINE','ZTERMCID',TCCSID,'CHAR',

LENGTH(TCCSID));

CALL ISPLINK('VGET ','ZTERMCID','SHARED ');
and I've come up with -

WORKING-STORAGE SECTION.
01  TCCSID   PIC X(5).
01  LCCSID   PIC S9(8) VALUE 5.
01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
01  ZTERMCID PIC X(8)  VALUE 'ZTERMCID'.
01  CHAR PIC X(4)  VALUE 'CHAR'.
01  VGET PIC X(8)  VALUE 'VGET'.
01  SHARED   PIC X(8)  VALUE 'SHARED  '.
PROCEDURE DIVISION.
   CALL 'ISPLINK' USING
VDEFINE ZTERMCID TCCSID CHAR LCCSID.
   DISPLAY RETURN-CODE UPON SYSOUT.
   CALL 'ISPLINK' USING
VGET ZTERMCID SHARED.
   DISPLAY RETURN-CODE UPON SYSOUT.
   DISPLAY TCCSID UPON SYSOUT
   GOBACK.


Items have to be in a specified order; for VDEFINE its:

  VDEFINE - the verb; you're OK there
  name-list - you have ZTERMCID, looks OK
  variable - you have TCCSID, 5 byte area where value is to
  be placed; looks OK
  format - you have CHAR; OK
  length - you have LCCSID; this must be a fullword
 binary integer; you have 8 bytes of
 display;
Try chaning LCCSID to be defined as:

  LCCSID  pic s9(8) binary value 5.



but I'm getting rc=20 - severe error from both calls to ISPLINK.  It's 20
years since I've done any of this stuff and I've been looking at it all
afternoon  without success.  Can someone put me out of my Friday afternoon
misery please.  Is it time to go home yet.


Hard to say: what time zone are you in?


Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

  z/OS Application development made easier
* Our classes include
   + How things work
   + Programming examples with realistic applications
   + Starter / skeleton code
   + Complete working programs
   + Useful utilities and subroutines
   + Tips and techniques

--
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: calling ISPLINK from COBOL

2007-05-18 Thread Kurt Gramling
Jim,
  Change the W-S fields to this:

01  ZTERMCID PIC X(8)  VALUE '(TCCSID)'.
01  LCCSID   PIC 9(6)  comp VALUE 5.

Kurt Gramling



I'm trying to convert the following pseudo code to run under COBOL -


DCL TCCSID CHAR(5); /* TERMINAL CCSID */

CALL ISPLINK('VDEFINE','ZTERMCID',TCCSID,'CHAR',

LENGTH(TCCSID));

CALL ISPLINK('VGET ','ZTERMCID','SHARED ');
and I've come up with -

WORKING-STORAGE SECTION.
01  TCCSID   PIC X(5).
01  LCCSID   PIC S9(8) VALUE 5.
01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
01  ZTERMCID PIC X(8)  VALUE 'ZTERMCID'.
01  CHAR PIC X(4)  VALUE 'CHAR'.
01  VGET PIC X(8)  VALUE 'VGET'.
01  SHARED   PIC X(8)  VALUE 'SHARED  '.
PROCEDURE DIVISION.
CALL 'ISPLINK' USING
 VDEFINE ZTERMCID TCCSID CHAR LCCSID.
DISPLAY RETURN-CODE UPON SYSOUT.
CALL 'ISPLINK' USING
 VGET ZTERMCID SHARED.
DISPLAY RETURN-CODE UPON SYSOUT.
DISPLAY TCCSID UPON SYSOUT
GOBACK.

but I'm getting rc=20 - severe error from both calls to ISPLINK.  It's 20
years since I've done any of this stuff and I've been looking at it all
afternoon  without success.  Can someone put me out of my Friday afternoon
misery please.  Is it time to go home yet.

Jim

--
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


Re: LOADxx PARMLIB statement, can dsname include SYSR1 symbol?

2007-05-18 Thread Jakubek, Jan
Peter Relson:
No, the dsname cannot include SYSR1.
Nor is such functionality likely to be implemented.
There is no full system symbol support for any symbol including SYSR1
(so substrings are not supported, for example).

Peter,

Thank you for noticing and the authoritative answer.
I'd hope this is not the last word (even if a word comes too late for
me).

Why am I asking about this?

Because I have a top level PARMLIB (locally updated parms/ members)
for every sysres set that we have around here. I'm guessing others 
do likewise.

The OS can easily find it via either master catalogue and/or volser in
PARMLIB statement (that can be a symbol like 'SYSR1', '*MCAT*',
'**).

However it is me who needs to update it, and, make sure I do not touch
the live, running sysres PARMLIB. Typically, for any updates,
including
PARMLIB/PROCLIBs we make an alternate/ cloned sysres set and prepare 
it for an IPL. So, each time, while editing, I'm concerned, and I do
check, multiple times, am I really editing the right one?
A volser (=SYSR1), in a PARMLIB dsname single qualifier, would be a
helpful, visual feedback, and it would offer an additional flexibility:
A sysres set level PARMLIB could be placed on other volumes (than
'SYSR1'), like *MCAT* or IODF, since it could have a unique dsname with
a clear indication as to where it belongs.
In our setup an IODF volume supports multiple images/ *MCAT*s. There are
multiple sysres sets for an *MCAT*.

A simplified support for SYSR1 symbol (no substring support) in the
dsname field of LOADxx/PARMLIB statement would be a good thing for
z/OS system programmers.  

Janek J.

--
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: Date Time in JCL

2007-05-18 Thread Farley, Peter x23353
 -Original Message-
 From: Vernooy, C.P. - SPLXM [mailto:[EMAIL PROTECTED] 
 Sent: Friday, May 18, 2007 3:51 AM
 To: IBM-MAIN@BAMA.UA.EDU
 Subject: Re: Date  Time in JCL

 Robert Bardos [EMAIL PROTECTED] wrote in message
 news:[EMAIL PROTECTED]...
 Snipped 
  Naive idea: why not provide system symbols for all of these
  (submission time, conversion time, execution time)?  SYSSTIME,
  SYSCTIME, SYSETIME?
  
  Robert
  

 Of which system? Jobs can travel through serveral systems in an NJE
 network, submitted on system1, converted on system2 executed on system3,
 each with their own timesettings. Dataset1 gets timestamp 10:00, the
 *next* dataset2 can get timestamp 09:10 if created 10 minutes after
 dataset1. Quite confusing.

OK, I haven't ever contributed to this long-running debate, so here's my
USD$0.02 worth:

Let the customer decide what they want:

SYSTMSG Time, Submit, GMT
SYSTMSL Time, Submit, Local

SYSTMCG Time, Convert, GMT
SYSTMCL Time, Convert, Local

SYSTMEG Time, Execute, GMT
SYSTMEL Time, Execute, Local

And the same kind of set for Date of course (SYSDTSG etc.).

GMT's could be suffixed U for Universal or Z for Zulu instead of
G, I don't really care as long as the functionality is the same.

And to reply to another poster's objection, these are NOT JOB-saved values.
They are live when-used values maintained at the system level only.  If
you the user want the same value later in the JCL, then save it in a SET
variable of your own.  So, you would NOT use the following example in your
JCL to create a dataset to be used later in the same job:

//DDNAME DD DISP=(,CATLG),DSN=MYUSERID.MYDATA.DSYSEDTG..TSYSETMG,...

Instead, you would code it like this:

// SET MYDATE=SYSEDTG,MYTIME=SYSETMG
//DDNAME DD DISP=(,CATLG),DSN=MYUSERID.MYDATA.DMYDATE..TMYTIME,...

And then later in the job you could code:

//DDNAME DD DISP=SHR,DSN=MYUSERID.MYDATA.DMYDATE..TMYTIME

with no ambiguity at all.

As for RESTARTed jobs, well I don't know the rule for whether SET statements
are re-executed on a restart or not.  If the SET's are bypassed, RESTART is
probably not possible.  In which case, it's like the old vaudeville routine,
Patient: Doctor, Doctor it hurts when I do that!  Doctor: Don't do that!.

I also just realized why people think there would be a JOB-related storage
need, to carry along Submit and Convert dates/times.  But wait -- why
wouldn't Convert and Submit simply replace the text of the symbol name with
the text value at that point in time?  Then subsequent steps (Convert and
Execute after Submit, Execute after Convert) would see only constant text,
not a variable.  Only Execute symbols would be always live and always
changing.

And if you need RESTARTability, don't use Execute-time symbols.

Is that enough specification to make it viable?

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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: date and time in JCL

2007-05-18 Thread Imbriale, Donald
Why do some people persist in changing the subject line, making it
difficult to thread topics?

Don Imbriale

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of john gilmore
Sent: Thursday, May 17, 2007 7:17 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: date and time in JCL




***
Bear Stearns is not responsible for any recommendation, solicitation, 
offer or agreement or any information about any transaction, customer 
account or account activity contained in this communication.
***

--
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: 3350 errors

2007-05-18 Thread Salway, Nigel
It has been some time since I worked on 3350s, but I believe the
described fault which lead to head crashes was an air filter somewhere
in the HDA assembly which eventually deteriorated and got onto the
platters. I also recall the 3380s had problems with the checkstops in
the HDA deteriorating, thereby causing head crashes, and the 3350s may
have exhibited this as well. 

 

 
 

 


--
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: Old RAMAC 2 still viable?

2007-05-18 Thread Pommier, Rex R.
 But will SVAA work with the old RVA?

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of David Andrews
Sent: Friday, May 18, 2007 8:43 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Old RAMAC 2 still viable?

On Fri, 2007-05-18 at 08:38 -0500, Marvin Lukasik wrote:
 We are currently converting our 4 RVA boxes to an IBM DS8100 in 
 preparation for installing Z/OS 1.7 since they ( actually IXFP ) will 
 no longer be supported,

FWIW: SVAA (the successor to IXFP) *is* supported by Sun/STK.

--
David Andrews
A. Duda and Sons, Inc.
[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


calling ISPLINK from COBOL

2007-05-18 Thread Jim McAlpine

I'm trying to convert the following pseudo code to run under COBOL -


DCL TCCSID CHAR(5); /* TERMINAL CCSID */

CALL ISPLINK('VDEFINE','ZTERMCID',TCCSID,'CHAR',

LENGTH(TCCSID));

CALL ISPLINK('VGET ','ZTERMCID','SHARED ');
and I've come up with -

WORKING-STORAGE SECTION.
01  TCCSID   PIC X(5).
01  LCCSID   PIC S9(8) VALUE 5.
01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
01  ZTERMCID PIC X(8)  VALUE 'ZTERMCID'.
01  CHAR PIC X(4)  VALUE 'CHAR'.
01  VGET PIC X(8)  VALUE 'VGET'.
01  SHARED   PIC X(8)  VALUE 'SHARED  '.
PROCEDURE DIVISION.
   CALL 'ISPLINK' USING
VDEFINE ZTERMCID TCCSID CHAR LCCSID.
   DISPLAY RETURN-CODE UPON SYSOUT.
   CALL 'ISPLINK' USING
VGET ZTERMCID SHARED.
   DISPLAY RETURN-CODE UPON SYSOUT.
   DISPLAY TCCSID UPON SYSOUT
   GOBACK.

but I'm getting rc=20 - severe error from both calls to ISPLINK.  It's 20
years since I've done any of this stuff and I've been looking at it all
afternoon  without success.  Can someone put me out of my Friday afternoon
misery please.  Is it time to go home yet.

Jim

--
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: FTP Error 426

2007-05-18 Thread Chris Mason

John

In  4.1.3.  FTP SERVICE COMMANDS, RFC 959 states the following:

quote

ABORT (ABOR)

   This command tells the server to abort the previous FTP
   service command and any associated transfer of data.  The
   abort command may require special action, as discussed in
   the Section on FTP Commands, to force recognition by the
   server.  No action is to be taken if the previous command
   has been completed (including data transfer).  The control
   connection is not to be closed by the server, but the data
   connection must be closed.

   There are two cases for the server upon receipt of this
   command: (1) the FTP service command was already completed,
   or (2) the FTP service command is still in progress.

  In the first case, the server closes the data connection
  (if it is open) and responds with a 226 reply, indicating
  that the abort command was successfully processed.

  In the second case, the server aborts the FTP service in
  progress and closes the data connection, returning a 426
  reply to indicate that the service request terminated
  abnormally.  The server then sends a 226 reply,
  indicating that the abort command was successfully
  processed.

/quote

Interestingly enough, it doesn't mention out-of-band. I expect this 
explanation text you found means that the TCP OOB function is used with the 
sending of the ABOR command from the FTP client to the FTP server over the 
TCP connection. OOB is some weird protocol used within TCP which is a pale 
shadow of the SNA expedite function. I expect this means that the FTP client 
was trying to hurry along the abort request - quite understandable - and 
maybe it worked!


Here are my presentation notes on OOB:

quote

Out-Of-Band Data

Out-of-band data may be used for whatever purpose an application may have 
for it. It is usually thought of as of use for sending urgent data. It may 
be compared to the use of SIGNAL in SNA.


The sending and receiving of out-of-band data is supported by modified 
versions of the standard WRITE and READ subroutine calls: SEND and RECV. 
These subroutine calls allow for the additional specification of a flag 
parameter which includes the ability to send out-of-band data with a SEND 
subroutine call and receive out-of-band data with a RECV subroutine call. 
The flag has the name MSG_OOB.


Out-of-band data may be received either inline in the position it was 
placed in the data stream by the SEND subroutine call or not inline so 
that it can be received as soon as it appears in the arriving data and ahead 
of any normal data in the stream.


Setting the option to define how out-of-band data should be received is one 
of the functions of the SETSOCKOPT subroutine call. The ability to query the 
current setting of this option is one of the functions of the GETSOCKOPT 
subroutine call. The socket option is specified with the name SO_OOBINLINE.


Whether the out-of-band data is inline or not inline, the fact that 
out-of-band data is next to be read can be detected by use of one of the 
functions of the IOCTL subroutine call. The function has the name 
SIOCATMARK. The function is normally used when the out-of-band data is 
inline. Note that, whereas normally stream data accumulates such that data 
from multiple subroutine calls of any of the send types can be received with 
one subroutine call of any of the receive types, the presence of out-of-band 
data effectively creates boundaries in the stream so that a receive 
subroutine call stops, as it were, at the out-of-band marker. Thus there is 
no risk that inline out-of-band data can be missed by being embedded in 
normal data.


However, when out-of-band data is not inline, there is a risk that the 
data can be lost entirely unless it is received
*before* normal data which was sent after the out-of-band data. Whether the 
out-of-band data is inline or not, the SELECT subroutine call will 
indicate that out-of-band data is present by setting the exception condition 
for the relevant socket. This condition is cleared when the out-of-band data 
is received or it has been, as it were, passed over.


The author has had some difficulty getting very definite descriptions of 
other than the most basic socket functions from available sources. At least 
one implementation of socket subroutine calls, namely, TCP/IP for MVS (and, 
almost certainly, also VM and, very probably, VTAM V3R4.2) implement 
out-of-band data as *a single byte*.
This is nowhere precisely documented. Strangely enough, if the SEND 
subroutine call used to send out-of-band data specifies more than one byte 
of data, all bytes, other than the last, enter the stream as normal data.


A further point, also discovered only by testing, is that only one 
out-of-band byte may be sent at any one time. If a second 

Re: Is there a way to Remove BOOK from PF6 in SDSF?

2007-05-18 Thread Patrick Lyon
On Thu, 17 May 2007 20:49:41 +, Ted MacNEIL [EMAIL PROTECTED] 
wrote:

Not a global change, which was what was asked for.
-
Too busy driving to stop for gas!



It's not global but I haven't read anyone refer to the KEYLIST command.

--
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: LOADxx PARMLIB statement, can dsname include SYSR1 symbol?

2007-05-18 Thread Mark Jacobs

Jakubek, Jan wrote:

Peter Relson:
  

No, the dsname cannot include SYSR1.
Nor is such functionality likely to be implemented.
There is no full system symbol support for any symbol including SYSR1


snip

Have you thought of issuing a SET PARMLIB command to activate a parmlib 
configuration that has the SYSR1 symbol in it early in the IPL process? 
The symbol should be able to be resolved then.


--
Mark Jacobs
Technical Services
Time Customer Service - Tampa, FL
--
Victory in defeat, there is none higher. She didn't give up, Ben; 
she's still trying to lift that stone after it has crushed her.
She's a father going down to a dull office job while cancer is 
painfully eating away his insides, so as to bring home one more pay 
check for the kids. She's a twelve-year-old girl trying to mother her
baby brothers and sisters because Mama had to go to Heaven. She's a 
switchboard operator sticking to her job while smoke is choking her 
and the fire is cutting off her escape. She's all the unsung heroes

who couldn't quite cut it but never quit.*

Robert A. Heinlein - Stranger in a Strange Land 

*Referring to the Auguste Rodin sculpture, Caryatid Who Has Fallen under Her Stone 


--
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: Is there a way to Remove BOOK from PF6 in SDSF?

2007-05-18 Thread Alan Scott
Once a user accesses SDSF the ISFPROF memeber of the SISFTLIB dataset is 
copied into that users ISPPROF dataset. The only mechanism to effect change 
to all of the users is delete the ISFPROF member from each users ISPPROF 
dataset. This will cause a new copy of ISFPROF to be made from the SISFTLIB 
dataset.

You can set the defaults when the system is first installed by setting your own 
KEYS to what you feel they should default to and then copying your ISFPROF 
member from your ISPPROF dataset into the SISFTLIB dataset.


Short of doing this, I would say that overiiding the BOOK command with a 
REXX or CLIST as mentioned earilier is the quickest fix.

--
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: Date Time in JCL

2007-05-18 Thread Paul Gilmartin
On Fri, 18 May 2007 10:42:32 -0400, Farley, Peter x23353 wrote:

Let the customer decide what they want:

SYSTMEGTime, Execute, GMT
SYSTMELTime, Execute, Local

But that's a more significant change.  I suspect symbolic substitution
is performed at only one step in the job flow, prior to the availability
of the execution time values.

And, at what point in the flow must data set names be fixed for ENQs and
JES3 scheduling?

I'd be pleased enough to have only the submission or conversion (whichever
is more practical) values.  GMT, of course.

And to reply to another poster's objection, these are NOT JOB-saved values.
They are live when-used values maintained at the system level only.  If
you the user want the same value later in the JCL, then save it in a SET
variable of your own.

Complicateder and complicateder.  So would SETs involving conversion time
symbols need to be elaborated at conversion time, SETs involving execution
time symbols need to be elaborated at execution time, etc.

BTW, the JCL RM appears to prohibit using symbols in SET statements, though
the statement is ambiguous and appears to be entirely unenforced.

-- gil

--
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: date and time in JCL

2007-05-18 Thread Paul Gilmartin
On Fri, 18 May 2007 10:33:13 -0400, Imbriale, Donald [EMAIL PROTECTED] wrote:

Why do some people persist in changing the subject line, making it
difficult to thread topics?

I've noticed that's perceptibly characteristic of John G.

o Perhaps his User Agent doesn't support replicating the subject line
  and he has no choice but retype it with possible variation.

o At times he makes a suitable, somtimes overdue, change in the subject
  line when the topic is drifting.

o Perhaps he feels urged to correct typographic errors in the subject
  line (sometimes introducing his own).

o Perhaps he merely dislikes ampersands.

-Original Message-
Behalf Of john gilmore
Subject: Re: date and time in JCL

-- gil

--
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: Lean and Mean: 150,000 U.S. layoffs for IBM?

2007-05-18 Thread Shmuel Metz (Seymour J.)
In [EMAIL PROTECTED], on 05/10/2007
   at 02:59 PM, Rick Fochtman [EMAIL PROTECTED] said:

Here again, I have similar experiences with medics. When I got bitten
by  a cottonmouth at Ft. Polk, the medic-types were worse than
useless, but  the guy that saved my b*tt in 'Nam after I was stung by
a very large  wasp had the right needle in me before I was settled
firmly on the  ground. (I'm deathly allergic to wasp and bee stings.)
It was the NCO's  and Warrants that got me to the hospital in time,
while the captain kept  insisting that I was malingering.

One of life's little ironies was that while they thought I was
malingering when I kept going on sick call for my pneumonia, they
ordered me to see the doctor when I banged up my lack on the obstacle
course. They kept me in the hospital for a week for a lousy bruise[1]
which I was perfectly content to ignore, thus setting back my
training.

I find it very hard to respect a leader that doesn't do  anything to
earn my respect except sit in his office reading magazines  and
signing the rare purchase order for office supplies.

I was lucky in that regard; I don't recall a company commander of that
sort.

[1] They called it a hematoma, but that just means bruise.
 
-- 
 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Lean and Mean: 150,000 U.S. layoffs for IBM?

2007-05-18 Thread Shmuel Metz (Seymour J.)
In
[EMAIL PROTECTED],
on 05/10/2007
   at 02:24 PM, Chase, John [EMAIL PROTECTED] said:

The President of the United States get, what, a $400,000 annual
salary? And a tenure limited by the Constitution to 8 years maximum.

And quite a variety of perq for the rest of his life.

Explain that!

Power is the ultimate aphrodisiac. Even a failed president gets a huge
amount of payoffas and spinoff from his presidency, and the potential
for graft behind the Iron Curtain was even higher than it is here,
where it is already enormous.

-- 
 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: JES2 at DR

2007-05-18 Thread Shmuel Metz (Seymour J.)
In [EMAIL PROTECTED], on 05/10/2007
   at 08:16 AM, Lizette Koehler [EMAIL PROTECTED] said:

If I start JES2 with PARM='COLD,NOFMT' that will cold start the
Checkpoint and not format the Spool spaces.

You can't do[1] NOFMT unless the online SPOOL volumes are already
formatted. You have to format the remaining SPOOL volumes sooner or
later. Do you have reason to believe that it is faster to format a raw
volume than to restore from a full dump of an already formatted
volume?

We are just doing full volume restores of our JES2 volumes so they
will not be allocated as new spaces.  They already exist.

Then they're already formatted.

We are trying to reduce the time our JES2 startup takes at DR and I
forget how the spool space is handled after the Cold start is
completed on the checkpoint.

If you restored dumps of formatted SPOOL volumes then there is no need
to format them again. Is there something that you left out of your
question? Are you actually restoring from partial dumps?

BTW, in a past life I was always able[2] to do a warm start for DR
tests. We used FDR. YMMV.

[1] As opposed to requesting NOFMT and JES2 ignoring it.

[2] I'm not saying that it's a good idea, just that I got away with
it.

-- 
 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Lean and Mean: 150,000 U.S. layoffs for IBM?

2007-05-18 Thread Shmuel Metz (Seymour J.)
In
[EMAIL PROTECTED],
on 05/10/2007
   at 12:43 PM, Veilleux, Jon L [EMAIL PROTECTED] said:

No, there wasn't any disciplinary action. Also, during my year over
there 2 people were killed by accidental firearm discharges. See any
correlation?

None that wasn't predictable :-(

-- 
 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Is there a way to Remove BOOK from PF6 in SDSF?

2007-05-18 Thread Mark Zelden
On Fri, 18 May 2007 09:51:30 -0500, Patrick Lyon [EMAIL PROTECTED] wrote:


It's not global but I haven't read anyone refer to the KEYLIST command.


SDSF doesn't use keylists.

--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group:  G-ITO
mailto:[EMAIL PROTECTED]
z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/
Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.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


Re: How do I build a stand alone z/OS

2007-05-18 Thread Mark Zelden
You're welcome.   

Upon further review...

My abend in CEEBINIT was caused by trying to start SYSLOGD from /etc/rc
in the ETC file copied to the twopak system.  So I am not including 
SCEERUN2 in the updated sample except as comments and I am also
including a note about the abend I saw while testing.  I also removed
RELADDR= from JES2PARM since this is obsolete as of z/OS 1.7.   

Regards,

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group:  G-ITO
mailto:[EMAIL PROTECTED]
z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/
Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html


On Fri, 18 May 2007 19:21:41 +0530, Mohan Vel [EMAIL PROTECTED] wrote:

Thank you Mark for your help.

Thanks

Mohan

On 5/17/07, Mark Zelden [EMAIL PROTECTED] wrote:

 On Thu, 17 May 2007 07:42:31 -0500, Mark Zelden [EMAIL PROTECTED]
 wrote:


 As a first step we are planning to install the z/OS, is there any way i
 could build a systempac kinda  use it for future LPAR's.
 

 snip

 
 
 I have some examples on my cbt file - file 434 and in the JOBs section
 of my web site (URL below in my signature).
 
 If you don't need TCPIP then you can use the ONEPAK* examples -
 otherwise you need the TWOPAK* examples (which can fit on
 a single 3390-9).  I last updated them for z/OS 1.6 but was just
 considering
 updating them for z/OS 1.8.  If you are running z/OS 1.7, there are only
 minor changes that need to be made (new LNKLST lib for example).  You
 can get those from the migration manual and / or looking at one of your
 1.7 systems.
 
 snip

 These are the changes that are required from my 1.6 samples to work
 with z/OS 1.7 and z/OS 1.8.   I will update my CBT file soon - but you
 can easily make them yourself if you plan on using my samples:

 CHANGES FROM Z/OS 1.6 VERSION FOR Z/OS 1.8:

 1. DEL REFERENCES TO SISPSASC (1.8 CHANGE)
 2. DEL SHASLINK AND REPLACE WITH SHASLNKE (1.7 CHANGE)
 3. ADD SIEAMIGE TO COPY/ALTER/LNKLST/APF IN PROG00 (1.7 CHANGE)
 4. REMOVE RDINUM= FROM JES2PARM (1.7 CHANGE)
 5. ADD SCEERUN2 TO COPY/ALTER/LNKLST/APF IN PROG00 (1.7 CHANGE?)
(ABEND IN CEEBINIT AT IPL WITHOUT SCEERUN2 - OMVS RELATED)
 6. CHANGE TMP HFS TO A TFS (UNRELATED TO OS LEVEL CHANGE)


 5 and 6 are only for the 2 pack system that includes OMVS and TCP/IP.
 SCEERUN2 is a large DSN, so it is going on the 2nd volume.

 Regards,

 Mark

--
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: Date Time in JCL

2007-05-18 Thread Paul Gilmartin
On Fri, 18 May 2007 08:05:31 -0600, Howard Brazee [EMAIL PROTECTED] wrote:

It all comes down to submission time, conversion time, execution time, or 
system for all variable substitution under Batch JCL.

How do you know if the submission date is what's wanted, or execution date?
What happens if you submit just before midnight?

Define a few values.   If they don't fit someone's needs, they are no
worse than before.

Logically almost true.  SMOP.  But that means a few lines of code that the
supplier needs to support and the customer needs to pay for supporting.
And there will be service calls, you provided submission date, but I want
execution date.  But I think the balance is, Just do it!.  GMT solves
the time zone problem.

None of the proposed circumventions (reader exit, JCL tailoring, dynamically
updated JCLLIB INCLUDE members) provides more current than conversion time,
yet they seem suitable for everyday use.

The midnight transition question?  If a STC JCL uses DSN=HLQ1.YYMMDD.HHMMSS,
is it guaranteed that the date and time are evaluated on the same day?
Otherwise there's a pernicious +/- 23:59:59 error.  Are authors of the above
mentioned circumventions confident that their code is robust with respect
to this pitfall?

-- gil

--
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: FTP Error 426

2007-05-18 Thread Chase, John
 -Original Message-
 From: IBM Mainframe Discussion List On Behalf Of Chris Mason
 
 [ technical minutiae snipped ]

So in this context, Out Of Band is somewhat analogous to SNA's DFASY?

But we'd still like to learn why it occurred.

-jc-

--
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: calling ISPLINK from COBOL

2007-05-18 Thread Jim McAlpine

OK, I've changed both of those but still getting rc=20.

WORKING-STORAGE SECTION.
01  TCCSID   PIC X(5).
01  LCCSID   PIC S9(8) COMP VALUE 5.
01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
01  ZTERMCID PIC X(8)  VALUE '(TCCSID)'.
01  CHAR PIC X(4)  VALUE 'CHAR'.
01  VGET PIC X(8)  VALUE 'VGET'.
01  SHARED   PIC X(8)  VALUE 'SHARED  '.
PROCEDURE DIVISION.
  CALL 'ISPLINK' USING
   VDEFINE ZTERMCID TCCSID CHAR LCCSID.
  DISPLAY RETURN-CODE UPON SYSOUT.
  CALL 'ISPLINK' USING
   VGET ZTERMCID SHARED.
  DISPLAY RETURN-CODE UPON SYSOUT.
  DISPLAY TCCSID UPON SYSOUT
  GOBACK.


Jim McAlpine

On 5/18/07, Kurt Gramling [EMAIL PROTECTED] wrote:


Jim,
 Change the W-S fields to this:

01  ZTERMCID PIC X(8)  VALUE '(TCCSID)'.
01  LCCSID   PIC 9(6)  comp VALUE 5.

Kurt Gramling






--
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: LOADxx PARMLIB statement, can dsname include SYSR1 symbol?

2007-05-18 Thread Shmuel Metz (Seymour J.)
In
[EMAIL PROTECTED],
on 05/16/2007
   at 01:01 PM, Jakubek, Jan [EMAIL PROTECTED] said:

If this gets noticed, and considered - it can/ may get done :-)

It's already noticed ;-)

Now, if you want it done, submit a requirement.

-- 
 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: calling ISPLINK from COBOL

2007-05-18 Thread Steve Comstock

Jim McAlpine wrote:

OK, I've changed both of those but still getting rc=20.

WORKING-STORAGE SECTION.
01  TCCSID   PIC X(5).
01  LCCSID   PIC S9(8) COMP VALUE 5.
01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
01  ZTERMCID PIC X(8)  VALUE '(TCCSID)'.
01  CHAR PIC X(4)  VALUE 'CHAR'.
01  VGET PIC X(8)  VALUE 'VGET'.
01  SHARED   PIC X(8)  VALUE 'SHARED  '.
PROCEDURE DIVISION.
  CALL 'ISPLINK' USING
   VDEFINE ZTERMCID TCCSID CHAR LCCSID.
  DISPLAY RETURN-CODE UPON SYSOUT.
  CALL 'ISPLINK' USING
   VGET ZTERMCID SHARED.
  DISPLAY RETURN-CODE UPON SYSOUT.
  DISPLAY TCCSID UPON SYSOUT
  GOBACK.


Jim McAlpine

On 5/18/07, Kurt Gramling [EMAIL PROTECTED] wrote:



Jim,
 Change the W-S fields to this:

01  ZTERMCID PIC X(8)  VALUE '(TCCSID)'.
01  LCCSID   PIC 9(6)  comp VALUE 5.

Kurt Gramling


I don't think you want (TCCSID) but just TCCSID as
you had it before. Why specify PIC 9(6) for your
LCCSID? What you had before PIC S9(8) is good, you
just needed to make the usage 'binary' (or, as the
old timers say, 'comp').

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

  z/OS Application development made easier
* Our classes include
   + How things work
   + Programming examples with realistic applications
   + Starter / skeleton code
   + Complete working programs
   + Useful utilities and subroutines
   + Tips and techniques

--
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: FTP Error 426

2007-05-18 Thread Chase, John
 -Original Message-
 From: IBM Mainframe Discussion List On Behalf Of Greg Shirey
 
 John,
 
 I Googled 'out of band FTP' and got a link to RFC 0529.  
 I'm no expert in IP networking, but to my reading, 
 out-of-band is sort of an interrupt caused by the ABOR.

Hmmm..  From Chris Mason's explanation I got the impression that the
ABOR subcommand was the payload, and the out of band is somewhat
analogous to the SNA DFASY transmission.

  So, 
 why did the client send the abort?  Could it be the timeout 
 value had passed?  I think the default is 120 seconds, but it 
 can be overridden.  
 
 If this is a batch job, you might check your EZA1617I 
 messages in the aborted runs and see if your transfer rate 
 was running really slow at the time.

Not likely, because the batch FTP jobstep started and ended in the same
second.  Here's the message sequence:

EZA1736I APPEND  'ZOS.DATASET.NAME' +
EZA1736I /AIX/pathname/filename.ext  
EZA1701I  SITE FIXrecfm 599 LRECL=599 RECFM=FB BLKSIZE=27554
500 'SITE FIXrecfm 599 LRECL=599 RECFM=FB BLKSIZE=27554'
EZA1701I  PORT 
200 PORT command successful.  
EZA1701I  APPE /AIX/pathname/filename.ext 
150 Opening ASCII mode data connection for 
426 Connection closed; transfer aborted.  
EZA1735I Std Return Code = 04426, Error Code = 2  
EZA1701I  QUIT 
221   
* FILE TRANSFER FAILED 

It's as though z/OS said just kidding immediately after the 150 reply.

  We've found IP traffic 
 to be so flaky that we coded a proc that runs a REXX that 
 attempts the FTP x number of times (4 as a default), sleeping 
 30 seconds between attempts (adapted from something we 
 acquired from Terry Linsley somehow -- thanks, Terry).  And 
 all our batch jobs that need to FTP use the FTPRETRY proc - 
 most of them are successful on the first attempt, but many of 
 them wind up taking 2 or 3
 attempts.   And when the programmers discover a site they are 
 FTP'ing to
 that seems to fail a lot, they generally increase the timeout 
 value too.
 
 
 Anyway, our shop has viewed this unreliability in FTP 
 transfers as SOP (or WAD) and have adapted.  

OK, we may have to categorize this kind of situation as unexplainable
for the time being.

-jc-

--
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: Mainframe Empty datasets

2007-05-18 Thread Howard Brazee
On 18 May 2007 06:25:41 -0700, [EMAIL PROTECTED]
wrote:

How can I code an assembler program to look at a dataset and determine
if it is an empty dataset? The dataset maybe allocated but not open or
closed.

Why not just do:

//STEP#01   EXEC  PGM=ICETOOL  
//TOOLMSG   DD SYSOUT=*
//DFSMSGDD SYSOUT=*
//INDD DSN=EMPTY.PDS.LIB(DUMMY),   
//   DISP=SHR  
//TOOLINDD*
* SET RC = 12 IF THE 'IN' DATA SET IS EMPTY, OR
* SET RC = 00 IF THE 'IN' DATA SET IS NOT EMPTY
 COUNT FROM(IN) EMPTY  
/* 
// IF (STEP#01.RC=12) THEN   
//STEP#02EXEC PGM=IEBGENER   
//*SYSPRINT   DD DUMMY   
//SYSPRINT   DD SYSOUT=* 
//SYSUT2 DD SYSOUT=* 
//SYSUT1 DD *
 
 INPUT FILE IS EMPTY 
 
//SYSIN  DD DUMMY
// ELSE  
//STEP#03EXEC PGM=IEBGENER   
//*SYSPRINT   DD DUMMY   
//SYSPRINT   DD SYSOUT=* 
//SYSUT2 DD SYSOUT=* 
//SYSUT1 DD *
 
 INPUT FILE HAS DATA IN IT   
//SYSIN  DD DUMMY  
// ENDIF   

???

--
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: saving ISPF profile settings

2007-05-18 Thread Ted MacNEIL
is there a way to save your ISPF profile settings without quitting out of ISPF?

See:  Digging Into the Bag of ISPF Tricks
http://tinyurl.com/yyghzr
-
Too busy driving to stop for gas!  

--
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: Old RAMAC 2 still viable?

2007-05-18 Thread Bruce Black


But will SVAA work with the old RVA?

Yes

--
Bruce A. Black
Senior Software Developer for FDR
Innovation Data Processing 973-890-7300
personal: [EMAIL PROTECTED]
sales info: [EMAIL PROTECTED]
tech support: [EMAIL PROTECTED]
web: www.innovationdp.fdr.com

--
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: Old RAMAC 2 still viable?

2007-05-18 Thread Bruce Black


It's a 9394-002 with 9395-B23. I searched IBM and this list and couldn't find 
any info on lack of support.
There are several references to 9394 in the z/OS 1.8 library so I assume 
it is supported.


--
Bruce A. Black
Senior Software Developer for FDR
Innovation Data Processing 973-890-7300
personal: [EMAIL PROTECTED]
sales info: [EMAIL PROTECTED]
tech support: [EMAIL PROTECTED]
web: www.innovationdp.fdr.com

--
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: calling ISPLINK from COBOL

2007-05-18 Thread Kurt Gramling
Jim,
  You may not have all of the allocations correct in the batch JCL.
Try putting the load in a dataset allocated in your ISPLLIB of your TSO
session and executing it directly - TSO CCSID.

Kurt Gramling




OK, I've changed the calls to dynam and changed the length and ZTERMCID as
follows -

CBL DYNAM
IDENTIFICATION DIVISION.
PROGRAM-ID. CCSID.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  ISPLINK  PIC X(8)  VALUE 'ISPLINK '.
01  TCCSID   PIC X(5).
01  LCCSID   PIC S9(8) COMP VALUE 5.
01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
01  ZTERMCID PIC X(8)  VALUE 'TCCSID  '.
01  CHAR PIC X(4)  VALUE 'CHAR'.
01  VGET PIC X(8)  VALUE 'VGET'.
01  SHARED   PIC X(8)  VALUE 'SHARED  '.
PROCEDURE DIVISION.
CALL ISPLINK USING
 VDEFINE ZTERMCID TCCSID CHAR LCCSID.
DISPLAY RETURN-CODE UPON SYSOUT.
CALL ISPLINK USING
 VGET ZTERMCID SHARED.
DISPLAY RETURN-CODE UPON SYSOUT.
DISPLAY TCCSID UPON SYSOUT
GOBACK.

but still rc=20.  I'm getting the feeling it's something more basic.  It's
running just as a batch COBOL program BTW.

Jim McAlpine

--
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: calling ISPLINK from COBOL

2007-05-18 Thread David Day
I don't know if you can do this, but if you can get a dump of the code at 
the time it is making the call to ISPLINK, you can check the parm list.  R1 
will point to a parmlist of full word pointers, with the last one set with 
the high order bit on to denote end of list.  Each parm in the list has to 
be in the sequence specified in the ISPF manual for the type of function 
desired.  1st parm would point to an 8 character field with VDEFINE, 2nd 
parm the name field, etc., etc.  Check the manual for the correct parm list 
for the type of call.  Adjust your code accordingly.  As far as I know, 
rc=20 says ISPF cannot recognize what it is you are asking...the parm list 
is un-recognizable.  Hope this helps.


   --Dave

- Original Message - 
From: Jim McAlpine [EMAIL PROTECTED]

Newsgroups: bit.listserv.ibm-main
To: IBM-MAIN@BAMA.UA.EDU
Sent: Friday, May 18, 2007 10:11 AM
Subject: Re: calling ISPLINK from COBOL



OK, I've changed both of those but still getting rc=20.

WORKING-STORAGE SECTION.
01  TCCSID   PIC X(5).
01  LCCSID   PIC S9(8) COMP VALUE 5.
01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
01  ZTERMCID PIC X(8)  VALUE '(TCCSID)'.
01  CHAR PIC X(4)  VALUE 'CHAR'.
01  VGET PIC X(8)  VALUE 'VGET'.
01  SHARED   PIC X(8)  VALUE 'SHARED  '.
PROCEDURE DIVISION.
  CALL 'ISPLINK' USING
   VDEFINE ZTERMCID TCCSID CHAR LCCSID.
  DISPLAY RETURN-CODE UPON SYSOUT.
  CALL 'ISPLINK' USING
   VGET ZTERMCID SHARED.
  DISPLAY RETURN-CODE UPON SYSOUT.
  DISPLAY TCCSID UPON SYSOUT
  GOBACK.


Jim McAlpine

On 5/18/07, Kurt Gramling [EMAIL PROTECTED] wrote:


Jim,
 Change the W-S fields to this:

01  ZTERMCID PIC X(8)  VALUE '(TCCSID)'.
01  LCCSID   PIC 9(6)  comp VALUE 5.

Kurt Gramling






--
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


Re: calling ISPLINK from COBOL

2007-05-18 Thread Kurt Gramling
Jim,
  When you execute the program, are you running under a batch job or in
TSO?
  Are you sure the call to ISPLINK is dynamic?  I don't know if static
links will work.

Kurt Gramling




OK, I've changed both of those but still getting rc=20.

WORKING-STORAGE SECTION.
01  TCCSID   PIC X(5).
01  LCCSID   PIC S9(8) COMP VALUE 5.
01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
01  ZTERMCID PIC X(8)  VALUE '(TCCSID)'.
01  CHAR PIC X(4)  VALUE 'CHAR'.
01  VGET PIC X(8)  VALUE 'VGET'.
01  SHARED   PIC X(8)  VALUE 'SHARED  '.
PROCEDURE DIVISION.
   CALL 'ISPLINK' USING
VDEFINE ZTERMCID TCCSID CHAR LCCSID.
   DISPLAY RETURN-CODE UPON SYSOUT.
   CALL 'ISPLINK' USING
VGET ZTERMCID SHARED.
   DISPLAY RETURN-CODE UPON SYSOUT.
   DISPLAY TCCSID UPON SYSOUT
   GOBACK.


Jim McAlpine

On 5/18/07, Kurt Gramling [EMAIL PROTECTED] wrote:

 Jim,
  Change the W-S fields to this:

 01  ZTERMCID PIC X(8)  VALUE '(TCCSID)'.
 01  LCCSID   PIC 9(6)  comp VALUE 5.

 Kurt Gramling





--
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


Re: calling ISPLINK from COBOL

2007-05-18 Thread Jim McAlpine

OK, I've changed the calls to dynam and changed the length and ZTERMCID as
follows -

CBL DYNAM
IDENTIFICATION DIVISION.
PROGRAM-ID. CCSID.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  ISPLINK  PIC X(8)  VALUE 'ISPLINK '.
01  TCCSID   PIC X(5).
01  LCCSID   PIC S9(8) COMP VALUE 5.
01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
01  ZTERMCID PIC X(8)  VALUE 'TCCSID  '.
01  CHAR PIC X(4)  VALUE 'CHAR'.
01  VGET PIC X(8)  VALUE 'VGET'.
01  SHARED   PIC X(8)  VALUE 'SHARED  '.
PROCEDURE DIVISION.
   CALL ISPLINK USING
VDEFINE ZTERMCID TCCSID CHAR LCCSID.
   DISPLAY RETURN-CODE UPON SYSOUT.
   CALL ISPLINK USING
VGET ZTERMCID SHARED.
   DISPLAY RETURN-CODE UPON SYSOUT.
   DISPLAY TCCSID UPON SYSOUT
   GOBACK.

but still rc=20.  I'm getting the feeling it's something more basic.  It's
running just as a batch COBOL program BTW.

Jim McAlpine


On 5/18/07, Steve Comstock [EMAIL PROTECTED] wrote:



I don't think you want (TCCSID) but just TCCSID as
you had it before. Why specify PIC 9(6) for your
LCCSID? What you had before PIC S9(8) is good, you
just needed to make the usage 'binary' (or, as the
old timers say, 'comp').

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

  z/OS Application development made easier
* Our classes include
   + How things work
   + Programming examples with realistic applications
   + Starter / skeleton code
   + Complete working programs
   + Useful utilities and subroutines
   + Tips and techniques

--
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


Re: calling ISPLINK from COBOL

2007-05-18 Thread Ray Mullins
Ah.  You have to be running under TSO and start ISPF for ISPLINK to work,
otherwise you get the RC 20.(Well, that first part is not exactly 100%
true; I've seen some pretty good spoofing of TSO that fools ISPF.)

You can run ISPF under batch TSO (EXEC PGM=IKJEFT1B or IKJEFT01); I haven't
used ISPF batch before, but there are examples of how to do this in the
archives (this came up recently).

There is also an ISPF-centric listserv, ISPF-L.  Subscribe using the usual
commands at [EMAIL PROTECTED]

Later,
Ray


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Jim McAlpine
Sent: Friday May 18 2007 08:43
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: calling ISPLINK from COBOL

OK, I've changed the calls to dynam and changed the length and ZTERMCID as
follows -

CBL DYNAM
IDENTIFICATION DIVISION.
PROGRAM-ID. CCSID.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  ISPLINK  PIC X(8)  VALUE 'ISPLINK '.
01  TCCSID   PIC X(5).
01  LCCSID   PIC S9(8) COMP VALUE 5.
01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
01  ZTERMCID PIC X(8)  VALUE 'TCCSID  '.
01  CHAR PIC X(4)  VALUE 'CHAR'.
01  VGET PIC X(8)  VALUE 'VGET'.
01  SHARED   PIC X(8)  VALUE 'SHARED  '.
PROCEDURE DIVISION.
CALL ISPLINK USING
 VDEFINE ZTERMCID TCCSID CHAR LCCSID.
DISPLAY RETURN-CODE UPON SYSOUT.
CALL ISPLINK USING
 VGET ZTERMCID SHARED.
DISPLAY RETURN-CODE UPON SYSOUT.
DISPLAY TCCSID UPON SYSOUT
GOBACK.

but still rc=20.  I'm getting the feeling it's something more basic.  It's
running just as a batch COBOL program BTW.

Jim McAlpine

--
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: Mainframe Empty datasets

2007-05-18 Thread Barkow, Eileen
Would not ICETOOL be opening the dataset to do the count?
The requirement was that the dataset not be opened.
You would probably have to read the vtoc in order to determine if any
space is actually being used. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Howard Brazee
Sent: Friday, May 18, 2007 11:37 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Mainframe Empty datasets

On 18 May 2007 06:25:41 -0700, [EMAIL PROTECTED]
wrote:

How can I code an assembler program to look at a dataset and determine
if it is an empty dataset? The dataset maybe allocated but not open or
closed.

Why not just do:

//STEP#01   EXEC  PGM=ICETOOL  
//TOOLMSG   DD SYSOUT=*
//DFSMSGDD SYSOUT=*
//INDD DSN=EMPTY.PDS.LIB(DUMMY),   
//   DISP=SHR  
//TOOLINDD*
* SET RC = 12 IF THE 'IN' DATA SET IS EMPTY, OR
* SET RC = 00 IF THE 'IN' DATA SET IS NOT EMPTY
 COUNT FROM(IN) EMPTY  
/* 
// IF (STEP#01.RC=12) THEN   
//STEP#02EXEC PGM=IEBGENER   
//*SYSPRINT   DD DUMMY   
//SYSPRINT   DD SYSOUT=* 
//SYSUT2 DD SYSOUT=* 
//SYSUT1 DD *
 
 INPUT FILE IS EMPTY 
 
//SYSIN  DD DUMMY
// ELSE  
//STEP#03EXEC PGM=IEBGENER   
//*SYSPRINT   DD DUMMY   
//SYSPRINT   DD SYSOUT=* 
//SYSUT2 DD SYSOUT=* 
//SYSUT1 DD *
 
 INPUT FILE HAS DATA IN IT   
//SYSIN  DD DUMMY  
// ENDIF   

???

--
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


Re: calling ISPLINK from COBOL

2007-05-18 Thread Steve Comstock

Kurt Gramling wrote:

Jim,
  You may not have all of the allocations correct in the batch JCL.
Try putting the load in a dataset allocated in your ISPLLIB of your TSO
session and executing it directly - TSO CCSID.

Kurt Gramling




OK, I've changed the calls to dynam and changed the length and ZTERMCID as
follows -

CBL DYNAM
IDENTIFICATION DIVISION.
PROGRAM-ID. CCSID.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  ISPLINK  PIC X(8)  VALUE 'ISPLINK '.
01  TCCSID   PIC X(5).
01  LCCSID   PIC S9(8) COMP VALUE 5.
01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
01  ZTERMCID PIC X(8)  VALUE 'TCCSID  '.
01  CHAR PIC X(4)  VALUE 'CHAR'.
01  VGET PIC X(8)  VALUE 'VGET'.
01  SHARED   PIC X(8)  VALUE 'SHARED  '.
PROCEDURE DIVISION.
CALL ISPLINK USING
 VDEFINE ZTERMCID TCCSID CHAR LCCSID.
DISPLAY RETURN-CODE UPON SYSOUT.
CALL ISPLINK USING
 VGET ZTERMCID SHARED.
DISPLAY RETURN-CODE UPON SYSOUT.
DISPLAY TCCSID UPON SYSOUT
GOBACK.

but still rc=20.  I'm getting the feeling it's something more basic.  It's
running just as a batch COBOL program BTW.

Jim McAlpine


I'd go along with Kurt on this one. You need all your
allocations set up. And with Ray: you need to run this
under ISPF, so you probably don't want to just execute
the program but issue an ISPSTART command or some other
start up scenario.

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

  z/OS Application development made easier
* Our classes include
   + How things work
   + Programming examples with realistic applications
   + Starter / skeleton code
   + Complete working programs
   + Useful utilities and subroutines
   + Tips and techniques

--
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


SMTP Question

2007-05-18 Thread Robert Pelletier
 Would you know how the NODENAME is built: 
NODENAME.CSLF.ORG unable to deliver following mail to recipient(s):  
   [EMAIL PROTECTED]   


Have a Nice Day !
 
Bob Pelletier
Connecticut Student Loan Foundation
Rocky Hill, Ct.

--
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: FTP Error 426

2007-05-18 Thread George Kozakos
Hi John,
I'm not a TCP/IP person but from my searches...

On the return code 426:
The FTP server sends message that it's about
to open a data connection but we don't see an incoming SYN from port
20 and 2 seconds later, it sends 426 Connection closed. Transfer
aborted which causes the control connection to be closed.
This could be due to a firewall not allowing the data
connection to flow.

On the meaning of out-of-band:
It relates to the method
of signaling between the client and server. Normally subcommands
are processed one after the other and are received within the data
stream (or in band). In the case of an ABOR, you don't want the other
end to wait to get your command, so it is sent Out of Band. You really
want to interrupt the other end and have it respond to the ABOR
instead of finishing what it was doing.
Out of Band is a method of signalling that gets processed immediately.

Please don't ask me what any of that means.

 --
Regards,
George Kozakos
z/OS Level 2 Software Service

--
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: Date Time in JCL

2007-05-18 Thread Farley, Peter x23353
 -Original Message-
 From: Paul Gilmartin [mailto:[EMAIL PROTECTED]
 Sent: Friday, May 18, 2007 11:24 AM
 To: IBM-MAIN@BAMA.UA.EDU
 Subject: Re: Date  Time in JCL
 
 On Fri, 18 May 2007 10:42:32 -0400, Farley, Peter x23353 wrote:
 
 Let the customer decide what they want:
 
 SYSTMEGTime, Execute, GMT
 SYSTMELTime, Execute, Local
 
 But that's a more significant change.  I suspect symbolic substitution
 is performed at only one step in the job flow, prior to the availability
 of the execution time values.

But this is no different than DSN=TEMP (where TEMP is not set to any value
at the time the JCL is translated) generating a DSN in the standard
temporary format, e.g.

SYS07137.T154733.RA000.MYJOBNAM.MYDDNAME.H01

At least ISTM it is not different in principle.

 And, at what point in the flow must data set names be fixed for ENQs and
 JES3 scheduling?

Now that's a good question, and no doubt a possible argument for not
providing execution-time symbols.  Worth discussing at length in the
functional design meeting.

 I'd be pleased enough to have only the submission or conversion (whichever
 is more practical) values.  GMT, of course.

Agreed, either one would be sufficient to most users' needs.  Personally I
would be happy to have just submission-time symbols, but my needs are not
everyone's needs.

 And to reply to another poster's objection, these are NOT JOB-saved
 values. They are live when-used values maintained at the system level 
 only.  If you the user want the same value later in the JCL, then save it
 in a SET variable of your own.
 
 Complicateder and complicateder.  So would SETs involving conversion time
 symbols need to be elaborated at conversion time, SETs involving execution
 time symbols need to be elaborated at execution time, etc.

But of course they would.  That's the idea of providing different symbols
for different stages of a job.  Whether or not that idea is practical or not
is a different issue.  Again, worthy of serious discussion at the functional
design meeting.

 BTW, the JCL RM appears to prohibit using symbols in SET statements,
 though the statement is ambiguous and appears to be entirely unenforced.

By testing, I see that // SET var=value CAN be used inside of a PROC.
Inside of a PROC, the PROC symbols can be used pretty much anywhere, so why
not as the value in a SET assignment?  And if PROC variables can be used,
why not system symbols as well?  The following JCL translates and executes
just fine on z/OS v1.6 after you substitute your own job card:

//MYUSERID JOB (...)
//PROC1PROC FIRST=ONE   
//EXEC1EXEC PGM=IEFBR14 
//EXEC1DD1 DD  DUMMY
// SET NEXT=FIRST  
//EXEC2EXEC PGM=IEFBR14,PARM='NEXT'
//EXEC2DD1 DD  DUMMY
//* 
// PEND 
//* 
//PROC2PROC FIRST=ONE   
//EXEC1EXEC PGM=IEFBR14 
//EXEC1DD1 DD  DUMMY
// SET NEXT=FIRST  
//EXEC2EXEC PGM=IEFBR14,PARM='NEXT'
//EXEC2DD1 DD  DUMMY
//* 
//EXEC3EXEC PROC1,FIRST=TWO 
//* 
// PEND 
//* 
//EXECJCL  EXEC PROC2   
//* 

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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Mainframe Empty datasets

2007-05-18 Thread J R

LOCATE the dataset
OBTAIN the DSCB
Examine DS1LSTAR



From: CICS Guy [EMAIL PROTECTED]
Reply-To: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Mainframe Empty datasets
Date: Fri, 18 May 2007 11:36:37 -0500

I read it more that the dataset may have been allocated but never actually 
opened for output


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf 
Of Barkow, Eileen

Sent: Friday, May 18, 2007 12:06 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Mainframe Empty datasets

Would not ICETOOL be opening the dataset to do the count?
The requirement was that the dataset not be opened.
You would probably have to read the vtoc in order to determine if any
space is actually being used.

_
More photos, more messages, more storage—get 2GB with Windows Live Hotmail. 
http://imagine-windowslive.com/hotmail/?locale=en-usocid=TXT_TAGHM_migration_HM_mini_2G_0507


--
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


_
PC Magazine’s 2007 editors’ choice for best Web mail—award-winning Windows 
Live Hotmail. 
http://imagine-windowslive.com/hotmail/?locale=en-usocid=TXT_TAGHM_migration_HM_mini_pcmag_0507


--
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: Shared HFS

2007-05-18 Thread Víctor de la Fuente


Depends what you mean by Shared HFS.
If you want to use shared file system support as IBM describe it in the
USS Planning, it has sysplex scope.
End of story.



Ok, then. That was what I was looking for.

Thank you very much!

--
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: Mainframe Empty datasets

2007-05-18 Thread CICS Guy
I read it more that the dataset may have been allocated but never actually 
opened for output


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf 
Of Barkow, Eileen

Sent: Friday, May 18, 2007 12:06 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Mainframe Empty datasets

Would not ICETOOL be opening the dataset to do the count?
The requirement was that the dataset not be opened.
You would probably have to read the vtoc in order to determine if any
space is actually being used.

_
More photos, more messages, more storage—get 2GB with Windows Live Hotmail. 
http://imagine-windowslive.com/hotmail/?locale=en-usocid=TXT_TAGHM_migration_HM_mini_2G_0507


--
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: Mainframe Empty datasets

2007-05-18 Thread Howard Brazee
On 18 May 2007 09:06:53 -0700, [EMAIL PROTECTED] (Barkow, Eileen)
wrote:

Would not ICETOOL be opening the dataset to do the count?
The requirement was that the dataset not be opened.
You would probably have to read the vtoc in order to determine if any
space is actually being used. 

Good point.

--
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: calling ISPLINK from COBOL

2007-05-18 Thread Jim McAlpine

Yes, I think that's probably it.  I was sure I had done this before, but as
I said originally it was a long long time ago.  Anyhow it is now definitely
time to go home. I'll get back on it next week.

Thanks again for all the help.

Jim McAlpine

On 5/18/07, Steve Comstock [EMAIL PROTECTED] wrote:



I'd go along with Kurt on this one. You need all your
allocations set up. And with Ray: you need to run this
under ISPF, so you probably don't want to just execute
the program but issue an ISPSTART command or some other
start up scenario.

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

  z/OS Application development made easier
* Our classes include
   + How things work
   + Programming examples with realistic applications
   + Starter / skeleton code
   + Complete working programs
   + Useful utilities and subroutines
   + Tips and techniques

--
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


Re: Shared HFS

2007-05-18 Thread Víctor de la Fuente

Yeah, I know the matter are the names, but while this is my first HFS
sharing, and I had these problems, I thought of having an expert opinion.

2007/5/14, Mark Zelden [EMAIL PROTECTED]:


To be honest, I don't know  for sure (and didn't even try RTFM-ing).  I
was
going to say try and test it... but it looks like you already did
(although
all you said was the IPL failed when starting Unix with no specifics).

But why does it matter?  I have a shared HFS set up where I share the
sysres set (and HFS files) between sysplexes with shared HFS and
non-shared HFS and monoplexes.  The key is the HFS (zFS) names you
choose, not whether SYSPLEX() and VERSION() are specified in BPXPRMxx.

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group:  G-ITO
mailto:[EMAIL PROTECTED]
z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/
Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.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



--
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: calling ISPLINK from COBOL

2007-05-18 Thread Don Poitras
Steve Comstock wrote:
 
 Jim McAlpine wrote:
  I'm trying to convert the following pseudo code to run under COBOL -
 
 
  DCL TCCSID CHAR(5); /* TERMINAL CCSID */
 
  CALL ISPLINK('VDEFINE','ZTERMCID',TCCSID,'CHAR',
 
  LENGTH(TCCSID));
 
  CALL ISPLINK('VGET ','ZTERMCID','SHARED ');
  and I've come up with -
 
  WORKING-STORAGE SECTION.
  01  TCCSID   PIC X(5).
  01  LCCSID   PIC S9(8) VALUE 5.
  01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
  01  ZTERMCID PIC X(8)  VALUE 'ZTERMCID'.
  01  CHAR PIC X(4)  VALUE 'CHAR'.
  01  VGET PIC X(8)  VALUE 'VGET'.
  01  SHARED   PIC X(8)  VALUE 'SHARED  '.
  PROCEDURE DIVISION.
 CALL 'ISPLINK' USING
  VDEFINE ZTERMCID TCCSID CHAR LCCSID.
 DISPLAY RETURN-CODE UPON SYSOUT.
 CALL 'ISPLINK' USING
  VGET ZTERMCID SHARED.
 DISPLAY RETURN-CODE UPON SYSOUT.
 DISPLAY TCCSID UPON SYSOUT
 GOBACK.
 
 Items have to be in a specified order; for VDEFINE its:
 
VDEFINE - the verb; you're OK there
name-list - you have ZTERMCID, looks OK
variable - you have TCCSID, 5 byte area where value is to
be placed; looks OK
format - you have CHAR; OK
length - you have LCCSID; this must be a fullword
   binary integer; you have 8 bytes of
   display;
  Try chaning LCCSID to be defined as:
 
LCCSID  pic s9(8) binary value 5.

I find that using the ISPF 'MODEL' command is useful when writing ISPF
programs. Make sure you're editting a PDS with a name such as
MYNAME.TEST.COBOL and then issue 'MODEL WORKSTORE' and the 'a' line
command where you would like the working storage fields entered. Then go
down to the procedure division and to a 'MODEL VDEFINE' for a sample and
=NOTE= comments. Same for the other ISPF services. Do 'MODEL' by itself
to bring up a list of all the services.


 
 
  but I'm getting rc=20 - severe error from both calls to ISPLINK.  It's 20
  years since I've done any of this stuff and I've been looking at it all
  afternoon  without success.  Can someone put me out of my Friday afternoon
  misery please.  Is it time to go home yet.
 
 Hard to say: what time zone are you in?
 
 Kind regards,
 
 -Steve Comstock
 The Trainer's Friend, Inc.
 
 303-393-8716
 http://www.trainersfriend.com
-- 
Don Poitras - zSeries R  D  -  SAS Institute Inc. -  SAS Campus Drive 
mailto:[EMAIL PROTECTED]   (919)531-5637  Fax:677- Cary, NC 27513

--
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: Is there a way to Remove BOOK from PF6 in SDSF?

2007-05-18 Thread Pinnacle
- Original Message - 
From: Alan Scott [EMAIL PROTECTED]

Newsgroups: bit.listserv.ibm-main
Sent: Friday, May 18, 2007 11:22 AM
Subject: Re: Is there a way to Remove BOOK from PF6 in SDSF?



Once a user accesses SDSF the ISFPROF memeber of the SISFTLIB dataset is
copied into that users ISPPROF dataset. The only mechanism to effect 
change

to all of the users is delete the ISFPROF member from each users ISPPROF
dataset. This will cause a new copy of ISFPROF to be made from the 
SISFTLIB

dataset.

You can set the defaults when the system is first installed by setting 
your own

KEYS to what you feel they should default to and then copying your ISFPROF
member from your ISPPROF dataset into the SISFTLIB dataset.




NO NO NO NO NO!!

NEVER MANUALLY COPY MEMBERS INTO SMP/E LIBRARIES, USERMOD THEM!!

Regards,
Tom Conley 


--
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: Is there a way to Remove BOOK from PF6 in SDSF?

2007-05-18 Thread Pinnacle
- Original Message - 
From: Mark Zelden [EMAIL PROTECTED]

Newsgroups: bit.listserv.ibm-main
Sent: Friday, May 18, 2007 11:04 AM
Subject: Re: Is there a way to Remove BOOK from PF6 in SDSF?


On Fri, 18 May 2007 09:51:30 -0500, Patrick Lyon [EMAIL PROTECTED] 
wrote:




It's not global but I haven't read anyone refer to the KEYLIST command.



SDSF doesn't use keylists.

--
Mark Zelden


Mark, Mark, Mark, Mark, Mark,

Does too!  In SDSF, enter PFSHOW, then /+ to bring up the command prompt 
panel (them be keylists).


Regards,
Tom Conley 


--
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: calling ISPLINK from COBOL

2007-05-18 Thread Steve Comstock

Don Poitras wrote:

Steve Comstock wrote:


Jim McAlpine wrote:


I'm trying to convert the following pseudo code to run under COBOL -


DCL TCCSID CHAR(5); /* TERMINAL CCSID */

CALL ISPLINK('VDEFINE','ZTERMCID',TCCSID,'CHAR',

LENGTH(TCCSID));

CALL ISPLINK('VGET ','ZTERMCID','SHARED ');
and I've come up with -

WORKING-STORAGE SECTION.
01  TCCSID   PIC X(5).
01  LCCSID   PIC S9(8) VALUE 5.
01  VDEFINE  PIC X(8)  VALUE 'VDEFINE '.
01  ZTERMCID PIC X(8)  VALUE 'ZTERMCID'.
01  CHAR PIC X(4)  VALUE 'CHAR'.
01  VGET PIC X(8)  VALUE 'VGET'.
01  SHARED   PIC X(8)  VALUE 'SHARED  '.
PROCEDURE DIVISION.
  CALL 'ISPLINK' USING
   VDEFINE ZTERMCID TCCSID CHAR LCCSID.
  DISPLAY RETURN-CODE UPON SYSOUT.
  CALL 'ISPLINK' USING
   VGET ZTERMCID SHARED.
  DISPLAY RETURN-CODE UPON SYSOUT.
  DISPLAY TCCSID UPON SYSOUT
  GOBACK.


Items have to be in a specified order; for VDEFINE its:

  VDEFINE - the verb; you're OK there
  name-list - you have ZTERMCID, looks OK
  variable - you have TCCSID, 5 byte area where value is to
  be placed; looks OK
  format - you have CHAR; OK
  length - you have LCCSID; this must be a fullword
 binary integer; you have 8 bytes of
 display;
Try chaning LCCSID to be defined as:

  LCCSID  pic s9(8) binary value 5.



I find that using the ISPF 'MODEL' command is useful when writing ISPF
programs. Make sure you're editting a PDS with a name such as
MYNAME.TEST.COBOL and then issue 'MODEL WORKSTORE' and the 'a' line
command where you would like the working storage fields entered. Then go
down to the procedure division and to a 'MODEL VDEFINE' for a sample and
=NOTE= comments. Same for the other ISPF services. Do 'MODEL' by itself
to bring up a list of all the services.


Excellent suggestion, Don. I second that approach.


Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

  z/OS Application development made easier
* Our classes include
   + How things work
   + Programming examples with realistic applications
   + Starter / skeleton code
   + Complete working programs
   + Useful utilities and subroutines
   + Tips and techniques

--
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: Is there a way to Remove BOOK from PF6 in SDSF?

2007-05-18 Thread Veilleux, Jon L
snip
NO NO NO NO NO!!

NEVER MANUALLY COPY MEMBERS INTO SMP/E LIBRARIES, USERMOD THEM!!

Regards,
Tom Conley 
/snip

I agree whole heartedly!!!  It is a VERY BAD idea to copy
into SMP/E files. 


Jon L. Veilleux
[EMAIL PROTECTED]
(860) 636-2683 


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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Mainframe Empty datasets

2007-05-18 Thread Mark H. Young
On Fri, 18 May 2007 09:37:00 -0600, Howard Brazee [EMAIL PROTECTED] 
wrote:

On 18 May 2007 06:25:41 -0700, [EMAIL PROTECTED]
wrote:

How can I code an assembler program to look at a dataset and determine
if it is an empty dataset? The dataset maybe allocated but not open or
closed.

Why not just do:

//STEP#01   EXEC  PGM=ICETOOL

Howard, where did you find this topic to originate?
Back in April or March perhaps?
I can't seem to backtrack via Previous in Topic up above.
It is in black (not blue) and not selectable.

Can anyone help me out with navigation please?!

THANX,
...mhyI

--
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: Date Time in JCL

2007-05-18 Thread Paul Peplinski
snip
The issue is more than just current date (and current time is worse).
It all comes down to submission time, conversion time, execution time, or 
system for all variable substitution under Batch JCL.
unsnip

OK, give me all these symbols (CTIME, CDATE, ETIME, EDATE, etc) and I'm 
likely to find one that works for me 100% of the time given my pretty basic 
requirement.

That may not work for more complex situations but I suspect that's the 
exception rather than the rule.

Paul P 

--
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: calling ISPLINK from COBOL

2007-05-18 Thread Dave Kopischke
On Fri, 18 May 2007 10:27:43 -0500, David Day wrote:

I don't know if you can do this, but if you can get a dump of the code at
the time it is making the call to ISPLINK, you can check the parm list.  R1
will point to a parmlist of full word pointers, with the last one set with
the high order bit on to denote end of list.  Each parm in the list has to
be in the sequence specified in the ISPF manual for the type of function
desired.  1st parm would point to an 8 character field with VDEFINE, 2nd
parm the name field, etc., etc.  Check the manual for the correct parm list
for the type of call.  Adjust your code accordingly.  As far as I know,
rc=20 says ISPF cannot recognize what it is you are asking...the parm list
is un-recognizable.  Hope this helps.


I know of a program that does this kind of thing and it's calling ISPLINK with 
6 
parameters. The last one being some kind of option list. The rest seem to 
follow what you've already got.

--
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: Old RAMAC 2 still viable?

2007-05-18 Thread R.S.

Bruce Black wrote:


It's a 9394-002 with 9395-B23. I searched IBM and this list and 
couldn't find any info on lack of support.
There are several references to 9394 in the z/OS 1.8 library so I assume 
it is supported.


Bad assumption. There are plenty references to CVOL in current 
documentation, but AFAIK it is not supported for some time...



A lot of unsupported terms and names can be found in IBM documentation. 
It's not bad at all, with a big *exception*: the obsolete things are 
referenced, but not defined or explained what it is.
In my case, I have never seen CVOL or CYLOFL, but tried to solve some 
problem, where description contained the above words.
So, I can read in error description - as one of the reasons - that my 
CVOL needs some action and I don't know what is CVOL. Possible reasons:
- I should learn about my CVOL or call some support to fix it. I'm not 
sure how important it is, because I have no idea what it is.

- I should give up, the problem belongs to black magic category.
- I should ignore any statement about CVOL, because it is a zombie: 
resides in the book, but not in real world. Again kind of black magic. 
Potentially dangerous, because maybe CVOLs do exist in real world...


--
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.2007 r. kapita zakadowy BRE Banku SA (w caoci 
opacony) wynosi 118.064.140 z. W zwizku z realizacj warunkowego 
podwyszenia kapitau zakadowego, na podstawie uchwa XVI WZ z dnia 21.05.2003 
r., kapita zakadowy BRE Banku SA moe ulec podwyszeniu do kwoty 118.760.528 
z. Akcje w podwyszonym kapitale zakadowym bd w caoci opacone.

--
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: Is there a way to Remove BOOK from PF6 in SDSF?

2007-05-18 Thread Howard Brazee
On 18 May 2007 08:04:26 -0700, [EMAIL PROTECTED] (Mark Zelden)
wrote:

It's not global but I haven't read anyone refer to the KEYLIST command.


SDSF doesn't use keylists.

What is the name for whatever it is in SDSF that acts just like SPF
keylists?

--
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: Mainframe Empty datasets

2007-05-18 Thread Howard Brazee
On 18 May 2007 10:50:04 -0700, [EMAIL PROTECTED] (Mark H. Young)
wrote:

Howard, where did you find this topic to originate?
Back in April or March perhaps?
I can't seem to backtrack via Previous in Topic up above.
It is in black (not blue) and not selectable.

Can anyone help me out with navigation please?!

I suspect the statement I replied to might be in the newsgroup only,
not in the listserv.   I have my subscription set up to not e-mail me
messages, but I read the newsgroup.   I have Agent set up to change my
replies to go to the listserve.

--
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: Mainframe Empty datasets

2007-05-18 Thread Bill Godfrey
On Fri, 18 May 2007 12:49:57 -0500, Mark H. Young 
[EMAIL PROTECTED] wrote:

On Fri, 18 May 2007 09:37:00 -0600, Howard Brazee [EMAIL PROTECTED]
wrote:

On 18 May 2007 06:25:41 -0700, [EMAIL PROTECTED]
wrote:

How can I code an assembler program to look at a dataset and determine
if it is an empty dataset? The dataset maybe allocated but not open or
closed.

Why not just do:

//STEP#01   EXEC  PGM=ICETOOL

Howard, where did you find this topic to originate?
Back in April or March perhaps?
I can't seem to backtrack via Previous in Topic up above.
It is in black (not blue) and not selectable.

Can anyone help me out with navigation please?!

THANX,
...mhyI


When you are using the archive Listserv web interface, the meanings 
of Previous in Topic and Next in Topic change depending of whether you 
are sorting the messages Chronologically or Most Recent First. I suspect you 
were using the latter when you saw Previous in Topic blacked out. I don't 
think the meanings should change, but they do.

It's easy to demonstrate. Just view any message that has only one 
of  Previous in Topic and Next in Topic available, and switch your sort, 
and 
the availability of Previous and Next will swap.

Bill

--
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: Date Time in JCL

2007-05-18 Thread J R

Peter Farley said:
SYSTMEG	Time, Execute, GMT  SYSTMEL	Time, Execute, Local    GMT's 
could be suffixed U for Universal or Z for Zulu instead of

G, I don't really care as long as the functionality is the same.


Despite being an aviator, I like G more than Z in this context
because it connotes G-global versus L-local.




From: Farley, Peter x23353 [EMAIL PROTECTED]
Reply-To: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Date  Time in JCL
Date: Fri, 18 May 2007 10:42:32 -0400

 -Original Message-
 From: Vernooy, C.P. - SPLXM [mailto:[EMAIL PROTECTED]
 Sent: Friday, May 18, 2007 3:51 AM
 To: IBM-MAIN@BAMA.UA.EDU
 Subject: Re: Date  Time in JCL

 Robert Bardos [EMAIL PROTECTED] wrote in message
 news:[EMAIL PROTECTED]...
 Snipped
  Naive idea: why not provide system symbols for all of these
  (submission time, conversion time, execution time)?  SYSSTIME,
  SYSCTIME, SYSETIME?
 
  Robert
 

 Of which system? Jobs can travel through serveral systems in an NJE
 network, submitted on system1, converted on system2 executed on system3,
 each with their own timesettings. Dataset1 gets timestamp 10:00, the
 *next* dataset2 can get timestamp 09:10 if created 10 minutes after
 dataset1. Quite confusing.

OK, I haven't ever contributed to this long-running debate, so here's my
USD$0.02 worth:

Let the customer decide what they want:

SYSTMSG Time, Submit, GMT
SYSTMSL Time, Submit, Local

SYSTMCG Time, Convert, GMT
SYSTMCL Time, Convert, Local

SYSTMEG Time, Execute, GMT
SYSTMEL Time, Execute, Local

And the same kind of set for Date of course (SYSDTSG etc.).

GMT's could be suffixed U for Universal or Z for Zulu instead of
G, I don't really care as long as the functionality is the same.

And to reply to another poster's objection, these are NOT JOB-saved values.
They are live when-used values maintained at the system level only.  If
you the user want the same value later in the JCL, then save it in a SET
variable of your own.  So, you would NOT use the following example in your
JCL to create a dataset to be used later in the same job:

//DDNAME DD DISP=(,CATLG),DSN=MYUSERID.MYDATA.DSYSEDTG..TSYSETMG,...

Instead, you would code it like this:

// SET MYDATE=SYSEDTG,MYTIME=SYSETMG
//DDNAME DD DISP=(,CATLG),DSN=MYUSERID.MYDATA.DMYDATE..TMYTIME,...

And then later in the job you could code:

//DDNAME DD DISP=SHR,DSN=MYUSERID.MYDATA.DMYDATE..TMYTIME

with no ambiguity at all.

As for RESTARTed jobs, well I don't know the rule for whether SET 
statements

are re-executed on a restart or not.  If the SET's are bypassed, RESTART is
probably not possible.  In which case, it's like the old vaudeville 
routine,

Patient: Doctor, Doctor it hurts when I do that!  Doctor: Don't do that!.

I also just realized why people think there would be a JOB-related storage
need, to carry along Submit and Convert dates/times.  But wait -- why
wouldn't Convert and Submit simply replace the text of the symbol name with
the text value at that point in time?  Then subsequent steps (Convert and
Execute after Submit, Execute after Convert) would see only constant text,
not a variable.  Only Execute symbols would be always live and always
changing.

And if you need RESTARTability, don't use Execute-time symbols.

Is that enough specification to make it viable?

Peter



_
Catch suspicious messages before you open them—with Windows Live Hotmail. 
http://imagine-windowslive.com/hotmail/?locale=en-usocid=TXT_TAGHM_migration_HM_mini_protection_0507


--
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: Old RAMAC 2 still viable?

2007-05-18 Thread Rex Pommier
Tom,

According to the redbook DFSMS 1.5 Presentation Guide, page 81

2.10.1 VSAM catalogs and OS CVOLs
Effective January 1, 2000, VSAM catalogs and OS CVOLs will NOT work on any
currently supported release of DFSMS or MVS/DFP.

I know we can't believe everything in print but I vaguely recall that
support for both CVOLs and VSAM catalogs dropped at the same time, even
though CVOLS are much older.

Rex

--
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


Why is there JOB scope for DSN ENQ's anyway?

2007-05-18 Thread Farley, Peter x23353
Picking up on something Paul G. said in another thread, I realized I have
never known *why* the system issues JOB scope ENQ's on DSN's.

I do realize that it is most probably to avoid an ENQ deadly embrace
somewhere along the line, but for the life of me (well, and maybe because
it's Friday) I can't think why a DSN ENQ would be JOB scope instead of STEP
scope.  At least not by default, anyway.

I suppose if you create a dataset in step A and then use it DISP=SHR in step
B (or F or Z, way down the line), if it were not JOB scope ENQueued some
other job could come in-between your create and use steps and delete it on
you, or update it in some clever but unscrupulous way, but I really can't
think of a scenario that means JOB scope ENQ's are required.

TIA for curing my ignorance on this subject.

Peter
--
As of 04/01/2007 I have a new email address, so please update your address
book: Peter (dot) Farley (at) broadridge (dot) com

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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Is there a way to Remove BOOK from PF6 in SDSF?

2007-05-18 Thread Pinnacle
- Original Message - 
From: Mark Zelden [EMAIL PROTECTED]

Newsgroups: bit.listserv.ibm-main
Sent: Friday, May 18, 2007 2:38 PM
Subject: Re: Is there a way to Remove BOOK from PF6 in SDSF?


On Fri, 18 May 2007 13:11:47 -0400, Pinnacle [EMAIL PROTECTED] 
wrote:



- Original Message -
From: Mark Zelden [EMAIL PROTECTED]
Newsgroups: bit.listserv.ibm-main
Sent: Friday, May 18, 2007 11:04 AM
Subject: Re: Is there a way to Remove BOOK from PF6 in SDSF?


On Fri, 18 May 2007 09:51:30 -0500, Patrick Lyon 
[EMAIL PROTECTED]

wrote:



It's not global but I haven't read anyone refer to the KEYLIST 
command.


SDSF doesn't use keylists.
--
Mark Zelden


Mark, Mark, Mark, Mark, Mark,

Does too!  In SDSF, enter PFSHOW, then /+ to bring up the command prompt
panel (them be keylists).

Regards,
Tom Conley



Wow, 5 Marks!

You are correct sir.  It does use them after invoking certain functions, 
but

not from most or all of the (how do I word this) legacy selection panels
or after you select a column with SDSF browse. IOW, most of the panels
that work under native TSO don't use keylists under ISPF.



Not often I get to do a victory dance on your grave, so I had to take the 
shot ;-)  I discovered this bug in SDSF trying to do Dynamic ISPF for it. 
Looks like they finally fixed the commands panel to set ZKLUSE so that the 
keylists would work.  Before I had to set ZKLUSE for the whole dialog just 
to get the command panel to work.


Tom

--
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


Synchronize Time Between Mainframe and Servers?

2007-05-18 Thread Miller, Pat
Developers are asking me if we can do this to prevent anomalies between 
timestamps across platforms.  In case it's an issue, no, I don't have a sysplex 
or timer.

--
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: Synchronize Time Between Mainframe and Servers?

2007-05-18 Thread Field, Alan C.
Pat,

You don't need a Sysplex timer to do this. 

The sysplex timer ensures the mainframe(s)have a consistent time. With
or without a timer you can run an SNTP task on the mainframe (its part
of TCP/IP since about z/OS 1.6), otherwise look for Keith Clapp's
excellent SNTP product. 

Have your enterprise query the SNTP on the mainframe and set their
clocks off that for a consistent timestamp across your organization.


  

Developers are asking me if we can do this to prevent anomalies between
timestamps across platforms.  In case it's an issue, no, I don't have a
sysplex or timer.

--
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: Why is there JOB scope for DSN ENQ's anyway?

2007-05-18 Thread Paul Gilmartin
On Fri, 18 May 2007 16:30:43 -0400, Farley, Peter x23353 [EMAIL PROTECTED] 
wrote:

I do realize that it is most probably to avoid an ENQ deadly embrace
somewhere along the line, but for the life of me (well, and maybe because
it's Friday) I can't think why a DSN ENQ would be JOB scope instead of STEP
scope.  At least not by default, anyway.
 
If all ENQs now performed with job scope were performed with job step
scope, the deadly embrace would equally well be avoided.

I suppose if you create a dataset in step A and then use it DISP=SHR in step
B (or F or Z, way down the line), if it were not JOB scope ENQueued some
other job could come in-between your create and use steps and delete it on
you, or update it in some clever but unscrupulous way, but I really can't
think of a scenario that means JOB scope ENQ's are required.

Additionally, there's initiator hogging, where one job holds a
resource and other jobs are waiting for it, each monopolizing an
an initiator.  While job scope ENQs are no less susceptible to
initiator hogging than job step scope (perhaps even more), it may
become necessary for an operator to cancel, reset, and restart
jobs in order to resume the work flow.  This is more safely done
if the wait occurs before Step 1 than between steps 41 and 42.

-- gil

--
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: Synchronize Time Between Mainframe and Servers?

2007-05-18 Thread Paul Gilmartin
On Fri, 18 May 2007 16:06:12 -0500, Field, Alan C. wrote:

You don't need a Sysplex timer to do this.

The sysplex timer ensures the mainframe(s)have a consistent time. With
or without a timer you can run an SNTP task on the mainframe (its part
of TCP/IP since about z/OS 1.6), otherwise look for Keith Clapp's
excellent SNTP product.

Without a time reference, the mainframe TOD clock will have a
secular drift.  Will SNTP adjust the TOD clock to the possibly
more accurate time elsewhere in the enterprise, or merely
adjust the remainder of the enterprise to the incorrect time
of the mainframe?

Have your enterprise query the SNTP on the mainframe and set their
clocks off that for a consistent timestamp across your organization.

This may be politically infeasible.  It's pretty hard to rebut the
argument, Why shouldn't the mainframe adjust itself to the correct
time elsewhere in of the enterprise rather than demanding that the
remainder of the enterprise adjust to the mainframe's incorrect
time?  with a blunt It can't.

Will STP provide a solution?

Developers are asking me if we can do this to prevent anomalies between
timestamps across platforms.  In case it's an issue, no, I don't have a
sysplex or timer.

-- gil

--
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: CICS Socket failure

2007-05-18 Thread Schiradin,Roland HG-Dir itb-db/dc
Hello, 

any msg in the TDQueue TCPDATA (default)

EZY1258I 05/15/07 15:43:31 EZACIC02 ENTRY POINT IS 103F9128   
EZY1258I 05/15/07 15:43:31 EZACIC01 ENTRY POINT IS 103F3C28   
EZY1291I 05/15/07 15:43:31 LISTENER TRANSACTION= CSKL TASKID= 034L

We have z/OS R7 and no problem with EZACIC20 via PLTPI

Roland


-Original Message-
From: IBM Mainframe Discussion List 
[mailto:[EMAIL PROTECTED] On Behalf Of Laine, Rogers
Sent: Friday, May 18, 2007 8:29 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: FW: CICS Socket failure


Guys,
 
After going to a SYSPLEX under z/os 1.7 I started to see socket 
failures with a abend of AEY9 for a few of our regions. The 
sockets are started with PLTPI using program EZACICS20. No 
changes were made to the PLT when the SYSPLEX was introduced. 
Once I see the failure I can use the EZAO transaction to start 
the listener, so that tells me the EZACONFG file is okay. We 
start quite a few CICS regions at one time, could this be 
causing TCPIP delays when the socket is requested from CICS at 
PLTPI time? I really could use some new ideas from you to help 
me solve this problem.
 

--
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


  1   2   >