Re: CF structure management - Understanding

2008-07-09 Thread Vernooy, C.P. - SPLXM


"Cwi Jeret" <[EMAIL PROTECTED]> wrote in message
news:<[EMAIL PROTECTED]>...
> Hello Forum,
> 
> Yesteday, due to a failing receiver from MQ we got an overflow
> of the MQ Structure holding the Queue of CAQMCSQMSTR1.
> 
> We saw in RMF3 the following for Structure CAQMCSQMSTR1 :
> 
>

---
> 
>  RMF V1R7   CF Activity  - SYSPLEX1   Line
1 of 54 
> Command ===>  Scroll
===> CSR  
>

> Samples: 100 Systems: 4Date: 07/09/08  Time: 07.30.00  Range:
100   
> Sec
>

> CF: ALL  Type  ST System   CF   --- Sync ---   - Async

>Util   Rate   AvgRate   Avg
Chng   Del
> Structure Name  %Serv  Serv
%  % 
>

> CSQMCSQ_ADMINLIST  AP *ALL  4.00.8250  161.6340
0.0   0.0
>  LIST  AS *ALL  3.70.8199  144.5292
0.0   0.0
> CSQMCSQMSTR1 LIST  AP *ALL 93.4   11.1344   2538443
0.0   
> 0.0  <=  !!!
>  LIST  AS *ALL 88.5   10.9289   2504383
0.0   0.0  
> <=  !!!
> DFHCFLS_SYSTCFD1 LIST  AP *ALL  0.00.0  00.0  0
0.0   0.0
>  LIST  AS *ALL  0.00.0  00.0  0
0.0   0.0
> DFHCFLS_TESTCFD1 LIST  AP *ALL  0.00.0  00.0  0
0.0   0.0
>  LIST  AS *ALL  0.00.0  00.0  0
0.0   0.0
> DFHNCLS_PRODNC1  LIST  AP *ALL  0.00.0  00.0  0
0.0   0.0
> 
>

--
> 
> As the setup of this structure is as follows :
> 
>

--
> 
>  D XCF,STR,STRNM=CSQMCSQMSTR1   
>  IXC360I  10.17.45  DISPLAY XCF 868 
>  STRNAME: CSQMCSQMSTR1  
>   STATUS: REASON SPECIFIED WITH REBUILD START:  
> POLICY-INITIATED
>   DUPLEXING REBUILD 
> METHOD: SYSTEM-MANAGED  
>   AUTO VERSION: C290641A A8810B03   
>   REBUILD PHASE: DUPLEX ESTABLISHED 
>   TYPE: SERIALIZED LIST 
>   POLICY INFORMATION:   
>POLICY SIZE: 524288 K
>POLICY INITSIZE: 272144 K
>POLICY MINSIZE : 0 K 
>FULLTHRESHOLD  : 85<<<   !!! 
>ALLOWAUTOALT   : NO  
>REBUILD PERCENT: N/A 
>DUPLEX : ENABLED 
>ALLOWREALLOCATE: YES 
>PREFERENCE LIST: CF1  CF3
>ENFORCEORDER   : NO  
>EXCLUSION LIST IS EMPTY  
> 
>   DUPLEXING REBUILD NEW STRUCTURE   
> 
> 
> I cannot understand why we don't get any  IXC585E  message,
> which should have been issued in order to warn us that we have
> passed the 85% of Fullthreshold.  (93.4% and 88.5% - See RMF3 report)
> 
> Any Idea ? ...
> 
> Cwi Jeret
> 

One reason could be that Structure Full Monitoring is running at regular
times (I believe minutes). So the structure could have gone from below
85% to 100% within one monitoring period.

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: IBM using more below the line storage.

2008-07-09 Thread Vernooy, C.P. - SPLXM


"Ted MacNEIL" <[EMAIL PROTECTED]> wrote in message
news:<715260175-1215667394-cardhu_decombobulator_blackberry.rim.net-5043
[EMAIL PROTECTED]>...
> Roland, I hate to say this, maybe I'm not clear, but what are you
saying?
> 
> 
> 
> >our private size on z/OS R9 below is
> (MXI VMAP command, IPLINFO from Mark Zelden provide the same info)
> 
> 

I think he tries to put your attention to the Private line:
Private   6000  009F10216K
<

So, 10 MB.

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: CF structure management - Understanding

2008-07-09 Thread Barbara Nitz
Cwi,

what makes you think that the structure was filled 85% The number you point 
to (the report is completely unreadable to me, even after reformatting to a 
fixed-font) is the number right after *ALL in the CF activity report, right? 
That would be %CF Util. Take a look at the RMF help panel. This %CF UTIL shows 
you CF CPU utilization, NOT structure utilization. 

The only way to see the *actual* usage of the structure (which changes from 
moment to moment) that readily comes to my mind is the D 
XCF,STR,STRNM=structure_name command. This has these lines:

ENTRIES:  IN-USE:  1 TOTAL:320,   0% FULL 
ELEMENTS: IN-USE: 16 TOTAL:305,   5% FULL 

All of the above for z/OS 1.8 and a cf with CFCC level15.

So to answer your question: You did not get ixc585e because the structure 
wasn't filled up to 85%.

Regards, Barbara Nitz
-- 
GMX startet ShortView.de. Hier findest Du Leute mit Deinen Interessen!
Jetzt dabei sein: http://www.shortview.de/[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: User/Ref Manual for CSS

2008-07-09 Thread Shaja Radhangan
Thanks Greg!

I am planning to list down the summary of all the abends captured in Abend-
aid during a particular time period. Using the first JCL you have provided , I 
tried to list down the abends with PRINT PROGRAM=*. However this is listing 
the detailed report for each abend. Do you know the ABNLPARM to list down 
only the summary details..?

Thanks,
Shaja

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



CF structure management - Understanding

2008-07-09 Thread Cwi Jeret
Hello Forum,

Yesteday, due to a failing receiver from MQ we got an overflow
of the MQ Structure holding the Queue of CAQMCSQMSTR1.

We saw in RMF3 the following for Structure CAQMCSQMSTR1 :

---

 RMF V1R7   CF Activity  - SYSPLEX1   Line 1 of 54 
Command ===>  Scroll ===> CSR  
   
Samples: 100 Systems: 4Date: 07/09/08  Time: 07.30.00  Range: 100   
Sec
   
CF: ALL  Type  ST System   CF   --- Sync ---   - Async 
   Util   Rate   AvgRate   Avg   Chng   Del
Structure Name  %Serv  Serv   %  % 
   
CSQMCSQ_ADMINLIST  AP *ALL  4.00.8250  161.6340   0.0   0.0
 LIST  AS *ALL  3.70.8199  144.5292   0.0   0.0
CSQMCSQMSTR1 LIST  AP *ALL 93.4   11.1344   2538443   0.0   
0.0  <=  !!!
 LIST  AS *ALL 88.5   10.9289   2504383   0.0   0.0 
 
<=  !!!
DFHCFLS_SYSTCFD1 LIST  AP *ALL  0.00.0  00.0  0   0.0   0.0
 LIST  AS *ALL  0.00.0  00.0  0   0.0   0.0
DFHCFLS_TESTCFD1 LIST  AP *ALL  0.00.0  00.0  0   0.0   0.0
 LIST  AS *ALL  0.00.0  00.0  0   0.0   0.0
DFHNCLS_PRODNC1  LIST  AP *ALL  0.00.0  00.0  0   0.0   0.0

--

As the setup of this structure is as follows :

--

 D XCF,STR,STRNM=CSQMCSQMSTR1   
 IXC360I  10.17.45  DISPLAY XCF 868 
 STRNAME: CSQMCSQMSTR1  
  STATUS: REASON SPECIFIED WITH REBUILD START:  
POLICY-INITIATED
  DUPLEXING REBUILD 
METHOD: SYSTEM-MANAGED  
  AUTO VERSION: C290641A A8810B03   
  REBUILD PHASE: DUPLEX ESTABLISHED 
  TYPE: SERIALIZED LIST 
  POLICY INFORMATION:   
   POLICY SIZE: 524288 K
   POLICY INITSIZE: 272144 K
   POLICY MINSIZE : 0 K 
   FULLTHRESHOLD  : 85<<<   !!! 
   ALLOWAUTOALT   : NO  
   REBUILD PERCENT: N/A 
   DUPLEX : ENABLED 
   ALLOWREALLOCATE: YES 
   PREFERENCE LIST: CF1  CF3
   ENFORCEORDER   : NO  
   EXCLUSION LIST IS EMPTY  

  DUPLEXING REBUILD NEW STRUCTURE   


I cannot understand why we don't get any  IXC585E  message,
which should have been issued in order to warn us that we have
passed the 85% of Fullthreshold.  (93.4% and 88.5% - See RMF3 report)

Any Idea ? ...

Cwi Jeret

Bank Poalim  T.A.

--
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: IBM using more below the line storage.

2008-07-09 Thread Ted MacNEIL
Roland, I hate to say this, maybe I'm not clear, but what are you saying?



>our private size on z/OS R9 below is
(MXI VMAP command, IPLINFO from Mark Zelden provide the same info)


-
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



Can STGINDEX have secondary allocations?

2008-07-09 Thread Jan Vanbrabant
Hi listers ,

Can SYS1.STGINDEX (VIO journaling) have secondary allocations?

Jan


--
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: IBM using more below the line storage.

2008-07-09 Thread Roland Schiradin
John, 

our private size on z/OS R9 below is
(MXI VMAP command, IPLINFO from Mark Zelden provide the same info)

Area  Start EndSize(K)
Extended Private  2DF0  7FFF  1344512K
Extended CSA  0C4F6000  2DEF   550952K
Extended MLPA 0C1F8000  0C4F5FFF 3064K
Extended FLPA   0K
Extended PLPA 07576000  0C1F7FFF78344K
Extended SQA  019BF000  07575FFF93916K
Extended R/W Nuc  01946000  019BEFFF  484K
Extended R/O Nuc  0100  0194568F 9493K
R/O Nuc   00FE4000  00FF  112K
R/W Nuc   00FD7000  00FE36B7   49K
SQA   00E3D000  00FD6FFF 1640K
PLPA  00C5E000  00E3CFFF 1916K
FLPA    0K
MLPA  00C3F000  00C5DFFF  124K
CSA   00A0  00C3EFFF 2300K
Private   6000  009F10216K<
V=R   6000  00025FFF  128K
System2000  5FFF   16K
PSA     1FFF8K

Unfortunally no more z/OS R7

Roland


>IBM appears to be expanding use of storage below the 16M line,
>rather than converting their own code to 31-bit addressability. Here is
>the reply I received when I ETR asked CICS why I could no longer get a
>certain DSALIM value in TS22 after going to zos 1.08.
>"There is Common Storage shared by all address spaces, and not
>considered
>part of the private storage available for address space (task) use.
>In OS/390 2.10 the amount of Common Storage needed by the system was
>smaller than is required by z/os 1.8, which has much more function.
>When Common Storage increases, the amount of private storage decreases.
>My guess, based on my years of experience is that in your 2.10 system
>the amount of private storage available was 10M or possibly 11M. It
>must be on a meg boundry. In z/os 1.8 the amount of storage available
>for CICS , or any other address space has shrunk to 9M based on the
>increase in Common Storage."
>It appears to me that IBM is assuming that the below the line
>storage is now free and available for their use, and rather than going to
>31-bit addressing themselves, they are expanding use of 24-bit.
>Interesting.  Looks like a bit of "do as I say, not as I do."

--
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: IBM using more below the line storage

2008-07-09 Thread Ted MacNEIL
>The original poster said "In OS/390 2.10 the amount of Common Storage needed 
>by the system was 
smaller than is required by z/os 1.8", to me implying that there was a 
migration over 8 MVS releases!!!  


I really don't understand your response!
Yes, so there was a migration -- so what?

The below should not have increased.
So, this part I do NOT understand.
IBM should not be eating any more below the line.

>In addition, a 10M private region is HUGE!

Is it?
-
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: IBM using more below the line storage

2008-07-09 Thread Barbara Nitz
??

The original poster said "In OS/390 2.10 the amount of Common Storage needed by 
the system was 
smaller than is required by z/os 1.8", to me implying that there was a 
migration over 8 MVS releases!!!  In addition, a 10M private region is HUGE!

If my assumption on migrating from 2.10 to 1.8 is true, health checker won't do 
a thing for you, as that only works from 1.4 upwards (*if* you had it installed 
there, and the mentioned VSM check came with 1.6, I think).

In this case, I am 100% with Sam: IBM really is attempting to do VSCR. And has 
been for a long time, keeping in mind that the 30-year-old application that had 
never yet heard of 24bit are not allowed to break!

>It sounds like time for a requirement that all 24 bit modules be
>converted to 31 bit for instructions and maybe start the conversion to
>64 bit.

Another guess of mine: This will never get accepted by IBM as a requirement, 
for obvious downward compatibility reasons.

Regards, Barbara Nitz
-- 
Pt! Schon das coole Video vom GMX MultiMessenger gesehen?
Der Eine für Alle: http://www.gmx.net/de/go/messenger03

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



Steven Liston/IS/SLC/StandardLifeGroup is out of the office.

2008-07-09 Thread Steven Liston
I will be out of the office starting  10/07/2008 and will not return until
11/07/2008.

Please contact the TST MF mailbox for any urgent  requests.

--
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: IBM using more below the line storage.

2008-07-09 Thread Clark Morris
On 9 Jul 2008 14:49:57 -0700, in bit.listserv.ibm-main you wrote:

>IBM appears to be expanding use of storage below the 16M line, 
>rather than converting their own code to 31-bit addressability. Here is 
>the reply I received when I ETR asked CICS why I could no longer get a 
>certain DSALIM value in TS22 after going to zos 1.08. 
>"There is Common Storage shared by all address spaces, and not 
>considered
>part of the private storage available for address space (task) use. 
>In OS/390 2.10 the amount of Common Storage needed by the system was 
>smaller than is required by z/os 1.8, which has much more function. 
>When Common Storage increases, the amount of private storage decreases. 
>My guess, based on my years of experience is that in your 2.10 system 
>the amount of private storage available was 10M or possibly 11M. It 
>must be on a meg boundry. In z/os 1.8 the amount of storage available 
>for CICS , or any other address space has shrunk to 9M based on the 
>increase in Common Storage." 
>It appears to me that IBM is assuming that the below the line 
>storage is now free and available for their use, and rather than going to 
>31-bit addressing themselves, they are expanding use of 24-bit. 
>Interesting.  Looks like a bit of "do as I say, not as I do." 


It sounds like time for a requirement that all 24 bit modules be
converted to 31 bit for instructions and maybe start the conversion to
64 bit.

--
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: SFTP GET COMMAND QUESTION

2008-07-09 Thread Bill Godfrey
If the Linux FTP server is vsftpd, it may be running without 
the "ascii_download_enable=YES" configuration option. If that is true, the 
server will use binary transfer mode even when the client requests ASCII, and 
you will see a message like "150 Opening BINARY mode data connection" after 
your GET. Some ftp clients will handle it, and print warning messages like 
"bare 
linefeeds received in ASCII mode", and "File may not have transferred 
correctly" but I'm not sure how the z/OS client would react.

Bill

On Wed, 9 Jul 2008 17:11:22 -0500, Yukus, Mary J wrote:

>No, it was binary from UNIX to LINUX by default during the SFTP process, but
>then it is using FTP to get it from LINUX to z/OS which the default is ASCII.
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On 
Behalf
>Of Richard Peurifoy
>Sent: Wednesday, July 09, 2008 4:05 PM
>To: IBM-MAIN@BAMA.UA.EDU
>Subject: Re: SFTP GET COMMAND QUESTION
>
>Yukus, Mary J CIV USMEPCOM wrote:
>> I'm not sure about hex, but when you look at it in Octal (in Linux), on
>FTP'd
>> file there is a \r (or CR value) followed by a \n (or LF value).  On the
>> SFTP'd file, there is only a \n (LF value).  That is where it gets lost.
>The
>> \n is supposed to be the LF but when it gets passed to z/OS, z/OS doesn't
>> seem to recognize it and continues on with one long line.  That is what I
>was
>> wondering is if somewhere in the z/OS GET command you have to tell it to
>use
>> LF and not CR.  Is this where the TR command fits in or is there another
>way?
>>
>> Right now the only other idea is to add the CR value back into the file,
>but
>> I don't like the idea of modifying a production file by adding in the
>> character.
>>
>> Thanks,
>> Mary
>
>Mary,
>
>Is the FTP GET from z/OS binary?
>
>If it is binary, the LF would not be used to break
>the file into lines.
>
>--
>Richard
>

--
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: IBM using more below the line storage.

2008-07-09 Thread Knutson, Sam
Hi John,

If your below the line private area decreased it I will step out on a
limb and say no one is monitoring and managing it.  We have been able to
grow PVT from a standard 9M to 10M and EPVT as well in the last few
years.  IBM is doing good work in the area of Virtual Storage Constraint
Relief (VSCR).  The MVS/SCP Project at SHARE engages with IBM on this
topic.  A very recent presentation from SHARE in Orlando on IBM's
current VSCR accomplishments and plans is here 

http://ew.share.org/client_files/callpapers/attach/SHARE_in_Orlando/S281
8ET101935.pdf 

2818 - Common Storage Virtual Storage Constraint Relief (VSCR)
Program: MVS 
Project: MVS SCP 
Speakers: Elpida Tzortzatos (IBM Corporation)
 
In this session, the speaker will describe IBM's edict for brand-wide
virtual storage constraint relief (VSCR), offering insights into IBM's
strategies for evolving virtual storage management for improved handling
of current and future workloads. She will discuss the trade offs you may
have to make, between selecting the sizes of the 31-bit common areas and
extended private, while configuring and tuning your z/OS system for
optimal performance and reliability. The speaker will then cover your
options for moving control blocks out of the 31-bit common area. With
this common storage VSCR support, you can maintain more of the premium
storage below the bar for private address space utilization. This is a
new session for Orlando. 

--

z/OS 1.9 Rocks!  I got back 17M of ESQA from the CDT enhancement
described in Elpida's presentation.  I got back a nice little chunk of
SQA relocating the LCCA/PCCA > 16M also discussed in the presentation. 

A common cause of what you describe is that someone installed a
ServerPac and dropped in a large library into your LPALSTxx that does
not need to be LPA.  ISP.SISPLPA for instance can be in link list and
has some big modules that are still RM 24. 

Health Checker for z/OS can both monitor to insure that you know
immediately if your PVT/EPVT area changes more than you expect or falls
below some size threshold you specify.  The check you want to look at
first is CHECK(IBMVSM,VSM_PVT).  This gives you some useful data like a
virtual storage map and shows you how it compares to the previous IPL.

CHECK(IBMVSM,VSM_PVT_LIMIT)
START TIME: 07/09/2008 05:36:01.470981 
CHECK DATE: 20040405  CHECK SEVERITY: LOW  
CHECK PARM: PVT(9M),EPVT(1200M)
   
   
The current size of PVT is 10M, and satisfies the installation 
specified minimum of 9M for this area. 
   
The current size of EPVT is 1485M, and satisfies the   
installation specified minimum of 1200M for this area. 
   
   
VSM_PVT_LIMIT  
Virtual Storage Configuration Report   
  Current IPL TOD:  Compare IPL TOD:   
  07/09/2008 05:23:10.7588  07/02/2008 05:33:11.8391   
       
DATE  07/09/200807/02/2008 
TIME  05:23:10  05:33:11   
LOADxxEBEB 
IEANUC0x  1 1  
CSA() 8B (3M,400M)  8B (3M,400M)   
SQA() 00 (512K,64M) 00 (512K,64M)  
FIX() n/a   n/a
LPA() 00 8B 00 8B  
MLPA()n/a   n/a
MLPA()n/a   n/a
   
Storage  CurrentCompare
LocationChange   Size   size Start   End   
   
PVT00   A0 A0   00   A0
(10M)  (10M)   
CSA00   3C4000 3C4000   A0   DC4000
(3856K)(3856K) 
MLPA  n/a   00n/a   00   00
(0)   

Re: PCOMM file xfer question (and rant)

2008-07-09 Thread Roger Bolan
Hmm.  I remember that problem too, but I haven't seen it happen in years.  
I don't remember changing anything myself to make it go away, but I might 
have forgotten.  Of course both the z/OS systems and my own workstation 
have been upgraded several times since the last time I saw it so who knows 
what changed? 

One problem I did have with IND$FILE was trying to invoke it from oddly 
sized custom sessions I had made, like 62 by 160, and using ISPF option 6 
for the commands.  It would blow up.  The cure for that was to nuke the 
old *.ws files I had carried over from my old systems and create fresh 
ones using PCOMM 5.8. 

Roger Bolan

IBM Mainframe Discussion List  wrote on 07/09/2008 
01:39:28 PM:


> The biggest problem that I have with IND$FILE is that it can be
> interrupted by a SEND command coming from the operator or another TSO
> user (or NOTIFY= from a job completing).
> 
> --
> John McKown

--
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: SFTP GET COMMAND QUESTION

2008-07-09 Thread Yukus, Mary J CIV USMEPCOM
Thanks, these look like good possibilities.


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Hal Merritt
Sent: Wednesday, July 09, 2008 3:15 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SFTP GET COMMAND QUESTION

The 2 of 3 consensus here is: yes. But we don't recall how we did it.   

Look at z/os client parameters TRAILINGBLANKS, TRUNCATE, and WRAPRECORD.
This will work if the data is FB. FTP will break the records into LRECL
lengths. 

Look at z/os server parameters TRAILINGBLANKS, TRUNCATE, WRAPRECORD,
MBSENDEOL, and SBSENDEOL.

If you are issuing a GET or PUT then you are the client.

But I think it is really a UNIX server parameter equivalent to SBSENDEOL
that is the root issue. Otherwise, the *nix is not in compliance with
RFC 959. We are not joking when it is said that z/os is more Unix than
most other flavors out there. 

HTH.  



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Yukus, Mary J CIV USMEPCOM
Sent: Wednesday, July 09, 2008 2:16 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: SFTP GET COMMAND QUESTION

I have a question regarding the GET command for FTP.  We have a file
that
comes from UNIX (AIX) to zLINUX through an SFTP.  We need to get it to
z/OS
via FTP (not SFTP).  The SFTP file contains the new line character, but
not
the end of line character.  When the GET command is issued (via JCL on
z/OS),
we only get the first line of the file since it can't find the carriage
return character (CR).  

Is there a command that can be added to the GET command to use the new
line
character (LF) to force the file to a new line rather than the carriage
return character? 
Thanks,
Mary

 

NOTICE: This electronic mail message and any files transmitted with it are
intended
exclusively for the individual or entity to which it is addressed. The
message, 
together with any attachment, may contain confidential and/or privileged
information.
Any unauthorized review, use, printing, saving, copying, disclosure or
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

--
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: IBM using more below the line storage.

2008-07-09 Thread Ted MacNEIL
Re: Rejected posting to IBM-MAIN@BAMA.UA.EDU
I sent this only once; I never saw the posting, so I'm re-sending.


>It appears to me that IBM is assuming that the below the line 
> storage is now free and available for their use, and rather than going to 
> 31-bit addressing themselves, they are expanding use of 24-bit. 
> Interesting.  Looks like a bit of "do as I say, not as I do." 


When IBM first came out with support for 3390's, they put the modules below the 
16M line.
Our SYSPROG management was not impressed.
This was about the time everybody was using the Virtual Storage Tuning Cookbook 
and unplugging everything they could from the LPA -- the early days of 31-bit 
addressing, where IBM still listed what the next release contributed to VSCR.

-
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: IBM using more below the line storage.

2008-07-09 Thread Ted MacNEIL
>It appears to me that IBM is assuming that the below the line 
> storage is now free and available for their use, and rather than going to 
> 31-bit addressing themselves, they are expanding use of 24-bit. 
> Interesting.  Looks like a bit of "do as I say, not as I do." 


When IBM first came out with support for 3390's, they put the modules below the 
16M line.
Our SYSPROG management was not impressed.
This was about the time everybody was using the Virtual Storage Tuning Cookbook 
and unplugging everything they could from the LPA -- the early days of 31-bit 
addressing, where IBM still listed what the next release contributed to VSCR.

-
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: IBM using more below the line storage.

2008-07-09 Thread Bob Rutledge

John Mattson wrote:
IBM appears to be expanding use of storage below the 16M line, 
rather than converting their own code to 31-bit addressability. Here is 
the reply I received when I ETR asked CICS why I could no longer get a 
certain DSALIM value in TS22 after going to zos 1.08. 
"There is Common Storage shared by all address spaces, and not 
considered
part of the private storage available for address space (task) use. 
In OS/390 2.10 the amount of Common Storage needed by the system was 
smaller than is required by z/os 1.8, which has much more function. 
When Common Storage increases, the amount of private storage decreases. 
My guess, based on my years of experience is that in your 2.10 system 
the amount of private storage available was 10M or possibly 11M. It 
must be on a meg boundry. In z/os 1.8 the amount of storage available 
for CICS , or any other address space has shrunk to 9M based on the 
increase in Common Storage." 
It appears to me that IBM is assuming that the below the line 
storage is now free and available for their use, and rather than going to 
31-bit addressing themselves, they are expanding use of 24-bit. 
Interesting.  Looks like a bit of "do as I say, not as I do." 


Interesting indeed.

This entry in COMMND00

COM='S REGCHECK,REG=9M,SUB=MSTR CHECK PRIVATE AREA AVAILABLILITY'

driving this PROC

//REGCHECK PROC REG=##M
//*
//* THIS PROC IS TO BE STARTED VERY EARLY DURING IPL WITH SUB=MSTR.
//*
//* SUB=MSTR IMPLIES THIS PROC MUST BE IN SYS1.PROCLIB.
//*
//* THIS PROC IS INTENDED TO SAVE OUR TAILS IN THE EVENT WE DO
//* MAINTENANCE OR OTHER CHANGES THAT PUSH BELOW-THE-LINE COMMON
//* STORAGE DOWN INTO OUR REQUIRED BELOW-THE-LINE PRIVATE AREA,
//* THUS REDUCING AVAILABLE BELOW-THE-LINE REGION BY ONE MEGABYTE.
//*
//* 1.  THE "M" MUST BE INCLUDED IN REG=, E.G. 8M.
//*
//* 2.  THE VALUE PART OF REG= MUST BE THE DESIRED SIZE OF THE
//* PRIVATE BELOW-THE-LINE *REGION* SIZE NEEDED FOR THE SYSTEM.
//* THIS VALUE WILL ALWAYS BE ONE MEGABYTE LESS THAN THE BELOW-
//* THE-LINE *PRIVATE AREA* SIZE FOR THE SYSTEM.
//*
//* RLR, 4/1998
//*
//CHECK EXEC PGM=IEFBR14,TIME=1,REGION=®
//  IF (CHECK.ABENDCC=S822) THEN
//EXEC PGM=XSYWTO1,TIME=1,
// PARM='SWR001E WARNING:  REGION=® IS UNAVAILABLE.'
//EXEC PGM=XSYWTO1,TIME=1,
// PARM='SWR002E NOTIFY THE HOST SUPPORT PERSON IMMEDIATELY.'
//  ENDIF

has been running at each IPL on all our LPARs since long before I had either 
OS/390 2.10 or z/OS 1.9.  At the moment, it works on 1.7 and 1.9.  (Yes, I 
realize that part of the comment isn't quite true, but it's real close.)


I suggest analysis to determine which of CSA, SQA, LPA grew sufficiently to 
lower your below-the-line private area size.  Remember that a minor change to 
any of those three areas has the potential to reduce the private area by 1M.


Before and after snapshots are called for.  Health Checker can tell you about 
CSA and SQA and whether or not you can shrink them, CSA= and SQA= in IEASYS00 
can give you a hint--look to see if CSA on your system is grossly larger than 
you requested.  If so, an LPAMAP should show you that LPA grew by some amount.


Bob

--
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: wildcard utilities

2008-07-09 Thread Farley, Peter x23353
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
> Behalf Of SUBSCRIBE IBM-MAIN Jim
> Sent: Wednesday, July 09, 2008 3:44 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: wildcard utilities
> 
> I have to move on to some other things for now, but want to try
> Barry's idea.

Do you need something as simple as this?

//LISTDS   EXEC PGM=IKJEFT1B 
//SYSTSPRT DD SYSOUT=*   
//SYSTSIN  DD *  
 EXEC 'SYS1.SAMPLIB(IGGCSIRX)' EXEC  
SYS*.*SAMP*  
//*  

That will print the names of all the datasets beginning with SYS* and
containing SAMP in the second qualifier to the SYSTSPRT DD.  You can
also use the .** suffix to get other datasets with longer names, like
this:

//LISTDS   EXEC PGM=IKJEFT1B   
//SYSTSPRT DD SYSOUT=* 
//SYSTSIN  DD *
 EXEC 'SYS1.SAMPLIB(IGGCSIRX)' EXEC
SYS2.**
//*

HTH

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: SFTP GET COMMAND QUESTION

2008-07-09 Thread Yukus, Mary J CIV USMEPCOM
No, it was binary from UNIX to LINUX by default during the SFTP process, but
then it is using FTP to get it from LINUX to z/OS which the default is ASCII.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Richard Peurifoy
Sent: Wednesday, July 09, 2008 4:05 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SFTP GET COMMAND QUESTION

Yukus, Mary J CIV USMEPCOM wrote:
> I'm not sure about hex, but when you look at it in Octal (in Linux), on
FTP'd
> file there is a \r (or CR value) followed by a \n (or LF value).  On the
> SFTP'd file, there is only a \n (LF value).  That is where it gets lost.
The
> \n is supposed to be the LF but when it gets passed to z/OS, z/OS doesn't
> seem to recognize it and continues on with one long line.  That is what I
was
> wondering is if somewhere in the z/OS GET command you have to tell it to
use
> LF and not CR.  Is this where the TR command fits in or is there another
way?
> 
> Right now the only other idea is to add the CR value back into the file,
but
> I don't like the idea of modifying a production file by adding in the
> character. 
> 
> Thanks,
> Mary  

Mary,

Is the FTP GET from z/OS binary?

If it is binary, the LF would not be used to break
the file into lines.

--
Richard

--
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: wildcard utilities

2008-07-09 Thread Stephen Mednick
You say you tried FDR and that you have quite a few other products, do you 
happen
to have ABR as well that incorporates FDREPORT? 

Stephen Mednick
Computer Supervisory Services
Sydney, Australia 

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of SUBSCRIBE IBM-MAIN Jim
> Sent: Thursday, 10 July 2008 4:47 AM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: wildcard utilities
> 
> I have had great suggestions so far, but I have tried DFDSS 
> and FDR and not gotten results I was looking for. Might not 
> be using the parameters correctly.
> I think I will detail this more on my wishes and the 
> collective group can offer more ideas.  We have an automated 
> scheduler software on our mainframe called Control-M that 
> will copy a jcl sysout to a file on whichever jobs we choose. 
>  Those are the datasets in the format shown below that I wish 
> to create a single report from. 
> Organization  . . . : PS   
> Record format . . . : FB   
> Record length . . . : 133
> Block size  . . . . : 5985
> When I use DFDSS or FDR the dataset I try and create for 
> printing comes up in either a VBA or U format.  And I am not 
> strong enough with sort or some other method to create the 
> report.  I really don't care about creating a dataset at all, 
> if I can simply print the incoming datasets from the wildcard list.
> Below is an example of one of the datasets sysouts and I 
> would like to keep that intact.  This is not a completed 
> sysout example, but wanted to save lines.
> 

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



IBM using more below the line storage.

2008-07-09 Thread John Mattson
IBM appears to be expanding use of storage below the 16M line, 
rather than converting their own code to 31-bit addressability. Here is 
the reply I received when I ETR asked CICS why I could no longer get a 
certain DSALIM value in TS22 after going to zos 1.08. 
"There is Common Storage shared by all address spaces, and not 
considered
part of the private storage available for address space (task) use. 
In OS/390 2.10 the amount of Common Storage needed by the system was 
smaller than is required by z/os 1.8, which has much more function. 
When Common Storage increases, the amount of private storage decreases. 
My guess, based on my years of experience is that in your 2.10 system 
the amount of private storage available was 10M or possibly 11M. It 
must be on a meg boundry. In z/os 1.8 the amount of storage available 
for CICS , or any other address space has shrunk to 9M based on the 
increase in Common Storage." 
It appears to me that IBM is assuming that the below the line 
storage is now free and available for their use, and rather than going to 
31-bit addressing themselves, they are expanding use of 24-bit. 
Interesting.  Looks like a bit of "do as I say, not as I do." 

--
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: SFTP GET COMMAND QUESTION

2008-07-09 Thread McKown, John
> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Yukus, Mary J CIV USMEPCOM
> Sent: Wednesday, July 09, 2008 3:46 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: SFTP GET COMMAND QUESTION
> 
> I'm not sure about hex, but when you look at it in Octal (in 
> Linux), on FTP'd
> file there is a \r (or CR value) followed by a \n (or LF 
> value).  On the
> SFTP'd file, there is only a \n (LF value).  That is where it 
> gets lost.  The
> \n is supposed to be the LF but when it gets passed to z/OS, 
> z/OS doesn't
> seem to recognize it and continues on with one long line.  
> That is what I was
> wondering is if somewhere in the z/OS GET command you have to 
> tell it to use
> LF and not CR.  Is this where the TR command fits in or is 
> there another way?
> 
> Right now the only other idea is to add the CR value back 
> into the file, but
> I don't like the idea of modifying a production file by adding in the
> character. 
> 
> Thanks,
> Mary  

OK, I just did a test with my Linux/Intel system. In my z/OS ftp job, I
did a GET command to get a file from Linux to z/OS. I used the "vsftpd"
ftp server and the "proftpd" ftp server for my tests. The results are
below:

vsftpd server - lines end with CRLF - file on z/OS is good
vsftpd server - lines end with LF only - file on z/OS is bad - a single
line
proftpd server - lines end with CRLF - file on z/OS is good
proftpd server - lines end with LF only - file on z/OS is good

It appears that the vsftpd server is not responding correctly. While "in
transit", lines being ftp'ed in ASCII mode are supposed to end with
CRLF. An ASCII based UNIX server should convert the LF to a CRLF. vsftpd
is apparently not doing this.

My suggestion: use the proftpd server on z/Linux instead of the vsftpd
server. If this is not possible, then the file on z/Linux needs to be
converted to have CRLF at the end of the line. This can be done with the
"unix2dos" utility on z/Linux. This cannot be fixed on the z/OS side as
best as I can tell.

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.  

--
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: SFTP GET COMMAND QUESTION

2008-07-09 Thread Richard Peurifoy

Yukus, Mary J CIV USMEPCOM wrote:

I'm not sure about hex, but when you look at it in Octal (in Linux), on FTP'd
file there is a \r (or CR value) followed by a \n (or LF value).  On the
SFTP'd file, there is only a \n (LF value).  That is where it gets lost.  The
\n is supposed to be the LF but when it gets passed to z/OS, z/OS doesn't
seem to recognize it and continues on with one long line.  That is what I was
wondering is if somewhere in the z/OS GET command you have to tell it to use
LF and not CR.  Is this where the TR command fits in or is there another way?

Right now the only other idea is to add the CR value back into the file, but
I don't like the idea of modifying a production file by adding in the
character. 


Thanks,
Mary  


Mary,

Is the FTP GET from z/OS binary?

If it is binary, the LF would not be used to break
the file into lines.

--
Richard

--
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: SFTP GET COMMAND QUESTION

2008-07-09 Thread Yukus, Mary J CIV USMEPCOM
I'm not sure about hex, but when you look at it in Octal (in Linux), on FTP'd
file there is a \r (or CR value) followed by a \n (or LF value).  On the
SFTP'd file, there is only a \n (LF value).  That is where it gets lost.  The
\n is supposed to be the LF but when it gets passed to z/OS, z/OS doesn't
seem to recognize it and continues on with one long line.  That is what I was
wondering is if somewhere in the z/OS GET command you have to tell it to use
LF and not CR.  Is this where the TR command fits in or is there another way?

Right now the only other idea is to add the CR value back into the file, but
I don't like the idea of modifying a production file by adding in the
character. 

Thanks,
Mary  

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of McKown, John
Sent: Wednesday, July 09, 2008 2:27 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SFTP GET COMMAND QUESTION

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Yukus, Mary J CIV USMEPCOM
> Sent: Wednesday, July 09, 2008 2:16 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: SFTP GET COMMAND QUESTION
> 
> I have a question regarding the GET command for FTP.  We have 
> a file that
> comes from UNIX (AIX) to zLINUX through an SFTP.  We need to 
> get it to z/OS
> via FTP (not SFTP).  The SFTP file contains the new line 
> character, but not
> the end of line character.  When the GET command is issued 
> (via JCL on z/OS),
> we only get the first line of the file since it can't find 
> the carriage
> return character (CR).  
> 
> Is there a command that can be added to the GET command to 
> use the new line
> character (LF) to force the file to a new line rather than 
> the carriage
> return character? 
> Thanks,
> Mary

>From what little that I know of the sftp command, as implemented on UNIX
and Windows, is that it does the equivalent of a BINARY transfer. What
is the "new line" character you mentioned, in hex? I hope that is it
0x0A. If so, then doing an ASCII ftp from z/Linux to z/OS should result
in a normal file. I ftp'ed from my Linux/Intel box to both a z/OS
sequential dataset and a z/OS UNIX (HFS) file. Both were OK. If it ends
in something else, then I'd determine what character it is on your
z/Linux box and translate it to 0x0a (using the tr command) before
ftp'ing it to z/OS.

AIX should end its lines in LF (0x0a), not CR (0x0d). Windows ends lines
with CRLF (0x0d0a)

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.  

--
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: Listing of current ROOT with Mount Points

2008-07-09 Thread McKown, John
> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Lizette Koehler
> Sent: Wednesday, July 09, 2008 3:23 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: Listing of current ROOT with Mount Points
> 
> Absolutely correct.
> 
> Lizette

Unless I really screwed up, the following REXX program should do what
you want:

/* rexx */
call bpxwunix "df | awk '{ print $1;}' | grep '/' |
sort",,stdout.,stderr.
lrm=stdout.2
llrm=length(lrm)
do i=3 to stdout.0
   if lrm=left(stdout.i,llrm) then iterate
   lrm = stdout.i
   llrm=length(lrm)
   say lrm
end

This program will run as a TSO REXX or UNIX REXX command.

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.  

--
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: Going unsupported - time to fold?

2008-07-09 Thread Clark Morris
On 9 Jul 2008 11:32:56 -0700, in bit.listserv.ibm-main you wrote:

>To all:
>Thank you for the various inputs for my thought process - that is one
>of the benefits and enjoyments of this discussion list.
>
>Just to share what is going on here:
>
>We are currently moving to a PeopleSoft environment (40 servers, which
>includes a DR site) to replace CGI-AMS financials/HR packages on the
>mainframe.  Financials is already *mostly* running on the distributed
>platform and HR is scheduled for golive the beginning of August.  Beyond
>these two applications, there will remain about a dozen assorted CICS
>applications, which is what they believe they should move off the
>mainframe as soon as possible, for the "cost savings" (known as budget
>cuts).  
>
>Of interest in this story is: 1) these remaining applications are used
>primarily as our revenue applications; 2) a project manager's progress
>tracking tool where 10 of these are listed as being in a *planning*
>stage - although our applications team has not seen individual project
>plans for each application; 3) this means no design or procurement of
>replacement applications has begun; 4) a statement has been made to
>management that the *majority* of these applications will be off of the
>mainframe by the end of the year.
>
>So, I have been involved and cross trained for the Linux environment
>installed for Peoplesoft, and my supervisor wants to know if I have time
>to do a z/OS upgrade for something that's *going away*.
>
>Again, thanks for all of the posts.
>
>Peggy
>

Since the only online access that I see in your posting is TSO and
CICS, the vulnerability to web related exposures should be low.  If my
analysis is incorrect and there is a lot of web access, then I would
not want to be unsupported.  In short if you aren't changing the
applications and there is little or no Internet access, the chances of
major problems in the time frame envisioned are low.  

Getting rid of the mainframe makes sense if you are stuck with the 40
servers and can't consolidate their work onto the mainframe.  What
scares me is the replacement of the remaining applications being only
in the planning stage.  It also implies that nobody really knows what
these applications do.  I might note that a conversion to SAP at a
major utility took 6 months to a year longer than anticipated.  The
whole situation seems to be one requiring extreme discretion and tact
on your part.  Bank takeovers where systems are ruthlessly and quickly
consolidated may be a good model but someone who has experience in
doing this sort of thing is needed.   

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



Related to: DB2 V8 and Unicode

2008-07-09 Thread Tom Ross
>> I forgot to add...
>>
>> Even if you think 40M (or however big the pre-built image is now) is "huge",
>> remember that by default under z/OS 1.8 and above all tables are loaded
>> in non-page fixed storage by default (you can page fix them if desired).
>> This doesn't apply to z/OS 1.7 though AFAIK.
>
>Does any other component or product use Unicode on demand?
>
>For example, Java uses Unicode; C, COBOL, and PL/I all have
>Unicode support. Do any of these use the Unicode tables loaded
>by Unicode on demand?

I think any user of Unicode Services will get the dynamic loading.
COBOL does, and it happened when Unicode Services changed in 1.7,
not because we (in COBOL) did anything differently.

Cheers,
TomR  >> COBOL is the Language of the Future! <<

--
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: Going unsupported - time to fold?

2008-07-09 Thread Hal Merritt
Very interesting. I think I hear an undertone: no planning, so how could
anyone possibly know how much and how long? Translation: there is no
real intention to do that. Just a bunch of folks playing word games to
please a high individual making promises he/she can't keep. 

I think I also hear a vibration of some management carefully hedging
bets by keeping his z/os crew on the payroll. 

Keep a positive attitude.   

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Peggy Andrews
Sent: Wednesday, July 09, 2008 1:32 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Going unsupported - time to fold?

To all:
Thank you for the various inputs for my thought process - that is one
of the benefits and enjoyments of this discussion list.

Just to share what is going on here:

We are currently moving to a PeopleSoft environment (40 servers, which
includes a DR site) to replace CGI-AMS financials/HR packages on the
mainframe.  Financials is already *mostly* running on the distributed
platform and HR is scheduled for golive the beginning of August.  Beyond
these two applications, there will remain about a dozen assorted CICS
applications, which is what they believe they should move off the
mainframe as soon as possible, for the "cost savings" (known as budget
cuts).  

Of interest in this story is: 1) these remaining applications are used
primarily as our revenue applications; 2) a project manager's progress
tracking tool where 10 of these are listed as being in a *planning*
stage - although our applications team has not seen individual project
plans for each application; 3) this means no design or procurement of
replacement applications has begun; 4) a statement has been made to
management that the *majority* of these applications will be off of the
mainframe by the end of the year.

So, I have been involved and cross trained for the Linux environment
installed for Peoplesoft, and my supervisor wants to know if I have time
to do a z/OS upgrade for something that's *going away*.

Again, thanks for all of the posts.

Peggy
 

NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

--
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: Listing of current ROOT with Mount Points

2008-07-09 Thread Imbriale, Donald
This is from a few years ago; I haven't run it in a while so I'm not
sure if it still works.  Basic process is to mount your new root on a
new mount point, use UNIX ls command on the actual root and the new root
with output to unix files, copy those files to MVS data sets, then use
SUPERC to compare those data sets.

/* rexx HFSDIRC */
parse arg dir1 dir2 junk  
dir1  = strip(dir1)   
dir2  = strip(dir2)   
if dir1 = "" or dir2 = "" then do 
   say "Two directories must be specified"
   exit 4 
end   
"oshell ls -Fln "dir1" > /tmp/lsdir1" 
"oshell ls -Fln "dir2" > /tmp/lsdir2" 
"oget '/tmp/lsdir1' 'my.DIR1'"  
"oget '/tmp/lsdir2' 'my.DIR2'"  

//LISTDIR  EXEC PGM=IKJEFT01,  
// PARM='HFSDIRC / /SERVICE'
//SYSPROC  DD   DISP=SHR,DSN=SYS1.SBPXEXEC 
// DD   DISP=SHR,DSN=my.execlib
//SYSTSPRT DD   SYSOUT=*   
//SYSTSIN  DD   DUMMY  
//COMPARE EXEC PGM=ISRSUPC,COND=(4,LE,LISTDIR),
//PARM=(LONGL,LINECMP, 
//'',  
//'')  
//NEWDD  DD DISP=SHR,DSN=my.DIR2 
//OLDDD  DD DISP=SHR,DSN=my.DIR1 
//OUTDD  DD SYSOUT=*   
//SYSIN  DD *  
cmpcolm 1:10 16:32 55:80   
/* 

Don Imbriale

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Lizette Koehler
Sent: Wednesday, July 09, 2008 3:51 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Listing of current ROOT with Mount Points

I was wondering if any cleaver sysprog out there wrote a process that
would extract the current ROOT and its mount points.  Then compare those
mountpoint to the new ROOT that would go in with the IPL and flag any
differences?

I am still to new at USS to see how to do this with REXX on z/OS.

This would need to work against HFS and zFS files.  Yes - I know that
UNIX is UNIX, however, I want to make sure I am specific enough.

I am currently working on my z/OS V1.7 to V1.9 upgrade.  And it seems we
sometimes have others add mount points and not update our documentation.

I am just looking for an easy way to see what is changing between the
two.

For example.  I am adding SIGYROOT to my new ROOT.  It currently does
not exist in my z/OS V1.7 Root.




***
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: South Dakota migrates off mainframe; chaos ensues

2008-07-09 Thread Patrick O'Keefe
On Wed, 9 Jul 2008 13:02:16 -0500, Pommier, Rex R. 
<[EMAIL PROTECTED]> wrote:

>...They switched from the plates going with the vehicle
>to the plates staying with the seller.  ...

Way off topic, but I've had some cars with the bolts so rusted I'd
never get the plates off.   I guess I'd have to keep the car forever
if I were from South Dakota.

>... decided to use this law change as the reason to migrate the 
>application off the mainframe.  So, they had no fall-back ability in 
>case of problems -
>...

To be fair, this problem had less to do with "off the mainframe" 
than "onto a new application" and "no fallback".  If the same 
project managers were involved, the migration would probably
have gone no better if it had been to another application on the 
mainframe.

Pat O'Keefe  

--
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: Listing of current ROOT with Mount Points

2008-07-09 Thread Lizette Koehler
Absolutely correct.

Lizette



>> I was wondering if any cleaver sysprog out there wrote a 
>> process that would extract the current ROOT and its mount 
>> points.  Then compare those mountpoint to the new ROOT that 
>> would go in with the IPL and flag any differences?
>> 
>> I am still to new at USS to see how to do this with REXX on z/OS.
>> 
>> This would need to work against HFS and zFS files.  Yes - I 
>> know that UNIX is UNIX, however, I want to make sure I am 
>> specific enough.
>> 
>> I am currently working on my z/OS V1.7 to V1.9 upgrade.  And 
>> it seems we sometimes have others add mount points and not 
>> update our documentation.
>> 
>> I am just looking for an easy way to see what is changing 
>> between the two.
>> 
>> For example.  I am adding SIGYROOT to my new ROOT.  It 
>> currently does not exist in my z/OS V1.7 Root.
>> 
>> Thanks for any thoughts.
>> 
>> Lizette
>
>I'm not sure what you want, so I'll try to rephrase. You want a listing
>of filesystems mounted, but only if they are mounted in the ROOT
>filesystem. If they are mounted on a filesystem which is not ROOT, then
>you don't want it listed.
>
>As an example, suppose I have the following output from a "df" command:
>
>/
>/SYSTEM/dev
>/SYSTEM/etc
>/SYSTEM/tmp
>/SYSTEM/var
>/usr/local
>/usr/local/products/opentech
>/usr/local/src
>
>You would want only the mountpoints:
>
>/
>/SYSTEM/dev
>/SYSTEM/etc
>/SYSTEM/tmp
>/SYSTEM/var
>/usr/local
>
>and not the mount points:
>
>/usr/local/products/opentech
>/usr/local/src
>
>Correct?
>

--
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: Listing of current ROOT with Mount Points

2008-07-09 Thread McKown, John
> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Lizette Koehler
> Sent: Wednesday, July 09, 2008 2:51 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Listing of current ROOT with Mount Points
> 
> I was wondering if any cleaver sysprog out there wrote a 
> process that would extract the current ROOT and its mount 
> points.  Then compare those mountpoint to the new ROOT that 
> would go in with the IPL and flag any differences?
> 
> I am still to new at USS to see how to do this with REXX on z/OS.
> 
> This would need to work against HFS and zFS files.  Yes - I 
> know that UNIX is UNIX, however, I want to make sure I am 
> specific enough.
> 
> I am currently working on my z/OS V1.7 to V1.9 upgrade.  And 
> it seems we sometimes have others add mount points and not 
> update our documentation.
> 
> I am just looking for an easy way to see what is changing 
> between the two.
> 
> For example.  I am adding SIGYROOT to my new ROOT.  It 
> currently does not exist in my z/OS V1.7 Root.
> 
> Thanks for any thoughts.
> 
> Lizette

I'm not sure what you want, so I'll try to rephrase. You want a listing
of filesystems mounted, but only if they are mounted in the ROOT
filesystem. If they are mounted on a filesystem which is not ROOT, then
you don't want it listed.

As an example, suppose I have the following output from a "df" command:

/
/SYSTEM/dev
/SYSTEM/etc
/SYSTEM/tmp
/SYSTEM/var
/usr/local
/usr/local/products/opentech
/usr/local/src

You would want only the mountpoints:

/
/SYSTEM/dev
/SYSTEM/etc
/SYSTEM/tmp
/SYSTEM/var
/usr/local

and not the mount points:

/usr/local/products/opentech
/usr/local/src

Correct?

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.  

--
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: SFTP GET COMMAND QUESTION

2008-07-09 Thread Hal Merritt
The 2 of 3 consensus here is: yes. But we don't recall how we did it.   

Look at z/os client parameters TRAILINGBLANKS, TRUNCATE, and WRAPRECORD.
This will work if the data is FB. FTP will break the records into LRECL
lengths. 

Look at z/os server parameters TRAILINGBLANKS, TRUNCATE, WRAPRECORD,
MBSENDEOL, and SBSENDEOL.

If you are issuing a GET or PUT then you are the client.

But I think it is really a UNIX server parameter equivalent to SBSENDEOL
that is the root issue. Otherwise, the *nix is not in compliance with
RFC 959. We are not joking when it is said that z/os is more Unix than
most other flavors out there. 

HTH.  



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Yukus, Mary J CIV USMEPCOM
Sent: Wednesday, July 09, 2008 2:16 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: SFTP GET COMMAND QUESTION

I have a question regarding the GET command for FTP.  We have a file
that
comes from UNIX (AIX) to zLINUX through an SFTP.  We need to get it to
z/OS
via FTP (not SFTP).  The SFTP file contains the new line character, but
not
the end of line character.  When the GET command is issued (via JCL on
z/OS),
we only get the first line of the file since it can't find the carriage
return character (CR).  

Is there a command that can be added to the GET command to use the new
line
character (LF) to force the file to a new line rather than the carriage
return character? 
Thanks,
Mary

 

NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

--
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: Listing of current ROOT with Mount Points

2008-07-09 Thread Scott Barry
On Wed, 9 Jul 2008 16:01:39 -0400, George Allen Bly <[EMAIL PROTECTED]> wrote:

>Try command "D OMVS,F".
>
>George
>
>
>From: IBM Mainframe Discussion List [EMAIL PROTECTED] On Behalf Of 
Lizette Koehler [EMAIL PROTECTED]
>Sent: Wednesday, July 09, 2008 3:50 PM
>To: IBM-MAIN@BAMA.UA.EDU
>Subject: Listing of current ROOT with Mount Points
>
>I was wondering if any cleaver sysprog out there wrote a process that would 
extract the current ROOT and its mount points.  Then compare those 
mountpoint to the new ROOT that would go in with the IPL and flag any 
differences?
>
>I am still to new at USS to see how to do this with REXX on z/OS.
>
>This would need to work against HFS and zFS files.  Yes - I know that UNIX 
is UNIX, however, I want to make sure I am specific enough.
>
>I am currently working on my z/OS V1.7 to V1.9 upgrade.  And it seems we 
sometimes have others add mount points and not update our documentation.
>
>I am just looking for an easy way to see what is changing between the two.
>
>For example.  I am adding SIGYROOT to my new ROOT.  It currently does not 
exist in my z/OS V1.7 Root.
>
>Thanks for any thoughts.
>
>Lizette
>
>--
>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


In batch, here's an option that works:

//RUNOSH   EXEC PGM=IKJEFT1B,REGION=2M   
//SYSEXEC  DD   DSN=SYS1.SBPXEXEC,DISP=SHR   
//SYSTSPRT DD   SYSOUT=* 
//SYSTSIN  DD *  
 OSHELL df
/*


Scott Barry
SBBWorks, Inc.

--
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: Listing of current ROOT with Mount Points

2008-07-09 Thread George Allen Bly
Try command "D OMVS,F".

George


From: IBM Mainframe Discussion List [EMAIL PROTECTED] On Behalf Of Lizette 
Koehler [EMAIL PROTECTED]
Sent: Wednesday, July 09, 2008 3:50 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Listing of current ROOT with Mount Points

I was wondering if any cleaver sysprog out there wrote a process that would 
extract the current ROOT and its mount points.  Then compare those mountpoint 
to the new ROOT that would go in with the IPL and flag any differences?

I am still to new at USS to see how to do this with REXX on z/OS.

This would need to work against HFS and zFS files.  Yes - I know that UNIX is 
UNIX, however, I want to make sure I am specific enough.

I am currently working on my z/OS V1.7 to V1.9 upgrade.  And it seems we 
sometimes have others add mount points and not update our documentation.

I am just looking for an easy way to see what is changing between the two.

For example.  I am adding SIGYROOT to my new ROOT.  It currently does not exist 
in my z/OS V1.7 Root.

Thanks for any thoughts.

Lizette

--
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: LOOKAT ICH408I

2008-07-09 Thread Patrick O'Keefe
On Wed, 9 Jul 2008 09:32:54 -0400, Jerry Fuchs 
<[EMAIL PROTECTED]> wrote:

>If the HLQ is not defined the data set will be cataloged in the master
>catalog.
>
>Your ID is not authorized to update the master catalog.
>...

I could possibly be way off base, but I really don't think he needs
an explanation of ICH408I ... especially since he went out of his
way to get it. 

Pat O'Keefe

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



Listing of current ROOT with Mount Points

2008-07-09 Thread Lizette Koehler
I was wondering if any cleaver sysprog out there wrote a process that would 
extract the current ROOT and its mount points.  Then compare those mountpoint 
to the new ROOT that would go in with the IPL and flag any differences?

I am still to new at USS to see how to do this with REXX on z/OS.

This would need to work against HFS and zFS files.  Yes - I know that UNIX is 
UNIX, however, I want to make sure I am specific enough.

I am currently working on my z/OS V1.7 to V1.9 upgrade.  And it seems we 
sometimes have others add mount points and not update our documentation.

I am just looking for an easy way to see what is changing between the two.

For example.  I am adding SIGYROOT to my new ROOT.  It currently does not exist 
in my z/OS V1.7 Root.

Thanks for any thoughts.

Lizette

--
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: wildcard utilities

2008-07-09 Thread SUBSCRIBE IBM-MAIN Jim
I have to move on to some other things for now, but want to try Barry's idea.

--
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: PCOMM file xfer question (and rant)

2008-07-09 Thread McKown, John
> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Edward Jaffe
> Sent: Wednesday, July 09, 2008 2:38 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: PCOMM file xfer question (and rant)
> 
> David Alcock wrote:
> > I prefer my data transfer in TCP/IP packets instead of
> > IND$FILE's ancient screen scraper kludge.
> >   
> 
> For modern 3270 emulators, IND$FILE does not use a "screen scraper" 
> kludge. Rather, the transfer is done using structured fields.
> 
> -- 
> Edward E Jaffe

The biggest problem that I have with IND$FILE is that it can be
interrupted by a SEND command coming from the operator or another TSO
user (or NOTIFY= from a job completing).

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.  

--
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: PCOMM file xfer question (and rant)

2008-07-09 Thread Edward Jaffe

David Alcock wrote:

I prefer my data transfer in TCP/IP packets instead of
IND$FILE's ancient screen scraper kludge.
  


For modern 3270 emulators, IND$FILE does not use a "screen scraper" 
kludge. Rather, the transfer is done using structured fields.


--
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.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: wildcard utilities

2008-07-09 Thread Schwarz, Barry A
Even though you called it a print file, the dataset you create is
actually a dump file.  That is the reason the DCB is not what you
expect.  It is also the reason your sort did not provide anything
expected.

Unless I misunderstand, for this effort you do not want the actual data
in the new print files created by Control-M.  You merely want a list of
the DSNs created on a certain date.  If this is correct:

Your TAPE DD statement should be named SYSPRINT.  Delete the
existing SYSPRINT.  The space parameter seems excessive for a list of
DSNs.
Add a TAPE DD statement with DUMMY or DSN=NULLFILE.
Add PARM='TYPRUN=NORUN' to your EXEC statement.
Add "BY(CREDT,EQ,ddd) -" after the DUMP line to specify the
date of interest.  You mentioned usually wanting "yesterday's datasets".
In this case, you can replace the ddd with "*,-1".

Your list of datasets will be in the SYSPRINT output along with other
DSS messages.  Check the DFSMS Storage Administration Reference manual
for the details and other options.

-Original Message-
From: SUBSCRIBE IBM-MAIN Jim [mailto:snip] 
Sent: Wednesday, July 09, 2008 12:08 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: wildcard utilities

The scheduler software is generating the dataset.  It basically invokes
JES and makes a copy of whatever sysouts you choose(leaving original
sysout in queue).  Not sure if you saw my latest post, but please let me
know if additional information is needed.  If your talking about the
DFDSS jcl I have attempted to use to create a working print dataset, see
below :

//DRTSTRPT JOB ,'DRPRT',CLASS=X,   
// MSGLEVEL=(1,1),MSGCLASS=X,REGION=4096K  
//*
*** 
//STEP010  EXEC  PGM=ADRDSSU   
//SYSPRINT DD  SYSOUT=*
//TAPE DD  DSN=UN.DRPRINT.FILE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=3390,  
// DCB=(BLKSIZE=5985,LRECL=133,RECFM=FB),  
// SPACE=(CYL,(5,2),RLSE,,ROUND)   
//SYSINDD* 
DUMP DATASET(INCLUDE(UN.DRRPT.**)) - 
OUTDDNAME(TAPE) 
/* 
// 

The UN.DRPRINT.FILE file created by the utility actually becomes :
Organization  . . . : PS   
Record format . . . : U
Record length . . . : 133
Block size  . . . . : 23408

I attempted to sort certain records from that dataset and came up with
an ugly mess.  

--
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: SFTP GET COMMAND QUESTION

2008-07-09 Thread McKown, John
> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Yukus, Mary J CIV USMEPCOM
> Sent: Wednesday, July 09, 2008 2:16 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: SFTP GET COMMAND QUESTION
> 
> I have a question regarding the GET command for FTP.  We have 
> a file that
> comes from UNIX (AIX) to zLINUX through an SFTP.  We need to 
> get it to z/OS
> via FTP (not SFTP).  The SFTP file contains the new line 
> character, but not
> the end of line character.  When the GET command is issued 
> (via JCL on z/OS),
> we only get the first line of the file since it can't find 
> the carriage
> return character (CR).  
> 
> Is there a command that can be added to the GET command to 
> use the new line
> character (LF) to force the file to a new line rather than 
> the carriage
> return character? 
> Thanks,
> Mary

>From what little that I know of the sftp command, as implemented on UNIX
and Windows, is that it does the equivalent of a BINARY transfer. What
is the "new line" character you mentioned, in hex? I hope that is it
0x0A. If so, then doing an ASCII ftp from z/Linux to z/OS should result
in a normal file. I ftp'ed from my Linux/Intel box to both a z/OS
sequential dataset and a z/OS UNIX (HFS) file. Both were OK. If it ends
in something else, then I'd determine what character it is on your
z/Linux box and translate it to 0x0a (using the tr command) before
ftp'ing it to z/OS.

AIX should end its lines in LF (0x0a), not CR (0x0d). Windows ends lines
with CRLF (0x0d0a)

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.  

--
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: wildcard utilities

2008-07-09 Thread SUBSCRIBE IBM-MAIN Jim
Yes, Control-M can create the dataset with any name up to 44 characters.

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



SFTP GET COMMAND QUESTION

2008-07-09 Thread Yukus, Mary J CIV USMEPCOM
I have a question regarding the GET command for FTP.  We have a file that
comes from UNIX (AIX) to zLINUX through an SFTP.  We need to get it to z/OS
via FTP (not SFTP).  The SFTP file contains the new line character, but not
the end of line character.  When the GET command is issued (via JCL on z/OS),
we only get the first line of the file since it can't find the carriage
return character (CR).  

Is there a command that can be added to the GET command to use the new line
character (LF) to force the file to a new line rather than the carriage
return character? 
Thanks,
Mary

--
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: wildcard utilities

2008-07-09 Thread Tony B.
Can you customize Control-M to create datasets with a certain naming
convention?  For example the output files would be called:

SPECHLQ.CONTROLM.COPIED.SYSOUT.whatever-the-job-name-is

 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of SUBSCRIBE IBM-MAIN Jim
Sent: Wednesday, July 09, 2008 1:47 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: wildcard utilities

I have had great suggestions so far, but I have tried DFDSS and FDR and not
gotten results I was looking for. Might not be using the parameters
correctly.
I think I will detail this more on my wishes and the collective group can
offer more ideas.  We have an automated scheduler software on our mainframe
called Control-M that will copy a jcl sysout to a file on whichever jobs we
choose.  Those are the datasets in the format shown below that I wish to
create a single report from. 
Organization  . . . : PS   
Record format . . . : FB   
Record length . . . : 133
Block size  . . . . : 5985
When I use DFDSS or FDR the dataset I try and create for printing comes up
in either a VBA or U format.  And I am not strong enough with sort or some
other method to create the report.  I really don't care about creating a
dataset at all, if I can simply print the incoming datasets from the
wildcard list.
Below is an example of one of the datasets sysouts and I would like to keep
that intact.  This is not a completed sysout example, but wanted to save
lines.

13.27.16 JOB01736  MONDAY,30 JUN 2008 

13.27.16 JOB01736  IRR010I  USERID OMVSKERN IS ASSIGNED TO THIS 
JOB.   
13.27.27 JOB01736  ICH70001I OMVSKERN LAST ACCESS AT 13:26:33 ON MONDAY,
JUNE 3
13.27.27 JOB01736  $HASP373 SYUT105  STARTED - INIT 17   - CLASS X - 
SYS TECH
13.27.27 JOB01736  IEF403I SYUT105 - STARTED - 
TIME=13.27.27   
13.27.31 JOB01736  -
--TIMINGS (
13.27.31 JOB01736  -JOBNAME  STEPNAME PROCSTEPRC   EXCP   CONN
TCBSR
13.27.31 JOB01736  -SYUT105  STEP01   00 83 69.00
.0
13.27.31 JOB01736  IEF404I SYUT105 - ENDED - 
TIME=13.27.31 
13.27.31 JOB01736  -SYUT105  ENDED.  NAME-OPERATIONTOTAL 
TCB CPU TI
13.27.32 JOB01736  $HASP395 SYUT105  ENDED


--
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: wildcard utilities

2008-07-09 Thread SUBSCRIBE IBM-MAIN Jim
The scheduler software is generating the dataset.  It basically invokes JES 
and makes a copy of whatever sysouts you choose(leaving original sysout in 
queue).  Not sure if you saw my latest post, but please let me know if 
additional information is needed.  If your talking about the DFDSS jcl I have 
attempted to use to create a working print dataset, see below :

//DRTSTRPT JOB ,'DRPRT',CLASS=X,   
// MSGLEVEL=(1,1),MSGCLASS=X,REGION=4096K  
//*
*** 
//STEP010  EXEC  PGM=ADRDSSU   
//SYSPRINT DD  SYSOUT=*
//TAPE DD  DSN=UN.DRPRINT.FILE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=3390,  
// DCB=(BLKSIZE=5985,LRECL=133,RECFM=FB),  
// SPACE=(CYL,(5,2),RLSE,,ROUND)   
//SYSINDD* 
DUMP DATASET(INCLUDE(UN.DRRPT.**)) - 
OUTDDNAME(TAPE) 
/* 
// 

The UN.DRPRINT.FILE file created by the utility actually becomes :
Organization  . . . : PS   
Record format . . . : U
Record length . . . : 133  
Block size  . . . . : 23408

I attempted to sort certain records from that dataset and came up with an 
ugly mess.  

--
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: wildcard utilities

2008-07-09 Thread McKown, John
> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of SUBSCRIBE IBM-MAIN Jim
> Sent: Wednesday, July 09, 2008 8:03 AM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: wildcard utilities
> 
> I have been struggling with a way to use wildcards as a means 
> of not having 
> to know all dataset names that may be created within a day's 
> time.  I know 
> you can use wildcards within a IDCAMS using the LISTCAT ENTRIES 
> statement, but what I would really like is to be able to copy 
> all the wildcard 
> datasets to another single dataset for reporting type 
> purposes.  We have 
> quite a few products on our mainframe, but I really don't 
> know the best 
> approach or software.  Below is a brief example of what I 
> want to accomplish.
> 
>  All the datasets are -  ORG of PS, RECFM = FB, LRECL = 133, 
> BLKSIZE = 5985
>  
> 
>  DISK.TEST.DATASETA
>  DISK.TEST.DATASETB
>  DISK.TEST.DATASETC
> 
>  Hopefully use wildcard of DISK.TEST.** to pick up ALL 
> datasets and then 
> copy to any other name I choose - DISK.BACKUP.DATASETS.  Then 
> using that 
> dataset to print out a single report in a viewable format.
> 
> Thanks in advance for any and all suggestions.

ISPF's LMDLIST can do that. I don't know really what you want to do, but
below is an example in REXX.

/* REXX */
PARSE ARG PATTERN
ADDRESS ISPEXEC
"LMDINIT LISTID(LISTID) LEVEL("PATTERN")"
IF RC <> 0 THEN DO
   SAY "LMDINIT RC="RC
   EXIT RC
END
DSN=" "
DO FOREVER
   "LMDLIST LISTID("LISTID") OPTION(LIST) DATASET(DSN) STATS(YES)"
   IF RC <> 0 THEN LEAVE
   SAY "PROCESSING DSN="DSN
   /* DO WHATEVER YOU WANT WITH THIS DSN HERE */
   /* COPY CONTENTS OF DSN */
   ADDRESS TSO "ALLOC DDN(SYSUT1) DSN('"DSN"') SHR REUSE"
   ADDRESS TSO "CALL *(IEBGENER)"
   ADDRESS TSO "FREE DDN(SYSUT1)"
END
"LMDLIST LISTID("LISTID") OPTION(FREE)"

JCL to execute the above example would look like:

//STEP010  EXEC  PGM=IKJEFT1B,
// REGION=4096K,TIME=NOLIMIT,
// PARM=''
//SYSTSPRT DD  SYSOUT=*
//ISPPROF  DD  SPACE=(TRK,(10,10,100)),
// DCB=(SYS1.MACLIB)
//ISPLOG   DD  SYSOUT=*,
// LRECL=121,RECFM=FBA,
// BLKSIZE=121,BUFNO=1
//ISPLIST  DD  SYSOUT=*,
// LRECL=121,RECFM=FBA,
// BLKSIZE=121,BUFNO=1
//ISPPLIB  DD  DSN=ISP.SISPPENU,
// DISP=SHR
//ISPTLIB  DD  DSN=ISP.SISPTENU,
// DISP=SHR
//ISPMLIB  DD  DSN=ISP.SISPMENU,
// DISP=SHR
//ISPSLIB  DD  DSN=ISP.SISPSLIB,
// DISP=SHR
//SYSPROC  DD  DSN=ISP.SISPCLIB,
// DISP=SHR
//SYSEXEC  DD  DSN=TSH009.REXX.EXEC,
// DISP=SHR
// DD  DSN=ISP.SISPEXEC,
// DISP=SHR
//SYSTSIN  DD  *
EXECUTIL SEARCHDD(YES)
PROFILE PREFIX(myid)
ISPSTART CMD(%LMDLIST TSH009.**)
/*
//SYSUT2 DD DSN=MY.OUTPUT.DSN,
// DISP=(MOD,CATLG,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE),
// DCB=(...)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY



--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.  

--
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: PCOMM file xfer question (and rant)

2008-07-09 Thread Don Leahy
I don't know how you guys can stand FTP when WSA is available.  :-)

On Wed, Jul 9, 2008 at 2:58 PM, David Alcock
<[EMAIL PROTECTED]> wrote:
>> I don't know how you guys that have to
>> use PCOMM and Extra can stand it.  Thank
>> God for Vista.
>
> I don't know how you guys that have to use IND$FILE can stand
> it.  Thank God for TCP/IP FTP.
>
> I prefer my data transfer in TCP/IP packets instead of
> IND$FILE's ancient screen scraper kludge.
>
> --
> 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: PCOMM file xfer question (and rant)

2008-07-09 Thread David Alcock
> I don't know how you guys that have to
> use PCOMM and Extra can stand it.  Thank 
> God for Vista.

I don't know how you guys that have to use IND$FILE can stand
it.  Thank God for TCP/IP FTP. 
 
I prefer my data transfer in TCP/IP packets instead of
IND$FILE's ancient screen scraper kludge.  

--
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: wildcard utilities

2008-07-09 Thread Lizette Koehler
We need the JCL and a 3.4 print of the dataset you are creating.

Put in the JCL you are using.

Lizette

--
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: wildcard utilities

2008-07-09 Thread SUBSCRIBE IBM-MAIN Jim
I have had great suggestions so far, but I have tried DFDSS and FDR and not 
gotten results I was looking for. Might not be using the parameters correctly.
I think I will detail this more on my wishes and the collective group can offer 
more ideas.  We have an automated scheduler software on our mainframe 
called Control-M that will copy a jcl sysout to a file on whichever jobs we 
choose.  Those are the datasets in the format shown below that I wish to 
create a single report from. 
Organization  . . . : PS   
Record format . . . : FB   
Record length . . . : 133  
Block size  . . . . : 5985 
When I use DFDSS or FDR the dataset I try and create for printing comes up 
in either a VBA or U format.  And I am not strong enough with sort or some 
other method to create the report.  I really don't care about creating a 
dataset at all, if I can simply print the incoming datasets from the wildcard 
list.
Below is an example of one of the datasets sysouts and I would like to keep 
that intact.  This is not a completed sysout example, but wanted to save lines.

13.27.16 JOB01736  MONDAY,30 JUN 2008  
13.27.16 JOB01736  IRR010I  USERID OMVSKERN IS ASSIGNED TO THIS 
JOB.   
13.27.27 JOB01736  ICH70001I OMVSKERN LAST ACCESS AT 13:26:33 ON 
MONDAY, JUNE 3
13.27.27 JOB01736  $HASP373 SYUT105  STARTED - INIT 17   - CLASS X - 
SYS TECH  
13.27.27 JOB01736  IEF403I SYUT105 - STARTED - 
TIME=13.27.27   
13.27.31 JOB01736  ---TIMINGS (
13.27.31 JOB01736  -JOBNAME  STEPNAME PROCSTEPRC   EXCP   CONN
TCBSR
13.27.31 JOB01736  -SYUT105  STEP01   00 83 69.00.0
13.27.31 JOB01736  IEF404I SYUT105 - ENDED - 
TIME=13.27.31 
13.27.31 JOB01736  -SYUT105  ENDED.  NAME-OPERATIONTOTAL 
TCB CPU TI
13.27.32 JOB01736  $HASP395 SYUT105  ENDED 

--
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: User/Ref Manual for CSS

2008-07-09 Thread Greg Shirey
Shaja,

I couldn't locate a CSS user manual in our documentation. 

However, I have some JCL to print and export programs from CSS DDIO data
sets, if that's what you're looking for.  I believe the JCL was supplied
by CSS support when we had a problem. 

//STEP1EXEC PGM=TMDDSUTL   
//STEPLIB  DD DISP=SHR,DSN=your.SLCXLOAD  
//ABNLDFIL DD DISP=SHR,DSN=ddio.dataset 
//ABNLREPT DD  SYSOUT=*

//ABNLPARM DD  *
   PRINT PROGRAM=pgmid   


//STEP1EXEC PGM=CWDDSUTL 
//STEPLIB  DD DISP=SHR,DSN=your.SLCXLOAD
//CWUT0001 DD DISP=SHR,DSN=ddio.dataset   
//CWUT0002 DD DSN=export.dataset,DISP=(NEW,CATLG),  
//UNIT=SYSDA,LRECL=80,BLKSIZE=8000,RECFM=FB, 
//SPACE=(8000,(0007,1))  
//SYSUDUMP DD  SYSOUT=*  
//ABNLPARM DD  *  
   EXPORT FROMDD=CWUT0001,   
   PROGRAM=pgmid,
   EXEC=SUMMARY, 
   TODD=CWUT0002 
/*   

HTH,
Greg Shirey
Ben E. Keith Co.

-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Shaja
Sent: Wednesday, July 09, 2008 8:28 AM


Currently I am working on a batch service to extract Abend-aid DDIO
Files. 
However I could not find any documentation on this...Does any one have
the 
User/Ref Manual for Compuware Shared Services ( CSS ) ..?
Appreciate if someone could share it...

--
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: User/Ref Manual for CSS

2008-07-09 Thread Schwarz, Barry A
Have you tried their website (frontline.compuware.com)?  The manuals are
there for downloading.

-Original Message-
From: Shaja [mailto:snip] 
Sent: Wednesday, July 09, 2008 6:28 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: User/Ref Manual for CSS

Hello all,

Currently I am working on a batch service to extract Abend-aid DDIO
Files. 
However I could not find any documentation on this...Does any one have
the User/Ref Manual for Compuware Shared Services ( CSS ) ..?

--
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: Going unsupported - time to fold?

2008-07-09 Thread Peggy Andrews
To all:
Thank you for the various inputs for my thought process - that is one
of the benefits and enjoyments of this discussion list.

Just to share what is going on here:

We are currently moving to a PeopleSoft environment (40 servers, which
includes a DR site) to replace CGI-AMS financials/HR packages on the
mainframe.  Financials is already *mostly* running on the distributed
platform and HR is scheduled for golive the beginning of August.  Beyond
these two applications, there will remain about a dozen assorted CICS
applications, which is what they believe they should move off the
mainframe as soon as possible, for the "cost savings" (known as budget
cuts).  

Of interest in this story is: 1) these remaining applications are used
primarily as our revenue applications; 2) a project manager's progress
tracking tool where 10 of these are listed as being in a *planning*
stage - although our applications team has not seen individual project
plans for each application; 3) this means no design or procurement of
replacement applications has begun; 4) a statement has been made to
management that the *majority* of these applications will be off of the
mainframe by the end of the year.

So, I have been involved and cross trained for the Linux environment
installed for Peoplesoft, and my supervisor wants to know if I have time
to do a z/OS upgrade for something that's *going away*.

Again, thanks for all of the posts.

Peggy

--
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: South Dakota migrates off mainframe; chaos ensues

2008-07-09 Thread Pommier, Rex R.
Hi John,

Interesting way for my home state to get in the media!!  Unfortunately
the state made a "slight" mistake in this implementation.  The
legislature decided to change the way license plates are handled when a
vehicle gets sold.  They switched from the plates going with the vehicle
to the plates staying with the seller.  There was a hard implementation
date to get this change made.  Unfortunately they apparently decided to
use this law change as the reason to migrate the application off the
mainframe.  So, they had no fall-back ability in case of problems -
which apparently are myriad.  One of my co-workers said he heard the
application needs to be cycled multiple times a day - either to keep it
from crashing or because of crashes.

Rex



> Subject: South Dakota migrates off mainframe; chaos ensues
> 
> From this week's TechTarget magazine(watch for line wrap here)
> 
> 
> http://www.mail2web.com/cgi-bin/redir.asp?lid=0&newsite=http:/
> /go.techtarget
> .com/r/3997279/567145
> 
> DJ

Tinyurl to that site.

http://preview.tinyurl.com/6o4oqe

--
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: Sort Trivia - or What Were You Thinking?

2008-07-09 Thread William H. Blair
Martin Kline wrote:

| //BUILD   EXEC PGM=IEBGENER  
| //SYSUT1   DD  * 
| RECORD 1 PLUS SOME EXTRANEOUS CHARACTERS  > 40   
| RECORD 2 PLUS SOME EXTRANEOUS CHARACTERS  > 40   
| RECORD 3 PLUS SOME EXTRANEOUS CHARACTERS  > 40   
| RECORD 10 PLUS SOME EXTRANEOUS CHARACTERS > 40   
| RECORD 11 PLUS SOME EXTRANEOUS CHARACTERS > 40   
| RECORD 12 PLUS SOME EXTRANEOUS CHARACTERS > 40   
| //SYSUT2   DD  DISP=(,PASS),SPACE=(TRK,1),   
| // DSN=&ORIG,   
| // RECFM=FB,LRECL=80,BLKSIZE=8000
| //SYSINDD  DUMMY 
| //SYSPRINT DD  SYSOUT=*  
| //*--
| //*  COPY THE FIRST 40 BYTES OF EACH INPUT RECORD
| //*--
| //SORT1   EXEC PGM=SORT  
| //SORTIN   DD  DISP=(OLD,PASS),DSN=&ORIG
| //SORTOUT  DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,1),
| // DCB=(RECFM=FB,LRECL=24,BLKSIZE=2400), 
| // DSN=&TEMP1   
| //SORTMSG  DD  DUMMY  
| //SYSINDD  * 
|  SORT FIELDS=(1,8,CH,A)  
|  OUTREC FIELDS=(1,40)
| //*---   
| //*  EXPAND THE RECORDS FROM THE COPY
| //*---   
| //SORT2   EXEC PGM=SORT  
| //SORTIN   DD  DISP=(OLD,PASS),DSN=&TEMP1   
| //SORTOUT  DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,1),
| // DCB=*.SORT1.SORTIN,DSN=&TEMP2
| //SORTMSG  DD  DUMMY  
| //SYSINDD  * 
|  SORT FIELDS=(3,7,CH,A)  
| //*  

> how many bytes will be in the output TEMP2 file? 

The answer centers around the answers to two questions: 

(1) What DCB characteristics will the SORTOUT data set 
in step SORT2 actually end up having?

(2) How does the SORT utility behave with that DCB?

The answers are as follows:

(1) DCB=*.SORT1.SORTIN on the SORTOUT DD statement in
step SORT2 is useless, because there is no DCB in
the JFCB to copy (because there was no DCB on the
referenced DD statement). And there will still be 
none after the step executes, because that DDNAME
will have been OPENed for INPUT.

Consequently, data set &TEMP2 will be allocated
with undefined DCB characteristics (of interest). 

It is possible that SMS or installation controls
or OEM products could cause this to be different,
so not all sites will necessarily experience the
same results.

(2) In step SORT2, ICEMAN will discover that the output
data set has "missing" DCB characteristics and will
copy the DCB characteristics from the &TEMP1 data
set referenced by DDNAME SORTIN. I don't know what
SYNCSORT will do but it should probably do exactly
the same thing (at least it used to do so, in my 
memory).

Thus, the DCB of &TEMP2 will, I predict, end up being
LRECL=24. Hence, with 6 input records, there will be
6 * 24 = 144 bytes in the &TEMP2 data set. 

Ulrich Krueger wrote: 

> I suspect that your TEMP2 dataset ended up with a LRECL=80 
> (as requested by the DCB=*.SORT1.SORTIN referback), 

Nope. It will end up being LRCEL=24 as discussed above.

> but you only had 24 bytes of data in each record (as 
> truncated by the DCB of SORT1.SORTOUT). 

That is true, but only because the SORT utility normally
ensures that the SORTOUT data set will have an LRECL that
is consistent with the SORTIN data set (and NOT because 
of the DCB=*.SORT1.SORTIN referback).


The key to understanding all of this is the fact that 
the DCB=*.SORT1.SORTIN parameter on the SORTOUT DD 
statement in step SORT2 accomplishes exactly nothing. 

--
WB

--
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: SV: PCOMM file xfer question (and rant)

2008-07-09 Thread Don Leahy
FWIW, I got tired of struggling with emulator settings years ago.  I
use ISPF Work Station Agent (WSA) for moving files between my
workstation and the mainframe.

It's free, it's fast (way faster than IND$FILE, maybe faster than
FTP), it's secure and it's easy to use.  You can easily automate it
using TSO Rexx, and you can run it in batch so that it doesn't tie up
your TSO session.

--
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: SV: PCOMM file xfer question (and rant)

2008-07-09 Thread Roger Bolan
No.  The PCOMM help panel and examples is all I know about.   Just get 
some sample file names and experiment.  The "Test Templates" box on the 
bottom of the window for defining templates is your friend.  It can show 
you which template is going to handle your file, and what the resulting 
host name will be. 

Roger Bolan
infoprint.com
Boulder, Colorado, USA 

P Think before you print 

IBM Mainframe Discussion List  wrote on 07/09/2008 
07:35:37 AM:

> Do You where I can get the syntax rules for 
> the templates ?
> The help in PCOMM have examples but not the 
> exact syntax. 
> 
> 
> TIA
> Thomas Berg

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



SV: SV: PCOMM file xfer question (and rant)

2008-07-09 Thread Thomas Berg
Yes, I know the help but there is only examples.  
And although it's enough (together with the 
delivered templates) to get it running, I had 
some req's in the past that didn't worked as 
expected.

I'm just baffled that there doesn't seems to 
exist any syntax descriptions.

Regards,
Thomas
__
Thomas Berg   Specialist   IT-U   SWEDBANK

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] För Lizette 
Koehler
Skickat: den 9 juli 2008 19:10
Till: IBM-MAIN@BAMA.UA.EDU
Ämne: Re: SV: PCOMM file xfer question (and rant)

I typically use the HELP function for the templates.  It is not a great write 
up, but sufficient.

Go to HELP, then INDEX then locate TEMPLATE.

Select MVS/TSO.

Lizette


>Is it really no one that knows where the syntax rules for the templates 
>like in "p*=1.*=4.*=5.trs" is described ?
>
>

--
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: SV: PCOMM file xfer question (and rant)

2008-07-09 Thread Lizette Koehler
I typically use the HELP function for the templates.  It is not a great write 
up, but sufficient.

Go to HELP, then INDEX then locate TEMPLATE.

Select MVS/TSO.

Lizette


>Is it really no one that knows where the syntax rules
>for the templates like in "p*=1.*=4.*=5.trs" is described ?
>
>

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



SV: PCOMM file xfer question (and rant)

2008-07-09 Thread Thomas Berg
Is it really no one that knows where the syntax rules
for the templates like in "p*=1.*=4.*=5.trs" is described ?

TIA
Thomas Berg
__
Thomas Berg   Specialist   IT-U   SWEDBANK

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] För Thomas Berg
Skickat: den 9 juli 2008 15:36
Till: IBM-MAIN@BAMA.UA.EDU
Ämne: SV: PCOMM file xfer question (and rant)

Do You where I can get the syntax rules for the templates ?
The help in PCOMM have examples but not the exact syntax. 


TIA
Thomas Berg
__
Thomas Berg   Specialist   IT-U   SWEDBANK

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] För Roger Bolan
Skickat: den 8 juli 2008 22:26
Till: IBM-MAIN@BAMA.UA.EDU
Ämne: Re: PCOMM file xfer question (and rant)

...

You can predefine your needs for renaming the files automatically as you upload 
them.  For example, I have a template for PC files with names like 
*=1.*=2.*=3.*=4.*=5.trs that automatically get renamed to 
p*=1.*=4.*=5.trs and use the tersed transfer type.  

...

Roger Bolan
infoprint.com

Boulder, Colorado, USA 


P Think before you print 

--
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: South Dakota migrates off mainframe; chaos ensues

2008-07-09 Thread McKown, John
> -Original Message-
> From: The IBM z/VM Operating System 
> [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED]
> Sent: Wednesday, July 09, 2008 11:17 AM
> To: [EMAIL PROTECTED]
> Subject: South Dakota migrates off mainframe; chaos ensues
> 
> From this week's TechTarget magazine(watch for line wrap here)
> 
> 
> http://www.mail2web.com/cgi-bin/redir.asp?lid=0&newsite=http:/
> /go.techtarget
> .com/r/3997279/567145
> 
> DJ

Tinyurl to that site.

http://preview.tinyurl.com/6o4oqe

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.  

--
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: PCOMM file xfer question (and rant)

2008-07-09 Thread Roger Bolan
I learned a good trick only a few years ago that made PCOMM much faster 
for me.   Apparently it goes to the DNS for name resolution often (like 
every "packet" of some kind).  Changing the definitions of my links for my 
sessions from using names to the actual numeric IP addresses allows PCOMM 
to bypass those DNS name resolutions and everything uploaded much faster. 

You can also go into the General tab in the  File Transfer Settings and 
optimize the Packet Size and File Transfer Timeout for your needs. 

Roger Bolan

infoprint.com
Boulder, Colorado, USA 

P Think before you print 

IBM Mainframe Discussion List  wrote on 07/09/2008 
06:36:47 AM:

> I used PCOMM for many years, but never really liked it. 
> Its settings are non-intuitive and it usually chooses the 
> wrong ones for you. 
> It can be very, very slow. 
> It has a tendency to break in the middle of large transfers. 
> 

--
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: PCOMM file xfer question (and rant)

2008-07-09 Thread Roger Bolan
Hmm.   Maybe it's not age.  Maybe they just need better names.  :-) 

Roger Bolan

IBM Mainframe Discussion List  wrote on 07/08/2008 
11:04:38 PM:

> Glad I am not the only one who uses PCOMM for ftp I had set up 
> the templates with the different dcb and space stuff ages ago, and I
> am quite happy using it.My problem is that I keep forgetting 
> what name is what setup and have to go take a look every time. But 
> that's older age for you :-(
> 
> Regards, Barbara Nitz

--
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: Going unsupported - time to fold?

2008-07-09 Thread Hal Merritt
Right on. The OP asked how to evaluate and quantify the risks of being
unsupported. The consensus seems to be that the risks are minimal. 

The OP can now give some unemotional, technical answers. 

Let's keep in mind that going 'unsupported' in tinkertoy land is a high
risk option because of the frequency of security related updates.   

He he he.



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Gerhard Adam
Sent: Wednesday, July 09, 2008 11:19 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Going unsupported - time to fold?

 


All this may be true 

The problem is not whether it is true or not, but whether it is really
your 
responsibility to raise these questions.  It's one thing if your input
is 
being solicited, but it becomes problematic when management is being 
questioned about expenditures and costs by subordinates.

As I said, these questions need to be answered, and ultimately they will
be. 
However, all too often, the people raising concerns don't have the
complete 
story (and are not involved in the decisions), so when they begin to
push 
the issue they are perceived as stepping way over the line regarding
both 
their authority and responsibility.

>From the general tone of this discussion, we need to take a step back
and 
stop assuming that we're the only people that care what happens in an 
organization. 

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

NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

--
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: Sort Trivia - or What Were You Thinking?

2008-07-09 Thread Ulrich Krueger
I'll bite ...
I suspect that your TEMP2 dataset ended up with a LRECL=80 (as requested by
the DCB=*.SORT1.SORTIN referback), but you only had 24 bytes of data in each
record (as truncated by the DCB of SORT1.SORTOUT).


Regards,
Ulrich Krueger


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Martin Kline
Sent: Wednesday, July 09, 2008 08:46
To: IBM-MAIN@BAMA.UA.EDU
Subject: Sort Trivia - or What Were You Thinking?

I had to laugh when I received a similar set of JCL from a production job.
The 
input was actually a file, but I've simulated it inline for demonstration 
purposes. Without running the JCL, can anyone tell how many bytes will be in

the output TEMP2 file?  Hint: We had DFSORT running with the default option 
for the TRUNC parameter, and all steps ran with cond code 0.  Additional
hint: 
your initial guess will probably be wrong.

//BUILD   EXEC PGM=IEBGENER  
//SYSUT1   DD  * 
RECORD 1 PLUS SOME EXTRANEOUS CHARACTERS  > 40   
RECORD 2 PLUS SOME EXTRANEOUS CHARACTERS  > 40   
RECORD 3 PLUS SOME EXTRANEOUS CHARACTERS  > 40   
RECORD 10 PLUS SOME EXTRANEOUS CHARACTERS > 40   
RECORD 11 PLUS SOME EXTRANEOUS CHARACTERS > 40   
RECORD 12 PLUS SOME EXTRANEOUS CHARACTERS > 40   
//SYSUT2   DD  DISP=(,PASS),SPACE=(TRK,1),   
// DSN=&&ORIG,   
// RECFM=FB,LRECL=80,BLKSIZE=8000
//SYSINDD  DUMMY 
//SYSPRINT DD  SYSOUT=*  
//*--
//*  COPY THE FIRST 40 BYTES OF EACH INPUT RECORD
//*--
//SORT1   EXEC PGM=SORT  
//SORTIN   DD  DISP=(OLD,PASS),DSN=&&ORIG
//SORTOUT  DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,1),
// DCB=(RECFM=FB,LRECL=24,BLKSIZE=2400), 
// DSN=&&TEMP1   
//SORTMSG  DD  DUMMY  
//SYSINDD  * 
 SORT FIELDS=(1,8,CH,A)  
 OUTREC FIELDS=(1,40)
//*---   
//*  EXPAND THE RECORDS FROM THE COPY
//*---   
//SORT2   EXEC PGM=SORT  
//SORTIN   DD  DISP=(OLD,PASS),DSN=&&TEMP1   
//SORTOUT  DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,1),
// DCB=*.SORT1.SORTIN,DSN=&&TEMP2
//SORTMSG  DD  DUMMY  
//SYSINDD  * 
 SORT FIELDS=(3,7,CH,A)  
//*  

--
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: Going unsupported - time to fold?

2008-07-09 Thread Gerhard Adam
It might succeed, if management throws enough manpower and servers into 
it. But at what expense? Who's going to coordinate the implementation? 
Who's going to determine and map out all the interactions between datasets 
and processes? How will data be moved from one process to the next, 
perhaps on a different server? How many "administrators" will be required 
to maintain that whole enterprise (polite word for mess?) Are programs to 
be translated from COBOL to another language? Who's going to train staff? 
At what expense?


I believe that these are all valid questions that need to be answered 
before any prognosis of success or failure can be made.


In my admittedly limited experience, that server farm is going to take a 
significant increase in manpower just to maintain the status quo; finding 
and/or making a developer staff is also going to be a major headache. You 
might find people that know the languages, but they still need to learn 
about the business. And as others have already noted, security and legal 
issues will further muddy the waters.





All this may be true 

The problem is not whether it is true or not, but whether it is really your 
responsibility to raise these questions.  It's one thing if your input is 
being solicited, but it becomes problematic when management is being 
questioned about expenditures and costs by subordinates.


As I said, these questions need to be answered, and ultimately they will be. 
However, all too often, the people raising concerns don't have the complete 
story (and are not involved in the decisions), so when they begin to push 
the issue they are perceived as stepping way over the line regarding both 
their authority and responsibility.


From the general tone of this discussion, we need to take a step back and 
stop assuming that we're the only people that care what happens in an 
organization. 


--
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: wildcard utilities

2008-07-09 Thread Ulrich Krueger
Jim,
Have you thought about using the Catalog Search Interface within a REXX Exec
to retrieve the dataset information you need? Then process the results to
create the necessary JCL or allocation statements.
Please search the IBM-Main Archives for references to "IGGCSI" or "Catalog
Search Interface". Also look at your SYS1.SAMPLIB for IGGCSI.. members.


Regards,
Ulrich Krueger

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of SUBSCRIBE IBM-MAIN Jim
Sent: Wednesday, July 09, 2008 06:03
To: IBM-MAIN@BAMA.UA.EDU
Subject: wildcard utilities

I have been struggling with a way to use wildcards as a means of not having 
to know all dataset names that may be created within a day's time.  I know 
you can use wildcards within a IDCAMS using the LISTCAT ENTRIES 
statement, but what I would really like is to be able to copy all the
wildcard 
datasets to another single dataset for reporting type purposes.  We have 
quite a few products on our mainframe, but I really don't know the best 
approach or software.  Below is a brief example of what I want to
accomplish.

 All the datasets are -  ORG of PS, RECFM = FB, LRECL = 133, BLKSIZE = 5985
 

 DISK.TEST.DATASETA
 DISK.TEST.DATASETB
 DISK.TEST.DATASETC

 Hopefully use wildcard of DISK.TEST.** to pick up ALL datasets and then 
copy to any other name I choose - DISK.BACKUP.DATASETS.  Then using that 
dataset to print out a single report in a viewable format.

Thanks in advance for any and all suggestions.

--
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: STARTIO macro doc

2008-07-09 Thread Rick Fochtman


I want to do like Flex and Hercules do where the tape is really a file 
on DASD.

--
Go out to the CBTTAPE site and look for AWSTAPE info/programs. Sam Golob 
can help with information there as well. You don't really need STARTIO, 
or even EXCP, to emulate that format. AFAIK, Sam uses QSAM for the 
actual I/O; the devil is in the format details.


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



Sort Trivia - or What Were You Thinking?

2008-07-09 Thread Martin Kline
I had to laugh when I received a similar set of JCL from a production job. The 
input was actually a file, but I've simulated it inline for demonstration 
purposes. Without running the JCL, can anyone tell how many bytes will be in 
the output TEMP2 file?  Hint: We had DFSORT running with the default option 
for the TRUNC parameter, and all steps ran with cond code 0.  Additional hint: 
your initial guess will probably be wrong.

//BUILD   EXEC PGM=IEBGENER  
//SYSUT1   DD  * 
RECORD 1 PLUS SOME EXTRANEOUS CHARACTERS  > 40   
RECORD 2 PLUS SOME EXTRANEOUS CHARACTERS  > 40   
RECORD 3 PLUS SOME EXTRANEOUS CHARACTERS  > 40   
RECORD 10 PLUS SOME EXTRANEOUS CHARACTERS > 40   
RECORD 11 PLUS SOME EXTRANEOUS CHARACTERS > 40   
RECORD 12 PLUS SOME EXTRANEOUS CHARACTERS > 40   
//SYSUT2   DD  DISP=(,PASS),SPACE=(TRK,1),   
// DSN=&&ORIG,   
// RECFM=FB,LRECL=80,BLKSIZE=8000
//SYSINDD  DUMMY 
//SYSPRINT DD  SYSOUT=*  
//*--
//*  COPY THE FIRST 40 BYTES OF EACH INPUT RECORD
//*--
//SORT1   EXEC PGM=SORT  
//SORTIN   DD  DISP=(OLD,PASS),DSN=&&ORIG
//SORTOUT  DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,1),
// DCB=(RECFM=FB,LRECL=24,BLKSIZE=2400), 
// DSN=&&TEMP1   
//SORTMSG  DD  DUMMY  
//SYSINDD  * 
 SORT FIELDS=(1,8,CH,A)  
 OUTREC FIELDS=(1,40)
//*---   
//*  EXPAND THE RECORDS FROM THE COPY
//*---   
//SORT2   EXEC PGM=SORT  
//SORTIN   DD  DISP=(OLD,PASS),DSN=&&TEMP1   
//SORTOUT  DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,1),
// DCB=*.SORT1.SORTIN,DSN=&&TEMP2
//SORTMSG  DD  DUMMY  
//SYSINDD  * 
 SORT FIELDS=(3,7,CH,A)  
//*  

--
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: CA-View

2008-07-09 Thread Mark Zelden
On Wed, 9 Jul 2008 16:12:41 +0100, Gerry Anstey <[EMAIL PROTECTED]>
wrote:

>As already said we WANT to be able to mount but would like the choice of
>whether to mount. Is there a way? eg in our previous product, in this
>situation it would pause and give you the chance to Not do it.
>

I think your only choice is to disable it or educate users to not use "S" when
they see the location is on tape.I think forcing a batch job for all
tape recalls
(virtual or not) is such not a bad thing, but I guess it would be a nice
enhancement
to be prompted.  Create a DAR with CA.

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS 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: Going unsupported - time to fold?

2008-07-09 Thread Rick Fochtman

-
FWIW, I pretty much agree with you. I'm not terribly comfortable with 
the "Let it fail" philosophy, though; I would feel obligated to try to 
save the company/agency some pain if I could do it simply by pointing 
out some potential red flags


I think that it would be a grave disservice not to wave those red flags 
and at least make my concerns known, in writing whereever possible. If 
the management team fails to address them, I can at least have the 
satisfaction of knowing that I tried to prevent, or at least minimize, 
the scale of the disaster.


It can be a very career-limiting move to thumb your nose and shout "I 
told you so", but you can always think it. :-)


--
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: CA-View

2008-07-09 Thread Beesley, Paul
You can't do anything with the product as it is, but you may be able to
do something by adding functionality to  Lionel Dyck's CAVXTRT 
http://www.lbdsoftware.com/ispftools.html


Paul 


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Gerry Anstey
Sent: Wednesday, July 09, 2008 11:13 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: CA-View

As already said we WANT to be able to mount but would like the choice of
whether to mount. Is there a way? eg in our previous product, in this
situation it would pause and give you the chance to Not do it.

Mark did you not read what I wrote? I ask because you are normally very
attentive.



___

Atos Origin and Atos Consulting are trading names used by the Atos Origin 
group.  The following trading entities are registered in England and Wales:  
Atos Origin IT Services UK Limited (registered number 01245534) and Atos 
Consulting Limited (registered number 04312380).  The registered office for 
each is at 4 Triton Square, Regents Place, London, NW1 3HG.

This e-mail and the documents attached are confidential and intended solely for 
the addressee, and may contain confidential or privileged information.  If you 
receive this e-mail in error, you are not authorised to copy, disclose, use or 
retain it.  Please notify the sender immediately and delete this email from 
your systems.   As emails may be intercepted, amended or lost, they are not 
secure.  Atos Origin therefore can accept no liability for any errors or their 
content.  Although Atos Origin endeavours to maintain a virus-free network, we 
do not warrant that this transmission is virus-free and can accept no liability 
for any damages resulting from any virus transmitted.   The risks are deemed to 
be accepted by everyone who communicates with Atos Origin by email. 
___

--
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: STARTIO macro doc

2008-07-09 Thread Lindy Mayfield
Hal, you're absolutely correct in what you say.  It's quite easy to convert JCL 
that reads tapes to reading files off of DASD.  But for testing and developing 
things that actually read from tapes it is better if nothing changes.  And I 
like the way Flex and Hercules does it.

Of course I've given up on this idea because I'm not ready for something this 
difficult (yet).  And other companies already have such products.  I'll have to 
wait and dream up another idea.



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Hal 
Merritt
Sent: 9. heinäkuuta 2008 18:06
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: STARTIO macro doc

Still a little confused. What are you trying to do? If all you want to do is 
read a file, then just do it. Under z/os, the device type is of no particular 
interest to the application program. Z/os tracks the device type for you and 
uses appropriate I/O routines automatically. 

That is, a given file can exist on any flavor of tape, virtual tape, DASD, or 
whatever. The application program need only specify the file (dataset) name in 
the JCL or in the dynamic allocation interface. Assuming the file layout is the 
same, then the application program can read from all of those devices and 
remain completely unaware and uncaring.  

If you want to create a file, then just specify the device type you want to use 
for this specific instance in your JCL. Again, z/os handles all the details for 
you.   

Consider that 'tape' actually covers a very large number of possible device 
types, each with peculiar requirements. Some 'tape' units may actually be DASD 
under the covers. But, again, typically this is of no concern. 

HTH  

--
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: Going unsupported - time to fold?

2008-07-09 Thread Rick Fochtman



I hate to rain on anyone's parade, but all the posts notwithstanding, 
the problem here isn't failure, but the fear that it might actually 
succeed.


If the project is as doomed to failure as many have been saying, then 
so what!  Let it fail.  It might be a difficult time and a humbling 
experience for some, but in the end the original system will be 
vindicated.  However, I suspect that the real concern is that it might 
actually work.  Maybe not as well ... maybe without all the bells and 
whistles, but in the end if it does tha job, then management will have 
been vindicated in the decision.


Doom and gloom is not a way to convince management of the proper 
course.  If the project can succeed, then you'd better get on board 
now, because the train is leaving the station.  If the project is 
doomed to fail, then that will also be apparent soon enough.


--
It might succeed, if management throws enough manpower and servers into 
it. But at what expense? Who's going to coordinate the implementation? 
Who's going to determine and map out all the interactions between 
datasets and processes? How will data be moved from one process to the 
next, perhaps on a different server? How many "administrators" will be 
required to maintain that whole enterprise (polite word for mess?) Are 
programs to be translated from COBOL to another language? Who's going to 
train staff? At what expense?


I believe that these are all valid questions that need to be answered 
before any prognosis of success or failure can be made.


In my admittedly limited experience, that server farm is going to take a 
significant increase in manpower just to maintain the status quo; 
finding and/or making a developer staff is also going to be a major 
headache. You might find people that know the languages, but they still 
need to learn about the business. And as others have already noted, 
security and legal issues will further muddy the waters.


--
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: Going unsupported - time to fold?

2008-07-09 Thread Hal Merritt
I would argue that the better attitude is "make it work". You are going
to be under the gun no matter which way you choose. If you are making an
honest effort to 'make it so', then it is far more difficult to be a
target if/when the blood starts flowing. 

My $0.02 (before taxes)

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Gerhard Adam
Sent: Tuesday, July 08, 2008 8:28 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Going unsupported - time to fold?

> FWIW, I pretty much agree with you.  I'm not terribly comfortable with
> the "Let it fail" philosophy, though; I would feel obligated to try to
> save the company/agency some pain if I could do it simply by pointing
> out some potential red flags.
>

"Let it fail" is not a philosphy, but rather it is an attempt to let 
decision-makers be responsible for the decisions they make.  In the
scenario 
described there is apparently a management decision and a project
manager 
that believe that the z/series processor can be migrated in the next 6 
months.  It would appear that the onus is on them to deliver.

>From their perspective, there is no "pain" from which to save them.  Any

attempt to convince them otherwise will only reflect negatively on the 
"advice-giver".

Besides ... what makes everyone so sure that they're wrong?

Adam

 

NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

--
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: CA-MIM/Integrity abend.

2008-07-09 Thread Rick Fochtman


I have always been advised against giving information to users, 
operators, programmers, etc. on the grounds that they were all dummies. 
It was said that they could not be trained, especially if it was 
perceived that they should already know. Further, it was contended, 
giving the user-dummies information would only make them dangerous.


I have never followed that advice. I've worked with hundreds of people 
who were alleged to be too stupid to learn to do things right. Every one 
of them was better off for having things explained to them. In my 
experience, the user-dummy always benefits from whatever education you 
can give him. The organization always benefits as well.


I always encouraged people to talk with their co-workers or immediate 
supervisors first, keeping myself as a last resort. And I was very 
tight-lipped about anything concerning security.


--
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: CA-View

2008-07-09 Thread Jousma, David
The only option that I am aware of to do what you ask is to disallow
online mounts, and make the user submit a batch job from the CA-VIEW
interface to run the job to reload the output to disk.  

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Gerry Anstey
Sent: Wednesday, July 09, 2008 11:13 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: CA-View

As already said we WANT to be able to mount but would like the choice of
whether to mount. Is there a way? eg in our previous product, in this
situation it would pause and give you the chance to Not do it.

Mark did you not read what I wrote? I ask because you are normally very
attentive.


This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.

--
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 long to install a ServerPac

2008-07-09 Thread Rick Fochtman

I usually did them alone, in about 6 weeks.

Neal Eckhardt wrote:


I've done several of these with little or no help. I was wondering
what most companies estimate it takes from the receipt of tapes, to
the first production IPL. 


Please answer with number of people on the project, and approximate
number of weeks to complete the project. I know what I tell people a
project like this should take, but I would be interested in knowing
how far off I am.

Neal

--
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: CA-View

2008-07-09 Thread Gerry Anstey
As already said we WANT to be able to mount but would like the choice of
whether to mount. Is there a way? eg in our previous product, in this
situation it would pause and give you the chance to Not do it.

Mark did you not read what I wrote? I ask because you are normally very
attentive.

GA


   
 Mark Zelden   
 <[EMAIL PROTECTED] 
 CHNA.COM>  To 
 Sent by: IBM  IBM-MAIN@BAMA.UA.EDU
 Mainframe  cc 
 Discussion List   
 <[EMAIL PROTECTED] Subject 
 .EDU> Re: CA-View 
   
   
 09/07/2008 14:14  
   
   
 Please respond to 
   IBM Mainframe   
  Discussion List  
 <[EMAIL PROTECTED] 
   .EDU>   
   
   




As already said...  Turn mount off then if a person selects an archived
report
they get a "no mount authority" error message.

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




On Wed, 9 Jul 2008 11:27:38 +0100, Gerry Anstey <[EMAIL PROTECTED]>
wrote:

>Paul, thanks,  we do want to allow tape mounts but would like somehow to
be
>given some sort of choice of offline processing when someone selects a job
>that is on Virtual tape. Our users use S or ? to select the job and by
then
>it is too late to avoid the terminal lock for it seems like 10mins or
more.
>Before CA-view we had AVRS, in a similar situation it would just come back
>and say the job was archived and you could choose retrieve or not. Quite
>often when selecting a job a user has no idea that it is in fact archived.
>
>any ideas anyone?
>
>Gerry
>
>
>
> "Beesley, Paul"
> <[EMAIL PROTECTED]
> SORIGIN.COM>   To
> Sent by: IBM  IBM-MAIN@BAMA.UA.EDU
> Mainframe  cc
> Discussion List
> <[EMAIL PROTECTED] Subject
> .EDU> Re: CA-View
>
>
> 09/07/2008 10:45
>
>
> Please respond to
>   IBM Mainframe
>  Discussion List
> <[EMAIL PROTECTED]
>   .EDU>
>
>
>
>
>
>
>Gerry
>
>We don't allow tape mounts from CA-View due to the length of time taken
>to do a mount ( although in these days of virtual tape it's a lot
>quicker ).
>Instead, users use the J line command to generate a batch job to print
>the output ( or L  to reload it to disk ).
>
>From the CA-View user manual :
>For all TSO users (both native TSO and ISPF/SPF), whether you are
>authorized for online tape mounts is determined by how your system
>administrator configured your account with the TSO ACCOUNT command.
>Alternatively, your site may choose to disable all online tape mounts
>for
>Unicenter CA-View with the MOUNT=NO option.
>
>hth.
>Regards
>
>Paul
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
>Behalf Of Gerry Anstey
>Sent: 09 July 2008 10:21
>To: IBM-MAIN@BAMA.UA.EDU
>Subject: CA-View
>
>All,
>
>We have CA-View, when you select a job that has been archived to tape it
>has this annoying habit of going off and getting it leaving the terminal
>locked for a long time. Anyone know of a way of getting it to give you
>the choice? Some sort of option somewhere? I have RTFM'd but if it's
>there it's well hidden.
>
>thank
>Gerry Anstey
>
>
>Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
>
>
>Generally, this communication is for informational purposes only
>and it is not intended as an offer or solici

Re: STARTIO macro doc

2008-07-09 Thread Hal Merritt
Still a little confused. What are you trying to do? If all you want to do is 
read a file, then just do it. Under z/os, the device type is of no particular 
interest to the application program. Z/os tracks the device type for you and 
uses appropriate I/O routines automatically. 

That is, a given file can exist on any flavor of tape, virtual tape, DASD, or 
whatever. The application program need only specify the file (dataset) name in 
the JCL or in the dynamic allocation interface. Assuming the file layout is the 
same, then the application program can read from all of those devices and 
remain completely unaware and uncaring.  

If you want to create a file, then just specify the device type you want to use 
for this specific instance in your JCL. Again, z/os handles all the details for 
you.   

Consider that 'tape' actually covers a very large number of possible device 
types, each with peculiar requirements. Some 'tape' units may actually be DASD 
under the covers. But, again, typically this is of no concern. 

HTH  

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of 
Lindy Mayfield
Sent: Tuesday, July 08, 2008 5:31 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: STARTIO macro doc

I want to do like Flex and Hercules do where the tape is really a file on DASD.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Hal 
Merritt
Sent: 9. heinäkuuta 2008 1:21
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: STARTIO macro doc

Consider device redirection using SMS. That is, when an application
calls for tape it is transparently redirected to DASD. 

AFAIK, 'virtual tape' is still physical tape. It is just a way to put
many logical tape volumes on one physical tape volume in a way that is
transparent to the application.  

Or am I not understanding what you want to do? 
 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Lindy Mayfield
Sent: Tuesday, July 08, 2008 5:13 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: STARTIO macro doc

Does anyone have (or know a link to) any documentation on STARTIO?
Google gave up a hint that there was a SHARE presentation on it, but no
links that I could find.

 

I'm still thinking how one might create a virtual tape on DASD device on
z/OS.  Maybe STARTIO is the way to do it.

 

Thanks,

Lindy

 

NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

--
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: wildcard utilities

2008-07-09 Thread Hal Merritt
You can do something like this:

HLQ = 'DISK.TEST'
X = OUTTRAP("CATLINE.",9,"NOCONCAT")
 "LISTC LEVEL("HLQ")"
 X = OUTTRAP("OFF")
  
 DO LOGLINE = 1 TO CATLINE.0 
  DSN = WORD(CATLINE.LOGLINE,3)
  SAY DSN 
 END  

Note the limit on the number of entries returned (100k-1).  

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of SUBSCRIBE IBM-MAIN Jim
Sent: Wednesday, July 09, 2008 8:03 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: wildcard utilities

I have been struggling with a way to use wildcards as a means of not
having 
to know all dataset names that may be created within a day's time.  I
know 
you can use wildcards within a IDCAMS using the LISTCAT ENTRIES 
statement, but what I would really like is to be able to copy all the
wildcard 
datasets to another single dataset for reporting type purposes.  We have

quite a few products on our mainframe, but I really don't know the best 
approach or software.  Below is a brief example of what I want to
accomplish.

 All the datasets are -  ORG of PS, RECFM = FB, LRECL = 133, BLKSIZE =
5985
 

 DISK.TEST.DATASETA
 DISK.TEST.DATASETB
 DISK.TEST.DATASETC

 Hopefully use wildcard of DISK.TEST.** to pick up ALL datasets and then

copy to any other name I choose - DISK.BACKUP.DATASETS.  Then using that

dataset to print out a single report in a viewable format.

Thanks in advance for any and all suggestions.

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

NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

--
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 to change the ISPF code page?

2008-07-09 Thread Edward Jaffe

Lindy Mayfield wrote:
[snip]

CHARACTER SETS
001B8185 8200070C  0700 02B90025 0100F103 C30136
  


A perusal of the 3270 Data Stream Reference shows that '0025' in the 
above string is the code page number. Your emulator is passing back code 
page 37 (decimal) on the RPQ response.


--
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.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: wildcard utilities

2008-07-09 Thread Jack Kelly

use wildcards as a means of not having  to know all dataset names that may 
be created within a day's time.


You may want to look at DFDSS or FDR. You can do a TYPRUN=NORUN option 
(DSS) to simply get a list or do the copy/move. both products have wild 
cards as well as selection criteria.

Jack Kelly
202-502-2390 (Office)

--
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: LOOKAT ICH408I

2008-07-09 Thread Hal Merritt
Interesting - I used the web search for 1.7 and also received the cert
message. When I backed up and looked at the book contents, the cert
version was the last listed (Topic 1.4.59).

I guess LOOKAT gets as confused by some of the messages as we do.
Comforting to know we humans are still smarter than the average PC :-D

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Mark Zelden
Sent: Wednesday, July 09, 2008 8:14 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: LOOKAT ICH408I

On Wed, 9 Jul 2008 07:41:05 -0500, Paul [EMAIL PROTECTED]
<[EMAIL PROTECTED]> wrote:

>Just for instructional purposes, I wrote a job step using an undefined
>HLQ that failed with:
>
> ICH408I ...
>   INSUFFICIENT ACCESS AUTHORITY
>   FROM CATALOG.**.MASTER (G)
>
>... and tried LOOKAT ICH408I.
>
>I get:
>
>#1.4.48 "z/OS V1R7.0 Security Server RACF Messages and Codes"
>
___
>
>1.4.48 ICH408I
>


>
>   ICH408I NOT AUTHORIZED TO EXPORT DIGITAL CERTIFICATES
>


WAD.  Look up the message in the RACF Messages and Codes manual.


Is that lookat from the internet?  I get a different result.   There are
81 
different flavors and I get the first one.   I invoke a internet LOOKAT
search
with a Vista TN3270 macro and a keyboard sequence (ctl+left mouse).

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

 

NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

--
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: wildcard utilities

2008-07-09 Thread John Kington
Jim,

> I have been struggling with a way to use wildcards as a means of not
having
> to know all dataset names that may be created within a day's time.  I
know

I am not sure I understand what you are trying to do but I would use
dcollect to gather information on dasd datasets and extract similar data
from your tape management product if I wanted to generate a list of
datasets created yesterday or whatever date.
Regards,
John

--
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: WLM and skip clock

2008-07-09 Thread Max Scarpa
Hi Mark, thank you for your reply

I read it in redbook as well but as you said there's no 'direct' reference
to skip clock concept, only a generic delay (skip) as it was considered
useless to help that workload due to unattainable goals. 

Best regards

Max Scarpa

--
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: WLM and skip clock

2008-07-09 Thread Gerhard Adam

In some past posts, while discussing about WLM, someone introduced 'skip
clock' concept to describe behaviour of wlm when  goals are not reached, 
for

instance because they are quite high and there isn't enough to boost them.
In this case wlm ignores them (or leaves them with reached velocity) until
skip clock expires (so I was told).

Is this skip clock concept described somewhere (manuals, papers ) ?






From the WLM Services:


"They are also skipped when a potential receiver's skip clock hasn't 
expired. If a receiver is assessed and all actions to help it are rejected, 
a skip clock (counter) is set and the service class period will not be 
selected as a receiver again until the skip clock expires." 


--
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: WLM and skip clock

2008-07-09 Thread Max Scarpa
Hi Adam

I've found it, thank you very much

Max Scarpa

--
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: LOOKAT ICH408I

2008-07-09 Thread McKown, John
> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Paul 
> [EMAIL PROTECTED]
> Sent: Wednesday, July 09, 2008 7:41 AM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: LOOKAT ICH408I
> 
> Just for instructional purposes, I wrote a job step using an undefined
> HLQ that failed with:
> 
>  ICH408I ...
>INSUFFICIENT ACCESS AUTHORITY
>FROM CATALOG.**.MASTER (G)
> 
> ... and tried LOOKAT ICH408I.

RACF's ICH408I is like unto IDCAMS' IDC3009 message. It covers a
multitule of generic messages. WAD, I guess.

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.  

--
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: WLM and skip clock

2008-07-09 Thread Mark Zelden
On Wed, 9 Jul 2008 08:12:39 -0500, Max Scarpa <[EMAIL PROTECTED]>
wrote:

>(Cross posted)
>
>Esteemed listers
>
>In some past posts, while discussing about WLM, someone introduced 'skip
>clock' concept to describe behaviour of wlm when  goals are not reached, for
>instance because they are quite high and there isn't enough to boost them.
>In this case wlm ignores them (or leaves them with reached velocity) until
>skip clock expires (so I was told).
>
>Is this skip clock concept described somewhere (manuals, papers ) ?
>

Other than a mention of it in the SMF 99 description, I don't think so.  Many
of the WLM internals are not.   I remember seeing something about this in
the (now old) "OS/390 Workload Manager Implementation and Exploitation"
Redbook (SG24-5326-00)... although it didn't say it was the skip clock. The
same thing is in the current Redook "System Programmer’s Guide to: Workload
Manager" (SG24-6472-03):

"Periods for certain service classes are not candidates for being a receiver
because in the past they were defined as receivers without much improvement
in their PI. Those service class periods are skipped for a while to avoid
wasting
effort. This usually only happens when the installation sets a very
difficult goal."

Regards,

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS 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



SV: PCOMM file xfer question (and rant)

2008-07-09 Thread Thomas Berg
Do You where I can get the syntax rules for 
the templates ?
The help in PCOMM have examples but not the 
exact syntax. 


TIA
Thomas Berg
__
Thomas Berg   Specialist   IT-U   SWEDBANK

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] För Roger Bolan
Skickat: den 8 juli 2008 22:26
Till: IBM-MAIN@BAMA.UA.EDU
Ämne: Re: PCOMM file xfer question (and rant)

Like most things, it is easy once you know the trick.

I use PCOMM all the time for uploading and downloading to z/VM and z/OS 
systems.  I tried FTP and WSA but PCOMM is easier once you have it set up.

First, I have my customized toolbar.  I can't remember if the default one has 
icons on it for upload and download, but mine does.

Click the upload icon, and then click Options at the bottom of the "Send files 
to Host" window.  Then you can define named sets of transfer options for all 
your different systems.  So, for MVS/TSO, I have predefined everything I 
commonly use.  For example, I have a transfer type for MVS/TSO called "tersed" 
which automatically preallocates a file for me with recfm=fixed lrecl=1024 
blksize=27648 and the right number of primary and secondary cylinders. 
Now, back out of Options and click the Templates button.   I really like 
this.  You can predefine your needs for renaming the files automatically as you 
upload them.  For example, I have a template for PC files with names like 
*=1.*=2.*=3.*=4.*=5.trs that automatically get renamed to 
p*=1.*=4.*=5.trs and use the tersed transfer type.   When I upload files 
from a customer that have names of the pattern nn,xxx,yyy.name1.name2.trs 
where nn, xxx, and yyy are all numeric only and therefore illegal on MVS, I 
get pnn.name1.name2.trs as a tersed file on the host.  So now I can select 
whole bunches of these from a folder and upload them all at once with no manual 
renaming and no manual pre allocating of files and no additional SITE commands 
to issue. 

Once you define the transfer types and templates you use all the time, you can 
upload or download any number of files with just a few clicks and have all that 
renaming and DCB attribute stuff taken care of for you. 

Roger Bolan
infoprint.com

Boulder, Colorado, USA 


P Think before you print 

--
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: LOOKAT ICH408I

2008-07-09 Thread Jerry Fuchs
If the HLQ is not defined the data set will be cataloged in the master 
catalog.

Your ID is not authorized to update the master catalog.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Paul [EMAIL PROTECTED]
Sent: Wednesday, July 09, 2008 7:41 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: LOOKAT ICH408I

Just for instructional purposes, I wrote a job step using an undefined
HLQ that failed with:

 ICH408I ...
   INSUFFICIENT ACCESS AUTHORITY
   FROM CATALOG.**.MASTER (G)

... and tried LOOKAT ICH408I.

I get:

#1.4.48 "z/OS V1R7.0 Security Server RACF Messages and Codes"

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



User/Ref Manual for CSS

2008-07-09 Thread Shaja
Hello all,

Currently I am working on a batch service to extract Abend-aid DDIO Files. 
However I could not find any documentation on this...Does any one have the 
User/Ref Manual for Compuware Shared Services ( CSS ) ..?
Appreciate if someone could share it...

Thanks,
Shaja

--
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: Sharing catalog among systems,benefits or trouble?

2008-07-09 Thread Mark Zelden
On Wed, 9 Jul 2008 08:00:25 -0500, Arthur Gutowski <[EMAIL PROTECTED]> wrote:

>Very similar level of sharing here. 


>

>Bottom line:  It can be done if you're careful, understanding and
mitigating the
>risks.  RESERVE/RELEASE has been around for a very long time, and while not
>the most efficient for throughput, it is iron-clad integrity.
>




I obviously agree (I think you were commenting on my post when you wrote
"very similar sharing here"), but it is far from iron-clad. For example,
RESERVE won't keep 2 people from updating the same PDS (or PDS member)
from different sysplexes.   But even though our entire group (7) install and
maintain z/OS and ISV products, only one person will be working on a 
particular product or z/OS maintenance at a time so there has never been
an issue with sharing the "maintenance environment" across the sysplexes.

Regards,

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS 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: want to read a dataset in use

2008-07-09 Thread Paul Gilmartin
On Wed, 9 Jul 2008 00:31:34 -0400, Robert A. Rosenberg wrote:
>
>Thinking outside the box, what happens if I define an ALIAS for the
>top level index (INDEX2 as an alias of INDEX1) or the full dataset
>name (INDEX.FILE2 as an alias of INDEX.FILE1) and try to access via
>the alias'ed name. Will it spot the duplicate usage or do the ENQ on
>the Alias'ed name and thus allow me o get away with it? Also, if I am
>
Empirically, the initiator ENQs on the alias name at the beginning
of the job, and attempts to allocate (thus ENQ) on the real name
at the beginning of the step.  If the latter does not succeed
immediately, it does not wait for it to become available, but fails
with a JCL error.

>... Also, if I am
>APF authorized, I can allocate the dataset bypassing the ENQ and thus
>open it to use to write a duplicate/cloned copy which can then be
>scanned in lieu of the original.
>
Sounds like it's not Shmuel's dog.  OTOH, z/OS Unix files work great.

-- 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: CA-MIM/Integrity abend.

2008-07-09 Thread McKown, John
Well, just got off the phone with CA support. They were very helpful.
For now, I plan to run with GDIF=OFF. That will allow the "contention
management" (ECMF) that requeues jobs if a dataset is not available that
we want. It also leaves EDIF ("don't let the binder corrupt my source
pds") function running as well. We may change from using GRS to MIM, but
that is for another day.

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.  

--
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: WLM and skip clock

2008-07-09 Thread Gerhard Adam

In some past posts, while discussing about WLM, someone introduced 'skip
clock' concept to describe behaviour of wlm when  goals are not reached, 
for

instance because they are quite high and there isn't enough to boost them.
In this case wlm ignores them (or leaves them with reached velocity) until
skip clock expires (so I was told).

Is this skip clock concept described somewhere (manuals, papers ) ?


Check out the WLM Services manual in the Chapter "Using SMF Record Type 99". 
It's not discussed heavily, but it indicates its use.


Adam 


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