date:20110406

Announcement for hlasm.com

2011-04-06 Thread Abe F. Kornelis


All,

I have just finished three updates to the hlasm.com site:
- Various product descriptions changed / added on the products page at
  http://www.hlasm.com/english/products/htm. Dutch version at
  http://www.hlasm.com/hollands/products.htm. 
  If you have a product or service that you think is valuable in the

  assembler programming arena, please let me know.
- IBM have renamed their 
 Set-Program-Parameter and CPU-Measurement Facilities

 to Load-Program-Parameter and CPU-Measurement Facilities
 Some of the mnemonics have been renamed accordingly.
 New mnemonics added
- IBM have renamed some of the Load- and Store-on-Condition
 menmonics. The old ones were missing and have been added.
 The charts are at http://www.hlasm.com/english/opcd00.htm
 and the lists are at http://www.hlasm.com/english/opl_bbbm.htm

Kind regards to all,
Abe Kornelis.
==

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

No LUs available

2011-04-06 Thread jagadishan perumal

Hi,

In our shop many users are not able to connect the Mainframe. While doing
telnet they get an error saying " NO LUs available please try again later".
we have checked the TSO region and it is very well running.

Any idea to resolve.

Regards,
Jags

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email 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: No LUs available

2011-04-06 Thread SAURABH KHANDELWAL

Please check definition of  TSO major node in your VTAMLST.  Or if you 
can paste it here, we will be able to get some more detail on that.



Regards
Saurabh

On 4/6/2011 12:43 PM, jagadishan perumal wrote:

Hi,

In our shop many users are not able to connect the Mainframe. While doing
telnet they get an error saying " NO LUs available please try again later".
we have checked the TSO region and it is very well running.

Any idea to resolve.

Regards,
Jags

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

out of the office

2011-04-06 Thread Steve Schwaller

I will be out of the office starting  04/05/2011 and will not return until
04/07/2011.

If you need assistance prior to then please contact Ryan Evans at
216-471-2669.


This communication may contain privileged and/or confidential information. It
is intended solely for the use of the addressee. If you are not the intended
recipient, you are strictly prohibited from disclosing, copying, distributing
or using any of this information. If you received this communication in error,
please contact the sender immediately and destroy the material in its entirety,
whether electronic or hard copy. This communication may contain nonpublic 
personal
information about consumers subject to the restrictions of the 
Gramm-Leach-Bliley Act. You may not directly or indirectly reuse or redisclose
such information for any purpose other than to provide the services for which
you are receiving the information.

127 Public Square, Cleveland, OH 44114




If you prefer not to receive future e-mail offers for products or services from 
Key 
send an e-mail to mailto:dnereque...@key.com with 'No Promotional E-mails' in 
the 
SUBJECT line.

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

Re: ADRDSSU issue

2011-04-06 Thread Gonzalo Cengotita

The error with the IODF (ADR468E) looks like it was caused by the lack of
PROCESS(SYS1) parameter.
On the other hand, the parameter for copying VSAM properly  is SPHERE.

I copied your last try and it worked ok for me. Maybe the last  "//*" is not
at the column 1?. I would delete it and try again
I usually copy VSAM and nonVSAM at the same time with SPHERE with no
problem.

On Wed, Apr 6, 2011 at 7:47 AM, SAURABH KHANDELWAL <
saurabh.khandel...@oracle.com> wrote:

> No, I am not using any parameter for coping VSAM dataset. I was asking you
> to suggest me , if you have idea about any parameter, which can be useful
> for coping VSAM dataset.
>
>
> Regards
> Saurabh Khandelwal
>
>
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email 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: mainframe fresher

2011-04-06 Thread Linda Mooney

Hi Steve, 

You are right, many think that mainframes are already gone.  While at SHARE in 
Anaheim, I was on the elevator, with a young couple.  The man saw my SHARE 
badge, remarked that he had seen lots of them and asked what SHARE is.  I 
explained.  Turns out he is an IT professional on the distributed side.  He 
remembered seeing that IBM commercial a few years back, the one where all of 
the servers have been "stolen", but he thought that IBM had switched over to 
only making servers now. I told him a bit about the z196.  When I told him that 
I had not needed to "reboot" my z800 server in over a year and the the last 
unplanned outage was caused by a whole building power outage a couple of years 
ago, he was amazed.  Then he questioned security.  We have a service that does 
penetration testing on a regular basis.  When it was first brought in, all 
groups were given 3 weeks to harden their systems.  We did no prep - the only 
group not to. The mainframe was  the only system that wasn't penetrated.  I 
gave him my card, told him a bit about zNextGen, and said that he might 
consider a day pass for SHARE and check it out.  I don't know if he did or not. 

The fact is, in my shop, the distributed server folks deal with problems not 
heard of on the mainframe.  When was the last time somebody had to rebuild and 
reintall z/OS because the system crashed and corrupted the OS files?  

Linda 

- Original Message - 
From: "Steve Comstock"  
To: IBM-MAIN@bama.ua.edu 
Sent: Monday, April 4, 2011 7:44:42 AM 
Subject: Re: mainframe fresher 

On 4/4/2011 7:20 AM, Przemyslaw Kupisz wrote: 
> Hello, 
> 
> It's unbelievably difficult to find a mainframe job with my current 
> professional experience so I decided to write this mail as my last try 
> to remain in the mainframe world. 
> 
> If you are looking a guy with my skills and knowledge please write me a 
> message. 
> 
> For more details please follow the link in my signature. 
> 
> Thanks for your time. 
> 

Follow the link he supplies. He looks like a bright young 
man, the kind we want to sustain our favorite platform 
- but he can't find a job. And we on this list know he is 
not alone. 

This is the kind of reality we face if we don't, 
collectively and individually, take positive actions. 

Promote z/OS, get current ourselves, tell the stories of cool 
things you can do in z/OS. If we (and especially IBM and 
the re-marketeers like Mainline and all the ISVs) don't win 
the hearts and minds of young management, and even people 
outside of the business ("Are they still making mainframes?"), 
then how can you tell your children to look for a career in 
mainframes? 

There are things every one of us can do, but we tend to let 
it slide, let it get done by others: it's not my job. But 
it is your job, literally, that's on the line. 

How long will your career last? Some say it's already too 
late. And maybe they are right. But I like to think there is 
still some extended potential for z/OS. But we each have to 
take on some responsibility for promoting awareness and 
appreciation of z/OS, or the window will shut all the way. 
Then we all lose. 

-- 

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 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email 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: No LUs available

2011-04-06 Thread Ted MacNEIL

>In our shop many users are not able to connect the Mainframe.
>While doing telnet they get an error saying " NO LUs available please try 
>again later".
>we have checked the TSO region and it is very well running.

>Any idea to resolve.

No LUs means no LUs.
Tell your communications SYSPROGs.
-
Ted MacNEIL
eamacn...@yahoo.ca

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email 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: Reason code 83000505 from Binder API call

2011-04-06 Thread Rob Scott

I would imagine that the owner of the module bound with EDIT=NO was doing for 
security/integrity reasons - they most likely do not want anyone to re-link the 
module and interfere with the order/sequencing or replace any of the CSECTs.

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


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Dave Day
Sent: 05 April 2011 23:26
To: IBM-MAIN@bama.ua.edu
Subject: Reason code 83000505 from Binder API call

I'm using the Binder API to map load modules.  Getting an 83000505 from an 
include for a load module.  The reason code explanation says

 83000505 INCLUDE  Included module 
marked NOT-EDITABLE and   has been bypassed.



Can someone give me a reasonable explanation why a load module would be 
bound with EDIT=NO?  Is there a way to map a load module using Binder API if it 
is marked such?   Thanks in advance for taking a look at this, and any help 
provided.

--Dave Day 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email 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: ADRDSSU issue

2011-04-06 Thread SAURABH KHANDELWAL

I am using below JCL and this also not able to backup VSAM dataset. I am 
getting same error.


JCL

//DUMPUP01  JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
//  NOTIFY=&SYSUID
//STEP2 EXEC  PGM=ADRDSSU,REGION=4M ,PARM='TYPRUN=NORUN'
//SYSPRINT  DD  SYSOUT=*
//INVOL1DD  VOL=SER=DMTCAT,UNIT=3390,DISP=SHR
//OUTVOL1   DD  VOL=SER=RES001,UNIT=3390,DISP=SHR
//SYSIN DD  *
  COPY DATASET(INCLUDE(**)  -
   EXCLUDE(SYS1.VTOCIX.** -
   SYS1.VVDS.** -
   SYSUCAT.** -
   OMVS.**-
   MVSSMP*.** -
   )) -
   LOGINDDNAME(INVOL1) -
   ALLDATA(*)  -
   ALLEXCP -
   CANCELERROR -
   BYPASSACS(**) -
   FORCE -
   NULLMGMTCLAS  -
NULLSTORCLAS  -
OUTDDNAME(OUTVOL1)   -
PERCENTUTILIZED(100) -
PROCESS(SYS1) -
REPLACE -
SHARE -
SPHERE -
TGTALLOC(SOURCE) -
TOLERATE(ENQFAILURE) -
ADMINISTRATOR

O/P


0ADR455W (001)-DDDS (01), THE FOLLOWING DATA SETS WERE NOT SUCCESSFULLY 
PROCESSE

0  CENTER.HFS
0  DFHSM.BCDS
0  DFHSM.MCDS
0  DFHSM.OCDS
0  IPCS.DATASET.DIRECTRY
0  IPCS.PROBLEM.DIRECTRY
0  PAGE.TESTMVS.COMMON
0  PAGE.TESTMVS.LOCAL
0  PAGE.TESTMVS.PLPA
1PAGE 0009 5695-DF175  DFSMSDSS V1R09.0 DATA SET SERVICES 
2011.096 07:50

-  SYS1.ENULANG


Regards
Saurabh

On 4/6/2011 1:36 PM, Gonzalo Cengotita wrote:

The error with the IODF (ADR468E) looks like it was caused by the lack of
PROCESS(SYS1) parameter.
On the other hand, the parameter for copying VSAM properly  is SPHERE.


I copied your last try and it worked ok for me. Maybe the last  "//*" is not
at the column 1?. I would delete it and try again
I usually copy VSAM and nonVSAM at the same time with SPHERE with no
problem.





On Wed, Apr 6, 2011 at 7:47 AM, SAURABH KHANDELWAL<
saurabh.khandel...@oracle.com>  wrote:


No, I am not using any parameter for coping VSAM dataset. I was asking you
to suggest me , if you have idea about any parameter, which can be useful
for coping VSAM dataset.


Regards
Saurabh Khandelwal




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email 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: ADRDSSU issue

2011-04-06 Thread jagadishan perumal

Hi,

Can you check if the target volume has enough space ??

On Wed, Apr 6, 2011 at 1:55 PM, SAURABH KHANDELWAL <
saurabh.khandel...@oracle.com> wrote:

> I am using below JCL and this also not able to backup VSAM dataset. I am
> getting same error.
>
> JCL
>
>
> //DUMPUP01  JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
> //  NOTIFY=&SYSUID
> //STEP2 EXEC  PGM=ADRDSSU,REGION=4M ,PARM='TYPRUN=NORUN'
> //SYSPRINT  DD  SYSOUT=*
> //INVOL1DD  VOL=SER=DMTCAT,UNIT=3390,DISP=SHR
> //OUTVOL1   DD  VOL=SER=RES001,UNIT=3390,DISP=SHR
> //SYSIN DD  *
>  COPY DATASET(INCLUDE(**)  -
>   EXCLUDE(SYS1.VTOCIX.** -
>
>   SYS1.VVDS.** -
>   SYSUCAT.** -
>   OMVS.**-
>   MVSSMP*.** -
>   )) -
>   LOGINDDNAME(INVOL1) -
>   ALLDATA(*)  -
>   ALLEXCP -
>   CANCELERROR -
>   BYPASSACS(**) -
>   FORCE -
>   NULLMGMTCLAS  -
>NULLSTORCLAS  -
>OUTDDNAME(OUTVOL1)   -
>PERCENTUTILIZED(100) -
>PROCESS(SYS1) -
>REPLACE -
>SHARE -
>SPHERE -
>TGTALLOC(SOURCE) -
>TOLERATE(ENQFAILURE) -
>ADMINISTRATOR
>
> O/P
>
>
> 0ADR455W (001)-DDDS (01), THE FOLLOWING DATA SETS WERE NOT SUCCESSFULLY
> PROCESSE
> 0  CENTER.HFS
> 0  DFHSM.BCDS
> 0  DFHSM.MCDS
> 0  DFHSM.OCDS
> 0  IPCS.DATASET.DIRECTRY
> 0  IPCS.PROBLEM.DIRECTRY
> 0  PAGE.TESTMVS.COMMON
> 0  PAGE.TESTMVS.LOCAL
> 0  PAGE.TESTMVS.PLPA
> 1PAGE 0009 5695-DF175  DFSMSDSS V1R09.0 DATA SET SERVICES 2011.096
> 07:50
> -  SYS1.ENULANG
>
>
> Regards
> Saurabh
>
>
> On 4/6/2011 1:36 PM, Gonzalo Cengotita wrote:
>
>> The error with the IODF (ADR468E) looks like it was caused by the lack of
>> PROCESS(SYS1) parameter.
>> On the other hand, the parameter for copying VSAM properly  is SPHERE.
>>
>>
>> I copied your last try and it worked ok for me. Maybe the last  "//*" is
>> not
>> at the column 1?. I would delete it and try again
>> I usually copy VSAM and nonVSAM at the same time with SPHERE with no
>> problem.
>>
>>
>>
>>
>>
>> On Wed, Apr 6, 2011 at 7:47 AM, SAURABH KHANDELWAL<
>> saurabh.khandel...@oracle.com>  wrote:
>>
>> No, I am not using any parameter for coping VSAM dataset. I was asking you
>>> to suggest me , if you have idea about any parameter, which can be useful
>>> for coping VSAM dataset.
>>>
>>>
>>> Regards
>>> Saurabh Khandelwal
>>>
>>>
>>>
>>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
>> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>

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

Re: ADRDSSU issue

2011-04-06 Thread SAURABH KHANDELWAL

I have enough space available in target volume. Also if it is space 
issue, I should have got  abend code 37 .


Also, I tried coping other volume as well, where I had VASAM dataset and 
got same error.


Regards
Saurabh Khandelwal

On 4/6/2011 2:26 PM, jagadishan perumal wrote:

Hi,
Can you check if the target volume has enough space ??

On Wed, Apr 6, 2011 at 1:55 PM, SAURABH KHANDELWAL 
mailto:saurabh.khandel...@oracle.com>> 
wrote:


I am using below JCL and this also not able to backup VSAM
dataset. I am getting same error.

JCL


//DUMPUP01  JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
//  NOTIFY=&SYSUID
//STEP2 EXEC  PGM=ADRDSSU,REGION=4M ,PARM='TYPRUN=NORUN'
//SYSPRINT  DD  SYSOUT=*
//INVOL1DD  VOL=SER=DMTCAT,UNIT=3390,DISP=SHR
//OUTVOL1   DD  VOL=SER=RES001,UNIT=3390,DISP=SHR
//SYSIN DD  *
 COPY DATASET(INCLUDE(**)  -
  EXCLUDE(SYS1.VTOCIX.** -

  SYS1.VVDS.** -
  SYSUCAT.** -
  OMVS.**-
  MVSSMP*.** -
  )) -
  LOGINDDNAME(INVOL1) -
  ALLDATA(*)  -
  ALLEXCP -
  CANCELERROR -
  BYPASSACS(**) -
  FORCE -
  NULLMGMTCLAS  -
   NULLSTORCLAS  -
   OUTDDNAME(OUTVOL1)   -
   PERCENTUTILIZED(100) -
   PROCESS(SYS1) -
   REPLACE -
   SHARE -
   SPHERE -
   TGTALLOC(SOURCE) -
   TOLERATE(ENQFAILURE) -
   ADMINISTRATOR

O/P


0ADR455W (001)-DDDS (01), THE FOLLOWING DATA SETS WERE NOT
SUCCESSFULLY PROCESSE
0  CENTER.HFS
0  DFHSM.BCDS
0  DFHSM.MCDS
0  DFHSM.OCDS
0  IPCS.DATASET.DIRECTRY
0  IPCS.PROBLEM.DIRECTRY
0  PAGE.TESTMVS.COMMON
0  PAGE.TESTMVS.LOCAL
0  PAGE.TESTMVS.PLPA
1PAGE 0009 5695-DF175  DFSMSDSS V1R09.0 DATA SET SERVICES
2011.096 07:50

-  SYS1.ENULANG


Regards
Saurabh


On 4/6/2011 1:36 PM, Gonzalo Cengotita wrote:

The error with the IODF (ADR468E) looks like it was caused by
the lack of
PROCESS(SYS1) parameter.
On the other hand, the parameter for copying VSAM properly  is
SPHERE.


I copied your last try and it worked ok for me. Maybe the last
 "//*" is not
at the column 1?. I would delete it and try again
I usually copy VSAM and nonVSAM at the same time with SPHERE
with no
problem.





On Wed, Apr 6, 2011 at 7:47 AM, SAURABH KHANDELWAL<
saurabh.khandel...@oracle.com
>  wrote:

No, I am not using any parameter for coping VSAM dataset.
I was asking you
to suggest me , if you have idea about any parameter,
which can be useful
for coping VSAM dataset.


Regards
Saurabh Khandelwal



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


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




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

Re: coax (3174) throughput

2011-04-06 Thread R.S.

W dniu 2011-04-06 03:16, Scott Ford pisze:

Two things to consider is this a 3174 attached to a cha
Radoslaw:

Two things to consider is this a 3174 attached to a channel , i.e.; Bus/Tag or
attached to a FEP(37xx), the transfer will bottleneck to its slowest device,
i.e.; a modem being slower than a mainframe channel ...

Yes, however my curiosity is related only to coax port - coax port
"channel". In this scope any other bottleneck does not apply. Of course
in real word the weakest link of chain is the most important.
BTW: 3174 can be channel-attached, and I guess that ESCON is not a
bottleneck for coax, even 32 of them.

--
Radoslaw Skorupka
Lodz, Poland

--
Treść tej wiadomości może zawierać informacje prawnie chronione Banku
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie
jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem
niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania
adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie
lub inne działanie o podobnym charakterze jest prawnie zabronione i może być
karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie
zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość
włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

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

BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax
+48 (22) 829 00 33, e-mail: i...@brebank.pl
Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, nr rejestru przedsiębiorców KRS 025237, NIP: 526-021-50-88.
Według stanu na dzień 01.01.2011 r. kapitał zakładowy BRE Banku SA (w całości wpłacony) wynosi 168.346.696 złotych.

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

REXX INCLUDE ?

2011-04-06 Thread Miklos Szigetvari


Hi

Some REXX questions:

Any kind of REXX INCLUDE feature i.e include a REXX "copybook"  ?
We need some large "initialized" data areas,  stems.
What is the  best or  fastest way to do this?

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

2011-04-06 Thread Rob Scott

Many moons ago when I was a sysprog, I wrote a couple of REXX external 
functions in assembler called "STEMPUSH" and "STEMPULL" that allow you to pass 
REXX stems between execs in the same address space. It does this by placing the 
REXX variable name and value into a dataspace "stack" and then you pass the 
dataspace "token" as a parameter between the execs (STEMPUSH places items on 
the stack and STEMPULL retrieves them). 

As far as I know the code still works and you can find it on the CBT tape 
website (www.cbttape.org).  

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


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Miklos Szigetvari
Sent: 06 April 2011 11:01
To: IBM-MAIN@bama.ua.edu
Subject: REXX INCLUDE ?

 Hi

Some REXX questions:

Any kind of REXX INCLUDE feature i.e include a REXX "copybook"  ?
We need some large "initialized" data areas,  stems.
What is the  best or  fastest way to do this?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email 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: Floating point assembler code

2011-04-06 Thread Don Poitras

I gave up TSO TEST for ASMIDF years ago. Give it try.


In article  you wrote:
> On Tue, 5 Apr 2011 15:36:24 -0400, Tony Harminc  
> wrote:

> >
> >I too continue to use TSO TEST for certain things, and indeed it would
> >be a very good thing if they would add just a few little updates:
> >
> >Better floating point support, as you suggest
> >
> >Access register support
> >
> >64-bit GPR support
> >
> >64-bit indirection (the IPCS syntax would be consistent)
> >
> >TEST (and other TSO components) are extra frustrating because however
> >dead-ended TSO may be, there *are* updates going on, but they never
> >seem to take the opportunity to make minor enhancements while they
> >have a module open for other purposes. Yeah, I know - internal
> >politics, time & budget allocation, and so on. But most development
> >labs manage to sneak in a few enhancements under the RADAR from time
> >to time.
> >

> Yes, I've discussed some of those with the TSO guy. The basic problem with 
> all of them seems to be that they hit the TSO TEST register save and restore 
> processing and that is non-trivial to upgrade plus its hard to do piecemeal.

> I've done a fair amount of AMODE(64) testing on TEST and it seems to run 
> AMODE(64) stuff just fine; its just that you can't see the addresses when 
> they're in registers...  :-(

> Writing the code is the easy part; its getting the resources to thoroughly 
> test 
> what you've written that stops you dead in your tracks.

> W. Kevin Kelley -- IBM POK Lab -- z/OS Core Technical Development
>  

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

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email 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: Weird Reply Fragments (Was: Re: Mainframe Fresher)

2011-04-06 Thread Walter Marguccio

> I use YAHOO (.ca), and that has
>> My first guess would be yahoo.


> I use YAHOO (.ca), and that has never happened with my posts.

I use yahoo.com, and I also see strange fragments when I reply to every 
ibm-main 
post.

One other problem I have occurs when I want to write to the listserv to, say, 
temporarily
disable receiving posts. A simple e-mail with SET IBM-MAIN NOMAIL in the body 
of 
the message
is rejected by listserv, because the latter reads some strange chinese 
characters instead of my
simple text. I'm not kidding. 

I wonder if Scott gets the same results trying to send a command to list serv.

Walter Marguccio
z/OS Systems Programmer
BELENUS LOB Informatic GmbH
Munich - Germany

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

2011-04-06 Thread Sambataro, Anthony (NIH/CIT) [E]

The REXX compiler offers an %INCLUDE statement. 

You can initialize an entire stem variable quickly, for example:

stem. = 0   
stem.0 = 10

Will create a stem variable of 10 elements all with a value of zero.

-Original Message-
From: Miklos Szigetvari [mailto:miklos.szigetv...@isis-papyrus.com] 
Sent: Wednesday, April 06, 2011 6:01 AM
To: IBM-MAIN@bama.ua.edu
Subject: REXX INCLUDE ?

 Hi

Some REXX questions:

Any kind of REXX INCLUDE feature i.e include a REXX "copybook"  ?
We need some large "initialized" data areas,  stems.
What is the  best or  fastest way to do this?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email 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: SMP/E BYPASS( HOLDSYS( ) )

2011-04-06 Thread Bill Johnson

15.43.10 JOB08993  -STEPNAME PROCSTEP  
Not reacting that way here.


15.43.10 JOB08993  -STEPNAME PROCSTEPRC   EXCP   CONN
15.43.10 JOB08993  -S1   04   310K  97228
15.43.10 JOB08993  -APLY ENDED.  NAME-APLY RSU1012
 
.  APPLY
. PTFS
. BYPASS   (
.   HOLDSYSTEM
.(
.  ACTION
.  DB2BIND
.  DELETE
.  DOC
.  EXIT
.  IPL
.  MULTSYS
.)
.  )
. EXCLUDE  (
.   UK59308
.   UK59650
.  )
. SOURCEID (
.   RSU1012
.  )
. RETRY(YES)
 
01/10/11  TIME 15:35:07  SMP/E 35.32






From: Gerri Booth 
To: IBM-MAIN@bama.ua.edu
Sent: Tue, April 5, 2011 4:22:14 PM
Subject: Re: SMP/E BYPASS( HOLDSYS(  ) )

Beginning with SMP/E V3.5 the severity of messages issued for
BYPASS(HOLDSYS) changed from “warning” to “informational”, so they result in
RC=00.  In order to get the old behavior (RC=04) you have to add the
COMPAT(WARNBYPASS) parm to the EXEC stmt for the SMP/E job.  

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

88 matches

Mail list logo