ve a solution for this then it should be an enhancement
:>request.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
when there are
multiple macros or dsects in a single copy source then it is not possible.
:>
:>If y'all don't have a solution for this then it should be an enhancement
request.
:>
:>Sincerely,
:>
:>Dave Clark
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
:>
:>I just don't know how to dig what I need out of any control blocks, or
whether that information is available. Does the GET return anything I can use?
Maybe via R1? Or is there something in the DCB to tell me if I've reached the
EOF?
:>
:>David
--
Binyamin Dissen
http://www.disse
gt;
:>(I know that it looks silly to have the EODAD in the middle of the GET loop.
This is about my trying to overcome an IDF limitation regarding
single-stepping.)
:>
:>Any help would be appreciated; thank you!
:>
:>David
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
t the punch at the beginning or the end of the object module if
:>it is generated in a macro call in the middle of the source?
:>
:>Is there a way or maybe another statement to do it?
:>
:>
:>
:>TIA
:>
:>João
:>
:>
:>
:>
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
gt;From: IBM Mainframe Assembler List on
behalf of Binyamin Dissen
:>Sent: Tuesday, February 27, 2024 9:40 AM
:>To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
:>Subject: Re: Why am I getting ASMA145E (was Re: Macro parameters: parsing a
relocatable address)
:>Yes, but the objective is not to parse th
On Tue, 27 Feb 2024 14:16:45 -0500 Jon Perryman wrote:
:>On Tue, 27 Feb 2024 16:46:28 +0200, Binyamin Dissen
wrote:
:>>How is different than the case at the bottom?
:>>:>Because 24(R3) is not an expression. The second operand of the USING must
be either a register numbe
On Tue, 27 Feb 2024 15:13:02 + Seymour J Metz wrote:
:>> BLUE is the same as 10(1)
:>SHOW THE CODE!
Look at the bottom of the previous email. spamassasian seems to be rejecting
my posts with a lot of quoting.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen
:
:>Because 24(R3) is not an expression. The second operand of the USING must be
either a register number or a relocatable expression.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
must
be either a register number or a relocatable expression.
:>> .
:>Rather than
:> USING MY0004,24(R3)
:>would
:> USING MY0004-24,R3
:>have the desired effect?
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
-- where BLUE is 10(1)
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
is? I can certainly generate those in the macro, but I don't see the
technique in this case.
:>
:>David
:>
:>On Mon, 26 Feb 2024 17:14:19 +0200, Binyamin Dissen
wrote:
:>
:>>Generate a DSECT and USING.
:>>
:>>On Mon, 26 Feb 2024 08:22:00 -0500 David Eisenberg
:&
he comparands prior to
generating the CLC.)
:>
:>Any advice would be appreciated... thank you!
:>
:>David
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
as ( TONY H) pointed out there
was no CSECT
:>
:> was null
:>
:>Thanks
:>
:>> On Dec 20, 2023, at 3:28?AM, Binyamin Dissen
wrote:
:>>
:>> ?You have been given good advice.
:>>
:>> Create a minimal program that shows the problem. Based on the expansion
sh
mp clearly you can see that is GRECOV
:>>> THANKS
:>>>//MHELP ENTRY TO STORAGE MODE
:>>> SYSTEM PARAMETERS:
:>>> //SYSVAR NAMELNTH VALUE (5
:>>> //SYSNDX 004 0005
:>>> //SYSECT 006 GRECOV
:>
You know what you failed to include in the post.
'nuff said.
On Tue, 19 Dec 2023 18:12:37 -0500 Joseph Reichman
wrote:
:>Hi
:>
:>When I use the following
:> Using ,12,10
:>
:> comes up blank even though I know it had been set
:>Thanks
--
Binyamin Dissen
http://w
operands in one symbol?
Does that also apply to macro calls, i.e.,
SETC 'DSORG=PS,MACRF=GL,LRECL=80'
DCB
?
Is that documented or an unexpected feature?
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
All he needs is an inner macro which takes the , separates it out and
issues the instruction.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Please post an example showing the failure without the SETC.
:>> >
:>> > Would it be better to have two separate MACROs, one of which calls the
:>> > other?
:>> >
:>> > >> Em ter., 14 de nov. de 2023 às 17:46, Paul Gilmartin escreve:>>>> .
:>> > >>> I believe the SETC is unnecessary. How a bout just:
:>> > >>>MACRO
:>> > >>> ZERO
:>> > >>> SR,
:>> > >>>MEND
:>> > >>>
:>> > >>>START
:>> > >>> LZERO 15
:>> > >>>END
:>> >
:>> > --
:>> > gil
:>> >
:>>
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
would have to be FBS. The block address can be calculated and a BDAM
direct read could retrieve the block.
However this is the wrong organization for the file if that is your need. No
matter how hard you try, a hammer is a poor tool to put in a screw.
--
Binyamin Dissen
http://www.dissensoftware.
ble as
mentors, workload permitting.
Should be Michael Stack stuff on the Northern Illinois University site.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
:>>
:>> No need for a placeholder instruction.
:>
:>
:>Thanks. Yes, that would work but I don't like how it looks.
:>Because, to a COBOL programmer, it looks like an OR condition as it is in
:>COBOL. I wanted the placeholder instruction so that even a COB
:>
:>Mike Shaw
:>MVS/QuickRef Support Group
:>Chicago-Soft, Ltd.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
:> CONTINUE
:>WHEN 3
:> ...
:>in this case CONTINUE is a BRANCH to END-EVALUATE
:>
:>and
:>WHEN 2
:>WHEN 3
:>in this case WHEN 2 execute the same instruction as WHEN 3
:>
:>HTH
:>René Le lundi 25 septembre 2023 à 23:55:30 UTC+2, Binyamin Dissen
a écrit
something
WHEN 2
WHEN 3
something
ENDSEL ,
No need for a placeholder instruction.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
es, do
you use it to safely store stuffs inside ? Or this workarea is not to be used
to store stuffs and has another utility ?
As it is an extent ion of the SMXP I would not expect it to be shared.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
:
:>
:>
https://bit.listserv.ibm-main.narkive.com/cIdJ48RP/smf-exit-iefu086-work-area-size#post16
:>
:>the workarea seems shared (maybe why it fails for me ?) If it is the case,
what is the utility of the workarea ?
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
ther than zero..
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
load return address
:>#END_CBASE_1 DS0H
:> L R11,#BAS_SAV+(4*0)restore segment base
:> DROP R11
:> BRR14
:>*
:>GETDIRDCSECT
:>*
:>@DATA LOCTR ,
:>##STATIC DS0D
:>#RENTSIZ DCAL4(#E_RENT
On Thu, 16 Jun 2022 14:36:12 + "Schmitt, Michael"
wrote:
:>My company's COBOL coding standards are* to define binary fields as signed
(e.g. PIC S9(4) BINARY). I'm wondering why that's the standard.
Because it takes extra instructions to get the absolute value.
--
Binyamin
ary.
The advantage of MVCP/MVCSK, etc. are that they allow a move from a different
key area while not in key0 to avoid overlays If you are planning a very big
move it would be quite likely that your source will consist of multiple keys
so if using MVCL in key0 be very very careful.
--
Binyamin
re
:>work for yourself.
UNPK may give strange results if the positive sign is preferred.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
e março de 2022 17:14
:>Para: ASSEMBLER-LIST@LISTSERV.UGA.EDU
:>Assunto: Re: Testing address validity
:>Just curious would the following macros work better as a replacement for
:>TPROT in the requested case?
:>IARBRVER, IARBRVEA, and IARBRVKA
--
Binyamin Dissen
http://www.dissen
Thanks. Missed it.
On Mon, 7 Mar 2022 09:19:56 + Jonathan Scott
wrote:
:>Ref: Your note of Mon, 7 Mar 2022 11:05:51 +0200
:>
:>Binyamin Dissen writes:
:>> Has IBM created an extended S-constant for long displacements?
:>>
:>> If so, it hasn't been obvious to me
Has IBM created an extended S-constant for long displacements?
If so, it hasn't been obvious to me in the manual.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
riting a storage snooping program, you would need to determine key
if the storage can be resolved.
Finally, unless the appropriate system locks (MVS) and there is proper
disablement, the same query asked a few instructions later may get a different
answer.
--
Binyamin Dissen
http://www.dissensoftwa
ind x'A1', x'B1', or x'E1' for overpunch values?
:> What is the shortest way (in terms of assembler instructions) to validate
:>these into just two classes -- positive and negative?
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
at storage?
:>> c) Should the KEY parameter be specified, and if so, what value should I
use. Afaik it has to be 0-7 since User-key CSA was outlawed.
:>> d) Am I correct that there isn't an IRAV64 option that will allow a
user-mode program to update the storage?
:>>
:>> Thanks for your help!
:>>
:>> Wendell
:>>
:>> (Cross-posted to the CICS list.)
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
the application programs to save
register values for the system. If you are in an exit - different rules apply.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
tten by using ltorg literals and the client
:>> did not put a LTORG after my macro causing a 'no active base register'
:>> issue. So, I am thinking inline with a BRAS is better.
:>>
:>> Maybe there is another approach that I missed?
:>>
:>> Suggestions?
:>>
:>> Tony Thigpen
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
e that is RENT-compliant but merely violates REFR.
:>I suppose it's too late to fix it.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
ra coding for the 'new' format only, to
:>detect both mode and storage violation errors...setting an error code
:>
:>Whether this is worth doing is largely up to the user community, I would be
worried if an innocent looking macro could subvert program code
:>
:>Your thoughts ?
:>
:>Melvyn Maltz.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
IAC also provides the value needed for SAC, should you wish to restore it.
It would have been nice if there was also an IAM/SAM set rather than needing
to use the TAM condition code to decide which variant of SAM to issue.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Ba
es to address the
primary address space while in AR mode, using the index register alone does
access the correct address space.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you sh
ntil the IBM precompiler fixed the
problem.
:>Please consider helping yourself and others by opening an RFE. I think the
:>team might consider making such updates, but might not do so without an
:>RFE to which the work can be correlated.
--
Binyamin Dissen
http://www.dissensoftware.com
ng as big as IGDZILLA. Yet.
Before EXEC SQL was made relative addressing friendly by IBM, I used OPSYN to
alter the effect of the instructions. My code was
PRE_SQL
EXEC SQL ...
POST_SQL
>From the above expansion you code can redefine DC vi
s taken to be the
:>address of the instruction rather than the address of the 4-byte
:>immediate field within it.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
y
GFI sign extends in all addressing modes.
:>Not a lot about this in the PoP...nada
Don't understand why the assembler accepted the instruction.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and exp
ble.
You are asserting that RENT now forces REFR?
:>
:>From: IBM Mainframe Assembler List on
behalf of Binyamin Dissen
:>Sent: Tuesday, November 17, 2020 2:35 AM
:>To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
:>Subject: Re: security with storage all
OT to prevent storing into programs
:>marked REFR. Dismayingly, I believe REFRPROT is global and
:>intrduces incompatibility with "dusty deck" programs erroneously
:>marked REFR.
That is a good thing. However, RENT alone does not (conceptually) require a
module to be refreshabl
ction would brek, e.g., LOADER.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to c
saved register value as an address.
:>
:>My question is: Why was IBM unable to design a standard convention for saving
64-bit registers in amode 31 programs that is backwardsly compatible with
unchanged programs? Is there really no possible way that it could be
accomplished?
--
Binyamin Dissen
SA and 63-bit
z/Architecture in a manner analogous to how compatibility between 24-bit S/370
and 31-bit 370/XA systems was implemented? Would (24, 32, 63) have been a
better bit-size expansion sequence than was (24, 31, 64)?
Don't have a clue as to what you are suggesting.
--
Binyamin Dis
LAR15,1 .
:>>LAR10,4095(R15,R8) .
:>>USING ,R8,R10 .
:>>
:>> The return code is:
:>> RETURNR15 DS 0H
:>>L R1,4(,R13) GET CALLER SAVE AREA ADDRESS
:>>
59-464c-92a3-3f74f8c545c4
:>
:>Jim Mulder z/OS Diagnosis, Design, Development, Test IBM Corp.
:>Poughkeepsie NY
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me
ill see the difference between:
BSM 14,0
and
BSM 0,14
i.e.,
what happens to/with R1 and what happens to/with R2.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a respons
.
:> LAR10,4095(R15,R8) .
:> USING ,R8,R10 .
:>
:>The return code is:
:>RETURNR15 DS 0H
:> L R1,4(,R13) GET CALLER SAVE AREA ADDRESS
:> STR15,16(,R1) SAVE RETURN CODE
:>
0H
:> L R1,4(,R13) GET CALLER SAVE AREA ADDRESS
:> STR15,16(,R1) SAVE RETURN CODE
:> LMR14,R12,12(R13) RESTORE REGISTERS
:> BSM 0,R14 GO BACK
:>
:>Tony Thigpen
--
Binyamin Dissen
http://www.dissens
the high 32 bits. The Principles of Operation terminology effectively
provides
:>sixteen additional 32-bit registers.
:>HLASM doesnt seem to provide a way to specify the a USING with only the high
32-bits of a register.
:>Is such functionality an enhancement request?
). While I can ignore that
stuff, I became somewhat interested in the subject.
:>Ze'ev Atlas
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you sho
the sign
characters myself, remove them, pack the result, and flip the sign if it was
negative?
:>Alternatively, is there some accessible prior art out there?
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks pa
loader I wrote a long time
ago, and thought that for completeness, I would accommodate this idiosyncrasy
of START.
:>
:>Thanks all for the feedback.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package
can easily circumvent it. But, I
was curious if I'm incorrectly using START (or is this behavior an undocumented
feature)?
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a resp
n value from
subroutines that tested single conditions, and for using those EQU *. Went to
TA, who insisted those were poor practices, without being able to articulate
why. Went to prof, who shrugged and said "48 out of 50 is pretty good".
:>
:>Meanwhile, my buddy who had been u
value and
:>> is null
:>>
:>>
:>>
:>> MACRO
:>>
:>>EPLG
:>>
:>> LCLC
:>>
:>> GBLC
:>>
:>>
:>>
:>>
:>>
:>> As this code in the eplog is skipped
:>>
:>>
:>>
:>> WS_DSECT DSE
doesn't really make any sense to me
as I would expect it to be somewhere around 17.
:>
:>
:>K1 DCF'1'
:>
:>
:>
:>
:>
:>On Sat, 21 Sep 2019 22:11:01 +0300, Binyamin Dissen
wrote:
:>
:>>I would suggest looking at the value in DBLWD1. Then you can figure out what
nt back to LM.
:>any help at all would be appreciated.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very
Not really a wrap around tool.
On Mon, 29 Jul 2019 14:25:35 -0500 Steve Smith wrote:
:>Sounds to me like a job for Cell Pool Services. It not only is already
:>written, tested, and documented, it's easy to use; not to mention several
:>other advantages.
--
Binyamin Dis
eset this Index number before or after adding the last
entry in the queue ?Should there be a second Compare and Swap ?
:>.
:>.
:>Paul
:>*
:>.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and ex
As your JCL specified NCAL, it suggests that the unresolved is OK. Of course,
you must consider the risk of this unknown product failing.
I would suggest contacting the vendor, as it is even possible that the exit is
no longer needed or incompatibly changed.
--
Binyamin Dissen
http://www.dissen
ough to have a test function to validate
that the function is supported.
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very ra
:>Charlottesville, VA 22902
:>EADDRESS:dbc...@colesoft.com
:>
:>Home page: www.colesoft.com
:>LinkedIn:www.xdc.com
:>Facebook:www.facebook.com/colesoftware
:>YouTube: www.youtube.com/user/colesoftware
:>
:>Tools: z/XDC for Assembler debugging
:>
:>>> :>Doesn't parens indicate register format
:>>> :>
:>>> :>
:>>> :>
:>>> :>
:>>> :>
:>>> :> SNAPLSNAPX PDATA=ALL,SDATA=LSQA,LIST=(R7),STRHDR=L1,MF=L
:>>> :>
:>>> :>+ 7,*** IHB083
:>
:> B EXIT
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com dom
ng message on
the instruction.
Or might such an option exist?
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bot
at EAX of the Started Task ?
:>.
:>For some reason I expected this to be an Exception of some sort.
:>ESTA and MSTA are not privileged instructions.
:>.
:>Would this sequence of Instructions actually change the problem programs EAX
in other words giving it the EAX of the Started Ta
gt; > From: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU> On
:>> > Behalf Of Jake Anderson
:>> > Sent: Wednesday, March 14, 2018 4:58 AM
:>> > To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
:>> > Subject: Calling ACFBATCH in assembler
:>> &g
On Sun, 28 Jan 2018 09:40:55 -0700 Paul Gilmartin
<0014e0e4a59b-dmarc-requ...@listserv.uga.edu> wrote:
:>On 2018-01-27, at 13:03:48, Binyamin Dissen wrote:
:>> On Sat, 27 Jan 2018 05:13:36 + Jon Perryman wrote:
:>> :>On Friday, January 26, 2018 7:05
s memory
:>and lets the paging system handle the I/O. (And I think we like to
:>believe that most operating systems go to great lengths to optimize
:>paging logic.) *nix platforms have mmap() to provide similar functionality.
You are referring to a LDS.
--
Binyamin Dissen <bdis...@di
that overrides information in the
DCB.
Not at all. DCB overrides all.
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preau
necessary ?
It isn't.
:>What was the author trying to accomplish after Compare and Swap ?
Create a spin loop?
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expe
I was a lad, the assembler could barely do
:>macros...
:>(Of course, so-called "high-level" languages like C should be so lucky as to
:>have the power of assembler macros! Their idea of a "macro" is really quite
:>primitive.)
--
Binyamin Dissen <bdis...@dissensoftwa
e - =X'00029983')
:>I must be making some silly mistake and tried to RTFM but can't figure out
how to do this... Can somebody point me in the right direction?
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Isr
it.
Especially when very few of the programs expected to have that long a life.
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me
value in the CDE's RSA?
Only if you know more details, such as the size. The relative EP may help.
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response
BRBP to point to "my" RB at
runtime, assuming I'm an ordinary application program, not some deep system
exit, etc.
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks
OL and (3) even if it were valid would only work as
:>> a dynamic call if the DYNAM compiler option were in effect. If the author
:>> was talking about IBM COBOL, he probably meant to say: CALL WS-PROG1 USING
:>> XXX,
:>>
:>> If the question is &
LD,PFIELD
OI ZFIELD+L'ZFIELD-1,X'F0'fix sign
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you
,A477,PRZZ9F,
:>IEC020I JZPT.SQBN0G.J48017.SMF30.U
:>IEC020I NO ERROR HANDLING, (SYNAD), EXIT SPECIFIED
:>
:>It seems that specifying the number of bytes is allowed for RECFM=U.
:>
:>Any hint ?
:>
:>To be clear, I've a file with a VBS format (BDW+RDW+data) in a undefined
:>format
on't see a specific field
:>identifying the failing program .
:>.
:>.
:>In an ARR, How can I determine the Failing Program using the SDWA, PRB, etc
:>for a failing program running in supervisor state ?
:>.
:>Paul D'Angelo
:>*
:>*
--
Binyamin Dissen <bdis...@
ve been using "ORG ," so it may be time for me to change?
Explicit ORG is always better. The only good time for unexplicit ORG is when
overlaying work areas (though I am sometimes sloppy with translate tables and
use ORG , rather then ORG table+256
--
Binyamin Dissen <bdis...@dissensoftwar
, so could
:>be adversely impacted by those cases (and your usage could adversely
:>impact others). If you can use TBEGIN(C), you no longer need to contend
:>with other users of the LOCAL lock.
:>This is a performance-related facility. Performance needs should dictate
:>how much
CBTTAPE
:>have something of the sort?
:>
:>And what ever is in the DEB for a UNIX directory!? (Already
:>raised the question on IBM-MAIN; dead silence.) Data Areas
:>for DEB doesn't even mention UNIX or HFS or ZFS, but there's
:>got to be something there for BLDL/FIND to get aho
t;Zzz_a ds cl2040
:>. La r?,zzz_a
:>. Using zzz,r?
:> In this case DDNTXTU is alignad
.
:>. Ds 0f
:>. DS CL1
:>Zzz_a ds cl2040
:>
:>
:>. La r?,zzz_a
:>. Using zzz,r?
:>
:> In this case DDNTXTU is NOT aligned
--
Binya
,CL8
@DDNTXTU USING S99TUNIT,DDNTXTU
STG R1,@DDNTXTU.S99TUPAR
The assembler knows that the resolved address is at a doubleword offset in ZZZ
Working as designed??
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Softwar
rk area by the
system.
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
>
:>I am not sure what type of symbol WS_LEN is
:>I think it's a SETC
:>That means I probably couldn't do
:>WS_LENGTH DC A(WS_LEN)
:>
:>Any help with this ( how to get WS_LEN into a register) would be appreciated
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.diss
. I can then use that area for my own stuff. But finding the SSVT
:>from a "random" address space would probably cost as much, if not more,
:>than using a Name/Token.
Vendors request a word in the vendor area. That points to their stuff. SSCT
lookup is quite slow as well.
--
Biny
xists" then
:>>> Free the obtained storage
:>>>Else if bad-RC then
:>>> error-exit
:>>> EndLoop
:>> This is exactly what we do.
:>> It avoids the overhead and hassle of explicit serialization in exchange
:>> for a _very, very tiny chance_
rol?
Is this home grown or commercial?
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain
1 - 100 of 227 matches
Mail list logo