Re: Ave Atque Vale

[Hunkeler Peter (KIUK 3)]

>>and I must agree.  Good luck to all of you.
>
>You don't need his, or my, approval to post on the list.

I did not ask his to stop posting; I was asking for a little
more politeness in his posts.

If he can't stand the "collective ignorance" on this list, his
decision.

-- 
Peter Hunkeler
Credit Suisse

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

Re: LPServe dynamic allocation

[Gerard Brul]

Thanks Ulrich for this reply.

Thus far I was only using the supplied example in SEZAINST which helds a lot
of comment but nothing about UNIT and VOLUME.

So I did add UNIT and VOLUME in the TCPDATA definitions, but indeed that is
the wrong place to do so.

Thanks for the reading of the manual and of course everything always comes
back on RTFM.

Everything works fine now.

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

Re: Attachmate

[Grant Ward Able]

Thanks Shmuel and all others for your kind responses - this has finally 
worked !
-- 
Regards - Grant

Grant Ward Able
Senior Systems Architect
DTCC




"Shmuel Metz (Seymour J.)" <[EMAIL PROTECTED]> 
Sent by: IBM Mainframe Discussion List 
21/08/2007 16:54
Please respond to
IBM Mainframe Discussion List 


To
IBM-MAIN@BAMA.UA.EDU
cc

Subject
Re: Attachmate






In
<[EMAIL PROTECTED]>,
on 08/16/2007
   at 10:05 AM, Grant Ward Able <[EMAIL PROTECTED]> said:

> Although I have updated my QuickPad to contain the PA1 key, none of
>the  actions above seem to work...Pressing the ATTN key just
>takes me  back to my session selection menu.

That sounds like standard[1] TPX behavior. First make sure that you
have a key defined as ATTN, then hit it twice.

[1] For good and sufficient reason.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)







DTCC DISCLAIMER: This email and any files transmitted with it are
confidential and intended solely for the use of the individual or
entity to whom they are addressed. If you have received this email
in error, please notify us immediately and delete the email and any
attachments from your system. The recipient should check this email
and any attachments for the presence of viruses.  The company
accepts no liability for any damage caused by any virus transmitted
by this email.

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

Re: LPA Module Size 80MB impact on system?

[Hunkeler Peter (KIUK 3)]

>Oh, one more thing is that programs in the LPA are treated as 
>APF-authorized, with all the caveats that entails.

Isn't it "treated as being loaded from APF authorized library"?

-- 
Peter Hunkeler
Credti Suisse

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

Fwd: How-TO: Non-production CA-7 usage

[Michael Bradley]

Sam, Clark & Harry;
 
 Thanks for your replies; I appreciate the time you spent helping me.

Michael

Michael Bradley <[EMAIL PROTECTED]> wrote: Date: Mon, 20 Aug 2007 05:38:32 
-0700 (PDT)
From: Michael Bradley <[EMAIL PROTECTED]>
Subject: How-TO: Non-production CA-7 usage
To: IBM-MAIN@BAMA.UA.EDU

I'd like to know how different shops handle the scheduling of jobs, that
aren't "PRODUCTION", for the benefit of testing, paralleling, and other
non-production types of work.  Does anyone have an alternate access for
this kind of work - a way around production schedulers who have a
monopoly on exploiting  CA-7?


   
-
Building a website is a piece of cake. 
Yahoo! Small Business gives you all the tools to get online.

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

Re: LPA Module Size 80MB impact on system?

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Hunkeler Peter (KIUK
3)
> 
> >Oh, one more thing is that programs in the LPA are treated as 
> >APF-authorized, with all the caveats that entails.
> 
> Isn't it "treated as being loaded from APF authorized library"?

If that's the precise text from the manual, then I'd have to argue that
it's grammatically incorrect:  It should say "having been" where it says
"being".  :-)

Regardless, unless I misunderstand "authorization", if an authorized
caller were to invoke that module after it was loaded into the LPA, the
module would be able to perform functions requiring authorization, even
lacking AC(1).

-jc-

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

Re: SMS Question - Urgent

[Dean Montevago]

Thanks Neil. It's not to late, I didn't think of this. I am going to
give it a try.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Neil Duffee
Sent: Tuesday, August 21, 2007 5:32 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent


On 2007-08-17 08:11, Dean Montevago <[EMAIL PROTECTED]> 
wrote to IBM-Main:

> I have a CICS VSAM file that is reaching it's 4gb limit. I want to 
> create an SMS pool for it. Can I define all the constructs and 
> activate the new rules while the region is up and using this file ? 
> Will they take affect the next time the file is deleted/defined ?

Dean:  likely too late for your urgency but ...

Did you consider simply adding the STORCLAS() DATACLAS() options to 
the Define Cluster?  If you have a pre-existing pool that would 
suffice, it would not require fiddling with your SCDS & ACS routine 
just to capture a particular DSN.

This will also suffice if you only need, in the short-term, to add a 
DATACLAS definition to cover Extended Addressing.  That would give 
you time to calmly think through any changes to the ACS routines 
which can be problematic as they grow.

-->  signature = 6 lines follows <--
Neil Duffee, Joe SysProg, U d'Ottawa, Ottawa, Ont, Canada
telephone:1 613 562 5800 x4585 fax:1 613 562 5161
mailto:NDuffee of uOttawa.ca http:/ /aix1.uottawa.ca/ ~nduffee
"How *do* you plan for something like that?" Guardian Bob, Reboot "For
every action, there is an equal and opposite criticism." "Systems
Programming: Guilty, until proven innocent" John Norgauer 
2004

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

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

Re: SMS Question - Urgent

[O'Brien, David W. (NIH/CIT) [C]]

Dean,
  Do your ACS routines allow for user specification of Data,Mngt, or Stor 
classes?
Look for something similiar to this in your routines,

 WHEN (&DATACLAS EQ &DATA_CLASS &&  
   &UNIT EQ &DASD_UNIT) /*  ALLOW USERS TO SPECIFY  */
   DO   /*  DATA CLASS FOR ANY  */
 SET &DATACLAS =3D &DATACLAS  /*  DASD_UNIT ALLOCATION*/
 EXIT
   END 
   
snip

Did you consider simply adding the STORCLAS() DATACLAS() options to
the Define Cluster?  If you have a pre-existing pool that would
suffice, it would not require fiddling with your SCDS & ACS routine
just to capture a particular DSN.

This will also suffice if you only need, in the short-term, to add a
DATACLAS definition to cover Extended Addressing.  That would give
you time to calmly think through any changes to the ACS routines
which can be problematic as they grow.
unsnip 

 


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

Re: SMS Question - Urgent

[O'Brien, David W. (NIH/CIT) [C]]

Correction below, without the =3d 



From: O'Brien, David W. (NIH/CIT) [C]
Sent: Wed 8/22/2007 8:47 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent



Dean,
  Do your ACS routines allow for user specification of Data,Mngt, or Stor 
classes?
Look for something similiar to this in your routines,

 WHEN (&DATACLAS EQ &DATA_CLASS && 
   &UNIT EQ &DASD_UNIT) /*  ALLOW USERS TO SPECIFY  */
   DO   /*  DATA CLASS FOR ANY  */
 SET &DATACLAS   &DATACLAS  /*  DASD_UNIT ALLOCATION*/
 EXIT   
   END
  
snip

Did you consider simply adding the STORCLAS() DATACLAS() options to
the Define Cluster?  If you have a pre-existing pool that would
suffice, it would not require fiddling with your SCDS & ACS routine
just to capture a particular DSN.

This will also suffice if you only need, in the short-term, to add a
DATACLAS definition to cover Extended Addressing.  That would give
you time to calmly think through any changes to the ACS routines
which can be problematic as they grow.
unsnip







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

Re: SMS Question - Urgent

[John Kington]

>
>  WHEN (&DATACLAS EQ &DATA_CLASS &&
>&UNIT EQ &DASD_UNIT) /*  ALLOW USERS TO SPECIFY  */
>DO   /*  DATA CLASS FOR ANY  */
>  SET &DATACLAS =3D &DATACLAS  /*  DASD_UNIT ALLOCATION*/
>  EXIT
>END
>
Until the OP fixes the &DASD_UNIT filter list or removes
it from the When criteria, the result will be the same.
Regards,
John

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

Re: SMS Question - Urgent

[O'Brien, David W. (NIH/CIT) [C]]

Good point, I should have removed the dasd unit test.



From: John Kington [mailto:[EMAIL PROTECTED]
Sent: Wed 8/22/2007 8:55 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent



>
>  WHEN (&DATACLAS EQ &DATA_CLASS &&
>&UNIT EQ &DASD_UNIT) /*  ALLOW USERS TO SPECIFY  */
>DO   /*  DATA CLASS FOR ANY  */
>  SET &DATACLAS =3D &DATACLAS  /*  DASD_UNIT ALLOCATION*/
>  EXIT
>END
>
Until the OP fixes the &DASD_UNIT filter list or removes
it from the When criteria, the result will be the same.
Regards,
John




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

Re: SMS Question - Urgent

[Dean Montevago]

Hi,

I added a STORCLAS and DATACLAS parm to the define and it didn't take. I
still got the "required volume list missing". I modified the ACS routine
to include ''' (quote quote) in the filter list of valid DASD units. The
define was successful:

IGD01007I &DATACLAS SPECIFIED (PRODVSAM)   
IGD01008I &STORCLAS SPECIFIED (PRODVSAM)   
IGD17070I DATA SET REFPROD.REF.DNO.FILE
ALLOCATED SUCCESSFULLY WITH 1 STRIPE(S).   
IGD17172I DATA SET REFPROD.REF.DNO.FILE
IS ELIGIBLE FOR EXTENDED ADDRESSABILITY
IDC0508I DATA ALLOCATION STATUS FOR VOLUME VSAM06 IS 0 
IDC0509I INDEX ALLOCATION STATUS FOR VOLUME VSAM06 IS 0
IDC0181I STORAGECLASS USED IS PRODVSAM 
IDC0181I DATACLASS USED IS PRODVSAM
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0 

Before I did this I sent IBM a dump for review. They are telling me that
zeros are being passed to SMS in the UNIT field. They are going to track
down who's doing this. I think John, said "they might have closed a
loophole". Everybody that chimed in has provided me with a lot of useful
info. Thanks.

Dean 
   


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

Re: LPA Module Size 80MB impact on system?

[Johnny Luo]

On 8/22/07, Chase, John <[EMAIL PROTECTED]> wrote:
>
>
> Regardless, unless I misunderstand "authorization", if an authorized
> caller were to invoke that module after it was loaded into the LPA, the
> module would be able to perform functions requiring authorization, even
> lacking AC(1).


Interesting. From my little knowledge, there are (only?) two places where
AC(1) matters:

1. EXEC PGM=XXX   If the module is from a APF lib and with AC(1), JSCBAUTH
will be set on which means the whole job step will run in APF-authorization
status.

2. ATTACH RSAPF=YES  The same logic is used to reset JSCBAUTH. Before doing
this, JSCBAUTH needs to be set off if it's already on. And the caller must
be in supervisor state or system key.

As for the above example, since the module is in LPA which means it'll be
treated as having been loaded from an APF lib, it can be invoked by an
APF-authorized job step. Unless it's invoked via ATTACH RSAPF=YES, AC code
doesn't matter.

However, is the module in LPA also treated as having AC(1)?  I'm not sure.

And it makes me think of another question: After a module is loaded into
JPA, is the information of this copy (whether it's from an APF lib and its
AC code) stored in some system control blocks? My guess is yes. If the
module is RENT, the same copy will be reused. So the info must be stored
somewhere.


-- 
Best Regards,
Johnny Luo

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

Re: SMS Question - Urgent

[Richards.Bob]

Dean,

Now test if it will assign the correct SC without the explicit
specification of the SC.

Bob Richards 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Dean Montevago
Sent: Wednesday, August 22, 2007 9:14 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent

Hi,

I added a STORCLAS and DATACLAS parm to the define and it didn't take. I
still got the "required volume list missing". I modified the ACS routine
to include ''' (quote quote) in the filter list of valid DASD units. The
define was successful:

snipped 
  
  
  
LEGAL DISCLAIMER 
The information transmitted is intended solely for the individual or entity to 
which it is addressed and may contain confidential and/or privileged material. 
Any review, retransmission, dissemination or other use of or taking action in 
reliance upon this information by persons or entities other than the intended 
recipient is prohibited. If you have received this email in error please 
contact the sender and delete the material from any computer. 
  
SunTrust and Seeing beyond money are federally registered service marks of 
SunTrust Banks, Inc. 
[ST:XCL]

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

Re: SMS Question - Urgent

[Dean Montevago]

Yes it did. When I removed those parms from IDCAMS and ran the define w/
'' in the filterlist for DASD units the define worked and the
appropriate storclas & dataclas were assigned. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Richards.Bob
Sent: Wednesday, August 22, 2007 9:30 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent


Dean,

Now test if it will assign the correct SC without the explicit
specification of the SC.

Bob Richards 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Dean Montevago
Sent: Wednesday, August 22, 2007 9:14 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent

Hi,

I added a STORCLAS and DATACLAS parm to the define and it didn't take. I
still got the "required volume list missing". I modified the ACS routine
to include ''' (quote quote) in the filter list of valid DASD units. The
define was successful:

snipped 
  
  
  
LEGAL DISCLAIMER 
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or other
use of or taking action in reliance upon this information by persons or
entities other than the intended recipient is prohibited. If you have
received this email in error please contact the sender and delete the
material from any computer. 
  
SunTrust and Seeing beyond money are federally registered service marks
of SunTrust Banks, Inc. 
[ST:XCL]

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

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

Re: SMS Question - Urgent

[Ed Finnell]

 
In a message dated 8/22/2007 8:14:04 A.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:

zeros  are being passed to SMS in the UNIT field. They are going to track
down  who's doing this. I think John, said "they might have closed a
loophole".  Everybody that chimed in has provided me with a lot of useful
info.  Thanks.



>>
Lacking third party software, only place I can think of is default UNIT  parm 
in CDS?
 
>From Implementing SMS:
 
In the CDS Name field, type in the name of the SCDS that is to contain the  
base configuration. In this example, the CDS name is YOUR.OWN.SCDS. Enter a 2  
(Define) to view the SCDS Base Define panel shown in _Figure  32_ 
(http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2i620/4.6.1?SHELF=DGT2BK41&D
T=20040629145725#FIGSCDSBDA) .  




__
 

   |  
|

   |Panel  Utilities  Scroll  Help
|

   |  
--  
|

   |SCDS BASE DEFINE Page 1 
of 2  |

   |  Command ===>
|

   |  SCDS Name . : YOUR.OWN.SCDS 
|

   |  SCDS Status : VALID 
|

   |  To DEFINE SCDS Base, Specify:   
|

   |   Description ===> This is the configuration used to implement a 
|

   |   ===> minimal configuration 
|

   |   Default Management Class  . . STANDEF   (1 to 8 characters)
|

   |   Default Unit

. . . . . . . . SYSDA (esoteric or generic device name)  | |   
Default Device Geometry
| |   
  Bytes/Track . . . . . . . . 56664 (1-99)
 | | Tracks/Cylinder . . . . . . 15(1-99) 
| |   DS Separation Profile   (Data Set Name) 
   | |   
==>_   
| |  Use ENTER to Perform Verification; Use DOWN 
Command to View next Panel; | |  Use HELP Command for Help; Use END 
Command 
to Save and Exit; CANCEL To Exit.| |   
   | 
|__|
 
Figure 32. SCDS Base Define Panel, Page 1 of 2 



** Get a sneak peek of the all-new AOL at 
http://discover.aol.com/memed/aolcom30tour

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

Re: SMS Question - Urgent

[Richards.Bob]

Terrific! Let us know if we can be of further assistance! :-)

Bob Richards 


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Dean Montevago
Sent: Wednesday, August 22, 2007 9:34 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent

Yes it did. When I removed those parms from IDCAMS and ran the define w/
'' in the filterlist for DASD units the define worked and the
appropriate storclas & dataclas were assigned. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Richards.Bob
Sent: Wednesday, August 22, 2007 9:30 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent


Dean,

Now test if it will assign the correct SC without the explicit
specification of the SC.

Bob Richards 
  
  
  
LEGAL DISCLAIMER 
The information transmitted is intended solely for the individual or entity to 
which it is addressed and may contain confidential and/or privileged material. 
Any review, retransmission, dissemination or other use of or taking action in 
reliance upon this information by persons or entities other than the intended 
recipient is prohibited. If you have received this email in error please 
contact the sender and delete the material from any computer. 
  
SunTrust and Seeing beyond money are federally registered service marks of 
SunTrust Banks, Inc. 
[ST:XCL]

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

Re: SMS Question - Urgent

[Dean Montevago]

I will post an update when IBM gets back to me.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Richards.Bob
Sent: Wednesday, August 22, 2007 9:36 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent


Terrific! Let us know if we can be of further assistance! :-)

Bob Richards 


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Dean Montevago
Sent: Wednesday, August 22, 2007 9:34 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent

Yes it did. When I removed those parms from IDCAMS and ran the define w/
'' in the filterlist for DASD units the define worked and the
appropriate storclas & dataclas were assigned. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Richards.Bob
Sent: Wednesday, August 22, 2007 9:30 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent


Dean,

Now test if it will assign the correct SC without the explicit
specification of the SC.

Bob Richards 
  
  
  
LEGAL DISCLAIMER 
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or other
use of or taking action in reliance upon this information by persons or
entities other than the intended recipient is prohibited. If you have
received this email in error please contact the sender and delete the
material from any computer. 
  
SunTrust and Seeing beyond money are federally registered service marks
of SunTrust Banks, Inc. 
[ST:XCL]

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

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

Re: SMS Question - Urgent

[Dean Montevago]

When I display the base configuration I have SYSDA as the default unit.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Ed Finnell
Sent: Wednesday, August 22, 2007 9:35 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent


 
In a message dated 8/22/2007 8:14:04 A.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:

zeros  are being passed to SMS in the UNIT field. They are going to
track down  who's doing this. I think John, said "they might have closed
a loophole".  Everybody that chimed in has provided me with a lot of
useful info.  Thanks.



>>
Lacking third party software, only place I can think of is default UNIT
parm 
in CDS?
 
>From Implementing SMS:
 
In the CDS Name field, type in the name of the SCDS that is to contain
the  
base configuration. In this example, the CDS name is YOUR.OWN.SCDS.
Enter a 2  
(Define) to view the SCDS Base Define panel shown in _Figure  32_ 
(http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2i620/4.6
.1?SHELF=DGT2BK41&D
T=20040629145725#FIGSCDSBDA) .  





__ 

   |

|

   |Panel  Utilities  Scroll  Help

|

   |  

--  |

   |SCDS BASE DEFINE
Page 1 
of 2  |

   |  Command ===>

|

   |  SCDS Name . : YOUR.OWN.SCDS

|

   |  SCDS Status : VALID

|

   |  To DEFINE SCDS Base, Specify:

|

   |   Description ===> This is the configuration used to implement a

|

   |   ===> minimal configuration

|

   |   Default Management Class  . . STANDEF   (1 to 8 characters)

|

   |   Default Unit

. . . . . . . . SYSDA (esoteric or generic device name)  | |   
Default Device Geometry
| |   
  Bytes/Track . . . . . . . . 56664 (1-99)

 | | Tracks/Cylinder . . . . . . 15(1-99)

| |   DS Separation Profile   (Data Set Name)

   | |   
==>_
| |  Use ENTER to Perform Verification; Use DOWN 
Command to View next Panel; | |  Use HELP Command for Help; Use
END Command 
to Save and Exit; CANCEL To Exit.| |

   | 
|___
|___|
Figure 32. SCDS Base Define Panel, Page 1 of 2 



** Get a sneak peek of the all-new
AOL at 
http://discover.aol.com/memed/aolcom30tour

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

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

Re: SMS Question - Urgent

[John Kington]

> Yes it did. When I removed those parms from IDCAMS and ran the define w/
> '' in the filterlist for DASD units the define worked and the
> appropriate storclas & dataclas were assigned.
Dean,
Great to hear that you have it working. I still suspect IBM means nulls
or binary zeros when they say the &UNIT value is zeros.
Regards,
John

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

Re: SMS Question - Urgent

[Ed Finnell]

 
In a message dated 8/22/2007 8:38:22 A.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:

When I  display the base configuration I have SYSDA as the default  unit.



Are the volumes in the new pool included in SYSDA? Guess the easy way is  HCD
under EDT's.



** Get a sneak peek of the all-new AOL at 
http://discover.aol.com/memed/aolcom30tour

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

Re: SMS Question - Urgent

[Chicklon, Tom]

Dean, there's may be an unintended consequence to be careful of now that you
added null to the list of valid unit types.

If you have a job that stacks datasets on a single tape volume by using
UNIT=AFF=ddname such as the following:

//TAPEV01  DD  DSN=SDR.BKUP.ML1001(+1),DCB=(SYS2.DSCB),
// UNIT=LTAPE,DISP=(NEW,CATLG),LABEL=(1,SL),   
// VOL=(,RETAIN)   
//TAPEV02  DD  DSN=SDR.BKUP.DBA002(+1),DCB=(SYS2.DSCB),
// DISP=(NEW,CATLG),LABEL=(2,SL),  
// UNIT=AFF=TAPEV01,VOL=(,RETAIN,REF=*.TAPEV01)

The ACS routine will have null for the unit for TAPEV02 . 

I burned myself by changing an HLQ from non-SMS to SMS managed, and with the
logic as it was in my SMS routines, I was setting a storage class for the
second tape data set (we don't SMS manage tapes) and the allocation ended up
failing.

May not impact you at all, just something to look to make sure it doesn't
bite you.

Tom Chicklon

--

I modified the ACS routine to include ''' (quote quote) in the filter list
of valid DASD units. 


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

Re: SMS Question - Urgent

[Dean Montevago]

Yup, they are in SYSDA.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Ed Finnell
Sent: Wednesday, August 22, 2007 9:45 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent


 
In a message dated 8/22/2007 8:38:22 A.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:

When I  display the base configuration I have SYSDA as the default
unit.



Are the volumes in the new pool included in SYSDA? Guess the easy way is
HCD under EDT's.



** Get a sneak peek of the all-new
AOL at 
http://discover.aol.com/memed/aolcom30tour

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

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

Recataloging IBM virtual tapes

[Field, Alan C.]

We are converting from STK to IBM virtual tape. 

Currently we put our SMF data from many LPARS onto virtual tape, each in
its own LPAR 

They are cataloged on their own LPAR and also run a job (DEFINE
NONVSAM... VOL(   ) UNIT() ) to catalog them all in the sysprog lpar
so we can process the data from all locations in one place. 

Since moving the data to the IBM virtual the DEFINE NONVSAM works but
when attempting to read the data instead of mounting virtual tape, the
mounts are being directed to physical drives. 

Do we have to put an entry in the VOLCAT for the virtual tapes from the
other LPARS?

I know what I'm asking - I hope it makes sense to the rest of you. 

Alan

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

IBMLink (3270) and "non-standard" screen size

[Chase, John]

Hi, All,

Does the 3270 interface to IBMLink support "non-standard" (i.e., other
than 24x80) screen sizes?  Seems it used to, but today while trying to
browse a PSP bucket, all the PF keys cause "X-clock" and the session
gets stuck.  My terminal emulator is configured with 62x160 screen size,
and most navigation works, but once I browse a specific item I can go no
further (in either direction).

Oh, BTW, the Internet interface seems to be working.

TIA,

-jc-


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

Re: LPA Module Size 80MB impact on system?

[Michael Cleary]

On Tue, 21 Aug 2007 08:36:07 -0500, Mark S. House 
<[EMAIL PROTECTED]> wrote:

>Looking for recommendations on adding an 80 megabyte load module to the
>LPA.  What are the negatives.  The reason we would like to do this is that
>one of our application programs that use this module can be used by 1 to
>10 jobs running at the same time.  Our thought is that by making this
>module resident, we would only have one copy of the load module in core
>for up to 10 jobs.  Any thoughts would be appreciated.  Thanks.

Greetings,

What problem are you trying to solve?  When many of these jobs are running, 
do you run low on real or virtual storage?  Does paging become 
unacceptable?  Is this affecting SLAs?  

z/OS was built to handle this type of thing.  The main issue that I see is the 
initial load of each 80MB module into user storage; once that is done, the 
system will trim the working set and you will basically only have in real 
storage 
what pages you have recently accessed.  

Is this vendor supplied code?  If so, what are their recommendations?

If you end up putting it in common storage, there are audit concerns and 
change control issues.

Cheers...

Michael

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

Re: SMS Question - Urgent

[Dean Montevago]

Thank you for bringing this to my attention. These are the filterlists I
have defined:

 FILTLIST DASD_UNITS INCLUDE('3390','SYSDA','SYSALLDA', '') 

 FILTLIST TAPE_UNITS INCLUDE('3590*','MAGSTAR','T3590') 

 FILTLIST DB2_VOL INCLUDE(* )   

In the select logic I check for the dataset name being passed and the
DASD units. So could I get burned by this example ?

We don't SMS manage any tape and the filter list defined for the tape
units is no where in the logic. We just defined it in the event we might
use it someday.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Chicklon, Tom
Sent: Wednesday, August 22, 2007 9:50 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent


Dean, there's may be an unintended consequence to be careful of now that
you added null to the list of valid unit types.

If you have a job that stacks datasets on a single tape volume by using
UNIT=AFF=ddname such as the following:

//TAPEV01  DD  DSN=SDR.BKUP.ML1001(+1),DCB=(SYS2.DSCB),
// UNIT=LTAPE,DISP=(NEW,CATLG),LABEL=(1,SL),   
// VOL=(,RETAIN)   
//TAPEV02  DD  DSN=SDR.BKUP.DBA002(+1),DCB=(SYS2.DSCB),
// DISP=(NEW,CATLG),LABEL=(2,SL),  
// UNIT=AFF=TAPEV01,VOL=(,RETAIN,REF=*.TAPEV01)

The ACS routine will have null for the unit for TAPEV02 . 

I burned myself by changing an HLQ from non-SMS to SMS managed, and with
the logic as it was in my SMS routines, I was setting a storage class
for the second tape data set (we don't SMS manage tapes) and the
allocation ended up failing.

May not impact you at all, just something to look to make sure it
doesn't bite you.

Tom Chicklon

--

I modified the ACS routine to include ''' (quote quote) in the filter
list of valid DASD units. 


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

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

Re: Recataloging IBM virtual tapes

[McKown, John]

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Field, Alan C.
> Sent: Wednesday, August 22, 2007 8:51 AM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Recataloging IBM virtual tapes
> 
> 
> We are converting from STK to IBM virtual tape. 
> 
> Currently we put our SMF data from many LPARS onto virtual 
> tape, each in
> its own LPAR 
> 
> They are cataloged on their own LPAR and also run a job (DEFINE
> NONVSAM... VOL(   ) UNIT() ) to catalog them all in the 
> sysprog lpar
> so we can process the data from all locations in one place. 
> 
> Since moving the data to the IBM virtual the DEFINE NONVSAM works but
> when attempting to read the data instead of mounting virtual tape, the
> mounts are being directed to physical drives. 
> 
> Do we have to put an entry in the VOLCAT for the virtual 
> tapes from the
> other LPARS?
> 
> I know what I'm asking - I hope it makes sense to the rest of you. 
> 
> Alan

Yes, all IBM robotic tapes (VTS and ATL) must be defined in the VOLCAT
for that system. That is how allocation knows that the tape is in the
robot. Below is a REXX program that I wrote which does this:

/* REXX */
PARSE ARG INVOL
"ALTER  V"INVOL" VOLENT STORGRP(SGRTAPE2) ",
  "LIBNAME($ATL0002) LOCATION(LIBRARY) UATTR(PRIVATE)"

Replace $ATL0002 with the name of the library. Put this on your SYSEXEC
concatenation. Invoke:

%ALTERVOL tapser

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

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

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

Re: SMS Question - Urgent

[O'Brien, David W. (NIH/CIT) [C]]

In my shop Sysda points to ONE volume (IMO, idiotic) and my default SMS unit is 
Sysda. Works fine.



From: Dean Montevago [mailto:[EMAIL PROTECTED]
Sent: Wed 8/22/2007 9:50 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent



Yup, they are in SYSDA.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Ed Finnell
Sent: Wednesday, August 22, 2007 9:45 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent



In a message dated 8/22/2007 8:38:22 A.M. Central Daylight Time, 
[EMAIL PROTECTED] writes:

When I  display the base configuration I have SYSDA as the default
unit.



Are the volumes in the new pool included in SYSDA? Guess the easy way is
HCD under EDT's.






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

Re: SMS Question - Urgent

[Dean Montevago]

?? What do the rest point to ?

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of O'Brien, David W. (NIH/CIT) [C]
Sent: Wednesday, August 22, 2007 9:56 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent


In my shop Sysda points to ONE volume (IMO, idiotic) and my default SMS
unit is Sysda. Works fine.



From: Dean Montevago [mailto:[EMAIL PROTECTED]
Sent: Wed 8/22/2007 9:50 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent



Yup, they are in SYSDA.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Ed Finnell
Sent: Wednesday, August 22, 2007 9:45 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent



In a message dated 8/22/2007 8:38:22 A.M. Central Daylight Time, 
[EMAIL PROTECTED] writes:

When I  display the base configuration I have SYSDA as the default unit.



Are the volumes in the new pool included in SYSDA? Guess the easy way is
HCD under EDT's.






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

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

Re: LPA Module Size 80MB impact on system?

[Wayne Driscoll]

John,
This has been discussed before, but AC(1) on a load module is ONLY
checked when the program in question is attached by the initiator as a
job step task.  In that case, if AC(1), and loaded from an APF
authorized library (which requires that ALL libraries concatenated to
the STEPLIB DD be in the APF list), then the JSCBAUTH bit will be set.
The reason that modules in LPA are considered to have been loaded from
an APF authorized library is because if the JSCBAUTH bit is set for a
job step, all program fetches MUST come from an APF authorized library,
or the request will be abended with a SYSTEM 306 code.  If the LPA
wasn't considered loaded from an APF authorized library, then no
authorized job step could execute code in the LPA.  Any program that is
not explicitly designed to be executed as a jobstep program should NOT
be linked with AC(1), as there is the chance of an integrity exposure.

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

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Chase, John
Sent: Wednesday, August 22, 2007 7:24 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: LPA Module Size 80MB impact on system?

 

Regardless, unless I misunderstand "authorization", if an authorized
caller were to invoke that module after it was loaded into the LPA, the
module would be able to perform functions requiring authorization, even
lacking AC(1).

-jc-

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

Re: IBMLink (3270) and "non-standard" screen size

[Mark Zelden]

On Wed, 22 Aug 2007 08:52:07 -0500, Chase, John <[EMAIL PROTECTED]> wrote:

>Hi, All,
>
>Does the 3270 interface to IBMLink support "non-standard" (i.e., other
>than 24x80) screen sizes?  Seems it used to, but today while trying to
>browse a PSP bucket, all the PF keys cause "X-clock" and the session
>gets stuck.  My terminal emulator is configured with 62x160 screen size,
>and most navigation works, but once I browse a specific item I can go no
>further (in either direction).
>

I'm using 62 x 142 (vista) and it is working fine for me.  

I never really used the green screen with my large 3270 screen size until
all the recent IBMLINK 2000 problems.  For updating PMRs and viewing
APARs it's a lot nicer with all that extra real estate than it used to be
with my old mod 5 configuration.  

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/
Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

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

Re: SMS Question - Urgent

[O'Brien, David W. (NIH/CIT) [C]]

Other esoterics point to the full range of DASD. My point was the default unit 
in the SMS configuration did not need to point to all of your DASD. It probably 
should but at least in my case it doesn't seem to be necessary.



Subject: Re: SMS Question - Urgent

?? What do the rest point to ?

Subject: Re: SMS Question - Urgent


In my shop Sysda points to ONE volume (IMO, idiotic) and my default SMS
unit is Sysda. Works fine.



Subject: Re: SMS Question - Urgent


Yup, they are in SYSDA.


In a message dated 8/22/2007 8:38:22 A.M. Central Daylight Time,
[EMAIL PROTECTED] writes:

When I  display the base configuration I have SYSDA as the default unit.

Are the volumes in the new pool included in SYSDA? Guess the easy way is
HCD under EDT's.





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

Re: LPA Module Size 80MB impact on system?

[Wayne Driscoll]

Johnny,
Your knowledge is pretty much correct.  In answer to your question about
attributes of a module after it is loaded into storage, they are
maintained in the LPDE (Link Pack Directory Entry) for the module.
However, even though the LPDE contains a RENT indicator (as it is
basically a specialized CDE), if the module is in the LPA, only one
copy, loaded into KEY 0 storage, will be used, so if the program must be
reentrant, or problems could (or will) occur.  

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




-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Johnny Luo
Sent: Wednesday, August 22, 2007 8:16 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: LPA Module Size 80MB impact on system?

Interesting. From my little knowledge, there are (only?) two places
where
AC(1) matters:

1. EXEC PGM=XXX   If the module is from a APF lib and with AC(1),
JSCBAUTH
will be set on which means the whole job step will run in
APF-authorization
status.

2. ATTACH RSAPF=YES  The same logic is used to reset JSCBAUTH. Before
doing
this, JSCBAUTH needs to be set off if it's already on. And the caller
must
be in supervisor state or system key.

As for the above example, since the module is in LPA which means it'll
be
treated as having been loaded from an APF lib, it can be invoked by an
APF-authorized job step. Unless it's invoked via ATTACH RSAPF=YES, AC
code
doesn't matter.

However, is the module in LPA also treated as having AC(1)?  I'm not
sure.

And it makes me think of another question: After a module is loaded into
JPA, is the information of this copy (whether it's from an APF lib and
its
AC code) stored in some system control blocks? My guess is yes. If the
module is RENT, the same copy will be reused. So the info must be stored
somewhere.


-- 
Best Regards,
Johnny Luo

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

Cobol ACCEPT-DATE

[Perryman, Brian]

Hi folks
 
Is ACCEPT-DATE supposed to return GMT time, or local time?
 
We have some issues with a program which was recently rescheduled to run just 
after midnight (British Summer Time) - but the date is a day out.. I'm 
wondering if it's because it's an old program getting the date in the wrong way 
somehow (that we can fix), or if that's just the way Cobol works..??
 
Cheers
 
Brian
 
-
 
 
 
 
 
 
 


This e-mail message is for the sole use of the intended recipient (s) and may 
contain confidential and privileged information of Transaction Network Services.
Any unauthorised review, use, disclosure or distribution is prohibited. If you
are not the intended recipient, please contact the sender by reply e-mail and 
destroy
all copies of the original message.

Tranaction Network Services Limited
Register No : 2952557
Registered Office: Sheffield Business Park Europa Link Sheffield S9 1XU
Directors: R. Low, M Collins, H. Graham (USA), M. Keegan (USA)

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

Re: SMS Question - Urgent

[Chicklon, Tom]

Dean, my logic was along the lines of:

1. UNIT not valid? Then SC=null (null unit IS valid here) 
2. UNIT=TAPE? Then SC=null (we don't SMS manage tapes)
3. Stuff we know we don't want to manage? SC=null (multiple tests...)
4. Stuff we want to manage? Set SC=whatever (again multiple tests, multiple
SCs)
5. Else SC=null

In this case, the UNIT=AFF dataset got a null SC via #5. Where I got bit is
when the dataset name became SMS managed if on DASD, thus the UNIT=AFF
dataset was now getting a SC set by #4. 

I can't tell from your snippets if this will bite you or not. Sorry.

Tom Chicklon

--

Thank you for bringing this to my attention. These are the filterlists I
have defined:

 FILTLIST DASD_UNITS INCLUDE('3390','SYSDA','SYSALLDA', '') 

 FILTLIST TAPE_UNITS INCLUDE('3590*','MAGSTAR','T3590') 

 FILTLIST DB2_VOL INCLUDE(* )   

In the select logic I check for the dataset name being passed and the
DASD units. So could I get burned by this example ?

We don't SMS manage any tape and the filter list defined for the tape
units is no where in the logic. We just defined it in the event we might
use it someday.




Dean, there's may be an unintended consequence to be careful of now that
you added null to the list of valid unit types.

If you have a job that stacks datasets on a single tape volume by using
UNIT=AFF=ddname such as the following:

//TAPEV01  DD  DSN=SDR.BKUP.ML1001(+1),DCB=(SYS2.DSCB),
// UNIT=LTAPE,DISP=(NEW,CATLG),LABEL=(1,SL),   
// VOL=(,RETAIN)   
//TAPEV02  DD  DSN=SDR.BKUP.DBA002(+1),DCB=(SYS2.DSCB),
// DISP=(NEW,CATLG),LABEL=(2,SL),  
// UNIT=AFF=TAPEV01,VOL=(,RETAIN,REF=*.TAPEV01)

The ACS routine will have null for the unit for TAPEV02 . 

I burned myself by changing an HLQ from non-SMS to SMS managed, and with
the logic as it was in my SMS routines, I was setting a storage class
for the second tape data set (we don't SMS manage tapes) and the
allocation ended up failing.

May not impact you at all, just something to look to make sure it
doesn't bite you.

Tom Chicklon

--

I modified the ACS routine to include ''' (quote quote) in the filter
list of valid DASD units. 


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

Re: IBMLink (3270) and "non-standard" screen size

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Mark Zelden
> 
> On Wed, 22 Aug 2007 08:52:07 -0500, Chase, John wrote:
> 
> >Hi, All,
> >
> >Does the 3270 interface to IBMLink support "non-standard" (i.e.,
other 
> >than 24x80) screen sizes?  Seems it used to, but today while trying
to 
> >browse a PSP bucket, all the PF keys cause "X-clock" and the session 
> >gets stuck.  My terminal emulator is configured with 62x160 screen 
> >size, and most navigation works, but once I browse a specific item I 
> >can go no further (in either direction).
> >
> 
> I'm using 62 x 142 (vista) and it is working fine for me.  
> 
> I never really used the green screen with my large 3270 
> screen size until all the recent IBMLINK 2000 problems.  For 
> updating PMRs and viewing APARs it's a lot nicer with all 
> that extra real estate than it used to be with my old mod 5 
> configuration.  

Thanks.  I changed my emulation (Bluezone) to mod4, and now everything
works.  I'll try the 3290 size again later.

-jc-

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

Re: LPA Module Size 80MB impact on system?

[Johnny Luo]

Thanks for the answer, Wayne.

I remember that if a module comes from an APF lib and with RENT attribute,
it'll be loaded into SP 252 of JPA. Since SP 252 is key 0, a modification to
itself may fail unless you're in key 0.

However, as far as LPA is concerned, is it protected using another
mechanism? So even you're running in key 0, you still cannot modify LPA. So
the module in LPA should be also refreshable.

On 8/22/07, Wayne Driscoll <[EMAIL PROTECTED]> wrote:

> Johnny,
> Your knowledge is pretty much correct.  In answer to your question about
> attributes of a module after it is loaded into storage, they are
> maintained in the LPDE (Link Pack Directory Entry) for the module.
> However, even though the LPDE contains a RENT indicator (as it is
> basically a specialized CDE), if the module is in the LPA, only one
> copy, loaded into KEY 0 storage, will be used, so if the program must be
> reentrant, or problems could (or will) occur.
>
> Wayne Driscoll
>

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

Re: Recataloging IBM virtual tapes

[Lizette Koehler]

You may also need to re SYNC your TMC entry to the TCDB.

//***
//* JOB WILL SYNCRONIZE TAPE BETWEEN CA-1 AND 3584 THROUGH OAM   
//*   (THIS IS DOCUMENTED IN CA-1 UTILITIES MANUAL)  
//***
//PS10   EXEC PGM=CTSSYNC
//STEPLIB DD DSN=CA1.CAILIB,DISP=SHR   
//SYSPRINT DD SYSOUT=*   
//SYSIN DD * 
SYNC,30-300719   

Lizette 


-Original Message-
>From: "Field, Alan C." <[EMAIL PROTECTED]>
>Sent: Aug 22, 2007 9:51 AM
>To: IBM-MAIN@BAMA.UA.EDU
>Subject: Recataloging IBM virtual tapes
>
>We are converting from STK to IBM virtual tape. 
>
>Currently we put our SMF data from many LPARS onto virtual tape, each in
>its own LPAR 
>
>They are cataloged on their own LPAR and also run a job (DEFINE
>NONVSAM... VOL(   ) UNIT() ) to catalog them all in the sysprog lpar
>so we can process the data from all locations in one place. 
>
>Since moving the data to the IBM virtual the DEFINE NONVSAM works but
>when attempting to read the data instead of mounting virtual tape, the
>mounts are being directed to physical drives. 
>
>Do we have to put an entry in the VOLCAT for the virtual tapes from the
>other LPARS?
>
>I know what I'm asking - I hope it makes sense to the rest of you. 
>
>Alan
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html

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

Re: 4331 weight

[Mark H. Young]

On Sat, 18 Aug 2007 23:35:11 -0500, Brian Westerman 
<[EMAIL PROTECTED]> wrote:

>I have several machines now, a 9672 a 4381, a 4341, a 4321, a NAS AS700 a
>3081D and a System/3 and a 370/145.
>
>I also have a string of 3330's, 3340's, 3350's and 3380's and a 2305 with
>several replacement parts and several printers from a 1403 up and some
>telecom equipment from several vendors and a bunch of odds and ends.
>
>.but in the mean time it's just a hobby.
>
>Brian
>

Hobby?  Did you say hobby?  Figures from a SysProg, ay?!

Most folks consider these hobbies:  Golf, bowling, fishing, stamp collecting,
baseball cards, sports, fantasy sports, poker, gambling, the ponies, etc.

Collecting old (and maybe obsolete) IBM mainframe hardware..Nah?!

YES, museum donation.Cha-CHING.the IRS will luv ya?!

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

Re: Recataloging IBM virtual tapes

[Gray, Larry - Larry A]

NOTICE:
All information in and attached to the e-mail(s) below may be proprietary, 
confidential, privileged and otherwise protected from improper or erroneous 
disclosure.  If you are not the sender's intended recipient, you are not 
authorized to intercept, read, print, retain, copy, forward, or disseminate 
this message.  If you have erroneously received this communication, please 
notify the sender immediately by phone (704-758-1000) or by e-mail and destroy 
all copies of this message (electronic, paper, or otherwise).  Thank you.

Have you created a VOLENT to point the tape to the correct library?
Something like what is below?

create volent (name(v855982) libraryname(lib8) media(media2)
loc(library)) 


Larry Gray
Large Systems Engineering
Lowe's Companies
336-658-7944



-Original Message-
>From: "Field, Alan C." <[EMAIL PROTECTED]>
>Sent: Aug 22, 2007 9:51 AM
>To: IBM-MAIN@BAMA.UA.EDU
>Subject: Recataloging IBM virtual tapes
>
>We are converting from STK to IBM virtual tape. 
>
>Currently we put our SMF data from many LPARS onto virtual tape, each 
>in its own LPAR
>
>They are cataloged on their own LPAR and also run a job (DEFINE
>NONVSAM... VOL(   ) UNIT() ) to catalog them all in the sysprog
lpar
>so we can process the data from all locations in one place. 
>
>Since moving the data to the IBM virtual the DEFINE NONVSAM works but 
>when attempting to read the data instead of mounting virtual tape, the 
>mounts are being directed to physical drives.
>
>Do we have to put an entry in the VOLCAT for the virtual tapes from the

>other LPARS?
>
>I know what I'm asking - I hope it makes sense to the rest of you. 
>
>Alan
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions, send 
>email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO 
>Search the archives at http://bama.ua.edu/archives/ibm-main.html

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

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

Re: LPA Module Size 80MB impact on system?

[Thompson, Steve]

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Johnny Luo
Sent: Wednesday, August 22, 2007 9:27 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: LPA Module Size 80MB impact on system?

Thanks for the answer, Wayne.

I remember that if a module comes from an APF lib and with RENT
attribute, it'll be loaded into SP 252 of JPA. Since SP 252 is key 0, a
modification to itself may fail unless you're in key 0.

However, as far as LPA is concerned, is it protected using another
mechanism? So even you're running in key 0, you still cannot modify LPA.
So the module in LPA should be also refreshable.


As best as my memory is working this morning, going back to hardware
days:

The protection for LPA is that it is written once (LPA PAGE DS) and then
fetched as needed. So, if a page gets corrupted, which in this case
would show that the page frame has been written to, the page is flushed
and re-read from the LPA page data set. This also allows the system to
recover from a memory parity error (where the page frame gets marked as
unusable). This last being a trick that I wonder if the M/S systems have
learned yet (oh, they don't have ECC dual parity memory)?

Later,
Steve Thompson

Opinions expressed are those of the poster and not necessarily those of
poster's employer.

--
This e-mail message is intended only for the
addressee(s) and contains information that may be
confidential and/or privileged material. 
If you are not the intended recipient please notify
the sender by reply e-mail immediately.  
Use, disclosure or reproduction of any information
in this e-mail by anyone other than the intended
recipient(s) is strictly prohibited. 
Sterling Commerce is not liable for any loss or
damage arising in any way from transmission of
the message or use of its attachments.  
This email may contain links to third party web
sites. 
Sterling Commerce is not responsible for the
content or privacy policies of such other sites and
the existence of a link in this email does not imply
an endorsement of the linked web site or the goods
or services offered therein.

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

Re: Recataloging IBM virtual tapes

[Richbourg, Claude]

Alan,

If you are using a single volcat and shared by all the systems, you may
need to sync the TMC on that system.
If you have a single volcat per system, then yes, you would need to
create entries for the virtual tape in question and treat them as
foreign tapes.

Hope that helps,
Claude

Claude Richbourg
Florida Department of Corrections
Systems Programmer III
850-921-1383

-Original Message-
>From: "Field, Alan C." <[EMAIL PROTECTED]>
>Sent: Aug 22, 2007 9:51 AM
>To: IBM-MAIN@BAMA.UA.EDU
>Subject: Recataloging IBM virtual tapes
>
>We are converting from STK to IBM virtual tape. 
>
>Currently we put our SMF data from many LPARS onto virtual tape, each
in
>its own LPAR 
>
>They are cataloged on their own LPAR and also run a job (DEFINE
>NONVSAM... VOL(   ) UNIT() ) to catalog them all in the sysprog
lpar
>so we can process the data from all locations in one place. 
>
>Since moving the data to the IBM virtual the DEFINE NONVSAM works but
>when attempting to read the data instead of mounting virtual tape, the
>mounts are being directed to physical drives. 
>
>Do we have to put an entry in the VOLCAT for the virtual tapes from the
>other LPARS?
>
>I know what I'm asking - I hope it makes sense to the rest of you. 
>
>Alan
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html

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

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

Re: Compuware FileAid vs File Manager, more...

[Mark H. Young]

On Fri, 17 Aug 2007 14:13:13 -0500, Katie Thorpe 
<[EMAIL PROTECTED]> wrote:

>Hello!   We are considering the viability of switching our Compuware products
>(Fileaid, Abendaid/XLS, Abendaid/CICS) to IBM replacements.  We are a very
>straightforward mainframe installation with no database involved.
>
>Has anyone done that, and have any comments, either pro or con?   I know
>the $$ differences - I'm looking for functionality/useability/operational 
>issues.
>

I'm sorry.I've ALWAYS been a real big proponent of FileAid.  I know it 
costs 
BIG BUCK$, but it's slicker than melted butter and better than sliced bread.
(I could have used more colorful forceful language, but you get the picture)

If I had FileAid, I would go kicking and screaming into the night if someone 
wanted to get rid of it and save money.

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

Re: Cobol ACCEPT-DATE

[Steve Comstock]

Perryman, Brian wrote:

Hi folks
 
Is ACCEPT-DATE supposed to return GMT time, or local time?
 
We have some issues with a program which was recently rescheduled to run just after midnight (British Summer Time) - but the date is a day out.. I'm wondering if it's because it's an old program getting the date in the wrong way somehow (that we can fix), or if that's just the way Cobol works..??
 
Cheers
 
Brian
 


The ACCEPT identifier FROM DATE [MMDD] construct
writeup does not specify the source. Perhaps one of
the COBOL folks from IBM who knows is lurking and can
provide the answer.

To be sure, you could use COBOL intrinsic functions
for various date formats, or LE callable services. But
I sense from your question you are not particularly
interested in rewriting the program much, if at all.


--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

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

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

Re: Cobol ACCEPT-DATE

[Paul Gilmartin]

On Wed, 22 Aug 2007 15:12:14 +0100, Perryman, Brian wrote:
> 
>We have some issues with a program which was recently rescheduled to run just 
>after midnight (British Summer Time) - but the date is a day out.. I'm 
>wondering if it's because it's an old program getting the date in the wrong 
>way somehow (that we can fix), or if that's just the way Cobol works..??
> 
Of course, when the semiannual time change occurs, I just reset my watch; I
never find it necessary to adjust my calendar.

I have encountered some extraordinarily naive code that didn't take the
time zone into account when calculating the date (and a developer who
insisted it was unnecessary to do so).

Can you try a few probe jobs late at night to see if the date is generally
reported for GMT while the time is reported for Summer Time?  Even if that's
"just the way Cobol works", it still ought to merit a PMR.  It's even
possible that your scheduler fails to take leap seconds in to account,
causing a job the scheduler believes it's starting one second after
midnight to start a few seconds before midnight (the previous day), UTC.

Further, there's cause to suspect that the date and time are computed
independently, leaving you yet exposed to the Midnight pitfall:  If
one of the date and time is obtained a microsecond before midnight
and the other a microsecond after, the aggregate time will be nearly
24 hours in error.

-- gil

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

Re: SMS Question - Urgent

[Richards.Bob]

Dean,

I would recommend that you remove any dead code in your ACS routines. It
isn't that difficult to add it in at the appropriate time and it removes
any confusion when the routines are read by someone else.

Also, I totally agree with the suggestion someone made to remove the
compound tests for valid DASD units and place a single entry test at or
near the top of your selection logic.

When I coded ACS routines, I tried to stay within a framework on the
selection logic that performed tests for most inclusive/exclusive to
least inclusive/exclusive. I tested for a valid storage class first,
handled special processing second (including the logic to not assign a
storage class), handled valid DASD and TAPE units, handled Job names,
program names, DDNAMEs, etc. Lastly, I coded dataset and volser logic. I
also documented each section with comments so there was no confusion as
to what each select, when statements were trying to accomplish. 

Bob Richards 


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Dean Montevago
Sent: Wednesday, August 22, 2007 9:56 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent

Thank you for bringing this to my attention. These are the filterlists I
have defined:

 FILTLIST DASD_UNITS INCLUDE('3390','SYSDA','SYSALLDA', '') 

 FILTLIST TAPE_UNITS INCLUDE('3590*','MAGSTAR','T3590') 

 FILTLIST DB2_VOL INCLUDE(* )   

In the select logic I check for the dataset name being passed and the
DASD units. So could I get burned by this example ?

We don't SMS manage any tape and the filter list defined for the tape
units is no where in the logic. We just defined it in the event we might
use it someday. 
  
  
  
LEGAL DISCLAIMER 
The information transmitted is intended solely for the individual or entity to 
which it is addressed and may contain confidential and/or privileged material. 
Any review, retransmission, dissemination or other use of or taking action in 
reliance upon this information by persons or entities other than the intended 
recipient is prohibited. If you have received this email in error please 
contact the sender and delete the material from any computer. 
  
SunTrust and Seeing beyond money are federally registered service marks of 
SunTrust Banks, Inc. 
[ST:XCL]

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

Re: LPA Module Size 80MB impact on system?

[Johnny Luo]

Steve,

Thanks.

As for M/S, I'm sure they haven't because two days ago I got a blue screen
on my Thinkpad T60 running Windows XP and the message said a memory parity
error occurred :)

On 8/22/07, Thompson, Steve <[EMAIL PROTECTED]> wrote:
>
>
> This last being a trick that I wonder if the M/S systems have
> learned yet (oh, they don't have ECC dual parity memory)?
>
> Later,
> Steve Thompson
>
>


-- 
Best Regards,
Johnny Luo

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

Re: LPA Module Size 80MB impact on system?

[Paul Gilmartin]

On Wed, 22 Aug 2007 08:56:12 -0500, Michael Cleary wrote:
>
>z/OS was built to handle this type of thing.  The main issue that I see is the
>initial load of each 80MB module into user storage; once that is done, the
>system will trim the working set and you will basically only have in real 
>storage
>what pages you have recently accessed.
>
It transpired in these pages a while ago that nowadays even the initial load
is deferred until the pages are actually accessed.  But if multiple address
spaces have overlapping working sets there is a saving if those pages can
be shared.

-- gil

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

Re: IBMLink (3270) and "non-standard" screen size

[Chase, John]

> -Original Message-
> From: Chase, John 
> 
> > [ snip ]
> 
> Thanks.  I changed my emulation (Bluezone) to mod4, and now 
> everything works.  I'll try the 3290 size again later.

Just tried the 3290 screensize, and everything's working correctly now.
Must have been a "transient thing"

-jc-

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

Re: Recataloging IBM virtual tapes

[Field, Alan C.]

Thanks all. Have it working as desired now.

Alan 

>We are converting from STK to IBM virtual tape. 
>
>Currently we put our SMF data from many LPARS onto virtual tape, each
in
>its own LPAR 
>
>They are cataloged on their own LPAR and also run a job (DEFINE
>NONVSAM... VOL(   ) UNIT() ) to catalog them all in the sysprog
lpar
>so we can process the data from all locations in one place. 
>
>Since moving the data to the IBM virtual the DEFINE NONVSAM works but
>when attempting to read the data instead of mounting virtual tape, the
>mounts are being directed to physical drives. 
>
>Do we have to put an entry in the VOLCAT for the virtual tapes from the
>other LPARS?
>
>I know what I'm asking - I hope it makes sense to the rest of you. 
>
>Alan

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

Re: Ways to update PS files?

[Ulrich Krueger]

Which brings up a question ...

 

Is there a way for an application programmer to detect in the program that
the file is compressed? If so, how would one do that?

 

Regards,

Ulrich Krueger

 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Graeme Gibson
Sent: Tuesday, August 21, 2007 6:47 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Ways to update PS files?

 

(ROFL) Yup, that's one I didn't think of!

 

At 01:28 AM 8/22/2007, you wrote:

>On Wed, 2007-08-22 at 00:23 +1000, Graeme Gibson wrote:

> > Only the application programer will be aware when

> > [QSAM update-in-place] has been used, there's nothing

> > to tell sysprogs or operators that it's in use and

> > absolutely no need for them to know.

> 

>Unless the sysprog (me, in one unfortunate case) enabled compression.

> 

>--

>David Andrews

 

--

For IBM-MAIN subscribe / signoff / archive access instructions,

send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO

Search the archives at http://bama.ua.edu/archives/ibm-main.html


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

Re: LPA Module Size 80MB impact on system?

[Hunkeler Peter (KIUK 3)]

>> Isn't it "treated as being loaded from APF authorized library"?
>
>If that's the precise text from the manual, then I'd have to argue that

>it's grammatically incorrect:  It should say "having been" where it
says 
>"being".  :-)

It's not from a manual, it's from me, with all the mistakes in spelling
(well I think there are none in this case) and grammar :-)

Here is the text from one manual: "In addition, any module in the link 
pack area will be treated by the system as though it came from an 
APF-authorized library."



>Regardless, unless I misunderstand "authorization", if an authorized 
>caller were to invoke that module after it was loaded into the LPA, the

>module would be able to perform functions requiring authorization, even

>lacking AC(1).

How did the "authorized caller" become authorized? Because the program
has 
been link edited with AC(1), is running as job step program and was
loaded 
from an APF authorized library, right? It can then only load/link...
modules 
which also come (or came) from an APF authorized library. The AC() of
these
modules is not of interest. Since the subprogram runs under the same
TCB, 
it is running APF authorized, too.

But the same subprogram cannot do anything for which authorization is
needed 
in the same constellation if the job step program was not running
authorized.

Calling a program from LPA as job step program does not automatically
run
it authorized, only if it also has the AC(1).

My understanding. Not sure this matches 100% what you wrote.

-- 
Peter Hunkeler
Credit Suisse

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

SHOWMVS from CBT tape??

[O'Brien, David W. (NIH/CIT) [C]]

Is there any doc available for this package?
 
My MVS folks pointed out the section on SMS Configuration to me. While most of 
the data is readily available from ISMF, I did have a quest about the Spec1 and 
2 fields shown under Dataclass and Flag1 and 2 shown under Mngtclass and 
Storclass.
 
DataClas UserId   Date   Time   Spec1 Spec2 

DATAF$DOB 2006/07/19 12:270008  
DATAVZZXZJZI  1999/01/11 13:220004  
 
StorClas UserId   Date   Time   Flag1 Flag
  
ARCHDATA $DOB 2004/09/16 09:454080
COMMON   ZZXZJZI  2000/07/05 14:52E880
DSNM ZZXZJZI  2000/07/05 14:54EC80
SSPACE   $DOB 2004/07/22 07:45C280
 
I'd just like to have a clue as to the meaning of these values, ie. Specn and 
Flagn.
 
Thanks,
Dave O'Brien

 

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

Re: SHOWMVS from CBT tape??

[Knutson, Sam]

Use the SOURCE Luke!

Seriously though reading the assembler source for SHOWMVS is both fun
and educational.  Roland and others generally make useful comments and
you can see the IBM macros, services, and control blocks that are used
to build the output.

Thanks,

Sam Knutson

-Original Message-
Is there any doc available for this package?


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

MQ question

[August Carideo]

Can some one point me to a MQ discussion list similar to this ( if there is
one )
We're seeing something odd with regard to MQSeries. We put a display into a
program to show the status of the input queue when the close is done after
the get. During our testing we are getting a 2033 return code which
indicates that there is no message in the queue. and am trying to find out
if anyone is aware of anything that might cause an empty queue to continue
triggering transactions over and over again?

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

Re: Cobol ACCEPT-DATE

[CICS Guy]

If it is important, replacing the ACCEPT FROM DATE with the intrinsic 
FUNCTION CURRENT-DATE will give you all the information you need.


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf 
Of Perryman, Brian

Sent: Wednesday, August 22, 2007 10:12 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Cobol ACCEPT-DATE

Hi folks

Is ACCEPT-DATE supposed to return GMT time, or local time?

We have some issues with a program which was recently rescheduled to run 
just after midnight (British Summer Time) - but the date is a day out.. I'm 
wondering if it's because it's an old program getting the date in the wrong 
way somehow (that we can fix), or if that's just the way Cobol works..??


Cheers

Brian

_
See what you’re getting into…before you go there 
http://newlivehotmail.com/?ocid=TXT_TAGHM_migration_HM_viral_preview_0507


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

Re: SHOWMVS from CBT tape??

[John P Kalinich]

Sam Knutson of the IBM Mainframe Discussion List 
wrote on 08/22/2007 10:30:35 AM:

> Use the SOURCE Luke!
>
> Seriously though reading the assembler source for SHOWMVS is both fun
> and educational.  Roland and others generally make useful comments and
> you can see the IBM macros, services, and control blocks that are used
> to build the output.
>
> Thanks,
>
> Sam Knutson
>
> -Original Message-
> Is there any doc available for this package?
>

First, you need to install the package from the CBT.  One of the install
steps is to build the SHOWMVS MACLIB.  Roland has constructed macros for
various DFP DSECTs.  That is where the fields are documented.

Regards,
John K

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

Re: SHOWMVS from CBT tape??

[O'Brien, David W. (NIH/CIT) [C]]

Thanks John, Sam,
 



Sam Knutson of the IBM Mainframe Discussion List 
wrote on 08/22/2007 10:30:35 AM:

> Use the SOURCE Luke!
>
> Seriously though reading the assembler source for SHOWMVS is both fun
> and educational.  Roland and others generally make useful comments and
> you can see the IBM macros, services, and control blocks that are used
> to build the output.
>
> -Original Message-
> Is there any doc available for this package?
>

First, you need to install the package from the CBT.  One of the install
steps is to build the SHOWMVS MACLIB.  Roland has constructed macros for
various DFP DSECTs.  That is where the fields are documented.




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

Re: MQ question

[Gray, Larry - Larry A]

NOTICE:
All information in and attached to the e-mail(s) below may be proprietary, 
confidential, privileged and otherwise protected from improper or erroneous 
disclosure.  If you are not the sender's intended recipient, you are not 
authorized to intercept, read, print, retain, copy, forward, or disseminate 
this message.  If you have erroneously received this communication, please 
notify the sender immediately by phone (704-758-1000) or by e-mail and destroy 
all copies of this message (electronic, paper, or otherwise).  Thank you.

[EMAIL PROTECTED] used to be the MQ list.  You can start there.

Also, make sure the task that pulls the last record from the queue
completes successfully.  If it abends, the backout will cause the queue
depth to go from 0 back to 1 and cause the trigger to be set.  I have
seen a CICS region and MQ get hung in a loop from this condition because
the developer thought it would be a good idea to abend the transaction
if it found a problem. 


Larry Gray
Large Systems Engineering
Lowe's Companies
336-658-7944

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of August Carideo
Sent: Wednesday, August 22, 2007 11:31 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: MQ question

Can some one point me to a MQ discussion list similar to this ( if there
is one ) We're seeing something odd with regard to MQSeries. We put a
display into a program to show the status of the input queue when the
close is done after the get. During our testing we are getting a 2033
return code which indicates that there is no message in the queue. and
am trying to find out if anyone is aware of anything that might cause an
empty queue to continue triggering transactions over and over again?

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

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

Re: MQ question

[Grant Ward Able]

[EMAIL PROTECTED]

Is this a triggered queue?

-- 
Regards - Grant

Grant Ward Able
Senior Systems Architect
DTCC




August Carideo <[EMAIL PROTECTED]> 
Sent by: IBM Mainframe Discussion List 
22/08/2007 16:31
Please respond to
IBM Mainframe Discussion List 


To
IBM-MAIN@BAMA.UA.EDU
cc

Subject
MQ question






Can some one point me to a MQ discussion list similar to this ( if there 
is
one )
We're seeing something odd with regard to MQSeries. We put a display into 
a
program to show the status of the input queue when the close is done after
the get. During our testing we are getting a 2033 return code which
indicates that there is no message in the queue. and am trying to find out
if anyone is aware of anything that might cause an empty queue to continue
triggering transactions over and over again?






DTCC DISCLAIMER: This email and any files transmitted with it are
confidential and intended solely for the use of the individual or
entity to whom they are addressed. If you have received this email
in error, please notify us immediately and delete the email and any
attachments from your system. The recipient should check this email
and any attachments for the presence of viruses.  The company
accepts no liability for any damage caused by any virus transmitted
by this email.

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

CICS MQ triggered queue abend loop [was: MQ question]

[Schneiderwent, Craig]

The MA1K MQ SupportPac attempts to mitigate this situation.

http://www-1.ibm.com/support/docview.wss?rs=171&uid=swg24009532&loc=en_US&cs
=utf-8&lang=en

Mind the wrap.

-Original Message-
From: Gray, Larry

Also, make sure the task that pulls the last record from the queue
completes successfully.  If it abends, the backout will cause the queue
depth to go from 0 back to 1 and cause the trigger to be set.  I have
seen a CICS region and MQ get hung in a loop from this condition because
the developer thought it would be a good idea to abend the transaction
if it found a problem.

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

Re: 4331 weight

[Kammer, Charles]

You must have one huge garage or a bunch of spare bedrooms you weren't
using! I had to move my 4381 (P/370 based), 3174 and terminals out of my
"spare" bedroom when it was decided the space could be put to better
use...

Charles  

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Mark H. Young
Sent: Wednesday, August 22, 2007 9:36 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: 4331 weight

On Sat, 18 Aug 2007 23:35:11 -0500, Brian Westerman 
<[EMAIL PROTECTED]> wrote:

>I have several machines now, a 9672 a 4381, a 4341, a 4321, a NAS AS700
a
>3081D and a System/3 and a 370/145.
>
>I also have a string of 3330's, 3340's, 3350's and 3380's and a 2305
with
>several replacement parts and several printers from a 1403 up and some
>telecom equipment from several vendors and a bunch of odds and ends.
>
>.but in the mean time it's just a hobby.
>
>Brian
>

Hobby?  Did you say hobby?  Figures from a SysProg, ay?!

Most folks consider these hobbies:  Golf, bowling, fishing, stamp
collecting,
baseball cards, sports, fantasy sports, poker, gambling, the ponies,
etc.

Collecting old (and maybe obsolete) IBM mainframe hardware..Nah?!

YES, museum donation.Cha-CHING.the IRS will luv ya?!

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

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

Re: Compuware FileAid vs File Manager, more...

[Ed Gould]

On Aug 22, 2007, at 9:47 AM, Mark H. Young wrote:
--SNIP-


I'm sorry.I've ALWAYS been a real big proponent of FileAid.  I  
know it costs
BIG BUCK$, but it's slicker than melted butter and better than  
sliced bread.
(I could have used more colorful forceful language, but you get the  
picture)


If I had FileAid, I would go kicking and screaming into the night  
if someone

wanted to get rid of it and save money.


Same here BUT when I saw that you get the same functionality and not  
relearning a new product, plus not having to support COMPUWAREs  
sponsorship of a football game, I was all to happy to get rid of them.


Ed





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

Re: SMS Question - Urgent

[Dean Montevago]

Bob,

This is excellent info. I am going explore your suggestions. Thanks
again to everyone that helped

Dean

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Richards.Bob
Sent: Wednesday, August 22, 2007 10:57 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent


Dean,

I would recommend that you remove any dead code in your ACS routines. It
isn't that difficult to add it in at the appropriate time and it removes
any confusion when the routines are read by someone else.

Also, I totally agree with the suggestion someone made to remove the
compound tests for valid DASD units and place a single entry test at or
near the top of your selection logic.

When I coded ACS routines, I tried to stay within a framework on the
selection logic that performed tests for most inclusive/exclusive to
least inclusive/exclusive. I tested for a valid storage class first,
handled special processing second (including the logic to not assign a
storage class), handled valid DASD and TAPE units, handled Job names,
program names, DDNAMEs, etc. Lastly, I coded dataset and volser logic. I
also documented each section with comments so there was no confusion as
to what each select, when statements were trying to accomplish. 

Bob Richards 


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Dean Montevago
Sent: Wednesday, August 22, 2007 9:56 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent

Thank you for bringing this to my attention. These are the filterlists I
have defined:

 FILTLIST DASD_UNITS INCLUDE('3390','SYSDA','SYSALLDA', '') 

 FILTLIST TAPE_UNITS INCLUDE('3590*','MAGSTAR','T3590') 

 FILTLIST DB2_VOL INCLUDE(* )   

In the select logic I check for the dataset name being passed and the
DASD units. So could I get burned by this example ?

We don't SMS manage any tape and the filter list defined for the tape
units is no where in the logic. We just defined it in the event we might
use it someday. 
  
  
  
LEGAL DISCLAIMER 
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or other
use of or taking action in reliance upon this information by persons or
entities other than the intended recipient is prohibited. If you have
received this email in error please contact the sender and delete the
material from any computer. 
  
SunTrust and Seeing beyond money are federally registered service marks
of SunTrust Banks, Inc. 
[ST:XCL]

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

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

Wells Fargo crash qeustion

[Gary Green]

Perhaps I was asleep earlier this week, but I do not recall seeing any traffic 
about Wells Fargo's "mainframe" shutting itself down and causing a nation-wide 
crash of it's network.

Anyone know what really happened?

There is a TON of traffic on the Phishing sites about how best to take 
advantage of the situation. :(

Thanks.

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

Re: XMIT QUESTION

[willie bunter]

Thanks to all who responded.  Ulrich, your suggestion worked well.  Thank You.

Ulrich Krueger <[EMAIL PROTECTED]> wrote:  Willie,
Where the user on the receiving system ultimately places the dataset, is up
to the user. OK, what that means is, it's a function of the RECEIVE command
to determine placement of the transmitted dataset (or member). There's
nothing you can do on the TRANSMIT command to influence that.
Usually, when you execute the TSO RECEIVE command, you get prompted for
dataset options. 
If you just simply hit Enter, the default dataset name is generated from the
sending dataset and prefixed with your TSO-prefix (userID). 
But if you want to redirect the dataset (or member) to a different dataset,
new or existing, you do so at the prompt, e.g. "DA('SYS9.CNTL.JCL')". This
will put the member into the specified dataset instead of the default /
generated datasetname.
Please do a TSO HELP RECEIVE or crack open the TSO commands manual (or
whichever manual contains the TRANSMIT and RECEIVE commands). There's a
whole bunch of parameters you can specify to help direct the received data
to the desired location.

Regards,
Ulrich Krueger

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of willie bunter
Sent: Tuesday, August 21, 2007 9:25 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: XMIT QUESTION

Hallo To All,

I am trying to perform an XMIT (pds member) from one partition to another
and I am partially successful. Below is my command:

XMIT NYZ380.ZAWTPWG DA('CNTL.JCL(SMSJOB1'))

What the command does it creates the member SMSJOB1 in a pds
ZAWTPWG.CNTL.JCL

Does XMIT allow to create the member in a given PDS .e.g TEST.CNTL.JCL?
If so could anyone please provide me the correct syntax. I tried various
commands but I kept getting the "ISPD204 Invalid parameter - '
CMD(&ZPTCPRM' contains unrecognized 
parameter.

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


   
-
Take the Internet to Go: Yahoo!Go puts the Internet in your pocket: mail, news, 
photos & more. 

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

Re: Ways to update PS files?

[Kirk Talman]

Agreed.  I inherited and replaced a messy set of JCL/sorts/handgrubbing 
w/a simple pair of cobol programs.  The input tx file is update in place. 
It is loaded by a sort.  Each tx has an effective date.  Programs run once 
a day.  When date of exec is reached, tx is executed and date of exec is 
shown in record.

IBM Mainframe Discussion List  wrote on 08/21/2007 
10:23:11 AM:

> I was amazed to see how many posters effectively said "don't use this 
> technique"!
> 
> QSAM update-in-place is a very simple, easy-to-use and effective 
> update technique that has been used in countless applications for 
> goodness knows how many years.  Only the application programer will 
> be aware when the technique has been used, there's nothing to tell 
> sysprogs or operators that it's in use and absolutely no need for 
> them to know.  One of it's strengths is the ability to have 
> concurrent batch updating of a file that is also being used read-only 
> by other programs, perhaps for online customer queries, the sort of 
> thing that today you'd be using a fully-blown database for.



-
The information contained in this communication (including any
attachments hereto) is confidential and is intended solely for the
personal and confidential use of the individual or entity to whom
it is addressed. The information may also constitute a legally
privileged confidential communication. If the reader of this
message is not the intended recipient or an agent responsible for
delivering it to the intended recipient, you are hereby notified
that you have received this communication in error and that any
review, dissemination, copying, or unauthorized use of this
information, or the taking of any action in reliance on the
contents of this information is strictly prohibited. If you have
received this communication in error, please notify us immediately
by e-mail, and delete the original message. Thank you 

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

Re: Wells Fargo crash qeustion

[Hal Merritt]

Well, I missed it as well. My bank (which I won't name) also was offline
Sunday. All day, they said. I have no idea what platform the Internet
banking system runs on, but I assume it was PC. And that's why I didn't
think much about it :-) 


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Gary Green
Sent: Wednesday, August 22, 2007 1:02 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Wells Fargo crash qeustion

Perhaps I was asleep earlier this week, but I do not recall seeing any
traffic about Wells Fargo's "mainframe" shutting itself down and causing
a nation-wide crash of it's network.

Anyone know what really happened?

There is a TON of traffic on the Phishing sites about how best to take
advantage of the situation. :(

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

Calling a AMODE 31 program from AMODE 64

[Ludmila Koganer]

Can someone please provide me a sample of how to call a AMODE 31 program
(ASM) from a AMODE 64 program (ASM) and pass parameters and get return values.

I am able to BASR to AMODE 31 and execute it but unable to use R1 for
passing parm address. I get a protection exception.

Thanks,
Ludmila

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

Re: Wells Fargo crash qeustion

[Ed Finnell]

 
In a message dated 8/22/2007 1:03:33 P.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:

Anyone  know what really happened?




>>
Haven't heard. May take a while to sort it all out. Google news{Wells Fargo  
crash} has several hits. The Computerworld article only mentions 'restore  
from backup' and tight lipped. So they got visited by Murphy and discovered  
their single point of failure for them.
 
_http://www.computerworld.com/action/article.do?command=viewArticleBasic&taxon
omyId=16&articleId=9031882&intsrc=hm_topic_ 
(http://www.computerworld.com/action/article.do?command=viewArticleBasic&taxonomyId=16&articleId=9031882&intsrc=
hm_topic) 



** Get a sneak peek of the all-new AOL at 
http://discover.aol.com/memed/aolcom30tour

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

Re: Calling a AMODE 31 program from AMODE 64

[McKown, John]

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Ludmila Koganer
> Sent: Wednesday, August 22, 2007 1:37 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Calling a AMODE 31 program from AMODE 64
> 
> 
> Can someone please provide me a sample of how to call a AMODE 
> 31 program
> (ASM) from a AMODE 64 program (ASM) and pass parameters and 
> get return values.
> 
> I am able to BASR to AMODE 31 and execute it but unable to use R1 for
> passing parm address. I get a protection exception.
> 
> Thanks,
> Ludmila

Make sure that the data you are sending to the AMODE 31 program resides
in AMODE 31 storage. I had this sort of problem when we first when from
AMODE 24 to AMODE 31. 

Also, remember that BASR does not affect the addressing mode. So if you
are in AMODE 64 before the BASR, you are still in AMODE 64 in the other
module. To branch and change AMODE, you need to use the BASSM. And your
AMODE 31 code needs to use BSM to return, not BR! Otherwise, you'll need
to use a sequence  like SAM31, BASR, SAM64 to switch AMODEs in your
AMODE 64 code.

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

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

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

Re: Calling a AMODE 31 program from AMODE 64

[Steve Comstock]

McKown, John wrote:

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

Sent: Wednesday, August 22, 2007 1:37 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Calling a AMODE 31 program from AMODE 64


Can someone please provide me a sample of how to call a AMODE 
31 program
(ASM) from a AMODE 64 program (ASM) and pass parameters and 
get return values.


I am able to BASR to AMODE 31 and execute it but unable to use R1 for
passing parm address. I get a protection exception.

Thanks,
Ludmila



Make sure that the data you are sending to the AMODE 31 program resides
in AMODE 31 storage. I had this sort of problem when we first when from
AMODE 24 to AMODE 31. 


Also, remember that BASR does not affect the addressing mode. So if you
are in AMODE 64 before the BASR, you are still in AMODE 64 in the other
module. To branch and change AMODE, you need to use the BASSM. And your
AMODE 31 code needs to use BSM to return, not BR! Otherwise, you'll need
to use a sequence  like SAM31, BASR, SAM64 to switch AMODEs in your
AMODE 64 code.

--
John McKown


I second what John says. If you have more details / symptoms
to give us more detailed clues, we can help you better. But
I would first make sure you are using BASSM / BSM instead of
BASSR / BE to call your subroutine and return.


--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

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

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

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

Re: JCL passing parms to ASM module?

[(IBM Mainframe Discussion List)]

 
 
In a message dated 8/16/2007 3:48:18 P.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:
>Also, with PARM usage, does R1 point to a pointer to the parm  field?
 
Yes, but only sort of.
 
With PARM='' usage, on entry to the program R1 contains the address of  a 
fullword.  In this fullword the high-order bit (bit 0) is one.  The  
right-most 31 bits contain the 31-bit address of the "parm stuff".  The  "parm 
stuff" 
starts out with the half-word length of the parm= character  string.  The 
character string immediately follows the half-word  length.
 
E.g., if PARM='123', then R1 might contain 6FF4.  At address 6FF4  you 
would find 80006FF8.  At address 6FF8 you would find 0003F1F2F3.
 
If no PARM info is being passed (PARM='' or PARM= is not specified), then  
the half word length contains .
 
Bill  Fairchild
Plainfield, IL





** Get a sneak peek of the all-new AOL at 
http://discover.aol.com/memed/aolcom30tour

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

Cobol ACCEPT-DATE

[Bill Klein]

It returns the "local" date/time - but what that means depends on how your
system is set up.

"Perryman, Brian" <[EMAIL PROTECTED]> wrote in message
news:<[EMAIL PROTECTED]
i.com>...
> Hi folks
>  
> Is ACCEPT-DATE supposed to return GMT time, or local time?
>  
> We have some issues with a program which was recently rescheduled to run
just after midnight (British Summer Time) - but the date is a day out.. I'm
wondering if it's because it's an old program getting the date in the wrong
way somehow (that we can fix), or if that's just the way Cobol works..??
>  
> Cheers
>  
> Brian
>  
> -
>  
>  
>  
>

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

Re: LPA Module Size 80MB impact on system?

[(IBM Mainframe Discussion List)]

 
 
In a message dated 8/22/2007 9:27:33 A.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:
>However, as far as LPA is concerned, is it protected using  another
mechanism? So even you're running in key 0, you still cannot modify  LPA.
 
LPA modules are stored in page-protected storage.  This means that  when 
running in key 0 you still cannot normally alter the page(s) in which your  
program resides.  There are, of course, ways around this limitation, but  you 
have 
to go out of your way to do it.
 
Bill  Fairchild
Plainfield, IL





** Get a sneak peek of the all-new AOL at 
http://discover.aol.com/memed/aolcom30tour

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

Re: CA to IBM TCP conversion

[Johnston, Robert E]

First off let me thank the previously un-thanked Bob and Shelia for their
responses...

I have both the CA and IBM stacks running concurrently now. They use
different OSA's, different IP addresses, and different host names. I am
pausing to apply maint to the CA stack before continuing down my path. I
still wonder about some things and would appreciate any discussion.

Can you configure 2 tcp stacks to use the same IP address and/or OSA?
All traffic comes in one way and gets sorted out from there. I read some
about VIPA but it didn't all take the first time.

Can you/should you configure one host name that has multiple IP addresses
assigned to it?

For my purposes (testing apps to convert from CA to IBM), is my system
configured ok w/ 2 IP's and host names? Or would it be better another way?

These questions may not make sense. I am having trouble understanding all the
relationships between host name(s), IP address(es), and the rest of the IP
world.

Thanks,
Robert



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

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

Re: Wells Fargo crash qeustion

[Gary Green]

That's where I first heard of it as well. (Computerworld)

I too checked Google and, in the articles I read, the only thing that was 
really mentioned was the "restore from backup", as you noted, and their 
"Hitachi xxx 400" mainframe being the root cause (my words).

Oh, and the fact that the Phishing sites were all in overdrive how best to take 
advantage of this situation.

Guess we'll hear the real story sometime down the road.


 On Wed Aug 22 14:48 , Ed Finnell <[EMAIL PROTECTED]> sent:

> 
>In a message dated 8/22/2007 1:03:33 P.M. Central Daylight Time,  
>[EMAIL PROTECTED] writes:
>
>Anyone  know what really happened?
>
>
>
>
>>>
>Haven't heard. May take a while to sort it all out. Google news{Wells Fargo  
>crash} has several hits. The Computerworld article only mentions 'restore  
>from backup' and tight lipped. So they got visited by Murphy and discovered  
>their single point of failure for them.
> 
>_http://www.computerworld.com/action/article.do\?command=viewArticleBasic&taxon
>omyId=16&articleId=9031882&intsrc=hm_topic_ 
>(http://www.computerworld.com/action/article.do\?command=viewArticleBasic&taxonomyId=16&articleId=9031882&intsrc=
>hm_topic) 
>
>
>
>http://discover.aol.com/memed/aolcom30tour
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html

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

Re: Wells Fargo crash question

[Lizette Koehler]

I am having trouble finding this story on the net.  I can only find the
stuff on phishing.

I was able to get this out of cache



Wells Fargo ATMs crash

 By Associated Press staff
3 p.m.Tuesday, August 21, 2007
SAN FRANCISCO - Service problems disabled ATMs and online accounts at Wells
Fargo & Co. for at least 24 hours starting Sunday afternoon, leaving some
customers of the nation's fifth largest bank unable to get cash or use debit
cards to pay for goods.

San Francisco-based Wells Fargo would not say how many customers or machines
were affected but acknowledged that services were down throughout the
company - from personal banking and Wells Fargo corporate Web sites and ATMs
to the processing of mortgage and student loans.

"Customers may continue to experience transaction difficulties or delays in
our stores, at ATMs and at the point-of-sale ... and processing for some
mortgage, home equity, student loans and remittances," Wells Fargo
spokeswoman Julia S. Tunis said. "Our systems teams are working to fix those
problems and we hope to have all channels fully available soon."

Although some customers noticed nothing wrong, others complained Monday at
several of the bank's 6,000 branches. Many customers could get cash only if
they went into a branch and talked to a teller - but they had no way of
getting cash after-hours at ATMs.

Charles Muturi visited a branch in San Francisco's South of Market district
Monday, intending to talk to customer service representatives about getting
a home loan. Instead, bank workers told the 41-year-old San Francisco
resident they couldn't process his application because of the service
problems, and they asked him to come back Tuesday.

"I can come back tomorrow, but it's inconvenient," Muturi grumbled as he
left the branch.


Lizette

> 
> Perhaps I was asleep earlier this week, but I do not recall seeing any
> traffic about Wells Fargo's "mainframe" shutting itself down and causing a
> nation-wide crash of it's network.
> 
> Anyone know what really happened?
> 
> There is a TON of traffic on the Phishing sites about how best to take
> advantage of the situation. :(
>

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

Re: Wells Fargo crash question

[Kelman, Tom]

There are a lot of articles about it if you Google "Wells Fargo Crash"
but nothing about the true cause.  We might never know.  Especially if
the cause could be exploited by hackers.  Would you really tell the
world if the cause could be exploited in anyway?

Tom Kelman
Commerce Bank of Kansas City
(816) 760-7632

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
> Behalf Of Lizette Koehler
> Sent: Wednesday, August 22, 2007 2:52 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: Wells Fargo crash question
> 
> I am having trouble finding this story on the net.  I can only find
the
> stuff on phishing.
> 




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

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

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

Re: Wells Fargo crash question

[Gary Green]

Try the Computerworld site (I already tossed the link).  Also try Networkworld!


 On Wed Aug 22 15:52 , Lizette Koehler <[EMAIL PROTECTED]> sent:

>I am having trouble finding this story on the net.  I can only find the
>stuff on phishing.
>
>I was able to get this out of cache
>
>
>
>Wells Fargo ATMs crash
>
> By Associated Press staff
>3 p.m.Tuesday, August 21, 2007
>SAN FRANCISCO - Service problems disabled ATMs and online accounts at Wells
>Fargo & Co. for at least 24 hours starting Sunday afternoon, leaving some
>customers of the nation's fifth largest bank unable to get cash or use debit
>cards to pay for goods.
>
>San Francisco-based Wells Fargo would not say how many customers or machines
>were affected but acknowledged that services were down throughout the
>company - from personal banking and Wells Fargo corporate Web sites and ATMs
>to the processing of mortgage and student loans.
>
>"Customers may continue to experience transaction difficulties or delays in
>our stores, at ATMs and at the point-of-sale ... and processing for some
>mortgage, home equity, student loans and remittances," Wells Fargo
>spokeswoman Julia S. Tunis said. "Our systems teams are working to fix those
>problems and we hope to have all channels fully available soon."
>
>Although some customers noticed nothing wrong, others complained Monday at
>several of the bank's 6,000 branches. Many customers could get cash only if
>they went into a branch and talked to a teller - but they had no way of
>getting cash after-hours at ATMs.
>
>Charles Muturi visited a branch in San Francisco's South of Market district
>Monday, intending to talk to customer service representatives about getting
>a home loan. Instead, bank workers told the 41-year-old San Francisco
>resident they couldn't process his application because of the service
>problems, and they asked him to come back Tuesday.
>
>"I can come back tomorrow, but it's inconvenient," Muturi grumbled as he
>left the branch.
>
>
>Lizette
>
>> 
>> Perhaps I was asleep earlier this week, but I do not recall seeing any
>> traffic about Wells Fargo's "mainframe" shutting itself down and causing a
>> nation-wide crash of it's network.
>> 
>> Anyone know what really happened?
>> 
>> There is a TON of traffic on the Phishing sites about how best to take
>> advantage of the situation. :(
>>
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html

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

Re: Calling a AMODE 31 program from AMODE 64

[Todd Burch]

>> John McKown

>I second what John says. If you have more details / symptoms
>to give us more detailed clues, we can help you better. But
>I would first make sure you are using BASSM / BSM instead of
>BASSR / BE to call your subroutine and return.
>-- 
>
>Kind regards,
>
>-Steve Comstock


Here's a sample for one way to do it.  Depending on your code, there may be
savearea considerations to deal with for your 31 bit program.  This sample
provides a 72 byte save area.  

Todd

TEST64   CSECT   
TEST64   AMODE 64
TEST64   RMODE ANY   
 BAKR  R14,0 SAVE GPRS AND ARS IN LINKAGE STACK  
 SAM64   
 CNOP  0,4   
 BRAS  R12,*+8   POINT R12 TO THE ACON FOR THE MODULE
 DCA(TEST64) 
 L R12,0(,R12)   NOW, WE HAVE ADDRESSABILITY 
 USING TEST64,R12
 WTO   '64: CURRENTLY IN 64.',DESC=(6),ROUTCDE=(11),MF=I 
 LAR14,CALL31SUBROUTINE TO CALL  
 BAKR  0,R14 CALL SUBROUTINE 
 WTO   '64: BACK IN 64.',DESC=(6),ROUTCDE=(11),MF=I  
 LAR15,0 RC = 0  
 PR, PROGRAM RETURN TO OS
*
CALL31   DS0H
 SAM31   
 LAR13,SAVEAREA  
 CALL  TEST31
 PR  RETURNS TO THE WTO BACK IN 64...
*
SAVEAREA DS18F   
*
TEST31   CSECT   
TEST31   AMODE 31
TEST31   RMODE ANY   
 STM   R14,R12,12(R13)   
 LRR12,R15   
 USING TEST31,R12
 WTO   '31: CURRENTLY IN 31.',DESC=(6),ROUTCDE=(11),MF=I 
 LMR14,R12,12(R13)   
 XRR15,R15   
 BRR14   
 YREGS   
 END 

No virus found in this outgoing message.
Checked by AVG Free Edition. 
Version: 7.5.484 / Virus Database: 269.12.2 - Release Date: 8/22/2007 12:00
AM

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

Re: Wells Fargo crash question

[Gary Green]

While I concur with your reasoning, I believe stuff like this generally makes 
it way out eventually.  Someone talks with someone who talks with someone, 
etc., etc.., etc...


 On Wed Aug 22 14:58 , 'Kelman, Tom' <[EMAIL PROTECTED]> sent:

>There are a lot of articles about it if you Google "Wells Fargo Crash"
>but nothing about the true cause.  We might never know.  Especially if
>the cause could be exploited by hackers.  Would you really tell the
>world if the cause could be exploited in anyway?
>
>Tom Kelman
>Commerce Bank of Kansas City
>(816) 760-7632
>
>> -Original Message-
>> From: IBM Mainframe Discussion List [EMAIL PROTECTED]','','','')">[EMAIL 
>> PROTECTED] On
>> Behalf Of Lizette Koehler
>> Sent: Wednesday, August 22, 2007 2:52 PM
>> To: IBM-MAIN@BAMA.UA.EDU
>> Subject: Re: Wells Fargo crash question
>> 
>> I am having trouble finding this story on the net.  I can only find
>the
>> stuff on phishing.
>> 
>
>
>
>
>If you wish to communicate securely with Commerce Bank and its
>affiliates, you must log into your account under Online Services at 
>http://www.commercebank.com or use the Commerce Bank Secure
>Email Message Center at https://securemail.commercebank.com
>
>NOTICE: This electronic mail message and any attached files are
>confidential. The information is exclusively for the use of the
>individual or entity intended as the recipient. If you are not
>the intended recipient, any use, copying, printing, reviewing,
>retention, disclosure, distribution or forwarding of the message
>or any attached file is not authorized and is strictly prohibited.
>If you have received this electronic mail message in error, please
>advise the sender by reply electronic mail immediately and
>permanently delete the original transmission, any attachments
>and any copies of this message from your computer system.
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html

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

Re: Cobol ACCEPT-DATE

[Ed Finnell]

 
In a message dated 8/22/2007 2:46:53 P.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:

It  returns the "local" date/time - but what that means depends on how  your
system is set up.




>>
In some variance there was an ACCEPT-DATE from Console which would issue  
WTOR for operator intervention. One in particular hated this and finally during 
 
the Hearts Finale Tournament entered DA/TE/. Well this was the yearly report 
to  NSF about grants and proposals and went out as DATE:DA/TE/. Few weeks later 
the  PHB's but out a stinging memo about 'double dates'. It went down hill 
from  there... 



** Get a sneak peek of the all-new AOL at 
http://discover.aol.com/memed/aolcom30tour

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

Re: Calling a AMODE 31 program from AMODE 64

[Ludmila Koganer]

Thanks for the quick response.
OK here is my code.
I have two simple starter programs, PGM64A in AMODE 64 and PGM A in AMODE 31
I need to pass a field CRITDTE to PGMA and return a return value from PGMA.
The code is below.
PGM64A CSECT
PGM64A AMODE 64
PGM64A RMODE 31
BAKR   14,0
LARL13,SAVEAREA
LARL12,PGM64A
USING  PGM64A,12
LGHI15,0
LLGF1,CRITDTE
LLGT15,=V(PGMA)
SAM31
BASR14,15
PR,

CRITDTE  DS CL8
SAVEAREA   DS 0D'0',F'0',C'F1SA'

LTORG
ENDPGM64A.

I can BASR to PGMA no problem. Every time I try to modify the inbound parm,
I get S0C4 / Reson 11. I am not sure where I am coding incorrectly.
Following a few other posts I tried difft combinations of Loaing parm
including LA, LLGT but it is not working. Since if I don't alter the inbound
block  it runs, I am making some glorious mistake on passing the parm. I
cant seem to figure out,.



pgmA is a vsery simple subroutine that only has a 
L3,0(1)
LA   5,UPDTXT
MVC  0(7,3),0(5) ===>Receive inbound value in Reg 3 and update with
the value in updtxt
besides the std prolog and epilog.

Regards,
Ludmil

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

Print Distribution and IP connected Devices

[Lizette Koehler]

 

We will be moving many people over the next few months from one building to
another about 10 miles away.  Some will keep their current equipment and
some will get new equipment.

 

What I am running into is with print (report) distribution.

 

The network group (not MAINFRAME) cannot tell me the new IP addresses for
this equipment until it is actually plugged in.  That means I have to wait
until the customer is ready to work to find out they can no longer receive
print from CA Spool or Dispatch because the old IP address for their
equipment is no longer valid.

 

Is there any way I can get this under control before the move or am I just
SOL?

 

CA tells me they cannot use a DNS name for the IP connected equipment; that
it has to be a physically coded IP address.

 

Any thoughts, suggestions or comments are welcome.

 

Lizette


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

Re: Calling a AMODE 31 program from AMODE 64

[Todd Burch]

Make it easy on yourself.Try this: 

PGM64A CSECT
PGM64A AMODE 64
PGM64A RMODE 31
BAKR   14,0
LARL13,SAVEAREA
LARL12,PGM64A
USING  PGM64A,12
LGHI15,0
*   LLGF1,CRITDTE
LLGT15,=V(PGMA)
SAM31
LA  R1,CRITDTE 
BASR14,15
PR,

CRITDTE  DS CL8
SAVEAREA   DS 0D'0',F'0',C'F1SA'

LTORG
ENDPGM64A.


And then, fix your 31 bit program: 

LR   3,1
LA   5,UPDTXT
MVC  0(7,3),0(5) ===>Receive inbound value in Reg 3 and update with

Todd
 

No virus found in this outgoing message.
Checked by AVG Free Edition. 
Version: 7.5.484 / Virus Database: 269.12.2 - Release Date: 8/22/2007 12:00
AM

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

Re: Wells Fargo crash qeustion

[Hal Merritt]

Hitachi? Google turned up a Computerworld story from March, 2000 about
halting their 'mainframe' sales. 

The Hitachi site mentioned only storage. And some sort of services
offerings. 

Otherwise, I didn't see any brand names mentioned. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Gary Green
Sent: Wednesday, August 22, 2007 2:52 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Wells Fargo crash qeustion

That's where I first heard of it as well. (Computerworld)

I too checked Google and, in the articles I read, the only thing that
was really mentioned was the "restore from backup", as you noted, and
their "Hitachi xxx 400" mainframe being the root cause (my words).

Oh, and the fact that the Phishing sites were all in overdrive how best
to take advantage of this situation.

Guess we'll hear the real story sometime down the road.


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

Re: Wells Fargo crash qeustion

[Tom Marchant]

On Wed, 22 Aug 2007 15:52:03 -0400, Gary Green wrote:
>
>I too checked Google and, in the articles I read, the only 
>thing that was really mentioned was the "restore from 
>backup", as you noted, and their "Hitachi xxx 400" 
>mainframe being the root cause (my words).

I saw that about the Hitachi Tritium too, but upon closer examination, those 
reports were from December 1, 2000.  You'll note that the Tritium is not 
z/Architecture capable.

I saw no report that said that the recent event had anything to do with a 
mainframe.  The Wells Fargo press release sais, in part, “Using our back-up 
facilities, we restored Internet banking service in about one hour and 40 
minutes Sunday, Aug. 19, and within hours, customers could access Wells 
Fargo Phone Bank Centers and make basic ATM transactions ... We thank the 
hundreds of team members in our technology group for working so hard to 
resolve this problem.”

That doesn't sound like a mainframe problem to me.  The press release is at
https://www.wellsfargo.com/press/20070821_computer?year=2007

-- 
Tom Marchant

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

Re: Print Distribution and IP connected Devices

[Ed Finnell]

 
In a message dated 8/22/2007 3:34:16 P.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:

Is there  any way I can get this under control before the move or am I  just
SOL?



>>
Well, somebody has to have a plan! Either they have an idea of what the IP  
addresses will be or they just hope everything's taken care of. So we come with 
 a mapping. old IP's xxx.yyy.zz.1000 will become lll.mmm.nn.1000 for all 
Report  Control printers.



** Get a sneak peek of the all-new AOL at 
http://discover.aol.com/memed/aolcom30tour

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

Fw: Cobol ACCEPT-DATE

[Bill Klein]

Unless you have modified IBM's run-time library, the COBOL
ACCEPT from DATE
and
ACCEPT from CONSOLE 

are mutually exclusive (and always have been).  "DATE" is a reserved word in
COBOL so you can't have
ACCEPT DATE FROM CONSOLE

You *could* have an
ACCEPT WS-DATE from Console

and then that would work the way you say.

<[EMAIL PROTECTED]> wrote in message
news:<[EMAIL PROTECTED]>...
>  
> In a message dated 8/22/2007 2:46:53 P.M. Central Daylight Time,  
> [EMAIL PROTECTED] writes:
> 
> It  returns the "local" date/time - but what that means depends on how
your
> system is set up.
>

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

Re: Print Distribution and IP connected Devices

[Ron Wells]

They--printers--s/b set with dns entries ..put burden on there shoulders 
to keep it up to date..

I did that and kept a list of printers defined..dns and ip just incase 
someone did an Oooops...or changed a printers ip addr..

But sounds like your already in a pickle...

--
Email Disclaimer
This  E-mail  contains  confidential  information  belonging to the sender, 
which  may be legally privileged information.  This information is intended 
only  for  the use of the individual or entity addressed above.  If you are not 
 the  intended  recipient, or  an  employee  or  agent responsible for 
delivering it to the intended recipient, you are hereby notified that any 
disclosure,  copying, distribution, or the taking of any action in reliance on 
the contents of the E-mail or attached files is strictly prohibited.

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

Re: Fw: Cobol ACCEPT-DATE

[Ed Finnell]

 
In a message dated 8/22/2007 3:56:39 P.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:

You  *could* have an
ACCEPT WS-DATE from  Console



>>
Thanks, I just know the report did go out and much chastisement was  
brandished
about.



** Get a sneak peek of the all-new AOL at 
http://discover.aol.com/memed/aolcom30tour

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

Re: Print Distribution and IP connected Devices

[Hal Merritt]

Ouch! That sounds like the network group expects to use DHCP to assign
IP addresses. And you (CA, actually) need static (pre assigned)
addresses. 

Worse, the printer could be unexpectedly assigned a new IP address at
any time. 

It almost sounds like you are more than SOL: you are OOB (out of
business). At least you can go ahead and break the news to the
customers. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Lizette Koehler
Sent: Wednesday, August 22, 2007 3:32 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Print Distribution and IP connected Devices

 

We will be moving many people over the next few months from one building
to
another about 10 miles away.  Some will keep their current equipment and
some will get new equipment.

 

What I am running into is with print (report) distribution.

 

The network group (not MAINFRAME) cannot tell me the new IP addresses
for
this equipment until it is actually plugged in.  That means I have to
wait
until the customer is ready to work to find out they can no longer
receive
print from CA Spool or Dispatch because the old IP address for their
equipment is no longer valid.

 

Is there any way I can get this under control before the move or am I
just
SOL?

 

CA tells me they cannot use a DNS name for the IP connected equipment;
that
it has to be a physically coded IP address.

 

Any thoughts, suggestions or comments are welcome.

 

Lizette


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

Re: Calling a AMODE 31 program from AMODE 64

[McKown, John]

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Ludmila Koganer
> Sent: Wednesday, August 22, 2007 3:23 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: Calling a AMODE 31 program from AMODE 64
> 
> 
> Thanks for the quick response.
> OK here is my code.
> I have two simple starter programs, PGM64A in AMODE 64 and 
> PGM A in AMODE 31
> I need to pass a field CRITDTE to PGMA and return a return 
> value from PGMA.
> The code is below.
> PGM64A CSECT
> PGM64A AMODE 64
> PGM64A RMODE 31
> BAKR   14,0
> LARL13,SAVEAREA
> LARL12,PGM64A
> USING  PGM64A,12
> LGHI15,0
> LLGF1,CRITDTE
> LLGT15,=V(PGMA)
> SAM31
> BASR14,15
> PR,
> 
> CRITDTE  DS CL8
> SAVEAREA   DS 0D'0',F'0',C'F1SA'
> 
> LTORG
> ENDPGM64A.
> 
> I can BASR to PGMA no problem. Every time I try to modify the 
> inbound parm,
> I get S0C4 / Reson 11. I am not sure where I am coding incorrectly.
> Following a few other posts I tried difft combinations of Loaing parm
> including LA, LLGT but it is not working. Since if I don't 
> alter the inbound
> block  it runs, I am making some glorious mistake on passing 
> the parm. I
> cant seem to figure out,.
> 
> 
> 
> pgmA is a vsery simple subroutine that only has a 
> L3,0(1)
> LA   5,UPDTXT
> MVC  0(7,3),0(5) ===>Receive inbound value in Reg 3 
> and update with
> the value in updtxt
> besides the std prolog and epilog.
> 
> Regards,
> Ludmil

LLGF does not load the address of CRITDATE into R1. It loads the value
contained in the first 4 bytes of CRITDATE into R1. I don't see where
CRITDATE is initialized. Also your comments on the MVC instruction say
the exact opposite of what is happening. The receiving field is the
first field. You are moving the data at UPDTXT into the storage pointed
to by R3. And R3 contains who-knows-what which was originally in the
first 4 bytes of CRITDATE.

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

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

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

Re: LPA Module Size 80MB impact on system?

[Rick Fochtman]

Really? Who do you think used overlays? It was SOP for application 
programmers where I came from when running in MVT. Debugging isn't 
particularly an issue. Of course, the Linkage Editor can't resolve an 
external reference to a module that is in a different leg.

-
Leave us not forget that the OS/360 FORTRAN-H compiler was overlaid into 
5 regions! SMP and IEBCOPY were overlays until MVS/XA hit the street!


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

Re: Print Distribution and IP connected Devices

[Ulrich Krueger]

That doesn't sound right, Lizette.
Up until a year ago, I supported a CA-Spool environment with about 230
network printers all over the world.
The majority of these printers were assigned DNS names in the CA-Spool
control library.
If someone moved a printer to a new location so that an IP address change
was required, all they had to do was update the (UNIX-) DNS server (there's
no DNS server on the M/F). As soon as the DNS change took effect, mainframe
reports for this printer would automatically print at the new site. Most of
these changes were done at off-hours and using DNS with CA-Spool saved me
many an hour of midnight and weekend support.   ;-)
Even if an old printer was replaced with a new model ... that was no
problem, as long as the printer was HP PCL compatible.
Worked great.

Regards,
Ulrich Krueger


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Lizette Koehler
Sent: Wednesday, August 22, 2007 1:32 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Print Distribution and IP connected Devices

 

We will be moving many people over the next few months from one building to
another about 10 miles away.  Some will keep their current equipment and
some will get new equipment.

 

What I am running into is with print (report) distribution.

 

The network group (not MAINFRAME) cannot tell me the new IP addresses for
this equipment until it is actually plugged in.  That means I have to wait
until the customer is ready to work to find out they can no longer receive
print from CA Spool or Dispatch because the old IP address for their
equipment is no longer valid.

 

Is there any way I can get this under control before the move or am I just
SOL?

 

CA tells me they cannot use a DNS name for the IP connected equipment; that
it has to be a physically coded IP address.

 

Any thoughts, suggestions or comments are welcome.

 

Lizette

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

Re: LPA Module Size 80MB impact on system?

[Ted MacNEIL]

>Really? Who do you think used overlays? It was SOP for application programmers 
>where I came from when running in MVT.

To quote the Monkees:

"That was then; this is now".


-
Too busy driving to stop for gas!

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

Re: Print Distribution and IP connected Devices

[Ted MacNEIL]

>there's no DNS server on the M/F

Are you sure about that?
IIRC, we had one on OS/390, years ago.

(Of course, I could be wrong. I thought I was wrong once, but I found I was 
mistaken.)

-
Too busy driving to stop for gas!

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

Re: Print Distribution and IP connected Devices

[Ulrich Krueger]

Ted,
In that particular shop, a pair of UNIX (or was it AIX?) servers were used as 
the corporate DNS servers. All we ran on the mainframe were the usual suspects: 
FTP, SMTP, Telnet. Even though it was (and still is) the most important data 
processing environment of the company, the mainframe was never big enough to 
handle a DNS service task for the entire corporation.

Regards,
Ulrich Krueger

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Ted 
MacNEIL
Sent: Wednesday, August 22, 2007 3:20 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Print Distribution and IP connected Devices

>there's no DNS server on the M/F

Are you sure about that?
IIRC, we had one on OS/390, years ago.

(Of course, I could be wrong. I thought I was wrong once, but I found I was 
mistaken.)

-
Too busy driving to stop for gas!

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

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