zOS 1.9-USS dbx problems

2009-04-30 Thread Leopold Strauss
We have a relatively complex application ( lot of C++, C- and 
ASM-routines, partially dynamically linked, partially static linked).

We deliver only a xplink-version to our customers ( as recommended by IBM).

1.When trying to use debugging with Websphere as surface on PC, only the 
nonxplink-debug-version works.


With the xplink-version we get a FDBX5024-message ( internal error 
occurred).


With dbx only ( without remote-websphere) the above xplink-version can 
be loaded and started without any error.


Little straightforward-programs ( even with some few small dlls) can be 
debugged  even with the xplink-version flawlessly.


2. Trying to analyze a corefile ( dbx -C ) does not work.

Got following messages( segmentation violation signal 11):
...
...
..
FDBX6432: Processing load moFDBX0044: catchfault called with 11, pid=66414
dule /isis/stress.620/common/mu/lib/pcsdll05.so
FDBX0089: dbx for z/OS with 64-bit support.
FDBX0399: Compiled: May  5 2008 at 01:06:38 (v1.9)
FDBX0400: OS level: 09.00 01; LE level: 4.1.9; (Coredump)
FDBX6499: CDA levels: ELF=UK38212.z1r9, DWARF=UK38212.z1r9,
 DDPI=UK38212.z1r9
dbx64: fatal error: FDBX6400: Ddpi error: dpi_main: ddpi initialization 
failure


With IPCS under TSO the same dumpfile can be analyzed perfectly ( that 
means, the SYSMDUMP was OK).


3. With no program ( not even with a little 'hello.world'-programm) a 
disassambly is possible with websphere.


We tried a lot

My questions:

What do we wrong or what is wrong with our dbx ?

Does anybody have similar experiences ?

Does anybody eventually have any useful hints/tips, ideas .?

Thanks a lot in advance

--
Best regards / Mit freundlichen Grüßen

Leopold Strauss
Research  Development

ISIS Information Systems Gmbh tel: (+43) 2236 27551 591
Fax: (+43) 2236 21081
E-mail: leopold.stra...@isis-papyrus.com
Info: i...@isis-papyrus.com Hotline: +43-2236-27551-111
Visit our Website: http://www.isis-papyrus.com

---
This e-mail is only intended for the recipient and not legally
binding. Unauthorised use, publication, reproduction or
disclosure of the content of this e-mail is not permitted.
This email has been checked for known viruses, but ISIS accepts
no responsibility for malicious or inappropriate content.
---

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


shareware replacement for sas rename member function

2009-04-30 Thread Don Isenstadt
Hello,

Well times are tough so we are dropping sas .. is there a shareware function 
that will do this??

PROC PDS DDNAME=RENLIB01;  
  CHANGE YYY:=XXX:;

thanks..

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


Implications of not having CMF or RMF - Urgent

2009-04-30 Thread Jacky Bright
Due to licensing cost cutting my client is considering removing CMF. Also he
is not ready to go for RMF software.

Would like to know is there any third party tool which generates Type 70-79
records as being generated by these tools.

We are running SYSPLEX. Without these tools is there any other way by which
we can get LPAR / Partition / Coupling Facility LPAR wise CPU MSU / MIPS
report for every 15 min. interval ?

JAcky

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


replacement for proc pds rename function...

2009-04-30 Thread don isenstadt
Well times are tough so we are dropping sas .. is there a shareware function
that will do this??

PROC PDS DDNAME=RENLIB01;
 CHANGE YYY:=XXX:;

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


relationship between directory blocks and the number of members in a PDS ?

2009-04-30 Thread CUNY Yann
 

Hi all, 

 

Can somebody tell me what is the relationship between
directory blocks and the number of members in a PDS ?

 

Thanks ...


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


Re: replacement for proc pds rename function...

2009-04-30 Thread Norbert Friemel
On Thu, 30 Apr 2009 04:01:09 -0500, don isenstadt wrote:

Well times are tough so we are dropping sas .. is there a shareware function
that will do this??

PROC PDS DDNAME=RENLIB01;
 CHANGE YYY:=XXX:;



CBT Tape File #182 (PDS command):

//S1  EXEC PGM=IKJEFT1B
//STEPLIB   DD DISP=SHR,DSN=XXX.FILE182.LOAD   
//SYSTSPRT  DD SYSOUT=*
//RENLIB01  DD DISP=SHR,DSN=LIB
//SYSTSIN   DD *   
 PDS FILE(RENLIB01)
 RENAME YYY XXX GROUP  
/*


Norbert Friemel 

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


Re: replacement for proc pds rename function...

2009-04-30 Thread Jousma, David
Of course there is the freebie IPOUPDTE(now an alias of CPPUPDTE) that
lives in your Serverpac installation dialogs loadlibrary

//IPOUPDT  EXEC PGM=IPOUPDTE,PARM=CHECK
//STEPLIB  DD DSN=your.serverpackorder.SCPPLOAD,DISP=SHR 
//@LIBRARY DD DSN=PDS.to.change,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSINDD *,DLM=ZZ
YYYXXX
ZZ

_
Dave Jousma
Assistant Vice President, Mainframe Services
david.jou...@53.com
1830 East Paris, Grand Rapids, MI  49546 MD RSCB1G
p 616.653.8429
f 616.653.8497

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of don isenstadt
Sent: Thursday, April 30, 2009 5:01 AM
To: IBM-MAIN@bama.ua.edu
Subject: replacement for proc pds rename function...

Well times are tough so we are dropping sas .. is there a shareware
function
that will do this??

PROC PDS DDNAME=RENLIB01;
 CHANGE YYY:=XXX:;

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

This e-mail 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: Slightly off topic power limits

2009-04-30 Thread R.S.

Hal Merritt pisze:
I seem to recall a variable is the ambient temperature. That is, the z/10 blowers may consume more power in a warm room than an equivalent z/9.   

Could this be a factor? 


No, it couldn't My observation was done when two machines were in the 
same room, very close one to other.



Current ratings:
z9
Total System power consumption: 3.283 kW (KVA), 11202 BTU/hr
Air input temperature: 18.2 °C, 64.8 °F

z10
Total System power consumption: 5.918 kW (kVA); 20193 BTU/hr
Air input temperature: 25.3 °C; 77.5 °F


As you can see the difference is even bigger. However air temp is lower 
for z9 (now it's in another location).
z9 powered up, LPARs are activated, but no OS is IPLed, however this 
should not affect power consumption at all. AFAIR I've checked it in the 
past.


Of course the tube at the front of z10 is still much greener vbg

--
Radoslaw Skorupka
Lodz, Poland


--
BRE Bank SA
ul. Senatorska 18
00-950 Warszawa
www.brebank.pl

Sd Rejonowy dla m. st. Warszawy 
XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, 
nr rejestru przedsibiorców KRS 025237

NIP: 526-021-50-88
Wedug stanu na dzie 01.01.2009 r. kapita zakadowy BRE Banku SA (w caoci 
wpacony) wynosi 118.763.528 zotych. W zwizku z realizacj warunkowego 
podwyszenia kapitau zakadowego, na podstawie uchway XXI WZ z dnia 16 marca 
2008r., oraz uchway XVI NWZ z dnia 27 padziernika 2008r., moe ulec 
podwyszeniu do kwoty 123.763.528 z. Akcje w podwyszonym kapitale zakadowym 
BRE Banku SA bd w caoci opacone.

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


Re: ADRDSSU protection [was:RE: Using FTP to send loadlib]

2009-04-30 Thread R.S.

Patrick O'Keefe pisze:
[...]

of the problem reminded me that I've recently been in the same
situation but DID NOT have the problem.  IBM sent a backup of some
datasets in ADRDSSU format.  I defintely do not have even READ 
access to the original dataset names in our security system (ACF2)

or ADRDSSU ADMIN authority but had no trouble doing a ADRDSSU
restore with rename.

Could the problem be options used to either create or restore the
backup? 


There is no wise reason to restrict access to ADRDSSU at all (in PROGRAM 
class). Really. There is a need to protect ADRDSSU *functions* or 
features. It can be usage of ADMIN keyword (a series of profiles 
STGADMIN.ADR.STGADMIN.function.minor).
In the case above you could have access to STGADMIN.ADR.IMPORT, which is 
not unsecure IMHO. YMMV.


BTW: the best way to protect backup is protection of backup dataset. If 
you can't open it, you cannot restore from it. Simple?
However if you can open it, but ADRDSSU does not allow you to restore 
(i.e. because orginal dsnames are not for you), you still can use 
another tool to view the content.


--
Radoslaw Skorupka
Lodz, Poland


--
BRE Bank SA
ul. Senatorska 18
00-950 Warszawa
www.brebank.pl

Sd Rejonowy dla m. st. Warszawy 
XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, 
nr rejestru przedsibiorców KRS 025237

NIP: 526-021-50-88
Wedug stanu na dzie 01.01.2009 r. kapita zakadowy BRE Banku SA (w caoci 
wpacony) wynosi 118.763.528 zotych. W zwizku z realizacj warunkowego 
podwyszenia kapitau zakadowego, na podstawie uchway XXI WZ z dnia 16 marca 
2008r., oraz uchway XVI NWZ z dnia 27 padziernika 2008r., moe ulec 
podwyszeniu do kwoty 123.763.528 z. Akcje w podwyszonym kapitale zakadowym 
BRE Banku SA bd w caoci opacone.

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


Re: Implications of not having CMF or RMF - Urgent

2009-04-30 Thread Rob Scott
As far as I am aware, there is no other software apart from CMF that emulates 
the RMF SMF record cutting and ERBSMFI interface.

The knowledge requried amd code complexity to write and support such a tool and 
make it compatable would probably cause the license cost to be around the same 
as RMF/CMF anyway.

Without RMF/CMF, there are probably reporting capabilities in some other ISV 
monitor products that might get you some results - however I would not be 
surprised if some of those tools did not depend on RMF records (or ERBSMFI 
calls) to gather certain measurements - and the cost of the ISV monitors would 
probably exceed that of RMF/CMF anyway. 


Rob Scott
Developer
Rocket Software
275 Grove Street * Newton, MA 02466-2272 * USA
Tel: +1.617.614.2305 
Email: rsc...@rs.com 
Web: www.rocketsoftware.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Jacky Bright
Sent: 30 April 2009 09:54
To: IBM-MAIN@bama.ua.edu
Subject: Implications of not having CMF or RMF - Urgent

Due to licensing cost cutting my client is considering removing CMF. Also he is 
not ready to go for RMF software.

Would like to know is there any third party tool which generates Type 70-79 
records as being generated by these tools.

We are running SYSPLEX. Without these tools is there any other way by which we 
can get LPAR / Partition / Coupling Facility LPAR wise CPU MSU / MIPS report 
for every 15 min. interval ?

JAcky

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

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


Re: relationship between directory blocks and the number of members in a PDS ?

2009-04-30 Thread Lizette Koehler
That will depend on a couple of things.

A rule of thumb I have used is 

Loadlib 4 members per DIR Blk
Source 7 member per Dir Blk if ISPF Statistics are OFF
Source 4 member per Dir Blk if ISPF Statistics are ON

I do not have numbers for PDS/E datasets and Directory Blocks.

I have not looked at this in a while.  But this usually works for me.

Lizette


 
 Hi all,
 Can somebody tell me what is the relationship between
 directory blocks and the number of members in a PDS ?
 
 
 

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


Re: CICS Region oddity

2009-04-30 Thread Richards, Robert B.
IBM is now in possession of a dump. I'll let everyone know what the
final resolution is.

Bob

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


Re: relationship between directory blocks and the number of members in a PDS ?

2009-04-30 Thread Fatemi, Reza
Take a look at DESERV Service. 

Reza Fatemi
Senior Product Developer 
BMC Software


-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Rob Scott
Sent: Thursday, April 30, 2009 3:50 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: relationship between directory blocks and the number of members in 
a PDS ?

I do not have numbers for PDS/E datasets and Directory Blocks.

To the external user there is no such thing as a directory block within a PDS-E 
- the member information is just taken from the general space within the 
dataset. 


Rob Scott
Developer
Rocket Software
275 Grove Street * Newton, MA 02466-2272 * USA
Tel: +1.617.614.2305 
Email: rsc...@rs.com 
Web: www.rocketsoftware.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Lizette Koehler
Sent: 30 April 2009 11:45
To: IBM-MAIN@bama.ua.edu
Subject: Re: relationship between directory blocks and the number of members in 
a PDS ?

That will depend on a couple of things.

A rule of thumb I have used is 

Loadlib 4 members per DIR Blk
Source 7 member per Dir Blk if ISPF Statistics are OFF Source 4 member per Dir 
Blk if ISPF Statistics are ON

I do not have numbers for PDS/E datasets and Directory Blocks.

I have not looked at this in a while.  But this usually works for me.

Lizette


 
 Hi all,
 Can somebody tell me what is the relationship between 
 directory blocks and the number of members in a PDS ?
 
 
 

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

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

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


Re: Implications of not having CMF or RMF - Urgent

2009-04-30 Thread Paul Gillis
G'day Jacky,

I do not believe so. There may be some performance monitors on the CBT site,
but you will get what your client is prepared to pay for. 

Nine tenths of Zero.

Cheers,
Paul Gillis

 Due to licensing cost cutting my client is considering removing CMF. Also
 he is not ready to go for RMF software.
 
 Would like to know is there any third party tool which generates Type 70-
 79 records as being generated by these tools.
 
 We are running SYSPLEX. Without these tools is there any other way by
 which we can get LPAR / Partition / Coupling Facility LPAR wise CPU MSU /
 MIPS report for every 15 min. interval ?
 
 JAcky

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


Re: relationship between directory blocks and the number of members in a PDS ?

2009-04-30 Thread Rob Scott
I do not have numbers for PDS/E datasets and Directory Blocks.

To the external user there is no such thing as a directory block within a PDS-E 
- the member information is just taken from the general space within the 
dataset. 


Rob Scott
Developer
Rocket Software
275 Grove Street * Newton, MA 02466-2272 * USA
Tel: +1.617.614.2305 
Email: rsc...@rs.com 
Web: www.rocketsoftware.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Lizette Koehler
Sent: 30 April 2009 11:45
To: IBM-MAIN@bama.ua.edu
Subject: Re: relationship between directory blocks and the number of members in 
a PDS ?

That will depend on a couple of things.

A rule of thumb I have used is 

Loadlib 4 members per DIR Blk
Source 7 member per Dir Blk if ISPF Statistics are OFF Source 4 member per Dir 
Blk if ISPF Statistics are ON

I do not have numbers for PDS/E datasets and Directory Blocks.

I have not looked at this in a while.  But this usually works for me.

Lizette


 
 Hi all,
 Can somebody tell me what is the relationship between 
 directory blocks and the number of members in a PDS ?
 
 
 

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

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


Re: replacement for proc pds rename function...THANKS got answer

2009-04-30 Thread don isenstadt
great.. we already have that program but I've never used that function ..
thanks.

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


Re: relationship between directory blocks and the number of members in a PDS ?

2009-04-30 Thread Binyamin Dissen
On Thu, 30 Apr 2009 11:09:35 +0200 CUNY Yann yc...@externe.generali.fr
wrote:

::Can somebody tell me what is the relationship between
:directory blocks and the number of members in a PDS ?

Each directory block has 256 bytes, of which 2 bytes are used for a count.

The minimum directory entry is 12 bytes, but most are larger. Aliases use
directory space as well.

--
Binyamin Dissen bdis...@dissensoftware.com
http://www.dissensoftware.com

Director, Dissen Software, Bar  Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: replacement for proc pds rename function...

2009-04-30 Thread Lizette Koehler
Yes, that and TSO RENAME also works, but I think the OP is looking for
something with wildcard capabilities.
For example rather than code PROC1 PROC2 PROC3 and ignore TPROC1 APROC1 etc,
the OP has coded

PROC PDS DDNAME=RENLIB01;
 CHANGE YYY:=XXX:;

Which is SAS-speak for Change all PROCs that being with YYY to XXX and the
trailing characters should be left as is.  

If you want to rename a member or members of the PDS, use the CHANGE
statement. Specify the old name on the left side of the equal sign, and
specify the new name on the right. 

Both of these tools require specific names.

Lizette


 
 Don and responding contributors
 
 Maybe I'm being grossly old-fashioned - and I am certainly grossly
out-of-date
 regarding MVS Utilities - but I believe when I wanted to create a batch
job[1]
 in order to rename the member of a partitioned data set, procedure members
 in procedure libraries included, I used the entirely free - sorry, at no
extra
 cost from IBM - utility IEHPROGM. The appropriate example - found quickly
by
 searching for rename on the Contents web page of the z/OS DFSMSdfp
 Utilities (SC26-7414-04) manual (to be found in the z/OS V1R10 DFSMS
 bookshelf):
 
 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2U130
 
 Specifically 14.5.7 Example 7: Rename a Partitioned Data Set Member.
 
 quote
 
//REN  JOB  ...
//STEP1EXEC PGM=IEHPROGM
//SYSPRINT DD  SYSOUT=A
//DD1  DD  VOL=SER=22,DISP=OLD,UNIT=disk
//SYSINDD  *
   RENAME
 VOL=disk=22,DSNAME=DATASET,NEWNAME=BC,MEMBER=ABC
/*
 
 
 /quote
 
 In effect, all the suggestions would appear to be *replacements* for the
 original IBM IEHPROGM utility which I am prepared to bet predates the
 programs named in these suggestions - and SAS - by many blue moons.
 
 Is there some subtlety I missed here caused by my long neglect of the use
of
 MVS Utilities - or have so many alternatives cropped up in the good
times
 packaged with must-have products that folk have forgotten about the
 original at no extra cost utilities?
 
 Chris Mason
 
 [1] With the aid of a little program which converted PARM field data into
utility
 input control data sets - among other uses - and a little program which
 displayed the contents of the utility output print data set on the console
 wrapped up in handy started task procedures, I set up many frequently used
 functions - even incorporating some into automation - which relied on
 absolutely standard MVS utilities such as IEHPROGM. This was for use -
long
 ago now - with test/education systems where the only significant MVS
 console was the 3270 where the VM userid for the MVS guest was logged on.
 
 On Thu, 30 Apr 2009 04:01:09 -0500, don isenstadt
 don.isenst...@gmail.com wrote:
 
 Well times are tough so we are dropping sas .. is there a shareware
function
 that will do this??
 
 PROC PDS DDNAME=RENLIB01;
  CHANGE YYY:=XXX:;
 

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


JES2 Command to display JNUM usage

2009-04-30 Thread Lizette Koehler
We are running z/OS V1.9

I need to be able to display all JES2 queues with the number of jobs in
each.  I will be adding this to our OPS/MVS process when $HASP050 for JNUM
occurs.

Currently we have run successfully with JNUM set to 10,000; normally we use
5,000 per day.  Our purge processes are working.  What I need to do is get
better doc at the time of the HASP050 message.  I will add a $DJOBDEF and
$DSPOOLDEF.  Just trying to find some more to get a better idea of what is
going on.

Is there a way in JES2 to issue a command to say 
Input QUEUE A 100 Jobs
OUTPUT QUEUE A 20 Jobs, etc?  

If not, I will look at the SDSF In batch and have OPS submit a batch job to
collect the info.


Lizette

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


Re: replacement for proc pds rename function...

2009-04-30 Thread Chris Mason
Don and responding contributors

Maybe I'm being grossly old-fashioned - and I am certainly grossly out-of-date 
regarding MVS Utilities - but I believe when I wanted to create a batch job[1] 
in order to rename the member of a partitioned data set, procedure members 
in procedure libraries included, I used the entirely free - sorry, at no extra 
cost from IBM - utility IEHPROGM. The appropriate example - found quickly by 
searching for rename on the Contents web page of the z/OS DFSMSdfp 
Utilities (SC26-7414-04) manual (to be found in the z/OS V1R10 DFSMS 
bookshelf):

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2U130

Specifically 14.5.7 Example 7: Rename a Partitioned Data Set Member.

quote

   //REN  JOB  ...
   //STEP1EXEC PGM=IEHPROGM
   //SYSPRINT DD  SYSOUT=A
   //DD1  DD  VOL=SER=22,DISP=OLD,UNIT=disk
   //SYSINDD  *
  RENAME 
VOL=disk=22,DSNAME=DATASET,NEWNAME=BC,MEMBER=ABC
   /*


/quote

In effect, all the suggestions would appear to be *replacements* for the 
original IBM IEHPROGM utility which I am prepared to bet predates the 
programs named in these suggestions - and SAS - by many blue moons.

Is there some subtlety I missed here caused by my long neglect of the use of 
MVS Utilities - or have so many alternatives cropped up in the good times 
packaged with must-have products that folk have forgotten about the 
original at no extra cost utilities?

Chris Mason

[1] With the aid of a little program which converted PARM field data into 
utility 
input control data sets - among other uses - and a little program which 
displayed the contents of the utility output print data set on the console 
wrapped up in handy started task procedures, I set up many frequently used 
functions - even incorporating some into automation - which relied on 
absolutely standard MVS utilities such as IEHPROGM. This was for use - long 
ago now - with test/education systems where the only significant MVS 
console was the 3270 where the VM userid for the MVS guest was logged on.

On Thu, 30 Apr 2009 04:01:09 -0500, don isenstadt 
don.isenst...@gmail.com wrote:

Well times are tough so we are dropping sas .. is there a shareware function
that will do this??

PROC PDS DDNAME=RENLIB01;
 CHANGE YYY:=XXX:;

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


Re: TEPS and TEMS

2009-04-30 Thread Vince Getgood
All,
Thanks for the responses.

The two TEMS are both hub TEMS.

It turns out that the TEMS on the LPAR I was trying to connect to started 
before TCPIP, which is why I couldn't connect to it.

I've bounced the TEMS on z/OS, and the TEPS on my PC.

Now, when I try to start the TEPS client, I get prompted for a userid amp; 
password.

I enter SYSADMIN ('cos that's all that exists at the moment) and the correct 
password, (that I set when installing TEPS) and I get the following messages 
in the TEMS RKLVLOG:-

KDSPA002   Logon validation did not complete. Password not valid. User 
sysadmin

The manual very helpfully (not) says:-

You tried to log onto the Tivoli Enterprise Monitoring Server (TEMS) data 
collection server, but the password supplied for the user ID is not valid.

I AM entering the VALID password for sysadmin.  What's happening here?

TIA

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


Re: NPIV on System z

2009-04-30 Thread John Argall
Hi,

Thanks for responding. 

We've been able to get the NPIV active. The advice given was invaluable. 

Once the guest had the device reattached, NPIV WWPN was passed to the 
switch.

Looking back through the redbook, these steps are are at the back end of the 
process, or may be we lost in translation. Time for another read.

Again, thankyou for responding.

John

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


Re: replacement for proc pds rename function...

2009-04-30 Thread Clement Clarke
Yes, the only problem with IEHPROGM is that you have to use the Vol 
keyword, and know where the data set is. 


You can't use the Catalog to find the file.

In Jol, the syntax of the Rename instruction is:

  Rename old-dsname new-dsname [ALIAS]
[VOL volume UNIT unit]  ;

Examples

1. Rename 'sys1.proclib(TestProg)' (newprog);

2. Rename 'Test.data.set1' 'Old.Test.data';

3. Rename 'Dept1.*.asm' Dept2.*.asm';

Clem Clarke


Chris Mason wrote:

Don and responding contributors

Maybe I'm being grossly old-fashioned - and I am certainly grossly out-of-date 
regarding MVS Utilities - but I believe when I wanted to create a batch job[1] 
in order to rename the member of a partitioned data set, procedure members 
in procedure libraries included, I used the entirely free - sorry, at no extra 
cost from IBM - utility IEHPROGM. The appropriate example - found quickly by 
searching for rename on the Contents web page of the z/OS DFSMSdfp 
Utilities (SC26-7414-04) manual (to be found in the z/OS V1R10 DFSMS 
bookshelf):


http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2U130

Specifically 14.5.7 Example 7: Rename a Partitioned Data Set Member.

quote

   //REN  JOB  ...
   //STEP1EXEC PGM=IEHPROGM
   //SYSPRINT DD  SYSOUT=A
   //DD1  DD  VOL=SER=22,DISP=OLD,UNIT=disk
   //SYSINDD  *
  RENAME 
VOL=disk=22,DSNAME=DATASET,NEWNAME=BC,MEMBER=ABC

   /*


/quote

... (delete text)
  



Chris Mason

  


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


Re: TEPS and TEMS

2009-04-30 Thread esst...@juno.com
Vince wrote
I enter SYSADMIN ('cos that's all that exists at the moment) and the correct 
password, (that I set when installing TEPS) and I get the following messages 
in the TEMS RKLVLOG:-

KDSPA002   Logon validation did not complete. Password not valid. User 
sysadmin


In the Omegamon parameter Library For the TEMS You need to turn security 
checking off. I forget the exact name of the library.


Start Email Marketing - fast, affordable, and measurable. Click here.
http://thirdpartyoffers.juno.com/TGL2141/fc/BLSrjpTEFeQ20rWoJ1TXf9XIoup0MnJCcMWK5JFhROA9pm9AWZfIdOOqDcc/

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


Re: Implications of not having CMF or RMF - Urgent

2009-04-30 Thread Shane
Erk - that is just crazy talk.
I can't imagine doing performance tuning and monitoring without the type
70's. Especially after having had a paddle around the Linux world - you
feel like one arm has been cut off.

On various occasions I have thought about using the RMF CIM data via
some (say) python code on a (Linux) client to produce some nice (z/OS)
graphs - but I'm sure that would still require a RMF license.

Crazy, crazy talk ...

Shane ...

On Thu, 2009-04-30 at 14:23 +0530, Jacky Bright wrote:

 Due to licensing cost cutting my client is considering removing CMF. Also he
 is not ready to go for RMF software.
 
 Would like to know is there any third party tool which generates Type 70-79
 records as being generated by these tools.
 
 We are running SYSPLEX. Without these tools is there any other way by which
 we can get LPAR / Partition / Coupling Facility LPAR wise CPU MSU / MIPS
 report for every 15 min. interval ?

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


Re: replacement for proc pds rename function...

2009-04-30 Thread Stocker, Herman
Where is JOL available?  Thank you.
Regards, 
Herman Stocker 

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf
Of Clement Clarke
Sent: Thursday, April 30, 2009 8:31 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: replacement for proc pds rename function...

Yes, the only problem with IEHPROGM is that you have to use the Vol keyword,
and know where the data set is. 

You can't use the Catalog to find the file.

In Jol, the syntax of the Rename instruction is:

   Rename old-dsname new-dsname [ALIAS]
 [VOL volume UNIT unit]  ;

Examples

1. Rename 'sys1.proclib(TestProg)' (newprog);

2. Rename 'Test.data.set1' 'Old.Test.data';

3. Rename 'Dept1.*.asm' Dept2.*.asm';

Clem Clarke


Chris Mason wrote:
 Don and responding contributors

 Maybe I'm being grossly old-fashioned - and I am certainly grossly 
 out-of-date regarding MVS Utilities - but I believe when I wanted to 
 create a batch job[1] in order to rename the member of a partitioned 
 data set, procedure members in procedure libraries included, I used 
 the entirely free - sorry, at no extra cost from IBM - utility 
 IEHPROGM. The appropriate example - found quickly by searching for 
 rename on the Contents web page of the z/OS DFSMSdfp Utilities 
 (SC26-7414-04) manual (to be found in the z/OS V1R10 DFSMS
 bookshelf):

 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2U130

 Specifically 14.5.7 Example 7: Rename a Partitioned Data Set Member.

 quote

//REN  JOB  ...
//STEP1EXEC PGM=IEHPROGM
//SYSPRINT DD  SYSOUT=A
//DD1  DD  VOL=SER=22,DISP=OLD,UNIT=disk
//SYSINDD  *
   RENAME
 VOL=disk=22,DSNAME=DATASET,NEWNAME=BC,MEMBER=ABC
/*


 /quote

 ... (delete text)
   

 Chris Mason

   

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

- --


The sender believes that this E-mail and any attachments were free of any
virus, worm, Trojan horse, and/or malicious code when sent. This message and
its attachments could have been infected during transmission. By reading the
message and opening any attachments, the recipient accepts full
responsibility for taking protective and remedial action about viruses and
other defects. The sender's employer is not liable for any loss or damage
arising in any way from this message or its attachments.

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


Re: Implications of not having CMF or RMF - Urgent

2009-04-30 Thread Spencer, Mike
Jacky,
There are no other products that can produce the Type 70-79 records required to 
perform performance metrics.  I would be willing to discuss your clients 
concerns outside of this forum.  

Michael Spencer
BMC Software
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Jacky Bright
Sent: Thursday, April 30, 2009 4:54 AM
To: IBM-MAIN@bama.ua.edu
Subject: Implications of not having CMF or RMF - Urgent

Due to licensing cost cutting my client is considering removing CMF. Also he
is not ready to go for RMF software.

Would like to know is there any third party tool which generates Type 70-79
records as being generated by these tools.

We are running SYSPLEX. Without these tools is there any other way by which
we can get LPAR / Partition / Coupling Facility LPAR wise CPU MSU / MIPS
report for every 15 min. interval ?

JAcky

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

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


Re: FTP-TLS/SSL

2009-04-30 Thread Kurt Quackenbush

Kurt, I don't think how you describe the certificates in this context
is quite correct.


Brian, thanks for clarifying.  My apologies for not being clear and 
obviously responding too quickly.  My response was in the context of a 
z/OS FTP client ('cuz that's where my experience is), not a z/OS server, 
although I did not state that (and I should have).



A *server* certificate is required, not a CA one. The CA one is used

by the client, to validate the server certificate. However, the server
certificate *may* be self-signed rather than CA-signed.

You're right, the server certificate may be CA-signed or self-signed. 
If CA-signed, then the client needs in the keyring the CA certificate 
used to sign the server's certificate.  If self-signed, then the client 
needs the server's certificate in the keyring.



The keyring statement below also does not need the userid/ part if
the keyring is owned by the userid under which the FTP server is running,

and again, the comment 'CA certificate' is not correct, it is the
*server* certificate.


Unless you definitely want to encrypt every single file, and there
are perfectly good reasons why you may not want to, you should leave the

SECURE_DATACONN value as CLEAR rather than PRIVATE, and let the client
decide control it.

The FTP.DATA statements in my post are only those that I use (and I did 
state that) for a z/OS FTP client.  I figured the OP can read about 'em 
and determine which he requires or desires.


Kurt Quackenbush -- IBM, SMP/E Development

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


Re: replacement for proc pds rename function...

2009-04-30 Thread Norbert Friemel
On Thu, 30 Apr 2009 07:08:06 -0500, Chris Mason wrote:


Is there some subtlety I missed here caused by my long neglect of the use of
MVS Utilities - or have so many alternatives cropped up in the good times
packaged with must-have products that folk have forgotten about the
original at no extra cost utilities?


The colon in CHANGE YYY:=XXX:; is a wildcard character
(http://support.sas.com/onlinedoc/913/getDoc/de/hosto390.hlp/a000217407.htm).


On Thu, 30 Apr 2009 06:07:41 -0400, Jousma, David wrote:

Of course there is the freebie IPOUPDTE(now an alias of CPPUPDTE) that
lives in your Serverpac installation dialogs loadlibrary


CPPUPDTE/IPOUPDTE replaces strings in members - no member rename
capabilities (http://www-03.ibm.com/systems/z/os/zos/installation/cppupdte.txt)

Norbert Friemel

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


Re: relationship between directory blocks and the number of members in a PDS ?

2009-04-30 Thread Steve Comstock

Lizette Koehler wrote:

That will depend on a couple of things.

A rule of thumb I have used is 


Loadlib 4 members per DIR Blk
Source 7 member per Dir Blk if ISPF Statistics are OFF
Source 4 member per Dir Blk if ISPF Statistics are ON

I do not have numbers for PDS/E datasets and Directory Blocks.

I have not looked at this in a while.  But this usually works for me.

Lizette



Hi all,
Can somebody tell me what is the relationship between
directory blocks and the number of members in a PDS ?


For loadlib's, it depends; we teach 4-7 member entries
per directory block (the source for that information is
lost in the past somewhere), so using 4 is safe

For non-loadlibs, you have room for 6 member entries per
directory block w/ stats on, or 21 if stats are off.

From experience, it always helps to over-allocate number
of directory blocks, unless you have a library that will
never have new members added (a software product delivered
in unloaded PDS format might be like that, for example).


For PDSEs, it doesn't matter, since the directory can
dynamically grow as needed. Specify 1 at create time and
let the system take care of it.




Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

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

== Check out the Trainer's Friend Store to purchase z/OS  ==
== application developer toolkits. Sample code in four==
== programming languages, JCL to Assemble or compile, ==
== bind and test. ==
==   http://www.trainersfriend.com/TTFStore/index.html==

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


Re: JES2 Command to display JNUM usage

2009-04-30 Thread Bruno Sugliani
On Thu, 30 Apr 2009 08:08:26 -0400, Lizette Koehler
stars...@mindspring.com wrote:


Is there a way in JES2 to issue a command to say
Input QUEUE A 100 Jobs
OUTPUT QUEUE A 20 Jobs, etc? 

If not, I will look at the SDSF In batch and have OPS submit a batch job to
collect the info.


$DQ ? 

Bruno Sugliani 
zxnetconsult(at)free(dot)fr
http://zxnetconsult.free.fr

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


Re: relationship between directory blocks and the number of members in a PDS ?

2009-04-30 Thread Crawford, Robert C.
Here's another fun fact:  You can print or copy a PDS' directory directly with 
IEBGENER by overriding the library's DCB parameters.

For instance, the following JCL:

//IEBGENER JOB (ACCT),'REPEAT MISTAKES '
//COPY1 EXEC PGM=IEBGENER,REGION=3072K,TIME=60   
//SYSPRINT  DD  SYSOUT=* 
//SYSUT1DD  DSN=THIS.IS.A.PDS,DISP=SHR,   
//  DCB=(LRECL=256,BLKSIZE=256,RECFM=F)  
//SYSUT2DD  SYSOUT=* 
//SYSIN DD DUMMY

Will print the directory.  Maybe not entirely useful, but it will entertain the 
curious and allow you to count the number of entries per directory block.

Robert Crawford 
CICS Technical Support 
United Services Automobile Association 
(210) 913-3822 
Facts are meaningless. You could use facts to prove anything that's even 
remotely true! 
- Homer Simpson
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Steve Comstock
Sent: Thursday, April 30, 2009 7:59 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: relationship between directory blocks and the number of members in 
a PDS ?

Lizette Koehler wrote:
 That will depend on a couple of things.
 
 A rule of thumb I have used is 
 
 Loadlib 4 members per DIR Blk
 Source 7 member per Dir Blk if ISPF Statistics are OFF
 Source 4 member per Dir Blk if ISPF Statistics are ON
 
 I do not have numbers for PDS/E datasets and Directory Blocks.
 
 I have not looked at this in a while.  But this usually works for me.
 
 Lizette
 
 
 Hi all,
 Can somebody tell me what is the relationship between
 directory blocks and the number of members in a PDS ?

For loadlib's, it depends; we teach 4-7 member entries
per directory block (the source for that information is
lost in the past somewhere), so using 4 is safe

For non-loadlibs, you have room for 6 member entries per
directory block w/ stats on, or 21 if stats are off.

 From experience, it always helps to over-allocate number
of directory blocks, unless you have a library that will
never have new members added (a software product delivered
in unloaded PDS format might be like that, for example).


For PDSEs, it doesn't matter, since the directory can
dynamically grow as needed. Specify 1 at create time and
let the system take care of it.




Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

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

== Check out the Trainer's Friend Store to purchase z/OS  ==
== application developer toolkits. Sample code in four==
== programming languages, JCL to Assemble or compile, ==
== bind and test. ==
==   http://www.trainersfriend.com/TTFStore/index.html==

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

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


Re: replacement for proc pds rename function...

2009-04-30 Thread John P Kalinich
I am surprised that IBM has not pulled the plug on IEHPROGM.  I can not
think of one good reason to use it.

PDS - The Swiss Army Knife of Utilities

Regards,
John K

Norbert Friemel of the IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu
wrote on 04/30/2009 07:57:49 AM:

 On Thu, 30 Apr 2009 07:08:06 -0500, Chris Mason wrote:

 
 Is there some subtlety I missed here caused by my long neglect of the
use of
 MVS Utilities - or have so many alternatives cropped up in the good
times
 packaged with must-have products that folk have forgotten about the
 original at no extra cost utilities?
 

 The colon in CHANGE YYY:=XXX:; is a wildcard character

(http://support.sas.com/onlinedoc/913/getDoc/de/hosto390.hlp/a000217407.htm).



 On Thu, 30 Apr 2009 06:07:41 -0400, Jousma, David wrote:

 Of course there is the freebie IPOUPDTE(now an alias of CPPUPDTE) that
 lives in your Serverpac installation dialogs loadlibrary
 

 CPPUPDTE/IPOUPDTE replaces strings in members - no member rename
 capabilities
(http://www-03.ibm.com/systems/z/os/zos/installation/cppupdte.txt
 )

 Norbert Friemel

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


Re: IEC331I 050-088

2009-04-30 Thread Ed Finnell
 
In a message dated 4/30/2009 1:58:51 A.M. Central Daylight Time,  
fhoff...@tad.org writes:

from the community.  I didn't mean to make it sound like I'm not  willing 
to look up information.  We've all had some chhorts that were  like that.  
I'm not!  I just don't have all of the tools at my  disposal at this time.



Most of it's just grunt work finding out  what's where and how it's 
connected.
 
I'd do ---LISTC ENT('hlq')  cat('New_MCAT')
Also ---LISTC ENT('New_MCAT') cat('Old_MCAT') {to see if got  connected in 
the customization
 
Then in ISPF 3.4 hlq on VOL where the RECAT  DATA and INDEX are supposed to 
be.
 
Check SYSLOG for RACF ICH messages to see if  you're getting whomped 
for security reasons.




**Big savings on Dell XPS Laptops and 
Desktops!(http://pr.atwola.com/promoclk/100126575x1219491521x1201306563/aol?redir=http:%2F%2Fad.double
click.net%2Fclk%3B214102108%3B35952091%3Bs)

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


Re: shareware replacement for sas rename member function

2009-04-30 Thread Dan Loerke
File-Aid will do the same thing in Option 3.6.M 


P Please consider the environment before printing this e-mail


-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Don Isenstadt
Sent: Thursday, April 30, 2009 4:48 AM
To: IBM-MAIN@bama.ua.edu
Subject: shareware replacement for sas rename member function

Hello,

Well times are tough so we are dropping sas .. is there a shareware
function that will do this??

PROC PDS DDNAME=RENLIB01;  
  CHANGE YYY:=XXX:;

thanks..

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

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


Re: shareware replacement for sas rename member function

2009-04-30 Thread Paul Gilmartin
On Thu, 30 Apr 2009 03:47:33 -0500, Don Isenstadt wrote:

Well times are tough so we are dropping sas .. is there a shareware function
that will do this??

PROC PDS DDNAME=RENLIB01;
  CHANGE YYY:=XXX:;

Since most of the data sets I'm concerned with are NFS exported (often
at my request), I use a sed script to generate commands to do things
of this sort.  Considerably more flexibility in pattern matching and
replacement than typical wildcarding.

-- gil

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


Re: replacement for proc pds rename function...

2009-04-30 Thread John Kelly
snip
I am surprised that IBM has not pulled the plug on IEHPROGM.  I can not 
think of one good reason to use it.
unsnip

Having to salvage packs and DSNs, I've resorted to good-old IEHPROGM 
several times to UNCAT and/or SCRATCH troublesome DSNs (especially with 
the BYPASSNQ pgm). I would image PDS would do it too but several shops I 
go to don't have it and the less syntax I have to remember, the better.

Jack Kelly
202-502-2390 (Office)

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


Re: relationship between directory blocks and the number of members in a PDS ?

2009-04-30 Thread R.S.

3 for loadlibs (minimum)
6 for text members with ISPF stats
21 for text members without ISPF stats (max.)

I swear I read the numbers in some IBM documentation, but it was looong 
time ago (OS/390 2.6 times).


Of course this is only for PDS. PDSE is another story (and expandable 
directory).


BTW: the numbers shouldn't be indended for exact calculations, rather 
for rough estimation. One cannot be sure there won't be any extra member 
im the PDS (some day).


--
Radoslaw Skorupka
Lodz, Poland


--
BRE Bank SA
ul. Senatorska 18
00-950 Warszawa
www.brebank.pl

Sd Rejonowy dla m. st. Warszawy 
XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, 
nr rejestru przedsibiorców KRS 025237

NIP: 526-021-50-88
Wedug stanu na dzie 01.01.2009 r. kapita zakadowy BRE Banku SA (w caoci 
wpacony) wynosi 118.763.528 zotych. W zwizku z realizacj warunkowego 
podwyszenia kapitau zakadowego, na podstawie uchway XXI WZ z dnia 16 marca 
2008r., oraz uchway XVI NWZ z dnia 27 padziernika 2008r., moe ulec 
podwyszeniu do kwoty 123.763.528 z. Akcje w podwyszonym kapitale zakadowym 
BRE Banku SA bd w caoci opacone.

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


Re: IEC331I 050-088

2009-04-30 Thread John Kelly
I've come in mid thread, so if I'm out of line
I've found the error that's mentioned to be the DSN current catalogue if 
different than the VVDS indicates. Either zap the VVR or use IEHPROGM to 
scratch the DSCB1 that left after the message. I'm not sure but you'll 
have a trash entry VVR that may haunt you if you try to put the same DSN 
back on the pack

Jack Kelly
202-502-2390 (Office)

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


Re: relationship between directory blocks and the number of members in a PDS ?

2009-04-30 Thread Elardus Engelbrecht
R.S. wrote:

3 for loadlibs (minimum)
6 for text members with ISPF stats
21 for text members without ISPF stats (max.)

I swear I read the numbers in some IBM documentation, but it was looong 
time ago (OS/390 2.6 times).

No need to swear. You are correct of course! ;-D

Source:

Interactive System Productivity Facility (ISPF)
User's Guide Volume II 
z/OS Version 1 Release 10.0
Document Number SC34-4823-08

Directory blocks Enter one of these:
- For partitioned data sets, you must specify the number of directory blocks. 
Each 256-byte block accommodates these number of directory entries:

  -   Data sets with ISPF statistics: 6
  -   Data sets without ISPF statistics: 21
  -   Load module data sets: 4-7, depending on attributes

Another Source:

DFSMS Using Data Sets 
z/OS Version 1 Release 10.0
Document Number SC26-7410-08

Each member in a data set and each alias need one directory entry apiece. If 
you expect to have 10 members (10 directory entries) and an average of 3 
aliases for each member (30 directory entries), allocate space for at least 40 
directory entries.

Space for the directory is expressed in 256-byte blocks. Each block contains 
from 3 to 21 entries, depending on the length of the user data field.  If you 
expect 200 directory entries, request at least 10 blocks.

HTH!

Groete / Greetings
Elardus Engelbrecht

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


Re: TEPS and TEMS

2009-04-30 Thread Vince Getgood
Thanks again for all the help.

I tried putting CMS_VALIDATE=NO into the KDSENV member of my RKANPARU 
library on z/OS, bounced the TEMS, and re-tried the logon.

No Joy.

So I installed the whole TEPS onto a collegues PC, in case I had done 
something wrong, and noted that NOWHERE did it prompt me for a password 
for SYSADMIN.  So there is no LOCAL password set, when I sign in, TEPS is 
contacting TEMS to do password checking.

I tried setting a password via NAM, but that didn't work either.

So in desperation, I again pointed the TEPS at my other LPAR, with all the 
same results.

I then added SYSADMIN as a RACF user, signed in to change the password via 
our session manager, then retried loadint TEPS desktop...

It worked!!!

However, all I see is the default workspace, with no data or anything.

What else do I have to do?

TIA

I've set up some real z/OS userids in TEPS, so that I can delete SYSADMIN 
from RACF 

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


CF Level Considerations at DR

2009-04-30 Thread Richards, Robert B.
Does anyone have any experience or considerations with having a higher
CF Level at your primary site than at the disaster recovery site? Are
there any issues I should be aware of?

 

Due to implementing STP here, we are fairly current and may be at a
higher level than our DR provider has installed. I am already planning
to use SIMETRID for the CLOCK00 stuff as we are going to be on one
machine there and are dropping the Sysplex Timers.

 

Bob  

 

-

Robert B. Richards(Bob)   

US Office of Personnel Management

1900 E Street NW Room: BH04L   

Washington, D.C.  20415  

Phone: (202) 606-1195  

Email: robert.richa...@opm.gov mailto:robert.richa...@opm.gov


-

 


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


Re: TEPS and TEMS

2009-04-30 Thread esst...@juno.com
Was the Teps database built corectly ?
If You ar using DB2 as the TEPS database, look at the tables
One of the Tables is the Userid and Password table. In This table is the 
default password.

make sure the Database for TEPS is correct. 


Can't pay your bills?  Click here to learn about filing for bankruptcy.
http://thirdpartyoffers.juno.com/TGL2141/fc/BLSrjpTLjhaoAXRBHNBRtEQHTGWu0ARBxaBCdEdIQCNetlqZwnsvjA51MwI/

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


Re: CF Level Considerations at DR

2009-04-30 Thread Schumacher, Otto
Depending on the level we had to increase the size of the structures for
CICS log and shunt before the regions would come back up. 

Regards 

Otto Schumacher 
Technical  Support, CICS

EDS, an HP Company
Ahold Account
2000 Wade Hampton Blvd.
LC1-302 
Greenville,  South Carolina, 29615

Tel: 864 987-1417
Fax: 864 987-4500
E-mail: otto.schumac...@eds.com

We deliver on our commitments
so you can deliver on yours.



-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Richards, Robert B.
Sent: Thursday, April 30, 2009 10:21 AM
To: IBM-MAIN@bama.ua.edu
Subject: CF Level Considerations at DR

Does anyone have any experience or considerations with having a higher
CF Level at your primary site than at the disaster recovery site? Are
there any issues I should be aware of?

 

Due to implementing STP here, we are fairly current and may be at a
higher level than our DR provider has installed. I am already planning
to use SIMETRID for the CLOCK00 stuff as we are going to be on one
machine there and are dropping the Sysplex Timers.

 

Bob  

 

-

Robert B. Richards(Bob)   

US Office of Personnel Management

1900 E Street NW Room: BH04L   

Washington, D.C.  20415  

Phone: (202) 606-1195  

Email: robert.richa...@opm.gov mailto:robert.richa...@opm.gov


-

 


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

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


Re: replacement for proc pds rename function...

2009-04-30 Thread John Eells

John P Kalinich wrote:

I am surprised that IBM has not pulled the plug on IEHPROGM.  I can not
think of one good reason to use it.

PDS - The Swiss Army Knife of Utilities

snip

S!  Developers might be listening!

More seriously, why would we wish to withdraw IEHPROGM?  Think of how 
many hundreds of thousands of times IEHPROGM might be imbedded in 
people's production JCL.  While I can't think of many good reasons (OK, 
none at the moment) to write a *new* job using IEHPROGM, I'd hate to 
make everyone convert their existing jobs to use alternative things by 
removing it from z/OS.


Now, IEFBR14, on the other hand...

(Wait!  Just kidding!  Put down that axe!)

--
John Eells
z/OS Technical Marketing
IBM Poughkeepsie
ee...@us.ibm.com

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


Re: CF Level Considerations at DR

2009-04-30 Thread Richards, Robert B.
Thanks for that heads-up, Otto.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Schumacher, Otto
Sent: Thursday, April 30, 2009 10:30 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: CF Level Considerations at DR

Depending on the level we had to increase the size of the structures for
CICS log and shunt before the regions would come back up. 

Regards 

Otto Schumacher 
Technical  Support, CICS

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Richards, Robert B.
Sent: Thursday, April 30, 2009 10:21 AM
To: IBM-MAIN@bama.ua.edu
Subject: CF Level Considerations at DR

Does anyone have any experience or considerations with having a higher
CF Level at your primary site than at the disaster recovery site? Are
there any issues I should be aware of?

Due to implementing STP here, we are fairly current and may be at a
higher level than our DR provider has installed. I am already planning
to use SIMETRID for the CLOCK00 stuff as we are going to be on one
machine there and are dropping the Sysplex Timers.


Bob  

 

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


SIMETRID in CLOCKDR

2009-04-30 Thread Richards, Robert B.
Seeing that it has been 10 years since I last specified SIMETRID, am I
correct in remembering that it is the only statement necessary in the
CLOCKDR member?

 

I have specified: SIMETRID 00

 

I would like to trust my memory, but what was I asking?LOL

 

 

Bob

 

 


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


Re: relationship between directory blocks and the number of members in a PDS ?

2009-04-30 Thread Ted MacNEIL
I do not have numbers for PDS/E datasets and Directory Blocks.

PDS/E is not as important, since you don't run out.

With PDS's, I usually allocate in multiples of 44, since that's how many 
directory blocks fit on a track.
And, I usually allocate a cylinder's worth.

-
Too busy driving to stop for gas!

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


Re: Power Capacity Planning (was Slightly off topic power limits)

2009-04-30 Thread Kelman, Tom
At my first job as a system programmer the data center floor was
directly above the area with the system programmers and hardware
planners.  We were in an older building that hadn't originally been
designed to hold computer equipment.  You'd better believe that every
time something was added to the data center the floor loading was
verified by an architecture team.  We certainly didn't want the
mainframes and disk drives ending up in our laps.  That would not have
made for a beautiful day in the neighborhood.  

Tom Kelman
Enterprise Capacity Planner
Commerce Bank of Kansas City
(816) 760-7632
 -Original Message-
 From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
 Behalf Of Rick Fochtman
 Sent: Tuesday, April 28, 2009 11:28 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: Power Capacity Planning (was Slightly off topic power
limits)
 

---snip---
--
 -
 They're not as prevalent as they once were, but each IBM branch has
(or
 has access to) an Environmental specialist. They're a good resource
and
 will assist as much as you can stand. Power, HVAC, water, ventilation,
 loading, flooring, cabling, EPO, physical security,etc...
 
 Depending on how you plan your data center it can be just another
layer
 of your CAD/CAM package.

---unsnip-
--
 -
 Be VERY concerned about floor loading, lest your data center migrate
to
 the basement without warning.
 
 Saw it happen once and it's NOT a very pretty sight. Just glad I
wasn't
 in charge of the planning, etc. VBG
 
 --
 Rick
 --
 Remember that if you're not the lead dog, the view never changes.
 
 
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html


*
If you wish to communicate securely with Commerce Bank and its
affiliates, you must log into your account under Online Services at 
http://www.commercebank.com or use the Commerce Bank Secure
Email Message Center at https://securemail.commercebank.com

NOTICE: This electronic mail message and any attached files are
confidential. The information is exclusively for the use of the
individual or entity intended as the recipient. If you are not
the intended recipient, any use, copying, printing, reviewing,
retention, disclosure, distribution or forwarding of the message
or any attached file is not authorized and is strictly prohibited.
If you have received this electronic mail message in error, please
advise the sender by reply electronic mail immediately and
permanently delete the original transmission, any attachments
and any copies of this message from your computer system.
*

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


Re: relationship between directory blocks and the number of members in a PDS ?

2009-04-30 Thread Farley, Peter x23353
 -Original Message-
 From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
 Behalf Of Ted MacNEIL
 Sent: Thursday, April 30, 2009 11:54 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: relationship between directory blocks and the number of
 members in a PDS ?
Snipped 
 With PDS's, I usually allocate in multiples of 44, since that's how
many
 directory blocks fit on a track.
 And, I usually allocate a cylinder's worth.

As I learned here on this list, that's not *quite* true.  It's 45 per
directory track except for the last (or only) track, which is 44 + EOF.
So use 44 for a one-track directory, and ((n - 1) * 45) + 44 for
multiple-track directories, where n is the desired number of tracks.

Peter

 
This message and any attachments are intended only for the use of the addressee 
and
may contain information that is privileged and confidential. If the reader of 
the 
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.


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


Re: Power Capacity Planning (was Slightly off topic power limits)

2009-04-30 Thread Tony B.
Gives new meaning to the term laptop. 

.groans


 

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf
Of Kelman, Tom
Sent: Thursday, April 30, 2009 10:55 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Power Capacity Planning (was Slightly off topic power limits)

At my first job as a system programmer the data center floor was directly
above the area with the system programmers and hardware planners.  We were
in an older building that hadn't originally been designed to hold computer
equipment.  You'd better believe that every time something was added to the
data center the floor loading was verified by an architecture team.  We
certainly didn't want the mainframes and disk drives ending up in our laps.
That would not have made for a beautiful day in the neighborhood.  

Tom Kelman
Enterprise Capacity Planner
Commerce Bank of Kansas City
(816) 760-7632
 -Original Message-
 From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On 
 Behalf Of Rick Fochtman
 Sent: Tuesday, April 28, 2009 11:28 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: Power Capacity Planning (was Slightly off topic power
limits)
 

---snip---
--
 -
 They're not as prevalent as they once were, but each IBM branch has
(or
 has access to) an Environmental specialist. They're a good resource
and
 will assist as much as you can stand. Power, HVAC, water, ventilation, 
 loading, flooring, cabling, EPO, physical security,etc...
 
 Depending on how you plan your data center it can be just another
layer
 of your CAD/CAM package.

---unsnip-
--
 -
 Be VERY concerned about floor loading, lest your data center migrate
to
 the basement without warning.
 
 Saw it happen once and it's NOT a very pretty sight. Just glad I
wasn't
 in charge of the planning, etc. VBG
 
 --
 Rick
 --
 Remember that if you're not the lead dog, the view never changes.
 
 
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions, send 
 email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO 
 Search the archives at http://bama.ua.edu/archives/ibm-main.html



*
If you wish to communicate securely with Commerce Bank and its affiliates,
you must log into your account under Online Services at
http://www.commercebank.com or use the Commerce Bank Secure Email Message
Center at https://securemail.commercebank.com

NOTICE: This electronic mail message and any attached files are
confidential. The information is exclusively for the use of the individual
or entity intended as the recipient. If you are not the intended recipient,
any use, copying, printing, reviewing, retention, disclosure, distribution
or forwarding of the message or any attached file is not authorized and is
strictly prohibited.
If you have received this electronic mail message in error, please advise
the sender by reply electronic mail immediately and permanently delete the
original transmission, any attachments and any copies of this message from
your computer system.

*

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the
archives at http://bama.ua.edu/archives/ibm-main.html
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.0.238 / Virus Database: 270.12.10/2088 - Release Date: 04/30/09
06:01:00

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


Re: Implications of not having CMF or RMF - Urgent

2009-04-30 Thread Rick Fochtman

-snip-
Due to licensing cost cutting my client is considering removing CMF. 
Also he is not ready to go for RMF software.


Would like to know is there any third party tool which generates Type 
70-79 records as being generated by these tools.


We are running SYSPLEX. Without these tools is there any other way by 
which we can get LPAR / Partition / Coupling Facility LPAR wise CPU MSU 
/ MIPS report for every 15 min. interval ?

--unsnip-
Ever tried riding a bike without wheels?

I know of no software, other than the items you mention, that will 
generate the appropriate SMF records with anything like the wealth of 
information therein. You may find, however, that RMF is less expensive 
than CMF and safer to run. (If your CMF maintenance isn't exactly in 
step with your z/OS maintenance, you could be at considerable risk 
because of all the dynamic hooks CMF uses. BTDTGTSS) Without some flavor 
of monitoring software, your client is flying blind, without a compass 
or a map.


Point out to your client that monitoring software can help pinpoint 
bottlenecks that can be eliminated by tuning, as opposed to just 
throwing money into upgrades. And good tuning in general can postpone 
upgrade expenditures. And when upgrades are indicated, good monitoring 
can point the way to realistic and COST EFFECTIVE upgrades. The surgical 
approach is far more effective than a scattergun approach that may hit 
or miss the real problems.


--
Rick
--
Remember that if you’re not the lead dog, the view never changes.

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


Enterprise COBOL code generation question

2009-04-30 Thread Farley, Peter x23353
I am failing to understand something about the code generation that the
Enterprise COBOL compiler (V3.4.1) performs.  For a WORKING-STORAGE
variable defined like this:

77  WORK-WORD9  PIC S9(09) BINARY.

with TRUNC(BIN) and OPTIMIZE(STD) in effect, this IF statement:

IF (WORK-WORD9  -1) OR (WORK-WORD9  +256)

Generates a bunch of code to convert WORK-WORD9 to packed decimal in
temporary storage (and it does it *twice* no less!) to then do
compare-packed for each of the literal values.

How or why is it that the compiler does not just use binary constants
for such a pair of comparisons?  It just does not make any sense to me
for the compiler to convert a fullword binary variable to packed in this
case, and to do it twice for goodness sake.  And secondly, if it really
*has* to do the conversion, doesn't the optimizer realize it already did
it already?

The description of OPTIMIZE(FULL) doesn't sound like it will help here,
though I will try it.  OPTIMIZE(FULL) says it eliminates unreferenced
WORKING-STORAGE but says nothing about better code optimization.

Confused,

Peter
This message and any attachments are intended only for the use of the addressee 
and
may contain information that is privileged and confidential. If the reader of 
the 
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.


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


Re: replacement for proc pds rename function...

2009-04-30 Thread Rick Fochtman

-snip--
Of course there is the freebie IPOUPDTE(now an alias of CPPUPDTE) that 
lives in your Serverpac installation dialogs loadlibrary


//IPOUPDT EXEC PGM=IPOUPDTE,PARM=CHECK
//STEPLIB DD DSN=your.serverpackorder.SCPPLOAD,DISP=SHR
//@LIBRARY DD DSN=PDS.to.change,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *,DLM=ZZ
YYYXXX
ZZ
unsnip
Dave, that will update the various members but to the best of my 
knowledge, it won't change the member names.


--
Rick
--
Remember that if you’re not the lead dog, the view never changes.

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


Re: replacement for proc pds rename function...

2009-04-30 Thread Dave Salt
 From: stars...@mindspring.com
 I think the OP is looking for something with wildcard capabilities.
 For example rather than code PROC1 PROC2 PROC3 and ignore TPROC1 APROC1
 etc, the OP has coded

 PROC PDS DDNAME=RENLIB01;
 CHANGE YYY:=XXX:;

 Which is SAS-speak for Change all PROCs that being with YYY to XXX and the
 trailing characters should be left as is.

If you're okay with writing a small REXX script to describe what you want 
renamed, you can use SimpList to apply the script to every member in a PDS. 
Here's an example that's straight from the SimpList user guide:
 
/* REXX to rename all members from 'xx08' to 'xx09' */
arg input
parse var input dsn ( memb ) .
if substr(memb,3,2) = 08 then do
   slusrcmd = R
   slusrdat = overlay(09,memb,3)
   address ispexec VPUT (SLUSRCMD SLUSRDAT) SHARED
end
 
 
SLUSRCMD tells SimpList what function to reselect the member with after the 
REXX script has finished (in this case R for Rename), and SLUSRDAT tells 
SimpList what to rename the member to.
 
To apply this script to every member in a PDS you'd simply enter '1 *' on the 
member list command line. If necessary you could filter the member list before 
applying the script; e.g. you could include or exclude members based on their 
names, contents, ISPF statistics (etc). For example, if I wanted to exclude 
every member that contained the word IDENTIFICATION before doing the rename, 
I'd enter 'HIDE IDENTIFICATION ALL' and then enter '1 *'. 
 
SimpList isn't free but at $5,000 a year (for unlimited use by unlimited 
people) I'm sure it's a lot less than what you're currently paying for SAS? If 
you only need to do the renames one time you could even take SimpList for a 
free trial, do the renames, and hand it back. 
 
HTH,
 
Dave Salt
SimpList(tm) - try it; you'll get it!
http://www.mackinney.com/products/SIM/simplist.htm
 
_
Share photos with friends on Windows Live Messenger
http://go.microsoft.com/?linkid=9650734

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


DFHSM QUESTION - ARC0570I

2009-04-30 Thread John Dawes
Good Day,
 
I am trying to find the cause for the error message :
ARC0570I AUTOMATIC BACKUP FOR ALL SMS MANAGED
ARC0570I (CONT.) VOLUME(S) TERMINATED, RC=17 
ARC0570I (CONT.) REASON=0    

I checked error message which seems self explanatory - There are no storage 
groups defined that are eligible for processing.  I verified the DFHSM parmlib 
member and it has a AUTOBACKUPSTART(0100 0300) present.  I verified the several 
management classes via ISMF and it shows that in col 18 under AUTO BACKUP they 
have a NO for all of them.  Could this be why?  Is there some place else where 
I can also check?  I find it quite peculiar that the AUTOBACKUPSTART is turned 
on and there is not auto backups being performed.  



  Enjoy a safer web experience. Upgrade to the new Internet Explorer 8 
optimised for Yahoo!7. Get it now.

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


Check out developerWorks: Cloud development

2009-04-30 Thread Ed Finnell
_developerWorks:  Cloud development_ 
(http://www.ibm.com/developerworks/downloads/cloud.html?S_TACT=105AGX54S_CMP=C0430ca=dnw-1017ca=dth-cloudopenc
m_mmc=5250-_-n-_-vrm_newsletter-_-10731_112793cmibm_em=dm:0:10684870)  
 
I don't know if this appeals to anyone on this list yet. Could be  
interesting down the road.
**Big savings on Dell XPS Laptops and 
Desktops!(http://pr.atwola.com/promoclk/100126575x1219491521x1201306563/aol?redir=http:%2F%2Fad.double
click.net%2Fclk%3B214102108%3B35952091%3Bs)

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


Re: Check out developerWorks: Cloud development

2009-04-30 Thread Ed Finnell
 
In a message dated 4/30/2009 12:01:06 P.M. Central Daylight Time,  
efinnel...@aol.com writes:

I don't know if this appeals to anyone on this list yet. Could be   
interesting down the road.



Well it works between the parens. The tinyurl  is as follows:
 
http://tinyurl.com/d85plv





**Big savings on Dell XPS Laptops and 
Desktops!(http://pr.atwola.com/promoclk/100126575x1219491521x1201306563/aol?redir=http:%2F%2Fad.double
click.net%2Fclk%3B214102108%3B35952091%3Bs)

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


Re: Check out developerWorks: Cloud development

2009-04-30 Thread Fatemi, Reza
Has anyone Checked Ruby On Rails 

http://www.ibm.com/developerworks/web/library/wa-rubyonrails/

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Ed Finnell
Sent: Thursday, April 30, 2009 10:00 AM
To: IBM-MAIN@bama.ua.edu
Subject: Check out developerWorks: Cloud development

_developerWorks:  Cloud development_ 
(http://www.ibm.com/developerworks/downloads/cloud.html?S_TACT=105AGX54S_CMP=C0430ca=dnw-1017ca=dth-cloudopenc
m_mmc=5250-_-n-_-vrm_newsletter-_-10731_112793cmibm_em=dm:0:10684870)  
 
I don't know if this appeals to anyone on this list yet. Could be  
interesting down the road.
**Big savings on Dell XPS Laptops and 
Desktops!(http://pr.atwola.com/promoclk/100126575x1219491521x1201306563/aol?redir=http:%2F%2Fad.double
click.net%2Fclk%3B214102108%3B35952091%3Bs)

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

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


SMP/E 3.5 REGION Requirement -- GIM20201S

2009-04-30 Thread Paul Gilmartin
I've been accustomed to running my SMP/E tests under SMP/E 3.4 with
REGION=16385K.  Today I tried to APPLY the same product with SMP/E
35.05.  I get:

GIM41802IINLINE JCLIN PROCESSING WAS SUCCESSFUL FOR SYSMOD xxx.
GIM20201S ** @MPGTA+X'000154' - SMP/E COULD NOT OBTAIN ENOUGH STORAGE FOR 
PROCESSING.
GIM66001ITHE JCLIN CROSS-REFERENCE REPORT WAS FORMATTED IN ONE COLUMN 
BECAUSE SMP/E COULD NOT OBTAIN ENOUGH STORAGE
 FOR TWO COLUMNS.
GIM20201S ** @MPSUB+X'0003A2' - SMP/E COULD NOT OBTAIN ENOUGH STORAGE FOR 
PROCESSING.
GIM41801IINLINE JCLIN PROCESSING FAILED FOR SYSMOD yyy.

It APPLYs fine with REGION=0M.  But this list leads me to believe that
some customers are squeamish about 0M.

I don't consider this a large product (the GIMZIP archive is under 40MB;
In the successful APPLY, SMPOUT is about 14,000 lines; SMPRPT about 10,000;
what other metric should I use?)

Is my perspective outdated?  Has SMP/E become bloated (other than using
Java in RECEIVE FROMNETWORK?  What's a reasonable REGION?

What DDNAME would contain the JCLIN CROSS-REFERENCE REPORT, in one or
two columns?

Am I supposed to learn anything from ** @MPGTA+X'000154'?

Thanks,
gil

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


Re: DFHSM QUESTION - ARC0570I

2009-04-30 Thread John Kelly
snip
several management classes via ISMF and it shows that in col 18 under AUTO 
BACKUP they have a NO 
unsnip

That would do it for the SMS backups, if 'several' means all of your SMS 
groups. Should have backed up your non SMS volumes specified in ARCCMDxx 
though.

Jack Kelly
202-502-2390 (Office)

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


Re: Check out developerWorks: Cloud development

2009-04-30 Thread Ed Finnell
 
In a message dated 4/30/2009 12:09:57 P.M. Central Daylight Time,  
reza_fat...@bmc.com writes:

_http://www.ibm.com/developerworks/web/library/wa-rubyonrails/_ 
(http://www.ibm.com/developerworks/web/library/wa-rubyonrails/) 



Alas, poor Youric
_http://www.techcrunch.com/2008/05/01/twitter-said-to-be-abandoning-ruby-on-
rails/_ 
(http://www.techcrunch.com/2008/05/01/twitter-said-to-be-abandoning-ruby-on-rails/)
 





**Big savings on Dell XPS Laptops and 
Desktops!(http://pr.atwola.com/promoclk/100126575x1219491521x1201306563/aol?redir=http:%2F%2Fad.double
click.net%2Fclk%3B214102108%3B35952091%3Bs)

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


Re: DFHSM QUESTION - ARC0570I

2009-04-30 Thread John Dawes
I took another look and yes, you are right.  ALL of the MANAGEMENT CLASSES have 
NO.
 
Thanks.

--- On Fri, 1/5/09, John Kelly john_j_ke...@ao.uscourts.gov wrote:


From: John Kelly john_j_ke...@ao.uscourts.gov
Subject: Re: DFHSM QUESTION - ARC0570I
To: IBM-MAIN@bama.ua.edu
Received: Friday, 1 May, 2009, 3:17 AM


snip
several management classes via ISMF and it shows that in col 18 under AUTO 
BACKUP they have a NO 
unsnip

That would do it for the SMS backups, if 'several' means all of your SMS 
groups. Should have backed up your non SMS volumes specified in ARCCMDxx 
though.

Jack Kelly
202-502-2390 (Office)

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



  The new Internet Explorer 8 optimised for Yahoo!7: Faster, Safer, Easier.

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


Re: ADRDSSU protection [was:RE: Using FTP to send loadlib]

2009-04-30 Thread Frank Swarbrick
On Thu, 30 Apr 2009 12:28:30 +0200, R.S. 
r.skoru...@bremultibank.com.pl wrote:

There is no wise reason to restrict access to ADRDSSU at all (in PROGRAM
class). Really. There is a need to protect ADRDSSU *functions* or
features. It can be usage of ADMIN keyword (a series of profiles
STGADMIN.ADR.STGADMIN.function.minor).
In the case above you could have access to STGADMIN.ADR.IMPORT, which 
is
not unsecure IMHO. YMMV.

Speaking of restrictions, I as a programmer like to use COPY DATASET with 
RENAMEUNCONDITIONAL/REPLACEUNCONDITIONAL to copy into a file with a 
new name.  I get the following:
TSS7250W 136 J=COPY1 A=FJS TYPE=IBMFAC 
RESOURCE=STGADMIN.ADR.COPY.FLASHCPY
TSS7251W Access Denied to IBMFAC 
STGADMIN.ADR.COPY.FLASHCPY 

I can add FASTREPLICATION(NONE) and I no longer get this error.

So the question is, should I as an applications developer have access to 
STGADMIN.ADR.COPY.FLASHCPY?  Obviously it would help me in this case, but 
would it also allow me to do things that I probably should not be able to do?

Frank

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


Re: SMP/E 3.5 REGION Requirement -- GIM20201S

2009-04-30 Thread Mark Zelden
On Thu, 30 Apr 2009 12:09:36 -0500, Paul Gilmartin paulgboul...@aim.com wrote:

I've been accustomed to running my SMP/E tests under SMP/E 3.4 with
REGION=16385K.  Today I tried to APPLY the same product with SMP/E
35.05.  I get:

GIM41802IINLINE JCLIN PROCESSING WAS SUCCESSFUL FOR SYSMOD xxx.
GIM20201S ** @MPGTA+X'000154' - SMP/E COULD NOT OBTAIN ENOUGH STORAGE FOR
PROCESSING.
GIM66001ITHE JCLIN CROSS-REFERENCE REPORT WAS FORMATTED IN ONE COLUMN
BECAUSE SMP/E COULD NOT OBTAIN ENOUGH STORAGE
 FOR TWO COLUMNS.
GIM20201S ** @MPSUB+X'0003A2' - SMP/E COULD NOT OBTAIN ENOUGH STORAGE FOR
PROCESSING.
GIM41801IINLINE JCLIN PROCESSING FAILED FOR SYSMOD yyy.

It APPLYs fine with REGION=0M.  But this list leads me to believe that
some customers are squeamish about 0M.


Perhaps they are.  Some may have valid reasons (very small LPAR).  But
there is a lot of space between 32M (which is what you got with anything
over 16M) and the 1600M-1900M you probably got with REGION=0M.

Our default is 256M.. and that is what you get with REGION=0M and a batch
job due to our IEFUSI implementation (only STCs are allowed to use 0M).

Search the archives for past posts about our IEFUSI.  
Also Region Size: What you see is not what you get

http://www.tsotimes.com/articles/archive/spring04/TSO-Times-Spring04.pdf

I don't consider this a large product (the GIMZIP archive is under 40MB;
In the successful APPLY, SMPOUT is about 14,000 lines; SMPRPT about 10,000;
what other metric should I use?)

Is my perspective outdated? 

Perhaps.

 Has SMP/E become bloated (other than using
Java in RECEIVE FROMNETWORK?  What's a reasonable REGION?


I didn't check the doc to see if it is clearly documented, but I have been
running with REGION=100M for years with no problems.  

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:mark.zel...@zurichna.com
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: ADRDSSU protection [was:RE: Using FTP to send loadlib]

2009-04-30 Thread John Kelly
snip 
the question is, should I as an applications developer have access to 
STGADMIN.ADR.COPY.FLASHCPY?
unsnip

If your account lets DSS default to FASTREPLICATION(PREFERRED)  (from 
OA11637) then the answer would be a qualified YES. I don't have users that 
use DSS, so it's not a problem here. Seems like something must have 
changed, if you were doing this 'before'  and now are getting this error. 
Your account could put on the ADRPATCH  to change the default.

Jack Kelly
202-502-2390 (Office)

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


Re: DFHSM QUESTION - ARC0570I

2009-04-30 Thread O'Brien, David W. (NIH/CIT) [C]
You might want to check your Storage Groups to see if they are AutoBackup 
enabled.

Dave O'Brien
NIH Contractor

From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of John 
Kelly [john_j_ke...@ao.uscourts.gov]
Sent: Thursday, April 30, 2009 1:17 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: DFHSM QUESTION - ARC0570I

snip
several management classes via ISMF and it shows that in col 18 under AUTO
BACKUP they have a NO
unsnip

That would do it for the SMS backups, if 'several' means all of your SMS
groups. Should have backed up your non SMS volumes specified in ARCCMDxx
though.

Jack Kelly
202-502-2390 (Office)

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

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


Re: SIMETRID in CLOCKDR

2009-04-30 Thread Bob Rutledge

I didn't trust my memory either, so I looked.  Both LPARs in our basic sysplex 
have

TIMEZONE W.04.00.00
SIMETRID 01

Bob

Richards, Robert B. wrote:

Seeing that it has been 10 years since I last specified SIMETRID, am I
correct in remembering that it is the only statement necessary in the
CLOCKDR member?

 


I have specified: SIMETRID 00

 


I would like to trust my memory, but what was I asking?LOL

 

 


Bob


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


Re: Enterprise COBOL code generation question

2009-04-30 Thread Steve Comstock

Farley, Peter x23353 wrote:

I am failing to understand something about the code generation that the
Enterprise COBOL compiler (V3.4.1) performs.  For a WORKING-STORAGE
variable defined like this:

77  WORK-WORD9  PIC S9(09) BINARY.

with TRUNC(BIN) and OPTIMIZE(STD) in effect, this IF statement:

IF (WORK-WORD9  -1) OR (WORK-WORD9  +256)

Generates a bunch of code to convert WORK-WORD9 to packed decimal in
temporary storage (and it does it *twice* no less!) to then do
compare-packed for each of the literal values.

How or why is it that the compiler does not just use binary constants
for such a pair of comparisons?  It just does not make any sense to me
for the compiler to convert a fullword binary variable to packed in this
case, and to do it twice for goodness sake.  And secondly, if it really
*has* to do the conversion, doesn't the optimizer realize it already did
it already?

The description of OPTIMIZE(FULL) doesn't sound like it will help here,
though I will try it.  OPTIMIZE(FULL) says it eliminates unreferenced
WORKING-STORAGE but says nothing about better code optimization.

Confused,

Peter


Peter,

I can't speak with authority, since the details are hidden and,
to some degree, proprietary. But I once learned that when working
with pic s9(9) binary data, the compiler converts to packed to
avoid or intercept overflows. The simplest fix / workaround is to
declare these fields as s9(8) binary. Give that a try and see if
it works better.


Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

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

== Check out the Trainer's Friend Store to purchase z/OS  ==
== application developer toolkits. Sample code in four==
== programming languages, JCL to Assemble or compile, ==
== bind and test. ==
==   http://www.trainersfriend.com/TTFStore/index.html==

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


Re: replacement for proc pds rename function...

2009-04-30 Thread Gibney, Dave
IEHPROGM --- ick :) Actually, the requirement to specify volume makes
IEHPROGM less than ideal in the SMS world.

Dave Gibney
Information Technology Services
Washington State University


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
 Behalf Of Chris Mason
 Sent: Thursday, April 30, 2009 5:08 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: replacement for proc pds rename function...
 
 Don and responding contributors
 
 Maybe I'm being grossly old-fashioned - and I am certainly grossly
out-
 of-date
 regarding MVS Utilities - but I believe when I wanted to create a
batch
 job[1]
 in order to rename the member of a partitioned data set, procedure
 members
 in procedure libraries included, I used the entirely free - sorry, at
 no extra
 cost from IBM - utility IEHPROGM. The appropriate example - found
 quickly by
 searching for rename on the Contents web page of the z/OS DFSMSdfp
 Utilities (SC26-7414-04) manual (to be found in the z/OS V1R10 DFSMS
 bookshelf):
 
 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2U130
 
 Specifically 14.5.7 Example 7: Rename a Partitioned Data Set Member.
 
 quote
 
//REN  JOB  ...
//STEP1EXEC PGM=IEHPROGM
//SYSPRINT DD  SYSOUT=A
//DD1  DD  VOL=SER=22,DISP=OLD,UNIT=disk
//SYSINDD  *
   RENAME
 VOL=disk=22,DSNAME=DATASET,NEWNAME=BC,MEMBER=ABC
/*
 
 
 /quote
 
 In effect, all the suggestions would appear to be *replacements* for
 the
 original IBM IEHPROGM utility which I am prepared to bet predates the
 programs named in these suggestions - and SAS - by many blue moons.
 
 Is there some subtlety I missed here caused by my long neglect of the
 use of
 MVS Utilities - or have so many alternatives cropped up in the good
 times
 packaged with must-have products that folk have forgotten about the
 original at no extra cost utilities?
 
 Chris Mason
 
 [1] With the aid of a little program which converted PARM field data
 into utility
 input control data sets - among other uses - and a little program
which
 displayed the contents of the utility output print data set on the
 console
 wrapped up in handy started task procedures, I set up many frequently
 used
 functions - even incorporating some into automation - which relied on
 absolutely standard MVS utilities such as IEHPROGM. This was for use -
 long
 ago now - with test/education systems where the only significant MVS
 console was the 3270 where the VM userid for the MVS guest was logged
 on.
 
 On Thu, 30 Apr 2009 04:01:09 -0500, don isenstadt
 don.isenst...@gmail.com wrote:
 
 Well times are tough so we are dropping sas .. is there a shareware
 function
 that will do this??
 
 PROC PDS DDNAME=RENLIB01;
  CHANGE YYY:=XXX:;
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html

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


Re: Enterprise COBOL code generation question

2009-04-30 Thread Farley, Peter x23353
 -Original Message-
 From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
 Behalf Of Steve Comstock
 Sent: Thursday, April 30, 2009 3:30 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: Enterprise COBOL code generation question
Snipped 
 Peter,
 
 I can't speak with authority, since the details are hidden and,
 to some degree, proprietary. But I once learned that when working
 with pic s9(9) binary data, the compiler converts to packed to
 avoid or intercept overflows. The simplest fix / workaround is to
 declare these fields as s9(8) binary. Give that a try and see if
 it works better.

Tried that, and got the same results.  Also tried using constant
variables defined the same way as the variable to be tested (both S9(9)
and S9(8) versions) and that is even worse -- BOTH the variable AND the
constant variables are converted to packed and then compared with CP.

Another lister wrote me offline to say that Enterprise COBOL may be
following the standard in this bizarreness, but when I have TRUNC(BIN)
in effect, doesn't that tell the compiler I want something *different*
from the standard?

Bah, humbug.  Lazy compiler writers ought to be taken out and ... well,
you get the idea.

Peter


This message and any attachments are intended only for the use of the addressee 
and
may contain information that is privileged and confidential. If the reader of 
the 
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.


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


Re: CF Level Considerations at DR

2009-04-30 Thread Rabbe, Luke
Our RRS structures wouldn't connect because the INITSIZE was not large
enough.

Our production CF is level 14 and DR is level 15.

Luke

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Richards, Robert B.
Sent: Thursday, April 30, 2009 9:21 AM
To: IBM-MAIN@bama.ua.edu
Subject: CF Level Considerations at DR

Does anyone have any experience or considerations with having a higher
CF Level at your primary site than at the disaster recovery site? Are
there any issues I should be aware of?

 

Due to implementing STP here, we are fairly current and may be at a
higher level than our DR provider has installed. I am already planning
to use SIMETRID for the CLOCK00 stuff as we are going to be on one
machine there and are dropping the Sysplex Timers.

 

Bob  

 

-

Robert B. Richards(Bob)   

US Office of Personnel Management

1900 E Street NW Room: BH04L   

Washington, D.C.  20415  

Phone: (202) 606-1195  

Email: robert.richa...@opm.gov mailto:robert.richa...@opm.gov


-

 


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

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


FTP more info

2009-04-30 Thread Mark Steely
We are z/os V1R9. I have a customer who is transferring a ASCII text
file with horizontal tabs x'09' characters. When the file is FTP to the
mainframe using IBM ftp the x''09' is translated to x'05'. If the
customer uses CA FTP stack the ascii x'09' is converted to 5 spaces. Is
there a way to have this happen on IBM ftp. 
 
 
Thank You


   
   
 
   
   
  
*** CONFIDENTIALITY NOTICE ***

This e-mail message and all attachments transmitted with it may
contain legally privileged and confidential information intended
solely for the use of the addressee. If the reader of this message
is not the intended recipient, you are hereby notified that any
reading, dissemination, distribution, copying, 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 from your system. Thank you.

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


Re: FTP more info

2009-04-30 Thread John McKown
On Thu, 30 Apr 2009 15:16:08 -0500, Mark Steely mark.ste...@wnco.com wrote:

We are z/os V1R9. I have a customer who is transferring a ASCII text
file with horizontal tabs x'09' characters. When the file is FTP to the
mainframe using IBM ftp the x''09' is translated to x'05'. If the
customer uses CA FTP stack the ascii x'09' is converted to 5 spaces. Is
there a way to have this happen on IBM ftp. 
 
Thank You

No. 

Unfortunately, I don't have access to the manuals for the CA stack. But I'd
almost be willing to bet that it has an option so that a TAB character
inserts 1 to 8 blanks so that the last blank is in a column which evenly
divisible by 8.

--
John

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


C/C++ for MVS: How do I read the master catalog?

2009-04-30 Thread Cristi Terpea
I'm trying to get the same output as ls '*' from z/OS FTPD.

I think this can be done by reading the master catalog. Until now I found no
way to open it from C.

I found out that the master catalog path is in SYS1.NUCLEUS(SYSCATLG). It
says: S6SYS1113CCATALOG.Z16S.MASTER
So, my master catalog is CATALOG.Z16S.MASTER. I thought I could be able to
open it with fopen, but it doesn't work.

IBMUSER:/u/ibmuser: uname -a
OS/390 ADCD 16.00 03 9121

On experts-exchange someone said:
you should be able to use IGGCSI00, which is a IBM supplied Catalog Search
routine.
This is typically called from Assemble or REXX (there are samples in
SYS1.SAMPLIB with member names IGGCSIxx).  However according to the manual
you can call IGGCSI00 from a higher level language as long as the higher
level language invokes IGGCSI00 using an assember language CALL with V-type
address, LINK, or LOAD and CALL.

I don't know how to do that in C. Any help is appreciated.

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


Re: FTP more info

2009-04-30 Thread Paul Gilmartin
On Thu, 30 Apr 2009 15:41:22 -0500, John McKown wrote:

On Thu, 30 Apr 2009 15:16:08 -0500, Mark Steely wrote:

We are z/os V1R9. I have a customer who is transferring a ASCII text
file with horizontal tabs x'09' characters. When the file is FTP to the
mainframe using IBM ftp the x''09' is translated to x'05'. If the
customer uses CA FTP stack the ascii x'09' is converted to 5 spaces. Is
there a way to have this happen on IBM ftp.

Thank You

No.

Unfortunately, I don't have access to the manuals for the CA stack. But I'd
almost be willing to bet that it has an option so that a TAB character
inserts 1 to 8 blanks so that the last blank is in a column which evenly
divisible by 8.

You might be able to use the expand command either before
or after transferring the file.

-- gil

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


Re: FTP more info

2009-04-30 Thread Mark Steely
What is the expand command ? 

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Paul Gilmartin
Sent: Thursday, April 30, 2009 3:50 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: FTP more info

On Thu, 30 Apr 2009 15:41:22 -0500, John McKown wrote:

On Thu, 30 Apr 2009 15:16:08 -0500, Mark Steely wrote:

We are z/os V1R9. I have a customer who is transferring a ASCII text 
file with horizontal tabs x'09' characters. When the file is FTP to 
the mainframe using IBM ftp the x''09' is translated to x'05'. If the 
customer uses CA FTP stack the ascii x'09' is converted to 5 spaces. 
Is there a way to have this happen on IBM ftp.

Thank You

No.

Unfortunately, I don't have access to the manuals for the CA stack. But

I'd almost be willing to bet that it has an option so that a TAB 
character inserts 1 to 8 blanks so that the last blank is in a column 
which evenly divisible by 8.

You might be able to use the expand command either before or after
transferring the file.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html
   
   
 
   
   
  
*** CONFIDENTIALITY NOTICE ***

This e-mail message and all attachments transmitted with it may
contain legally privileged and confidential information intended
solely for the use of the addressee. If the reader of this message
is not the intended recipient, you are hereby notified that any
reading, dissemination, distribution, copying, 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 from your system. Thank you.

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


Re: C/C++ for MVS: How do I read the master catalog?

2009-04-30 Thread Kirk Wolf
We offer a free shell command in the Co:Z Toolkit called catsearch
which is wrapper around IGGCSI00 (and OBTAIN for reading the
associated Fmt1 DSCB).   It is written mostly in C++, but has a little
assembler in it.   It would be pretty easy to call this command from
C/C++.

see: http://dovetail.com/docs/coz/dsp-ref_catsearch.html

Kirk Wolf
Dovetailed Technologies

On Thu, Apr 30, 2009 at 3:36 PM, Cristi Terpea cristi.ter...@fortech.ro wrote:
 I'm trying to get the same output as ls '*' from z/OS FTPD.

 I think this can be done by reading the master catalog. Until now I found no
 way to open it from C.

 I found out that the master catalog path is in SYS1.NUCLEUS(SYSCATLG). It
 says: S6SYS1113CCATALOG.Z16S.MASTER
 So, my master catalog is CATALOG.Z16S.MASTER. I thought I could be able to
 open it with fopen, but it doesn't work.

 IBMUSER:/u/ibmuser: uname -a
 OS/390 ADCD 16.00 03 9121

 On experts-exchange someone said:
 you should be able to use IGGCSI00, which is a IBM supplied Catalog Search
 routine.
 This is typically called from Assemble or REXX (there are samples in
 SYS1.SAMPLIB with member names IGGCSIxx).  However according to the manual
 you can call IGGCSI00 from a higher level language as long as the higher
 level language invokes IGGCSI00 using an assember language CALL with V-type
 address, LINK, or LOAD and CALL.

 I don't know how to do that in C. Any help is appreciated.

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


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


Re: C/C++ for MVS: How do I read the master catalog?

2009-04-30 Thread Eric Spencer
Have a look at the interface to IEANTC (name token services) in samplib 
This shows how to call the name token service from c and c++
Calling IGGCSI00 is the same sort of thing... pulling apart the returned
data structure will be a bit more involved.

Eric

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Cristi Terpea
Sent: Thursday, April 30, 2009 3:36 PM
To: IBM-MAIN@bama.ua.edu
Subject: C/C++ for MVS: How do I read the master catalog?

I'm trying to get the same output as ls '*' from z/OS FTPD.

I think this can be done by reading the master catalog. Until now I
found no
way to open it from C.

I found out that the master catalog path is in SYS1.NUCLEUS(SYSCATLG).
It
says: S6SYS1113CCATALOG.Z16S.MASTER
So, my master catalog is CATALOG.Z16S.MASTER. I thought I could be able
to
open it with fopen, but it doesn't work.

IBMUSER:/u/ibmuser: uname -a
OS/390 ADCD 16.00 03 9121

On experts-exchange someone said:
you should be able to use IGGCSI00, which is a IBM supplied Catalog
Search
routine.
This is typically called from Assemble or REXX (there are samples in
SYS1.SAMPLIB with member names IGGCSIxx).  However according to the
manual
you can call IGGCSI00 from a higher level language as long as the higher
level language invokes IGGCSI00 using an assember language CALL with
V-type
address, LINK, or LOAD and CALL.

I don't know how to do that in C. Any help is appreciated.

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

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


Re: C/C++ for MVS: How do I read the master catalog?

2009-04-30 Thread Farley, Peter x23353
 -Original Message-
 From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
 Behalf Of Cristi Terpea
 Sent: Thursday, April 30, 2009 4:36 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: C/C++ for MVS: How do I read the master catalog?
Snipped 
 On experts-exchange someone said:
 you should be able to use IGGCSI00, which is a IBM supplied Catalog
 Search routine.
 This is typically called from Assemble or REXX (there are samples in
 SYS1.SAMPLIB with member names IGGCSIxx).  However according to the
manual
 you can call IGGCSI00 from a higher level language as long as the
higher
 level language invokes IGGCSI00 using an assember language CALL with
V-
 type address, LINK, or LOAD and CALL.
 
 I don't know how to do that in C. Any help is appreciated.

Look in the C/C++ Programmer's Guide here (watch the wrap):

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CBCPG170/3.2.
2?SHELF=CBCBS171DT=20060501163751

3.2.2 Specifying linkage for C or C++ to Assembler

So, for C something like:

#pragma linkage(IGGCSI00, OS)

should do it.  But do *not* take my word for it, go read that whole
section on assembler and C (chapters 18 and 19, or sections 3.1 and 3.2)
where you should get the knowledge you need.

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


Re: C/C++ for MVS: How do I read the master catalog?

2009-04-30 Thread John McKown
Replied off list with some example C code that I wrote long ago.

--
John

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


Re: FTP more info

2009-04-30 Thread Kirk Wolf
Its a *nix command, available in  z/OS USS.   See man expand

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

PS It is easy to mix Unix with z/OS batch using the free Co:Z Toolkit.
You could have one step FTP the data to a temporary dataset and then
follow with a step like this:

// EXEC PGM=COZBATCH  - a better BPXBATCH
//IN DD  DISP=OLD,DSN=FTPDS
//OUT  DD  DISP=(NEW,CATLG),DSN=MY.DSN,...
//STDIN  DD *
  fromdsn //DD:IN | expand -4 | todsn //DD:OUT
//



On Thu, Apr 30, 2009 at 3:58 PM, Mark Steely mark.ste...@wnco.com wrote:
 What is the expand command ?

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
 Behalf Of Paul Gilmartin
 Sent: Thursday, April 30, 2009 3:50 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: FTP more info

 On Thu, 30 Apr 2009 15:41:22 -0500, John McKown wrote:

On Thu, 30 Apr 2009 15:16:08 -0500, Mark Steely wrote:

We are z/os V1R9. I have a customer who is transferring a ASCII text
file with horizontal tabs x'09' characters. When the file is FTP to
the mainframe using IBM ftp the x''09' is translated to x'05'. If the
customer uses CA FTP stack the ascii x'09' is converted to 5 spaces.
Is there a way to have this happen on IBM ftp.

Thank You

No.

Unfortunately, I don't have access to the manuals for the CA stack. But

I'd almost be willing to bet that it has an option so that a TAB
character inserts 1 to 8 blanks so that the last blank is in a column
which evenly divisible by 8.

 You might be able to use the expand command either before or after
 transferring the file.

 -- gil

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






                            *** CONFIDENTIALITY NOTICE ***

 This e-mail message and all attachments transmitted with it may
 contain legally privileged and confidential information intended
 solely for the use of the addressee. If the reader of this message
 is not the intended recipient, you are hereby notified that any
 reading, dissemination, distribution, copying, 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 from your system. Thank you.

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


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


Re: FTP more info

2009-04-30 Thread Johnston, Robert E
Not what you asked, but you can make the CA stack do the same as IBM by using 
the TAB command. (Apologies if you already know this)

SITE TABS(0)

TABS (integer) Specifies the tab stop interval to be used in receiving the next 
file.
Default: Eight.
Limit: 25.
TABS(0) translates tab characters (for example, ASCII x'09' is
translated to EBCDIC x'05'); TABS(1) replaces each tab
character with a blank.

Robert

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
 Behalf Of John McKown
 Sent: Thursday, April 30, 2009 3:41 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: FTP more info
 
 On Thu, 30 Apr 2009 15:16:08 -0500, Mark Steely mark.ste...@wnco.com
 wrote:
 
 We are z/os V1R9. I have a customer who is transferring a ASCII text
 file with horizontal tabs x'09' characters. When the file is FTP to the
 mainframe using IBM ftp the x''09' is translated to x'05'. If the
 customer uses CA FTP stack the ascii x'09' is converted to 5 spaces. Is
 there a way to have this happen on IBM ftp.
 
 Thank You
 
 No.
 
 Unfortunately, I don't have access to the manuals for the CA stack. But
 I'd
 almost be willing to bet that it has an option so that a TAB character
 inserts 1 to 8 blanks so that the last blank is in a column which evenly
 divisible by 8.
 
 --
 John
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions,
 send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
 Search the archives at http://bama.ua.edu/archives/ibm-main.html

Confidentiality Notice: This e-mail message, including any attachments, is for 
the sole use of the intended recipient(s) and may contain confidential and 
privileged information.  Any unauthorized review, use, disclosure or 
distribution is prohibited.  If you are not the intended recipient, please 
contact the sender by reply e-mail and destroy all copies of the original 
message.

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


Using CA-JOBTRAC V11 SP3 in Production

2009-04-30 Thread Carlson, Steven
I have been working on getting CA-JOBTRAC V11 SP3 to be implemented into our 
production environment. Has anyone else been able to use CA-JOBTRAC V11 SP3 in 
their production environment?

Steve Carlson
z/OS Systems Services
National Semiconductor
Corporation
2900 Semiconductor Drive
Santa Clara, CA 95051
Tel:(408)721-8071
Email:asx...@nsc.com


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


Re: FTP more info

2009-04-30 Thread Paul Gilmartin
On Thu, 30 Apr 2009 16:15:41 -0500, Kirk Wolf wrote:

Its a *nix command, available in  z/OS USS.   See man expand

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

PS It is easy to mix Unix with z/OS batch using the free Co:Z Toolkit.
You could have one step FTP the data to a temporary dataset and then
follow with a step like this:

// EXEC PGM=COZBATCH  - a better BPXBATCH
//IN DD  DISP=OLD,DSN=amp;FTPDS
//OUT  DD  DISP=(NEW,CATLG),DSN=MY.DSN,...
//STDIN  DD *
  fromdsn //DD:IN | expand -4 | todsn //DD:OUT
//

Perhaps even better, most UNIX FTP clients other than
IBM's support piping on the client end such as:

ftp zoshost
put | expand local.entabbed.file MY.DSN
quit

-- gil

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


Re: Enterprise COBOL code generation question

2009-04-30 Thread Clark Morris
On 30 Apr 2009 13:00:02 -0700, in bit.listserv.ibm-main you wrote:

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
 Behalf Of Steve Comstock
 Sent: Thursday, April 30, 2009 3:30 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: Enterprise COBOL code generation question
Snipped 
 Peter,
 
 I can't speak with authority, since the details are hidden and,
 to some degree, proprietary. But I once learned that when working
 with pic s9(9) binary data, the compiler converts to packed to
 avoid or intercept overflows. The simplest fix / workaround is to
 declare these fields as s9(8) binary. Give that a try and see if
 it works better.

Tried that, and got the same results.  Also tried using constant
variables defined the same way as the variable to be tested (both S9(9)
and S9(8) versions) and that is even worse -- BOTH the variable AND the
constant variables are converted to packed and then compared with CP.

Another lister wrote me offline to say that Enterprise COBOL may be
following the standard in this bizarreness, but when I have TRUNC(BIN)
in effect, doesn't that tell the compiler I want something *different*
from the standard?

Try TRUNC(OPT).  Trunc STD would require the conversion to decimal to
guarantee that the data fit the picture.  TRUNC(BIN) is known and
documented to generate less than optimal code.

Bah, humbug.  Lazy compiler writers ought to be taken out and ... well,
you get the idea.

Peter


This message and any attachments are intended only for the use of the 
addressee and
may contain information that is privileged and confidential. If the reader of 
the 
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication 
in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.


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

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


Re: Enterprise COBOL code generation question

2009-04-30 Thread Farley, Peter x23353
 -Original Message-
 From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
 Behalf Of Clark Morris
 Sent: Thursday, April 30, 2009 7:03 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: Enterprise COBOL code generation question
Snipped 
 On 30 Apr 2009 13:00:02 -0700, in bit.listserv.ibm-main you wrote:
 
 Try TRUNC(OPT).  Trunc STD would require the conversion to decimal to
 guarantee that the data fit the picture.  TRUNC(BIN) is known and
 documented to generate less than optimal code.

Son of a gun, that did it.  From half a page of code to six
instructions.

I will have to test this program with TRUNC(OPT) pretty carefully to
make sure it has no other adverse affects.  The doc on OPT is pretty
clear in its warnings.

And the doc on TRUNC(BIN) does have the phrase ... you can avoid the
performance overhead of using TRUNC(BIN) ..., implying there is, in
fact, a performance penalty for using it.

Thanks for pointing out the benefit of TRUNC(OPT) to me.

Peter


This message and any attachments are intended only for the use of the addressee 
and
may contain information that is privileged and confidential. If the reader of 
the 
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.


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


is out of the office.

2009-04-30 Thread Keith Zawila
I will be out of the office starting  04/30/2009 and will not return until
05/03/2009.

I will be out of the office on Friday, May 1st.  I will return on Monday,
May 4th.  Thanks.



**

The information contained in this communication is confidential, private, 
proprietary, or otherwise privileged and is intended only for the use of the 
addressee.  Unauthorized use, disclosure, distribution or copying is strictly 
prohibited and may be unlawful.  If you have received this communication in 
error, please notify the sender immediately at (312)653-6000 in Illinois; 
(800)835-8699 in New Mexico; (918)560-3500 in Oklahoma; or (972)766-6900 in 
Texas.

**

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


Re: Check out developerWorks: Cloud development

2009-04-30 Thread Andrew Rowley

Ed Finnell wrote:
 
In a message dated 4/30/2009 12:01:06 P.M. Central Daylight Time,  
efinnel...@aol.com writes:


I don't know if this appeals to anyone on this list yet. Could be   
interesting down the road.



Well it works between the parens. The tinyurl  is as follows:
 
http://tinyurl.com/d85plv


What I'd love to see is z/OS in the cloud.

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


Re: C/C++ for MVS: How do I read the master catalog?

2009-04-30 Thread Terpea Cristian
Thanks Kirk,

It was just what I was looking for.

Best regards,
Cristi Terpea

 We offer a free shell command in the Co:Z Toolkit called catsearch
which is wrapper around IGGCSI00 (and OBTAIN for reading the
 associated Fmt1 DSCB).   It is written mostly in C++, but has a little
assembler in it.   It would be pretty easy to call this command from
C/C++.

 see: http://dovetail.com/docs/coz/dsp-ref_catsearch.html

 Kirk Wolf
 Dovetailed Technologies

 On Thu, Apr 30, 2009 at 3:36 PM, Cristi Terpea
cristi.ter...@fortech.ro wrote:
 I'm trying to get the same output as ls '*' from z/OS FTPD.

 I think this can be done by reading the master catalog. Until now I
found no
 way to open it from C.

 I found out that the master catalog path is in SYS1.NUCLEUS(SYSCATLG). It
 says: S6SYS1113CCATALOG.Z16S.MASTER
 So, my master catalog is CATALOG.Z16S.MASTER. I thought I could be able to
 open it with fopen, but it doesn't work.

 IBMUSER:/u/ibmuser: uname -a
 OS/390 ADCD 16.00 03 9121

 On experts-exchange someone said:
 you should be able to use IGGCSI00, which is a IBM supplied Catalog
Search
 routine.
 This is typically called from Assemble or REXX (there are samples in
SYS1.SAMPLIB with member names IGGCSIxx).  However according to the
manual
 you can call IGGCSI00 from a higher level language as long as the
higher level language invokes IGGCSI00 using an assember language CALL
with V-type
 address, LINK, or LOAD and CALL.

 I don't know how to do that in C. Any help is appreciated.

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


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




-- 
Terpea Cristian
Senior Software Developer
Fortech SRL
Brancoveanu Nr. 6
Cluj-Napoca, 400486
Romania
Tel: + 40 264 453 303
Fax: + 40 264 438 217
www.fortech.ro



The information contained in this message is confidential and may be
legally privileged.The information transmitted is intended only for
the person or entity to which it is addressed and may contain
confidential and/or privileged material. If you are not the intended
recipient, you are hereby notified that any review, retransmission,
dissemination or other use of, or taking of any action in reliance
upon this information is strictly prohibited and may be unlawful.
If you received this in error, please contact the sender and delete
the material from any computer. Fortech SRL excludes the liability for
any damage which might result from this e-mail message.

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