Re: I do not understand S0C6 on CDSG

[Ed Jaffe]

On 2/25/2013 5:23 PM, John Gilmore wrote:

APAR OA41232 of 17 January 2013 notes that AMASPZAP
cannot|could not be used on a program object for which SECTALGN(16)
was specified.


Just to clarify. This bug exists for PDS load modules created with 
SECTALGN(16) only and _not_ for program objects in a program object 
library (PDSE).


--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

[Arthur T.]

On 25 Feb 2013 12:14:09 -0800, in bit.listserv.ibm-main 
(Message-ID:<0e6f70937cdd8b4c83a5069c6296b38422b86...@xch-phx-101.sw.nos.boeing.com>) 
barry.schw...@boeing.com (EXT-Schwarz, Barry) wrote:


Regarding your translate tables, rather than manually 
counting the number of x'00' bytes to insert between 
non-zero ones and manually coding the hex values for 
characters, I suggest the following approach:

TRTABLE1 DC256X'00'
ORG   TRTABLE1+C'C'
DCC'C'
ORG   TRTABLE1+C'E'
DCC'EF'
ORG   TRTABLE1+C'I'
DCC'I'
...
ORG   TRTABLE+C'Z'
ORG   C'Z'
ORG


 And, in fact, coding the tables like this should fix 
the problem.  The first table is not 256 bytes long (note 
that the last 2 lines are commented out).  The TRT 
instruction is where the Z of the first table is, so the 
first TRT hits and the code never gets to the test for 
class Z.


 My feeling has always been that the Assembler counts 
better than I do, so I code what I mean and let the 
Assembler do the counting and adding.


In 
Message-ID:<897c82fc69765d45a301af8f5d1210cb0df5481...@otb6mail01.executive.stateofwv.gov>,

anne.d.crabt...@wv.gov (Crabtree, Anne D) wrote:

>Here's the part of code that I changed: (I'm not the 
greatest assembler programmer so be kind :))


 And here's an unsolicited suggestion:  After a TRT, 
don't use
BC 2, use BZ or BNZ.  Few of us remember which bits mean 
what.


--
I cannot receive mail at the address this was sent from.
To reply directly, send to ar23hur "at" pobox "dot" com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: I do not understand S0C6 on CDSG

[John Gilmore]

Tom Marchant wrote:


And either of these of course requires that SECTALGN(16) and GOFF be
specified in the assembly options.


and this is of course correct.GOFF is required for any value of
SECTALGN greater than SECTALGN(8).

There are some further issues that I was reluctant treat in a brief
post.  APAR OA41232 of 17 January 2013 notes that AMASPZAP
cannot|could not be used on a program object for which SECTALGN(16)
was specified.  SECTALGN(16) with LITORGs aligns literal pools on
quadword boundaries,  SECTALGN(16) aligns DSECTs on quadword
boundaries too; etc., etc.

The first few times I used SECTALGN(16) I was bitten repeatedly, but
the bites were not, finally, very painful; and this sort of thing is
usual with new technology.

This is an old topic that we have visited before, and anyone who is
new to it should review the archives.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SYNCSORT vs. DFSORT configuration for LE?

[Mark Zelden]

On Mon, 25 Feb 2013 17:46:42 -0600, Paul Gilmartin  wrote:

>SYNCSORT is failing for me with:
>
>16.33.50 JOB03864  CSV003I REQUESTED MODULE SS13CEEM NOT FOUND   
>16.33.50 JOB03864  CSV028I ABEND806-04  JOBNAME=SORTA STEPNAME=STEP1 
>
>DFSORT works fine.  I assume SS13CEEM is an LE module that
>might be found if I provided a suitable STEPLIB.  How do I find
>out where DFSORT is getting that module?  There's nothing in
>SYSOUT that seems promising.
>
>Thanks,
>gil


Looks to me like the optional function sysmod that has the LE support for
exits written in C, COBOL etc.   For 1.4 it is BSSIL14, I don't have the 1.3
libs around any longer, but I'm sure the function was BSSIL13. 

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html 
Systems Programming expert at http://expertanswercenter.techtarget.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SYNCSORT vs. DFSORT configuration for LE?

[Paul Gilmartin]

On Mon, 25 Feb 2013 18:51:22 -0500, Brian France wrote:
>
>   SS13CEEM I believe is a Syncsort module, not a DFSORT module which is
>why DFSORT works.  Syncsort uses that naming convention for their
>modules. In your case it would be Syncsort 1.3 or 3.1 as I think they
>have some reverse thing going.
>
Yup.  My systems programmer just confirmed this, adding that by some
oversight it was never installed.

(We're not a big SORT shop.)

Thanks,
gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SYNCSORT vs. DFSORT configuration for LE?

[Brian France]

gil,
  SS13CEEM I believe is a Syncsort module, not a DFSORT module which is 
why DFSORT works.  Syncsort uses that naming convention for their 
modules. In your case it would be Syncsort 1.3 or 3.1 as I think they 
have some reverse thing going.


On 2/25/2013 6:46 PM, Paul Gilmartin wrote:

SYNCSORT is failing for me with:

16.33.50 JOB03864  CSV003I REQUESTED MODULE SS13CEEM NOT FOUND
16.33.50 JOB03864  CSV028I ABEND806-04  JOBNAME=SORTA STEPNAME=STEP1

DFSORT works fine.  I assume SS13CEEM is an LE module that
might be found if I provided a suitable STEPLIB.  How do I find
out where DFSORT is getting that module?  There's nothing in
SYSOUT that seems promising.

Thanks,
gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
Brian W. France
Systems Administrator (Mainframe)
Pennsylvania State University
Administrative Information Services - Infrastructure/SYSARC
Rm 25 Shields Bldg., University Park, Pa. 16802
814-863-4739
b...@psu.edu

"To make an apple pie from scratch, you must first invent the universe."

Carl Sagan

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

SYNCSORT vs. DFSORT configuration for LE?

[Paul Gilmartin]

SYNCSORT is failing for me with:

16.33.50 JOB03864  CSV003I REQUESTED MODULE SS13CEEM NOT FOUND   
16.33.50 JOB03864  CSV028I ABEND806-04  JOBNAME=SORTA STEPNAME=STEP1 

DFSORT works fine.  I assume SS13CEEM is an LE module that
might be found if I provided a suitable STEPLIB.  How do I find
out where DFSORT is getting that module?  There's nothing in
SYSOUT that seems promising.

Thanks,
gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How SMF Logger works (was Reading Active SMF dataset)

[John McKown]

If it were me, I'd use the IEFU8n exits to copy the records I'm interested
in into AMODE64 common storage. Then do an XMPOST to cause a separate STC
to process them. Of course, this is much more complicated and requires at
least APF authorization.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

How SMF Logger works (was Reading Active SMF dataset)

[Jose ADAUTO Ribeiro]

 
Thank you for all people that answered my question.
 
It was very usefull to see exactly the instructions that I need to find out the 
SMF files and read it using OPEN/GET/RPL VSAM macro instructions.
 
I will use them as reference. I think that with those tips and examples it will 
be possible to begin the program.

My intention is get some SMF records "almost online" to take some actions.

So, now, I will need to know how to do this when the SMF Logger is active. Is 
it possible? The only way that I see is using IXGBRWSE, but I have a lot to 
learn how to use it and how system logger works for SMF records. 

Other tips about this will be wellcome.

Thanks in advance.
 
José ADAUTO Ribeiro

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: I do not understand S0C6 on CDSG

[Wayne Driscoll]

In addition to BNDRY=PAGE, on GETMAIN or STORAGE, you could use the 
STARTBDY= option with a value that is a multiple of 4 to ensure quad word 
alignment.
===
Wayne Driscoll
OMEGAMON DB2 L3 Support/Development
wdrisco(AT)us.ibm.com
===



From:   Tom Marchant 
To: IBM-MAIN@listserv.ua.edu, 
Date:   02/25/2013 04:13 PM
Subject:Re: [IBM-MAIN] I do not understand S0C6 on CDSG
Sent by:IBM Mainframe Discussion List 



On Mon, 25 Feb 2013 15:07:31 -0500, John Gilmore wrote:

>You can of  course force assembly-time, zero-origin quadword alignment
>within a program object using
>
>|  CNOP   byte,16

or with   DS  0LQ

And either of these of course requires that SECTALGN(16) and GOFF be 
specified in the assembly options.  The binder will then page align your 
program object.

>For a location within dynamically obtained storage Paul Gilmartin's
>scheme of using execution-time modulo (congruence) arithmetic is
>inescapable..

Unless the GETMAIN or STORAGE OBTAIN specifies BNDRY=PAGE.  In 
that case the quadword can be defined with  DS  LQ within your DSECT.

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: I do not understand S0C6 on CDSG

[Tom Marchant]

On Mon, 25 Feb 2013 15:07:31 -0500, John Gilmore wrote:

>You can of  course force assembly-time, zero-origin quadword alignment
>within a program object using
>
>|  CNOP   byte,16

or with   DS  0LQ

And either of these of course requires that SECTALGN(16) and GOFF be 
specified in the assembly options.  The binder will then page align your 
program object.

>For a location within dynamically obtained storage Paul Gilmartin's
>scheme of using execution-time modulo (congruence) arithmetic is
>inescapable..

Unless the GETMAIN or STORAGE OBTAIN specifies BNDRY=PAGE.  In 
that case the quadword can be defined with  DS  LQ within your DSECT.

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Low priority workload

[Don Deese]

Hi Don,

Very insightful of you.

It is commonly believed that "there can be no instance of where lower 
importance [lower priority] work can cause a higher importance level to 
miss its goals, except in the case of resource groups."  This belief is 
mostly correct from a WLM dispatching priority assignment view.  However, 
this belief has been incorrect in a general sense for a very long 
time.  Not only can low importance work have access to other resources as 
you mentioned, low importance work can temporarily be given high 
dispatching priority.


As of z/OS V1R13, five categories are reported in SMF where relatively low 
importance work had its dispatching priority increased or promoted to a 
higher CPU dispatching priority: (1) R723ECTC (CPU time consumed while 
dispatching priority was temporarily raised by enqueue management); (2) 
R723TPDP (CPU time consumed while dispatching priority of work with low 
importance was temporarily raised to help blocked workloads); (3) R723CPDP 
(CPU time consumed while dispatching priority was temporarily raised by 
chronic resource contention management); (4) R723LPDP (CPU time consumed 
while dispatching priority was temporarily raised to shorten the lock hold 
time of a local suspend lock held by the work unit); and (5) R723SPDP (CPU 
time consumed while dispatching priority for a work unit was temporarily 
raised by the z/OS supervisor to a higher dispatching priority than 
assigned by WLM).  Each category is used to help reduce bottlenecks or 
improve overall performance of work.


Sustained processor use in these categories typically is of short 
duration.  However, I have data showing that enqueue promotion management 
for low importance work to a high dispatching priority was several minutes 
per RMF interval (more than 10 minutes in one set of data).


In many cases, CPU delays caused by promotion of dispatching priority will 
be insignificant, particularly if the effects of the dispatching priority 
promotion happen with LPARs having a relatively large number of 
processors.  However, the effects can significantly degrade performance 
with a small number of logical processors assigned to an LPAR (or unparked 
with HiperDispatch).


If you see performance degradation of high importance work because of CPU 
Delay, you should check the values of the above SMF variables.  Promoted 
dispatching priority of low importance work could be the culprit.


Regards,


**
Don Deese, Computer Management Sciences, Inc.
Voice: (804) 776-7109  Fax: (804) 776-7139
http://www.cpexpert.org
**



At 12:45 PM 2/21/2013, you wrote:
Low priority work may have exclusive access to other resources (locks, 
enqueues, memory, etc.) which blocks (i.e., effectively preempts) higher 
priority work.
In most cases, this type of "preemption" does not last long enough to be 
significant; however, when your system is on running on the edge this 
effect may be significant in your particular situation.


Don







> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Gerhard Adam
> Sent: Tuesday, February 19, 2013 2:46 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Low priority workload
>
> I have to disagree.  I often hear this, but there's no "resources" to
> give.  Other than MPL adjustments, almost all of the major WLM
> decisions are simply a matter of setting dispatching priorities.  There
> can never be a situation of where a lower priority [lower DP] unit of
> work can pre-empt a higher DP unit of work.
>
> In addition, higher importance levels always have precedence in terms
> of having their goals honored, well above lower importance level work,
> so again, there can be no instance of where lower importance [lower
> priority] work can cause a higher importance level to miss its goals,
> except in the case of resource groups.
>
> In addition, WLM "predicts" the expected outcomes every 10 seconds, so
> there is no need to "know" future workload.  Having excess available
> resources only ensures that those units at lower priorities have
> access.  High DP work isn't subject to resource availability unless
> there are an excessive number of competitors at the same or higher
> levels.  If all the processing power is used by high DP work, then
> there is nothing that can be done except incur delays, since [by
> definition] everything is either at the same priority or importance
> levels and no decisions can be made [likely result in "No donor found"

> or "No Net Value"]
>
> If I read your comment correctly, you're referring to only one specific
> instance where circumstances conspire to cap the CPU resource [which
> has nothing to do with your WLM policy].  In that situation your
> objective is simply to keep the workload below utilization thresholds
> so that peaks can exceed the cap and gain the extra CPU resources.
> It's not a question of micromanagement then, it's simply a matter of
> not running work if you kno

Re: JES exit 6

[EXT-Schwarz, Barry]

To simplify things I have deleted the lines which contain only the tail end of 
comments.  I have also inserted some line numbers to correspond to my comments.

Line 1 tells us that JCTJCLAS contains the address of the class.  You use that 
address correctly in the target of the EX instruction in line 2.  But you don't 
use that address when changing the class in line 3.  There, you move the new 
class directly into JCTJCLAS, thereby destroying the address.

Regarding line 2, wouldn't a CLI instruction be easier than using EX to perform 
a TRT?  Of course the following BC would change also.

Your two EX instructions OR the contents of R4 before performing the target TRT 
instructions.  Since R4 is always 0, the TRT instructions are unchanged.  
Wouldn't it be easier to place the TRT instructions inline replacing the EX 
ones.

Regarding your translate tables, rather than manually counting the number of 
x'00' bytes to insert between non-zero ones and manually coding the hex values 
for characters, I suggest the following approach:
TRTABLE1 DC256X'00'
 ORG   TRTABLE1+C'C'
 DCC'C'
 ORG   TRTABLE1+C'E'
 DCC'EF'
 ORG   TRTABLE1+C'I'
 DCC'I'
 ...
 ORG   TRTABLE+C'Z'
 ORG   C'Z'
 ORG

When using a literal reference, as in line 4, I suggest omitting the the length 
field.  The assembler will compute it properly and it is one less thing to 
change if you need to replace the value of the literal.


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Crabtree, Anne D
> Sent: Monday, February 25, 2013 7:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: JES exit 6
>
> I am trying to modify JES exit 6 so that jobs, starting with a
> particular string and destination is to a particular partial string,
> get assigned a class of F (jobname beginning with WE# and destination
> beginning with VPRT).  I also want to prohibit non SY users from
> using class Z.
>
> I modified our existing exit 6 and tested on our onepac system.  It
> worked great.  However, when I tried to use the same module in our
> production lpar, the class Z logic is working, but the class F will not
> work!  I've tried for the last two Sundays for hours!
>
> Yesterday, changed the module name and entry name so I could make sure
> it was using the new module.  $d exit(6) shows the new entry.  I've
> compared JES2 initialization members and cannot figure out why the same
> code works on one but not the other.  Does anyone have a suggestion on
> what else I can look at?
>
> I have a small window of opportunity each week to try and get this to
> work.  Thought about using the trace option but don't know enough about
> how to do it so would have to read up on that.  Would that be of any
> help?
>
> Here's the part of code that I changed: (I'm not the greatest assembler
> programmer so be kind :))
>
1.> SCAN LA R3,JCTJCLAS LOAD ADDRESS OF
> LR4,=F'0'
> EX R4,SCANCLS1   SCAN FOR
> BC 2,CHKJNAME   CLASS IS
2.> EX R4,SCANCLS2   CLASS Z?
>  BC2,CLASSZ   IF
3.> MVI  JCTJCLAS,C'C'  NOT SY, SET
> BRETURN
> CLASSZ LA  R5,JCTNOUSR  SUBMITTING USERID
4.> CLC=CL2'SY',0(R5) IS THIS
> BE ALLGOOD CLASS Z
> MVI  JCTJCLAS,C'C'  CLASS Z
> BRETURN
> CHKJNAME LA  R6,JCTJNAME  JOBNAME
> CLC=CL3'WE#',0(R6)DOES JOBNAME
> BE  CHKDEST   YES,
> B RETURN
> CHKDEST  LA   R7,JCTPRRIDJOB PRINT
> CLC=CL4'VPRT',0(R7)   DOES PRINT
> BE CHGCLASYES,
> ALLGOODB  RETURNNO, RETURN TO
> CHGCLAS MVIJCTJCLAS,C'F'  MOVE F TO CLASS
> B  RETURN
> RETURN   RETURN (14,12),RC=0
> SCANCLS1   TRT   0(0,R3),TRTABLE1  LOOKIN FOR A VALID CLASS
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> *   VALID CLASS TABLE CHECKING FOR CLASS C,E,F,I,K,L,Q,T*
> *   CLASS I FOR IPO2*
> *   CLASS T FOR TEST*
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> TRTABLE1 DC   195X'00'
>  D

Re: I do not understand S0C6 on CDSG

[John Gilmore]

You can of  course force assembly-time, zero-origin quadword alignment
within a program object using

|  CNOP   byte,16

which fills n bytes, 0 <= n <=15, with no operation instructions

Then asking the Binder to page-align your program object will do the
job [4096 = 0 mod(16)].

For a location within dynamically obtained storage Paul Gilmartin's
scheme of using execution-time modulo (congruence) arithmetic is
inescapable..

John Gilmore, Ashland, MA 01721 - USA

t.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

rmf spreadsheet reporter v1 r12 and microsoft excel 2010?

[Kenneth Klein (TEMA TPC)]

Is excel 2007 the highest level that the spreadsheet reporter supports?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Problem with SYSEVENT QVS

[Shmuel Metz (Seymour J.)]

In
,
on 02/21/2013
   at 08:54 AM, Peter Relson  said:

>If Gerhard meant that, he would have been incorrect. CVT is the 
>name of the DSECT when CVT DSECT=YES is used.
>CVTMAP is a name for the beginning as well.

What if PREFIX=YES is used? BTW, where is the CVT amcro documented
these days?

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 Atid/2
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Query for Destination z article: successor training and knowledge transfer

[Gabe Goldberg]

Blah, blah -- we hear constantly about the oncoming (or current!) brain 
drain of a mainframer generation retiring. We certainly hear on these 
lists about individuals retiring (and congratulations for that!).


So, is it a crisis or is it about as well predicted and handled as Y2K 
(that is, anticipated/understood well in advance and dealt with)?


What are installations doing about it besides denying it, panicking, 
threatening/pretending to abandon the mainframe?


What are YOU doing about it -- not preparing for retirement, I mean, but 
training successors?


How is knowledge transferred? Mentoring (formal, informal?) Are new 
employees given the same sort of education/training opportunities 
available years ago or is it ... self-study, OJT, watch/learn/hope/do/train?


What's in fashion now for career planning as people join the mainframe 
community?


Are there differences across mainframe environments (z/OS, z/VM, z/VSE, 
Linux for System z, TPF)? Variations within those (CICS, IMS, DB2)? Are 
some environments dwindling because of skills shortages? Etc.


Reply/copy directly to me please so comments aren't buried in list digests.

Thanks...

--
Gabriel Goldberg, Computers and Publishing, Inc.   g...@gabegold.com
3401 Silver Maple Place, Falls Church, VA 22042   (703) 204-0433
LinkedIn: http://www.linkedin.com/in/gabegoldTwitter: GabeG0

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Colossus

[John Gilmore]

Thomas/Tommy Flowers has received further posthumous recognition in
recent years, but he deserves still more.  He lived to a great age and
was finally, I believe, knighted.  (The MBE he had received earlier
seemed to be to be paltry recognition for his contributions.)

I met him on one occasion in the early 1970s at the [then]
computer-science pub in London.  I thought it should be the other way
around, but he bought me a glass of superb amontillado.  A civilized
and modest man with little to be modest about.

John Gilmore, Ashland, MA 01721 - USA

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Defined capacity

[Al Sherkow]

I have discussed the problem of IRD and GCL with multiple clients and with IBM. 
That this exists is certain. Also I heart that IBM does not intend to fix this. 
Unfortunate decision in my opinion; and not good for the mainframe ecosystem. 

I have never discussed a problem with IRD and Defined Capacity by itself. I'm 
interested to continue the discussion of IRD and DC if someone wants to share 
their experience. 

Regards, Al 

Al Sherkow, I/S Management Strategies, Ltd.
Consulting Expertise on IBM Workload License Charges (WLC)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: I do not understand S0C6 on CDSG

[Paul Gilmartin]

On Mon, 25 Feb 2013 11:49:59 -0600, John McKown wrote:

>Depends on the contents of register 11. B040 will be quad word aligned only
>if register 11 is itself quad word aligned. If you got this from a STORAGE
>OBTAIN or GETMAIN, then the alignment is only guaranteed to be double word
>aligned, unless you ask for it to be page aligned. 
> 
My earlier suggestion was wretchedly non-reentrant.

OK.  So OBTAIN 16 more bytes than needed.

Use modulo arithmetic to point to the first quadword boundary there.
Save the original address from OBTAIN in order to free the block.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: I do not understand S0C6 on CDSG

[Paul Gilmartin]

On Mon, 25 Feb 2013 11:40:08 -0600, Donald Likens wrote:
>
>Is there a good way in assembler to insure a double word starts on a quadword 
>boundary?
>
 DS((*+15-CSECT)/16*16)C

o There may be an easier way.

o This presumes CSECT is on a quadword boundary.  There may
  be ways to force this.

o This question might get better answers on ASSEMBLER-LIST.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: I do not understand S0C6 on CDSG

[John McKown]

Depends on the contents of register 11. B040 will be quad word aligned only
if register 11 is itself quad word aligned. If you got this from a STORAGE
OBTAIN or GETMAIN, then the alignment is only guaranteed to be double word
aligned, unless you ask for it to be page aligned. There is no way to
request quad word alignment on the STORAGE OBTAIN or GETMAIN request, other
than asking for page aligned. Come to think of it, it is possible that even
in a program object, if might only be double word aligned, unless you told
the BINDER to force page alignment.


On Mon, Feb 25, 2013 at 11:40 AM, Donald Likens wrote:

> I am missing something:
>
> The Principles of Operations states:
>
> COMPARE DOUBLE AND SWAP (CDSG) must
> be designated on a quadword boundary. The R1
> and R2 fields for COMPARE DOUBLE AND
> SWAP must each designate an even-numbered
> register. Otherwise, a specification exception is
> recognized.
>
> I think the following instruction meets all of these requirements but I am
> getting an S0C6?
>
>  EB42 B040 003E   CDSG  R4,R2,SEG
>
> Am I correct is saying B040 is a quadword boundary?
>
> Is there a good way in assembler to insure a double word starts on a
> quadword boundary?
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
This is a test of the Emergency Broadcast System. If this had been an
actual emergency, do you really think we'd stick around to tell you?

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: I do not understand S0C6 on CDSG

[Farley, Peter x23353]

X'B040' is only on a quad-word boundary if the contents of R11 are already on a 
quad-word boundary.  It's not just the displacement, but the contents of the 
base register plus the displacement (i.e., the effective address) that must be 
quad-word aligned.

HTH

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Donald Likens
Sent: Monday, February 25, 2013 12:40 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: I do not understand S0C6 on CDSG

I am missing something:

The Principles of Operations states:

COMPARE DOUBLE AND SWAP (CDSG) must
be designated on a quadword boundary. The R1
and R2 fields for COMPARE DOUBLE AND
SWAP must each designate an even-numbered
register. Otherwise, a specification exception is
recognized.   

I think the following instruction meets all of these requirements but I am 
getting an S0C6?

 EB42 B040 003E   CDSG  R4,R2,SEG

Am I correct is saying B040 is a quadword boundary? 

Is there a good way in assembler to insure a double word starts on a quadword 
boundary?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

I do not understand S0C6 on CDSG

[Donald Likens]

I am missing something:

The Principles of Operations states:

COMPARE DOUBLE AND SWAP (CDSG) must
be designated on a quadword boundary. The R1
and R2 fields for COMPARE DOUBLE AND
SWAP must each designate an even-numbered
register. Otherwise, a specification exception is
recognized.   

I think the following instruction meets all of these requirements but I am 
getting an S0C6?

 EB42 B040 003E   CDSG  R4,R2,SEG

Am I correct is saying B040 is a quadword boundary? 

Is there a good way in assembler to insure a double word starts on a quadword 
boundary?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Reading Active SMF dataset

[Barry Merrill]

If you are going to read any VSAM SMF file, active or inactive, you don't have
to read the full file - you can (MXG DOES) stop when you encounter a block that
starts with 'SMFEOFM', as that is the logical end of file marker.
All subsequent blocks in that VSAM file are also 'SMFEOFM' populated.

Barry


Herbert W. Barry Merrill, PhD
President-Programmer
Merrill Consultants
MXG Software
10717 Cromwell Drive
Dallas, TX 75229-5112
214 351 1966 tel
214 350 3694 fax
http://www.mxg.com
ba...@mxg.com

MXG Support:   supp...@mxg.com
MXG Admin:  ad...@mxg.com

Standard Answers: http://www.mxg.com/administration
What's Supported:   http://www.mxg.com/changes



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Monday, February 25, 2013 9:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reading Active SMF dataset

Jose ADAUTO Ribeiro wrote:

>For now, I need to know the better way to read the SMF dataset.

If you mean you want to READ an ACTIVE and IN USE the VSAM SMF datasets, yes, 
it is possible. A third party tool do it for 'just in time' analysis' without 
waiting for the switch from ACTIVE to DUMP status.

>In addition I would like to know the best way to read, after its dynamic 
>allocation, the SMF file to select some types of records. I did a test program 
>that read a pre-allocated SMF data set using VSAM macros OPEN/GET with RPL 
>OPTCD=(CNV,SEQ), but I don't know if there is another better way.

You may need an APF authorized program while watching out for any ENQ issues 
and keeping track of the RBA. This is what I know from that 3th party tool.

I have RTFM to see what macros [1] are there, but either I missed it or they're 
just not available.

Groete / Greetings
Elardus Engelrecht

[1] - Not those SMF macros where you WRITE out SMF records.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Colossus

[Terry Sambrooks]

Hi,

In the posting about Fortran, John Gilmore rightly paid tribute to Alan
Turing and John von Neumann.

When discussing Colossus however the name of Tommy Flowers is often
forgotten which is a shame as it was he who turned the theory into practical
reality by actually building the beast.

Kind Regards - Terry
 
Director
KMS-IT Limited
228 Abbeydale Road South
Dore
Sheffield
S17 3LA
UK
 
Reg : 3767263
 
Outgoing e-mails have been scanned, but it is the recipients responsibility
to ensure their anti-virus software is up to date.
 
 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: OT: Solaris 7 Software

[Shmuel Metz (Seymour J.)]

In <020d01ce0fcf$dd80b650$988222f0$@mindspring.com>, on 02/20/2013
   at 06:07 PM, Lizette Koehler  said:

>I am not sure where is the best place to post. 

 alt.solaris.x86
 comp.unix.solaris

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 Atid/2
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Reading Active SMF dataset

[Skip Robinson]

OK, since I didn't see anyone else asking of OP: why this preoccupation 
with reading the active SMF MANx? When I converted to SMF log stream, I 
never even fleetingly considered delving into active data. What do you 
expect to see there that would influence your conversion plan? 

.
.
JO.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com



From:   Ted MacNEIL 
To: IBM-MAIN@LISTSERV.UA.EDU, 
Date:   02/25/2013 08:17 AM
Subject:Re: Reading Active SMF dataset
Sent by:IBM Mainframe Discussion List 



>>For now, I need to know the better way to read the SMF dataset.

>If you mean you want to READ an ACTIVE and IN USE the VSAM SMF datasets, 
yes, it is possible. A third party tool do it for 'just in time' analysis' 
without waiting for the switch from ACTIVE to DUMP status.

You can just use IFASMFDP with OPTIONS(DUMP).
Just check the SMF Manual for exact syntax. 
-
Ted MacNEIL
eamacn...@yahoo.ca
Twitter: @TedMacNEIL


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Load To Global with PC_cp (OT)

[Shmuel Metz (Seymour J.)]

In <12e58ce9881ac54091618c736fa1ac647120dac...@corpexmbx.bekco.com>,
on 02/20/2013
   at 05:07 PM, Greg Shirey  said:

>Telling others what to post doesn't often occur - asking others 
>*not* to post off-topic content does occasionally occur.

As opposed to telling others not to post *on-topic* contents, which
occurs far too often.

>In my recollection, the request is usually accompanied by the word
>"please."

I believe that you will find that while some use the word please,
others are less polite.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 Atid/2
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SV: SV: SV: Article for the boss: COBOL will outlive us all

[Shmuel Metz (Seymour J.)]

In <201302201529.55146.jlturr...@centurytel.net>, on 02/20/2013
   at 03:29 PM, Leslie Turriff  said:

>All issues with level numbers and usage clauses may be quickly
>resolved by  looking at the COBOL Language Reference manual 
>(unless one has an aversion to reading it).

Or, more likely, the syntax has concealed the fact that there is an
issue to look up.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 Atid/2
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Mod-9 vs. Mod-27 vs. mixed

[Tom Sims]

Thank you all for your insightful user experiences in response to my question.  
If I may summarize the points that apply to my particular situation:


* No real issues with respect to backups, particularly for 
consolidations, e.g. 
of volume pools -- in fact we may even see a slight improvement in backup 
turnaround.
* No special considerations for mirroring, the same challenges would 
seem to 
apply in general, in all three cases.
* The standard disclaimer still applies, however, with respect to 
critical 
small datasets, such as the JES2 checkpoint and combinations of couple 
datasets, 
that requires a compromise between simplifying the configuration and wasting a 
LOT of space on a MOD-27 or maintaining a small subset of MOD-9s and wasting 
much less space in a slightly more complicated configuration
I should also have mentioned:  No HyperPAV, possibly PPRC or maybe XRC around 
the corner, and all backups under the umbrella of DFSMShsm.

Again, thanks -- IBM-Main rules!

Tom Sims
zOS guy since the daze of XA...

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Reading Active SMF dataset

[Ted MacNEIL]

>>For now, I need to know the better way to read the SMF dataset.

>If you mean you want to READ an ACTIVE and IN USE the VSAM SMF datasets, yes, 
>it is possible. A third party tool do it for 'just in time' analysis' without 
>waiting for the switch from ACTIVE to DUMP status.

You can just use IFASMFDP with OPTIONS(DUMP).
Just check the SMF Manual for exact syntax. 
-
Ted MacNEIL
eamacn...@yahoo.ca
Twitter: @TedMacNEIL

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Spacewar! on S/360

[Anne & Lynn Wheeler]

l...@garlic.com (Anne & Lynn Wheeler) writes:
> VNET wiki reference
> http://en.wikipedia.org/wiki/IBM_VNET
>
> misc. past posts mentioning internal network
> http://www.garlic.com/~lynn/subnetwork.html#internalnet

re:
http://www.garlic.com/~lynn/2013b.html#7 Spacewar! on S/360

warning: vnet topic drift.

JES2 had inherited some networking support from HASP that had "TUCC"
identifier in the source statements. It used spare entries in the (255
entry) psuedo spool device table ... for network defintions
... typically able to define 160 or so entries. However, 23Jun69
unbundling announcement started to charge for application software
(company did make the case that kernel software would still be free).
JES2 had fairly heavyweight development and pricing policies required
that monthly price cover the ongoing costs plus the upfront development
costs. Even with inherited lot of networking support from university
hasp ... there was no forecasted price for JES2 networking that covered
its cost (company normally did three forecast levels, high, medium, and
low ... assumption was that number of customers increased as price went
down ... but there was no price times number of customers ... that
covered the upfront JES networking costs).

VNET had modern layered architecture (compared to JES and other of the
period) ... had no limit on nodes and also could support "drivers" that
talked to other infrastructures. At the time, the internal network had
more nodes than could be defined in JES ... so the basis for the
internal network was all VNET ... but VNET did have drivers that could
talk to JES as boundary nodes (JES couldn't be trusted at other than
boundary ... since it would trash traffic if either the origin or
destination node wasn't in its table ... even at boundary, JES would
trash traffic where that JES was the destination ... if the originating
node wasn't in its table). JES lack of clean layered architecture also
resulted in traffic between two JES systems at different versions would
crash the MVS system. This became increasingly common as the internal
network started to pass 1000 nodes world-wide. As a result, protocol
conversion routines were added to the VNET JES drivers ... which would
convert from any JES format to the specific format required by the
specific JES version that it was directly talking to.

This
http://en.wikipedia.org/wiki/IBM_VNET

makes mentioned of 19.2kbit trans-atlantic satellite circuit. This
contributed to the infamous case of traffic from San Jose JES system
crashing Hursley MVS systems (because the releases were at different
level). The crashes was blamed on the Hursley VNET system ... because
they had failed to start the correct JES driver that converted to the
format required by the Hursley JES release.

In any case, this was after the FS failure and the mad rush to get
products into the 370 pipeline ... as well as POK convincing corporate
to kill the vm370 product, shutdown the burlington mall vm370
development group and transfer all the people to POK for MVS/XA (or
otherwise MVS/XA wouldn't meet ship schedule nearly 7-8yrs later;
Endicott managed to save the vm370 product mission, but had to
reconstitute a development group from scratch ... online share archives
has things to say about vm370 product code quality during the period).
As a result, corporate wasn't approving the announcement and release of
VNET as customer product.

The JES group finally convinced corporate to allow VNET release/announce
as part of a pricing gimick ... it would be announced as a combined
JES+VNET product ... where JES & VNET were both priced the same (little
obfuscation since VNET did have JES drivers). Then the combined JES+VNET
forecast times the price was finally larger than the JES development
costs (VNET costs being nearly negligible) ... as an aside, this wasn't
the only time that the slight-of-hand happened using vm370 products to
cover MVS product costs. misc. past posts mentioning hasp, jes, nji, etc
http://www.garlic.com/~lynn/submain.html#hasp

besides the story here about Edson talking to ARPA
http://en.wikipedia.org/wiki/Edson_Hendricks

the internal network was larger than the arpanet/internet from just
about the beginning until sometime late 85 or early 86. I've
pontificated it was partially because vnet had layered implementation
with effectively ability for gateway in every node ... something that
the internet didn't get until the great cutover to tcp/ip on 1Jan1983
(at the time arpanet was approx. 100 nodes and 250 hosts, while the
internal network was rapidly approching 1000 ... which it passed that
summer). again, past posts mentioning internal network
http://www.garlic.com/~lynn/subnetwork.html#internalnet
post with copy of vnet 1000 node announcement 
http://www.garlic.com/~lynn/2006k.html#3
and 
http://www.garlic.com/~lynn/2006k.html#8

above also includes other weekly new node announcements during 1983 as
well as summary of all internal locations that had new nodes added

Re: JES exit 6

[Crabtree, Anne D]

Hmmm ok.  my production jes has this:

DESTID(VPRT1) DEST=U1   
DESTID(INB)   DEST=N67  
DESTID(PEIA400) DEST=N68
DESTID(VPRT2) DEST=U2   
DESTID(VPRT3) DEST=U3   
DESTID(VPRT4) DEST=U4   
DESTID(VPRT5) DEST=U5   
DESTID(VPRT6) DEST=U6   
DESTID(VPRT7) DEST=U7   
DESTID(VPRT8) DEST=U8   
DESTID(VPRT9) DEST=U9   .

But onepac only has the first line :
DESTID(VPRT1) DEST=U1   

So maybe that field is seen as U instead of VPRT on my prod lpar??

And in the assembly, I have vol=ser on all relevant packs and put the correct 
respack when assembling... I verify that module goes to correct LINKLIB, etc.

Anne D. Crabtree
System Programmer 
WV Office of Technology Data Center
1900 Kanawha Blvd East
Bldg 6, Room B-110
Charleston, WV  25305
(304)558-5914 ext 58292 
(304)558-1441 fax

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mark Zelden
Sent: Monday, February 25, 2013 10:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES exit 6

On Mon, 25 Feb 2013 10:03:03 -0500, Crabtree, Anne D  
wrote:

>I am trying to modify JES exit 6 so that jobs, starting with a particular 
>string and destination is to a particular partial string, get assigned a class 
>of F (jobname beginning with WE# and destination beginning with VPRT).  I 
>also want to prohibit non SY users from using class Z.
>
>I modified our existing exit 6 and tested on our onepac system.  It worked 
>great.  However, when I tried to use the same module in our production lpar, 
>the class Z logic is working, but the class F will not work!  I've tried for 
>the last two Sundays for hours!
>
>Yesterday, changed the module name and entry name so I could make sure it was 
>using the new module.  $d exit(6) shows the new entry.  I've compared JES2 
>initialization members and cannot figure out why the same code works on one 
>but not the other.  Does anyone have a suggestion on what else I can look at?
>
>I have a small window of opportunity each week to try and get this to work.  
>Thought about using the trace option but don't know enough about how to do it 
>so would have to read up on that.  Would that be of any help?
>
>Here's the part of code that I changed: (I'm not the greatest assembler 
>programmer so be kind :))
>


I didn't look at the code closely, but since it works in your onepack, could 
there be something different about that VPRT dest in the production JES2 
that is keeping that compare from working.  I'm also not a very good assembler 
programmer, but what I would do for something like this is blow up the exit at 
that point or set a slip and get a dump and see what's actually there.

Is JCTPRRID really the correct field to look at for print dest?

SYS1.SHASMAC($JCT)

JCTPROUT DS0F  JOB PRINT ROUTE CODE
JCTPRNOD DSHNODE NUMBER
JCTPRRMT DSHREMOTE NUMBER  
 SPACE 1   
JCTPRRID DSCL8 PRINTER EBCDIC RMT/USERID   
 SPACE 1   


Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
Systems Programming expert at http://expertanswercenter.techtarget.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN





--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

[Elardus Engelbrecht]

Mark Zelden wrote:

>I didn't look at the code closely, but since it works in your onepack, could 
>there be something different about that VPRT dest in the production JES2 
>that is keeping that compare from working.  

Perhaps some RACF profile is stopping the OP? Try $T DEBUG,SECURITY=YES to 
eliminate that possibility?

I have also have a quick look at that snippet, but I'm also wondering, after 
reading your comment, if the OP is using the correct JES2 set of macros during 
assembly?

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

[Mark Zelden]

On Mon, 25 Feb 2013 10:03:03 -0500, Crabtree, Anne D  
wrote:

>I am trying to modify JES exit 6 so that jobs, starting with a particular 
>string and destination is to a particular partial string, get assigned a class 
>of F (jobname beginning with WE# and destination beginning with VPRT).  I 
>also want to prohibit non SY users from using class Z.
>
>I modified our existing exit 6 and tested on our onepac system.  It worked 
>great.  However, when I tried to use the same module in our production lpar, 
>the class Z logic is working, but the class F will not work!  I've tried for 
>the last two Sundays for hours!
>
>Yesterday, changed the module name and entry name so I could make sure it was 
>using the new module.  $d exit(6) shows the new entry.  I've compared JES2 
>initialization members and cannot figure out why the same code works on one 
>but not the other.  Does anyone have a suggestion on what else I can look at?
>
>I have a small window of opportunity each week to try and get this to work.  
>Thought about using the trace option but don't know enough about how to do it 
>so would have to read up on that.  Would that be of any help?
>
>Here's the part of code that I changed: (I'm not the greatest assembler 
>programmer so be kind :))
>


I didn't look at the code closely, but since it works in your onepack, could 
there be something different
about that VPRT dest in the production JES2 that is keeping that compare 
from working.  I'm
also not a very good assembler programmer, but what I would do for something 
like this is blow
up the exit at that point or set a slip and get a dump and see what's actually 
there.

Is JCTPRRID really the correct field to look at for print dest?

SYS1.SHASMAC($JCT)

JCTPROUT DS0F  JOB PRINT ROUTE CODE
JCTPRNOD DSHNODE NUMBER
JCTPRRMT DSHREMOTE NUMBER  
 SPACE 1   
JCTPRRID DSCL8 PRINTER EBCDIC RMT/USERID   
 SPACE 1   


Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS   
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html 
Systems Programming expert at http://expertanswercenter.techtarget.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Reading Active SMF dataset

[Elardus Engelbrecht]

Jose ADAUTO Ribeiro wrote:

>For now, I need to know the better way to read the SMF dataset.

If you mean you want to READ an ACTIVE and IN USE the VSAM SMF datasets, yes, 
it is possible. A third party tool do it for 'just in time' analysis' without 
waiting for the switch from ACTIVE to DUMP status.

>In addition I would like to know the best way to read, after its dynamic 
>allocation, the SMF file to select some types of records. I did a test program 
>that read a pre-allocated SMF data set using VSAM macros OPEN/GET with RPL 
>OPTCD=(CNV,SEQ), but I don't know if there is another better way.

You may need an APF authorized program while watching out for any ENQ issues 
and keeping track of the RBA. This is what I know from that 3th party tool.

I have RTFM to see what macros [1] are there, but either I missed it or they're 
just not available.

Groete / Greetings
Elardus Engelrecht

[1] - Not those SMF macros where you WRITE out SMF records.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

JES exit 6

[Crabtree, Anne D]

I am trying to modify JES exit 6 so that jobs, starting with a particular 
string and destination is to a particular partial string, get assigned a class 
of F (jobname beginning with WE# and destination beginning with VPRT).  I 
also want to prohibit non SY users from using class Z.

I modified our existing exit 6 and tested on our onepac system.  It worked 
great.  However, when I tried to use the same module in our production lpar, 
the class Z logic is working, but the class F will not work!  I've tried for 
the last two Sundays for hours!

Yesterday, changed the module name and entry name so I could make sure it was 
using the new module.  $d exit(6) shows the new entry.  I've compared JES2 
initialization members and cannot figure out why the same code works on one but 
not the other.  Does anyone have a suggestion on what else I can look at?

I have a small window of opportunity each week to try and get this to work.  
Thought about using the trace option but don't know enough about how to do it 
so would have to read up on that.  Would that be of any help?

Here's the part of code that I changed: (I'm not the greatest assembler 
programmer so be kind :))

SCAN LA R3,JCTJCLAS LOAD ADDRESS OF CLASS
LR4,=F'0'  COLUMNS 
TO BE SCANNED
EX R4,SCANCLS1   SCAN FOR INVALID 
CLASS
BC 2,CHKJNAME   CLASS IS VALID
EX R4,SCANCLS2   CLASS Z?
 BC2,CLASSZ   IF CLASS Z, 
GO CHECK USERID
MVI  JCTJCLAS,C'C'  NOT SY, SET CLASS 
TO C
BRETURN RETURN TO 
JES
CLASSZ LA  R5,JCTNOUSR  SUBMITTING USERID
CLC=CL2'SY',0(R5) IS THIS AN SY 
USERID?
BE ALLGOOD CLASS Z OK FOR SY
MVI  JCTJCLAS,C'C'  CLASS Z CHANGED TO 
C FOR NON SY
BRETURN RETURN TO 
JES
CHKJNAME LA  R6,JCTJNAME  JOBNAME
CLC=CL3'WE#',0(R6)DOES JOBNAME START 
WITH WE#?
BE  CHKDEST   YES, GO CHECK 
DESTINATION
B RETURN NO, RETURN 
TO JES
CHKDEST  LA   R7,JCTPRRIDJOB PRINT DESTINATION
CLC=CL4'VPRT',0(R7)   DOES PRINT DEST START 
WITH VPRT
BE CHGCLASYES, GO 
CHANGE CLASS TO F
ALLGOODB  RETURNNO, RETURN TO JES
CHGCLAS MVIJCTJCLAS,C'F'  MOVE F TO CLASS
B  RETURN   RETURN TO 
JES
RETURN   RETURN (14,12),RC=0
SCANCLS1   TRT   0(0,R3),TRTABLE1  LOOKIN FOR A VALID CLASS
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*   VALID CLASS TABLE CHECKING FOR CLASS C,E,F,I,K,L,Q,T*
*   CLASS I FOR IPO2*
*   CLASS T FOR TEST*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
TRTABLE1 DC   195X'00'
 DC 1X'C3'   C
 DC 1X'00'
 DC 1X'C5'   E
 DC 1X'C6'   F
 DC 2X'00'
 DC 1X'C9'   I
 DC 8X'00'
 DC 1X'D2'   K
 DC 1X'D3'   L
 DC 1X'D4'   M
 DC 3X'00'
 DC 1X'D8'   Q
 DC10X'00'
 DC 1X'E3'   T
 DC 5X'00'
 DC23X'00'
*DC 1X'E9'   Z
*DC22X'00'
SCANCLS2 TRT   0(0,R3),TRTABLE2 LOOKIN FOR CLASS Z
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*   VALID CLASS TABLE CHECKING FOR CLASS Z  *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
TRTABLE2 DC   233X'00'
 DC 1X'E9'   Z
 DC22X'00'
*


Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Bldg 6, Room B-110
Charleston, WV  25305
(304)558-5914 ext 58292
(304)558-1441 fax


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Gilmore vs ... er, almost everybody ... ;-)

[Elardus Engelbrecht]

Shane Ginnane wrote:

>Personally I enjoy Johns contributions - acerbic or otherwise. 
>And his jousts with gil.

>Bloody sight more entertaining than most of the drivel that this list 
>generates.

Agreed! When I want entertainment, I just look at those posts and those O/T 
things. ;-D

Groete / Greetings
Elardus Engelbrecht
From Bloody Hot Sunny South Africa! ;-)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Spacewar! on S/360

[Anne & Lynn Wheeler]

spmcbr...@us.ibm.com (Sean P. McBride) writes:
> I recently found out that Edson Hendricks (the creator of VNET) wrote
> a copy of Spacewar! for the IBM System 360 while he was an MIT
> student.  It was based on the PDP-1 version, and it was used by MIT
> for their annual open house in either 1965 or 1966.  My understanding
> is that this S/360 version ended up getting played by IBMers at the
> IBM Research Lab, which resulted in a corporate ban of running the
> software on IBM machines.  Considering that the source should run on
> modern IBM mainframes with some code modification, I thought that this
> might be something worth resurrecting for the 50th anniversary of the
> System 360 announcement.  Do any of you ever recall playing this game
> on an IBM mainframe or hearing about others that might have done this?
> Do any of you have suggests for finding the source code for this S/360
> version?  Edson does not have a copy, and I have not yet heard back
> the from Computer History Museum.

Ed wrote spacewar at the science center for the 2250M4 (aka 2250+1130
combination, trivia 2250M1 ... aka 360 channel attached 2250 was same
price as 2250M4). misc. past posts mentioning science center
http://www.garlic.com/~lynn/subtopic.html#545tech

two-person game with the 2250 keyboard partitioned in half for controls
... my kids would come in on weekends and play it. 

maybe confusing a couple other things. 

Ed & I transferred from science center to San Jose Research about the
same time. I imported an early (fortran) version of adventure (had been
ported from pdp10 to vm370/cms) and made it available inside the
corporation (if somebody got all the points, I would send them the
fortran source, one person then ported it to PLI). At one point lots of
people in the santa teresa lab (now silicon valley lab) were playing it
first shift ... instead of working. Their management decreed that after
certain date, anybody caught playing first shift would be severely
disciplined (rumor is that something similar was happening at other
labs). TYMSHARE (up valley from san jose research) had gotten version
from Stanford for their PDP10 and then somebody at TYMSHARE had ported
from PDP10 to their vm370/cms service. TYMSHARE trivia ... TYMSHARE made
their vm370/cms online computer conferencing free to share starting in
aug76 ...  archive here:
http://vm.marist.edu/~vmshare

Later, somebody (the author of rexx) did multiuser client/server version
of spacewar for vm370/cms. There was game server ... and game clients
that could "connect" to a game server. It used the internal SPM for
client/server communication. VNET supported SPM ... so clients could run
on either the same machine as a game server ... or connect from anywhere
on the internal network. The clients used cms 3270 terminal ... however
some number of people wrote client 'bots ... that automated controls and
would start to beat all other players. game server was then modified
that power use/penalty increased non-linear as the interval between
client moves decreased (as attempt to level the playing field between
real people players and 'bot players).

Edson wiki reference:
http://en.wikipedia.org/wiki/Edson_Hendricks
other drift, ITUNEs app about Edson (there is also book)
https://itunes.apple.com/us/app/cool-to-be-clever-edson-hendricks/id483020515?mt=8

VNET wiki reference
http://en.wikipedia.org/wiki/IBM_VNET

misc. past posts mentioning internal network
http://www.garlic.com/~lynn/subnetwork.html#internalnet

the internal VNET technology was also the basis for univ.  BITNET (&
EARN in Europe; trivia BITNET is where this ibm-main mailing list
originated). misc. past posts mentioning bitnet
http://www.garlic.com/~lynn/subnetwork.html#bitnet

bitnet wiki
http://en.wikipedia.org/wiki/BITNET

misc. past posts mentioning spacewar, adventure, and/or 
http://www.garlic.com/~lynn/2000b.html#67 oddly portable machines
http://www.garlic.com/~lynn/2000g.html#24 A question for you old guys -- IBM 
1130 information
http://www.garlic.com/~lynn/2001b.html#71 Z/90, S/390, 370/ESA (slightly off 
topic)
http://www.garlic.com/~lynn/2001f.html#10 5-player Spacewar?
http://www.garlic.com/~lynn/2001f.html#13 5-player Spacewar?
http://www.garlic.com/~lynn/2001f.html#14 5-player Spacewar?
http://www.garlic.com/~lynn/2001h.html#8 VM: checking some myths.
http://www.garlic.com/~lynn/2001j.html#26 Help needed on conversion from VM to 
OS390
http://www.garlic.com/~lynn/2002i.html#20 6600 Console was Re: CDC6600 - just 
how powerful a machine was
http://www.garlic.com/~lynn/2002j.html#22 Computer Terminal Design Over the 
Years
http://www.garlic.com/~lynn/2002o.html#17 PLX
http://www.garlic.com/~lynn/2003c.html#0 Wanted: Weird Programming Language
http://www.garlic.com/~lynn/2003c.html#72 OT: One for the historians - 360/91
http://www.garlic.com/~lynn/2003d.html#38 The PDP-1 - games machine?
http://www.garlic.com/~lynn/2003f.html#39 1130 Games WAS Re: Any DEC 340 
Display System Doco ?
http://www.garl

Re: Secure Service Delivery

[Donald J.]

By "it" the reference was to the Co:z SFTP.

OMVS openssh 5 supports chroot, but apparently only when using
"subsystem sftp internal-sftp".
The previous OMVS ported tools version did not support chroot.
Co:z seems to require use "Subsystem sftp
/u/local/coz/bin/sftp-server.sh" which appears to prevent
use of chroot?   I see no mention of chroot in the Co:z doc or forum.  
Is anyone using chroot with co:z?

-- 
  Donald J.
  dona...@4email.net


On Fri, Feb 22, 2013, at 01:36 PM, John Gilmore wrote:
> Donald J. wrote:
> 
> | It also does not appear to support the chroot
> | environment option
> 
> This is the wrong quibble.  Vanilla SFTP supports chroot.
> GIYF.
> 
> John Gilmore, Ashland, MA 01721 - USA
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

-- 
http://www.fastmail.fm - Same, same, but different...

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Spacewar! on S/360

[John P Kalinich]

The Michigan Mods tapes are on the CBT web site.

Regards,
John K



From:   Clark Morris 
To: IBM-MAIN@listserv.ua.edu
Date:   02/25/2013 06:56 AM
Subject:Re: Spacewar! on S/360
Sent by:IBM Mainframe Discussion List 



On 24 Feb 2013 23:37:07 -0800, in bit.listserv.ibm-main you wrote:

>In a google search, I saw a textbook mention of the game, and that it
>was ported.  No mention of the software.  Did find a web site with the
>PDP-1 version with a PDP-1 emulator on the browser page at
>
http://www.geek.com/articles/games/play-spacewar-on-the-dec-pdp-1-emulated-in-your-browser-20121211/

>
>Maybe someone can isolate the PDP-1 source and re-port it?

Is the MICHMODS OS360 precursor to the CBT tape archived anywhere? the
Goddard tape?

Clark Morris
>
>I am fairly certain the Star Trek and Klingon games are on the CBTTape.org
site.
>
>On Sun, Feb 24, 2013 at 10:51 PM, Sean P. McBride 
wrote:
>> All,
>>
>> I recently found out that Edson Hendricks (the creator of VNET) wrote a
copy of Spacewar! for the IBM System 360 while he was an MIT student.  It
was based on the PDP-1 version, and it was used by MIT for their annual
open house in either 1965 or 1966.  My understanding is that this S/360
version ended up getting played by IBMers at the IBM Research Lab, which
resulted in a corporate ban of running the software on IBM machines.
Considering that the source should run on modern IBM mainframes with some
code modification, I thought that this might be something worth
resurrecting for the 50th anniversary of the System 360 announcement.  Do
any of you ever recall playing this game on an IBM mainframe or hearing
about others that might have done this? Do any of you have suggests for
finding the source code for this S/360 version?  Edson does not have a
copy, and I have not yet heard back the from Computer History Museum.
>>
>> Thanks for your help!!!
>>
>> Respectfully,
>> Sean P. McBride
>> Millennialmainframer.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IXGBRWSE (LogStream Browse)

[John Gilmore]

The answer Nick Jones provided is more specifically helpful than he
makes it out to be.

Look at the topic

Writing an ENF event 48 listen exit

in z/OS MVS Programming: Authorized Assembler Services Guide, SA22-7608-xx.

On 2/25/13, Nick Jones  wrote:
> Hi John,
>
> Nothing directly will tell you that more data is in the log stream. You can
> do one of these to simulate this.
>
> 1) If you own the writing and reading applications you can signal yourself
> to read some more
> 2) Your program can wake up once in a while and browse again.  Another
> EndReached will just mean you'll need try again later.
> 3) Logger issues ENF signal 48 for log steam events.  Listen to the ENF
> signal for specific events as they might signal logstream activity. (Offload
> complete is a good one to look at here)
>
>
> -Nick
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
John Gilmore, Ashland, MA 01721 - USA

t.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Spacewar! on S/360

[Clark Morris]

On 24 Feb 2013 23:37:07 -0800, in bit.listserv.ibm-main you wrote:

>In a google search, I saw a textbook mention of the game, and that it
>was ported.  No mention of the software.  Did find a web site with the
>PDP-1 version with a PDP-1 emulator on the browser page at
>http://www.geek.com/articles/games/play-spacewar-on-the-dec-pdp-1-emulated-in-your-browser-20121211/
>
>Maybe someone can isolate the PDP-1 source and re-port it?

Is the MICHMODS OS360 precursor to the CBT tape archived anywhere? the
Goddard tape?

Clark Morris
>
>I am fairly certain the Star Trek and Klingon games are on the CBTTape.org 
>site.
>
>On Sun, Feb 24, 2013 at 10:51 PM, Sean P. McBride  wrote:
>> All,
>>
>> I recently found out that Edson Hendricks (the creator of VNET) wrote a copy 
>> of Spacewar! for the IBM System 360 while he was an MIT student.  It was 
>> based on the PDP-1 version, and it was used by MIT for their annual open 
>> house in either 1965 or 1966.  My understanding is that this S/360 version 
>> ended up getting played by IBMers at the IBM Research Lab, which resulted in 
>> a corporate ban of running the software on IBM machines.  Considering that 
>> the source should run on modern IBM mainframes with some code modification, 
>> I thought that this might be something worth resurrecting for the 50th 
>> anniversary of the System 360 announcement.  Do any of you ever recall 
>> playing this game on an IBM mainframe or hearing about others that might 
>> have done this? Do any of you have suggests for finding the source code for 
>> this S/360 version?  Edson does not have a copy, and I have not yet heard 
>> back the from Computer History Museum.
>>
>> Thanks for your help!!!
>>
>> Respectfully,
>> Sean P. McBride
>> Millennialmainframer.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IXGBRWSE (LogStream Browse)

[Nick Jones]

Hi John,

Nothing directly will tell you that more data is in the log stream. You can do 
one of these to simulate this.

1) If you own the writing and reading applications you can signal yourself to 
read some more
2) Your program can wake up once in a while and browse again.  Another 
EndReached will just mean you'll need try again later.
3) Logger issues ENF signal 48 for log steam events.  Listen to the ENF signal 
for specific events as they might signal logstream activity. (Offload complete 
is a good one to look at here)


-Nick

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Defined capacity

[Vernooij, CP - SPLXM]

Hi Al,

Back from holidays, I was reading the requests about IRD and DC/GCL and saw you 
answered them.

My understanding is however, that IRD Weight management stops, "when an LPAR is 
softcapped", both by the Defined Capacity and by the Group Capacity Limit. 

This is probably explainable, because GCL takes the current Weights into 
consideration when distributing the GC MSUs over the LPARs and cannot handle 
weights being manipulated behind its back by IRD. However IRD in fact is also 
WLM, so these components could have coordinated their actions, but don't.

As you describe, this is very undesirable and can cause problems. 

I opened an PRM at IBM to check this behavior and they confirmed this. 
I also asked what happens when I stop IRD. Then the weights are kept at their 
current, probably unusable values.
Also IBM answered that they had no intention to change this, so this makes me 
conclude that IRD and DC/GCL do not cooperate, in fact they do the opposite, 
resulting in undesired LPAR settings.

Kees.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Al Sherkow
Sent: Friday, February 15, 2013 17:03
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Defined capacity

IRD weight management and Defined Capacity work fine. 

The problem comes with IRD and LPAR Group Capacity Limits (introduced in z/OS 
1.8).  The problem is when an LPAR Group is capped IRD stops adjusting weights. 
This is rather unfortunate as this is the time when a customer would most want 
IRD to adjust the weights within the limits of the LPAR Group Limit. 

When a group of LPARs is capped the effect is the same as that group being out 
of capacity. That is there is more workload trying to run than the amount of 
capacity available. When this group cap is set some LPARs may be running low 
importance work consuming CPU time in the group. Simultaneously other LPARs may 
really be feeling the capacity stress and these may stop running importance 4, 
5 and discretionary work. At this point is would be great if IRD would move 
capacity away from the low importance work in the group, to the LPARs that are 
impacting more important work. This is what IRD weight management would do.

You can use both of these capabilities together, but you must understand that 
weight management stops, as it is at the time the group cap "turns on". 

Al Sherkow, I/S Management Strategies, Ltd.
Consulting Expertise on IBM Workload License Charges (WLC), LPARs and LCS 
Software Seminars on IBM Mainframe Software Pricing
+1 414 332-3062

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

For information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by error, please notify the sender immediately by return 
e-mail, and delete this message. 

Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its 
employees shall not be liable for the incorrect or incomplete transmission of 
this e-mail or any attachments, nor responsible for any delay in receipt. 
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch 
Airlines) is registered in Amstelveen, The Netherlands, with registered number 
33014286




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Fortran

[Peter Sylvester]

ther was some competition

http://en.wikipedia.org/wiki/Z4_%28computer%29

The *Z4* was the world's first commercial digital computer , 
designed by German  engineer Konrad Zuse 
 and built by his company /Zuse Apparatebau 
/ between 1942 and 
1945.^[1]  The Z4 was Zuse's final 
target for the Z3  design, and like it, was an 
electromechanical , not an electronic 
 machine.^[2] 



The Z4 was very similar to the Z3  in its design but 
was significantly enhanced in a number of respects. The memory consisted of 32 bit rather than 22 
bit floating point words. A special unit called the /Planfertigungsteil/ (program construction 
unit), which punched the program tapes made programming and correcting programs for the machine much 
easier by the use of symbolic operations and memory cells. Numbers were entered and output as 
decimal floating point even though the internal working was in binary. The machine had a large 
repertoire of instructions including square root, MAX, MIN and sign. Conditional tests included 
tests for infinity. When delivered to ETH Zurich  the 
machine had a conditional branch facility added and could print on a Mercedes typewriter. There were 
two program tapes where the second could be used to hold a subroutine (originally six were 
planned).^[3] 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN