Re: FTP delete

2008-05-21 Thread Howard Brazee
On 21 May 2008 11:10:12 -0700, [EMAIL PROTECTED] (McKown,
John) wrote:

Don't bother with the delete. The put will replace it if it exists
or create it if it does not already exist. 

That's not what I observed - I will try again.

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Wayne Driscoll
I once worked with a guy that wrote a VTAM app that would acquire someone's
terminal (easy in the dumb terminal days) and display a screen that would
look just like the USS MSG10 screen.  When the person attempted to logon, it
would respond with idiotic messages, after clearing all data out of the
buffers.  So you would walk into his office for help, he would kill the job
that was running, so the screen would clear with you away from it.  He would
then walk over and proceed to logon as normal.  Once you learned the trick,
you would first look at the operator info area of the screen to see what
type of session you where in before trying to logon.

Wayne Driscoll
Product Developer
NOTE:  All opinions are strictly my own.




-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Edward Jaffe
Sent: Wednesday, May 21, 2008 1:01 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Practical jokes for mainframe systems programmers

Rob Scott wrote:
 I worked at a site once (many) years ago where some bright spark once
wrote a program called IJKEFT01 whose sole purpose in life was to just
ATTACH IKJEFT01 *unless* it was the target userid in which case it also
ATTACHed an extra TCB that randomly generated strange abends at random
intervals.
   

In school, *someone* wrote a program called FUN that simulated the 
command prompt of the interactive system we used. FUN was a simple 
program that waited for some input from the user, wrote an exact replica 
of the message that would appear when an unrecognized command was issued 
(similar to IKJ56500I COMMAND x NOT FOUND in TSO/E), and then 
re-issued the prompt and looped back to wait for more input. Watching 
people's reactions, while FUN was running, was FUN! :-D

-- 
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.com/

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

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



Re: FTP delete

2008-05-21 Thread McKown, John
 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:[EMAIL PROTECTED] On Behalf Of Howard Brazee
 Sent: Wednesday, May 21, 2008 2:16 PM
 To: IBM-MAIN@BAMA.UA.EDU
 Subject: Re: FTP delete
 
 On 21 May 2008 11:10:12 -0700, [EMAIL PROTECTED] (McKown,
 John) wrote:
 
 Don't bother with the delete. The put will replace it if 
 it exists
 or create it if it does not already exist. 
 
 That's not what I observed - I will try again.

Strange. That has always worked for me. If it doesn't work, please post
the error message. I'm curious.

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

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

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



Re: APPC no longer support on zos/1.9

2008-05-21 Thread Chris Mason
Dean

If you want to know when a particular function was withdrawn, you can do 
worse than scanning the IBM publications pages starting here:

http://www-03.ibm.com/systems/z/os/zos/bkserv/

That is what I have just done on your behalf and I (re)confirmed that the 
AnyNet functions were removed in z/OS Communications Server 1.8.

Here is the only significant hit when searching for anynet in the SNA 
component Network Implementation Guide:

quote

Deleted information

... 

AnyNet® function is removed from the z/OS V1R8 Communications Server 
product, and therefore documentation describing this support has been 
deleted.

/quote

From the way you have stated your concern, I detect that you may need 
some help understanding just exactly what AnyNet means.

AnyNet products or functions within products are implementations of the 
MultiProtocol Transport Networking (MPTN) architecture. The objective of the 
architecture is to define how applications belonging to one communications 
protocol suite can communicate with one another using the transport 
functions of another communications protocol suite. There were - maybe still 
are - many AnyNet products which implemented the MPTN concept using pairs 
of communications protocol suites, one being called the A for above suite 
and the other being called the B for below suite. The most popular platform 
for the AnyNet products was the PC running OS/2 followed by the AS/400.

All the IBM platforms supported two of the pairs, A=SNA, B=IP and A=IP, 
B=SNA. AIX/6000 and VTAM (more commonly known today as the 
Communications Server SNA component) supported only these two pairs. 
VTAM described the A=SNA, B=IP function as AnyNet SNA over TCP/IP and 
the A=IP, B=SNA function as AnyNet Sockets over SNA.

The function to which I referred in the earlier post is the latter, AnyNet 
Sockets over SNA, while there is evidence that you are concerned about the 
former, AnyNet SNA over TCP/IP, and, the reason for the preamble, you may 
not be aware of any AnyNet function other than AnyNet SNA over TCP/IP.

The evidence that you may be concerned about the AnyNet SNA over 
TCP/IP function is that you associate it with Enterprise Extender. Enterprise 
Extender is another way of achieving the same objective as AnyNet SNA over 
TCP/IP, namely running SNA applications over the IP network. Enterprise 
Extender, like AnyNet SNA over TCP/IP, presents the appearance of a logical 
link to the higher layers of SNA. However, whereas AnyNet SNA over TCP/IP 
presents the appearance of a logical link between type 2.1 nodes, and hence 
fits relatively easily into an SNA subarea network, Enterprise Extender 
presents the appearance of a logical link between APPN High Performance 
Routing (HPR) nodes which must be part of a Rapid Transport Protocol (RTP) 
higher level logical link. Given the recovery capabilities inherent in an RTP 
link, 
it is possible to use UDP as the transport layer for Enterprise Extender rather 
than TCP as in the case of the AnyNet SNA over TCP/IP logical link.

Because of the required environment for the use of Enterprise Extender, you 
can no longer operate your VTAM network as a subarea network. You must 
introduce some fundamental changes to your VTAM network in order to enable 
APPN capability.

This is all utterly to demolish the idea that Enterprise Extended is 
a rebranding of AnyNet SNA over TCP/IP. It most definitely is not.

I have no idea what Va-Gen or Rational Business Developer are so be aware 
that none of what I have said takes any account of any relevance these 
products might have to the topic under discussion.

The other point I can make is that, like so much in SNA networking if not in IP 
networking, there is well-defined layering so that it would be unthinkable to 
imagine that changes to transport functions could be targeted to any one 
particular application. That AnyNet Sockets over SNA could be a function 
applying only to AFTP is a very odd suggestion! Of course you now know that 
it logically has no relationship whatsoever with AnyNet Sockets over 
SNA; AnyNet Sockets over SNA refers to FTP.

I hope that's enough of a clarification for you. If not, please post again.

Chris Mason

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread David Andrews
On Wed, 2008-05-21 at 13:16 -0400, Rob Scott wrote:
 I worked at a site once (many) years ago where some bright spark once
 wrote a program called IJKEFT01

Dave Phillips, Tom Rusnak and I once engaged in that sort of wheel war
about a million years ago.

An example of the sort of thing we'd do: when the other guy logged in,
he'd see an annoying message Hey nerd-boy! or something like that.
After logging in a few times it would become an irritant, and he'd look
around to see where it came from and get rid of it.

That was the fun part: leaving lots of false leads.  Oh look: his logon
proc has been changed to one that executes a SEND.  He changes his logon
proc back to his standard one, logs on again and gets Hey nerd-boy!
Hrm.  Further study of his regular logon proc reveals that it STEPLIBs
an unfamiliar library with a dubious copy of IKJEFT01.  Remove that
library from the logon proc, logon again... and get Hey nerd-boy! for
his trouble.  Dang.  Check the logon proc again, and notice that it
executes IKJEFTO1 (letter oh).  That was sneaky.  Fix the logon proc
again and re-logon.  Hey nerd-boy!  Dang.  Okay, is the version of
IKJEFT01 in the link pack same as the real one?  I wouldn't have MLPA-ed
or MODREP-ed a tainted copy of the TMP... would I?

That was well over 20 years ago, back when we worked 16 hour days for
the joy of it.  These days the auditors and security officers would go
berzerk; but at the time *we* were in charge of security, and EDP
auditors hadn't yet arrived on the scene.  It boiled down to harmless
fun: nobody was hurt by it, and we never broke anything (didn't dare!),
and we even learned some cool stuff along the way.

Growing up is overrated.

(BTW creative misuse of the TSO TERMINAL and PROFILE commands was
always good for laughs if you found someone's line-mode TSO session
unguarded.  Sort of like remapping someone's 3270 emulator today.)

-- 
David Andrews
A. Duda and Sons, Inc.
[EMAIL PROTECTED]

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



Re: FTP delete

2008-05-21 Thread Howard Brazee
On 21 May 2008 12:21:27 -0700, [EMAIL PROTECTED] (McKown,
John) wrote:

 That's not what I observed - I will try again.

Strange. That has always worked for me. If it doesn't work, please post
the error message. I'm curious.

Hmmm.   What I had observed was that the FTP appeared to work, but
that it was unchanged from before.   But a quick check showed it works
now.   I wonder what my problem was before.

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



Re: APPC no longer support on zos/1.9

2008-05-21 Thread Dean Montevago
Chris,

Thank you for extracting this for me. I have to digest this. I will be
back with another post.

Dean



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



Re: Electronic order of PTF

2008-05-21 Thread Paul Gilmartin
On Tue, 20 May 2008 15:39:01 -0400, Dean Montevago wrote:

If it's marked shipped in SRD, click on it and there will be FTP
instructions to download it to your workstation. Do you have the rest of
the steps to upload and unwind it ? 

Never having done this, I'm curious:  Neither your followup nor
the previous one mentions RECEIVE ORDER / RECEIVE FROMNETWORK.
Are these not the preferred techniques?  They would certainly
seem to involve the fewest steps.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Jerry Fuchs

My co-worker just ordered electronically a PTF. The order status shows it 
is ready.

OK. Now how do I get it?

-- gil

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



Re: Hardware Alerts

2008-05-21 Thread Patrick O'Keefe
On Wed, 21 May 2008 10:11:54 -0400, Daniel McLaughlin 
[EMAIL PROTECTED] wrote:

Of what value is that to an auditor?
...
 Our auditors are asking us if there is any way we can receive 
automatic
 email alerts when the gear phones home. ...

I suspect hearing about the phone home capability raises a 
spyware flag to some auditors.  In fact, that sounds a whole
lot like how I react when I catch something on my PC automatically
connecting to its home.

But more to the point, the auditor may be suggesting that anything 
serious enough to warrant notifying home base is also serious 
enough to notify the local folks.

I think it's pretty reasonable for an auditor to want to know more
about this.   And it doesn't sound unreasonable that he would want
someone local to be notified when a phone home happens.  In 
fact, that sounds like something our operations staff and maybe 
the MVS  system programming staff might want here.

If that's the worst the the auditors have come up with, that's a
pretty good set of auditors.  They might be worth having around.

Pat O'Keefe 

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



Practical jokes for mainframe systems programmers

2008-05-21 Thread Dee Shrier
I've seen the variation where a CLIST was set up to display a message 
when a user would log on that his logon authority was temporarily 
suspended pending an investigation by the security department - great 
fun when you were just getting back from a nice, relaxing vacation.


Also, about 20 years ago, I had a problem with my boss using my PC when 
I had left for the day to snoop around on the network.  I created a 
little C program that would log all after-hours commands entered on it 
(with time-stamps).  When I allowed him to see copies of the printed 
logs laying around my PC keyboard, he desisted.  But that didn't stop me 
from going into his office one lunch break a few days later and setting 
his MFM interleaving factor to 15.


Wayne Driscoll wrote:

I once worked with a guy that wrote a VTAM app that would acquire someone's
terminal (easy in the dumb terminal days) and display a screen that would
look just like the USS MSG10 screen.  When the person attempted to logon, it
would respond with idiotic messages, after clearing all data out of the
buffers.  So you would walk into his office for help, he would kill the job
that was running, so the screen would clear with you away from it.  He would
then walk over and proceed to logon as normal.  Once you learned the trick,
you would first look at the operator info area of the screen to see what
type of session you where in before trying to logon.

Wayne Driscoll
Product Developer
NOTE:  All opinions are strictly my own.


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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Don Leahy
 (BTW creative misuse of the TSO TERMINAL and PROFILE commands was
 always good for laughs if you found someone's line-mode TSO session
 unguarded.  Sort of like remapping someone's 3270 emulator today.)

Speaking of remapping, when I was a junior programmer I was loaned out
to another project for half a day.  The PL didn't want to bother
setting up my RACF access for such a short assignment, so he just gave
me his password (which was against the rules, even in those days) and
let me use his TSO userid.

The PL had PFK10 set up as CANCEL.  This screwed me up because my own
userid had PFK10 set up as SAVE.  After losing several rounds of
changes by hitting CANCEL when I meant SAVE, I changed the PL's PFK10
setting to match the one I was accustomed to.

This would have been fine except that I forgot to change it back again
when I finished using his userid.

I heard some colourful language the next day when the PL SAVE'd some
changes he'd meant to CANCEL.  :-)

He couldn't very well report me to Security, since he shouldn't have
let me use his userid in the first place.   :-)

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Jerry Fuchs
'card chads'? 

Showing your age! 

Whish I had thought of that back when we had them!

Jerry 



Tom Marchant [EMAIL PROTECTED] 
Sent by: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU
05/21/2008 03:53 PM
Please respond to
IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU


To
IBM-MAIN@BAMA.UA.EDU
cc

Subject
Re: Practical jokes for mainframe systems programmers






Ok, these are old and don't involve any modern technology.

1.  Take all the drawers out of someone's desk, turn the desk upside down 
and 
re-insert the drawers so that they were right-side up in the upside down 
desk.  The guy comes in, turns his desk back right-side up and when he 
opens 
a drawer, its contents spill onto the floor, or his lap.

2.  Remove the contents of a desk drawer and fill it with card chads and a 

propellor hooked to a rubber band, like one of those toy airplanes.  When 
he 
opens the drawer, the propeller takes off and throws chads everywhere.

-- 
Tom Marchant

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



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



Re: TechTarget - Mainframe Specialty Processors (zIIP zAAP)

2008-05-21 Thread Tom Harper
Lizette,

I'll need to add support for Ed's point of view...I just completed a
webinar about zIIP processing this morning and we had four times as many
attendees as we have ever had before (well over a hundred). The interest
from customers and potential customers was intense and lots of questions
were asked. Even with our significant announcements, they wanted more
zIIP capability as soon as possible.

I can see Trever Eddolls point of view, that there isn't all that much
out there yet. My analogy is that it's something like HDTV. You see it,
you like it, you want more. But it takes time to develop, test, and
implement, as writing code in Enclave SRB mode is not easy, as I'm sure
Ed can attest to. Over the next twelve months, I think you'll see
significant vendor offerings to enable customers to offload significant
amounts of processing to zIIP processors.

I think this is very healthy for the platform. For IBM, it's almost like
printing money, because the processors, for the most part, are on the z9
and z10 chips already, unused, just waiting to be enabled. IBM has a
special program, the Specialty Engine Loaner Program (SLEP), in which
you can have one of these unused processors enabled as a zIIP or zAAP
processor for free for three months, at which time you can elect to
purchase or not purchase. zIIP processors run full-speed (never
knee-capped), and are masked off for I/O interrupts, a huge benefit on
the new z10 processors for cache reasons. Of course, the icing on the
cake is that there are no software license fees for zIIP processors.

Incidentally, to improve the cost savings model, IBM or third-party
leasing can rent the zIIP processors at a very modest fee per month so
you can benefit financially almost immediately.

Tom Harper

IMS Utilities Development Team
Neon Enterprise Software, Inc
Sugar Land, TX  

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Edward Jaffe
Sent: Wednesday, May 21, 2008 1:48 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: TechTarget - Mainframe Specialty Processors (zIIP zAAP)

Lizette Koehler wrote:
 Mainframe specialty processors: Do they really save money?


http://serverspecs.blogs.techtarget.com/2008/05/20/mainframe-specialty-p
rocessors-do-they-really-save-money/?track=NL-576ad=641476asrc=EM_NLN_
3694452uid=1706837
   

Very strange. From where I sit, it seems like specialty engines are 
going supernova. The tenor of the article seems to suggest otherwise.

For example, Mr Fontecchio says, Selling rhe zAAP for Java and the zIIP

for data applications hasn't been easy. In fact, IBM says specialty 
engine sales are up 85% year-over-year. I honestly don't know how easy

the sales effort was, but that's pretty impressive growth -- no matter 
what business you're in!

A quote from Trevor Eddolls seems to suggest that there isn't much 
software exploitation. It seems to me that zAAP exploitation by Java and

XML, and zIIP exploitation by DB2 and IPSEC, is dependent on what 
applications the customer deploys on z. I'm certainly no expert on what 
other software companies are doing. But, I *do* know what my friend Tom 
Harper has been up to at Neon Enterprise Software. Rather than just ...

looking to offer customers the opportunity of running their software on 
zIIP ..., as indicated by the article, they are actually doing it. 
SyncSort wasn't mentioned. But, I know it has been supporting zIIP since

January, a number of CA utilities have been supporting zIIP since 
mid-2007, and all of the internally-developed products here at Phoenix 
Software -- including (E)JES -- have been redirecting *significant* 
portions of their work to zIIP since October 2007. (We're trying to do 
our part.)

There are likely numerous other ISVs doing this [I don't mean to 
purposely leave anyone out -- please post a follow-up to list additional

examples] and, considering the zIIP-redirect interface was only made 
available to ISVs around year-end 2006, I would call this fairly 
significant exploitation -- with much more on the way...

The article is correct in its assertion that specialty engine savings 
take time to accumulate. No question about that. You need to first buy 
the zIIP or zAAP and then incrementally save over time on software 
charges. It's kinda' like buying a new, more fuel-efficient, car to save

money on gas. It will take you quite a while to break even.

-- 
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.com/

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread McKown, John
 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:[EMAIL PROTECTED] On Behalf Of Jerry Fuchs
 Sent: Wednesday, May 21, 2008 2:58 PM
 To: IBM-MAIN@BAMA.UA.EDU
 Subject: Re: Practical jokes for mainframe systems programmers
 
 'card chads'? 
 
 Showing your age! 
 
 Whish I had thought of that back when we had them!
 
 Jerry 

Or he's in Florida!

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

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

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



IPCS error

2008-05-21 Thread Paul Schuster
Has anyone encountered this problem when issuing this IPCS command:

RSMDATA VIRTPAGE RA(address) COMMON

results in:

 

System ABEND 01D, reason code 6B000B10   

PSW 070C5000 816E7FD8, module IEANUC01, CSECT IAXDS, offset 0A10 

Instruction area 00181610 0A0D010E E3560088  

GPR   0R 8400   1R 8401D000   2R    3R   

GPR   4R 0993D000   5R 48CD0003   6R 09932000   7R 48CC0002  

GPR   8R 0993D070   9R 0A2288D0  10R   11R   

GPR  12R 016E99B4  13R 0993F170  14R 0993F000  15R 6B000B10  

IRX0250E System abend code 01D, reason code 95164944.

IRX0255E Abend in host command SELECT or address environment routine ISPEXEC.

***   

Seems to be related to the system  the dump was taken on.   I can use
this command on dumps taken on  different systems.  The system with the
problem is z/os 1.9.

Thank you.

Paul 
 

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



Server Pac Issues with z/OS V1.9 SB37 SYSUT1 and other stuff

2008-05-21 Thread Lizette Koehler
I just wanted to let everyone know of an issue I had with the Serverpac 
Install.  First, YES - I did not read the PSP.  So it is not a surprise I made 
a small miscalculation.

In Dec 2007 there was a fix that was release for GIMUNZIP.  It has to do with 
SB37 abends on SYSUT1 during the Unzip of a PDS/E (POE) data set.  Apparently 
IBM has hardcoded in the GIMUNZIP process how much space to dynamically 
allocate for SYSUT1 when recreating the PDS/E data set from teh archive file.  
This is what causes the SB37.  The SCEEMOD2 data set is much bigger today than 
under z/OS V1.7.

So I had to install the following fixes  UO00674  UO00678   and UO00649.

Once I had these installed and added (apf' authorized) to the RECEIVE JOBLIB 
statement, everything is running much better.

There are two issues that I will bring up with IBM at the next Share I attend.  
Why is this hardcoded and not part of an ARCHDEF control card statement?  And 
two, we have FASTCOPY (PDSMAN) in shop.  I have to manually add the JCL 
statement //FCOPYOFF DD DUMMY to all steps before I submit.  Otherwise I get 
bad errors when FASTCOPY tries to work on PDSE data sets.

Anyway, so much for not reading.

Lizette

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Patrick O'Keefe
On Wed, 21 May 2008 13:18:09 -0400, Richards, Robert B. 
[EMAIL PROTECTED] wrote:

I smiled when I read them, but then the adult inside me kicked in his
two cents and decided that to actually do these jokes would not be
funny.
...

I very seldomly find practical jokes funny.   But I could see something
similar to most of those happening through a brain-check or finger-
check.  You have to be able to laugh after the fact.  Or cry.

In a similar vein, ...
Back in the 80s, back when IEBCOPY had multiple load modules for 
various functions (an overlay config?), a clever operator decided to 
compress SYS1.LINKLIB for us.   

That's a good joke to play on any shop on a very old release. 

Pat O'Keefe

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



Re: ADD library to Linklst

2008-05-21 Thread Tom Marchant
On Wed, 21 May 2008 13:53:43 -0400, Daniel McLaughlin wrote:

In your PARMLIB create:

 BROWSESYS1.TEST.ZOS17.PARMLIB(PROGDM) - 01.01Line  
Col
001 080
 Command ===  Scroll ===
CSR
* Top of Data
*
LNKLST  DEFINE   NAME(LNKLSTAA) COPYFROM(CURRENT)
LNKLST ADD NAME(LNKLSTAA) DSN(SYS4.FA.V8R8M2.LOAD)
   VOLUME(O2A010)
LNKLST  ACTIVATE NAME(LNKLSTAA)

a member that looks like this. Then on the console SET PROG=DM (for my
example).

If you don't specify ATTOP or AFTER(...) you get ATBOTTOM.  I like to use 
AFTER to put it after the data set that I am replacing and then issue a LNKLST 
DELETE for the old one.  That leaves the new data set in the same place in 
the LNKLST set as the old one.

You can also use SETPROG with similar commands:

setprog lnklst,define,name(update_prodname),copyfrom(current)  
setprog lnklst,add,name(update_prodname),dsn(new.dataset),after
(old.dataset)
setprog lnklst,delete,name(update_prodname),dsn
(old.dataset)
setprog lnklst,activate,name(update_prodname)  

Note that the name of the LNKLST set can be 16 characters and does not 
have to begin with LNKLST.  I like to set it to a name that clues me in as to 
why I created the new LNKLST set.

Also note that while the System Commands manual describes the commands 
as keyword=value and Init and Tuning says keyword(value), the 
implementation allows you to specify them either way.

-- 
Tom Marchant

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Rick Fochtman

--snip--

In school, *someone* wrote a program called FUN that simulated the 
command prompt of the interactive system we used. FUN was a simple 
program that waited for some input from the user, wrote an exact 
replica of the message that would appear when an unrecognized command 
was issued (similar to IKJ56500I COMMAND x NOT FOUND in TSO/E), 
and then re-issued the prompt and looped back to wait for more input. 
Watching people's reactions, while FUN was running, was FUN! :-D


unsnip--
I had a program that took control of the whole system. It then issued 
the message System error has occurred. Reply '/crash ' or '/nocrash' 
No matter what you replied, the result was the same: Invalid reply. 
'/Crash' assumed. Then the whole core box was cleared and a branch to 
location x'00'. Even SADUMP was useless as a debugging tool. :-)


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



Re: IPCS error

2008-05-21 Thread Binyamin Dissen
On Wed, 21 May 2008 15:02:52 -0500 Paul Schuster [EMAIL PROTECTED]
wrote:

:Has anyone encountered this problem when issuing this IPCS command:

:RSMDATA VIRTPAGE RA(address) COMMON

:results in:

 

:System ABEND 01D, reason code 6B000B10   

:PSW 070C5000 816E7FD8, module IEANUC01, CSECT IAXDS, offset 0A10 

:Instruction area 00181610 0A0D010E E3560088  

:GPR   0R 8400   1R 8401D000   2R    3R   

:GPR   4R 0993D000   5R 48CD0003   6R 09932000   7R 48CC0002  

:GPR   8R 0993D070   9R 0A2288D0  10R   11R   

:GPR  12R 016E99B4  13R 0993F170  14R 0993F000  15R 6B000B10  

:IRX0250E System abend code 01D, reason code 95164944.

:IRX0255E Abend in host command SELECT or address environment routine ISPEXEC.

:***   

:Seems to be related to the system  the dump was taken on.   I can use
:this command on dumps taken on  different systems.  The system with the
:problem is z/os 1.9.

Lots of IPCS functions abend if the versions of IPCS and the dump are not
identical - especially if the dump is a higher level than IPCS.

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Howard Brazee
On 21 May 2008 12:43:34 -0700, [EMAIL PROTECTED] (Don Leahy) wrote:

The PL had PFK10 set up as CANCEL.  This screwed me up because my own
userid had PFK10 set up as SAVE.  After losing several rounds of
changes by hitting CANCEL when I meant SAVE, I changed the PL's PFK10
setting to match the one I was accustomed to.

I limit my Fkey function changes to changes that won't mess others up.
This can mean in SDSF I have commands for Shift-7  shift-8 that
correspond with the default 7  8.   And my shift-swap work with swap
options.

The only one that is real different is F12 because I need a key for
recall.

The most common command people (I have seen) have different from that
does a Submit.

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Howard Brazee
On 21 May 2008 12:57:59 -0700, [EMAIL PROTECTED] (Jerry Fuchs)
wrote:

'card chads'? 

Showing your age! 

Whish I had thought of that back when we had them!

Those rectangular chads could hurt someone when they get into one's
eyes.

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Gerhard Adam

How about an operator command we wrote as follows:


$TSYS=HI

$HASP000  OK
$HASP999 System now in high speed

Adam

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



xPLPA page PGSER FREE

2008-05-21 Thread Paul Schuster
Hello:

Pages of xPLPA are considered eligible for page-out (right?)  So would doing
a PGSER FREE on a xPLPA page  (after a PGSER FIX was previously done) make
this page any more subject to being stolen and paged out?

Trying to resolve a problem where this PGSER FREE is being considered the
culprit.

Thank you for any insight you can provide.

Paul 

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



Re: TechTarget - Mainframe Specialty Processors (zIIP zAAP)

2008-05-21 Thread Edward Jaffe

Tom Harper wrote:

I can see Trever Eddolls point of view, that there isn't all that much
out there yet. My analogy is that it's something like HDTV. You see it,
you like it, you want more. But it takes time to develop, test, and
implement, as writing code in Enclave SRB mode is not easy, as I'm sure
Ed can attest to. Over the next twelve months, I think you'll see
significant vendor offerings to enable customers to offload significant
amounts of processing to zIIP processors.
  


Good analogy, Tom. I thought I should also point out that only 
authorized/privileged code can schedule enclave SRBs. So, some software 
will never be eligible for zIIP redirect.


--
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.com/

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



Re: Hardware Alerts

2008-05-21 Thread Ted MacNEIL
 Of what value is that to an auditor?


Who knows? It is likely on some check list somewhere. Many auditors, the poor 
kind, love those don't-have-to-think-about-it check lists!

I disagree.
Auditors do not set standards, nor do they enforce them.

Subject Matter Experts (SMEs) set standards (possibly with checklists).

Auditors check to see which ones are being followed, and (if properly done) 
report to compliance officers.

Compliance Officers enforce standards, or, at least, report to management who 
is not following standards.

So, the correct question is:

Of what value, did the SME think that was?


-
Too busy driving to stop for gas!

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



ADD Dataset to Linklst - thank-you!

2008-05-21 Thread Lucy Arnold
Thank-you everyone who answered!  All the information I rec'd was MOST
helpfull!

Thanks again!



Lucy Arnold
Storage Manager
U.C. Davis Medical Center
916-734-5498

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



Re: Backing up volumes containing UNIX filesystem datasets

2008-05-21 Thread Shmuel Metz (Seymour J.)
In [EMAIL PROTECTED], on 05/19/2008
   at 03:02 PM, Mark Zelden [EMAIL PROTECTED] said:

It is supported with basic sysplex.

Then why didn't you say so?

Doesn't my statement - Basic vs. Parallel sysplex isn't the issue 
already imply that clearly enough?

Obviously not.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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



Re: plpa pages and pgser

2008-05-21 Thread Jim Mulder
IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU wrote on 05/21/2008 
12:06:26 AM:

 Hello: xPLPA pages are eligible for page out (right?)  So if a PGSER 
FREE is
 issued (preceded by a PGSER FIX) against a xPLPA page, would it make it 
any
 more easier for it to be paged out?
 
 Trying to determine the reason for a problem which may be caused by such 
a
 PGSER FREE invocation.

  PLPA pages are paged out when CLPA is done during IPL. 
The frames backing PLPA can be stolen unless the page is fixed.
So a PGSER FREE make make the frame eligible to be stolen, but it will
not make it eligible to be paged out. 

Jim Mulder   z/OS System Test   IBM Corp.  Poughkeepsie,  NY

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



Phillips, Mike is out of the office.

2008-05-21 Thread Mike Phillips
I will be out of the office starting  05/21/2008 and will not return until
05/27/2008.

I will respond to your message when I return.

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Rick Fochtman

-snip

'card chads'? 

Showing your age! 


Whish I had thought of that back when we had them!
   



Those rectangular chads could hurt someone when they get into one's
eyes.
 


unsnip---
AMEN. Spent 6 weeks with an eyepatch because of a practical joker; 
chads damaged my cornea to the point where a transplant was seriously 
considered.


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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Ted MacNEIL
I'm surprised at how many people missed the point of this blog post.
The blogger was correct.
We have lost our sense of humour.

Did anybody read the disclaimer?


[Update: For those of you who missed the tongue in cheek nature of this post, 
it is in fact, a joke. Please don’t try this at work. — Matt Stansberry, Editor]

-
Too busy driving to stop for gas!

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Ted MacNEIL
There's a simple ROT here.  Do NOT assign PF keys to CANCEL (or SAVE, which as 
your experience demonstrates, is similarly destructive when
unintended.)  It's users' foolishness in so doing which impels vendors to 
presume to save them from their own stupidity by adding PITA confirmation 
dialogs on such commands.

It IS NOT stupidity to customise keys!
If a user wants a SAVE or CANCEL key, and knows where it is, what is the 
problem?
It's the sharing IDs that was the problem, with different preferences.
The sharing of IDs was never a good practice.

-
Too busy driving to stop for gas!

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Paul Gilmartin
On Wed, 21 May 2008 15:31:16 -0400, David Andrews wrote:

That was well over 20 years ago, back when we worked 16 hour days for
the joy of it.  These days the auditors and security officers would go
berzerk; but at the time *we* were in charge of security, and EDP
auditors hadn't yet arrived on the scene.  It boiled down to harmless
fun: nobody was hurt by it, and we never broke anything (didn't dare!),
and we even learned some cool stuff along the way.

I know a couple hackers from that era who had an ethic about
practical jokes.  While each had superuser authority, neither
ever used it to hack the other.  However, terminals left
unattended on unprivileged logins were fair game ...

-- gil

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



Re: FTP delete

2008-05-21 Thread Paul Gilmartin
On Wed, 21 May 2008 13:35:43 -0500, McKown, John wrote:

 -Original Message-
 From: IBM Mainframe Discussion List

 I use  (replace  at the end of the put command to overwrite
 the file.

When going to the open system servers (Windows, Linux, AIX), we never
do that. Actually in the IBM manual for ftp commands, it only lists
(replace for the GET, MGET, and REPLACE commands, not the PUT command.

Is it any different for z/OS servers?  They're impelled to
be compatible:

[EMAIL PROTECTED]:135$ ftp localhost
IBM FTP CS V1R7
220-FTPD1 IBM FTP CS V1R7 at MVS 23:54:52 on 2008-05-21.

Command:
put foo bar
125 Storing data set SPPG.BAR
250 Transfer completed successfully.

Command:
put foo bar
125 Storing data set SPPG.BAR
250 Transfer completed successfully.

### So it replaces. ###

Command:
put foo bar (replace
Usage: PUT localfile foreignname

### and there is NO (replace option. ###

My favorite is:

cd /ftp/SISR/RECREG
put 'UMSDEV.CONV.QA04.NPRSMED' person.temporaryfile
rename person.temporaryfile  person

That way, the recipient never observes a partially updated
person file.

-- gil

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Paul Gilmartin
On Wed, 21 May 2008 23:39:44 +, Ted MacNEIL wrote:

It IS NOT stupidity to customise keys!
If a user wants a SAVE or CANCEL key, and knows where it is, what is the 
problem?

I envy your dexterity.

OTOH, I recall bitter opposition (though not unanimous) in
these pages when I expressed a wish that ISPF would allow
me to disable in my profile confirmation of data set deletion.

I wouldn't make DELETE or CANCEL a single keystroke command,
but I feel DENTER gives me sufficient opportunity to
reconsider, and I shouldn't need to type / to bypass
confirmation every time I enter DSLIST.

-- gil

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Roger Bolan
I think some of the things on the list are conceptual jokes but not 
practical, sort of like the stuff that happens to Wiley Coyote.  These are 
funny to think about, or see in a cartoon, but not funny if they really 
happened to someone.  I think the guideline for jokes has to be 
harmlessness.  A joke should be funny and clever.  It can be annoying or 
embarrassing or frustrating, but you have to draw the line at the 
potential for actual harm.  If it has the potential for real harm, then it 
is not a joke. 

Roger Bolan

infoprint.com

Boulder, Colorado, USA 


P Think before you print 

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Ted MacNEIL
I wouldn't make DELETE or CANCEL a single keystroke command, but I feel 
DENTER gives me sufficient opportunity to reconsider, and I shouldn't need 
to type / to bypass confirmation every time I enter DSLIST.

There is a way in DSLIST, or ISPF EDIT.

Make the single CANCEL Key (EDIT) the following:

== CANCEL;;

Where ';' is your logical ENTER key (';' is the default).

You can do the same with DSLIST -- I just can't remember if the format is the 
same.

-
Too busy driving to stop for gas!

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Ted MacNEIL
I think some of the things on the list are conceptual jokes but not practical, 
sort of like the stuff that happens to Wiley Coyote.  These are funny to think 
about, or see in a cartoon, but not funny if they really happened to someone.  
I think the guideline for jokes has to be harmlessness.

What is with you people?
There was a disclaimer at the front, stating that it was satire and don't do 
this at work!

Why is the end of the world?

-
Too busy driving to stop for gas!

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



Re: IPCS RUNARRAY/CBFORMAT question

2008-05-21 Thread Robert Wright

Gord Tomlin wrote:
Apparently I'm a bit thick today, but I cannot seem to get the results I 
want from the IPCS RUNARRAY subcommand when combined with the CBFORMAT 
command.


I have an array of control blocks in a dump, and I want to use a format 
model to display each element of the array. In a simple example, each 
element is x'19' bytes long and there are four elements. I entered the 
following command:


runarray address(2a401b00.) length(25) entries(1:4) structure
exec((cbf x model(format-model-name)))

Instead of seeing each of the four elements formatted, I see all but the 
first element truncated with zeroes replacing the data that actually 
resides at the storage locations:


LIST 2A401B00. ASID(X'00BA') LENGTH(X'19') ENTRY(X'+01') STRUCTURE
:2A401B00
   +  ENTRYFLG. 00NAME.   # 0001 
CPUTOT...   Z#...   ZCPUTOT.. 


LIST 2A401B00. ASID(X'00BA') POSITION(X'+19') LENGTH(X'19') 
ENTRY(X'+02') STRUCTURE

:2A401B00
   +  ENTRYFLG. 00NAME.   #  
CPUTOT...   Z#...   ZCPUTOT.. 

Control block is truncated

LIST 2A401B00. ASID(X'00BA') POSITION(X'+32') LENGTH(X'19') 
ENTRY(X'+03') STRUCTURE

:2A401B00
   +  ENTRYFLG. 00NAME.   #  
CPUTOT...   Z#...   ZCPUTOT.. 

Control block is truncated

LIST 2A401B00. ASID(X'00BA') POSITION(X'+4B') LENGTH(X'19') 
ENTRY(X'+04') STRUCTURE

:2A401B00
   +  ENTRYFLG. 00NAME.   #  
CPUTOT...   Z#...   ZCPUTOT.. 

Control block is truncated

The actual storage is as follows:
2A401B00. 00404040 40404040 4000 0100    
 
2A401B20.  0001    005C E4D5D2D5 
D6E6D500 
2A401B40.    D4E9F1C3  E2C3C8F7 0001 
0102 

2A401B60. 0102

Any suggestions as to how to get CBFORMAT to use the intended length for 
each array element?




Your focus on the length is on the wrong aspect of this.  RUNARRAY 
processes array entries by updating the POSITION attribute as you see 
from the model LIST subcommands.  The model processor assumes a zero 
offset as the origin of the list of fields that it processes, and all of 
the fields for the 2nd and subsequent array entries fall in the range 
prior to the origin of that array entry.  You can circumvent that with 
a command procedure, but I don't think that there's a single command 
solution to getting the job done, eg:


  PROC 0
  EVALSYM X CLIST(POSITION(P) LENGTH(L) HEXADECIMAL)
  CBFORMAT X+P POSITION(0) LENGTH(L.) MODEL(format-model-name)

When an offset is used in an address expression and the POSITION keyword 
is also used, IPCS sums the current address and offset values to form 
the logical address of the target and sets the offset to the value 
specified by the POSITION operand.  That lets your one model that 
assumes a zero origin work against each array entry - if you invoke the 
CLIST instead of directly invoking the CBFORMAT subcommand.


Bob Wright - MVS Service Aids

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



Re: IPCS RUNARRAY/CBFORMAT question

2008-05-21 Thread Robert Wright

Robert Wright wrote:


  PROC 0
  EVALSYM X CLIST(POSITION(P) LENGTH(L) HEXADECIMAL)
  CBFORMAT X+P POSITION(0) LENGTH(L.) MODEL(format-model-name)


Of course the CLIST would work better if the CBFORMAT subcommand took 
into account that the length in variable L had been formatted using 
hexadecimal digits:


  CBFORMAT X+P POSITION(0) LENGTH(X'L.') MODEL(format-model-name)

Bob Wright - MVS Service Aids

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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Robert A. Rosenberg
At 13:06 -0400 on 05/21/2008, Richards, Robert B. wrote about Re: 
Practical jokes for mainframe systems programmers:



Ask the person that was the object of the joke if they thought it was
funny. Hey, I like a good joke as much as the next person, but these did
not hit my funny bone for some reason.

Bob


This reminds me of a joke pulled on a fellow student (whose last name 
happened to be Phelps) a large number of years ago. We had a time 
sharing system (with a tractor paper feed terminal) where you were 
allow a designated amount of computer time a week. One day his 
account was set to start outputting a Mission Impossible briefing 
starting Good Morning Mr. Phelps when he logged on and the ability 
to interrupt the session was disabled. The Briefing ended with the 
statement IN 5 SECONDS YOUR TIME FOR THE WEEK WILL SELF-DESTRUCT 
and it started to page eject advance the paper typing the 5-4-3-2-1 
count down and then logging him off. Until his account was reset his 
remaining time was 0 minutes.


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



Re: Practical jokes for mainframe systems programmers

2008-05-21 Thread Robert A. Rosenberg
At 15:01 -0600 on 05/21/2008, Howard Brazee wrote about Re: Practical 
jokes for mainframe systems programmers:



Those rectangular chads could hurt someone when they get into one's
eyes.


They can also affect national elections if not fully detached from 
the punched card.


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



<    1   2