Re: Social Security Confronts IT Obsolescence

2011-03-17 Thread R.S.

Ed Gould pisze:

John:

Do not forget the current system at ssa is horredously out of date. I heard 
some numbers but won't repeat them as I can't prove it.
Add in as usual the government cheaped out on their equipment and went channel 
extender route. I have heard some horror stories but again can't prove it.
I do not want to get into a political hassle here, but i can personally attest 
that Bush  Company cut back on funding at SSA so bad that it was taking 6 years 
to get a hearing for a SS appeal. 


 SSA? It's obsoleted by FC and SAS. Even IBM don't use SSA anymore.
(sorry couldn't resist) ;-)

--
Radoslaw Skorupka
Lodz, Poland

P.S. Hint: SSA - Serial Storage Architecture ANSI X3710.1 (used in ESS 
Sharks), or System Specific Alias. Or 150+ other acronyms, most 
unrelated to IT or mainframes.



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

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

NIP: 526-021-50-88
Wedug stanu na dzie 16.07.2010 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 168.248.328 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


Forum/mailing list - för DataManager (ASG)

2011-03-17 Thread Thomas Berg
Hi,

Does anyone know of a forum or a mailing list for Datamanager users ?

(Datamanager = a dictionary for datastructures and field definitions
in an IT environment.  Usually used for generating all sorts of copys,
database structures (DB2, DLI) etc. and for controlling the relations
between all these items.  Currently owned by ASG Software solutions
- http://asg.com/products/product_details.asp?code=MSP )

Have searched through Google etc. but no cigar.



Regards,
Thomas Berg
_
Thomas Berg   Specialist   A M   SWEDBANK


--
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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread Martin Packer
Note printf() goes to stdout and there isn't really such a STANDARD thing 
in z/OS.

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





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: creating mainframe bookmanager from pdf documents???

2011-03-17 Thread Jan MOEYERSONS
On Wed, 16 Mar 2011 21:34:56 +, Grinsell, Don dgrins...@mt.gov 
wrote:

Chris,

I don't know if this is of interest, but it is possible to create an extended 
bookshelf and load your pdf files to make them accessible via book manager.  
You can also index and search the pdf files if desired.  I've taken that 
approach with several vendors manuals.

And how do you go about displaying PDF on a 3270?

Jantje.

--
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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread David Crayford

On 17/03/2011 6:54 PM, Martin Packer wrote:

Note printf() goes to stdout and there isn't really such a STANDARD thing
in z/OS.



In  a non-zUnix environment stdout is SYSPRINT. So in TSO it writes to 
the terminal and in batch to a SYSPRINT DD. If you
don't specify a SYSPRINT DD it will dynamically allocate a sysout data 
set. I believe in CICS it writes to the log?




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





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


--
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: Social Security Confronts IT Obsolescence

2011-03-17 Thread Martinez, Frank J
I knew this was coming.  Blaming Bush for something that was already bad by 
1970.  I heard some horror stories that He is causing the new Super Moon, but 
I can't prove it.


Frank J. Martinez
Technical Support Supervisor
IT System z
Tel.:   305-284-3919
Cell:   305-987-8281
Fax :   305-284-3872
e-Mail: fjm...@miami.edu 
 
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Ed Gould
Sent: Thursday, March 17, 2011 12:21 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Social Security Confronts IT Obsolescence

John:

Do not forget the current system at ssa is horredously out of date. I heard 
some numbers but won't repeat them as I can't prove it.
Add in as usual the government cheaped out on their equipment and went channel 
extender route. I have heard some horror stories but again can't prove it.
I do not want to get into a political hassle here, but i can personally attest 
that Bush  Company cut back on funding at SSA so bad that it was taking 6 
years 
to get a hearing for a SS appeal. 

Ed





From: Chase, John jch...@ussco.com
To: IBM-MAIN@bama.ua.edu
Sent: Wed, March 16, 2011 8:07:34 AM
Subject: Re: Social Security Confronts IT Obsolescence

 -Original Message-
 From: IBM Mainframe Discussion List [On Behalf Of Elardus Engelbrecht
 
 Gabe Goldberg wrote:
 
 Quite a deep hole SSA's dug itself into.
 
 They are having a 'catch 22' situation:
 
 'About 42% of the agency's IT specialists are expected to retire
between
 2010 and 2016.'
 
 and
 
 '...the agency is in the middle of a hiring freeze. '

That's called government logic.  :-|

-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




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


One Pack RACF Anomaly

2011-03-17 Thread Daniel McLaughlin
We used Mark Zelden's process to build a one pack system. When we IPL'd and
established a TSO link, then tried to logon, we kept being blocked by RACF.
We reloaded the RACF database and tried it again, only to be blocked again.
It's not recognizing any passwords we enter. We are stumped. Has anyone else
experienced this, or might you have any suggestions?

--
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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread McKown, John
 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Martin Packer
 Sent: Thursday, March 17, 2011 5:55 AM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: Why is WTO so much easier to use than better 
 methods? (Was RE: Trouble Reading a Spanned File with an 
 Assembler Program - Working Program)
 
 Note printf() goes to stdout and there isn't really such a 
 STANDARD thing 
 in z/OS.
 
 Martin
 

Which is why I'd like something like WTO but which goes directly and only to 
the JESYSMSG SPOOL dataset for the issuing job. WTO has the MCSFLAG of HRDCPY. 
I wonder how difficult it would be to have a new MCSFLAG of JESMSG to direct 
the message only to JESYSMSG? Of course, some address spaces (SUB=MSTR) don't 
have a JESYSMSG dataset. I guess in that case, the message could go to SYSLOG.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

--
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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread Paul Gilmartin
On Thu, 17 Mar 2011 19:31:22 +0800, David Crayford wrote:

In  a non-zUnix environment stdout is SYSPRINT. So in TSO it writes to
the terminal and in batch to a SYSPRINT DD. If you
don't specify a SYSPRINT DD it will dynamically allocate a sysout data
set. I believe in CICS it writes to the log?

Not really.  It's application dependent and wretchedly inconsistent.
I see:

UNIX stdout  stderr

AssemblerSYSPRINTSYSTERM

IEBGENER SYSUT1  SYSPRINT

Batch TMP SYSTSPRT

TSO   Terminal

It's a real shame that:

o TSO didn't originally read from/write to DDNAMES rather
  than inventing the idiosyncratic TGET/TPUT

o DDNAME redirection wasn't made a basic capability of
  data management rather than implemented sporadically by
  various applications, often by positional entries in a
  second PARM.

o Rexx, which internally has separate interfaces for data
  output and message output, has no provision for externally
  directing them to different DDNAMEs/descriptors.

-- gil

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


Re: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread David Crayford

gil,

I think you misunderstood my point. I was talking about printf() and 
where it routes it's output.


On 17/03/2011 8:24 PM, Paul Gilmartin wrote:

On Thu, 17 Mar 2011 19:31:22 +0800, David Crayford wrote:

In  a non-zUnix environment stdout is SYSPRINT. So in TSO it writes to
the terminal and in batch to a SYSPRINT DD. If you
don't specify a SYSPRINT DD it will dynamically allocate a sysout data
set. I believe in CICS it writes to the log?


Not really.  It's application dependent and wretchedly inconsistent.
I see:

UNIX stdout  stderr

AssemblerSYSPRINTSYSTERM

IEBGENER SYSUT1  SYSPRINT

Batch TMP SYSTSPRT

TSO   Terminal

It's a real shame that:

o TSO didn't originally read from/write to DDNAMES rather
   than inventing the idiosyncratic TGET/TPUT

o DDNAME redirection wasn't made a basic capability of
   data management rather than implemented sporadically by
   various applications, often by positional entries in a
   second PARM.

o Rexx, which internally has separate interfaces for data
   output and message output, has no provision for externally
   directing them to different DDNAMEs/descriptors.

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


--
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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread Martin Packer
Maybe but he understood MINE. :-)

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



From:
David Crayford dcrayf...@gmail.com
To:
IBM-MAIN@bama.ua.edu
Date:
17/03/2011 12:43
Subject:
Re: Why is WTO so much easier to use than better methods? (Was RE: Trouble 
Reading a Spanned File with an Assembler Program - Working Program)
Sent by:
IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu



gil,

I think you misunderstood my point. I was talking about printf() and 
where it routes it's output.

On 17/03/2011 8:24 PM, Paul Gilmartin wrote:
 On Thu, 17 Mar 2011 19:31:22 +0800, David Crayford wrote:
 In  a non-zUnix environment stdout is SYSPRINT. So in TSO it writes to
 the terminal and in batch to a SYSPRINT DD. If you
 don't specify a SYSPRINT DD it will dynamically allocate a sysout data
 set. I believe in CICS it writes to the log?

 Not really.  It's application dependent and wretchedly inconsistent.
 I see:

 UNIX stdout  stderr

 AssemblerSYSPRINTSYSTERM

 IEBGENER SYSUT1  SYSPRINT

 Batch TMP SYSTSPRT

 TSO   Terminal

 It's a real shame that:

 o TSO didn't originally read from/write to DDNAMES rather
than inventing the idiosyncratic TGET/TPUT

 o DDNAME redirection wasn't made a basic capability of
data management rather than implemented sporadically by
various applications, often by positional entries in a
second PARM.

 o Rexx, which internally has separate interfaces for data
output and message output, has no provision for externally
directing them to different DDNAMEs/descriptors.

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

--
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: One Pack RACF Anomaly

2011-03-17 Thread Pommier, Rex R.
Check the DES encryption scheme you have set up.  Do you have the ICHDEX01 
installed?

Rex

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Daniel McLaughlin
Sent: Thursday, March 17, 2011 7:00 AM
To: IBM-MAIN@bama.ua.edu
Subject: One Pack RACF Anomaly

We used Mark Zelden's process to build a one pack system. When we IPL'd and
established a TSO link, then tried to logon, we kept being blocked by RACF.
We reloaded the RACF database and tried it again, only to be blocked again.
It's not recognizing any passwords we enter. We are stumped. Has anyone else
experienced this, or might you have any suggestions?

--
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 information contained in this e-mail may contain confidential and/or 
privileged information and is intended for the sole use of the intended 
recipient. If you are not the intended recipient, you are hereby notified that 
any unauthorized use, disclosure, distribution or copying of this communication 
is strictly prohibited. If you received this e-mail in error, please reply to 
sender and destroy or delete the message and any attachments. Thank you.

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


Re: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread David Crayford

Of course he did. There's no flies on gil!

On 17/03/2011 8:49 PM, Martin Packer wrote:

Maybe but he understood MINE. :-)

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



From:
David Crayforddcrayf...@gmail.com
To:
IBM-MAIN@bama.ua.edu
Date:
17/03/2011 12:43
Subject:
Re: Why is WTO so much easier to use than better methods? (Was RE: Trouble
Reading a Spanned File with an Assembler Program - Working Program)
Sent by:
IBM Mainframe Discussion ListIBM-MAIN@bama.ua.edu



gil,

I think you misunderstood my point. I was talking about printf() and
where it routes it's output.

On 17/03/2011 8:24 PM, Paul Gilmartin wrote:

On Thu, 17 Mar 2011 19:31:22 +0800, David Crayford wrote:

In  a non-zUnix environment stdout is SYSPRINT. So in TSO it writes to
the terminal and in batch to a SYSPRINT DD. If you
don't specify a SYSPRINT DD it will dynamically allocate a sysout data
set. I believe in CICS it writes to the log?


Not really.  It's application dependent and wretchedly inconsistent.
I see:

UNIX stdout  stderr

AssemblerSYSPRINTSYSTERM

IEBGENER SYSUT1  SYSPRINT

Batch TMP SYSTSPRT

TSO   Terminal

It's a real shame that:

o TSO didn't originally read from/write to DDNAMES rather
than inventing the idiosyncratic TGET/TPUT

o DDNAME redirection wasn't made a basic capability of
data management rather than implemented sporadically by
various applications, often by positional entries in a
second PARM.

o Rexx, which internally has separate interfaces for data
output and message output, has no provision for externally
directing them to different DDNAMEs/descriptors.

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

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


--
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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread Tom Marchant
On Wed, 16 Mar 2011 19:29:35 -0700, Charles Mills wrote:

It would be an interesting exercise to write the simplest proper, reentrant,
RMODE=31 assembler program that output Hello, world to anything other than
the console. 

Apparently not so interesting, or you'd do it.

Anyone want to venture a guess on how many lines of code?
Fifty? Thirty? Can anyone do it in twenty?

I can easily do it in to if I use the entry and exit macros that I normally
use to establish reentrancy and return.  Without them it seems to take 28. 
You could shave that to 27 by dispensing with the save area forward chain.

HELLOCSECT
 STM   14,12,12(13) SAVE CALLER'S REGISTERS
 LR11,15SET OUR BASE REGISTER
 USING HELLO,11
 GETMAIN RU,LV=WORKLEN,LOC=24
 ST13,4(,1) BACK CHAIN
 ST1,8(,13) FORWARD CHAIN
 LR13,1 LOAD MY SAVE AREA ADDRESS
 USING WORKAREA,13
 MVC OPENLIST(MESSAGE-OLIST_M),OLIST_M
 OPEN(SYSPRINT,OUTPUT),MF=(E,OPENLIST)
 PUT   SYSPRINT,MESSAGE
 CLOSE MF=(E,OPENLIST) 
 LR1,13 COPY MY SAVE AREA ADDRESS
 L 13,4(,13)POINT TO CALLER'S SAVE AREA
 FREEMAIN RU,A=(1),LV=WORKLEN
 LM14,12,12(13) RESTORE CALLER'S REGISTERS
 SLR   15,15
 BR14   RETURN TO CALLER
OLIST_M  OPEN  (DCB_M,OUTPUT),MF=L
DCB_MDCB   DSORG=PS,MACRF=PM,DDNAME=SYSPRINT,RECFM=FB,LRECL=80
MESSAGE  DCCL80'STUPID HELLO WORLD MESSAGE'
WORKAREA DSECT ,
 DS18F  SAVE AREA
OPENLIST OPEN  (SYSPRINT,OUTPUT),MF=L
SYSPRINT DCB   DSORG=PS,MACRF=PM,DDNAME=SYSPRINT,RECFM=FB,LRECL=80
WORKLEN  EQU   *-WORKAREA
 END   HELLO

-- 
Tom Marchant

--
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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread Tom Marchant
On Thu, 17 Mar 2011 08:36:15 -0500, Tom Marchant wrote:

I can easily do it in to if I use ...

I meant, I can easily do it in 20

Why is it so much easier to see typos *after* hitting SEND?

-- 
Tom Marchant

--
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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread Charles Mills
Problem as stated included AMODE=31 and reentrancy.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Tom Marchant
Sent: Thursday, March 17, 2011 6:36 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Why is WTO so much easier to use than better methods? (Was RE:
Trouble Reading a Spanned File with an Assembler Program - Working Program)

On Wed, 16 Mar 2011 19:29:35 -0700, Charles Mills wrote:

It would be an interesting exercise to write the simplest proper,
reentrant,
RMODE=31 assembler program that output Hello, world to anything other
than
the console. 

Apparently not so interesting, or you'd do it.

Anyone want to venture a guess on how many lines of code?
Fifty? Thirty? Can anyone do it in twenty?

I can easily do it in to if I use the entry and exit macros that I normally
use to establish reentrancy and return.  Without them it seems to take 28. 
You could shave that to 27 by dispensing with the save area forward chain.

HELLOCSECT
 STM   14,12,12(13) SAVE CALLER'S REGISTERS
 LR11,15SET OUR BASE REGISTER
 USING HELLO,11
 GETMAIN RU,LV=WORKLEN,LOC=24
 ST13,4(,1) BACK CHAIN
 ST1,8(,13) FORWARD CHAIN
 LR13,1 LOAD MY SAVE AREA ADDRESS
 USING WORKAREA,13
 MVC OPENLIST(MESSAGE-OLIST_M),OLIST_M
 OPEN(SYSPRINT,OUTPUT),MF=(E,OPENLIST)
 PUT   SYSPRINT,MESSAGE
 CLOSE MF=(E,OPENLIST) 
 LR1,13 COPY MY SAVE AREA ADDRESS
 L 13,4(,13)POINT TO CALLER'S SAVE AREA
 FREEMAIN RU,A=(1),LV=WORKLEN
 LM14,12,12(13) RESTORE CALLER'S REGISTERS
 SLR   15,15
 BR14   RETURN TO CALLER
OLIST_M  OPEN  (DCB_M,OUTPUT),MF=L
DCB_MDCB   DSORG=PS,MACRF=PM,DDNAME=SYSPRINT,RECFM=FB,LRECL=80
MESSAGE  DCCL80'STUPID HELLO WORLD MESSAGE'
WORKAREA DSECT ,
 DS18F  SAVE AREA
OPENLIST OPEN  (SYSPRINT,OUTPUT),MF=L
SYSPRINT DCB   DSORG=PS,MACRF=PM,DDNAME=SYSPRINT,RECFM=FB,LRECL=80
WORKLEN  EQU   *-WORKAREA
 END   HELLO

-- 
Tom Marchant

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


How to get the CPC name on which the current system is running

2011-03-17 Thread Stan Weyman
   I'm looking for areas in z/OS where I can get the CPC name that the current 
system is running on.  The IPA is a possibility but looks to be populated via 
LOADxx and we've had issues with the HWNAME filtering causing problems with the 
CPC name.  I've looked at IBM's CSRSI service and they have a neat setup where 
you can request information at the CPC, LPAR, or VM level *OR* any combination 
of the three.  However, in IBM's infinite wisdom it appears they left the CPC 
name off the list of information returned via a CPC call sigh.  They have a 
CPCNAME defined in the macro expansion but it is an ORG of the LPARNAME and is 
in the LPAR area, not the CPC area so it's not a matter of doing a single vs 
multiple call type.  Very strange they would leave out the CPC name.  I've used 
the REXX CONSOLE interface in the past to do a D M=CPU and then GETMSG to 
retrieve it but I'd prefer not to use this method.

   Does anyone know where the CPC name is obtained when D M=CPU is issued or, 
barring that, another place I can get the CPC name?

  Regards,
Stan

Stan Weyman
Senior Software Engineer
stan.wey...@emc.commailto:weyman_s...@emc.com
EMC² *(508)249-3966
where information lives
It is wise to keep in mind that neither
success nor failure is ever final...


--
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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread Charles Mills
I be the mainframe developer here so I know what macros exist. Yes, I
certainly understand that C has a library. So does assembler, it just is not
called that. WTO is not a machine instruction, of course. Under the covers
it executes code of complexity comparable to that called by printf().

I think the original point and mine is still valid: newbies would not be
using WTO for routine program messages if there were something comparably
simple that did not clutter up the console.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Steve Comstock
Sent: Wednesday, March 16, 2011 8:10 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Why is WTO so much easier to use than better methods? (Was RE:
Trouble Reading a Spanned File with an Assembler Program - Working Program)

On 3/16/2011 8:29 PM, Charles Mills wrote:
 Perhaps z/OS needs a simpler way to put out data to, say, SYSPRINT or
even
 directly to the JESYSMSG SPOOL dataset for the job.

 Boy, you can say that again!

 In C you can output a message to the printed job information with one
 statement:

 printf(whatever ...);

 Why isn't there something for assembler as simple as the old WTP macro
 (which yes, was just a WTO in sheep's clothing) that would output a
message
 exactly as John says.

 It would be an interesting exercise to write the simplest proper,
reentrant,
 RMODE=31 assembler program that output Hello, world to anything other
than
 the console. Anyone want to venture a guess on how many lines of code?
 Fifty? Thirty? Can anyone do it in twenty?

 Charles

Maybe because C is a high level language. Under the covers it has to
have a DCB, OPEN, then it can do the printf() thingy, and eventually
a CLOSE (or let task termination do it).

But in Assembler you can't assume any handy dandy file is available
to write to: you gotta' do it all yourself. But, c'mon: it's Assembler.
That's the point.


Most shops have libraries of macros for common uses; maybe your
shop has some kind of INITIAL macro that not only does save area
chaining but provides a DCB for messages, and another macro that
issues messages to said DCB. If not, write them yourself.

--
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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread Charles Mills
RMODE=ANY. Typos easier to spot after you hit send g.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Charles Mills
Sent: Thursday, March 17, 2011 6:53 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Why is WTO so much easier to use than better methods? (Was RE:
Trouble Reading a Spanned File with an Assembler Program - Working Program)

Problem as stated included AMODE=31 and reentrancy.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Tom Marchant
Sent: Thursday, March 17, 2011 6:36 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Why is WTO so much easier to use than better methods? (Was RE:
Trouble Reading a Spanned File with an Assembler Program - Working Program)

On Wed, 16 Mar 2011 19:29:35 -0700, Charles Mills wrote:

It would be an interesting exercise to write the simplest proper,
reentrant,
RMODE=31 assembler program that output Hello, world to anything other
than
the console. 

--
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: One Pack RACF Anomaly

2011-03-17 Thread Daniel McLaughlin
Rex,
 Checked this and it appears to be the default module. 
  Thank you for your suggestion. 

--
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: One Pack RACF Anomaly

2011-03-17 Thread Itschak Mugzach
Are you sure that racf is using the databases named in RACF ICHRDSNT or the
default one (if racf can't find those in DSNT. It is possible that you are
using a default (almost empty) DB but the users are still defined in UADS...
Try logon with IBMUSER  password SYS1.

ITschak
On Thu, Mar 17, 2011 at 4:06 PM, Daniel McLaughlin 
daniel_mclaugh...@us.crawco.com wrote:

 Rex,
  Checked this and it appears to be the default module.
  Thank you for your suggestion.

 --
 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: How to get the CPC name on which the current system is running

2011-03-17 Thread Haynes, Stan
Don't know where D M=CPU gets the CPC name.

If by how I can get you mean via assembler or REXX ... Our IEFACTRT exit's 
job summary includes the CPC name. We get it from the ECVT control block (field 
ECVTHDNM). The ECVT is pointed to by CVT + x'8c'. ECVTHDNM is at offset x'150' 
(see macro IHAECVT). Adjacent fields also contain LPAR name and the VM userid 
of the virtual machine (if the z/OS system is a guest).


Stan
Canada Revenue Agency
mailto:stan.hay...@cra-arc.gc.ca
(613) 941-8091


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Stan Weyman
Sent: March 17, 2011 9:40 AM
To: IBM-MAIN@bama.ua.edu
Subject: How to get the CPC name on which the current system is running

   I'm looking for areas in z/OS where I can get the CPC name that the current 
system is running on.  The IPA is a possibility but looks to be populated via 
LOADxx and we've had issues with the HWNAME filtering causing problems with the 
CPC name.  I've looked at IBM's CSRSI service and they have a neat setup where 
you can request information at the CPC, LPAR, or VM level *OR* any combination 
of the three.  However, in IBM's infinite wisdom it appears they left the CPC 
name off the list of information returned via a CPC call sigh.  They have a 
CPCNAME defined in the macro expansion but it is an ORG of the LPARNAME and is 
in the LPAR area, not the CPC area so it's not a matter of doing a single vs 
multiple call type.  Very strange they would leave out the CPC name.  I've used 
the REXX CONSOLE interface in the past to do a D M=CPU and then GETMSG to 
retrieve it but I'd prefer not to use this method.

   Does anyone know where the CPC name is obtained when D M=CPU is issued or, 
barring that, another place I can get the CPC name?

  Regards,
Stan

Stan Weyman
Senior Software Engineer
stan.wey...@emc.commailto:weyman_s...@emc.com
EMC² *(508)249-3966
where information lives
It is wise to keep in mind that neither
success nor failure is ever final...


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


WebCast: Beyond Jeopardy!: The Business Implications of IBM Watson

2011-03-17 Thread Knutson, Sam
Hi,

If like me you enjoyed watching Watson on Jeopardy you might be
interested in this WebCast.

https://www.techwebonlineevents.com/ars/eventregistration.do?mode=eventr
egF=1002938K=6IK 

An InformationWeek Webcast:

Beyond Jeopardy!: The Business Implications of IBM Watson 

Date: Tuesday, March 22, 2011
Time: 11:00 AM PT / 2:00 PM ET
Duration: 60 Minutes

IBM Watson, named after IBM founder Thomas J. Watson, was built by a
team of IBM scientists who set out to accomplish a grand challenge --
build a computing system that rivals a human's ability to answer
questions posed in natural language with speed, accuracy and confidence.
IBM Watson passed its first test on Jeopardy! in February 2011, but the
real test will be in applying the underlying systems, data management
and analytics technology in business and across different industries. 

Moderated by Stephen Baker, author of Final Jeopardy: Man vs Machine and
the Quest to Know Everything, and featuring a panel of IBM business and
research executives, this webcast will delve into the present and future
business implications of the DeepQA technology behind Watson. 

Topics include: 

*   Overview of IBM Watson, Jeopardy! The IBM Challenge, and DeepQA
technology 
*   Business implications of Watson in the areas of 

*   Industry transformation, including healthcare 
*   Data management and analytics 
*   Workload optimized systems 

Featured Speakers:

*   Stephen Baker
http://i.cmpnet.com/audiencedevelopment/lm/IBM/IBM_032211_JC/Baker_BIO.
html , Author of Final Jeopardy: Man vs Machine and the Quest to Know
Everything 
*   David Ferrucci
http://i.cmpnet.com/audiencedevelopment/lm/IBM/IBM_032211_JC/Ferrucci_B
IO.html , Principal Investigator, DeepQA/Watson Project, IBM Research 
*   Tom Rosamilia
http://i.cmpnet.com/audiencedevelopment/lm/IBM/IBM_032211_JC/Rosamilia_
BIO.html , General Manager, IBM Power and z Systems 
*   Arvind Krishna
http://i.cmpnet.com/audiencedevelopment/lm/IBM/IBM_032211_JC/Krishna_BI
O.html , General Manager, IBM Information Management 
*   Dan Pelino
http://i.cmpnet.com/audiencedevelopment/lm/IBM/IBM_032211_JC/Pelino_BIO
.html , General Manager, IBM Healthcare and Life Sciences Industry

 

 

 

Best Regards, 

Sam Knutson, GEICO 
System z Team Leader 
mailto:sknut...@geico.com mailto:sknut...@geico.com  
(office)  301.986.3574 
(cell) 301.996.1318  

Think big, act bold, start simple, grow fast... 

 


This email/fax message is for the sole use of the intended
recipient(s) and may contain confidential and privileged information.
Any unauthorized review, use, disclosure or distribution of this
email/fax is prohibited. If you are not the intended recipient, please
destroy all paper and electronic copies of the original message.

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


Re: How to get the CPC name on which the current system is running

2011-03-17 Thread Martin Packer
What is a CPC name? Do you mean eg 51-13667  which would be the serial 
number? (Probably with lots of zeroes in it.)

The reason I ask is because I'd quite like customers to be able to name 
their machine e.g Flossie. :-)

When I speak to customers using their RMF data I use the serial number to 
denote the machine but THEY often go oh, that's 'Flossie' but there's 
nowhere I know of to tell the machine what it's called. :-)

Martin (not anthropomorphising computers as I gather they don't like it) 
:-)

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



From:
Stan Weyman stan.wey...@emc.com
To:
IBM-MAIN@bama.ua.edu
Date:
17/03/2011 13:55
Subject:
How to get the CPC name on which the current system is running
Sent by:
IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu



   I'm looking for areas in z/OS where I can get the CPC name that the 
current system is running on.  The IPA is a possibility but looks to be 
populated via LOADxx and we've had issues with the HWNAME filtering 
causing problems with the CPC name.  I've looked at IBM's CSRSI service 
and they have a neat setup where you can request information at the CPC, 
LPAR, or VM level *OR* any combination of the three.  However, in IBM's 
infinite wisdom it appears they left the CPC name off the list of 
information returned via a CPC call sigh.  They have a CPCNAME defined 
in the macro expansion but it is an ORG of the LPARNAME and is in the LPAR 
area, not the CPC area so it's not a matter of doing a single vs multiple 
call type.  Very strange they would leave out the CPC name.  I've used the 
REXX CONSOLE interface in the past to do a D M=CPU and then GETMSG to 
retrieve it but I'd prefer not to use this method.

   Does anyone know where the CPC name is obtained when D M=CPU is issued 
or, barring that, another place I can get the CPC name?

  Regards,
Stan

Stan Weyman
Senior Software Engineer
stan.wey...@emc.commailto:weyman_s...@emc.com
EMC² *(508)249-3966
where information lives
It is wise to keep in mind that neither
success nor failure is ever final...


--
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: One Pack RACF Anomaly

2011-03-17 Thread Daniel McLaughlin
ICHRDSNT reassembled and shows correct names. DB copied from production and
IDs can be seen in it. Unfortunately we can't get in on anything to validate.
Am going to try your other suggestion.

--
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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread Tom Marchant
On Thu, 17 Mar 2011 06:52:38 -0700, Charles Mills wrote:

Problem as stated included AMODE=31 and reentrancy.

It is reentrant, I believe.  For the AMODE=31 and RMODE=31, add 

HELLORMODE 31

That by itself will give an binder warning as coded, but it can be ignored,
or the warning can be eliminated by changing

OLIST_M  OPEN  (DCB_M,OUTPUT),MF=L

to

OLIST_M  OPEN  (,OUTPUT),MF=L

complete program now:

HELLOCSECT ,
HELLORMODE 31
 STM   14,12,12(13) SAVE CALLER'S REGISTERS
 LR11,15SET OUR BASE REGISTER
 USING HELLO,11
 GETMAIN RU,LV=WORKLEN,LOC=24
 ST13,4(,1) BACK CHAIN
 ST1,8(,13) FORWARD CHAIN
 LR13,1 LOAD MY SAVE AREA ADDRESS
 USING WORKAREA,13
 MVC OPENLIST(MESSAGE-OLIST_M),OLIST_M
 OPEN(SYSPRINT,OUTPUT),MF=(E,OPENLIST)
 PUT   SYSPRINT,MESSAGE
 CLOSE MF=(E,OPENLIST) 
 LR1,13 COPY MY SAVE AREA ADDRESS
 L 13,4(,13)POINT TO CALLER'S SAVE AREA
 FREEMAIN RU,A=(1),LV=WORKLEN
 LM14,12,12(13) RESTORE CALLER'S REGISTERS
 SLR   15,15
 BR14   RETURN TO CALLER
OLIST_M  OPEN  (,OUTPUT),MF=L
DCB_MDCB   DSORG=PS,MACRF=PM,DDNAME=SYSPRINT,RECFM=FB,LRECL=80
MESSAGE  DCCL80'STUPID HELLO WORLD MESSAGE'
WORKAREA DSECT ,
 DS18F  SAVE AREA
OPENLIST OPEN  (SYSPRINT,OUTPUT),MF=L
SYSPRINT DCB   DSORG=PS,MACRF=PM,DDNAME=SYSPRINT,RECFM=FB,LRECL=80
WORKLEN  EQU   *-WORKAREA
 END   HELLO

It really isn't so difficult.

-- 
Tom Marchant

--
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: One Pack RACF Anomaly

2011-03-17 Thread Hal Merritt
Watch your console closely during the IPL and during a logon attempt. Better 
yet, put the console in 'hold' mode so that it won't roll and manually page 
through the screens one at a time. 

One thing that bit me: if there is a secondary DB in ICHRDSNT and the secondary 
DB does not exist, RACF will behave as you are observing. 

HTH and good luck. 



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Daniel McLaughlin
Sent: Thursday, March 17, 2011 9:36 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: One Pack RACF Anomaly

ICHRDSNT reassembled and shows correct names. DB copied from production and
IDs can be seen in it. Unfortunately we can't get in on anything to validate.
Am going to try your other suggestion.

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

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


Re: Why is WTO so much easier to use than better methods?

2011-03-17 Thread john gilmore
Newbies will do what they can manage to understand; and perhaps they can be 
induced to understand that even WTO supports routing codes and the like that 
can make it innocuous, in the sense that no consoles need be cluttered when it 
is used.
 
Where one begins is anyway not nearly so important as what one learns later.
 
So far in this discussion I have missed any mention of the fact that LOGREC can 
and often should be used to record software errors too.  This use and the 
SYMRBLD and SYMREC macros are discussed in both the Assembler Services Guide 
and the Assembler Services Reference.
 
This technology is not of course for newbies, but it is one that they should be 
aimed at.
 
Another thing that these newbies can perhaps learn to do is to use one or more 
trivial framing macros in order to have the MNOTE and MHELP facilities of the 
HLASM available to them for debugging.
 
All this, of course, is prologue.  Professionals use much more elaborate 
testing environments, many of them proprietary, at least in part.  Let me 
therefore end with an insult: What have been discussed in this thread are 
handicraft methods in the sense that they are much simpler that the routines 
they are used to produce.

John Gilmore Ashland, MA 01721-1817 USA

  
--
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: WebCast: Beyond Jeopardy!: The Business Implications of IBM Watson

2011-03-17 Thread zMan
On Thu, Mar 17, 2011 at 10:29 AM, Knutson, Sam sknut...@geico.com wrote:
 If like me you enjoyed watching Watson on Jeopardy you might be
 interested in this WebCast.

Just don't use Watson to book your travel!
-- 
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


DB2 V10 Compatibility and Older z/OS Levels............

2011-03-17 Thread Craig Pace
All,

This is a cross post to both DB2-L and IBM-MAIN.  I have done some quick 
searches and not found what I have been looking for.  If someone knows of 
any threads that are related, please let me know.

I am trying to find out what might be the absolute level of z/OS that 
DB2 V10 might run under.  Basically we have been asked to get DB2 V10 in 
and we know from Program Directory, other manuals, Product Support cross 
reference, etc. that the published z/OS compatibility is V1.10 or higher. 
Is there anyone out there who might have tried this at lower levels?  More 
importantly..as low as z/OS V1.6?  Yes we know we are behind and 
are working on that, but sometimes you must venture down roads that are 
not the moden way.  Before we go an order DB2 V10, or even try to let 
Management think it will work I must try and see if these is even possible 
at all or a 100% NOWAY, CAN'T DO IT.

Thank you in advance for any light that might be casted on this subject.



Thanks,

Craig Pace
E-mail:  cp...@fruit.com



**
This communication contains information which is confidential and
may also be privileged. It is for the exclusive use of the intended
recipient(s). If you are not the intended recipient(s), please note
that any distribution, copying or use of this communication or the
information in it is strictly prohibited. If you have received this
communication in error, please notify the sender immediately and
then destroy any copies of 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: Why is WTO so much easier to use than better methods?

2011-03-17 Thread john gilmore
Tom Marchant's routine makes his point, and that is enough.
 
Let me nevertheless use it to  make two further points.
 
The first is that DSAs and scratch storage need to come from a stack.  They are 
used in LIFO fashion, and long path-length GETMAIN/FREEMAIN pairs or their 
STORAGE analogues are overkill for them.
 
The second is that access to SYSPRINT must always be serialized.  When it is 
not lines of output from different sources are intermixed to the detriment of 
intelligibility.  
 
As is often the case, the PL/I implementation of SYSPRINT support---GETs, PUTs, 
buffer management, serialization, asynchronous locate-mode output, etc.---can 
serve as a model of what such a facility should look like.  

John Gilmore Ashland, MA 01721-1817 USA

  
--
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: DB2 V10 Compatibility and Older z/OS Levels............

2011-03-17 Thread Daniel Allen
Many moons ago, we ran DB2 v8.1 under z/OS 1.3. It was supported up to point. 
Some functionality did not kick in until z/OS 1.4. Our z/OS 1.3 environment was 
short-lived and was migrated to z/OS 1.4 and above.

If the published z/OS compatibility is z/OS 1.10 and higher, believe it.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Craig Pace
Sent: Thursday, March 17, 2011 8:14 AM
To: IBM-MAIN@bama.ua.edu
Subject: DB2 V10 Compatibility and Older z/OS Levels

All,

This is a cross post to both DB2-L and IBM-MAIN.  I have done some quick 
searches and not found what I have been looking for.  If someone knows of any 
threads that are related, please let me know.

I am trying to find out what might be the absolute level of z/OS that
DB2 V10 might run under.  Basically we have been asked to get DB2 V10 in and we 
know from Program Directory, other manuals, Product Support cross reference, 
etc. that the published z/OS compatibility is V1.10 or higher. 
Is there anyone out there who might have tried this at lower levels?  More 
importantly..as low as z/OS V1.6?  Yes we know we are behind and are 
working on that, but sometimes you must venture down roads that are not the 
moden way.  Before we go an order DB2 V10, or even try to let Management think 
it will work I must try and see if these is even possible at all or a 100% 
NOWAY, CAN'T DO IT.

Thank you in advance for any light that might be casted on this subject.



Thanks,

Craig Pace
E-mail:  cp...@fruit.com



**
This communication contains information which is confidential and may also be 
privileged. It is for the exclusive use of the intended recipient(s). If you 
are not the intended recipient(s), please note that any distribution, copying 
or use of this communication or the information in it is strictly prohibited. 
If you have received this communication in error, please notify the sender 
immediately and then destroy any copies of 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

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


CICS TS V4.1 Compatibility and Older z/OS Levels............

2011-03-17 Thread Craig Pace
All,

This is a cross post to both CICS-L and IBM-MAIN.  I have done some quick 
searches and not found what I have been looking for.  If someone knows of 
any threads that are related, please let me know.

I am trying to find out what might be the absolute level of z/OS that 
CICS TS V4.1 might run under.  Basically we have been asked to get CICS TS 
V4.1 in and we know from Program Directory, other manuals, Product Support 
cross reference, etc. that the published z/OS compatibility is V1.9 or 
higher.  Is there anyone out there who might have tried this at lower 
levels?  More importantly..as low as z/OS V1.6?  Yes we know we 
are behind and are working on that, but sometimes you must venture down 
roads that are not the moden way.  Before we go an order CICS TS V4.1, or 
even try to let Management think it will work I must try and see if these 
is even possible at all or a 100% NOWAY, CAN'T DO IT.

Thank you in advance for any light that might be casted on this subject.



Thanks,

Craig Pace
E-mail:  cp...@fruit.com


**
This communication contains information which is confidential and
may also be privileged. It is for the exclusive use of the intended
recipient(s). If you are not the intended recipient(s), please note
that any distribution, copying or use of this communication or the
information in it is strictly prohibited. If you have received this
communication in error, please notify the sender immediately and
then destroy any copies of 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: One Pack RACF Anomaly

2011-03-17 Thread Walt Farrell
On Thu, 17 Mar 2011 09:06:13 -0500, Daniel McLaughlin
daniel_mclaugh...@us.crawco.com wrote:

Rex,
 Checked this and it appears to be the default module.

The default for ICHDEX01 is that there is no ICHDEX01 in LPALIB (which is
where almost all RACF exits live). 

If you have one in SYS1.LPALIB (or MLPA'd in) that is probably your problem,
so verify that the real system also has one in LPALIB and that it's the same
one.

-- 
Walt Farrell
IBM STSM, z/OS Security Design

--
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: Why is WTO so much easier to use than better methods?

2011-03-17 Thread Steve Comstock

On 3/17/2011 9:07 AM, john gilmore wrote:

Newbies will do what they can manage to understand; and
perhaps they can be induced to understand that even WTO
supports routing codes and the like that can make it
innocuous, in the sense that no consoles need be cluttered
when it is used.


[snip]


John Gilmore Ashland, MA 01721-1817 USA


I got to wondering about the above. An experiment confirms
that if you code a WTO with ROUTCDE=(11), the message still
appears on the console log as well as in the job output.

A little further reading reveals that routing codes 13-20 are
reserved for customer use. Now the question: where is it
documented how a customer can use such a route code? I seem
to recall a doc called Routing Codes but I can't locate it
anymore, and I'm not sure if it would really contain the
information I'm after.

Any clues / suggestions where to begin looking? BTW, I'm
looking for solutions that don't require any special
authorization, since this is intended for applications
developers.

Just a little project.


--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

* To get a good Return on your Investment, first make an investment!
  + Training your people is an excellent investment

* Try our new tool for calculating your Return On Investment
for training dollars at
  http://www.trainersfriend.com/ROI/roi.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: DB2 V10 Compatibility and Older z/OS Levels............

2011-03-17 Thread R.S.

Daniel Allen pisze:

Many moons ago, we ran DB2 v8.1 under z/OS 1.3. It was supported up to point. 
Some functionality did not kick in until z/OS 1.4. Our z/OS 1.3 environment was 
short-lived and was migrated to z/OS 1.4 and above.

If the published z/OS compatibility is z/OS 1.10 and higher, believe it.


IBM publish highest version which works with DB2 *OR* the oldest 
supported one - whatever is higher.


Theoretical examples:
1. Product XYZ v.8 It can run with z/OS 1.3+ but at the moment of GA the 
oldest supported version of z/OS was 1.10. Documented and supported 
version would be 1.10. - that's OFFICIAL REASON.
2. Product ABC v.2 requires z/OS 1.12 to run correctly. It GA'd today, 
so i.e. z/OS 1.11 is still under support. Documented and supported 
version will be 1.12. - TECHNICAL REASON.



IBM supports what IBM documents, so even if DB2 v10 would run with z/OS 
1.9 (which is very likely IMHO) you won't see any support for such 
configuration. If it's for sandbox - that's OK, for production - I 
wouldn't go there.


--
Radoslaw Skorupka
Lodz, Poland


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

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

NIP: 526-021-50-88
Wedug stanu na dzie 16.07.2010 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 168.248.328 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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread Charles Mills
I missed the MVC. Shouldn't write e-mails so early in the morning.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Tom Marchant
Sent: Thursday, March 17, 2011 7:38 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Why is WTO so much easier to use than better methods? (Was RE:
Trouble Reading a Spanned File with an Assembler Program - Working Program)

On Thu, 17 Mar 2011 06:52:38 -0700, Charles Mills wrote:

Problem as stated included AMODE=31 and reentrancy.

It is reentrant, I believe.  For the AMODE=31 and RMODE=31, add 

HELLORMODE 31

That by itself will give an binder warning as coded, but it can be ignored,
or the warning can be eliminated by changing

OLIST_M  OPEN  (DCB_M,OUTPUT),MF=L

to

OLIST_M  OPEN  (,OUTPUT),MF=L

complete program now:

HELLOCSECT ,
HELLORMODE 31
 STM   14,12,12(13) SAVE CALLER'S REGISTERS
 LR11,15SET OUR BASE REGISTER
 USING HELLO,11
 GETMAIN RU,LV=WORKLEN,LOC=24
 ST13,4(,1) BACK CHAIN
 ST1,8(,13) FORWARD CHAIN
 LR13,1 LOAD MY SAVE AREA ADDRESS
 USING WORKAREA,13
 MVC OPENLIST(MESSAGE-OLIST_M),OLIST_M
 OPEN(SYSPRINT,OUTPUT),MF=(E,OPENLIST)
 PUT   SYSPRINT,MESSAGE
 CLOSE MF=(E,OPENLIST) 
 LR1,13 COPY MY SAVE AREA ADDRESS
 L 13,4(,13)POINT TO CALLER'S SAVE AREA
 FREEMAIN RU,A=(1),LV=WORKLEN
 LM14,12,12(13) RESTORE CALLER'S REGISTERS
 SLR   15,15
 BR14   RETURN TO CALLER
OLIST_M  OPEN  (,OUTPUT),MF=L
DCB_MDCB   DSORG=PS,MACRF=PM,DDNAME=SYSPRINT,RECFM=FB,LRECL=80
MESSAGE  DCCL80'STUPID HELLO WORLD MESSAGE'
WORKAREA DSECT ,
 DS18F  SAVE AREA
OPENLIST OPEN  (SYSPRINT,OUTPUT),MF=L
SYSPRINT DCB   DSORG=PS,MACRF=PM,DDNAME=SYSPRINT,RECFM=FB,LRECL=80
WORKLEN  EQU   *-WORKAREA
 END   HELLO

It really isn't so difficult.

-- 
Tom Marchant

--
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: Why is WTO so much easier to use than better methods?

2011-03-17 Thread Steve Comstock

(Replying partially to my own question...)


On 3/17/2011 9:43 AM, Steve Comstock wrote:

On 3/17/2011 9:07 AM, john gilmore wrote:

Newbies will do what they can manage to understand; and
perhaps they can be induced to understand that even WTO
supports routing codes and the like that can make it
innocuous, in the sense that no consoles need be cluttered
when it is used.


[snip]


John Gilmore Ashland, MA 01721-1817 USA


I got to wondering about the above. An experiment confirms
that if you code a WTO with ROUTCDE=(11), the message still
appears on the console log as well as in the job output.

A little further reading reveals that routing codes 13-20 are
reserved for customer use. Now the question: where is it
documented how a customer can use such a route code? I seem
to recall a doc called Routing Codes but I can't locate it
anymore, and I'm not sure if it would really contain the
information I'm after.


Doc is z/OS MVS Routing and Descriptor Codes; apparently
the last version is for z/OS 1.5.

As I suspected, it doesn't provide much useful information
(maybe why it's been discontinued).


Any clues / suggestions where to begin looking? BTW, I'm
looking for solutions that don't require any special
authorization, since this is intended for applications
developers.


Well, the Roting and Descriptor Codes doc does point
to some other docs including the Authorized Assembler
Services Reference and the Installation Exits books. I
guess you have to probably use some authorization to set
up using customer routing codes; I'm OK with that. I'll
explore a little further, but any pointers from those of
you with some experience here would be appreciated.




Just a little project.





--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

* To get a good Return on your Investment, first make an investment!
  + Training your people is an excellent investment

* Try our new tool for calculating your Return On Investment
for training dollars at
  http://www.trainersfriend.com/ROI/roi.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


AT-TLS and CICS Sockets performance

2011-03-17 Thread Jim McAlpine
Cross posted to the CICS list.

I've set up the AT-TLS for CICS Sockets but the performance is very poor
(+10 secs per transaction) when running in pseudo conversational mode.  If I
run the same appplication in conversational mode the performance is fine and
on par with running without SSL.  Does anyone have any idea what is
happening for every pseudo transaction that could be causing this.

Jim McAlpine

--
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: One Pack RACF Anomaly

2011-03-17 Thread Daniel McLaughlin
Thank you for that suggestion. We don't have one in the LPALIB, so it's off
to IPL and watch the console closely.

--
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: How Do I Eliminate ML2 Migration?

2011-03-17 Thread Ron Hawkins
George,

You actually need to make your datasets on DFSMShsm monitored volumes, or
datasets in your management classes ineligible for ML2 migration. It's not
about just simply turning it secondary space management - that won't work at
all.

The actual parameters that must be changed to do this will depend on whether
you are SMS managed, or just running DFSMShsm against non-SMS volumes, or
both. The information provided so far is simply to vague for anyone to
answer.

To answer one of your earlier questions, datasets eligible for ML2 will be
migrated directly to ML2 during Primary Space Management. If you recall a
dataset and do not change the last reference date, it will likely be
migrated back to ML2 during the next Primary Space Management cycle -
commonly known as thrashing. Secondary Space Management is looking for
datasets on ML1 that have aged to become eligible for ML2. 

You need to do more than just stop secondary space management, and when you
recall a dataset you need to change the last reference date so it does not
migrate next primary space management cycle. An alternative to changing the
last reference date would be to set up a management class that only goes to
ML1, and assign all datasets to that management class when they are
recalled. This is an environment you can test for in the ACS script. This
will avoid the requirement to touch every dataset and change the last
reference date. If you are not using DFSMS managed volumes you will need to
create at least one Storage Group and assign STORCLAS to make this work.

I don't think your simple exercise is really as simple as it sounds and you
may want to spend a few days working through your ARCMMD and Management
classes along with the reference guides and understand what parameters make
a dataset a candidate for ML2 - because that's what needs to be changed.

What about your DFSMShsm dataset and volume backups? Will you only be
keeping local copies of those?

Ron


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of
 George Rodriguez
 Sent: Wednesday, March 16, 2011 12:36 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: [IBM-MAIN] How Do I Eliminate ML2 Migration?
 
 Hi Barry,
 
 Yes, I have enough disk. I doubled the size of what I had before. To
answer
 your question I want the migrated datasets back on primary space. What
other
 SETSYS option needs to change?
 *
 *
 *George Rodriguez*
 *Specialist II - IT Solutions*
 *Application Support / Quality Assurance*
 *PX - 47652*
 *(561) 357-7652 (office)*
 *(561) 707-3496 (mobile)*
 *School District of Palm Beach County*
 *3348 Forest Hill Blvd.*
 *Room B-332*
 *West Palm Beach, FL. 33406-5869*
 *Florida's Only A-Rated Urban District For Six Consecutive Years*
 
 
 
 On Wed, Mar 16, 2011 at 3:25 PM, Schwarz, Barry A 
 barry.a.schw...@boeing.com wrote:
 
  Quick and easy is often a synonym for doomed to fail.  You need to plan.
 
  Your current setup uses tape for ML2.  How much data is currently in
ML2?
   How long do you keep it?  How rapidly does it grow?
 
  You bought disk to replace the tape.  How much disk?  Is it enough to
  handle all the current ML2 data plus the anticipated growth?
 
  Do you want the data that is currently on ML2 tapes to remain in HSM or
do
  you want them to end up on Primary volumes?
 
 If the datasets are to remain in HSM, you may not need to recall
  them at all.  Once the SETSYS ML2 units are changed, either the RECYCLE
or
  FREEVOL commands should move the data to DASD.
 
 If you want the datasets on primary volumes, you will need to
recall
  them but you will also need to change other SETSYS options to prevent
  Secondary Space Management from putting data on new ML2 volumes.
 
  -Original Message-
  From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
  Behalf Of George Rodriguez
  Sent: Wednesday, March 16, 2011 11:55 AM
  To: IBM-MAIN@bama.ua.edu
  Subject: Re: How Do I Eliminate ML2 Migration?
 
  Barry,
 
  Are the parameter that I change these:
 
  SETSYS
   TAPEMIGRATION(ML2TAPE
   (TAPE(3490)))
 
  SETSYS
   MIGUNITNAME(3490)
 
  Does that mean that the migration still occurs, except it goes to disk?
  Does
  it also mean that I might need to increase the migration volumes to
support
  migration?
 
  --
  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
 
 
 Home of Florida's first LEED Gold Certified School
 
 Under Florida law, e-mail addresses are public records. If you do not want
 your e-mail address
 released in response to a public records request, do not send electronic
mail
 to this entity.
 Instead, contact this office by phone or in writing.
 
 --
 For IBM-MAIN 

Re: WebCast: Beyond Jeopardy!: The Business Implications of IBM Watson

2011-03-17 Thread Chase, John
 -Original Message-
 From: IBM Mainframe Discussion List On Behalf Of zMan
 
 On Thu, Mar 17, 2011 at 10:29 AM, Knutson, Sam sknut...@geico.com
wrote:
  If like me you enjoyed watching Watson on Jeopardy you might be
  interested in this WebCast.
 
 Just don't use Watson to book your travel!

At least, not to a city having two airports with names associated with
WWII.  :-)

-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: Why is WTO so much easier to use than better methods? (Was RE: Trouble Reading a Spanned File with an Assembler Program - Working Program)

2011-03-17 Thread Gerhard Postpischil

On 3/17/2011 11:57 AM, Charles Mills wrote:

I missed the MVC. Shouldn't write e-mails so early in the morning.


I consider the thread so far to be a bit simplistic. In a 
specific environment that uses SYSPRINT, the DCB attributes are 
defined. For the code to be useful in a general, uncivilized 
assembler environment, the message routine would need to be able 
to handle any reasonable record length, as well as most legal 
record formats, complete with carriage control codes of the 
proper type, and use a DCB exit to supply desirable parameters 
when none are set. And I won't even mention font selectors g


While DCB attribute accommodation can be handled once and for 
all in a common subroutine, I would prefer going to the job log 
precisely to avoid dependencies.


Gerhard Postpischil
Bradford, VT

--
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: Why is WTO so much easier to use than better methods?

2011-03-17 Thread Chuck Arney
No authorization is required to code a WTO that specifies a user route
code.  To prevent consoles from displaying the messages you would define
the consoles as not receiving the desired route code(s).  So instead of
receiving All route codes for a console, you omit one or more codes that
you don't want to see and then code your program to use that code.

Chuck Arney
illustro Systems International, LLC
http://www.illustro.com
Internet-enable your applications with z/Ware V2
Voice: 214-800-8900 X#5562
--
This e-mail is private and may be confidential and is for the intended
recipient only. If misdirected, please notify us by telephone and
confirm that it has been deleted from your system and any copies
destroyed. If you are not the intended recipient you are strictly
prohibited from using, printing, copying, distributing or disseminating
this e-mail or any information contained in it.  
  
We use reasonable measures to virus scan all E-mails leaving illustro
but no warranty is given that this E-mail and any attachments are virus
free. You should ensure you have adequate measures in place for your own
virus checking.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Steve Comstock
Sent: Thursday, March 17, 2011 11:03 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Why is WTO so much easier to use than better methods?

(Replying partially to my own question...)


On 3/17/2011 9:43 AM, Steve Comstock wrote:
 On 3/17/2011 9:07 AM, john gilmore wrote:
 Newbies will do what they can manage to understand; and
 perhaps they can be induced to understand that even WTO
 supports routing codes and the like that can make it
 innocuous, in the sense that no consoles need be cluttered
 when it is used.

 [snip]

 John Gilmore Ashland, MA 01721-1817 USA

 I got to wondering about the above. An experiment confirms
 that if you code a WTO with ROUTCDE=(11), the message still
 appears on the console log as well as in the job output.

 A little further reading reveals that routing codes 13-20 are
 reserved for customer use. Now the question: where is it
 documented how a customer can use such a route code? I seem
 to recall a doc called Routing Codes but I can't locate it
 anymore, and I'm not sure if it would really contain the
 information I'm after.

Doc is z/OS MVS Routing and Descriptor Codes; apparently
the last version is for z/OS 1.5.

As I suspected, it doesn't provide much useful information
(maybe why it's been discontinued).

 Any clues / suggestions where to begin looking? BTW, I'm
 looking for solutions that don't require any special
 authorization, since this is intended for applications
 developers.

 Well, the Roting and Descriptor Codes doc does point
 to some other docs including the Authorized Assembler
 Services Reference and the Installation Exits books. I
 guess you have to probably use some authorization to set
 up using customer routing codes; I'm OK with that. I'll
 explore a little further, but any pointers from those of
 you with some experience here would be 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: Why is WTO so much easier to use than better methods?

2011-03-17 Thread Steve Comstock

Final reply to my reply to my own question :-)

On 3/17/2011 10:02 AM, Steve Comstock wrote:

(Replying partially to my own question...)


On 3/17/2011 9:43 AM, Steve Comstock wrote:

On 3/17/2011 9:07 AM, john gilmore wrote:

Newbies will do what they can manage to understand; and
perhaps they can be induced to understand that even WTO
supports routing codes and the like that can make it
innocuous, in the sense that no consoles need be cluttered
when it is used.


[snip]


John Gilmore Ashland, MA 01721-1817 USA


I got to wondering about the above. An experiment confirms
that if you code a WTO with ROUTCDE=(11), the message still
appears on the console log as well as in the job output.

A little further reading reveals that routing codes 13-20 are
reserved for customer use. Now the question: where is it
documented how a customer can use such a route code? I seem
to recall a doc called Routing Codes but I can't locate it
anymore, and I'm not sure if it would really contain the
information I'm after.


Doc is z/OS MVS Routing and Descriptor Codes; apparently
the last version is for z/OS 1.5.

As I suspected, it doesn't provide much useful information
(maybe why it's been discontinued).


Any clues / suggestions where to begin looking? BTW, I'm
looking for solutions that don't require any special
authorization, since this is intended for applications
developers.


Well, the Roting and Descriptor Codes doc does point
to some other docs including the Authorized Assembler
Services Reference and the Installation Exits books. I
guess you have to probably use some authorization to set
up using customer routing codes; I'm OK with that. I'll
explore a little further, but any pointers from those of
you with some experience here would be appreciated.




Just a little project.


Well, it looks like one could write a fairly simple
IEAVMXIT exit that examines the route code for each
WTO, and if it finds, say a value of 13, turning on
bit CTXTRDTM and setting some request flag, you
could suppress the message being sent to the console.

This is the hard part (code the exit and install it
correctly and safely). I leave that as an exercise
to those of you who are systems programmers.

Once that is in place, one could easily supply a
macro called DISPLAY (for COBOL backgrounders)
or even printf (for C backgrounders) that would
issue a WTO with ROUTCDE=(13) and all should be
well.

Of course, you can make these macros as simple
or as sophisticated as you can stand (or code)!


--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

* To get a good Return on your Investment, first make an investment!
  + Training your people is an excellent investment

* Try our new tool for calculating your Return On Investment
for training dollars at
  http://www.trainersfriend.com/ROI/roi.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: Why is WTO so much easier to use than better methods?

2011-03-17 Thread Steve Comstock

On 3/17/2011 10:42 AM, Chuck Arney wrote:

No authorization is required to code a WTO that specifies a user route
code.


I figured that out.


To prevent consoles from displaying the messages you would define
the consoles as not receiving the desired route code(s).


I like it; simple, clean, not dangerous. Just hadn't thought of it.


So instead of
receiving All route codes for a console, you omit one or more codes that
you don't want to see and then code your program to use that code.


Thanks for the idea.




Chuck Arney
illustro Systems International, LLC
http://www.illustro.com
Internet-enable your applications with z/Ware V2
Voice: 214-800-8900 X#5562
--
This e-mail is private and may be confidential and is for the intended
recipient only. If misdirected, please notify us by telephone and
confirm that it has been deleted from your system and any copies
destroyed. If you are not the intended recipient you are strictly
prohibited from using, printing, copying, distributing or disseminating
this e-mail or any information contained in it.

We use reasonable measures to virus scan all E-mails leaving illustro
but no warranty is given that this E-mail and any attachments are virus
free. You should ensure you have adequate measures in place for your own
virus checking.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Steve Comstock
Sent: Thursday, March 17, 2011 11:03 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Why is WTO so much easier to use than better methods?

(Replying partially to my own question...)


On 3/17/2011 9:43 AM, Steve Comstock wrote:

On 3/17/2011 9:07 AM, john gilmore wrote:

Newbies will do what they can manage to understand; and
perhaps they can be induced to understand that even WTO
supports routing codes and the like that can make it
innocuous, in the sense that no consoles need be cluttered
when it is used.


[snip]


John Gilmore Ashland, MA 01721-1817 USA


I got to wondering about the above. An experiment confirms
that if you code a WTO with ROUTCDE=(11), the message still
appears on the console log as well as in the job output.

A little further reading reveals that routing codes 13-20 are
reserved for customer use. Now the question: where is it
documented how a customer can use such a route code? I seem
to recall a doc called Routing Codes but I can't locate it
anymore, and I'm not sure if it would really contain the
information I'm after.


Doc is z/OS MVS Routing and Descriptor Codes; apparently
the last version is for z/OS 1.5.

As I suspected, it doesn't provide much useful information
(maybe why it's been discontinued).


Any clues / suggestions where to begin looking? BTW, I'm
looking for solutions that don't require any special
authorization, since this is intended for applications
developers.



Well, the Roting and Descriptor Codes doc does point
to some other docs including the Authorized Assembler
Services Reference and the Installation Exits books. I
guess you have to probably use some authorization to set
up using customer routing codes; I'm OK with that. I'll
explore a little further, but any pointers from those of
you with some experience here would be 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




--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

* To get a good Return on your Investment, first make an investment!
  + Training your people is an excellent investment

* Try our new tool for calculating your Return On Investment
for training dollars at
  http://www.trainersfriend.com/ROI/roi.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: AT-TLS and CICS Sockets performance

2011-03-17 Thread Rob Schramm
Jim,

I seem to remember a paper that talks about the relative performance for
CICS Sockets with encryption.  From what I remember there was a big hit for
not caching credentials.  I will see if I can find it.  Maybe someone else
in the list can comment?

Rob

On Thu, Mar 17, 2011 at 12:09 PM, Jim McAlpine jim.mcalp...@gmail.comwrote:

 Cross posted to the CICS list.

 I've set up the AT-TLS for CICS Sockets but the performance is very poor
 (+10 secs per transaction) when running in pseudo conversational mode.  If
 I
 run the same appplication in conversational mode the performance is fine
 and
 on par with running without SSL.  Does anyone have any idea what is
 happening for every pseudo transaction that could be causing this.

 Jim McAlpine

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




-- 
Rob Schramm
Senior Systems Engineer

w: 513.305.6224

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


Call for presentations for summer SHARE (Orlando) Aug 7-12, 2011

2011-03-17 Thread Pamela Christina in sunny warm Endicott NY
If you have never been to SHARE, and/or would like to present
at SHARE (and yes, people like to hear  your experiences),
here's the call for presentations for the next SHARE.

  SHARE in Orlando Call for Presentations

  SHARE in Orlando, August 7 - 12, 2011 in Orlando, FL
  is your chance to share your experiences,
  challenges and fresh approaches with hundreds of
  fellow enterprise technology professionals from around
  the world.

  SHARE welcomes and encourages both first-time
  submitters and seasoned presenters to take part in
  this leading enterprise technology event. The deadline
  to submit a presentation proposal for review is
  Friday, April 22, 2011.


  When you present, you'll benefit from:
Visibility and access to your peers in the SHARE
community
Professional development opportunities
FREE registration for the day you present
Recognition as a subject-matter expert and
industry thought leader


  If you have any questions on submitting a presentation
  proposal for review, contact speak...@share.org.


  Stay tuned to www.share.org/orlando for the most
  up-to-date information on Orlando housing, online
  registration and program details.


SHARE Inc. | 401 North Michigan Avenue | Chicago,
   Illinois 60611-4267 | 1.888.574.2735 | www.share.org


   SHARE Inc. is an independent, volunteer run
   association providing enterprise technology
professionals with
   continuous education and training, valuable
  professional networking and effective industry
influence.



Regards,
Pam C

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


System Software Developer Position (UK/USA)

2011-03-17 Thread Rob Scott
We have an opening for a developer position at Rocket Software to work on a 
z/OS system's software product with links into CICS, DB2 and MQ.

The position could be filled by someone working either in the UK 
(Uxbridge/Warwick) or USA (Boston) however  working from home is also possible 
and quite common within the company.

Core skills required include 3+ years high level assembler, experience of macro 
language  and a basic understanding z/OS control blocks and structure.

Beneficial skills include using IBM structured macros, any system's programming 
exposure and an understanding of the cross-memory environment.

Note that this is not a senior position and would suit someone venturing into 
system's software development from systems programming or applications 
development, or someone wanting to return to an assembler developer position 
following a break.

If you are interested - send your CV to h...@rs.commailto:h...@rs.com with 
IBM-Main in the subject field.


(The above post cleared with Darren Evans-Young)



Rob Scott
Lead Developer
Rocket Software
275 Grove Street * Newton, MA 02466-2272 * USA
Tel: +1.617.614.2305
Email: rsc...@rs.com
Web: www.rocketsoftware.comhttp://www.rocketsoftware.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: Why is WTO so much easier to use than better methods?

2011-03-17 Thread Tom Marchant
On Thu, 17 Mar 2011 11:42:00 -0500, Chuck Arney wrote:

To prevent consoles from displaying the messages you would define
the consoles as not receiving the desired route code(s).

Indeed, the Init and Tuning reference says,

quote
Note: Do not assign routing code 11 to a console, because it is meant for
programmer information rather than operator information.
/quote

-- 
Tom Marchant

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


MEMDSENQMGMT / S99DASUP

2011-03-17 Thread Paul Schuster
Hello:

Are these two concepts independent events?  The AUTH ASM GUIDE explains
about S99DASUP, but some other docs. I read indicates that
MEMDSENQMGMT(ENABLE) is also required to implement this.  However, I don't
see the relationship between the two.  Can anyone clarify this?

Thank you.

Paul

--
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: One Pack RACF Anomaly

2011-03-17 Thread Mark Zelden
On Thu, 17 Mar 2011 07:00:03 -0500, Daniel McLaughlin
daniel_mclaugh...@us.crawco.com wrote:

We used Mark Zelden's process to build a one pack system. When we IPL'd and
established a TSO link, then tried to logon, we kept being blocked by RACF.
We reloaded the RACF database and tried it again, only to be blocked again.
It's not recognizing any passwords we enter. We are stumped. Has anyone else
experienced this, or might you have any suggestions?


Are your local RACF modules copied into the onepack LPALIB/LINKLIB?  
In my sample, this is done via FDRCOPY:

 SELECT   CATDSN=SYS2.LOCAL.LPALIB, 
 NEWN=TARGSYS.SYS1.VSYS1PK.LPALIB,NVOL=SYS1PK,  
 STORCLAS=SCNONSMS  
 SELECT   CATDSN=SYS2.LOCAL.LINKLIB,
 NEWN=TARGSYS.SYS1.VSYS1PK.LINKLIB,NVOL=SYS1PK, 
 STORCLAS=SCNONSMS  


These libraries are put first in the concatenations for LPA/LNKLST.

If not, you may be picking up defaults from SYS1.LPALIB / SYS1.LINKLIB.

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/

*** Please note the new URL for Mark's MVS Utilities ***

--
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: AT-TLS and CICS Sockets performance

2011-03-17 Thread Rob Schramm
Jim,

IBM is continuing to enhance the performance... the 1.11 indicates that the
short-lived AT-TLS may have been worse prior to 1.11.  I suspect that
the pseudo-conversational is falling into the short-lived camp... and
conversational is keeping the conversation going so to speak.

You might ask for clarification on the CICS-L about psuedo v.s.
conversational.  I am guessing that you are prior to 1.11 of z/OS.

http://publib.boulder.ibm.com/infocenter/ieduasst/stgv1r0/index.jsp?topic=/com.ibm.iea.commserv_v1/commserv/1.12z/perf/PerformanceOther/player.html

http://publib.boulder.ibm.com/infocenter/ieduasst/stgv1r0/index.jsp?topic=/com.ibm.iea.commserv_v1/commserv/1.12z/perf/PerformanceOther/player.html
http://publib.boulder.ibm.com/infocenter/ieduasst/stgv1r0/index.jsp?topic=/com.ibm.iea.commserv_v1/commserv/1.11z/security/security/player.html

http://publib.boulder.ibm.com/infocenter/ieduasst/stgv1r0/index.jsp?topic=/com.ibm.iea.commserv_v1/commserv/1.11z/security/security/player.html
Cheers,
Rob

On Thu, Mar 17, 2011 at 12:55 PM, Rob Schramm rob.schr...@gmail.com wrote:

 Jim,

 I seem to remember a paper that talks about the relative performance for
 CICS Sockets with encryption.  From what I remember there was a big hit for
 not caching credentials.  I will see if I can find it.  Maybe someone else
 in the list can comment?

 Rob

 On Thu, Mar 17, 2011 at 12:09 PM, Jim McAlpine jim.mcalp...@gmail.comwrote:

 Cross posted to the CICS list.

 I've set up the AT-TLS for CICS Sockets but the performance is very poor
 (+10 secs per transaction) when running in pseudo conversational mode.  If
 I
 run the same appplication in conversational mode the performance is fine
 and
 on par with running without SSL.  Does anyone have any idea what is
 happening for every pseudo transaction that could be causing this.

 Jim McAlpine

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




 --
 Rob Schramm
 Senior Systems Engineer

 w: 513.305.6224




-- 
Rob Schramm
Senior Systems Engineer

w: 513.305.6224

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


OT - Help on Windoze Installer

2011-03-17 Thread Lizette Koehler
I apologize for asking here, but I know some of you may be able to see what 
this is.

I have a Windows installer (SETUP.EXE) function that gets an error during its 
process that says

IWsXml not found.  I really could find nothing helpful in the 
internet with just IWsXml other something SOAP.

I am not sure if it is part of SETUP.exe or if belongs to something else.  I 
have used this same setup.exe (same Disk I burned) on other PCs (WINXP SP03) 
without this error.  So I think it is specific to some software.

If there is a better forum for this question, let me know where to go.

Thanks

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


Why is WTO so much e asier to u se than be tter metho ds?‏

2011-03-17 Thread john gilmore
I hope it is now clear that WTO, with appropriate routing code(s), can be made 
viable for testing use by novice HLASM programmers, where 'viable' here means 
free of deleterious side effects on system-console message traffic.  (The 
literally illliterate sysprog who directed routing-code 11 outputs to a console 
is perhaps the real villain here. ) 
 
Had I realized just how little is generally known about things like routing 
codes I should have expanded my treatment of them in my post that first 
mentioned them.
 
WTO remains a crude device per se.  It would not be my choice, but a 
satisfactory infrastructure for debugging could presumably be built using it.  
The important point is that every serious HLASM programmer needs such an 
infrastructure, made or bought.  Ad hoc WTOs won't cut it. 

John Gilmore Ashland, MA 01721-1817 USA


  

--
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: OT - Help on Windoze Installer

2011-03-17 Thread Linda Mooney
Hi Lizette, 



There is information about IWsXml on Microsoft.com.  Just put IWsXml into the 
search once you get on the Microsoft site. 



HTH, 



Linda 



- Original Message - 
From: Lizette Koehler stars...@mindspring.com 
To: IBM-MAIN@bama.ua.edu 
Sent: Thursday, March 17, 2011 11:26:48 AM 
Subject: OT - Help on Windoze Installer 

I apologize for asking here, but I know some of you may be able to see what 
this is. 

I have a Windows installer (SETUP.EXE) function that gets an error during its 
process that says 

IWsXml not found.              I really could find nothing helpful in the 
internet with just IWsXml other something SOAP. 

I am not sure if it is part of SETUP.exe or if belongs to something else.  I 
have used this same setup.exe (same Disk I burned) on other PCs (WINXP SP03) 
without this error.  So I think it is specific to some software. 

If there is a better forum for this question, let me know where to go. 

Thanks 

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 

--
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: Why is WTO so much e asier to u se than be tter met ho ds?‏

2011-03-17 Thread McKown, John
 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of john gilmore
 Sent: Thursday, March 17, 2011 1:27 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Why is WTO so much e asier to u se than be tter metho ds?‏
 
 I hope it is now clear that WTO, with appropriate routing 
 code(s), can be made viable for testing use by novice HLASM 
 programmers, where 'viable' here means free of deleterious 
 side effects on system-console message traffic.  (The 
 literally illliterate sysprog who directed routing-code 11 
 outputs to a console is perhaps the real villain here. ) 

Even if it doesn't go to a physical console, it still clutters up my SYSLOG. 

  
 Had I realized just how little is generally known about 
 things like routing codes I should have expanded my treatment 
 of them in my post that first mentioned them.
  
 WTO remains a crude device per se.  It would not be my 
 choice, but a satisfactory infrastructure for debugging could 
 presumably be built using it.  The important point is that 
 every serious HLASM programmer needs such an infrastructure, 
 made or bought.  Ad hoc WTOs won't cut it. 

Complete agreement. Something as easy for an HLASM programmer to use as DISPLAY 
UPON SYSOUT is for a COBOL programmer.

 
 John Gilmore Ashland, MA 01721-1817 USA


--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets®

9151 Boulevard 26 • N. Richland Hills • TX 76010
(817) 255-3225 phone • 
john.mck...@healthmarkets.com • www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets® is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. –The Chesapeake Life Insurance 
Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA 
Life and Health Insurance Company.SM

 

--
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: MFNetDisk tape emulation code and request code

2011-03-17 Thread shai hess
HI,

 To the users who are testing the tape emulation.
 Please download the new MFNetDisk code from today (5 minutes ago).
 Dirty bugs were destroyed. I hope that only small number of bugs left.
 Thanks for helping me to find the bugs.

 Thanks,
 Shai

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


ASSIST assembler language

2011-03-17 Thread McKown, John
All this talk about the WTO and John Ashland's post about an infrastructure to 
support an easy way to do some primitive I/O got me to remembering. The old 
ASSIST assembler that I used back in college had a bunch of X instructions 
which were implemented as unused opcodes. They were simple and easy use. I 
think that I may just use them as a conceptual model for something equivalent 
in today's environment. Of course, it would not be via trapping an unused 
opcode, but in a more prosaic manner. But a bunch of simple to use macros. I 
even found some documentation for ASSIST at 
http://www.seasite.niu.edu/cs360/asusergd.htm . If I get it working, I'll 
submit it to the CBTTape. Might even see about making it reentrant, pure, 
threadsafe code (just to be buzzword compliant).

Does anybody know of any product which uses the @ sign as the leading character 
for its macros? I may want to use it instead of a leading X.

John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM


--
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: ASSIST assembler language

2011-03-17 Thread Dan Skomsky, PSTI
John;

I have been using ASSIST type X--- type I/O interfaces for over 30 years.
All the X-Pack macros issue funky CALL's to  subroutines to do the
real I/O.  From an application standpoint, the source code using the X
macros is identical between VSE and MVS.  All that is needed for execution
of the assembled and linked phases/load modules are the  I/O
subroutines.  I also have the  subroutines written using condition
assembly for VSE or MVS creation.  All in all, this makes assembler
programmers' lives easy.

The CBT tape file for ASSIST contains the pattern macros for the X-Pack.
These pattern macros will need some minor tweaking, but that's no big deal.

If you want the source for everything, let me know and I will email you a
.ZIP.

Dan...

PS:  I still use these macros and subroutines when playing around with
Assembler G on my MVS 3.8J system running under Hercules.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of McKown, John
Sent: Thursday, March 17, 2011 2:06 PM
To: IBM-MAIN@bama.ua.edu
Subject: ASSIST assembler language

All this talk about the WTO and John Ashland's post about an infrastructure
to support an easy way to do some primitive I/O got me to remembering. The
old ASSIST assembler that I used back in college had a bunch of X
instructions which were implemented as unused opcodes. They were simple and
easy use. I think that I may just use them as a conceptual model for
something equivalent in today's environment. Of course, it would not be via
trapping an unused opcode, but in a more prosaic manner. But a bunch of
simple to use macros. I even found some documentation for ASSIST at
http://www.seasite.niu.edu/cs360/asusergd.htm . If I get it working, I'll
submit it to the CBTTape. Might even see about making it reentrant, pure,
threadsafe code (just to be buzzword compliant).

Does anybody know of any product which uses the @ sign as the leading
character for its macros? I may want to use it instead of a leading X.

John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please
contact the sender by reply e-mail and destroy all copies of the original
message. HealthMarkets(r) is the brand name for products underwritten and
issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
Life Insurance Company(r), Mid-West National Life Insurance Company of
TennesseeSM and The MEGA Life and Health Insurance Company.SM


--
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: How to get the CPC name on which the current system is running

2011-03-17 Thread Jim Mulder
IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 03/17/2011 
10:28:25 AM:

 If by how I can get you mean via assembler or REXX ... Our 
 IEFACTRT exit's job summary includes the CPC name. We get it from 
 the ECVT control block (field ECVTHDNM). The ECVT is pointed to by 
 CVT + x'8c'. ECVTHDNM is at offset x'150' (see macro IHAECVT). 
 Adjacent fields also contain LPAR name and the VM userid of the 
 virtual machine (if the z/OS system is a guest).

 ECVTHDNM is not the same thing as the CPC name provided by
D M=CPU.


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

--
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: Why is WTO so much e asier to u se than be tter met ho ds?#8207;

2011-03-17 Thread Tom Marchant
On Thu, 17 Mar 2011 13:40:09 -0500, McKown, John wrote:

Even if it doesn't go to a physical console, it still clutters up my SYSLOG.

John,

Does your HARDCOPY include ROUT=11?

-- 
Tom Marchant

--
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: How to get the CPC name on which the current system is running

2011-03-17 Thread Jim Mulder
IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 03/17/2011 
09:40:13 AM:


I'm looking for areas in z/OS where I can get the CPC name that 
 the current system is running on.  The IPA is a possibility but 
 looks to be populated via LOADxx and we've had issues with the 
 HWNAME filtering causing problems with the CPC name.  I've looked at
 IBM's CSRSI service and they have a neat setup where you can request
 information at the CPC, LPAR, or VM level *OR* any combination of 
 the three.  However, in IBM's infinite wisdom it appears they left 
 the CPC name off the list of information returned via a CPC call 
 sigh.  They have a CPCNAME defined in the macro expansion but it 
 is an ORG of the LPARNAME and is in the LPAR area, not the CPC area 
 so it's not a matter of doing a single vs multiple call type.  Very 
 strange they would leave out the CPC name.  I've used the REXX 
 CONSOLE interface in the past to do a D M=CPU and then GETMSG to 
 retrieve it but I'd prefer not to use this method.
 
Does anyone know where the CPC name is obtained when D M=CPU is 
 issued or, barring that, another place I can get the CPC name?

  D M=CPU uses an undocumented internal interface to obtain the
CPC name.  Another BCP component also obtains the CPC name, but
saves it in an OCO control block. 

  There is also a BCPii module which uses this internal interface
to obtain the CPC name.  I don't know if this is just for BCPii's
internal use, or if it makes the CPC name available to BCPii users.

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

--
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: Why is WTO so much e asier to u se than be tter met ho ds?#8207;

2011-03-17 Thread McKown, John
 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Tom Marchant
 Sent: Thursday, March 17, 2011 2:46 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: Why is WTO so much e asier to u se than be tter 
 met ho ds?‏
 
 On Thu, 17 Mar 2011 13:40:09 -0500, McKown, John wrote:
 
 Even if it doesn't go to a physical console, it still 
 clutters up my SYSLOG.
 
 John,
 
 Does your HARDCOPY include ROUT=11?
 
 -- 
 Tom Marchant

Hum, I never even noticed that. I've got ROUTCODE(ALL) on it. I'll change that 
the next chance I get. I literally never even noticed it. Just copied what was 
has been there forever.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets®

9151 Boulevard 26 • N. Richland Hills • TX 76010
(817) 255-3225 phone • 
john.mck...@healthmarkets.com • www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets® is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. –The Chesapeake Life Insurance 
Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA 
Life and Health Insurance Company.SM

 

--
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: Why is WTO so much e asier to u se than be tter met ho ds?

2011-03-17 Thread Paul Gilmartin
On Thu, 17 Mar 2011 14:46:24 -0500, Tom Marchant wrote:

On Thu, 17 Mar 2011 13:40:09 -0500, McKown, John wrote:

Even if it doesn't go to a physical console, it still clutters up my SYSLOG.

John,

Does your HARDCOPY include ROUT=11?

I could see a conflict of conventions arising.  Some
programmers will want ROUT=11 to go to HARDCOPY; others
only to job log.  Whatever your current practice, if you
change it one faction will object.

-- gi

--
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: ASSIST assembler language

2011-03-17 Thread Linda Mooney
Hi John, 



Slick.  Sounds good.  By the way, ASSIST is also used for the Assembler Boot 
Camp at SHARE. 


Linda 



- Original Message - 
From: John McKown john.mck...@healthmarkets.com 
To: IBM-MAIN@bama.ua.edu 
Sent: Thursday, March 17, 2011 12:06:15 PM 
Subject: ASSIST assembler language 

All this talk about the WTO and John Ashland's post about an infrastructure to 
support an easy way to do some primitive I/O got me to remembering. The old 
ASSIST assembler that I used back in college had a bunch of X instructions 
which were implemented as unused opcodes. They were simple and easy use. I 
think that I may just use them as a conceptual model for something equivalent 
in today's environment. Of course, it would not be via trapping an unused 
opcode, but in a more prosaic manner. But a bunch of simple to use macros. I 
even found some documentation for ASSIST at 
http://www.seasite.niu.edu/cs360/asusergd.htm . If I get it working, I'll 
submit it to the CBTTape. Might even see about making it reentrant, pure, 
threadsafe code (just to be buzzword compliant). 

Does anybody know of any product which uses the @ sign as the leading character 
for its macros? I may want to use it instead of a leading X. 

John McKown 
Systems Engineer IV 
IT 

Administrative Services Group 

HealthMarkets(r) 

9151 Boulevard 26 * N. Richland Hills * TX 76010 
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com 

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM 


-- 
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: Why is WTO so much e asier to u se than be tter met ho ds?

2011-03-17 Thread McKown, John
 -Original Message-
 From: IBM Mainframe Discussion List 
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin
 Sent: Thursday, March 17, 2011 2:57 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Re: Why is WTO so much e asier to u se than be tter 
 met ho ds?
 
 On Thu, 17 Mar 2011 14:46:24 -0500, Tom Marchant wrote:
 
 On Thu, 17 Mar 2011 13:40:09 -0500, McKown, John wrote:
 
 Even if it doesn't go to a physical console, it still 
 clutters up my SYSLOG.
 
 John,
 
 Does your HARDCOPY include ROUT=11?
 
 I could see a conflict of conventions arising.  Some
 programmers will want ROUT=11 to go to HARDCOPY; others
 only to job log.  Whatever your current practice, if you
 change it one faction will object.
 
 -- gi

Hum, maybe so. We may have some vendor products which send their messages out 
to ROUT=11. I'll need to double check that. In any case it is a production 
change and so needs approval.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

--
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: How to get the CPC name on which the current system is running

2011-03-17 Thread Stan Weyman
  My guess would have been D M=CPU uses an undocumented area.  I've settled on 
using the ECVTHDNM and ECVTLPNM fields as they're part of the programming 
interface and should be more reliable than the fields in the IPA.

BPCII has many parts that are quite hidden and not documented.  Trying to 
get details out of IBM is fun.  The BCPii interface you are speaking of may be 
the one that returns the CPC name for a LOCALCPC query which doesn't require 
RACF authority to get to it.  You can also get the local LPAR name but after 
that you have to know what you are looking for before making the BCPii request

The response I got from IBM concerning CSRSI leads me to believe that the 
CPC Name (the 8 character name used to identify the CEC in HCD which is 
appended to the NETID value for the HMC network to form the value BCPii uses - 
netid.nau) is NOT part of the returned data from STSI (I'll have to get out the 
POPs to verify this one though - sigh)

Thanks to all who made suggestions to help me out here.  It was greatly 
appreciated
  
   Regards,
   Stan


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Jim Mulder
Sent: Thursday, March 17, 2011 3:50 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: How to get the CPC name on which the current system is running

IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 03/17/2011 
09:40:13 AM:


I'm looking for areas in z/OS where I can get the CPC name that 
 the current system is running on.  The IPA is a possibility but 
 looks to be populated via LOADxx and we've had issues with the 
 HWNAME filtering causing problems with the CPC name.  I've looked at
 IBM's CSRSI service and they have a neat setup where you can request
 information at the CPC, LPAR, or VM level *OR* any combination of 
 the three.  However, in IBM's infinite wisdom it appears they left 
 the CPC name off the list of information returned via a CPC call 
 sigh.  They have a CPCNAME defined in the macro expansion but it 
 is an ORG of the LPARNAME and is in the LPAR area, not the CPC area 
 so it's not a matter of doing a single vs multiple call type.  Very 
 strange they would leave out the CPC name.  I've used the REXX 
 CONSOLE interface in the past to do a D M=CPU and then GETMSG to 
 retrieve it but I'd prefer not to use this method.
 
Does anyone know where the CPC name is obtained when D M=CPU is 
 issued or, barring that, another place I can get the CPC name?

  D M=CPU uses an undocumented internal interface to obtain the
CPC name.  Another BCP component also obtains the CPC name, but
saves it in an OCO control block. 

  There is also a BCPii module which uses this internal interface
to obtain the CPC name.  I don't know if this is just for BCPii's
internal use, or if it makes the CPC name available to BCPii users.

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

--
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: ASSIST assembler language

2011-03-17 Thread David Andrews
On Thu, 2011-03-17 at 15:06 -0400, McKown, John wrote:
 The old ASSIST assembler that I used back in college

I remember a cohort trying ASSIST exactly once when I was an undergrad.
He pushed through a utility that contained an SVC 13, which failed
with a privileged op exception.  Rolling our eyes, we binned the
ASSIST JCL and never used it again.

 Does anybody know of any product which uses the @ sign as the leading
 character for its macros?

IDMS is one.

-- 
David Andrews
A. Duda  Sons, Inc.
david.andr...@duda.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: ASSIST assembler language

2011-03-17 Thread David Andrews
Replying to my own posts again.  Bad form, I know.

On Thu, 2011-03-17 at 16:20 -0400, David Andrews wrote:
 He pushed through a utility that contained an SVC 13

Finger check: that should have been SVC 3.  (Guess I don't blame
ASSIST for not knowing about it, but privileged?)

-- 
David Andrews
A. Duda  Sons, Inc.
david.andr...@duda.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: Why is WTO so much e asier to u se than be tter met ho ds?‏

2011-03-17 Thread Kirk Wolf
2011/3/17 McKown, John john.mck...@healthmarkets.com:
 -Original Message-
 From: IBM Mainframe Discussion List
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of john gilmore
 Sent: Thursday, March 17, 2011 1:27 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Why is WTO so much e asier to u se than be tter metho ds?‏


 Complete agreement. Something as easy for an HLASM programmer to use as 
 DISPLAY UPON SYSOUT is for a COBOL programmer.

I tend to implement logging in assembler code using:  CALL BPX1WRT(2, ...)

This does cause your process to be dubbed, but all of my code is
dubbed anyway.
FD=2 is stderr, which by default goes to the default LE message file
(SYSOUT) if you are, for example running in a regular batch job.   But
your assembler code doesn't need to be LE conforming.

But this isn't a good option if you can't have your code dubbed.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

PS FWIW, it is pretty easy to implement a callable routine in Metal-C
that would give assembler programmers a printf.   You don't even
need a C/LE runtime.

--
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: Why is WTO so much e asier to u se than be tter met ho ds?

2011-03-17 Thread Tom Marchant
On Thu, 17 Mar 2011 15:04:05 -0500, McKown, John wrote:

 Does your HARDCOPY include ROUT=11?
 
 I could see a conflict of conventions arising. 

Hum, maybe so. We may have some vendor products which send 
their messages out to ROUT=11. I'll need to double check that. In 
any case it is a production change and so needs approval.

I know that we (Abend-AID) use ROUTCDE=11 on our WTO messages. 
We really just intend them to go to the joblog though.

I see that IBM issues quite a few messages to ROUTCDE=11 too. 
Before you change it, look for ROUTCDE=11 in your syslog.

You could pick one of the customer use codes from the 13-20 range 
and keep it off of all consoles and hardcopy.

-- 
Tom Marchant
Abend-AID development
Compuware

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


Why is WTO so much easier to use than better methods?

2011-03-17 Thread Hunt, Bruce
Thanks Barry for the comments. But because of the spirited conversation that 
came out of it, I am glad I had the WTO this time and will try to stay away 
from it in the future. Hopefully I can use your other comments to greatly 
improve my program. On the humorous side, you still have operators. We have not 
had those for years. 

I am glad you did not notice I wimped out and put the multi-segment logic in a 
COBOL program that followed the JCL. Maybe I could take the assembler listing 
from the cobol compile and add it to my assembler code like I coded it. I did 
try to work with binary and packed formatted field so my cobol program did not 
spend all its time converting from binary to packed to decimal.   

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Schwarz, Barry A
Sent: Wednesday, March 16, 2011 2:03 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Trouble Reading a Spanned File with an Assembler Program - Working 
Program

Save areas should be chained in both directions.

A comment that simply repeats the code serves only to clutter the listing.

Other than BADOPEN, you never call any of the error routines.

Why two symbols (BATA and OUTREC) for the exact same area of memory.

You include the RDW and segment data in the output record.

You don't process the segment data at all.  If a logical record actually spans 
segments you will never detect it.  You will also produce multiple records in 
the output instead of combining the segments into a single record.

Why do you use routing code 2 which is designed to alert the operator to a 
change in system status for what amounts to an internal problem in your job?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Hunt, Bruce
Sent: Tuesday, March 15, 2011 2:38 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Trouble Reading a Spanned File with an Assembler Program - Working 
Program

Thanks again for everyone's help. If anyone cares, here is the assembler 
program that reads the spanned file and creates a fixed length 136 byte file 
padded with blanks where necessary. I don't claim to be the best assembler 
programmer. I hope that worked in my favor in keeping it simple. But I am 
definitely up for constructive criticism.

I am including the JCL and 2 more programs (a cobol and a rexx). This is the 
reason I took so long to get back with this. Sorry if this is too much 
information.

===
 TITLE 'XP1000'
*
* 02/25/11  B HUNT   CHANGED A SPANNED FILE TO A FIXED FILE
*
XP1000   AMODE 24
XP1000   RMODE 24
XP1000   START
 COPY  EQUATES
 SAVE  (14,12) SAVE REGISTERS 14 THRU 12
 BASR  BASE1,0 ESTABLISH ADDRESSABILITY
 USING *,BASE1 PROVIDE BASE ID
 STRD,SAVEAREA+4   STORE PREV REG 13 IN SAVEAREA +4
 LARD,SAVEAREA LOAD SAVEREA IN REG 13
 B BEGIN
 SPACE 1
 DS0D
 DCCL8'XP1000'
 DCCL8'SYSDATE'
 DCCL8'SYSTIME'
 SPACE 1
BEGINDS0H
 USING DATA,R8 ASSOCIATE DATA WITH REG 8
 OPEN  (INFILE,(INPUT),OUTFILE,(OUTPUT)) OPEN FILES
 LTR   RF,RF   CHECK FOR GOOD OPEN
 BNZ   BADOPEN IF BAD OPEN BRANCH TO BADOPEN
LOOP DS0H  PROCESS LOOP
 GET   INFILE  READ INPUT FILE
 LRR8,R1   LOAD INPUT ADDRESS IN REG 8
 XCFWLEN,FWLEN SET FULL WORD LENGTH TO ZERO
 MVC   HWLEN,DATA  GET THE RECORD LENGTH FROM DATA
 MVI   FWLEN,C' '  USE A BLANK TO PAD OUTREC-MVCL
 L R9,FWLENLOAD THE INPUT LENGTH IN REG 9
 LAR6,BATA LOAD THE OUTPUT ADDRESS IN REG 6
 LAR7,136  LOAD THE OUT LENGTH IN REG 7
 MVCL  R6,R8   MOVE DATA TO BATA W/ BLANK PAD
WRITEDS0H
 PUT   OUTFILE,OUTREC  WRITE OUTREC
 B LOOP
FINALDS0H
 CLOSE (INFILE,,OUTFILE)
 B C100
BADOPEN  WTO   ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7)
 B C100
BADREAD  WTO   ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7)
 B C100
BADSEG   WTO   ' SEGMENTS NOT SEQUENTIAL ',ROUTCDE=(2),DESC=(7)
 B C100
BADWRITE WTO   ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7)
 B C100
C100 DS0H
 L RD,SAVEAREA+4
 RETURN (14,12)RESTORE REGISTERS AND RETURN
INFILE   DCB   DSORG=PS,RECFM=VBS,MACRF=GL,+
   DDNAME=INDD,EODAD=FINAL
OUTFILE  DCB   DSORG=PS,RECFM=FB,LRECL=136,MACRF=PM,   +
   DDNAME=OUTDD
OUTREC   DS0CL136
BATA DSCL136

Re: ASSIST assembler language

2011-03-17 Thread Kirk Wolf
David,
I think that the strength of ASSIST was largely in what it didn't
allow you to do :-)

I recall using ASSIST and the other Waterloo interpreters as an
undergrad also.   At the time, it was a big university and a majority
of the undergrad programming classes used these interpreters as a
cheap way of pushing jobs through MVS.   They had written their own
nifty subsystem that worked such that you just put a jobcard with your
account and a special jobclass and then all of the other input was
read in by one of the subsystem tasks which already had the Fortran,
Assist, COBOL and PL/1 checkout interpreters loaded and serially
reusable.   They were able to spin many thousands of jobs through the
system each day with very little overhead and more importantly they
could sand box the impact of a student job on a system that was
shared by *many* other users.

Students would use card readers and later 3270s with CMS to submit
their jobs and get output.   It all worked reasonably well.

Of course, ASSIST is useless once you need to work with system
interfaces, but it was a good tool for a first semester class in
assembler programming.   The same university had several really great
upper level assembler / system classes that covered JCL/Utilities,
real assembler + access methods + writing channel programs using XDAP,
and even a class where we wrote parts of a standalone OS that we
developed and tested under VM/CMS.I don't remember any of my other
undergraduate classes having near the long term usefulness :-)

Today, though, I would think that Don Higgins z390 Assembler and
emulator would be better than ASSIST for universities offering a first
class in assembler.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On Thu, Mar 17, 2011 at 3:29 PM, David Andrews d...@lists.duda.com wrote:
 Replying to my own posts again.  Bad form, I know.

 On Thu, 2011-03-17 at 16:20 -0400, David Andrews wrote:
 He pushed through a utility that contained an SVC 13

 Finger check: that should have been SVC 3.  (Guess I don't blame
 ASSIST for not knowing about it, but privileged?)

 --
 David Andrews
 A. Duda  Sons, Inc.
 david.andr...@duda.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


--
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: Why is WTO so much e asier to u se than b e tter met ho ds?‏

2011-03-17 Thread Scott Ford
John I agree with Kirk The Assembler code doesnt even have to be LE compliant. 
You can code a Metal C routine and with the right calling conventions call it 
from
Assembler. Its not bad considering, I think the big issue is some of the 
documentation is so so, but lately it seems documentation is suffering, IMHO.
 
Scott J Ford
 





From: Kirk Wolf k...@dovetail.com
To: IBM-MAIN@bama.ua.edu
Sent: Thu, March 17, 2011 4:40:41 PM
Subject: Re: Why is WTO so much e asier to u se than be tter met ho ds?‏

2011/3/17 McKown, John john.mck...@healthmarkets.com:
 -Original Message-
 From: IBM Mainframe Discussion List
 [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of john gilmore
 Sent: Thursday, March 17, 2011 1:27 PM
 To: IBM-MAIN@bama.ua.edu
 Subject: Why is WTO so much e asier to u se than be tter metho ds?‏


 Complete agreement. Something as easy for an HLASM programmer to use as 
 DISPLAY 
UPON SYSOUT is for a COBOL programmer.

I tend to implement logging in assembler code using:  CALL BPX1WRT(2, ...)

This does cause your process to be dubbed, but all of my code is
dubbed anyway.
FD=2 is stderr, which by default goes to the default LE message file
(SYSOUT) if you are, for example running in a regular batch job.  But
your assembler code doesn't need to be LE conforming.

But this isn't a good option if you can't have your code dubbed.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

PS FWIW, it is pretty easy to implement a callable routine in Metal-C
that would give assembler programmers a printf.  You don't even
need a C/LE runtime.

--
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: Why is WTO so much e asier to u se than b e tter met ho ds?â

2011-03-17 Thread Paul Gilmartin
On Thu, 17 Mar 2011 16:51:49 -0700, Scott Ford wrote:

 ... I think the big issue is some of the 
documentation is so so, but lately it seems documentation is suffering, IMHO.

It appears that in the race to match the competion in features
IBM has sacrificed its tradition of surpassing the competition
in quality of documentation.

-- gil

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


Re: How to get the CPC name on which the current system is running

2011-03-17 Thread Gerhard Postpischil

On 3/17/2011 10:33 AM, Martin Packer wrote:

When I speak to customers using their RMF data I use the serial number to
denote the machine but THEY often go oh, that's 'Flossie' but there's
nowhere I know of to tell the machine what it's called. :-)

Martin (not anthropomorphising computers as I gather they don't like it)
:-)


When IBM first issued the 360 line, each device and controller 
had a three position tag, and the C.E.s had peel and stick 
sheets with hexadecimal numbers, used to indicate the UCB name 
of the equipment. We liberated some of these and personalized 
the CPUs as 0AF, BAD, and similar. Some were compromises, such 
as A55. g   None of our machines ever objected G



Gerhard Postpischil
Bradford, VT

--
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: ASSIST assembler language

2011-03-17 Thread W. Kevin Kelley
On Thu, 17 Mar 2011 18:16:49 -0500, Kirk Wolf k...@dovetail.com wrote:


I recall using ASSIST and the other Waterloo interpreters 


ASSIST was created by John Mashie at The Pennsylvania State University -- 
it did not come out of Waterloo.

W. Kevin Kelley -- IBM POK Lab -- z/OS Core Technical Development
PSU '74
 

--
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: DB2 V10 Compatibility and Older z/OS Levels............

2011-03-17 Thread Baron Carter
Have you also considered the hardware requirements:
DB2 10 operates on System z or equivalent processors that are running in 64-
bit mode with z/OS V1.10.00, or later. These processors include zEnterprise 
196 (z196), z10, z9, z990, z890, and later processors that are supported by 
z/OS V1.10.00.

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