HSM migrate

[Chiam, Susan Mee-Shia]

 Hi listers,

Recently, we have added a list of SMS volumes to DB2's pool and they
were mod-9 volumes. The mgmtclass of these
DB2 archived logs is to migrate them after 1 day which is the same as
those that were migrated. 
But..those they were on these  mod-9 volumes did not get migrated...

DB2P.ARCHLOG1.D05310.T0251231.A0119698 MIGRAT2
DB2P.ARCHLOG1.D05310.T0251231.B0119698 MIGRAT2
DB2P.ARCHLOG1.D05310.T0328527.A0119699 DBAXXX 
DB2P.ARCHLOG1.D05310.T0328527.B0119699 MIGRAT2
DB2P.ARCHLOG1.D05310.T0353058.A0119700 MIGRAT2
DB2P.ARCHLOG1.D05310.T0353058.B0119700 MIGRAT2

I could manually migrate the dataset off but what is stopping HSM doing
it automatically? 
Any ideas? Thanking in advance.
Regards, Sue

--
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: HSM migrate

[R.S.]

Chiam, Susan Mee-Shia wrote:


 Hi listers,

Recently, we have added a list of SMS volumes to DB2's pool and they
were mod-9 volumes. The mgmtclass of these
DB2 archived logs is to migrate them after 1 day which is the same as
those that were migrated. 
But..those they were on these  mod-9 volumes did not get migrated...


DB2P.ARCHLOG1.D05310.T0251231.A0119698 MIGRAT2
DB2P.ARCHLOG1.D05310.T0251231.B0119698 MIGRAT2
DB2P.ARCHLOG1.D05310.T0328527.A0119699 DBAXXX 
DB2P.ARCHLOG1.D05310.T0328527.B0119699 MIGRAT2

DB2P.ARCHLOG1.D05310.T0353058.A0119700 MIGRAT2
DB2P.ARCHLOG1.D05310.T0353058.B0119700 MIGRAT2

I could manually migrate the dataset off but what is stopping HSM doing
it automatically? 
Any ideas? Thanking in advance.


Is it another Storage Group ?


--
Radoslaw Skorupka
Lodz, Poland

--
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: HSM migrate

[John Ticic]

-- snip --
I could manually migrate the dataset off but what is stopping HSM doing
it automatically?
Any ideas? Thanking in advance.
-- snip --

Take a look at your SMS Storage Group Migrate High/Low settings.

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: HSM migrate

[Robert L. Griffin]

 
   Probably the low theshold on the volume. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Chiam, Susan Mee-Shia
Sent: Friday, November 18, 2005 4:29 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: HSM migrate

 Hi listers,

Recently, we have added a list of SMS volumes to DB2's pool and they
were mod-9 volumes. The mgmtclass of these
DB2 archived logs is to migrate them after 1 day which is the same as
those that were migrated. 
But..those they were on these  mod-9 volumes did not get migrated...

DB2P.ARCHLOG1.D05310.T0251231.A0119698 MIGRAT2
DB2P.ARCHLOG1.D05310.T0251231.B0119698 MIGRAT2
DB2P.ARCHLOG1.D05310.T0328527.A0119699 DBAXXX 
DB2P.ARCHLOG1.D05310.T0328527.B0119699 MIGRAT2
DB2P.ARCHLOG1.D05310.T0353058.A0119700 MIGRAT2
DB2P.ARCHLOG1.D05310.T0353058.B0119700 MIGRAT2

I could manually migrate the dataset off but what is stopping HSM doing
it automatically? 
Any ideas? Thanking in advance.
Regards, Sue

--
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: RACF and DFHSM tapes

[Mike Wood]

Juan,  Read on through that hsm book a few pages and you get more details
and then find this statement;
'5. If no RACF tape volume sets are defined to DFSMShsm but all tapes are
protected by an existing RACF generic profile, then specify SETSYS
TAPESECURITY(RACF|RACFINCLUDE). '

My understanding of this is that when no specific hsm tape volume sets are
defined hsm will not attempt to maintain them, but will know the hsm tapes
are protected by RACF (generic TAPEVOL profile).

However, following up the caution from Walt; I advise you to test any
changes first and be sure to include hsm EOV processing, writing to
scratch tapes and recycle..  Be sure it still all works

Mike Wood   RMM Development

On Mon, 14 Nov 2005 14:42:19 -0300, Mautalen Juan Guillermo
<[EMAIL PROTECTED]> wrote:

>Walt:
>
>There is a paragraph in the HSM documentation stating that generic
>TAPEVOL protection should work. But it is somewhat vague, without any
>details.
>It says:
>
>--1.9.5.3 Protecting DFSMShsm Tapes
>
>--Tip: If you have not defined RACF tape volume sets for DFSMShsm, but
>you want RACF to protect --all the tapes through a RACF generic profile,
>specify the SETSYSTAPESECURITY--(RACFIRACFINCLUDE)
>command.
>
>So, i am not trying to do something undocumented.
>My interest comes from the fact that we have around 30.000 HSM tapes (in
>a separate RACF dataset), and we want to consolidate both current RACF
>datasets into a single one, and i like to reduce the number of TAPEVOL
>profiles before making the consolidation.
>
>
>JUAN MAUTALEN

--
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: VB: Creating dynamic 3270 screen size definitions for increased productivity TD102151

[Chris Mason]

Edward,

Clearly I should have added a :-) at the end of the sentence about printing
screen-by-screen. I had intended to show that NLDM is not designed for your
support need.

Clearly also I should have written "I'd like to encourage you to advise
(rather than try) using the NetView Session Monitor (NLDM) trace function
with the CPIU (complete PIU) option." in my first post on this topic.

It was not until you have replied to this that I appreciated that your need
was not the same as the original poster who, as far as I could tell was a
typical systems programmer with the possibility of using a NetView session
in order to solve his own problems all by himself.

Let me assure you that far from a big step backwards the possibility to use
CPIU is an enormous step forwards for the sort of person as I imagined the
original poster to be looking for rogue characters in his data stream. In
the bad old days indeed taking buffer traces was the only way. Then some
bright spark in the NLDM shop - possibly with a strong customer requirement
breathing down his/her neck - made quite a small change in not necessarily
truncating PIUs at 11 bytes of RU data when presenting them in the trace
panels. It was a relatively small change since the problem of presenting
multiple lines of hexadecimal data had already been solved for session
initiation, typically the BIND, and termination RUs - if I remember it all
correctly.

I kept having to encourage my students to use point NLDM TRACE CPIU during
my hands-on classes so I can only suppose that they had missed the
enhancement when it appeared. Probably CPIU was buried in a mass of other
enhancements in the NetView release which introduced it.

Chris Mason

- Original Message - 
From: "Edward E. Jaffe" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Monday, 14 November, 2005 7:28 PM
Subject: Re: VB: Creating dynamic 3270 screen size definitions for increased
productivity TD102151


>
> That would definitely be a big step backward. The traces we ask for
> today are captured by GTF and we analyze them using IPCS.
>
> -- 
> .-.
> | Edward E. Jaffe||
> | Mgr, Research & Development| [EMAIL PROTECTED]|
> | Phoenix Software International | Tel: (310) 338-0400 x318   |
> | 5200 W Century Blvd, Suite 800 | Fax: (310) 338-0801|
> | Los Angeles, CA 90045  | 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
>

--
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; CDESPLIT flag and RMODE(SPLIT) question.

[Peter Relson]

CDESPLIT is not on in the case you mention because the system had no need
to turn it on. The CDE bits are not "for you", they are for the system to
use in making decisions. If the bit is on, it was RMODE(SPLIT). If the bit
is not on, it does not mean that it was not RMODE(SPLIT).

Peter
[EMAIL PROTECTED]   [EMAIL PROTECTED]
 1-845-435-83908+295-8390

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: FTP Initial Directory

[Scott Doherty]

On Thu, 17 Nov 2005 16:37:59 -0600, Hal Merritt <[EMAIL PROTECTED]>
wrote:

>This is the server end. We have no idea what the client may be. Most
>often a PC. This is straight FTP. There is no logon proc or clist.
>

   You could created a bat file to change the directory for you
   automatically at signon :

   ftp -i -n -s:c:\myfolder\thisfolder\testftp.txt ???.???.???.???<==FTP IP

   Contents of testftp.txt file :

user
userid
password
cd 'starting mvs directory'


Just a thought...

--
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: HSM migrate

[Marcin Blaszczyk]

Try to change 'low theshold' in SG to value = 1

Chiam, Susan Mee-Shia wrote:


 Hi listers,

Recently, we have added a list of SMS volumes to DB2's pool and they
were mod-9 volumes. The mgmtclass of these
DB2 archived logs is to migrate them after 1 day which is the same as
those that were migrated. 
But..those they were on these  mod-9 volumes did not get migrated...


DB2P.ARCHLOG1.D05310.T0251231.A0119698 MIGRAT2
DB2P.ARCHLOG1.D05310.T0251231.B0119698 MIGRAT2
DB2P.ARCHLOG1.D05310.T0328527.A0119699 DBAXXX 
DB2P.ARCHLOG1.D05310.T0328527.B0119699 MIGRAT2

DB2P.ARCHLOG1.D05310.T0353058.A0119700 MIGRAT2
DB2P.ARCHLOG1.D05310.T0353058.B0119700 MIGRAT2

I could manually migrate the dataset off but what is stopping HSM doing
it automatically? 
Any ideas? Thanking in advance.

Regards, Sue

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



--
MARCIN BLASZCZYK
Doradca
BRE Bank SA - DIN
al. Mickiewicza 10, 90-050 LODZ; POLAND
email: [EMAIL PROTECTED]
tel. : + 48 42 6381009

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: FTP Initial Directory

[Charles Mills]

He still has to CREATE a starting directory for a horde of PC users who may
have no use for one.

Interesting question: what happens if the starting directory doesn't exist?

Charles



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Scott Doherty
Sent: Friday, November 18, 2005 7:30 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: FTP Initial Directory


On Thu, 17 Nov 2005 16:37:59 -0600, Hal Merritt <[EMAIL PROTECTED]>
wrote:

>This is the server end. We have no idea what the client may be. Most
>often a PC. This is straight FTP. There is no logon proc or clist.
>

   You could created a bat file to change the directory for you
   automatically at signon :

 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: FTP Initial Directory

[Scott Doherty]

On Fri, 18 Nov 2005 08:13:24 -0500, Charles Mills <[EMAIL PROTECTED]> wrote:

>He still has to CREATE a starting directory for a horde of PC users who may
>have no use for one.
>
>Interesting question: what happens if the starting directory doesn't exist?
>
>Charles
>
>
>
I don't understand, if They have no use for one why do you need to create
or change them?
Our users default to their user Id's and issue the CD command if needed or
change profile if Id is also TSO capable.

--
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: Re; CDESPLIT flag and RMODE(SPLIT) question.

[Vic Petrone]

Thanks for your reply Peter.

Is there another way for a programe to determine if the loaded module is
split? Can I check the extent list? If the relocattion factor is 2 and the
one address is above and one below the line, then assume it's split?

Thanks,
vic

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: FTP Initial Directory

[Paul Gilmartin]

In a recent note, Scott Doherty said:
> From [EMAIL PROTECTED] Fri Nov 18 07:08:19 2005
> Date: Fri, 18 Nov 2005 06:29:32 -0600
> Reply-To: IBM Mainframe Discussion List <[log in to unmask]>
> Sender:   IBM Mainframe Discussion List <[log in to unmask]>
> From: Scott Doherty <[log in to unmask]>
> Subject:  Re: FTP Initial Directory
> 
> On Thu, 17 Nov 2005 16:37:59 -0600, Hal Merritt <[log in to unmask]>
> wrote:
> 
> >This is the server end. We have no idea what the client may be. Most
> >often a PC. This is straight FTP. There is no logon proc or clist.
> 
>You could created a bat file to change the directory for you
>automatically at signon :
> 
>ftp -i -n -s:c:\myfolder\thisfolder\testftp.txt ???.???.???.???<==FTP IP
> 
Is this guaranteed to work, given that they "have no idea what
the client may be"?

-- gil
-- 
StorageTek
INFORMATION made POWERFUL

--
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: Determining size information for existing QSAM dataset

[Charles Mills]

Well shoot, it looks like DFSMS OPEN merges the SECONDARY space quantity
into the JFCB but not the primary, perhaps because the secondary might be
needed for space extension, but there's really no use for the primary
quantity after initial allocation? Seems odd to me.

Bytes 90-9F of a JFCB for a DD statement with no SPACE= referencing an
existing dataset that was originally allocated TRK,(5,5), read with RDJFCB
after the dataset was opened:

   0 1 2 3 4 5 6 7 8 9 A B C D E F
90 . . / . . . . . . . . . 
90 40404040008D615800800500

OTOH, bytes 90-9F of a JFCB for a new dataset with a DD statement specifying
TRK,(3,7), read with RDJFCB after OPEN:

   0 1 2 3 4 5 6 7 8 9 A B C D E F
90 . . . . . . . . . . . . 
90 4040404003800700

If anyone has any clues, I'd be grateful. Thanks,

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Shmuel Metz (Seymour J.)
Sent: Thursday, November 17, 2005 11:19 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Determining size information for existing QSAM dataset


In <[EMAIL PROTECTED]>, on 11/16/2005
   at 04:18 PM, Charles Mills <[EMAIL PROTECTED]> said:

>Specifically, if you do a RDJFCB after you open the dataset, will you
>get the merged information?

Yes.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: FTP Initial Directory

[McKown, John]

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Scott Doherty
> Sent: Friday, November 18, 2005 7:40 AM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: FTP Initial Directory
> 
> 
> On Fri, 18 Nov 2005 08:13:24 -0500, Charles Mills 
> <[EMAIL PROTECTED]> wrote:
> 
> >He still has to CREATE a starting directory for a horde of 
> PC users who may
> >have no use for one.
> >
> >Interesting question: what happens if the starting directory 
> doesn't exist?
> >
> >Charles
> >
> >
> >
> I don't understand, if They have no use for one why do you 
> need to create
> or change them?
> Our users default to their user Id's and issue the CD command 
> if needed or
> change profile if Id is also TSO capable.
> 

There are two possibilities for a "home directory" in z/OS ftp. The
first is an MVS or "legacy" home, which is simply the user's RACF id. In
this case, there is no such thing as "doesn't exist" and so you question
is not meaningful. Normally RACF user's have their RACF qualified
datasets in a user catalog. However, if not, then they default to the
master catalog. If the user has no datasets, then an "ls" would report
"no datasets". If the user tries to upload, then the dataset will either
be catalogued in the master catalog (if they have UPDATE access to it),
or the upload will fail with a security error if they do not have at
least UPDATE access to the master catalog.

The second is if you have specified STARTDIRECTORY HFS in the TCPIP FTP
server's configuration. In this case, when the user connects to the ftp
server on z/OS, the ftp will start up in the HFS directory specified in
the user's RACF OMVS segment. Now, I just tested, on z/OS 1.6, the
scenario where this directory does not exist. In this case, an error is
logged to the UNIX syslog (not the z/OS SYSLOG that we all know and
love). I get a message like:

RA1424 pass: chdir() failed on /CRAP - EDC5129I No such file or
directory.  (errno2=05190050)

And end up back in the MVS "legacy" world. What I see on the client side
is:

230 XX is logged on.  Working directory is "XX"

--
John McKown
Senior Systems Programmer
UICI Insurance Center
Information Technology

This message (including any attachments) contains confidential
information intended for a specific individual and purpose, and its'
content is protected by law.  If you are not the intended recipient, you
should delete this message and are hereby notified that any disclosure,
copying, or distribution of this transmission, or taking any action
based on it, is strictly prohibited.
 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: FTP Initial Directory

[Charles Mills]

Well, I don't know if they need to create a directory, but it's a cinch FTP
expects one. That's why I asked what will happen if he does NOT create one.

Yes, your users default to their "home" directory. It appears that FTP
forces everyone's users to default to their home directories. Why? Some
people may have no use for a home directory.

Question for the OP: will anonymous mode help? Or does that bring chills to
the auditors and/or security folks?

Charles



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Scott Doherty
Sent: Friday, November 18, 2005 8:40 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: FTP Initial Directory


On Fri, 18 Nov 2005 08:13:24 -0500, Charles Mills <[EMAIL PROTECTED]> wrote:

>He still has to CREATE a starting directory for a horde of PC users who may
>have no use for one.
>
>Interesting question: what happens if the starting directory doesn't exist?
>
>Charles
>
>
>
I don't understand, if They have no use for one why do you need to create
or change them?
Our users default to their user Id's and issue the CD command if needed or
change profile if Id is also TSO capable.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: FTP Initial Directory

[Paul Gilmartin]

In a recent note, Charles Mills said:

> Date: Thu, 17 Nov 2005 17:53:41 -0500
> 
> I don't know that what you want is do-able. Read the documentation for
> STARTDIRECTORY in the CS Configuration manual. (That's where any answer to
> this question would be.) It seems to imply you start out with an HLQ of
> userid no matter what - you just get to choose in which file system.
> 
Indeed it does, contrary to my experiment.

I've submitted an RCF.

-- gil
-- 
StorageTek
INFORMATION made POWERFUL

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: FTP Initial Directory

[Paul Gilmartin]

In a recent note, Hal Merritt said:

> Date: Thu, 17 Nov 2005 16:34:58 -0600
> 
> Isn't that a TSO command? These folks do not have access to TSO.
> 
In that case, I'd expect the administrator could control it in the
various users' RACF or SYS1.UADS or some such members.

-- gil
-- 
StorageTek
INFORMATION made POWERFUL

--
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: Determining size information for existing QSAM dataset

[Martin Kline]

What size information? Based on your other comments, it appears you want
the allocated or used size, and not record size, block size, track size,
primary allocation size, or secondary allocation size. Do you want this in
bytes, tracks, cylinders, or something else? Do you need to do this
programmatically, or could you use the Data Set List Utility of ISPF? If
programmatically, does it have to be assembler, or would REXX suffice?
Does the LISTDSI REXX function have the info you need?

--
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: Determining size information for existing QSAM dataset

[Charles Mills]

Yes, the size of the dataset, not the size of its records, tracks, or
creator.

The environment is not TSO, so LISTDSI is out.

Assembler or Rexx, makes no never mind to me. I can pretty much translate
betwixt the two.

The perfect piece of information would be the total number of used tracks.
Yes, I can do that with CAMLST LOCATE and OBTAIN. The situation involves
very large datasets, so multi-volume is a reality. Perfectly do-able with
CAMLST LOCATE and OBTAIN, but a lot of work for a simple answer.

I could settle for primary and secondary allocation units and quantity, but
primary quantity appears to be elusive (see earlier notes). Do you have a
source for primary quantity for existing datasets? It's around somewhere
because ISPF 3.2 displays it. Where? Secondary quantity is in the DSCB-1 but
not the primary (or am I missing it?).

You could think of the problem at hand as being "if I were to copy this
dataset, how large a dataset should I allocate to hold the copy?" So the
actual number of used tracks would be a perfect answer, but the original
primary and secondary allocation would be a good estimate - or rather, a set
of values that worked once for this amount of data and might very well work
again.

I'm in somewhat of an R&D mode on this problem so I don't have exact
specifications for the problem.

Thanks for your help.

Charles



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Martin Kline
Sent: Friday, November 18, 2005 10:01 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Determining size information for existing QSAM dataset


What size information? Based on your other comments, it appears you want
the allocated or used size, and not record size, block size, track size,
primary allocation size, or secondary allocation size. Do you want this in
bytes, tracks, cylinders, or something else? Do you need to do this
programmatically, or could you use the Data Set List Utility of ISPF? If
programmatically, does it have to be assembler, or would REXX suffice?
Does the LISTDSI REXX function have the info you need?

--
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: Determining size information for existing QSAM dataset

[Charles Mills]

Is DS1LSTAR the last used track and block

- on the volume on which it appears in a DSCB-1?
- on all volumes that the dataset occupies?

Does that imply that a QSAM or PDS (non-PDSE) dataset is limited to 32,767
tracks? Or 65,535 tracks?

Sorry if this is a dumb question but the sum total of the documentation is
"Last used track and block on track (TTR). Not defined for VSAM, PDSE, and
HFS." Or is it documented somewhere besides DFSMS Advanced Services?

Thanks, 

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Martin Kline
Sent: Friday, November 18, 2005 10:01 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Determining size information for existing QSAM dataset


What size information? Based on your other comments, it appears you want

--
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: Determining size information for existing QSAM dataset (observation)

[R.S.]

IMHO simple question was asked - how to check size of existing PS dataset.
Now strongest brains are discussing how to do it. Special (extra paid) 
documentation is mentioned, obscure services are considered control 
block, fields other "interesting" thimgs. Obviously the only available 
(or considerable) option is assembler.


Isn't it beautiful ?

I remember I was learning Turbo Pascal for DOS (MS DOS, not VSE). Size 
of file was piece of cake, even for complete greenhorn.


Another reason why mainframes are so "popular".

Just my $0.02
--
Radoslaw Skorupka
Lodz, Poland

--
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: Determining size information for existing QSAM dataset

[Martin Kline]

AFAIK you cannot reliably find the primary allocation. You can interpret
the dataset extents, and assume the first extend is the primary allocation,
but that's likely to be misleading. For example, if you requested (2000,10)
cylinders, and the volume had three 1000 cylinder extents available, the
first extent for the data set would be 1000 cylinders, and the second would
be 1000 cylinders. Assuming the dataset needed additional space, the third
extent would be 10 cylinders.

--
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: [SMS] testing new SCDS configuration

[Neil Duffee]

This reply (to myself) is to place the information in the archives.
-
At July 18, 2005 15:15, concerning "RE: [SMS] testing new SCDS 
configur", Richards.Bob <[EMAIL PROTECTED]> wrote (to IBM-Main):  

> In principle, it seems as though it *should* work, but I have this
> nagging feeling that I tried this once many years ago and the COMMDS
> was a problem on the SET SMS=. 
> 
> I do believe it would work if you IPL'ed the lpar with the new
> IGDSMSnew, just not sure about the SET SMS=.

>  -Original Message-
> Date: Thu, 30 Jun 2005 15:16:35 -0400 
> From: Neil Duffee <[log in to unmask]>
> 
> > Looking for opinions/affirmations [snip] for testing a
> > new SCDS configuration. [snip] would love to try a live test. [snip]

> [snip testing steps]
> My biggest worry is that the other LPars might pick up the 
> configuration change; production 'specially. [snip]

My z/OS colleague/lead confirmed Bob's nagging suspicion about the 
COMMDS and added his own 'bout the ACDS carrying old information so 
we worked out a safe method as outlined below.  The main concern was 
how to separate the test/sandbox LPar from the SMSPlex so that 
changes would not be propagated to others.  Just finished the test 
last night with great success.  (and no cross-contamination  *grin*)

1.  create an new/empty COMMDS & ACDS ie. Define Cluster with Model.
2.  create a new SYS1.PARMLIB(IGDSMSnn) member pointing to the new 
SCDS & ACDS (as a copy of the existing one)
3.  IPL the test/sandbox LPar with REPLY 00,SMS=nn
4.  DISPLAY SMS should return a 'No active configuration' error since
the ACDS is empty.  Stop if otherwise.  (perhaps the REPLY 00 was
missed, etc.) 
5.  SETSMS SCDS(new.SCDS) -> IGD0nnI configuration activated
6.  DISPLAY SMS should show new values on test/sandbox LPar but no 
changes on any other.
7.  all the test allocations you want

When you're done, a normal IPL on the test/sandbox LPar should put 
you back to the old set-up.  Hopefully, this will be helpful to 
others in the future.  ciao.
-->  signature = 6 lines follows <--
Neil Duffee, Joe SysProg, U d'Ottawa, Ottawa, Ont, Canada
telephone:1 613 562 5800 x4585 fax:1 613 562 5161
mailto:NDuffee of uOttawa.ca http:/ /aix1.uottawa.ca/ ~nduffee
"How *do* you plan for something like that?" Guardian Bob, Reboot
"For every action, there is an equal and opposite criticism."
"Systems Programming: Guilty, until proven innocent" John Norgauer 
2004

--
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: Determining size information for existing QSAM dataset

[Martin Kline]

Run IKJEFT01 in batch and invoke some REXX code.

Sample REXX code (dress it up any way you want):

/* REXX */
x = listdsi("'SYS1.PARMLIB'")
say "DSNAME = " SYSDSNAME
say "DSORG = " SYSDSORG
say "PRIMARY = " SYSPRIMARY
say "SECONDARY = " SYSSECONDS
say "EXTENTS = " SYSEXTENTS
say "UNITS = " SYSUNITS
say "ALLOC = " SYSALLOC
say "USED = " SYSUSED

For multi-volume datasets, you have to issue the listdsi for each volume.

--
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: Determining size information for existing QSAM dataset

[Terry Sambrooks]

Hi,

In a post on this topic Charles Mills wrote:

"It's around somewhere because ISPF 3.2 displays it. Where? Secondary quantity 
is in the DSCB-1 but
not the primary (or am I missing it?)."

Does the DSCB-1 differentiate between Primary and Secondary requests? Combined 
DSCB-1 and DSCB-2 will hold 16 extents worth of information. Surely there is no 
need to hold a specific primary quantity as the request will have been 
satisfied in up to 5 extents depending upon whether CONTIG has been specified 
or not. The converse of course is that the secondary request, needs to be held 
to allow for growth up to the 16 extents limit of the DSCB-1/2 pair for a 
volume.

Does ISPF actually report a definite valued, or does it calculate a value based 
on the first n extents? I seem to recall reading somewhere that some component 
did this but Virtual Memory has gotten to that stage where I can neither 
remember the component or where I read it.

Kind regards - Terry

Terry Sambrooks
Director
KMS-IT Limited
228 Abbeydale Road South
Dore
Sheffield
South Yorkshire
UK

Tel +44 (0) 114 262 0933
Web www.kmsitltd.co.uk

Reg: England & Wales 3767263 at the above address

All outgoing E-mails are scanned but it remains the responsibility of the 
recipient to ensure that their system is protected from infection by virus, 
Trojans, and worms.

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

Performance tools and JAVA

[Duffy, Peter]

Hi, all,
 
For the past year and a half I have been in a slow dance with a software
company to get their performance analysis tool running in my shop.  The
mainframe version is great, I can read reports and page through long
listings, and if I know what to look for I can understand where issues
are in online and batch jobs.  Users of this product need to be fairly
highly skilled at performance issues, like senior programmers or
sysprogs.
 
The company touts an XML based sort of extension to their product.  Run
a mainframe job to create an XML file, FTP it, view it in a browser in
full color and anyone can click to dive into fuel gauge displays to see
modules, files, etc causing waits or consuming resources.  Great tool,
anyone can see the issues.
 
The problem is it needs a version of JAVA that is in conflict with the
JAVA we run. We have some older apps that need the version we run.  The
slow dance has been around trying this and that to get it to work to no
avail.
 
Two questions:
 
1) Does anyone have recommendations for a product like this one that is
really JAVA independent?
 
2) How often are other sites running into this sort of incompatibility
for JAVA for their various business applications?  Are we now tied to
legacy JAVA apps, just as we have been tied to legacy mainframe apps?
(I ask because the vendor is puzzled by my situation.)
 
Thanks,
Peter Duffy
IS Consultant Programmer - Operations - Mainframe/AS400
   _     NISSAN NORTH AMERICA 
Information Systems Department 
Gardena, CA, USA
310-771-6472 


--
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: Determining size information for existing QSAM dataset

[Charles Mills]

Thanks. I thought I said the environment was NOT TSO.

Compiled Rexx in batch.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Martin Kline
Sent: Friday, November 18, 2005 11:26 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Determining size information for existing QSAM dataset


Run IKJEFT01 in batch and invoke some REXX code.

--
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: Determining size information for existing QSAM dataset

[Charles Mills]

Where does ISPF 3.2 get it from? Okay, it gets it from FAMS. Where does FAMS
get it from?

Charles



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Martin Kline
Sent: Friday, November 18, 2005 11:02 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Determining size information for existing QSAM dataset


AFAIK you cannot reliably find the primary allocation. You can interpret

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

REXX Question

[Alan Schwartz]

I'm stuck in a REXX routing and haven't figured my way out yet. 

I'm going through a file of CICS shutdown statistics with the intent of 
generating a list of programs used and their counts.   Simple stuff.  The 
data where the routine falls apart is (hope this formats fairly decently. 
I'm not including all columns):

0PROGRAMS 
+ 
0  Program 
   NameTimes Used 
+  ___
 
   ABCAARCH  1219 
   ABIGSNP  0 
   ABOCFTM946 
   ABOCHOM  14667 

My code to process the data is:

Do a = 1 to cics.0 
  Parse upper var cics.a pgmname.a timesused.a .
If pgmname.a ¬= '0PROGRAMS' 
  Then Iterate 
Else 
trace i 
Do a = a to cics.0 
  If pgmname.a = '*TOTALS*' 
Then Leave 
  If Datatype(timesused.a) ¬= 'NUM' 
Then Iterate 

My problem, as shown by the trace, is the last Iterate is going back to 
the first Do and not the second Do.
The TSO REXX Reference says that Iterate steps the innermost Do. 

The trace does show that when it found 0PROGRAMS it executed the test for 
Datatype.  On lthat line the test
fails and it Iterates but to the first Do not the second.

I'm continuing to look at this but I welcome all help. 

Alan Schwartz
Assurant Shared Business Services
Lead Systems Programmer
Phone:  651-361-4758
Fax:   651-361-5625
**
This e-mail message and all attachments transmitted with it may contain legally 
privileged and/or confidential information intended solely for the use of the 
addressee(s). If the reader of this message is not the intended recipient, you 
are hereby notified that any reading, dissemination, distribution, copying, 
forwarding or other use of this message or its attachments is strictly 
prohibited. If you have received this message in error, please notify the 
sender immediately and delete this message and all copies and backups thereof.

Thank you.
**

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Performance tools and JAVA

[Martin Kline]

> The problem is it needs a version of JAVA that is in conflict with the
> JAVA we run. We have some older apps that need the version we run.  The
> slow dance has been around trying this and that to get it to work to no
> avail.

We ran into a similar problem with one vendor's code that checked the
Windows registery to see which version of Java we had installed. The
company standard had a new version installed. IIRC we got around it by
creating a second registry entry from the first, and changing the name.
We're NOT running the older Java release, but the vendor's code really
didn't care after all.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Determining size information for existing QSAM dataset

[Charles Mills]

You're probably right. Notice it does not say "primary." It says "1st
extent."

General Data  Current Allocation
 Volume serial . . . : SYSP01  Allocated tracks  . : 12 
 Device type . . . . : 3390Allocated extents . : 3  
 Organization  . . . : PO  Maximum dir. blocks : 15 
 Record format . . . : VB   
 Record length . . . : 255  
 Block size  . . . . : 27998  Current Utilization   
 1st extent tracks . : 6   Used tracks . . . . : 8  
 Secondary tracks  . : 5   Used extents  . . . : 3  
   Used dir. blocks  . : 6  
 Creation date . . . : 2005/10/06  Number of members . : 38 
 Referenced date . . : 2005/11/18   
 Expiration date . . : ***None***   

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Terry Sambrooks
Sent: Friday, November 18, 2005 11:29 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Determining size information for existing QSAM dataset

Hi,

In a post on this topic Charles Mills wrote:

"It's around somewhere because ISPF 3.2 displays it. Where? Secondary
quantity is in the DSCB-1 but
not the primary (or am I missing it?)."

Does the DSCB-1 differentiate between Primary and Secondary requests?
Combined DSCB-1 and DSCB-2 will hold 16 extents worth of information. Surely
there is no need to hold a specific primary quantity as the request will
have been satisfied in up to 5 extents depending upon whether CONTIG has
been specified or not. The converse of course is that the secondary request,
needs to be held to allow for growth up to the 16 extents limit of the
DSCB-1/2 pair for a volume.

Does ISPF actually report a definite valued, or does it calculate a value
based on the first n extents? I seem to recall reading somewhere that some
component did this but Virtual Memory has 

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

[Skip Robinson]

IIRC, Rexx defines a DO routine according to the control variable. Since
both of your DO loops use 'a', I think ITERATE 'percolates' to the
outermost loop that uses the same control variable. Then again, I may be
all wet.

.
.
.
JO.Skip Robinson
Southern California Edison Company
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
[EMAIL PROTECTED]

IBM Mainframe Discussion List  wrote on 11/18/2005
08:54:28 AM:

> I'm stuck in a REXX routing and haven't figured my way out yet.
>
> I'm going through a file of CICS shutdown statistics with the intent of
> generating a list of programs used and their counts.   Simple stuff.  The

> data where the routine falls apart is (hope this formats fairly decently.

> I'm not including all columns):
>
> 0PROGRAMS
> +
> 0  Program
>NameTimes Used
> +  ___
>
>ABCAARCH  1219
>ABIGSNP  0
>ABOCFTM946
>ABOCHOM  14667
>
> My code to process the data is:
>
> Do a = 1 to cics.0
>   Parse upper var cics.a pgmname.a timesused.a .
> If pgmname.a ¬= '0PROGRAMS'
>   Then Iterate
> Else
> trace i
> Do a = a to cics.0
>   If pgmname.a = '*TOTALS*'
> Then Leave
>   If Datatype(timesused.a) ¬= 'NUM'
> Then Iterate
>
> My problem, as shown by the trace, is the last Iterate is going back to
> the first Do and not the second Do.
> The TSO REXX Reference says that Iterate steps the innermost Do.
>
> The trace does show that when it found 0PROGRAMS it executed the test for

> Datatype.  On lthat line the test
> fails and it Iterates but to the first Do not the second.
>
> I'm continuing to look at this but I welcome all help.

--
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: Performance tools and JAVA

[ibm-main]

Java is a pox.

> Two questions:

> 1) Does anyone have recommendations for a product like this one that is
> really JAVA independent?

Better would be independent *of* Java.

> 2) How often are other sites running into this sort of incompatibility
> for JAVA for their various business applications?

Too often.
The need to un-install the latest Java to install a version no longer
downloadable from Sun to run a performance monitor is laughable. *Then* you
need to re-install the "latest-and-greatest" for something else.
What a joke.
And woe betide anyone that accidently "double-click"s too fast.

Bloody schmozzle ...

Shane ...

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

[Roberto Halais Kareh]

In your code you do not show an END statement after the last ITERATE.
You should have two (2) ENDs for both DOs.


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
Behalf Of Alan Schwartz
Sent: Friday, November 18, 2005 12:54 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: REXX Question


I'm stuck in a REXX routing and haven't figured my way out yet. 

I'm going through a file of CICS shutdown statistics with the intent of 
generating a list of programs used and their counts.   Simple stuff.  The 
data where the routine falls apart is (hope this formats fairly decently. 
I'm not including all columns):

0PROGRAMS 
+ 
0  Program 
   NameTimes Used 
+  ___
 
   ABCAARCH  1219 
   ABIGSNP  0 
   ABOCFTM946 
   ABOCHOM  14667 

My code to process the data is:

Do a = 1 to cics.0 
  Parse upper var cics.a pgmname.a timesused.a .
If pgmname.a ¬= '0PROGRAMS' 
  Then Iterate 
Else 
trace i 
Do a = a to cics.0 
  If pgmname.a = '*TOTALS*' 
Then Leave 
  If Datatype(timesused.a) ¬= 'NUM' 
Then Iterate 

My problem, as shown by the trace, is the last Iterate is going back to 
the first Do and not the second Do.
The TSO REXX Reference says that Iterate steps the innermost Do. 

The trace does show that when it found 0PROGRAMS it executed the test for 
Datatype.  On lthat line the test
fails and it Iterates but to the first Do not the second.

I'm continuing to look at this but I welcome all help. 

Alan Schwartz
Assurant Shared Business Services
Lead Systems Programmer
Phone:  651-361-4758
Fax:   651-361-5625
**
This e-mail message and all attachments transmitted with it may contain legally 
privileged and/or confidential information intended solely for the use of the 
addressee(s). If the reader of this message is not the intended recipient, you 
are hereby notified that any reading, dissemination, distribution, copying, 
forwarding or other use of this message or its attachments is strictly 
prohibited. If you have received this message in error, please notify the 
sender immediately and delete this message and all copies and backups thereof.

Thank you.
**

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [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: REXX Question

[Alan Schwartz]

I didn't include the area of code not used yet.  There are two END's  plus 
other code not pasted in the original message

Alan Schwartz
Assurant Shared Business Services
Lead Systems Programmer
Phone:  651-361-4758
Fax:   651-361-5625



Roberto Halais Kareh <[EMAIL PROTECTED]> 
Sent by: IBM Mainframe Discussion List 
11/18/2005 11:15 AM
Please respond to
IBM Mainframe Discussion List 


To
IBM-MAIN@BAMA.UA.EDU
cc

Subject
Re: REXX Question






In your code you do not show an END statement after the last ITERATE.
You should have two (2) ENDs for both DOs.



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


**
This e-mail message and all attachments transmitted with it may contain legally 
privileged and/or confidential information intended solely for the use of the 
addressee(s). If the reader of this message is not the intended recipient, you 
are hereby notified that any reading, dissemination, distribution, copying, 
forwarding or other use of this message or its attachments is strictly 
prohibited. If you have received this message in error, please notify the 
sender immediately and delete this message and all copies and backups thereof.

Thank you.
**

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: REXX Question

[Alan Schwartz]

Good thought Skip.  I had tested that modification.  When I change like 
this:

Do b = a to cics.0 
  If pgmname.b = '*TOTALS*' 
Then Leave 
  If Datatype(timesused.b) ¬= 'NUM' 
Then Iterate 

The trace shows REXX is unable to resolve pgmname.b properly anymore and I 
never get any matches.
Here's a screens worth of trace:

36 *-*  Do b = a to cics.0 
   >V>"1520" 
   >V>"238582" 
37 *-*   If pgmname.b = '*TOTALS*' 
   >C> "PGMNAME.1520" 
   >V> "0PROGRAMS" 
   >L> "*TOTALS*" 
   >O> "0" 
39 *-*   If Datatype(timesused.b) ¬= 'NUM' 
   >C> "TIMESUSED.1520" 
   >V> "" 
   >F> "CHAR" 
   >L> "NUM" 
   >O> "1" 
40 *-*Then 
   *-*Iterate 
36 *-*  Do b = a to cics.0 
37 *-*   If pgmname.b = '*TOTALS*' 
   >C> "PGMNAME.1521" 
   >L> "PGMNAME.1521" 
   >L> "*TOTALS*" 

Alan Schwartz
Assurant Shared Business Services
Lead Systems Programmer
Phone:  651-361-4758
Fax:   651-361-5625



Skip Robinson <[EMAIL PROTECTED]> 
Sent by: IBM Mainframe Discussion List 
11/18/2005 11:13 AM
Please respond to
IBM Mainframe Discussion List 


To
IBM-MAIN@BAMA.UA.EDU
cc

Subject
Re: REXX Question






IIRC, Rexx defines a DO routine according to the control variable. Since
both of your DO loops use 'a', I think ITERATE 'percolates' to the
outermost loop that uses the same control variable. Then again, I may be
all wet.

.
.
.
JO.Skip Robinson
Southern California Edison Company
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
[EMAIL PROTECTED]





**
This e-mail message and all attachments transmitted with it may contain legally 
privileged and/or confidential information intended solely for the use of the 
addressee(s). If the reader of this message is not the intended recipient, you 
are hereby notified that any reading, dissemination, distribution, copying, 
forwarding or other use of this message or its attachments is strictly 
prohibited. If you have received this message in error, please notify the 
sender immediately and delete this message and all copies and backups thereof.

Thank you.
**

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: REXX Question

[Imbriale, Donald (Exchange)]

Makes perfect sense.

You need to add a PARSE into the inner loop to populate pgmname and timesused 
stems.

Don Imbriale

>-Original Message-
>From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
>Of Alan Schwartz
>Sent: Friday, November 18, 2005 12:24 PM
>To: IBM-MAIN@BAMA.UA.EDU
>Subject: Re: REXX Question
>
>Good thought Skip.  I had tested that modification.  When I change like
>this:
>
>Do b = a to cics.0
>  If pgmname.b = '*TOTALS*'
>Then Leave
>  If Datatype(timesused.b) ¬= 'NUM'
>Then Iterate
>
>The trace shows REXX is unable to resolve pgmname.b properly anymore and I
>never get any matches.
>Here's a screens worth of trace:
>
>36 *-*  Do b = a to cics.0
>   >V>"1520"
>   >V>"238582"
>37 *-*   If pgmname.b = '*TOTALS*'
>   >C> "PGMNAME.1520"
>   >V> "0PROGRAMS"
>   >L> "*TOTALS*"
>   >O> "0"
>39 *-*   If Datatype(timesused.b) ¬= 'NUM'
>   >C> "TIMESUSED.1520"
>   >V> ""
>   >F> "CHAR"
>   >L> "NUM"
>   >O> "1"
>40 *-*Then
>   *-*Iterate
>36 *-*  Do b = a to cics.0
>37 *-*   If pgmname.b = '*TOTALS*'
>   >C> "PGMNAME.1521"
>   >L> "PGMNAME.1521"
>   >L> "*TOTALS*"


***
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: REXX Question Answered

[Alan Schwartz]

That one worked!  Thanks Don.  My Rexpert is on vacation and I couldn't 
find anything in his previous EXEC's that matched.

On to the next problem.

Alan Schwartz
Assurant Shared Business Services
Lead Systems Programmer
Phone:  651-361-4758
Fax:   651-361-5625



"Imbriale, Donald (Exchange)" <[EMAIL PROTECTED]> 
Sent by: IBM Mainframe Discussion List 
11/18/2005 11:30 AM
Please respond to
IBM Mainframe Discussion List 


To
IBM-MAIN@BAMA.UA.EDU
cc

Subject
Re: REXX Question






Makes perfect sense.

You need to add a PARSE into the inner loop to populate pgmname and 
timesused stems.

Don Imbriale





**
This e-mail message and all attachments transmitted with it may contain legally 
privileged and/or confidential information intended solely for the use of the 
addressee(s). If the reader of this message is not the intended recipient, you 
are hereby notified that any reading, dissemination, distribution, copying, 
forwarding or other use of this message or its attachments is strictly 
prohibited. If you have received this message in error, please notify the 
sender immediately and delete this message and all copies and backups thereof.

Thank you.
**

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: REXX Question

[Paul Gilmartin]

In a recent note, Roberto Halais Kareh said:

> Date: Fri, 18 Nov 2005 13:15:53 -0400
> 
> In your code you do not show an END statement after the last ITERATE.
> You should have two (2) ENDs for both DOs.
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:[log in to unmask]]On
> Behalf Of Alan Schwartz
> Sent: Friday, November 18, 2005 12:54 PM
> 
> Do a = 1 to cics.0
>   Parse upper var cics.a pgmname.a timesused.a .
> If pgmname.a ¬= '0PROGRAMS'
>   Then Iterate
> Else
> trace i
> Do a = a to cics.0
>   If pgmname.a = '*TOTALS*'
> Then Leave
>   If Datatype(timesused.a) ¬= 'NUM'
> Then Iterate
> 
And, to check your counting, _always_ label your iterates,
leaves, and ends:
  
  Do a = 1 to cics.0
Parse upper var cics.a pgmname.a timesused.a .
  If pgmname.a ¬= '0PROGRAMS'
Then Iterate a  /* <=== */
  Else
  trace i
  Do b = a to cics.0
If pgmname.b = '*TOTALS*'
  Then Leave b  /* <=== */
If Datatype(timesused.a) ¬= 'NUM'
  Then Iterate b/* <=== */
[ ... ]
  end b /* <=== */
  [ ... ]
  end a /* <=== */

-- gil
-- 
StorageTek
INFORMATION made POWERFUL

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

[Skip Robinson]

Other helpful (and likely superior) suggestions notwithstanding, when I get
into a bind like this, I sometimes pull out the Crocodile Dundee knife
known as INTERPRET, which I treat as a last resort when I can't find a
proper and elegant solution. INTERPRET can force additional resolution of
statements that are stuck in a cul-de-sac.

I see you solved the problem in a better way. Mazel tov.

.
.
.
JO.Skip Robinson
Southern California Edison Company
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
[EMAIL PROTECTED]

IBM Mainframe Discussion List  wrote on 11/18/2005
09:23:44 AM:

> Good thought Skip.  I had tested that modification.  When I change like
> this:
>
> Do b = a to cics.0
>   If pgmname.b = '*TOTALS*'
> Then Leave
>   If Datatype(timesused.b) ¬= 'NUM'
> Then Iterate
>
> The trace shows REXX is unable to resolve pgmname.b properly anymore and
I
> never get any matches.


--
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: Determining size information for existing QSAM dataset

[Ray Mullins]

ISPF 3.2 uses the FAMS GETATTR service.  How it's calculated?  Couldn't tell
you, it's OCO.  :-) 

Later,
Ray

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Terry Sambrooks
> Sent: Friday November 18 2005 08:29
> 
> Hi,
> 
> In a post on this topic Charles Mills wrote:
> 
> "It's around somewhere because ISPF 3.2 displays it. Where? 
> Secondary quantity is in the DSCB-1 but not the primary (or 
> am I missing it?)."
> 
> Does the DSCB-1 differentiate between Primary and Secondary 
> requests? Combined DSCB-1 and DSCB-2 will hold 16 extents 
> worth of information. Surely there is no need to hold a 
> specific primary quantity as the request will have been 
> satisfied in up to 5 extents depending upon whether CONTIG 
> has been specified or not. The converse of course is that the 
> secondary request, needs to be held to allow for growth up to 
> the 16 extents limit of the DSCB-1/2 pair for a volume.
> 
> Does ISPF actually report a definite valued, or does it 
> calculate a value based on the first n extents? I seem to 
> recall reading somewhere that some component did this but 
> Virtual Memory has gotten to that stage where I can neither 
> remember the component or where I read 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: REXX Question

[Paul Hanrahan]

When I'm stuck, knock on wood, I use "Do/End" pairs in the clauses of the
if's to clarify the logic and try not to worry about what the manual claims
is proper syntax with out the more structure, "If, Then, Do End, Else Do
End."  Looks amaturish perhaps but can be removed later once the problem is
found.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Alan Schwartz
Sent: Friday, November 18, 2005 11:54 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: REXX Question


I'm stuck in a REXX routing and haven't figured my way out yet. 

I'm going through a file of CICS shutdown statistics with the intent of 
generating a list of programs used and their counts.   Simple stuff.  The 
data where the routine falls apart is (hope this formats fairly decently. 
I'm not including all columns):

0PROGRAMS 
+
0  Program 
   NameTimes Used 
+  ___
 
   ABCAARCH  1219 
   ABIGSNP  0 
   ABOCFTM946 
   ABOCHOM  14667 

My code to process the data is:

Do a = 1 to cics.0 
  Parse upper var cics.a pgmname.a timesused.a .
If pgmname.a ¬= '0PROGRAMS' 
  Then Iterate 
Else 
trace i 
Do a = a to cics.0 
  If pgmname.a = '*TOTALS*' 
Then Leave 
  If Datatype(timesused.a) ¬= 'NUM' 
Then Iterate 

My problem, as shown by the trace, is the last Iterate is going back to 
the first Do and not the second Do.
The TSO REXX Reference says that Iterate steps the innermost Do. 

The trace does show that when it found 0PROGRAMS it executed the test for 
Datatype.  On lthat line the test
fails and it Iterates but to the first Do not the second.

I'm continuing to look at this but I welcome all help. 

Alan Schwartz
Assurant Shared Business Services
Lead Systems Programmer
Phone:  651-361-4758
Fax:   651-361-5625

**
This e-mail message and all attachments transmitted with it may contain
legally privileged and/or confidential information intended solely for the
use of the addressee(s). If the reader of this message is not the intended
recipient, you are hereby notified that any reading, dissemination,
distribution, copying, forwarding or other use of this message or its
attachments is strictly prohibited. If you have received this message in
error, please notify the sender immediately and delete this message and all
copies and backups thereof.

Thank you.

**

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [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: Performance tools and JAVA

[Skip Robinson]

You know there's a deep systemic problem when you have to bookmark the Java
archive page at sun.com.  ;-)

'Schmozzle', if it were in my unabridged dictionary, would fall between
'schmooze' and 'schmuck'. Somehow I don't feel the need for a precise
definition. ;-)))

.
.
.
JO.Skip Robinson
Southern California Edison Company
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
[EMAIL PROTECTED]

IBM Mainframe Discussion List  wrote on 11/18/2005
09:15:14 AM:



> The need to un-install the latest Java to install a version no longer
> downloadable from Sun to run a performance monitor is laughable. *Then*
you
> need to re-install the "latest-and-greatest" for something else.
> What a joke.
> And woe betide anyone that accidently "double-click"s too fast.
>
> Bloody schmozzle ...
>
> Shane ...

--
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: Determining size information for existing QSAM dataset

[Tom Schmidt]

On Wed, 16 Nov 2005 10:23:33 -0500, Charles Mills wrote:

>I know that determining the size of and/or requested size information for a
>conventional non-necessarily-extended-format MVS dataset is an imperfect
>science. What is the best option (other than reading it start to finish!)?
>What are the alternatives?
>
>- Using OBTAIN/CAMLST to read the DSCBs. This gives both SPACE= information
>and actual extent sizes. Any comments?

OBTAIN/CAMLST will provide what you need and it is not terribly difficult
to do (or to understand, really).  Assembler is actually the easiest method
(for me, anyway) but you ought to be able to do what you want in Systems/C
or other C variants (if you are alergic to assembler).

What you will get (if you do the processing correctly) is the sum of the
extent lists, which describe the data set's geometry; you won't get the
SPACE= allocation from the original file -- that's gone.  From the
geometry, you can measure the size of the data set (just like room
dimensions).

I've done exactly this type of processing (a long time ago in a data center
far away) to provide for dynamic SORTWK space calculated - correctly - from
the size of the input file(s).  It doesn't take long to code and doesn't
take long at all to run and it works.  I didn't take it with me when I left
there (or if I did it isn't readable anymore -- "three moves is as good as
a fire" as an old friend used to say).

You don't have to read the file end-to-end to calculate the space.  Toss in
DS1LSTAR (and the extension field added by z/OS 1.7 for Large Data Set
support, by the way) and you have the used space to within a block or
less.


>- I assume that RDJFCB for a not-yet-opened dataset will give SPACE=
>information only as coded in the DD statement (or SVC 99) which would be
>atypical and/or misleading for input datasets. Is that correct? The OPEN
>processing documentation describes DFSMS as merging the data from the DSCBs
>into the JFCB. How is that information available to an application program?
>In some way during an OPEN exit? By using RDJFCB after the dataset has been
>opened? Or ...?

You might be able to use SWAREQ services to pull the SPACE= from the
allocating DD statement (with DISP=NEW or DISP=MOD) but I'd trust the
geometry myself (and I have in the past).

--
Tom Schmidt
Madison, WI

--
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: Determining size information for existing QSAM dataset

[Bruce Black]

Well shoot, it looks like DFSMS OPEN merges the SECONDARY space quantity
into the JFCB but not the primary, perhaps because the secondary might be
needed for space extension, but there's really no use for the primary
quantity after initial allocation? Seems odd to me.

The primary quantity is not saved anywhere after allocation (except for 
VSAM) so it won't appear in the merged JFCB when opening an existing 
dataset.   If you specified a SPACE parm on the DD statement, the 
primary value will appear in the JFCB, but is the value from the parm, 
which may have no relation to the actual primary used when the ds was 
allocated.



Where does ISPF 3.2 get it from? Okay, it gets it from FAMS. Where does FAMS
get it from?


ISPF 3.2 does not display the primary allocation.  It shows
1st extent cylinders: 25
Secondary cylinders : 5 
but the first extent size is not necessarily equal to the primary 
allocation.  The primary request can be satisfied in up to 5 extents 
(sometimes more) if the volume is fragmented, so the first extent is 
equal to or less than the primary allocation request.



Is DS1LSTAR the last used track and block

- on the volume on which it appears in a DSCB-1?
- on all volumes that the dataset occupies?

Does that imply that a QSAM or PDS (non-PDSE) dataset is limited to 32,767
tracks? Or 65,535 tracks?

Sorry if this is a dumb question but the sum total of the documentation is
"Last used track and block on track (TTR). Not defined for VSAM, PDSE, and
HFS." Or is it documented somewhere besides DFSMS Advanced Services?

Prior to z/OS 1.7, most dataset types are limited to 65535 tracks per 
volume.  Some types (PDS) are limited to one volume, so they have an 
absolute limit of 65535.


From the 1.7 Using Data Sets manual:
"Data sets that are not limited to 65 535 total tracks allocated on any one
volume are:  
 
O   Large format sequential  
O   Extended-format sequential   
O   UNIX files   
O   PDSE 
O   VSAM  "


"Large format" is new in 1.7, and is a standard sequential (PS) dataset 
that can exceed 65535 tracks.  See the 1.7 DFSMS manuals for details.  
For such datsaets, the high TT is extended with another (non-contiguous) 
byte 




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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

SORT and VBS records

[Mautalen Juan Guillermo]

Hi,

We need to process DASD VBS datasets with DFSORT.

I have the folowing doubts:

1-Is it needed to specify DCB=BFTEK=A for the SORTIN dataset(s)?
2- If the answer to 1) is YES, let suppose you concatenate several
datasets for SORTIN, do you have to put the above DCB specification for
all the concatenated datasets, or just for the first one?

Thanks in advance for your help,


JUAN MAUTALEN

--
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 and VBS records

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Mautalen Juan Guillermo
> 
> Hi,
> 
> We need to process DASD VBS datasets with DFSORT.
> 
> I have the folowing doubts:
> 
> 1-Is it needed to specify DCB=BFTEK=A for the SORTIN dataset(s)?

No.  I use DFSORT to extract certain SMF record types "all the time", and
have never specified BFTEK=A on SORTIN.  I generally have DFSORT "convert"
them to VB on the SORTOUT dataset as well (the record types I extract do not
exceed 32,760 bytes in length).

-jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: COBOL copybook <-> Java bean mapper??

[Rob Wunderlich]

On Wed, 16 Nov 2005 04:06:51 -0600, Andy Robertson
<[EMAIL PROTECTED]> wrote:

>A while back I wrote (largely for my own amusement) a dialog to take a
COBOL
>copy book, compile it, and generate a Java class that could be used to map
>and access it.
>
>1) Is there any freeware or shareware already available to do this???  Or
if
>not precisely this, to produce the sort of map of a COBOL file that can be
>fed in to such a process???  I don't want to reinvent the wheel.  The CBT
>doesn't seem to have any thing.
>
>2) If not, does any one know any recommended software packages??

For commercial products, I believe BEA, iBatis, Websphere Studio and others
provide this function. They generally create classes for use in a specific
framework.

I tackled this problem myself a few years ago using JAVACC to parse the
source. I never finished it because we shifted gears to another approach,
that of using XML as the mapping and bridge. Our implementation is
atypical, in that the COBOL source, the XML-COBOL bridge and the Java Bean
are all generated at the same time by a progam generator using metadata. We
are not reverse engineering the COBOL.

However, you might want to visit the XML approach for reverse engineering.
If you search sourceforge.net for "Java AND COBOL" you'll find several
projects that map COBOL copybooks to XML. You might find some useful pieces
there to accomplish all or part of what you want to do.

-Rob

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: FTP Initial Directory

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 11/17/2005
   at 02:53 PM, Paul Gilmartin <[EMAIL PROTECTED]> said:

>Yes.  I issued the command "PROFILE PREFIX(WHATNOT)". 

That's limited to a single 7-character HLQ.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Strange Issue with LE/CICS/PLI

[Shmuel Metz (Seymour J.)]

In
<[EMAIL PROTECTED]>,
on 11/17/2005
   at 09:22 AM, Brad S Carson <[EMAIL PROTECTED]> said:

>PL/I 2.3 and LE Pl/I 1.1.1

OS PL/I "Optimizing" Compiler V2R3? Is that supported on a current
CICS?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Determining size information for existing QSAM dataset

[Edward E. Jaffe]

Charles Mills wrote:


Where does ISPF 3.2 get it from? Okay, it gets it from FAMS. Where does FAMS
get it from?
 



Nowhere. The original primary allocation amount is not saved. ISPF 3.2 
reports only the size of the first extent and the secondary allocation 
amount.


--
-
| Edward E. Jaffe||
| Mgr, Research & Development| [EMAIL PROTECTED]|
| Phoenix Software International | Tel: (310) 338-0400 x318   |
| 5200 W Century Blvd, Suite 800 | Fax: (310) 338-0801|
| Los Angeles, CA 90045  | 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: Determining size information for existing QSAM dataset

[Charles Mills]

Thanks all. Bruce's reply was especially helpful. I understand my various
imperfect options now.

With regard to R.S.'s observation: ain't it the truth! Does anyone have the
impression that making* a simple question like "how big is this file?" so
darned difficult somehow improves the value or the positive attributes (RAS,
etc.) of this platform?

*Yes, MAKING. Some of the problems are inevitable due to the age of the
platform and the philosophy of upward compatibility (small field sizes that
have now been outgrown in some kludgey way) but IBM's placing a prohibitive
price on fundamental (if PC-DOS can do it, it's fundamental) documentation
is totally incomprehensible.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Bruce Black
Sent: Friday, November 18, 2005 2:01 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Determining size information for existing QSAM dataset


>
>
>Well shoot, it looks like DFSMS OPEN merges the SECONDARY space quantity
>into the JFCB but not the primary, perhaps because the secondary might be
>needed for space extension, but there's really no use for the primary
>quantity after initial allocation? Seems odd to me.
>
The primary quantity is not saved anywhere after allocation (except for 
VSAM) so it won't appear in the merged JFCB when opening an existing 

--
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: Strange Issue with LE/CICS/PLI

[Brad S Carson]

Shmuel wrote:
>PL/I 2.3 and LE Pl/I 1.1.1

OS PL/I "Optimizing" Compiler V2R3? Is that supported on a current
CICS?
 
-- 

Surprisingly enough it runs with no problems (as did VS/COBOL II).  The 
funny thing here is that we can use the same loadlib in non-LE and LE 
regions with no problem.  Just in the LE region it doesn't honor the "ON 
ERROR . . ."

It has got me scratching my head!

Brad S. Carson
Sr. IT Analyst
Duke Health Technology Solutions
Box 2718 Duke University Medical Center
Durham, NC 27710
[EMAIL PROTECTED]
919-668-0545
919-668-6160 Fax 

--
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: Determining size information for existing QSAM dataset

[Charles Mills]

I take it that CAMLST, LOCATE, and OBTAIN are all fully 31-bit compatible?
Is that correct?

Gee, would it be that hard for IBM to say that in the documentation? The
absence of evidence of a 24-bit requirement should not be the only evidence
of its absence.

I went out to SYS1.MACLIB and searched CAMLST for AL3 and finding none,
assume it's 31-bit compatible. Seems like a heck of a way to have to do
things.

Charles



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Bruce Black
Sent: Friday, November 18, 2005 2:01 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Determining size information for existing QSAM dataset


>
>
>Well shoot, it looks like DFSMS OPEN merges the SECONDARY space quantity
>into the JFCB but not the primary, perhaps because the secondary might be
>needed for space extension, but there's really no use for the primary
>quantity after initial allocation? Seems odd to me.
>
The primary quantity is not saved anywhere after allocation (except for 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: FTP Initial Directory

[Paul Gilmartin]

In a recent note, "Shmuel Metz (Seymour J.)" said:

> Date: Fri, 18 Nov 2005 13:59:14 -0500
> 
> >Yes.  I issued the command "PROFILE PREFIX(WHATNOT)".
> 
> That's limited to a single 7-character HLQ.
> 
Is this where I'm supposed to say, "That is not my dog!"?
It's distinctly IBM's dog, and a poorly designed one.  I can
hardly imagine a rationale for a 7-character limit, rather
than the logical limit of 42.  Was storage once, perhaps,
so expensive?

The same applies to the Project, Group, and Type fields on
ISPF data set menus.

-- gil
-- 
StorageTek
INFORMATION made POWERFUL

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

EMS1076E Recursive logon in NVAS

[Davis Kriss P]

We are having some odd problems with the jump keys not working in
certain environments/applications in NVAS.  Then folks close their
TERMINAL emulation window and then get error messages like the below.

EMS1076E Recursive logon to same group is not allowed.

We have had little trouble with the PA/PF key JUMP processing in the
past, but it seems like either certain CICS versions or whatever is now
trapping those keys from being passed up to NVAS.

I know the above is pretty general, but just wondering if anyone had
this same problem and perhaps there was a PTF or something else that was
applied to fix it.  a search of IBM-MAIN archives did not get a hit on
the error message above.

Thanks in advance,
Kriss


-
Kriss Davis, CCP
Interim Enterprise Server Manager
Datatel/Touchnet Project Management 
Illinois State University
[EMAIL PROTECTED]
309-438-2802
-

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

Infozip on zos

[Larry Heath]

I've tried many different batch job configs trying to zip a pds and I've
searched the Inet for working examples but am not able to get them to work.
Does anyone have a example of a working batch job for infozip v2.3 and zos
1.4 ??
I sure would appreciate it.
Larry


**
Privileged and/or confidential information may be contained in this message. If 
you are not the addressee indicated in this message (or are not responsible for 
delivery of this message to that person) , you may not copy or deliver this 
message to anyone. In such case, you should destroy this message and notify the 
sender by reply e-mail.
If you or your employer do not consent to Internet e-mail for messages of this 
kind, please advise the sender.
Shaw Industries does not provide or endorse any opinions, conclusions or other 
information in this message that do not relate to the official business of the 
company  or its subsidiaries.
**

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

New zPoPS

[McKown, John]

I don't remember seeing this here. 

SA22-7832-04 "z/Architecture: Principles of Operation"
http://www-03.ibm.com/servers/eserver/zseries/zos/bkserv/zvmpdf/zarchpop
s.html

This include the new z9 instructions.

--
John McKown
Senior Systems Programmer
UICI Insurance Center
Information Technology

This message (including any attachments) contains confidential
information intended for a specific individual and purpose, and its'
content is protected by law.  If you are not the intended recipient, you
should delete this message and are hereby notified that any disclosure,
copying, or distribution of this transmission, or taking any action
based on it, is strictly prohibited.
 

--
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: Infozip on zos

[Ed Finnell]

 
In a message dated 11/18/2005 2:46:57 P.M. Central Standard Time,  
[EMAIL PROTECTED] writes:

searched  the Inet for working examples but am not able to get them to work.
Does  anyone have a example of a working batch job for infozip v2.3 and zos
1.4  ??
I sure would appreciate it.



>>
Did you try the archives
It works fine for me on v2r10. My JCL looks like  :

//ZIP  EXEC PGM=ZIP,PARM='DD:OUT  ''PROD.MYFILE''  -B'
//STEPLIB  DD  DSN=INFOZIP.LOAD,DISP=SHR
//OUT  DD  DSN=&&OUTFILE,DISP=(NEW,PASS),
// SPACE=(15000,(5000,5000),RLSE),UNIT=SYSALLDA,
// LRECL=80,RECFM=FB,DSORG=PS
//SYSPRINT DD   SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//CEEDUMP  DD   SYSOUT=*

Using binary mode...
adding: PROD.MYFILE (deflated  3%)

I am using Zip.2.3 marked "November 29th  1999".


--
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: Performance tools and JAVA

[Aaron Walker]

Ha ha ha.  I'm laughing because I think I know EXACTLY what product of which
you are speaking!  We have the same problem.  The applet wants somewhere
around Java 1.4.2, and we have an inhouse HR application which is seriously
back level and requires it's own 1.3.0-or-so JRE.  You choose to break one
or the other.  We're working with this MA-based company to figure out a
workaround.  I'm not specifically the person dealing with this, but I sit
right next to the guy that does.  If you'd like to commiserate or share
notes off-list, feel free.  I'll speak to my guy when he gets back after the
holiday, and see if he has any thoughts.  This has kept us from using this
product.

Aaron



On Fri, 18 Nov 2005 08:45:12 -0800, Duffy, Peter
<[EMAIL PROTECTED]> wrote:

>Hi, all,
>
>For the past year and a half I have been in a slow dance with a software
>company to get their performance analysis tool running in my shop.  The
>mainframe version is great, I can read reports and page through long
>listings, and if I know what to look for I can understand where issues
>are in online and batch jobs.  Users of this product need to be fairly
>highly skilled at performance issues, like senior programmers or
>sysprogs.
>
>The company touts an XML based sort of extension to their product.  Run
>a mainframe job to create an XML file, FTP it, view it in a browser in
>full color and anyone can click to dive into fuel gauge displays to see
>modules, files, etc causing waits or consuming resources.  Great tool,
>anyone can see the issues.
>
>The problem is it needs a version of JAVA that is in conflict with the
>JAVA we run. We have some older apps that need the version we run.  The
>slow dance has been around trying this and that to get it to work to no
>avail.
>
>Two questions:
>
>1) Does anyone have recommendations for a product like this one that is
>really JAVA independent?
>
>2) How often are other sites running into this sort of incompatibility
>for JAVA for their various business applications?  Are we now tied to
>legacy JAVA apps, just as we have been tied to legacy mainframe apps?
>(I ask because the vendor is puzzled by my situation.)
>
>Thanks,
>Peter Duffy
>IS Consultant Programmer - Operations - Mainframe/AS400
>   _     NISSAN NORTH AMERICA
>Information Systems Department
>Gardena, CA, USA
>310-771-6472
>
>
>--
>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: tn3270 work through VPN?

[Eric Chevalier]

On 18 Nov 2005 11:19:38 -0800, [EMAIL PROTECTED] wrote:

>Does anyone have any experience of using a tn3270 session over a vpn?
>(I'm running out of things to check...)

I work in a remote office that's connected to our HQ via a LAN-LAN IPSec
tunnel. A Lucent "VPN Brick 80" sits in each office, serving as the
firewall and VPN endpoint. I have no problem connecting to our mainframe
using PCOMM 5.6 and tn3270 through this VPN.

At home, I have a LAN-LAN IPSec tunnel to our HQ, using a Netgear FVS318
as my end of the tunnel. PCOMM 5.6 and tn3270 work just fine through this
VPN.

Finally, sometimes I'm on the road and I'll connect to HQ using the Lucent
IPSec client. tn3270 connections work fine through that VPN, as well.

Eric

--
Eric Chevalier  E-mail: [EMAIL PROTECTED]
   Web: www.tulsagrammer.com
Is that call really worth your child's life?  HANG UP AND DRIVE!

--
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: tn3270 work through VPN?

[Skip Robinson]

I take it you mean an emulator session such as Vista. Which I use
extensively over VPN from home, from hotels across the country, from SHARE
WiFi facilities. Even used it with Verizon PC WAN card (talks directly to
the mobile network). There are sometimes adjustments and tweaks required,
but basically VPN works with TN3270.

.
.
.
JO.Skip Robinson
Southern California Edison Company
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
[EMAIL PROTECTED]

IBM Mainframe Discussion List  wrote on 11/18/2005
02:15:29 PM:

> On 18 Nov 2005 11:19:38 -0800, [EMAIL PROTECTED] wrote:
>
> >Does anyone have any experience of using a tn3270 session over a vpn?
> >(I'm running out of things to check...)
>


--
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: tn3270 work through VPN?

[Ray Mullins]

I use IBM Pcomm all the time through a Nortel VPN.  (Said VPN prevents me
from communicating with a printer on my home network, though...grumble.)

Later,
Ray 

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Skip Robinson
> Sent: Friday November 18 2005 14:31
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: tn3270 work through VPN?
> 
> I take it you mean an emulator session such as Vista. Which I 
> use extensively over VPN from home, from hotels across the 
> country, from SHARE WiFi facilities. Even used it with 
> Verizon PC WAN card (talks directly to the mobile network). 
> There are sometimes adjustments and tweaks required, but 
> basically VPN works with TN3270.
> 
> 

--
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: EMS1076E Recursive logon in NVAS

[John S. Giltner, Jr.]

Davis Kriss P wrote:

We are having some odd problems with the jump keys not working in
certain environments/applications in NVAS.  Then folks close their
TERMINAL emulation window and then get error messages like the below.

EMS1076E Recursive logon to same group is not allowed.

We have had little trouble with the PA/PF key JUMP processing in the
past, but it seems like either certain CICS versions or whatever is now
trapping those keys from being passed up to NVAS.

I know the above is pretty general, but just wondering if anyone had
this same problem and perhaps there was a PTF or something else that was
applied to fix it.  a search of IBM-MAIN archives did not get a hit on
the error message above.

Thanks in advance,
Kriss


-
Kriss Davis, CCP
Interim Enterprise Server Manager
Datatel/Touchnet Project Management 
Illinois State University

[EMAIL PROTECTED]
309-438-2802
-



Are you using NVAS in PASS mode to signon to CICS?  If you are using 
Relay mode, then NVAS gets the keys 1st.  However if you are in PASS 
mode, then NVAS is not in the picture until you get out of the application.


--
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: Sysplex and CPU Questions

[Mohamed Juma]

The Fix for OA12848bis I received it already from IBM
4 days back and has been applied, it is the APAR
number CA12848.

Mohamed Juma 
--- Gil Peleg <[EMAIL PROTECTED]> wrote:

> Hi Bruno,
> We too are victims of OA03194 and now waiting
> OA12848 to be closed...
> Currently living the the SLIP provided in the APAR.
>  Do you have information about any progress with
> OA12848?
>  Thanks,
> Gil.
> 
>  On 11/13/05, Bruno Sugliani <[EMAIL PROTECTED]>
> wrote:
> >
> > On Sun, 13 Nov 2005 02:57:41 -0600, Brian
> Westerman
> > <[EMAIL PROTECTED]> wrote:
> >
> > >Hi,
> > >
> > >I'm going to simplify this a bit to show you the
> differences.
> > >
> > In the same line of speach :-)
> > I am going to give you the real life example !
> > OA03194 was created in order to limit the number
> of SRB's an exploiter may
> > have running in the connector's address space.
> > ( for your own sake do not apply it )
> > I am the guy who got hit with my small data
> sharing configuration ( 2 x
> > z/990 with only 2 engines each )
> > This resulted in the OA12848 ( opened for/by us )
> .
> > Now i always said since years that a mono engine
> system was a calculated
> > computer suicide , and nobody will ever change my
> mind after this
> > nightmare.
> > ( although i had 2 CP's on each machine)
> > So my advise to you ... never have an lpar with
> one engne only .
> > Bruno
> > Bruno(dot)sugliani(at)groupemornay(dot)asso(dot)fr
> >
> >
>
--
> > For IBM-MAIN subscribe / signoff / archive access
> instructions,
> > send email to [EMAIL PROTECTED] with the
> message: GET IBM-MAIN INFO
> > Search the archives at
> http://bama.ua.edu/archives/ibm-main.html
> >
> 
>
--
> For IBM-MAIN subscribe / signoff / archive access
> instructions,
> send email to [EMAIL PROTECTED] with the message:
> GET IBM-MAIN INFO
> Search the archives at
> http://bama.ua.edu/archives/ibm-main.html
> 




__ 
Yahoo! FareChase: Search multiple travel sites in one click.
http://farechase.yahoo.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: Sysplex and CPU Questions

[Mohamed Juma]

The Fix for OA12848bis I received it already from IBM
4 days back and has been applied, it is the APAR
number CA12848.

Mohamed Juma 
--- Gil Peleg <[EMAIL PROTECTED]> wrote:

> Hi Bruno,
> We too are victims of OA03194 and now waiting
> OA12848 to be closed...
> Currently living the the SLIP provided in the APAR.
>  Do you have information about any progress with
> OA12848?
>  Thanks,
> Gil.
> 
>  On 11/13/05, Bruno Sugliani <[EMAIL PROTECTED]>
> wrote:
> >
> > On Sun, 13 Nov 2005 02:57:41 -0600, Brian
> Westerman
> > <[EMAIL PROTECTED]> wrote:
> >
> > >Hi,
> > >
> > >I'm going to simplify this a bit to show you the
> differences.
> > >
> > In the same line of speach :-)
> > I am going to give you the real life example !
> > OA03194 was created in order to limit the number
> of SRB's an exploiter may
> > have running in the connector's address space.
> > ( for your own sake do not apply it )
> > I am the guy who got hit with my small data
> sharing configuration ( 2 x
> > z/990 with only 2 engines each )
> > This resulted in the OA12848 ( opened for/by us )
> .
> > Now i always said since years that a mono engine
> system was a calculated
> > computer suicide , and nobody will ever change my
> mind after this
> > nightmare.
> > ( although i had 2 CP's on each machine)
> > So my advise to you ... never have an lpar with
> one engne only .
> > Bruno
> > Bruno(dot)sugliani(at)groupemornay(dot)asso(dot)fr
> >
> >
>
--
> > For IBM-MAIN subscribe / signoff / archive access
> instructions,
> > send email to [EMAIL PROTECTED] with the
> message: GET IBM-MAIN INFO
> > Search the archives at
> http://bama.ua.edu/archives/ibm-main.html
> >
> 
>
--
> For IBM-MAIN subscribe / signoff / archive access
> instructions,
> send email to [EMAIL PROTECTED] with the message:
> GET IBM-MAIN INFO
> Search the archives at
> http://bama.ua.edu/archives/ibm-main.html
> 





__ 
Yahoo! Mail - PC Magazine Editors' Choice 2005 
http://mail.yahoo.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