I am attempting something that per the manual will not work (but I think makes
sense). Does anyone know what happens when an SRB that is scheduled with
SYNCH=YES is suspended?
Per the manual:
SYNCH=YES
The SRB is to be scheduled and synchronized with the caller's work unit;
the caller's work un
S0C4 CSECT
USING S0C4,15
L 14,BADADDR
ST 1,0(14)
DS 0F
BADADDR DC X'80FF'
END
--
For IBM-MAIN subscribe / signoff / archive access
I am attempting to monitor MQ. To that affect I want to look at the logs
(forgive me I do not know much about MQ).
I found the CSQ1LOGP utility and am using the extract function. I was able to
get this to work using the ARCHIVE DD however it failed with the following
message when I only specif
Thanks but I guess I am doing something wrong with the BSDS because when I
attempt to use it I get...
CSQ1210E LOG READ ERROR, RETCODE=0008 REASON CODE=00D10014
--
For IBM-MAIN subscribe / signoff / archive access instruc
I am attempting to create something like what you see on a PC. I would like to
have my rexx display on the terminal something like the following:
Option (view of edit)
System Parameters
Monitor
Event
Event
Monitor
…
Each of t
Using the ISPF list was useful in that it gave me the idea to use TBDISPL. I
also found an item suggesting that IBM document how to use zdata (in 2004).
TBDISPL might work for me (but I still would rather have a panel like ISPF 3.4
where I supply the commands and data.
I have joined the ISPF list and posted questions... Thanks
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
They have been very helpful. It turns out this is dynamic area as documented in
"Dialog Developer's Guide and Reference".
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu w
Does anyone see any problems with the following code... Updating free space
pointer.
*C DO UNTIL SBLKFREE IS SET
*C SET R6 = CSALSBLK.SBLKFREE (ADDRESS TO PUT STORAGE)
LG R5,CSALSBLK
The follow code supports a FIFO control block chain in CSA. When nothing is in
the queue the first and last pointers are zero. It must not be working properly
because one of my users gets orphan control blocks periodically. I’ve looked at
this until my eyes hurt. Does anyone see the problem in t
I see I have a typo in the title... It should be Orphan.
Thank you for looking at this.
The user knows there are orphans because I have created what one might call a
"variable length cell pool system above the bar". The way it works is I obtain
a meg of storage above the bar. When obtained the
We run our product on somewhere around 15 client site. We have had this problem
on one client site (multiple LPARs) since we started running there. We have
only seen this problem on one other system during a trial (they did not keep
the product). The client site that sees this problem sees it ra
Walt... Thanks for asking questions. I will answer you questions as best as I
can.
Does that duplication include number of CPs and processor speed? I have seen
test environments that were setup as single CP, which does little to help debug
problems related to multi-tasking or -processing.
A
My SWAG is that there is a problem with serializing the addition and/or
deletion of entries in the FIFO queue. I.e. two different CPUs are trying
to add (maybe delete) a FIFO entry and one CPUs update is "lost". Without
looking at code, this is just a guess.
Question... We use PLO to serialize.
Ed... You may have found the problem... I had defined the PLT in CSA but never
set R1. Changed the programs and testing (but of course if it works it really
will not show anything because testing in our environment always worked).
I have asked for more CPs on our VM system.
Testing with multipl
This is for MQ but really not related. MQ has a number of VSAM files. I need to
make these files empty for an upgrade so I can reformat them. I want to do this
without deleting and reallocating them. These are linear and KSDS VSAM files. I
tried allocating a new Linear VSAM file and REPROing it
I have read in the Init and Tuning that if it can't get the storage in SQA it
will get it in CSA. So why care if SQA is too small (as long as CSA can handle
it?
How does one calculate the correct SQA/CSA sizes?
What values do you set in your shop and why?
Thanks for your help.
--
I have a control block chain in CSA above the BAR that is updated from multiple
address spaces with a first and last pointer. The last entry in the chain has a
next = 0. If there are no entries in the chain the first and last pointer = 0.
I seem to be adding two entries to the beginning of the c
Missed a line of code at the end... Here is the updated code:
FIRST DS D
LASTDS D
DOX378 DS0H
LGR6,LAST
*C IF FIRST AND LAST EQ 0
I found the statement in the POP...
PERFORM LOCKED OPERATION can be thought
of as performing concurrent interlocked updates of
multiple operands. However, the instruction does
not actually perform any interlocked update, and a
serially reusable resource cannot be updated predictably
through the us
I posted before on this issue and you all were a great help because I was using
CS and PLO to serialize. However I changed the code and the issue still exists.
The issue looks like, I create a control block but it does not get added to the
chain… I think the term is orphan. The control block str
Sorry it took me so long to respond. I did not see that this was updated in the
daily updates. I do not think R1 is used in these instructions. Why do you ask?
--
For IBM-MAIN subscribe / signoff / archive access instructions,
se
Has anyone come up with a way for a REXX program to determine the library it
resides in?
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
I failed to mention that when using EXEC 'rexx.library'. (where 'rexx.library'
contains member TEMPNAME.)
I am thinking about looking at the output of LISTA but not sure it is worth the
effort. If anyone else has a need for this capability I may be able to work
something out and post it.
-
Thank you all...
Here is a working example:
01 /* REXX */
02 PARSE SOURCE SRCINFO;
03 parse var SRCINFO TSO COMMAND CMD DDNAME DSNAME exec TSO ISPF TOKEN;
04 say TSO;
05 say DSNAME;
06 say ISPF;
Command entered:
ex 'tssdon.meas.install(SO)'
Results of rexx:
TSO
My authorized program is checking an if an enque is available and the return
code is 4 reason code return is 02340404.
My ISGENQ macro follows:
ISGENQ REQUEST=OBTAIN,QNAME=WKPROD,RNAME=STCNAME,
SCOPE=SYSTEM,ENQTOKEN=TASKTOK,
RNAMELEN=STCNL,CONTROL=EXCLUSIVE,TEST=YES
Jon... Are you sure about that because all is says in the manual is...
Meaning: For REQUEST=OBTAIN. An authorized caller requested
an ENQ with an unauthorized QNAME.
Note: I also check for a zero return code (in case it is not authorized).
OK I already figured out that the following command allows a shop to use
indirect volser support for zFS files.
DEFINE CLUSTER (NAME(ZFS.ROOT) LINEAR VOLUMES(&SYSR1) RECATALOG)
I also figured out that (at least on z/OS R12) that you cannot use a 6
character symbolic and you cannot use **.
Right now the root is read write but someday I plan to make it read-only.
I guess I didn't ask the right question... Let me try again.
If I put a zFS on the SYSRES and recatalog it to use a indirect volume
reference, what needs to be done to IPL from a different SYSRES?
---
Note: The zFS would have been created with a different master catalog. I was
assuming that SYS1 statement in the entry in the manual meant that it was
cataloged in the master catalog. Has anyone put the OMVS root ion the SYSRES?
IF so, how did you do it?
So it must be a SYS1 dataset... Thanks
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
I agree that one would not use indirect volume reference for any file that is
shared across LPARs. This would only be for files that are unique for each LPAR.
Jon… I thought being SYS1 removed the catalog ownership restriction. Each LPAR
has its own master catalog.
-
We have 4 different non-sysplex LPARs all maintained by a sand box LPAR. We
install on the sand box LPAR and then copy volumes and files to the other
systems to roll out the maintenance. I recently installed a serverpac and
decided to make the /etc and /var filesystems SYS1 residing on the SYSRE
Currently we are converting our information to ACSII and sending it to a java
socket server on a windows platform using port 41000. The java socket server
does some processing and then sends information to a syslog daemon using UDP
port 514 and all works well. However when the java socket server
I think I figured it out... I think we need to change the default codepage for
java. Java on USS has a default codepage of IBM-1407 (which is basically
EBCDIC).
--
For IBM-MAIN subscribe / signoff / archive access instructions,
I have been looking at the LE documentation now for days and still not sure
what I need to do to have my Assembler program call C or C++ programs. I need
this interface to be very efficient because I will be calling these subroutines
maybe more than a 1,000,000 times a day. What I have come up w
I have been struggling with this for a while... Cancel always works but I don't
think that is clean. I just looked in the IP Socket Interface guide hoping it
would help but the design noted there has a task receiving data forever. I do
not have a problem if the socket is busy. I can always set a
Per the "System Performance Paper" from CMG the calculation for CPU utilization
is as follows:
For Shared Logical Processors CPU Utilization = Sum(SMF70PDT) / (NUMCPS x
SMF70INT) x 100%
For Dedicated Logical Processors CPU Utilization = Sum(SMF70PDT - SMF70WAT) /
(NUMCPS x SMF70INT) x 100%
I wished I asked the list a long time ago on how to do this. I used the
TESTAUTH macro for a long time to determine the mode entered. However this
invokes an SVC and to avoid the overhead I now use my own macros that sets a
flag in memory as well as mod so all I need to do is check the flag.
--
Per the "System Performance Paper" from CMG the calculation for CPU utilization
is as follows:
For Shared Logical Processors CPU Utilization = Sum(SMF70PDT) / (NUMCPS x
SMF70INT) x 100%
For Dedicated Logical Processors CPU Utilization = Sum(SMF70PDT - SMF70WAT) /
(NUMCPS x SMF70INT) x 100%
Do you want to track when the VSAM file is updated and by who is doing it (MEAS
can do this http://www.infosecinc.com/meas.php). If you want to see the before
and after image of the records, I am not sure how to do that.
--
For
MEAS is a product that can monitor SMP and file activity and alert when
something happens.
For more information see http://www.infosecinc.com/meas.php.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send ema
I am upgrading my product to use the zIIP engine. It is my understanding that
to do this I must schedule an enclave SRB. I am confused here… WLM is involved
and there seems to be more to this. Can anyone explain? My only purpose in
using the zIIP is to reduce the GP CPU usage, so I plan on issui
My product dynamically implements the IEFU8x exits (same module in all the
IEFU8x exits). On all the systems my product runs on dynamic implementation of
these exits works great but I have a problem on my latest install. We
dynamically modified SMFPRMxx to include the IEFU8x exits in all the
su
IBM is looking at this as a problem in z/OS 1.13.
The exit add statement used follows:
DYNEX83 CSVDYNEX REQUEST=ADD,EXITNAME=EXITNAME,MODNAME=MODNAME, X
MODADDR=CSASMFXA,ADDABENDNUM=1,POS=FIRST
--
The problem was that my program defined the exits to SYS and the shop defined
the exits to the different subsystems. The correction was to define the exits
to SYS and the different subsystems but this leads me to a question and a
caution to share...
Caution the Installation Exit manual is misle
I have a process that has been working great until today. All of a sudden I am
getting a IEE707I message when attempting to issue a MVS START command from my
program. The funny thing is, my APF authorized program fails for some starts
and not others and I use an identical assembler command to is
I have situation that makes no sense to me. I have written code to schedule a
SRB as follows:
IEAMSCHD EPADDR=WKSELSA,PRIORITY=ENCLAVE,ENCLAVETOKEN=WKETKN, X
PARM=SELPARM,SYNCH=YES
The funny thing is the program invoked (at address in WK
On a related subject...
I found the PTCBADDR=PSATOLD option for the IEAMSCHD macro and think it might
help. But it requires the PURGESTOKEN= parameter and per the manual:
,PURGESTOKEN=purgestoken Specifies the space token of an address space to be
associated with this SRB routine. During memory
Here is what I am seeing in the SMF 120-9 records:
SM120PRS DSF Offset To ProductSection = 000B
SM120PRL DSF Length Of Product Section = 0001
SM120PRN DSF Number Of Product Sections = 0001
These values look invalid to me… Is this a bug?
--
WebSphere Application Server supplies some of its information in its SMF
records in Unicode format. Is there a facility available to convert Unicode to
EBCDIC?
--
For IBM-MAIN subscribe / signoff / archive access instructions,
s
When invoking BPX1CON it states:
Socket_descriptor
Supplied parameter
Type: Integer
Length: Fullword
The name of a fullword that contains the socket file descriptor for which
the
connect is to be done.
It also states that this is the output of BPX1SOC and I also believe
I do not understand what I am doing wrong. I setup the following recovery
environment:
SETFRR A,FRRAD=FRRA,EUT=YES,MODE=FULLXM,WRKREGS=(R1,R2),
PARMAD=(R3)
STR13,0(R3)
I then caused my program to abend.
When my recovery routine is entered I ABEND with an S0C4 because R2 is not
I do not know about ACF2 but with every other product I have worked with you
need to set the SMFPRMxx member to include the record being written. Also I do
not know of a way to programically add a record type to SMFPRMxx.
--
For
I already convert the SMF time into human time by using arithmetic but I am
having a problem with the calculation and I am attempting to use the ASM macros
to convert the time. Here is what I am doing:
* CREATE TODDATE
MVC SMFDATE,SMF2DTE
I figured out the problem... The SMFTIME is obtained by TIME BIN which returns
BIN returns the time of day as an unsigned 32-bit binary number with the
low-order bit equivalent to 0.01 second. The second word of the time value
returned is zero. STCK time is based on micro seconds.
To have the wo
My code must be able to run in SRB mode and with locks held. I have a situation
where I need to serialize processing and cannot use CDS because the two
addresses being updated cannot be next to each other (because I use CDS with
these two addresses with other addresses). I have attempted to use
It has taken me this long to mostly understand PLO... I must be slow.
Now that I understand it (mostly) I am pretty sure it will not work for me. My
problem is that a process comes in and removes the control block chain while
another process is suspended and attempting to update the chain. When
I think I figured out a solution:
DOX078 DS0H
*C IF LASTCB EQ 0 THEN
*C SET LASTCB= FIRSTCB = MSEGCB JUST BUILT
CDS R4,R2,FIRSTCB IF MSEGF & MSEGL = 0, STM 2,3
Thank You for your help (all of you) but Peter's statement below does not make
sense to me (maybe because I don't understand something).
The reason that the free queue protocol needs a sequence number is because
even if the header "matches", the values that you need to put into your
new element
I see a flaw in my logic... I need to use PLO to serialize all this time.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
My control blocks are actually a queue. So it my understanding from reading
these updates (Thank You!) that all I really need is autonomic functions (CS or
PLO) to update the queue.
--
For IBM-MAIN subscribe / signoff / archive
We have 5 isolated systems running clones of our z/OS operating system. Our
current zFS root file system has not been controlled and now we are now using a
Serverpac to upgrade. I am planning to implement the maintenance procedure at
the bottom of this message but first here are my questions:
1
I did not read about File System in a Sysplex because we are not running a
Sysplex but now that you pointed it out I will.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu
I am confused... It states in the Authorized Assembler Services Reference,
Volume 1 (ALE-DYN)
LOC=(RES,64) indicates that the location of virtual storage depends upon the
location of the caller. If the caller resides below 16 megabytes, virtual
storage is to be located below 16 megabytes; if th
The problem with IARV64 is that the smallest amount of memory it will obtains
is 1 meg.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
I think you must have us confused with another company because InfoSec Inc.
tries very hard to keep its customers happy.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu wi
I use CSVDYNEX to dynamically load an IEFU83 exit defined as AMODE31 (use
system definition). I have been working to move information above the 64 bit
bar and now have a problem I do not understand. As far as I can tell the last
SAM instruction issued is SAM31 (Set Amode to 31) before issuing th
Thank you for all your help. The last posting gave me the answer. As I stated
at the beginning I am attempting to use above the bar storage. As you may know
when addressing above the bar storage the high order bit in the address must be
turned off. Because I use the address of the load module wh
I issue the following macro:
IARV64 REQUEST=GETCOMMON,
COND=YES,
SEGMENTS=SBS01, <=== Value is 1.
MOTKNSOURCE=SYSTEM,OUTMOTKN=SBITKN,
TYPE=PAGEABLE,
OWNERCOM=SYSTEM,
O
Thank you for your help. The fact that you all indicated that IPCS was the
issue was reassuring. I was thinking that my whole design for an upgrade that
has taken a long time was flawed. I will try FPROT=NO and see what happens. I
will also look into what resource to update to allow IPCS to do w
Can anyone explain why the following code did not work in AMODE 64 but works in
AMODE 31?
I received an ABEND S602 R15=0 on the POST.
Abend: S602
Explanation: An error occurred during processing of a
POST macro instruction. The system issues this abend
only in association with cross memory pos
LEFT HALVES OF ALL REGISTERS CONTAIN ZEROS
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Good thought but alas... I added the SYSSTATE macro and tested again...
1319 SYSSTATE AMODE64=YES
1320+*THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P AMODE64=YES A
+ VL=2 OSREL=
1321 *C
I do not think you are correct. When the STIMER and WAIT macros are issued we
are in AMODE64... Proof... I caused an S0C1 when the STIMER macro was issued.
Here are the abend messages:
SYSTEM COMPLETION CODE=0C1 REASON CODE=0001
TIME=05.37.37 SEQ=05744 CPU= ASID=003
In response to Elardus Engelbrecht question.
The "LEFT HALVES OF ALL REGISTERS CONTAIN ZEROS" reply was in response to Dave
Day's inquiry. He asked what the left half values of the registers are.
--
For IBM-MAIN subscribe / sig
On response to:
On Tue, 13 Jan 2015 05:30:17 -0600, Donald Likens wrote:
You didn't quote any of the message(s) that you replied to, so you
leave us guessing. That is not a good way to ask for help.
--
Tom Marchant
Thanks you... I will try to include the question in the response from n
In response to:
> Can anyone explain why the following code did not work in AMODE 64 but works
> in AMODE 31?
Yes... bit 32 of R15 on entry to your STIMER exit routine is on. In
AMODE 64 the LA of the ECB address propagates it into R1. Thus R1
indicates it is a cross-memory POST. In AMODE 31
In response to:
As a reminder: AMODE 64 routines in general should not rely on the
time-of-entry register 15 for addressability. LINK(X) / ATTACH(X) targets
are cases for which it is "cannot" rather than "should not". The supplied
code did use reg 15 for addressability:
STIMERX DS0H
...
I want to do a batch compile using procedure CBCCL with the #includes that are
required to compile the source in /VERSYSB/usr/lpp/IHSA/V8R5/include.
I tried pointing the SYSLIB DD to this directory. I also tried the SEARCH
option.
I have been successful with using the UNIX xlc command but this
Thanks for your help... I got the following to work:
//PROC JCLLIB ORDER=(CBC.SCCNPRC)
//CC EXEC CBCC,
// CPARM='OPTF(DD:SYSOPTF)'
//SYSIN DD PATH='/u/user/source/main.cpp.C'
//SYSLIN DD PATH='/u
Look at the Replace statement... It deletes csects.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
This has been a frustrating adventure. I hope this is easy for someone who has
already done this. I need to call a C++ program from an ASM program and pass it
parameters. I plan to use CEEPIPI to do the call because it is documented as
being efficient(as documented in the “LE Programming Guide”)
I'd suggest you keep your code
as close as you can to the example.
Good idea. Thanks
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Thanks to Sam Siegel it is now working. My problem was that the CEEPIPI
parameters point to the address of the parameter list.
The following worked:
SDKREADP DS0A PARAMETER LIST TO CALL SDKREAD
DCA(CALLSUB)
DCA(SDKREADI)
What am I missing? Isn't PLO Function Codes 16-19 (Compare and Swap and Double
Store) updating three locations?
Direct out of the "Principle of Operations":
The first-operand comparison value is compared
to the second operand. When the first-operand
comparison value is equal to the second operan
I get it now. Compare and swap is one function and double store is the other.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
In the PR/SM LOGICAL PROCESSOR DATA SECTION of the SMF 070 record there is the
following field:
SMF70CIX DSBL2 Index to the CPU-identification name section
* that contains the EBCDIC name corresponding
* to the CPU type of the logical processor
Help! I need to calculate the %busy for our MVS system using the SMF 70 record.
I found some calculation but each calculation I found involved the SMF70INT
variable and my calculations (a sample calculation is CPU Utilization =
Sum(SMF70INT - SMF70WAT) / (SM70CPN x SMF70INT) x 100%) are not wor
We do not have SAS (Can you believe it). My real problem is not with SMF70INT
but with SMF70WAT (and other fields). I am now converting both of these fields
to seconds for the equation.
The conversion of SMF70INT is easy but I am not sure about SMF70WAT. What I am
doing is as follows:
Second
I seem to remember that there was a callable service to print data in the
IDCAMS PRINT format. If anyone knows about a callable service to print like
IDCAMS print please point me to the proper place to get information on how to
call it.
--
I have been working with SMP/E since before there was an E (SMP) (over 40
years) and I believe shops that limit themselves to SMP/E installed products
are simply causing themselves extra work.
I am a consultant and a software developer. Recently had two installs. One from
IBM using SMP/E and a
Thanks... I could not find it before because we are running an older release of
z/OS.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
What I don't understand fills volumes and when I think I understand something I
am often wrong. One of the things I don't understand is SRBs. I know this
because what I am doing is not working! Note: When I use the option to turn off
SRB processing and call (BALR) the SRB routine, instead of sch
Thank You All for your help... Very helpfull! One thing... I did not specify
sumdump becuase it states in the SDUMPX macro documentation:
Executing SDUMPX causes ALLPSA, SQA, IO, and SUMDUMP storage areas to be dumped
unless excluded by the NOALLPSA, NOSQA, NODEFAULTS, or NOSUMDUMP parameter.
-
I've studied the manuals but before I start coding to use a Common Data Space I
want to confirm that for a common data space access is by the PASN-AL and the
ALESERV creates a PASN-AL for all the address spaces.
So all I have to do is issue the DSPSERV CREATE,TYPE=BASIC,SCOPE=COMMON and
ALESE
The fact that IPCS will format the linkage stack is very nice but am I missing
it or do SYSUDUMPs not format the linkage stacks?
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.u
Thank you all for your valuable input. As for using storage above the bar, I
had looked at it before sending this posting. The thing that concerned me was
the following:
Virtual memory above 2GB is organized as memory objects that a program creates.
A memory object is a contiguous range of virt
I had to break up a job recently due to too many steps... There is a limit.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
I was planning to use storage obtain/storage release for the amount of storage
needed with the ALET parameter.
How to do get storage in a dataspace?
STORAGE OBTAIN,LENGTH=4096,SP=0,ALET=ASALET,LOC=ANY,ADDR=ASADDR
Release storage:
STORAGE RELEASE,LENGTH=4096,ALET=ASALET,ADDR=ASADDR,SP=0
1 - 100 of 140 matches
Mail list logo