e
list the code you would write for these requirements.
Tony Thigpen
Seymour J Metz wrote on 8/14/20 5:10 PM:
Simpler is safer.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Assembler List on behalf of
Tony Thigpen
Se
body had a real answer to the problem. And,
I am not sure they have a better answer, thus the challenge.
Tony Thigpen
Seymour J Metz wrote on 8/14/20 11:20 PM:
IMHO, asking for assistance would get better results then issuing a challenge.
But it's not my dog.
--
Shmuel (Seymour J.) Metz
e a longer code segment due to the dual-path.
1) With new machines, I wonder if the micro-code/mili-code already
optimizes the MVCL making this a null-issue?
2) Is anyone else willing to share an existing macro that performs this
function?
Tony Thigpen
EYE1+L'EYE1-1(l'EYE1),=C'>ELBATB('
This would seem to be a good place for a macro:
MVCEYE EYE1,'(BTABLE>'
that would generate the correct MVCIN.
Anyone want to try their hand at writing this macro?
Tony Thigpen
As the OP, Yes I can. And, seeing the code, it would be easy to expand
from 4 to 8 characters if needed.
Thanks for the code.
Tony Thigpen
Seymour J Metz wrote on 10/21/20 3:50 PM:
Can the OP live with a 4 character limited and no embedded blanks?
--
Shmuel (Seymour J.) Metz
http
Robin,
The discussion (which I started) is about using a macro to reverse data
in the assembly so that it can later be used by a MVCIN to set an
eyecatcher.
You have apparently not read all the posts.
Tony Thigpen
robi...@dodo.com.au wrote on 10/23/20 10:18 AM:
On 2020-10-23 23:06
en.
As I said, you are missing the original information that started the
discussion.
And, a simple search for any recent posts by me would have quickly
validated my statement that I had started the discussion.
Tony Thigpen
Robin Vowels wrote on 10/24/20 1:32 AM:
- Original Message
:
TAGIT MY_TAG,ABCD
that generates:
MVC MY_TAG,=C'abcd'
OCMY_TAG,=C''
I would have to set my editor a little different when viewing dumps, but
it may work better than the original MVCIN thought. (I normally use
"case mixed ignore" in XEDIT.)
Tony Thigpen
I was thinking that the MVI would be some sort of special character,
limiting the tag to just 3 unique characters. But now I understand it
better. My mistake.
Tony Thigpen
Charles Mills wrote on 10/24/20 5:23 PM:
Why not? What's wrong with MVI/MVC for 3?
Given that it would invol
or 'respect' or 'ignore':
Tony Thigpen
Paul Gilmartin wrote on 10/24/20 5:22 PM:
On 2020-10-24, at 15:06:32, Tony Thigpen wrote:
I kinda like the concept, but a lot of literals we use are just 4 characters,
so it does not scale down easily.
??? "scale"
He was talking 1 mvi for the first character of the tag, then one MVC
for the following characters. Not multiple MVIs.
MVI MYTAG,C'A'
MVC MYTAG+1(3),=C'BCD'
Tony Thigpen
Keven Hall wrote on 10/24/20 6:00 PM:
Would not L/ST be faster than 4-MVIs? Most every con
Correct, I typed it wrong. "case upper ignore" is what I use.
(It's been a long week)
Tony Thigpen
Paul Gilmartin wrote on 10/24/20 8:15 PM:
On 2020-10-24, at 15:06:32, Tony Thigpen wrote:
... (I normally use "case mixed ignore" in XEDIT.)
On 2020-10-24,
I have a lot of xedit macros, including some post edit reformatters, but
I never thought of that one. But, I don't think I will spend the time on
it since I rather just switch to mixed case for the few times I really,
really need it.
Tony Thigpen
Seymour J Metz wrote on 10/24/20 8:35 PM
macro and the storage is printed on the z/VSE equivalent of
SYSOUT=*.
I am using:
SDUMP HDR='GP_VOL',STORAGE=((2),(3))
Is there any way to force the data to the JES2 SYSOUT?
Tony Thigpen
18.07.01 HKYP dd add,dsn=01
18.07.01 HKYP IEE855I DUMPDS COMMAND RESPONSE
DUMPDS COMMAND SYS1.DUMP DATA SET STATUS
SYS1.DUMP DASD DATA SETS NOT ADDED:
LOCATE FAILED: (01,08)
Suggestion?
Tony Thigpen
Seymour J Metz wrote on 10/29/20 5:35 PM:
SDUMP in MVS is for creating an
Once I added SYSMDUMP DD SYSOUT=*, I now see the dumps in IPCS.
I just can't seem to find any command in IPCS that just lets me see the
GRs and browse storage.
Tony Thigpen
Seymour J Metz wrote on 10/29/20 6:37 PM:
1. What is the authorization of your program?
If unautho
When I add a DC X'' and I force a SOC1, I don't see any dump added
to IPCS.
The guy that set up this system is gone. I don't know if he did
'something' to prevent dumps.
Tony Thigpen
Gary Weinhold wrote on 10/29/20 9:10 PM:
What I normally due in this type
I am using:
//SYSMDUMP DD SYSOUT=*
What is "DAE"?
FYI, this is assembler code that I am porting from z/VSE. Adding a DC
x'' to force a SOC1 is not a problem.
Tony Thigpen
Seymour J Metz wrote on 10/30/20 4:54 AM:
Did you have a SYSMDUMP DD? What's in DAE?
--
s there some 'option' in the system that may be blocking the
creation of the SOC1 dump?
3) Is there a simple way to force the SOC1 dump to go to SYSOUT as an
unformatted dump?
FYI, I am on a test z/OS system that I can IPL or change, as needed
without messing anyone up.
Tony Thigp
I was able to disable DAE using:
SET DAE=01
(the ADYSET01 member was set up to do it)
I think I need to better understand the relationships between all the
different debugging datasets, such as SYSMDUMP and SYSABEND. Can you
point me to the correct manual or PPT?
Tony Thigpen
pw
IPCS stuff, is a
foreign language to me.
All I really want to do is display the registers and storage belonging
to the current job at any abend. I don't need the supervisor areas (CVT,
etc).
Tony Thigpen
Peter Relson wrote on 10/30/20 9:33 AM:
When I add a DC X'' and I f
any
dumps to SYSABEND.
Tony Thigpen
Tony Thigpen wrote on 10/30/20 10:13 AM:
Peter,
You are way deeper into the grass than I am. To the point that most of
what you said assumes that I have a lot of z/OS specific knowledge I
don't have.
You give me a z/VSE system dump and I could proba
doing something wrong, not that the system was doing
something unexpected. (Sometimes, I just want to kick the last systems
programmer that set things here up "strange".)
Tony Thigpen
Seymour J Metz wrote on 10/30/20 2:31 PM:
Well, you already know about DAE, controlled by ADYSETxx,
Ed,
With due respect, I disagree. I am trying to port assembler system
software, not some Cobol application. And, the assembler experts for
z/OS live here, not over on IBM-MAIN.
Tony Thigpen
Ed Jaffe wrote on 10/30/20 3:05 PM:
On 10/29/2020 1:47 PM, Tony Thigpen wrote:
Trying to debug a
n?
(Before you suggest COPY vs. macros for common code, I usually include
parms to the common code. I can re-work that logic using .SETC, etc.,
but that has some negative issues I would need to think about before
doing so.)
Tony Thigpen
I am not sure what you are asking.
Tony Thigpen
FancyDancer wrote on 5/3/21 12:59 PM:
If you have a record that contains data that you ALWAYS want to assign to a set
symbol, why not just use the data that you want in a SETC operation?
Dan Snyder
Yes, I want to read the next statement from the macro that actually
called the AREAD using macro.
Tony Thigpen
FancyDancer wrote on 5/3/21 2:30 PM:
If you use AREAD within a macro, it will use the next card image from the
primary input, NOT the next image in the macro definition. Do you want
number of entries can easily be over 60 in many of my
programs.
Tony Thigpen
Jon Perryman wrote on 5/3/21 3:06 PM:
AREAD is intended for reading the source file. Although there are
workarounds, I personally avoid them because you can run into problems with
macros that use aread. As you
FCNTL 05
-
In reality, I think this is a very appropriate use of AREAD and I am
just stuck with only using the macro in real program code and not in
another macro.
Tony Thigpen
Seymour J Metz wrote on 5/3/21 4:43 PM:
Depending on what you're doing, LOCTR may help.
Because the AREAD enables building the built-in error trapping logic. If
the reg is too large or negative, it's trapped automatically. And, I
don't have to remember to change the limit edits every time I add
something to the branch table.
Tony Thigpen
Steve Smith wrote on 5/3/
had bet Joe that
some condition could never occur, but it did. Bob got his $10. :-)
Tony Thigpen
Steve Smith wrote on 5/3/21 6:32 PM:
There's no need for more parameters... just maybe a GBLA.
Frankly, I think branch tables are simple enough to code, including
automatic range checking,
I want to programmatically determine what tape drives are assigned to a
specific esoteric, in this case 'VTL3590'. Can someone point me to the
relevant macro or documentation that can get me started?
Tony Thigpen
Thanks. That is what I needed.
Tony Thigpen
Philippe Leite wrote on 9/6/21 10:22 AM:
Check Macro EDTINFO.
On Mon, Sep 6, 2021 at 11:12 AM Tony Thigpen wrote:
I want to programmatically determine what tape drives are assigned to a
specific esoteric, in this case 'VTL3590'. Can som
tter.
Maybe there is another approach that I missed?
Suggestions?
Tony Thigpen
their LTORGs in an area of code/data covered by a base
register.
Tony Thigpen
Mike Hochee wrote on 11/7/21 8:29 PM:
I'd probably be inclined to use the inline constants approach, just to have
some control over generated label names. Is there something preventing you from
incorporating LTOR
I decided to put the constant in-line and use BRAS to acquire it's address:
AIF ('&PARM'(1,1) NE '''').N0004
BRAS &TREG,N2&SYSNDX
&TVALSETC '&PARM'(2,K'&PARM-2)
N1&SYSNDX DC CL&SIZE
ve to rework their existing code.
So, a new LTORG requirement is not something I think I can do.
Tony Thigpen
Steve Smith wrote on 11/8/21 7:27 AM:
It is not unreasonable to require your clients to provide a literal pool.
It is not your problem, it's the user's. Even IBM accepted this,
My regular code has used location counters for about 20 years. But, that
is not applicable to the question at hand, which is a service calling
macro provided to customers.
Tony Thigpen
Seymour J Metz wrote on 11/8/21 8:08 AM:
Well, my preferred approach is to use a location counter. I would
hink I will document
that using XXX='constant' is available but is not a preferred method. It
also is not logical to use XXX='constant' for most of the parms anyway,
so usage should be minimal or non-existent.
Tony Thigpen
Ed Jaffe wrote on 11/8/21 12:09 PM:
On 11/8/2021 1
which points to the line containing:
AIF (T'&LOPORT' NE 'N').LOPORTOK
The variable &LOPORT is defined in the macro model statement and
defaults to zeros.
&LOPORT=0,
Thoughts?
Tony Thigpen
Thanks.
It's strange that it let me get by with it under some cases, but I am
using an old assembler under VM:
(PTF UK31916) Page1
HLASM R5.0 2021/11/15 10.38
(I don't have any control over the assembler level at the site.)
Tony Thigpen
Jonathan Scott wrote on 11/15/2
s. Many of my branch tables have 100+ entries.
Tony Thigpen
Seymour J Metz wrote on 11/23/21 12:31 PM:
?
What is a shorter way to do the error checking?
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Assembler List [ASSE
e original save are, then return
back. (Just don't use the RETURN macro.)
Tony Thigpen
Mark Hammack wrote on 11/30/21 10:53 AM:
In our case, the caller doesn't "know" whether the called subroutine is
base 31 or base 64. So it is up to the called subroutine to "figur
We hear you!
Tony Thigpen
industryn...@winwholesale.com wrote on 1/7/22 12:48 PM:
Hey y'all. I just signed up here after getting chastised several
times on the VSE-L list that my questions belonged here. So, I know most
things in HASM should be the same regardless of z/OS or
And, it did belong here
Tony Thigpen
Dave Clark wrote on 1/7/22 1:08 PM:
"IBM Mainframe Assembler List" wrote on
01/07/2022 01:05:56 PM:
I don't recall anyone chastising you on vse-l.
Well, chastising might me too strong of a word. ;-) But I kept
getting
Off the top of my head:
SGR R2,R2
ICM R2,b'',bin4
CVDG R2,PWORK16
Tony Thigpen
Dave Clark wrote on 1/19/22 12:32 PM:
If I have a 4-byte signed binary number (i.e., up to 2147483647),
I can convert it to packed format as follows.
LR2,BIN4
CVD R2,PWORK8
As I remember, all are saved. It's not a simple 'add to the end', they
redefined the front fullwords too.
Tony Thigpen
Dave Clark wrote on 1/20/22 10:29 AM:
"IBM Mainframe Assembler List" wrote on
01/20/2022 09:36:03 AM:
"IBM Mainframe Assembler List" wro
been 'the caller must provide the tag so the called program
knows how to store things'.
Tony Thigpen
Peter Relson wrote on 1/21/22 9:16 AM:
Dave Clark wrote
is there
some other means of knowing whether or not to save the high halves in the
caller's save area?
This has been covered
Dave,
It's worse than you think. There is a save area format tag literal for
the save area, but it's not set by the caller. It is set by the callee
saying how he used the previous save area in the chain. Which makes no
sense.
Tony Thigpen
Dave Clark wrote on 1/21/22 9:32
there was some conflict with
something, which I think was OCEXIT, which keeps me from using BAKR/PR.
Tony Thigpen
Dave Clark wrote on 1/21/22 11:17 AM:
"IBM Mainframe Assembler List" wrote on
01/21/2022 09:55:32 AM:
It's worse than you think. There is a save area format tag liter
, the calling task is canceled."
Tony Thigpen
Tony Thigpen wrote on 1/21/22 5:18 PM:
The definitive source is:
Supervisor Diagnosis Reference z/VSE (for your release)
Chapter 2: Design Information
Section: z/Architecture Linkage Stack
The z/VSE 6.1 manual has a better PDF index and the la
to be called.
If this is the case, then the next program being called will actually
see the word 1 literal when it receives control. Am I understanding this
correctly?
Tony Thigpen
Tom Marchant wrote on 1/25/22 9:04 PM:
Shmuel,
I'm not clear which text and sample code you are looking at
efore it knows
that the length of the save area is at least long enough to store all
the regs as double-words starting at offset 8. Is that not also true?
And, if 'C' sees a positive and even fullword at offset 4, then the only
safe option is to only save the low-half of the regs at
The next question is: "Can the called program determine other areas (in
the provided save area) that he is safe to use based on the literal set
at x'04' by the caller?" (Assuming that the literal is present.)
Tony Thigpen
Peter Relson wrote on 1/27/22 8:55 AM:
Shmuel wrote
from x'08'-x'7F'
*must* therefore be a valid area for the caller to store R14-R12 as
double-words.
Tony Thigpen
Ed Jaffe wrote on 1/27/22 11:05 AM:
On 1/27/2022 6:24 AM, Tony Thigpen wrote:
The answer seems to be that, while not fully known, if one of the
literals is pr
)."
I know this because if the caller set the literal, then they stored the
back-pointer at +x80, which is pasted the area the STMG will use.
Tony Thigpen
Ed Jaffe wrote on 1/27/22 1:36 PM:
On 1/27/2022 8:56 AM, Tony Thigpen wrote:
Ed,
By the 'rules' express in this thread, i
can not be touched by the program that is later called.
Tony Thigpen
Tom Marchant wrote on 1/27/22 4:27 PM:
On Thu, 27 Jan 2022 20:39:26 +, Seymour J Metz wrote:
I don't understand "That is not what F8SA was designed for.";
the text you cited confirms that an F8SA is u
Ed Jaffe wrote on 1/27/22 5:06 PM:
On 1/27/2022 11:20 AM, Tony Thigpen wrote:
The question has nothing to do with "what if +4 is zeros." It is "what
if +4 has one of the standard literals."
I gotta ask...
From a purely practical standpoint, would you or anyone real
44 byte save area, but then sticks
in a F7SA tag, then all bets are off, but this is really a programming
failure in the caller. He has said that he has used xCC-XD3 for storing
his callers ARs, but he lied.
So, *WHY* can't we make these assumptions about a labeled save area?
Tony Thigpen
2012 presentation has flaws.
On slide 24, the save area labeled 'F5SA' should have 'F4SA'.
On slide 25, the middle save area should have 'F4SA' and the right save
area should have 'F5SA'.
And a similar flaw in slides 26 and 27.
Tony Thigpen
Schmitt, Michael wrote o
; since "whenever", but JES2 did not have it for a
long time. (And don't get me started on z/OS JCL's 'backward' condition
code processing.)
Just like many big brothers think of their little brother is a 'turd',
most z/OS sysprogs are blind to what z/VSE
callee when he first gets control.
Tony Thigpen
Tom Marchant wrote on 2/1/22 17:08:
On Mon, 31 Jan 2022 17:02:37 -0500, Tony Thigpen wrote:
Michael,
Again, bear with me. I am trying to wrap my head around this stuff.
On your last point about using F7SA for a 144 byte save area. You
said you
SLA R2,4 SHIFT TO CORRECT SPOT
EX R2,ZAP_ITMOVE VAR DATA TO WORK FIELD
Tony Thigpen
Dave Clark wrote on 2/11/22 17:03:
How do (can?) you EXecute a ZAP instruction? I have a packed
number in plain character format that can vary in length from 1 to
Bob,
You should go back and read all of Dave's posts and and the responses.
This has all been discussed down to the "jot and tittle". Including the
fact that Dave is on z/VSE, not z/OS.
Tony Thigpen
Bob Raicer wrote on 2/18/22 20:05:
Dave --
I'm not clear on what yo
ed as the second
operand where I have placed an error handler.
Tony Thigpen
Paul Gilmartin wrote on 3/5/22 16:48:
On Mar 5, 2022, at 05:44:41, João Reginato wrote:
Which is the best instruction to test if a virtual address is still valid to
avoid an unexpected S0C4?
How is that information u
z/VSE and running on the callers TCB (for several z/VSE related reasons).
Tony Thigpen
Seymour J Metz wrote on 3/5/22 19:35:
As a subsystem, you should have your own recovery environment, so what you do
won't interfere with the caller's error recovery. Using a recovery routine,
pe instructions.
Is there any performance, or other reason, I should look at these other
instructions? Or, should I just continue to use ARs?
Tony Thigpen
If R0 is acceptable, then maybe R1 and R15 are also acceptable because
"nobody ever uses them".
For my clears I usually default to:
MVCL R0,R14
Tony Thigpen
Tom Harper wrote on 4/15/22 12:23:
Sent from my iPhone
On Apr 15, 2022, at 12:20 PM, Robin Vowels wrote:
On 2022-0
-
Tony Thigpen
Don Higgins wrote on 5/9/22 06:19:
All
You can now download POP for z16 dated May 5, 2022 from here once you have
register with IBM ID:
https://www.ibm.com/support/pages/zarchitecture-principles-operation
I found this link this morning using Google search &q
t find A5
in any of my manuals.
I would even be willing to pay some nominal fee to IBM for a
'non-disclosure' document on this subject if needed.
Tony Thigpen
Peter,
Yes, DASD. But, I have all the dvds that came with my 8880, but I have
not found any manual discribing valid CCs. But, maybe I missed it and
someone could point me to the correct dvd.
Tony Thigpen
Farley, Peter wrote on 5/11/23 19:02:
Tony,
Wouldn't that be documented i
Thanks Ed.
I actually have that MP3000 manual on my PC from when I was using a
MP300. It has more commands than I had in my other best reference.
Wish I had something newer for the DS8000. :-(
Tony Thigpen
Ed Jaffe wrote on 5/11/23 19:47:
On 5/11/2023 3:54 PM, Tony Thigpen wrote:
I don&#
Ed,
Is there a 2107 manual that can be legally acquired by vendors or
non-vendors?
Tony Thigpen
Ed Jaffe wrote on 5/12/23 09:33:
On 5/12/2023 3:51 AM, Seymour J Metz wrote:
I've got a 2105 manual on DVD but that's probably too old to help.
Correct. The 2107 manual is wha
Dave,
I have been looking at the same thing. One thing I came across, and am
now looking for again, was that format 1 CCWs are bad under VM.
Tony Thigpen
Dave Clark wrote on 9/18/23 4:08 PM:
I found some sample assembler code for doing this, but it leaves me
asking a few questions
Found it:
https://www.ibm.com/docs/en/zvse/6.2?topic=addressing-ccw-formats
"Note: Use format-1 CCWs only if necessary. When running under VM, the
format-1 CCW translation affects the VM guest performance."
Tony Thigpen
Tony Thigpen wrote on 9/18/23 4:22 PM:
Dave,
I have been
Dave,
On the program we are both working on, the use of format-1 CCWs is not
needed. In the end, it's one linked together program that is loaded by a
// EXEC card, thus it is always loaded in 24bit.
Tony Thigpen
Tony Thigpen wrote on 9/18/23 4:22 PM:
Dave,
I have been looking at the
In VSE, yes.
Tony Thigpen
Dave Clark wrote on 9/18/23 4:36 PM:
"IBM Mainframe Assembler List" wrote on
09/18/2023 04:27:49 PM:
On the program we are both working on, the use of format-1 CCWs is not
needed. In the end, it's one linked together program that is loaded by a
// EXE
appendage routine is for handling errors from the 3270 which
is really a TN3270 session on an OSA-C.
Tony Thigpen
Seymour J Metz wrote on 9/18/23 5:14 PM:
A CE appendage gets control after the channel program and any associated error
recovery have completed. In OS/360 it ran disabled, but
Dave,
If I am reading the manual correctly, the x'40' is "A command other than
Sense was addressed to a device that the control unit has recorded as
unavailable or not ready."
Tony Thigpen
Dave Clark wrote on 9/22/23 11:38 AM:
I have two programs -- both of wh
VSE does *not* allow relinking and replacing individual modules in the
same way as z/OS. Once it is linked, it looks like one big module to VSE
and can no longer be broken down into the original modules.
Tony Thigpen
Paul Gilmartin wrote on 12/4/23 4:00 PM:
On 12/4/23 13:05:05, Dave Clark
#3 is
already in the code.
Tony Thigpen
Martin Trübner wrote on 12/5/23 4:26 AM:
DOS/VS keeps a RLD (relocat dict)-items since a very long time. It was
there when I touched DOS/VS the first time in 73.
In fact when I worked for a service bureau with 15 datacenters (from
1975), we had just
Did you ever establish the CSECT name with a CSECT statement before your
macro?
Tony Thigpen
Joe Reichman wrote on 12/19/23 6:33 PM:
2420+ PRINT ON
50 B240 00E0 2421+ BAKR 14,0
54 51CF 0 2422
Which operating system?
Tony Thigpen
sudershan ravi wrote on 1/8/24 12:51 PM:
Hi Everyone,
Could someone help me on creating a pdf file from the mainframe job. What
are the options we have?
Thanks,
Sudershan
f I have a customer does upgrade and
report an issue during their testing, I can easily change the SETC in
the macro and recreate a new software version with the older instructions.
Tony Thigpen
Tom Marchant wrote on 4/15/24 2:49 PM:
Charles is right. IILF was first documented in the -08 level
USING *,R15
...
DROP R15
POP USING
So, I need to drop the base registers, but since this code is used in
programs that use different base registers, I would have to drop every
register after the PUSH.
Does anyone have a good 'method/trick' to handle this?
Tony Thigpen
Duh!
Thanks,
Tony Thigpen
Seymour J Metz wrote on 4/15/24 10:21 PM:
Try
PUSH USING
DROP ,
USING *,R15
...
*DROP R15 Don't need
POP USING
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
עַם יִשְׂרָאֵל חַי
נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁ
then just don't do
it.
Tony Thigpen
João Reginato wrote on 4/30/24 10:28 PM:
It´s very simple:
XMVC A,B
XMVC B,A
Where X is duplicated but never referenced
-Mensagem original-
De: Steve Thompson
Enviada em: terça-feira, 30 de abril de 2024 23:11
Para: jb.regin...@gmail
What does the REXX compiler do with duplicate labels?
Tony Thigpen
Phil Smith III wrote on 5/1/24 1:00 PM:
Paul Gilmartin wrote, re Rexx being fine with duplicate labels:
That's bad.
That's WAD. Remember, the goal of Rexx was ease of use. Just sayin'.
Big **THANKS**
Tony Thigpen
Dan Greiner wrote on 5/11/24 4:06 PM:
Back when I was a full-time IBMer, I had a spreadsheet with all z/Architecture
instructions sorted by the machine in which they were introduced.
Unfortunately, this included IBM-confidential instructions, and I was not able
s code and what they pass.
Tony Thigpen
Paul Gilmartin wrote on 6/3/24 6:01 PM:
On 6/3/24 15:34, João Reginato wrote:
I meant a simplest way to check if the address is still available and
don´t
touch it if don't.
Like LRA or TPROT or other similar instructions do
.
Such instructions are p
t up their own trap. That could be
damaging to the program calling my code.
Tony Thigpen
Paul Gilmartin wrote on 6/3/24 6:42 PM:
On 6/3/24 16:17, Tony Thigpen wrote:
I am also interested in the responses to the original question.
I provide a major subsystem with a very complex API on z/VSE
I would like to suggest you put a link back to the optable values
somewhere in this appendix, maybe a clickable link in the heading item
for 'optable'. I know they are in the same manual, but a quick link is
faster than finding the correct place in the manual.
Tony Thigpen
Jona
Thank you,
Tony Thigpen
Jonathan Scott wrote on 6/6/24 3:54 AM:
To address this suggestion we have done the following:
1. The headings in the table are now linked to the descriptions
of the relevant columns in the previous topic.
2. Within the description of the Optables column, the
NT OPERANDA
00081C 1210+SYS020 DS0F
GENERATED TO DEFINE NAME
Yet, just for testing, I also coded a basic DCB that is identical to
waht the macro is generating, and it works.
1212 SYS020 DCB
DDNAME=SYS020,MACRF=E
1215+* DATA
CONTROL BL
1216+*
00081C 1217+SYS020 DS0F'0'
ORIGIN ON
** ASMA043E Previously defined symbol - SYS020
no other errors on the usage of DCB.
I assume that I must be hitting some quirk in how macros work when
generating parms for another macro.
Tony Thigpen
RF,DSORG=&DSORG, X
RECFM=&RECFM,LRECL=&LRECL,BLKSIZE=&BLKSIZE, X
EODAD=&EODAD
MEXIT
.NODSO ANOP
&NAMEDCB DDNAME=&DDNAME,MACRF=&MACRF
MEXIT
Tony Thigpen
Steve Smith wrote on 6/15/24 6:53 PM:
Jonathan Scott's reply explains the details of why you can't macro macros.
But your scheme is way more complicated than necessary. Take a look at the
ACB macro, which does what you want to do, as far as I can see.
sas
If going down this path, it would be better:
LA1, =AL2(4,C'te',C'xt')
LA2,2(,1)
Tony Thigpen
Ngan, Robert (DXC Luxoft) wrote on 7/9/24 10:58 AM:
Oops, accidently replied directly to João.
Not sure why you need it for LA, but when I need this, I use:
MVC t
S/b:
PUSH ACONTROL
ACONTROL FLAG(NOPAGE0)
L R9,CVTPTR GET POINTER TO CVT
POP ACONTROL
You should always respect the previous setting.
Tony Thigpen
Gary Weinhold wrote on 7/9/24 7:43 PM:
We use ACONTROL FLAG(NOPAGE0) followed by the instruction/macro
mplex ECKD programming within the restrictions imposed by the OS.
Tony Thigpen
t know to look at.
Tony Thigpen
Michael Watkins wrote on 7/18/24 4:15 PM:
What are your existing books?
-Original Message-
From: IBM Mainframe Assembler List On Behalf
Of Tony Thigpen
Sent: Thursday, July 18, 2024 3:14 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Looking for a goo
Eventually, both. I can play all I want, anytime, on the DR box.
Tony Thigpen
Seymour J Metz wrote on 7/18/24 4:19 PM:
I'd advise asking on ibmmain.
Are you looking for authorized or unauthorized?
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
עַם יִשְׂרָאֵל חַי
נֵ֣צַח יִשְׂר
201 - 300 of 307 matches
Mail list logo
