Re: z/OS's basis for TCP/IP

2011-12-07 Thread Chris Mason
Lindy

 ... they took long time to implement a resolver.

There has always been a resolver function in TCP/IP for VM, TCP/IP for 
MVS and the IP component of z/OS Communications Server (CS) (CS IP). What you 
may have in mind is the introduction of the resolver *address space* in z/OS 
V1R2 CS IP.

Since it is the responsibility of the manuals to explain such developments - 
maybe also the responsibility of folk playing the role of system programmers to 
discover such explanations! - here is what the z/OS V1R2 Communications Server 
IP Migration manual says about the introduction of the resolver *address 
space*:

quote

4.2 Resolver Enhancements

...

Prior to z/OS V1R2, the resolver function was implemented as part of the 
various socket APIs (Application Programming Interfaces) available on the z/OS 
platform. As a result, multiple versions of the resolver function were 
available, one for each type of socket API supporting resolver calls. All of 
these resolver libraries were quite similar in their support of 
resolver functions but had slight differences from an administrative and 
configuration perspective. For example, the resolver search logic to locate its 
configuration file (TCPIP.DATA file) varied depending on whether the 
application was using the TCP/IP provided Socket APIs or the C/C++ Socket API 
provided by the LE (Language Environment) component of z/OS.

In z/OS V1R2, the various resolver libraries supported by the TCP/IP and LE 
APIs are now consolidated into a single resolver component. This allows 
consistent name resolution processing across all applications using the TCP/IP 
and LE socket APIs. The new consolidated resolver is automatically enabled on 
z/OS V1R2 and requires a new system address space that is automatically started 
during UNIX System Services initialization. The consolidated resolver offers 
several enhancements over previous releases:

...

/quote

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/f1a1b110/4.2
 
 If so, how were hostnames resolved?

Well, it's not so and so the question becomes immaterial!

Chris Mason

On Wed, 7 Dec 2011 06:30:12 +, Lindy Mayfield lindy.mayfi...@sas.com 
wrote:

Interesting, if I am correct, they took long time to implement a resolver.  If 
so, how were hostnames resolved?

--
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: Help Programming for ISPF Jump

2011-12-07 Thread Binyamin Dissen
How about not using == ?

On Tue, 6 Dec 2011 17:28:20 -0600 Chuck Arney ch...@arneycomputer.com wrote:

:I need some pointers on programming with the ISPF Jump command. 
:
:I'll provide some background details first to hopefully prevent suggestions
:for things I have already tried. I am working on an assembler ISPF
:application that does not use the ISPF Select service nor ZSEL in panel
:definitions.  It is a single load module that uses the ISPF Display service
:to display menus and data panels.  It performs all its own processing of
:menus.
:
:I am in the process of adding support for fast path commands.  Without using
:the Select service, the Dialog Manager does not seem to handle multi-level
:menu selections (eg. 8.3) at all, so I have implemented code to support
:that.
:
:The problem I have is with the ISPF Jump (=) command.  I would like for the
:application to operate as any standard ISPF application using the normal
:Jump command which users will expect.  I would like to either find a way for
:the Dialog Manager to handle the multi-level menu commands or to completely
:disable it.  So far I have not found a way to prevent ISPF from handling the
:= command.  Whenever an =x.x style command is entered, ISPF processes the
:Jump command (generating return code 8 and ZVERB RETURN for each panel
:display back to the Primary Menu) but I don't get the remainder of the
:command (the x.x part).  ZCMD is blanks and ZVERB is RETURN.  I attempted to
:use the .trail function to get the remaining command into a variable, with
:no success.  Either that is handled by Select, which I don't issue, or I
:have not found the right combination to get it set.
:
:At this point I would like to stop ISPF from handling the = command at all,
:so that I receive it along with the rest of the command string but I have
:not found a way to do that.  Using the nojump(on) parameter on the field
:attribute panel definition does not help because that simply creates an ISPF
:error message if the = command is used and the command input is not provided
:to the program.
:
:Is there a way to stop, via a program call or panel definition, ISPF from
:processing the = command?  Or a way to change Jump to another character so I
:could use =?  Or, am I missing something obvious and going about this in the
:wrong way?
:
:I currently have the needed support implemented by using a different
:character as my Jump command, but that's not intuitive to a typical ISPF
:user.  Surly there is something I have not been able to find in the
:documentation, to do this.
:
:Thanks for any suggestions.
:
:Chuck Arney
:Arney Computer Systems
:
:   
:
:--
:For IBM-MAIN subscribe / signoff / archive access instructions,
:send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
:Search the archives at http://bama.ua.edu/archives/ibm-main.html

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

Director, Dissen Software, Bar  Grill - Israel


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

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

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


Re: Help Programming for ISPF Jump

2011-12-07 Thread Lindy Mayfield
What about perhaps preceding the = with another character, perhaps a slash == 
/=abc

Lindy

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Chuck Arney
Sent: Wednesday, December 07, 2011 1:28 AM
To: IBM-MAIN@bama.ua.edu
Subject: Help Programming for ISPF Jump

I need some pointers on programming with the ISPF Jump command. 

--
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: Help Programming for ISPF Jump

2011-12-07 Thread Elardus Engelbrecht
Chuck Arney wrote:

I need some pointers on programming with the ISPF Jump command.

Jump command is so an ingrained part of ISPF... (Perhaps disabling RACF is 
easier... :-D )


 ... So far I have not found a way to prevent ISPF from handling the = 
 command.  

Look at these extracts from 'ISPF User's Guide Volume I' to see if it can help 
you:


The command field is the only field that can be initialized to =n by the 
dialog and have the jump function recognize it. Modifying the ZCMD field in the 
)PROC or )INIT section can affect jump function operation. 
  
Otherwise, the dialog developer can cancel the jump request/return mode by 
providing two consecutive displays with the same panel name.


Is there a way to stop, via a program call or panel definition, ISPF from 
processing the = command?  Or a way to change Jump to another character so I 
could use =?  Or, am I missing something obvious and going about this in the
wrong way?

Can you grab any command (inside your program or via emulator keystroke 
scanner) before ISPF grabs it and just simple drop/ignore any command 
containing '=' and simply passing a blank and ENTER?

I'm sure there is an exit available for pre-processing commands, but I can't 
find it. Perhaps ISPF-L members can help you out there?

Binyamin Dissen's suggestion is a very interesting one. I'm sure he got on 
something useful...

Just my two worthless cents before tax...

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


ISPF scrollable areas

2011-12-07 Thread Andy Robertson
A query.
 
I have a panel with two scrollable areas (defined within )AREA sections)
 
If I issue UP or DOWN with my cursor outside these areas, I get the message
 
ISPP651 The cursor must be within a scrollable area to perform the 
requested scroll. 

All working correctly, but not wot I want
 
What I want to do is to trap this message, reposition the cursor within one of 
the areas, and reissue the scroll
 
Does anyone have any ideas  as how to do this???  

The message does not show up in ZERRSM/ZERRLM or ZMSGID.  
The )REINIT section does not appear to be being redriven.

Any ideas?

Andy Robertson   telephone mobile 0777 214 9545 home 01308 420797
**
This email is confidential and may contain copyright material of the John Lewis 
Partnership. 
If you are not the intended recipient, please notify us immediately and delete 
all copies of this message. 
(Please note that it is your responsibility to scan this message for viruses). 
Email to and from the
John Lewis Partnership is automatically monitored for operational and lawful 
business reasons.
**

John Lewis plc
Registered in England 233462
Registered office 171 Victoria Street London SW1E 5NN
 
Websites: http://www.johnlewis.com 
http://www.waitrose.com 
http://www.johnlewis.com/insurance
http://www.johnlewispartnership.co.uk
 
**

--
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: ISPF scrollable areas

2011-12-07 Thread Martin Packer
Andy, I can't answer your question but wonder if what you're trying to do 
violates the principle of least astonishment in UI design.

Cheers, Martin

Martin Packer,
Mainframe Performance Consultant, zChampion
Worldwide Banking Center of Excellence, IBM

+44-7802-245-584

email: martin_pac...@uk.ibm.com

Twitter / Facebook IDs: MartinPacker
Blog: 
https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker



From:
Andy Robertson andy_robert...@johnlewis.co.uk
To:
IBM-MAIN@bama.ua.edu, 
Date:
07/12/2011 11:17
Subject:
ISPF scrollable areas
Sent by:
IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu



A query.
 
I have a panel with two scrollable areas (defined within )AREA sections)
 
If I issue UP or DOWN with my cursor outside these areas, I get the 
message
 
ISPP651 The cursor must be within a scrollable area to perform the 
requested scroll. 

All working correctly, but not wot I want
 
What I want to do is to trap this message, reposition the cursor within 
one of the areas, and reissue the scroll
 
Does anyone have any ideas  as how to do this??? 

The message does not show up in ZERRSM/ZERRLM or ZMSGID. 
The )REINIT section does not appear to be being redriven.

Any ideas?

Andy Robertson   telephone mobile 0777 214 9545 home 01308 420797
**
This email is confidential and may contain copyright material of the John 
Lewis Partnership. 
If you are not the intended recipient, please notify us immediately and 
delete all copies of this message. 
(Please note that it is your responsibility to scan this message for 
viruses). Email to and from the
John Lewis Partnership is automatically monitored for operational and 
lawful business reasons.
**

John Lewis plc
Registered in England 233462
Registered office 171 Victoria Street London SW1E 5NN
 
Websites: http://www.johnlewis.com 
http://www.waitrose.com 
http://www.johnlewis.com/insurance
http://www.johnlewispartnership.co.uk
 
**

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








Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU






--
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: z/OS's basis for TCP/IP

2011-12-07 Thread Lindy Mayfield
Yes, playing  and I get things wrong. Sorry.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Chris Mason
Sent: Wednesday, December 07, 2011 10:35 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: z/OS's basis for TCP/IP

Since it is the responsibility of the manuals to explain such developments - 
maybe also the responsibility of folk playing the role of system programmers to 
discover such explanations! 

--
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: z/OS's basis for TCP/IP

2011-12-07 Thread Anne Lynn Wheeler
lindy.mayfi...@sas.com (Lindy Mayfield) writes:
 Interesting, if I am correct, they took long time to implement a
 resolver.  If so, how were hostnames resolved?

re:
http://www.garlic.com/~lynn/2011p.html#42 z/OS's basis for TCP/IP
http://www.garlic.com/~lynn/2011p.html#43 z/OS's basis for TCP/IP
http://www.garlic.com/~lynn/2011p.html#45 z/OS's basis for TCP/IP
http://www.garlic.com/~lynn/2011p.html#46 z/OS's basis for TCP/IP
http://www.garlic.com/~lynn/2011p.html#47 z/OS's basis for TCP/IP

trivia ... person that invented DNS had a decade prior did stint working
at the cambridge science center (while at MIT) ... related to cms
multi-level source update process (this was after gml had been invented
at science center and before cp67 morphed into vm370).

old posts with reference to somebody being semi-facetious
http://www.garlic.com/~lynn/aepay11.htm#43 Mockapetris agrees w/Lynn on DNS 
security - (April Fool's day??)
http://www.garlic.com/~lynn/aepay11.htm#45 Mockapetris agrees w/Lynn on DNS 
security - (April Fool's day??)

wiki reference:
http://en.wikipedia.org/wiki/Paul_Mockapetris

another trivia from above wiki entry, jon postel used to let me do part
of std1 ... referenced in this recent linkedin post
http://www.garlic.com/~lynn/2011o.html#17 Ancient Internet History

-- 
virtualization experience starting Jan1968, online at home since Mar1970

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


CSFEUTIL RC

2011-12-07 Thread Mark Pace
Trying to run one of the jobs in the Install Dialog for z/OS 1.13.
DOC: This job uses a pass phrase value to load DES and PKA
 master keys.

//SETMKEXEC PGM=CSFEUTIL,
//   PARM='CSF.CSFCKDS,My New Passphrase,PPINIT'
//SYSPRINT DD SYSOUT=*
//*

running the job I get
CSFU002I CSFEUTIL COMPLETED, RETURN CODE = 12, REASON CODE = 0.
IEF142I CSFSETMK SETMK - STEP WAS EXECUTED - COND CODE 0012

Return and reason codes for the CSFEUTIL program
12 Process unsuccessful.

That's it.  Process unsuccessful.  Nothing else in the log or console to
indicate what the problem may be.
I've checked the RACF definitions for this file and I have Alter access.
 Anyone have any ideas on what may be wrong?


-- 
The postings on this site are my own and don’t necessarily represent
Mainline’s positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

--
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: CSFEUTIL RC

2011-12-07 Thread Chicklon, Thomas
What type of processor are you trying to run this on? Found this
restriction is the Crypto Services Admin Guide:

Restriction: You cannot use this utility to initialize a CKDS (and load
DES and
PKA master keys using a pass phrase) on the z990, z890, z9 EC, z9 BC,
z10
EC, z10 BC, and z196.

On the supported hardware, the utility only loads DES and PKA master
keys on
the CCF. If you have a PCICC as part of the configuration, the SYM-MK is
not
loaded.


Tom Chicklon
---

Trying to run one of the jobs in the Install Dialog for z/OS 1.13.
DOC: This job uses a pass phrase value to load DES and PKA
 master keys.

//SETMKEXEC PGM=CSFEUTIL,
//   PARM='CSF.CSFCKDS,My New Passphrase,PPINIT'
//SYSPRINT DD SYSOUT=*
//*

running the job I get
CSFU002I CSFEUTIL COMPLETED, RETURN CODE = 12, REASON CODE = 0.
IEF142I CSFSETMK SETMK - STEP WAS EXECUTED - COND CODE 0012

Return and reason codes for the CSFEUTIL program
12 Process unsuccessful.

That's it.  Process unsuccessful.  Nothing else in the log or console to
indicate what the problem may be.
I've checked the RACF definitions for this file and I have Alter access.
 Anyone have any ideas on what may be wrong?


-- 

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: CSFEUTIL RC

2011-12-07 Thread Mike Schwab
http://publib.boulder.ibm.com/infocenter/zos/v1r12/index.jsp?topic=%2Fcom.ibm.zos.r12.csfb300%2Futrcrs.htm
8 is a RACF error.
12 has a long list of reason code, 0 is not among them.

http://www-03.ibm.com/support/techdocs/atsmastr.nsf/WebIndex/PRS757
When run from batch, the reason code is not displayed,  This web page
has a sample program to call the program and display the return and
reason codes.

On Wed, Dec 7, 2011 at 7:42 AM, Mark Pace pacemainl...@gmail.com wrote:
 Trying to run one of the jobs in the Install Dialog for z/OS 1.13.
 DOC: This job uses a pass phrase value to load DES and PKA
     master keys.

 //SETMK    EXEC PGM=CSFEUTIL,
 //   PARM='CSF.CSFCKDS,My New Passphrase,PPINIT'
 //SYSPRINT DD SYSOUT=*
 //*

 running the job I get
 CSFU002I CSFEUTIL COMPLETED, RETURN CODE = 12, REASON CODE = 0.
 IEF142I CSFSETMK SETMK - STEP WAS EXECUTED - COND CODE 0012

 Return and reason codes for the CSFEUTIL program
 12 Process unsuccessful.

 That's it.  Process unsuccessful.  Nothing else in the log or console to
 indicate what the problem may be.
 I've checked the RACF definitions for this file and I have Alter access.
  Anyone have any ideas on what may be wrong?


 --
 The postings on this site are my own and don’t necessarily represent
 Mainline’s positions or opinions

 Mark D Pace
 Senior Systems Engineer
 Mainline Information Systems

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



-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

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


Re: CSFEUTIL RC

2011-12-07 Thread Jousma, David
Wondering why you are doing this?  Is this a new, empty dataset?  You
shouldn't be setting new masterkeys just for a z/OS upgrade.

Did you select new install or upgrade path in your Serverpack dialogs?

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


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Mark Pace
Sent: Wednesday, December 07, 2011 8:42 AM
To: IBM-MAIN@bama.ua.edu
Subject: CSFEUTIL RC

Trying to run one of the jobs in the Install Dialog for z/OS 1.13.
DOC: This job uses a pass phrase value to load DES and PKA
 master keys.

//SETMKEXEC PGM=CSFEUTIL,
//   PARM='CSF.CSFCKDS,My New Passphrase,PPINIT'
//SYSPRINT DD SYSOUT=*
//*

running the job I get
CSFU002I CSFEUTIL COMPLETED, RETURN CODE = 12, REASON CODE = 0.
IEF142I CSFSETMK SETMK - STEP WAS EXECUTED - COND CODE 0012

Return and reason codes for the CSFEUTIL program
12 Process unsuccessful.

That's it.  Process unsuccessful.  Nothing else in the log or console to
indicate what the problem may be.
I've checked the RACF definitions for this file and I have Alter access.
 Anyone have any ideas on what may be wrong?


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: CSFEUTIL RC

2011-12-07 Thread Mark Pace
Oh.  This is on a z10.  By looking at that list the only supported
processor must be the z114.

On Wed, Dec 7, 2011 at 9:06 AM, Chicklon, Thomas thomas.chick...@53.comwrote:

 What type of processor are you trying to run this on? Found this
 restriction is the Crypto Services Admin Guide:

 Restriction: You cannot use this utility to initialize a CKDS (and load
 DES and
 PKA master keys using a pass phrase) on the z990, z890, z9 EC, z9 BC,
 z10
 EC, z10 BC, and z196.

 On the supported hardware, the utility only loads DES and PKA master
 keys on
 the CCF. If you have a PCICC as part of the configuration, the SYM-MK is
 not
 loaded.


 Tom Chicklon
 ---

 Trying to run one of the jobs in the Install Dialog for z/OS 1.13.
 DOC: This job uses a pass phrase value to load DES and PKA
 master keys.

 //SETMKEXEC PGM=CSFEUTIL,
 //   PARM='CSF.CSFCKDS,My New Passphrase,PPINIT'
 //SYSPRINT DD SYSOUT=*
 //*

 running the job I get
 CSFU002I CSFEUTIL COMPLETED, RETURN CODE = 12, REASON CODE = 0.
 IEF142I CSFSETMK SETMK - STEP WAS EXECUTED - COND CODE 0012

 Return and reason codes for the CSFEUTIL program
 12 Process unsuccessful.

 That's it.  Process unsuccessful.  Nothing else in the log or console to
 indicate what the problem may be.
 I've checked the RACF definitions for this file and I have Alter access.
  Anyone have any ideas on what may be wrong?


 --

 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




-- 
The postings on this site are my own and don’t necessarily represent
Mainline’s positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

--
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: CSFEUTIL RC

2011-12-07 Thread Chase, John
 -Original Message-
 From: IBM Mainframe Discussion List On Behalf Of Mark Pace
 
 Trying to run one of the jobs in the Install Dialog for z/OS 1.13.
 DOC: This job uses a pass phrase value to load DES and PKA
  master keys.
 
 //SETMKEXEC PGM=CSFEUTIL,
 //   PARM='CSF.CSFCKDS,My New Passphrase,PPINIT'
 //SYSPRINT DD SYSOUT=*
 //*
 
 running the job I get
 CSFU002I CSFEUTIL COMPLETED, RETURN CODE = 12, REASON CODE = 0.
 IEF142I CSFSETMK SETMK - STEP WAS EXECUTED - COND CODE 0012
 
 Return and reason codes for the CSFEUTIL program
 12 Process unsuccessful.
 
 That's it.  Process unsuccessful.  Nothing else in the log or console
to indicate what the problem may
 be.
 I've checked the RACF definitions for this file and I have Alter
access.
  Anyone have any ideas on what may be wrong?

Well, the ICSF Administrator's Guide is real helpful:  It doesn't
document a reason code of 0.  Here's as close as it gets:

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

Return code 12 has these reason codes: 

Reason Code Meaning 


36000 
Unable to change master key. Check hardware status.

-jc-

--
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: CSFEUTIL RC

2011-12-07 Thread R.S.

No, z114 is not supported as well.
This is dead utility, because it worked on CCF* machines. CCF means 
pre-z/990, means following models:

z/900
z/800
9672 (G6, G5, G4...)

* I don't talk about pre-CCF machines, because that means Middle Ages 
of IT. ;-)


--
Radoslaw Skorupka
Lodz, Poland


W dniu 2011-12-07 15:22, Mark Pace pisze:

Oh.  This is on a z10.  By looking at that list the only supported
processor must be the z114.

On Wed, Dec 7, 2011 at 9:06 AM, Chicklon, Thomasthomas.chick...@53.comwrote:


What type of processor are you trying to run this on? Found this
restriction is the Crypto Services Admin Guide:

Restriction: You cannot use this utility to initialize a CKDS (and load
DES and
PKA master keys using a pass phrase) on the z990, z890, z9 EC, z9 BC,
z10
EC, z10 BC, and z196.

On the supported hardware, the utility only loads DES and PKA master
keys on
the CCF. If you have a PCICC as part of the configuration, the SYM-MK is
not
loaded.


Tom Chicklon
---

Trying to run one of the jobs in the Install Dialog for z/OS 1.13.
DOC: This job uses a pass phrase value to load DES and PKA
 master keys.

//SETMKEXEC PGM=CSFEUTIL,
//   PARM='CSF.CSFCKDS,My New Passphrase,PPINIT'
//SYSPRINT DD SYSOUT=*
//*

running the job I get
CSFU002I CSFEUTIL COMPLETED, RETURN CODE = 12, REASON CODE = 0.
IEF142I CSFSETMK SETMK - STEP WAS EXECUTED - COND CODE 0012

Return and reason codes for the CSFEUTIL program
12 Process unsuccessful.

That's it.  Process unsuccessful.  Nothing else in the log or console to
indicate what the problem may be.
I've checked the RACF definitions for this file and I have Alter access.
  Anyone have any ideas on what may be wrong?


--

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









--
Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku 
przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie 
jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem 
niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania 
adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by 
karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie 
zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo 
wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is intended solely for business use of the addressee. This e-mail may only be received by the addressee and may not be disclosed to any third parties. If you are not the intended addressee of this e-mail or the employee authorised to forward it to the addressee, be advised that any dissemination, copying, distribution or any other similar activity is legally prohibited and may be punishable. If you received this e-mail by mistake please advise the sender immediately by using the reply facility in your e-mail software and delete permanently this e-mail including any copies of it either printed or saved to hard drive. 


BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax 
+48 (22) 829 00 33, e-mail: i...@brebank.pl
Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. 
Wedug stanu na dzie 01.01.2011 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 168.346.696 zotych.


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


Re: ISPF scrollable areas

2011-12-07 Thread Dave Salt
I think you'd need to create your own command table and define the UP and DOWN 
commands as PASSTHRU. That way, the commands would be passed through to your 
dialog and you could process them however you want. For example, you could 
manually position the cursor to a certain area and manually simulate a scroll 
having taken place. However, if your dialog displays other screens in which 
scrolling is also allowed (where you do NOT want scroll commands being passed 
through to your dialog), then your dialog would need to use a variable in place 
of PASSTHRU so that it could turn PASSTHRU on and off. Basically, it might be a 
lot more trouble than it's worth.

Hope that helps, 
 
Dave Salt

SimpList(tm) - try it; you'll get it! 

http://www.mackinney.com/products/program-development/simplist.html  




 Date: Wed, 7 Dec 2011 11:12:16 +
 From: andy_robert...@johnlewis.co.uk
 Subject: ISPF scrollable areas
 To: IBM-MAIN@bama.ua.edu
 
 A query.
  
 I have a panel with two scrollable areas (defined within )AREA sections)
  
 If I issue UP or DOWN with my cursor outside these areas, I get the message
  
 ISPP651 The cursor must be within a scrollable area to perform the 
 requested scroll. 
 
 All working correctly, but not wot I want
  
 What I want to do is to trap this message, reposition the cursor within one 
 of the areas, and reissue the scroll
  
 Does anyone have any ideas  as how to do this???  
 
 The message does not show up in ZERRSM/ZERRLM or ZMSGID.  
 The )REINIT section does not appear to be being redriven.
 
 Any ideas?
 
 Andy Robertson   telephone mobile 0777 214 9545 home 01308 420797
 **
 This email is confidential and may contain copyright material of the John 
 Lewis Partnership. 
 If you are not the intended recipient, please notify us immediately and 
 delete all copies of this message. 
 (Please note that it is your responsibility to scan this message for 
 viruses). Email to and from the
 John Lewis Partnership is automatically monitored for operational and lawful 
 business reasons.
 **
 
 John Lewis plc
 Registered in England 233462
 Registered office 171 Victoria Street London SW1E 5NN
  
 Websites: http://www.johnlewis.com 
 http://www.waitrose.com 
 http://www.johnlewis.com/insurance
 http://www.johnlewispartnership.co.uk
  
 **
 
 --
 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


QUEUED() not working with ISPF (CROSS POSTED to ISPF-L)

2011-12-07 Thread Hansen, Dave L - Eagan, MN
ISPF Masters;

  I have been struggling with IBM since July on this one.  IBM says they can 
NOT duplicate this.  I am not using PCOMM and this borders on an application 
issue.  We are running z/OS V1R12.

  QUEUED() is not showing anything, but the pull on line 14 is being satistifed 
by something.  This PMR is sev 2 and opened up because QUEUED() is not showing 
anything.  

  If you have PCOMM and can reproduce this I would be interested in hearing 
from you.  This EXEC fails reliably across a few different 3270 emulators.  I 
don't understand what PCOMM would be doing so differently.

  WARNING:  This does a slow big loop (with user intervention input required) 
because you can't enter QUIT to end the EXEC.



  My scenario:

After putting the exec and panel in place enter SSBDLHW.  It will QUEUE 
SSBDLHW to run again and again.

   1).  QUEUED() = 0 is shown
 pull PRTRID waits for your input.  (Press ENTER)
 '***' displayed.  (Press ENTER)

   2).  Panel is displayed.  Type an A and press ENTER.

   3).  QUEUED() = 0 is shown
pull RESP waits for your input.  (Press ENTER)
'***' displayed.  (Press ENTER)

   4). QUEUED() = 0 is shown
pull PRTRID=== DOES NOT WAIT FOR YOU INPUT ===
'***' displayed.

   5).  Kill the EXEC anyway you can.



   Can anyone help me with why (as shown in the trace below) I am not given the 
opportunity to enter something for the pull on line 14?




Problem:

12 *-*   Say 'Queued =' QUEUED()
   L Queued =
   F 0
   O Queued = 0
Queued = 0
13 *-*   /**/
14 *-*   parse upper pull PRTRID

15 *-*   trace n



EXEC:

/*** REXX ***/
ADDRESS TSO
/* trace i */
ISPEXEC SELECT PGM(CLRSCRN)
parse upper arg PRTRID
If length(PRTRID) = 0 Then Do
   Say '=== When the panel displays: ==='
   Say '===Enter an A and then press ENTER.==='
   Say '=== Press ENTER to continue or   ==='
   Say '===Enter QUIT to exit the program.   ==='
   trace i
   Say 'Queued =' QUEUED()
/* parse upper external PRTRID */
   parse upper pull PRTRID
   trace n
   End
If PRTRID = QUIT Then Exit
   Else Say PRTRID = PRTRID
ADDRESS 'ISPEXEC'
'DISPLAY PANEL(SSBDLHP)'
'VGET (MYCMD)'
ADDRESS TSO
IF MYCMD = 'A' Then Do
   ISPEXEC SELECT PGM(CLRSCRN)
   Say Record Add Successful
   Say Press ENTER to Continue
   trace i
   Say 'Queued =' QUEUED()
/* parse upper external RESP */
   parse upper pull RESP
   ADDRESS 'ISPEXEC'
   MYCMD  = ' '
   'VPUT (MYCMD)'
   ADDRESS TSO
   trace n
   Queue SSBDLHW
   Exit
End
   Else Do
   Say Hint: Enter 'A' next time
   Say Press Enter to continue
/* parse upper external RESP */
   parse upper pull RESP
   Queue SSBDLHW
   Exit
End


Panel:

)ATTR DEFAULT(%+_)
 % TYPE(TEXT) INTENS(HIGH) COLOR(TURQ)
 + TYPE(TEXT) INTENS(LOW) COLOR(GREEN)
)BODY
%---ADD PRINTER--
+ %SELECTION =_MYCMD+  %A+- ADD PRINTER
)INIT
  .CURSOR = MYCMD
)PROC
   VPUT (MYCMD)
)END

Dave Hansen 
Eagan Software Systems Branch 
651-406-1208 
dave.l.han...@usps.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: What SMF record types and formats does ACF2 write?

2011-12-07 Thread Ed Gould
 Charles,

I believe, a long time ago mind you, that there was a conversation at GUIDE 
about where the proper place was for the layouts. The agreement was in the 
SMF manual. It seemed to work as lot of products records showed up there. Then 
they started to leave, slowly mind you.

The question is of course why. I don#39;t think it#39;s any great crime, just 
curious as to why the reversal on the part of IBM.

Ed

--
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: QUEUED() not working with ISPF (CROSS POSTED to ISPF-L)

2011-12-07 Thread Sambataro, Anthony (NIH/NBS) [E]
I don't use PCOMM, and don't have CLRSCRN, but I made a few small changes and 
get no errors. Here's my ISPF compare results:

I - /* ISPEXEC SELECT PGM(CLRSCRN) */   
  
D - ISPEXEC SELECT PGM(CLRSCRN) 
  
I -Else Say PRTRID = PRTRID 
D -Else Say PRTRID = PRTRID ADDRESS 'ISPEXEC'   
I - ADDRESS ISPEXEC DISPLAY PANEL(SSBDLHP)  
D - 'DISPLAY PANEL(SSBDLHP)'  
I - ADDRESS ISPEXEC VGET (MYCMD)
D - 'VGET (MYCMD)'
  
I - /* ISPEXEC SELECT PGM(CLRSCRN) */   
D -ISPEXEC SELECT PGM(CLRSCRN)  

-Original Message-
From: Hansen, Dave L - Eagan, MN [mailto:dave.l.han...@usps.gov] 
Sent: Wednesday, December 07, 2011 11:51 AM
To: IBM-MAIN@bama.ua.edu
Subject: QUEUED() not working with ISPF (CROSS POSTED to ISPF-L)

ISPF Masters;

  I have been struggling with IBM since July on this one.  IBM says they can 
NOT duplicate this.  I am not using PCOMM and this borders on an application 
issue.  We are running z/OS V1R12.

  QUEUED() is not showing anything, but the pull on line 14 is being satistifed 
by something.  This PMR is sev 2 and opened up because QUEUED() is not showing 
anything.  

  If you have PCOMM and can reproduce this I would be interested in hearing 
from you.  This EXEC fails reliably across a few different 3270 emulators.  I 
don't understand what PCOMM would be doing so differently.

  WARNING:  This does a slow big loop (with user intervention input required) 
because you can't enter QUIT to end the EXEC.



  My scenario:

After putting the exec and panel in place enter SSBDLHW.  It will QUEUE 
SSBDLHW to run again and again.

   1).  QUEUED() = 0 is shown
 pull PRTRID waits for your input.  (Press ENTER)
 '***' displayed.  (Press ENTER)

   2).  Panel is displayed.  Type an A and press ENTER.

   3).  QUEUED() = 0 is shown
pull RESP waits for your input.  (Press ENTER)
'***' displayed.  (Press ENTER)

   4). QUEUED() = 0 is shown
pull PRTRID=== DOES NOT WAIT FOR YOU INPUT ===
'***' displayed.

   5).  Kill the EXEC anyway you can.



   Can anyone help me with why (as shown in the trace below) I am not given the 
opportunity to enter something for the pull on line 14?




Problem:

12 *-*   Say 'Queued =' QUEUED()
   L Queued =
   F 0
   O Queued = 0
Queued = 0
13 *-*   /**/
14 *-*   parse upper pull PRTRID

15 *-*   trace n



EXEC:

/*** REXX ***/
ADDRESS TSO
/* trace i */
ISPEXEC SELECT PGM(CLRSCRN)
parse upper arg PRTRID
If length(PRTRID) = 0 Then Do
   Say '=== When the panel displays: ==='
   Say '===Enter an A and then press ENTER.==='
   Say '=== Press ENTER to continue or   ==='
   Say '===Enter QUIT to exit the program.   ==='
   trace i
   Say 'Queued =' QUEUED()
/* parse upper external PRTRID */
   parse upper pull PRTRID
   trace n
   End
If PRTRID = QUIT Then Exit
   Else Say PRTRID = PRTRID
ADDRESS 'ISPEXEC'
'DISPLAY PANEL(SSBDLHP)'
'VGET (MYCMD)'
ADDRESS TSO
IF MYCMD = 'A' Then Do
   ISPEXEC SELECT PGM(CLRSCRN)
   Say Record Add Successful
   Say Press ENTER to Continue
   trace i
   Say 'Queued =' QUEUED()
/* parse upper external RESP */
   parse upper pull RESP
   ADDRESS 'ISPEXEC'
   MYCMD  = ' '
   'VPUT (MYCMD)'
   ADDRESS TSO
   trace n
   Queue SSBDLHW
   Exit
End
   Else Do
   Say Hint: Enter 'A' next time
   Say Press Enter to continue
/* parse upper external RESP */
   parse upper pull RESP
   Queue SSBDLHW
   Exit
End


Panel:

)ATTR DEFAULT(%+_)
 % TYPE(TEXT) INTENS(HIGH) COLOR(TURQ)
 + TYPE(TEXT) INTENS(LOW) COLOR(GREEN)
)BODY
%---ADD PRINTER--
+ %SELECTION =_MYCMD+  %A+- ADD PRINTER
)INIT
  .CURSOR = MYCMD
)PROC
   VPUT (MYCMD)
)END

Dave Hansen 
Eagan Software Systems Branch 
651-406-1208 
dave.l.han...@usps.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: ROOT file system is out space

2011-12-07 Thread Chokalingam Thangavelu
I have successfully expanded the Service Root but it has reached 4 GB limit and 
unable to expand it further.

Is there any way to expand beyond 4 GB limit and the file system is on non sms 
volume.

Regards,
Chokalingam



From: IBM Mainframe Discussion List on behalf of Lizette Koehler
Sent: Tue 06/12/2011 03:53
To: IBM-MAIN@bama.ua.edu
Subject: Re: ROOT file system is out space



Subject: Re: ROOT file system is out space

This is live ROOT.

Regards,
Chokalingam Thangavelu


Is the root a zFS or HFS file?

I do not think the zfsadm will work for HFS files.

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





Please do not print this email unless it is absolutely necessary.

The information contained in this electronic message and any attachments to 
this message are intended for the exclusive use of the addressee(s) and may 
contain proprietary, confidential or privileged information. If you are not the 
intended recipient, you should not disseminate, distribute or copy this e-mail. 
Please notify the sender immediately and destroy all copies of this message and 
any attachments.

WARNING: Computer viruses can be transmitted via email. The recipient should 
check this email and any attachments for the presence of viruses. The company 
accepts no liability for any damage caused by any virus transmitted by this 
email.

www.wipro.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: ROOT file system is out space

2011-12-07 Thread Mark Jacobs
We define all of our ZFS datasets in extended format which allows them 
to grow beyond the 4GB limit.


Mark Jacobs

On 12/07/11 13:11, Chokalingam Thangavelu wrote:

I have successfully expanded the Service Root but it has reached 4 GB limit and 
unable to expand it further.

Is there any way to expand beyond 4 GB limit and the file system is on non sms 
volume.

Regards,
Chokalingam



From: IBM Mainframe Discussion List on behalf of Lizette Koehler
Sent: Tue 06/12/2011 03:53
To: IBM-MAIN@bama.ua.edu
Subject: Re: ROOT file system is out space



Subject: Re: ROOT file system is out space
   

This is live ROOT.

Regards,
Chokalingam Thangavelu

 

Is the root a zFS or HFS file?

I do not think the zfsadm will work for HFS files.

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





Please do not print this email unless it is absolutely necessary.

The information contained in this electronic message and any attachments to 
this message are intended for the exclusive use of the addressee(s) and may 
contain proprietary, confidential or privileged information. If you are not the 
intended recipient, you should not disseminate, distribute or copy this e-mail. 
Please notify the sender immediately and destroy all copies of this message and 
any attachments.

WARNING: Computer viruses can be transmitted via email. The recipient should 
check this email and any attachments for the presence of viruses. The company 
accepts no liability for any damage caused by any virus transmitted by this 
email.

www.wipro.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

   



--
Mark Jacobs
Time Customer Service
Tampa, FL


One of life's greatest mysteries is how the boy who
wasn't good enough to marry your daughter can be the
father of the smartest grandchild in the world.

Yiddish Proverb

--
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: ROOT file system is out space

2011-12-07 Thread Mark Zelden
On Wed, 7 Dec 2011 23:41:17 +0530, Chokalingam Thangavelu 
thangavelu.chokalin...@wipro.com wrote:

I have successfully expanded the Service Root but it has reached 4 GB limit 
and unable to expand it further.

Is there any way to expand beyond 4 GB limit and the file system is on non sms 
volume.

Regards,

No, it must be SMS managed as extended format to be larger than 4 GB.   

But why is it so big?  Do you have something in there besides what Serverpac 
delivers? Did you combine some other separate HFS / zFS roots into your
z/OS root?Even at z/OS 1.13 the root fits on a 3390-3 still (barely).

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html 
Systems Programming expert at http://expertanswercenter.techtarget.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: QUEUED() not working with ISPF (CROSS POSTED to ISPF-L)

2011-12-07 Thread Hansen, Dave L - Eagan, MN
Anthony,

I made the changes you did and still have the same problem.  It appears not to 
be a problem with CLRSCRN.  
I did notice a problem with my cut and paste.

This:
If PRTRID = QUIT Then Exit
   Else Say PRTRID = PRTRID ADDRESS 'ISPEXEC'

Should have been: 
If PRTRID = QUIT Then Exit
   Else Say PRTRID = PRTRID
ADDRESS 'ISPEXEC'

   

Dave Hansen 
Eagan Software Systems Branch 
651-406-1208 
dave.l.han...@usps.gov 

 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Sambataro, Anthony (NIH/NBS) [E]
Sent: Wednesday, December 07, 2011 12:17 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: QUEUED() not working with ISPF (CROSS POSTED to ISPF-L)

I don't use PCOMM, and don't have CLRSCRN, but I made a few small changes and 
get no errors. Here's my ISPF compare results:

I - /* ISPEXEC SELECT PGM(CLRSCRN) */   
  
D - ISPEXEC SELECT PGM(CLRSCRN) 
  
I -Else Say PRTRID = PRTRID 
D -Else Say PRTRID = PRTRID ADDRESS 'ISPEXEC'   
I - ADDRESS ISPEXEC DISPLAY PANEL(SSBDLHP)  
D - 'DISPLAY PANEL(SSBDLHP)'  
I - ADDRESS ISPEXEC VGET (MYCMD)
D - 'VGET (MYCMD)'
  
I - /* ISPEXEC SELECT PGM(CLRSCRN) */   
D -ISPEXEC SELECT PGM(CLRSCRN)  

-Original Message-
From: Hansen, Dave L - Eagan, MN [mailto:dave.l.han...@usps.gov]
Sent: Wednesday, December 07, 2011 11:51 AM
To: IBM-MAIN@bama.ua.edu
Subject: QUEUED() not working with ISPF (CROSS POSTED to ISPF-L)

ISPF Masters;

  I have been struggling with IBM since July on this one.  IBM says they can 
NOT duplicate this.  I am not using PCOMM and this borders on an application 
issue.  We are running z/OS V1R12.

  QUEUED() is not showing anything, but the pull on line 14 is being satistifed 
by something.  This PMR is sev 2 and opened up because QUEUED() is not showing 
anything.  

  If you have PCOMM and can reproduce this I would be interested in hearing 
from you.  This EXEC fails reliably across a few different 3270 emulators.  I 
don't understand what PCOMM would be doing so differently.

  WARNING:  This does a slow big loop (with user intervention input required) 
because you can't enter QUIT to end the EXEC.



  My scenario:

After putting the exec and panel in place enter SSBDLHW.  It will QUEUE 
SSBDLHW to run again and again.

   1).  QUEUED() = 0 is shown
 pull PRTRID waits for your input.  (Press ENTER)
 '***' displayed.  (Press ENTER)

   2).  Panel is displayed.  Type an A and press ENTER.

   3).  QUEUED() = 0 is shown
pull RESP waits for your input.  (Press ENTER)
'***' displayed.  (Press ENTER)

   4). QUEUED() = 0 is shown
pull PRTRID=== DOES NOT WAIT FOR YOU INPUT ===
'***' displayed.

   5).  Kill the EXEC anyway you can.



   Can anyone help me with why (as shown in the trace below) I am not given the 
opportunity to enter something for the pull on line 14?




Problem:

12 *-*   Say 'Queued =' QUEUED()
   L Queued =
   F 0
   O Queued = 0
Queued = 0
13 *-*   /**/
14 *-*   parse upper pull PRTRID

15 *-*   trace n



EXEC:

/*** REXX ***/
ADDRESS TSO
/* trace i */
ISPEXEC SELECT PGM(CLRSCRN)
parse upper arg PRTRID
If length(PRTRID) = 0 Then Do
   Say '=== When the panel displays: ==='
   Say '===Enter an A and then press ENTER.==='
   Say '=== Press ENTER to continue or   ==='
   Say '===Enter QUIT to exit the program.   ==='
   trace i
   Say 'Queued =' QUEUED()
/* parse upper external PRTRID */
   parse upper pull PRTRID
   trace n
   End
If PRTRID = QUIT Then Exit
   Else Say PRTRID = PRTRID ADDRESS 'ISPEXEC'
'DISPLAY PANEL(SSBDLHP)'
'VGET (MYCMD)'
ADDRESS TSO
IF MYCMD = 'A' Then Do
   ISPEXEC SELECT PGM(CLRSCRN)
   Say Record Add Successful
   Say Press ENTER to Continue
   trace i
   Say 'Queued =' QUEUED()
/* parse upper external RESP */
   parse upper pull RESP
   ADDRESS 'ISPEXEC'
   MYCMD  = ' '
   'VPUT (MYCMD)'
   ADDRESS TSO
   trace n
   Queue SSBDLHW
   Exit
End
   Else Do
   Say Hint: Enter 'A' next time
   Say Press Enter to continue
/* parse upper external RESP */
   parse upper pull RESP
   Queue SSBDLHW
   Exit
End


Panel:

)ATTR DEFAULT(%+_)
 % TYPE(TEXT) INTENS(HIGH) COLOR(TURQ)
 + TYPE(TEXT) INTENS(LOW) COLOR(GREEN)
)BODY
%---ADD PRINTER

Re: QUEUED() not working with ISPF (CROSS POSTED to ISPF-L)

2011-12-07 Thread Shmuel Metz (Seymour J.)
In
84ea18831601b6429e578236ae239b01a41d467...@eagnmnsxmb07.usa.dce.usps.gov,
on 12/07/2011
   at 10:50 AM, Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov
said:

   4). QUEUED() = 0 is shown
pull PRTRID=== DOES NOT WAIT FOR YOU INPUT ===
'***' displayed.

Did you run a buffer trace? What were the inbound and outbound data
streams?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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


Re: ROOT file system is out space

2011-12-07 Thread Bobbie Justice
it's got to be sms managed if you want it larger than 4 GB, but I'm curious why 
you have a 4 GB root, my 1.12 root still fits within a  
mod 3 size. (although just barely). 

Perhaps you might want to look at sms management for this, or splitting some 
directories into their own separate files. 

Bobbie Jo Justice 

I have successfully expanded the Service Root but it has reached 4 GB limit 
and unable to expand it further.
 Is there any way to expand beyond 4 GB limit and the file system is on non 
 sms volume. 
 
Regards,
Chokalingam

--
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: z/OS's basis for TCP/IP

2011-12-07 Thread Ed Finnell
Point it to a DNS that worked. We ran ours on an RS/6000 for many  moons.
 
 
In a message dated 12/7/2011 12:34:12 A.M. Central Standard Time,  
lindy.mayfi...@sas.com writes:

If so,  how were hostnames  resolved?



--
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: QUEUED() not working with ISPF (CROSS POSTED to ISPF-L)

2011-12-07 Thread Hansen, Dave L - Eagan, MN
Seymour,

   I asked IBM if a tn3270 trace would help.  I felt this would show the 3270 
stream to see if anything came back from the terminal.  In TSO/E if the data 
stack is empty, PULL reads from either:

  Terminal (TSO/E foreground)
  Input stream, which is SYSTSIN (TSO/E background)

   I asked if IBM could put REXX in a single step execution.  I have done this 
before with intertest and COBOL programs under CICS.  It sounds like IBM has 
nothing beyond REXX TRACE.  No further documentation has been requested from 
IBM.  I will look at running a buffer trace.


  Thank you,  Dave  


Dave Hansen 
Eagan Software Systems Branch 
651-406-1208 
dave.l.han...@usps.gov 

 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Shmuel Metz (Seymour J.)
Sent: Wednesday, December 07, 2011 1:22 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: QUEUED() not working with ISPF (CROSS POSTED to ISPF-L)

In
84ea18831601b6429e578236ae239b01a41d467...@eagnmnsxmb07.usa.dce.usps.gov,
on 12/07/2011
   at 10:50 AM, Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov
said:

   4). QUEUED() = 0 is shown
pull PRTRID=== DOES NOT WAIT FOR YOU INPUT ===
'***' displayed.

Did you run a buffer trace? What were the inbound and outbound data streams?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

--
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: Last use date of a PDS member

2011-12-07 Thread Donald Likens
I didn't go through all the replies so forgive me if I am repeating was someone 
said...

There a CA product (use to be called PDSMAN) that records the last referenced 
date in the directory. With that said, I am not sure if that means JCL 
procedure execution.

--
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: ROOT file system is out space

2011-12-07 Thread Rob Schramm
I'd be willing to bet there is a whole lot more being stored in the
root filesystem that just root.  Another good reason to force
read-only root regimentation.

/u - users information and storage should get it's own filesytem
/   - dumps?
/usr/lpp  - various licensed program products can use separate file-systems


Rob Schramm
Senior Systems Consultant
Imperium Group


On Wed, Dec 7, 2011 at 2:17 PM, Bobbie Justice golds...@yahoo.com wrote:
 it's got to be sms managed if you want it larger than 4 GB, but I'm curious 
 why you have a 4 GB root, my 1.12 root still fits within a
 mod 3 size. (although just barely).

 Perhaps you might want to look at sms management for this, or splitting some 
 directories into their own separate files.

 Bobbie Jo Justice

I have successfully expanded the Service Root but it has reached 4 GB limit 
and unable to expand it further.
 Is there any way to expand beyond 4 GB limit and the file system is on non 
 sms volume.

Regards,
Chokalingam

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


Possible impact of VTS on batch I/O times (also posted to IMS-L)

2011-12-07 Thread Doug Johnson
Listers,

We’re trying to understand the elapsed times of a couple of batch IMS jobs
that ran this past weekend.  Both jobs used virtual tape (IBM 3494 B20) for
log file processing and our Mainview for z/OS monitor attributed most of
the elapsed time of each job to log file processing.  One job was an IMS
batch backout job (IMS utility DFSBBO00) and the other was an IMS Cobol
database update job (DLI).  Surprisingly (to us) it’s the output log file
processing of each job that exhibited very long I/O response times in the
monitor output.  Blocking and buffering may not be as generous as they
could be, but should be adequate.  We want to understand what’s going on
and see if we can improve processing performance or provide an alternative
approach that will reduce job elapsed time.  We've had the VTS system for
some time but to my knowledge no one here has noticed or been made aware of
this sort of behavior previously (which doesn't mean it hasn't happened
before).

Below is some monitor output showing virtual tape device behavior for both
input and output log file processing in the batch backout job mentioned
earlier.  The job read the log file from a preceding update job on device
1057 and wrote its new log file on device 1064.  We understand that backout
processing using a real tape device might run very slowly due to processing
the incoming log file data in reverse sequence.  But we’re using virtual
tape and the elapsed time appears to be attributed to the NEW (output) log
file rather than the incoming (input) log file.  Below is data from a
couple of displays from our Mainview for z/OS monitor showing input and
output virtual tape device device behavior during the time the backout job
executed.

We've been speculating that what we're seeing is somehow due to VTS
configuration or the manner in which real tape is simulated or something of
that sort.  Any insights or suggestions concerning the high I/O response
times we see would be greatly appreciated.

  This is data for the input log file for the 5-hour period from
  06:30-11:30 on 04 Dec.  I/O response time looks good.

  07DEC2011  09:29:23 --
  MAINVI
  CURR WIN === 1ALT WIN ===
   H1
  =DEVINFO===ASYS=*04DEC2011==11:30=300M==MVMVS
 Volser. E06934 % Allocated 100.00 Avg Serv Time..
  4.80
 Device Number..   1057 % Utilized.   9.09 Avg IOSQ Time..
 Type...   3490 % Active...  10.52 Avg Act Time...
  4.80
 LCU Number.01C % Connected   8.96 Avg Conn Time..
  4.09
 Status.RSV % Disconn..   0.12 Avg Dsc Time...
  0.05
 Mount Status...PRV % Pending..   1.44 Avg Pnd Time...
  0.66
 % Mount Pend...% Req Queued...Avg Con+Dis Tm.
  4.14
 SSCH/Sec...  21.92 % Dev Queued...Avg DPB Delay..
  N/A
 Total SSCH.  19729 % Q+CPU Wait...Avg CUB Delay..
  N/A
 % In Use...   9.25 % Efficiency... 100.00 Avg DvB Delay..
 % Delaying.I/O Concurrency   0.09 % Reserved.
 Curr DS open...Init Cmd Res Tm% Resv Shr.
 Avg DS openAvg Q Depth% Error Rec
Max Q Depth

  This is data for the output log file for the 5-hour period from
  06:30-11:30 on 04 Dec.  I/O response time is very high and nearly all
  of it is disconnect time.

  07DEC2011  08:29:20 --
  MAINV:
  CURR WIN === 1ALT WIN ===
   H1
  =DEVINFO===ASYS=*04DEC2011==11:30=300M==MVMVS===:
 Volser. E55687 % Allocated 100.00 Avg Serv Time..
  844.27:
 Device Number..   1064 % Utilized.  90.08 Avg IOSQ Time..
 Type...   3490 % Active...  90.10 Avg Act Time...
  844:
 LCU Number.01D % Connected   1.30 Avg Conn Time..
  12.16:
 Status.RSV % Disconn..  88.73 Avg Dsc Time...
  831:
 Mount Status...PRV % Pending..   0.07 Avg Pnd Time...
  0.67:
 % Mount Pend...% Req Queued...Avg Con+Dis Tm.
  843.59:
 SSCH/Sec...   1.07 % Dev Queued...Avg DPB Delay..
  N/A:
 Total SSCH.961 % Q+CPU Wait...Avg CUB Delay..
  N/A:
 % In Use...  90.75 % Efficiency... 100.00 Avg DvB Delay..
 % Delaying.I/O Concurrency   0.90 % Reserved.
 Curr DS open...Init Cmd Res Tm% Resv Shr.
 Avg DS openAvg Q Depth% Error Rec
Max Q Depth



Doug Johnson
Software Systems Internal Consultant
Blue Cross and Blue Shield of Kansas
Voice:   785-291-7192
Fax:  785-291-8548
Cell: 

Re: Possible impact of VTS on batch I/O times (also posted to IMS-L)

2011-12-07 Thread Linda Mooney
Hi Doug, 



We used to have a 3494 B20 VTS.  You might want to see if the VTS was running 
reclamation during the time your job was running.  



HTH, 


Linda 


- Original Message -


From: Doug Johnson doug.john...@bcbsks.com 
To: IBM-MAIN@bama.ua.edu 
Sent: Wednesday, December 7, 2011 11:44:50 AM 
Subject: Possible impact of VTS on batch I/O times (also posted to IMS-L) 

Listers, 

We’re trying to understand the elapsed times of a couple of batch IMS jobs 
that ran this past weekend.  Both jobs used virtual tape (IBM 3494 B20) for 
log file processing and our Mainview for z/OS monitor attributed most of 
the elapsed time of each job to log file processing.  One job was an IMS 
batch backout job (IMS utility DFSBBO00) and the other was an IMS Cobol 
database update job (DLI).  Surprisingly (to us) it’s the output log file 
processing of each job that exhibited very long I/O response times in the 
monitor output.  Blocking and buffering may not be as generous as they 
could be, but should be adequate.  We want to understand what’s going on 
and see if we can improve processing performance or provide an alternative 
approach that will reduce job elapsed time.  We've had the VTS system for 
some time but to my knowledge no one here has noticed or been made aware of 
this sort of behavior previously (which doesn't mean it hasn't happened 
before). 

Below is some monitor output showing virtual tape device behavior for both 
input and output log file processing in the batch backout job mentioned 
earlier.  The job read the log file from a preceding update job on device 
1057 and wrote its new log file on device 1064.  We understand that backout 
processing using a real tape device might run very slowly due to processing 
the incoming log file data in reverse sequence.  But we’re using virtual 
tape and the elapsed time appears to be attributed to the NEW (output) log 
file rather than the incoming (input) log file.  Below is data from a 
couple of displays from our Mainview for z/OS monitor showing input and 
output virtual tape device device behavior during the time the backout job 
executed. 

We've been speculating that what we're seeing is somehow due to VTS 
configuration or the manner in which real tape is simulated or something of 
that sort.  Any insights or suggestions concerning the high I/O response 
times we see would be greatly appreciated. 

      This is data for the input log file for the 5-hour period from 
      06:30-11:30 on 04 Dec.  I/O response time looks good. 

      07DEC2011  09:29:23 -- 
      MAINVI 
      CURR WIN === 1        ALT WIN === 
       H1 
      =DEVINFO===ASYS=*04DEC2011==11:30=300M==MVMVS 
         Volser. E06934 % Allocated 100.00 Avg Serv Time.. 
      4.80 
         Device Number..   1057 % Utilized.   9.09 Avg IOSQ Time.. 
         Type...   3490 % Active...  10.52 Avg Act Time... 
      4.80 
         LCU Number.    01C % Connected   8.96 Avg Conn Time.. 
      4.09 
         Status.    RSV % Disconn..   0.12 Avg Dsc Time... 
      0.05 
         Mount Status...    PRV % Pending..   1.44 Avg Pnd Time... 
      0.66 
         % Mount Pend...        % Req Queued...        Avg Con+Dis Tm. 
      4.14 
         SSCH/Sec...  21.92 % Dev Queued...        Avg DPB Delay.. 
      N/A 
         Total SSCH.  19729 % Q+CPU Wait...        Avg CUB Delay.. 
      N/A 
         % In Use...   9.25 % Efficiency... 100.00 Avg DvB Delay.. 
         % Delaying.        I/O Concurrency   0.09 % Reserved. 
         Curr DS open...        Init Cmd Res Tm        % Resv Shr. 
         Avg DS open        Avg Q Depth        % Error Rec 
                                Max Q Depth 

      This is data for the output log file for the 5-hour period from 
      06:30-11:30 on 04 Dec.  I/O response time is very high and nearly all 
      of it is disconnect time. 

      07DEC2011  08:29:20 -- 
      MAINV: 
      CURR WIN === 1        ALT WIN === 
       H1 
      =DEVINFO===ASYS=*04DEC2011==11:30=300M==MVMVS===: 
         Volser. E55687 % Allocated 100.00 Avg Serv Time.. 
      844.27: 
         Device Number..   1064 % Utilized.  90.08 Avg IOSQ Time.. 
         Type...   3490 % Active...  90.10 Avg Act Time... 
      844: 
         LCU Number.    01D % Connected   1.30 Avg Conn Time.. 
      12.16: 
         Status.    RSV % Disconn..  88.73 Avg Dsc Time... 
      831: 
         Mount Status...    PRV % Pending..   0.07 Avg Pnd Time... 
      0.67: 
         % Mount Pend...        % Req Queued...        Avg Con+Dis Tm. 
      843.59: 
         SSCH/Sec...   1.07 % Dev Queued...        Avg DPB Delay.. 
      N/A: 
         Total SSCH.    961 % Q+CPU Wait...        Avg CUB Delay.. 
      N/A: 
         % 

Re: Help Programming for ISPF Jump

2011-12-07 Thread Chuck Arney
Thanks for the suggestions guys.  So far nothing has worked out.  I'll check
over on ISPF-L.

Chuck Arney
Arney Computer Systems

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Edward Jaffe
Sent: Tuesday, December 06, 2011 6:24 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Help Programming for ISPF Jump

On 12/6/2011 3:28 PM, Chuck Arney wrote:
 Thanks for any suggestions.

isp...@listserv.nd.edu

--
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: Help Programming for ISPF Jump

2011-12-07 Thread Jim
Sir,

Would ISPFVAR NOJUMP or even the panel attributes section's NOJUMP help you
??.

If you are building and handling your own menus you should be able to turn
off 
'jump'. 

Kind Regards

Jim Thomas
617-233-4130 (mobile)
636-294-1014(res)
j...@thethomasresidence.us (Email)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Chuck Arney
Sent: Wednesday, December 07, 2011 4:36 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Help Programming for ISPF Jump

Thanks for the suggestions guys.  So far nothing has worked out.  I'll check
over on ISPF-L.

Chuck Arney
Arney Computer Systems

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Edward Jaffe
Sent: Tuesday, December 06, 2011 6:24 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Help Programming for ISPF Jump

On 12/6/2011 3:28 PM, Chuck Arney wrote:
 Thanks for any suggestions.

isp...@listserv.nd.edu

--
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 message.
Checked by AVG - www.avg.com
Version: 2012.0.1873 / Virus Database: 2102/4665 - Release Date: 12/07/11

--
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: Help Programming for ISPF Jump

2011-12-07 Thread Chuck Arney
Thanks for the suggestions Jim but they don't work for this situation.
ISPFVAR JUMP OFF only controls jumping from fields with leader dots and
nojump(on) in the attr does not pass thru the jump command to the
application.  It generates an error message when you attempt to use Jump.

Chuck Arney

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Jim
Sent: Wednesday, December 07, 2011 5:06 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Help Programming for ISPF Jump

Sir,

Would ISPFVAR NOJUMP or even the panel attributes section's NOJUMP help you
??.

If you are building and handling your own menus you should be able to turn
off 
'jump'. 

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


JCL sheesh! for today

2011-12-07 Thread Charles Mills
If the DDNAME parameter appears . the referenced DD statement must not
contain a . PATH parameter.

In other words, you can NOT do

//DD1  DD DDNAME=DD2
//DD2 DD PATH='/my/hfs/path'

Sheesh!

Thanks for listening.

Charles 

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


Re: JCL sheesh! for today

2011-12-07 Thread Paul Gilmartin
On Wed, 7 Dec 2011 16:21:49 -0800, Charles Mills wrote:

If the DDNAME parameter appears . the referenced DD statement must not
contain a . PATH parameter.

In other words, you can NOT do

//DD1  DD DDNAME=DD2
//DD2 DD PATH='/my/hfs/path'

Sheesh!

Thanks for listening.

All in all, it appears to me that the developers weren't sincerely
motivated to make Unix System Services work as it should.  It's
a half-hearted (is that the right anatomical reference?) implementation.

This shouldn't be something fundamentally difficult like making
forked processes inherit DDNAMEs; they should just do it.

I hate JCL!

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


RECFM=VBA and no JCL

2011-12-07 Thread Scott Ford
All:
 
I have the following situation:
 
I am calling a program via Cobol and the output is 
RECFM=VBA,LRECL=133,BLKSIZE=1330 (only an example)
The actual allocations are done dynamically via BPXWDYN and work fine no 
problem.
I then close the file and free it and re-allocate it ( no JCL ) for this file 
its dynamic and of course I can read it.
If I code a 'DD' with a RECFM=VB,LRECL=137 it works great with no problems. I 
can I do the same internally inside my Cobol code without a 'DD' stmt ?
 
All comments and opinions are much appreciated.
Regards, 
Scott J Ford
Software Engineer
http://www.identityforge.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: JCL sheesh! for today

2011-12-07 Thread zMan
On Wed, Dec 7, 2011 at 8:20 PM, Paul Gilmartin paulgboul...@aim.com wrote:
 All in all, it appears to me that the developers weren't sincerely
 motivated to make Unix System Services work as it should.  It's
 a half-hearted (is that the right anatomical reference?) implementation.

 This shouldn't be something fundamentally difficult like making
 forked processes inherit DDNAMEs; they should just do it.

 I hate JCL!

Indeed. The tiny improvements in JCL over time make me think that POK
is afraid of the code -- never a good situation. Yes, a change that
broke production jobs would be Bad, but that's what testing and ESPs
are for. JCL is so primitive lo these almost 50 years later: I'm
always astonished (and a bit depressed).
-- 
zMan -- I've got a mainframe and I'm not afraid to use it

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


Re: JCL sheesh! for today

2011-12-07 Thread Peter Bishop
On Wed, 7 Dec 2011 23:13:37 -0500, zMan zedgarhoo...@gmail.com wrote:

On Wed, Dec 7, 2011 at 8:20 PM, Paul Gilmartin paulgboul...@aim.com wrote:
 All in all, it appears to me that the developers weren't sincerely
 motivated to make Unix System Services work as it should.  It's
 a half-hearted (is that the right anatomical reference?) implementation.

 This shouldn't be something fundamentally difficult like making
 forked processes inherit DDNAMEs; they should just do it.

 I hate JCL!

Indeed. The tiny improvements in JCL over time make me think that POK
is afraid of the code -- never a good situation. Yes, a change that
broke production jobs would be Bad, but that's what testing and ESPs
are for. JCL is so primitive lo these almost 50 years later: I'm
always astonished (and a bit depressed).
--
zMan -- I've got a mainframe and I'm not afraid to use it

A wish:

//ddname DD IPADDR=n.n.n.n,PATHOPTS=R

Wouldn't it be nice if you could just open a pipe to (or from, or both) an IP 
address straight into your JCL?  Different pathopts for output, input, update, 
etc.

Does the Co:Z toolkit already do this?  A quick look at 
http://dovetail.com/docs/coz/index.html left me still wondering.

thx
Peter

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