VS COBOL II Release 4 -- change bars on the doc:
x LENGTH OF Special Register
x The LENGTH OF special register contains the number of bytes used by an
x identifier.
x LENGTH OF creates an implicit special register whose content is equal
x to the current byte length of the data
On Sun, 21 May 2023 18:56:39 +, Seymour J Metz wrote:
>The Initiator calls it with a 32-bit PLIST, so below the bar and if you invoke
>it with CALL you must be aware that it is a main program and do likewise.
>
>WEe hates it, precious, we hates it.
>
It should have been easy enough for the
: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Sunday, May 21, 2023 2:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: LENGTH OF in COBOL (was: ISPF HILITE Question)
On Sun, 21 May 2023 16:51:18 +
, 2023 2:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: LENGTH OF in COBOL (was: ISPF HILITE Question)
On Sun, 21 May 2023 16:51:18 +, Seymour J Metz wrote:
>That's not a CALL convention. The primary use case for the halfword length is
>programs that can be invoked with EXEC PGM=. .
On Sun, 21 May 2023 16:51:18 +, Seymour J Metz wrote:
>That's not a CALL convention. The primary use case for the halfword length is
>programs that can be invoked with EXEC PGM=. ...
>I assume that you're talking AMODE24 or AMODE31; for AMODE64 things are
>different.
>
If a program object
List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Sunday, May 21, 2023 12:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: LENGTH OF in COBOL (was: ISPF HILITE Question)
On Sun, 21 May 2023 08:02:59 +0300, Binyamin Dissen wrote
On Sun, 21 May 2023 08:02:59 +0300, Binyamin Dissen wrote:
>
>Curious how you used a subroutine. It only worked for fields in a structure
>where you passed the address of the field and the next field and it subtracted
>the addresses?
>
>Was there a way to make COBOL pass a dope vector with
On Sat, 20 May 2023 19:09:03 -0400 Phil Smith III wrote:
:>Since when does COBOL have LENGTH OF? I looked for this about 12 years ago
and didn't find it, wrote a tiny and trivial assembler function to do the same
thing. Did I miss it, or is it new since then?
:>Not that the code has needed
d it.
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Phil Smith III
Sent: Saturday, May 20, 2023 5:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: LENGTH OF in COBOL (was: ISPF HILITE Question)
Since when does COBOL have LENGTH OF? I looked for this about 12 years ago and
d
Since when does COBOL have LENGTH OF? I looked for this about 12 years ago and
didn't find it, wrote a tiny and trivial assembler function to do the same
thing. Did I miss it, or is it new since then?
Not that the code has needed any support, but I'm glad that if it ever becomes
an issue, I
f Of
Steve Thompson
Sent: Thursday, May 18, 2023 2:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ISPF HILITE Question
I have been chasing through a few IBM ISPF manuals and I am trying to figure out why, when HILITE is COBOL, certain
words are "pink". Now I thought this
PF HILITE Question
As an enhancement to the HILITE command, it would be nice if the list of
keywords for any given language could be edited to customize them for
individual use.
I use PL/I to edit SQL statements, and a few tweaks would be nice...lacking an
SQL type, of course.
Che
As an enhancement to the HILITE command, it would be nice if the list of
keywords for any given language could be edited to customize them for
individual use.
I use PL/I to edit SQL statements, and a few tweaks would be nice...lacking an
SQL type, of course.
Cheers,
Jon.
L = LENGTH(MYFIELD)
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Steve Thompson
Sent: Thursday, May 18, 2023 2:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ISPF HILITE Question
I have been chasing through a few IBM ISPF manuals and I am trying to figure
out why, w
On Thu, 18 May 2023 at 20:20, Steve Thompson wrote:
> Or have I stumbled on a situation where ISPF and COBOL 6.x are
> not in synch?
>
This used to be the "normal" situation for PL/I, and with PL/I builtins
multiplying like rabbits, it may well be the case again. Ditto for COBOL...
Robert
--
I have been chasing through a few IBM ISPF manuals and I am
trying to figure out why, when HILITE is COBOL, certain words are
"pink". Now I thought this was used to show a logic error, such
as an "IF" with a missing "END-IF", or an extraneous "END-IF".
Where my curiosity/confusion is, is
So the
> On May 9, 2023, at 11:14 AM, Joseph Reichman wrote:
>
> I could do the same with the sub command exit
>
>>> On May 9, 2023, at 11:10 AM, Michael Stein wrote:
>>>
>>> On Tue, May 09, 2023 at 07:37:27AM -0400, Joseph Reichman wrote:
>>> I am just wondering when using IKJOPER
I could do the same with the sub command exit
> On May 9, 2023, at 11:10 AM, Michael Stein wrote:
>
> On Tue, May 09, 2023 at 07:37:27AM -0400, Joseph Reichman wrote:
>> I am just wondering when using IKJOPER (operand) and for clarity's sake I
>> would like to use an example from TSO TEST so
On Tue, May 09, 2023 at 07:37:27AM -0400, Joseph Reichman wrote:
> I am just wondering when using IKJOPER (operand) and for clarity's sake I
> would like to use an example from TSO TEST so I would imagine the '=' of TSO
> TEST is an IKJOPER
Well, it doesn't work like that... Test prescans the
Thank you
> On May 9, 2023, at 11:02 AM, Tony Harminc wrote:
>
> On Tue, 9 May 2023 at 15:12, Seymour J Metz wrote:
>
>> I believe that the optional source tapes for OS/360 and OS/VS2 3.8 are
>> archived (CBTTAPE?), so it should be possible to examine the source code
>> for TEST.
>
>
> MVS
On Tue, 9 May 2023 at 15:12, Seymour J Metz wrote:
> I believe that the optional source tapes for OS/360 and OS/VS2 3.8 are
> archived (CBTTAPE?), so it should be possible to examine the source code
> for TEST.
MVS 3.8 TSO modules can also conveniently be browsed at
/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Joseph Reichman [reichman...@gmail.com]
Sent: Tuesday, May 9, 2023 9:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO IKJOPER question
Seymour
I can only say you
_
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
> Joseph Reichman [reichman...@gmail.com]
> Sent: Tuesday, May 9, 2023 7:37 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: TSO IKJOPER question
>
> Hi
>
>
>
&g
com]
> Sent: Tuesday, May 9, 2023 7:37 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: TSO IKJOPER question
>
> Hi
>
>
>
> I am just wondering when using IKJOPER (operand) and for clarity's sake I
> would like to use an example from TSO TEST so I would imagine the '=' of
(Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Joseph Reichman [reichman...@gmail.com]
Sent: Tuesday, May 9, 2023 7:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: TSO IKJOPER question
Hi
I am just wondering when using IKJOPER (operand) and for clarity's sake I
would like to use an example from TSO TEST so I would imagine the '=' of TSO
TEST is an IKJOPER
Used to modify storage.
The subcommand is '='
Does the subcommand have to be the first operand I mean clearly
Thanks to all for the info!
(Summary for the assembler list, since the action was all on IBM-MAIN: It won't
hurt; might affect optimization slightly, but probably not worth worrying
about.)
--
For IBM-MAIN subscribe /
bject: XLC inline assembler question
>
>
>
>(Cross-posted to IBM-MAIN and the assembler list)
>
>When compiling C programs with XLC, you need to specify the -dasm flag to have
>inline assembler code recognized as such. I can see PoE arguments for
>requiring that optio
Thanks Michael, I tried your routine here and it did exactly what I needed, so
thank you.
Peter
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Schmitt, Michael
Sent: Tuesday, May 2, 2023 3:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL question: How
AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: COBOL question: How to dynamically get the name of the routine that
called you
This is an Enterprise COBOL V5/6 question. No earlier compiler versions are
involved.
Is it possible for a called COBOL program to dynamically determine the name of
the calling CO
I am attempting to post the assembler program here for reference, we'll see if
the listserv accepts it without mangling.
To use, call it passing the area you want it to return the calling program name
in. The call_level_e equate controls how many levels up it goes.
--
setc
know if you're interested in the assembler program.
>
>
> * assuming the program follows standard conventions for the program id
> signature string.
>
> -Original Message-
> From: IBM Mainframe Discussion List On Behalf
> Of Farley, Peter
> Sent: Tuesday, May
:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: COBOL question: How to dynamically get the name of the routine that
called you
This is an Enterprise COBOL V5/6 question. No earlier compiler versions are
involved.
Is it possible for a called COBOL program to dynamically determine the name of
the calling
This is an Enterprise COBOL V5/6 question. No earlier compiler versions are
involved.
Is it possible for a called COBOL program to dynamically determine the name of
the calling COBOL program (i.e., the PROGRAM-ID value)? I have been reading
the LE Vendor Interfaces manual but I have yet
On Mon, 1 May 2023 17:02:23 -0400, Phil Smith III wrote:
>(Cross-posted to IBM-MAIN and the assembler list)
>
>...; what isn't clear is whether there's any downside to it beyond the
>unlikely case that you decide to have a function of your own named asm or
>__asm or __asm__. Is there?
>
I
Doh, I of course meant -qasm not -dasm.
From: Phil Smith III
Sent: Monday, May 1, 2023 5:02 PM
To: ibm-m...@bama.ua.edu; IBM Mainframe Assembler List
(assembler-l...@listserv.uga.edu)
Subject: XLC inline assembler question
(Cross-posted to IBM-MAIN and the assembler list)
When
(Cross-posted to IBM-MAIN and the assembler list)
When compiling C programs with XLC, you need to specify the -dasm flag to have
inline assembler code recognized as such. I can see PoE arguments for requiring
that option; what isn't clear is whether there's any downside to it beyond the
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of M. Ray Mullins
Sent: Wednesday, April 26, 2023 10:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: XLC architecture level question
Since this is C++, I'd stick it in a constructor for m
ture level question
ARCH level is a "problem" I have dealt with for 12 or so years.
I say "problem" in quotes because it is not much of a problem -- you only have
to revisit it once every two years, and even then it is not an urgent problem. So you
don't need a solution tha
--Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Charles Mills
Sent: Tuesday, April 25, 2023 7:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: XLC architecture level question
ARCH level is a "problem" I have dealt with for 12 or so ye
2023 5:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: XLC architecture level question
Setting ARCH is like playing Blackjack or Twenty-one: guess too low and it is
sub-optimal; guess too high and you bust.
Note that everything we have said here about ARCH and TUNE applies equally to
COBOL
ERV.UA.EDU] On Behalf
Of Charles Mills
Sent: Tuesday, April 25, 2023 7:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: XLC architecture level question
ARCH level is a "problem" I have dealt with for 12 or so years.
I say "problem" in quotes because it is not much of a proble
Monday, April 24, 2023 2:40 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: XLC architecture level question
Thank you! Does that default change periodically? I suppose it must-is it
always such that the default supports the oldest currently supported
-
Gil wrote:
>A default of "oldest currently supported" is of little use on the day
>before end of support for that version. Better would be a form to
>specify "whatever version for which support is guaranteed for N days
>from the current date." Akin to the "find ... -mtime n".
Eh? Why is it "of
On Mon, 24 Apr 2023 17:40:16 -0400, Phil Smith III wrote:
>
>Thank you! Does that default change periodically? I suppose it must-is it
>always such that the default supports the oldest currently supported
>hardware? What we don't want to do is upgrade the compile and break our
>product for our
Linda Chui wrote:
>My colleague validated this issue. Yes, this is a documentation error.
>The default should be the same as the ARCH option description
>mentioned (page 63). We have notified our content editor to
>update/correct our docs.
>Thanks for bringing this to our attention.
On Mon, 24 Apr 2023 11:24:25 -0400, Phil Smith III wrote:
>SC14-7307-40, the z/OS 2.4 XL C/C++ User's Guide, says on PDF page 63 that
>ARCH(10) is the default. However, on PDF page 580, it also says:
>Architecture target is set according to the last-found instance of the
>-qarch compiler option,
SC14-7307-40, the z/OS 2.4 XL C/C++ User's Guide, says on PDF page 63 that
ARCH(10) is the default. However, on PDF page 580, it also says:
Architecture target is set according to the last-found instance of the
-qarch compiler option, provided that the specified -qarch setting is
compatible with
> Does the PC routine (IEAARR) simply branch to the Target Routine (R15)
> making it
> an extension of the IEAARR PC Service Routine?
It's not necessarily "simply" and it depends on what you mean by "an extension
of". But for the most part "yes".
The IEAARR PC Service Routine runs in the
Haven't used it myself, but based on the macro expansion the GLUE would only
need to do is to perhaps place R0-R1 in the MSTA and then set R1 from AR0 and
BASR 14,15.
The predefined ARR of IEAARR would receive control upon abend and user the
MSTA area to set the parameter register and branch to
Based on my experience (I have no inside knowledge), IEARR is a very simple
non-space-switching PC program that calls your specified EP as a
subroutine, and same goes for the ARR address. It's very simple... no
subtask is involved, nor any of the privilege modifications that PCs would
normally be
Hello
.
.
Can anyone add some additional information regarding IEAARR.
I am trying to clean up an existing Associated Recovery Routine,
by first using IEAARR to drive a Target Routine that is designed to
Abend and drive the Associated Recovery Routine.
.
This works well .. I have No issues with
On Fri, 21 Apr 2023 at 11:33, Seymour J Metz wrote:
> > IMHO it is not related to the group.
>
> How is a question about the HMC on an IBM mainframe not related to
> IBM-MAIN?
>
Not the group IBM-MAIN - the group the OP mentioned in "I created a custom
group that contain
On Fri, 21 Apr 2023 15:35:38 +, Mark Jacobs
wrote:
>
>I can assign a different activation profile for the same physical lpar in each
>group. I can see the benefits and potential problems by doing so. The team
>discussed it this morning and we're all good now.
>
At a previous shop, we had
W dniu 21.04.2023 o 17:32, Seymour J Metz pisze:
IMHO it is not related to the group.
How is a question about the HMC on an IBM mainframe not related to IBM-MAIN?
I did not say IBM-MAIN. I mentioned "custom group that contains a subset..."
--
Radoslaw Skorupka
Lo
As it turned out I answered my own question yesterday late afternoon. I can
create multiple groups, and assign the same lpar to as many groups as I desire.
I can assign a different activation profile for the same physical lpar in each
group. I can see the benefits and potential problems
> IMHO it is not related to the group.
How is a question about the HMC on an IBM mainframe not related to IBM-MAIN?
From: IBM Mainframe Discussion List on behalf of
Radoslaw Skorupka <0471ebeac275-dmarc-requ...@listserv.ua.edu>
Sent: Frid
W dniu 20.04.2023 o 16:37, Mark Jacobs pisze:
I created a custom group that contains a subset of the LPARs defined on that
CEC. When I assign an activation profile to an LPAR in the custom group, the
new assignment isn't being reflected in the Systems Management tab for the
LPARs I changed,
I created a custom group that contains a subset of the LPARs defined on that
CEC. When I assign an activation profile to an LPAR in the custom group, the
new assignment isn't being reflected in the Systems Management tab for the
LPARs I changed, it's showing the value that was assigned before
if there's a flag for lines originating from "MD"
Robert
--
Robert AH Prins
robert(a)prino(d)org
The hitchhiking grandfather <https://prino.neocities.org/index.html>
Some REXX code for use on z/OS
<https://prino.neocities.org/zOS/zOS-Tools.html>
From: IBM Mainframe
Mainframe Discussion List On Behalf Of Bob
Bridges
Sent: Friday, April 14, 2023 12:19 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] ISPF usage question
I've never had to deal with this so I've kept my figurative mouth shut so far.
But if you're planning to give up at this point, I'll
nt: Friday, April 14, 2023 12:19 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] ISPF usage question
I've never had to deal with this so I've kept my figurative mouth shut so far.
But if you're planning to give up at this point, I'll expose my ignorance:
Couldn't you write a REXX that u
I've never had to deal with this so I've kept my figurative mouth shut so far.
But if you're planning to give up at this point, I'll expose my ignorance:
Couldn't you write a REXX that uses LOCATE to find the next message or note
line, then LINE to pull the contents of that line and examine
On Behalf Of
Pommier, Rex
Sent: Friday, April 14, 2023 11:28 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] ISPF usage question
Thanks, all, for your suggestions. It is as I feared/figured. ISPF edit
doesn't have any mechanism to actually search for information in =NOTE= or
==M
alf Of
Horne, Jim
Sent: Tuesday, April 11, 2023 6:03 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] ISPF usage question
Check out the ISPF Edit LOCATE command, especially LOCATE SPECIAL and LOCATE
NOTE
Jim Horne
-Original Message-
Running certain ISPF macros and/or commands, we get li
Check out the ISPF Edit LOCATE command, especially LOCATE SPECIAL and LOCATE
NOTE
Jim Horne
-Original Message-
Running certain ISPF macros and/or commands, we get lines added to the ISPF
edit screen with "=NOTE=" or "==MSG>" lines. Is there a way to make these
lines searchable
re was some way of getting the search
> capability from within edit w/o the possibility of saving the messages and
> notes as data.
>
> Rex
>
> -Original Message-
> From: IBM Mainframe Discussion List On Behalf
> Of Bob Bridges
> Sent: Monday, April 10, 2023 4:41 PM
Mainframe Discussion List On Behalf Of
Pommier, Rex
Sent: Monday, April 10, 2023 4:58 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: ISPF usage question
Thanks, Bob,
I have 1 of the developers in the habit of doing just that, but I can already
hear the howls from some of the others when
] on behalf of
Pommier, Rex [rpomm...@sfgmembers.com]
Sent: Monday, April 10, 2023 5:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ISPF usage question
Hello list,
Yes, this is an ISPF question but I don't know of anybody in the z/OS world
that doesn't use ISPF - and I don't know if the ISPF list
question
Not what you're looking for, perhaps, but if I don't want to change my code
accidentally I've managed to thoroughly habituate myself to using View rather
than Edit. Pretty much all the functions you can use in Edit also work in
View, so I expect you'll still be able to see notes
mmier, Rex
Sent: Monday, April 10, 2023 17:26
Yes, this is an ISPF question but I don't know of anybody in the z/OS world
that doesn't use ISPF - and I don't know if the ISPF list (if it is still
operational) has much traffic. So here goes.
Running certain ISPF macros and/or commands, we get l
Hello list,
Yes, this is an ISPF question but I don't know of anybody in the z/OS world
that doesn't use ISPF - and I don't know if the ISPF list (if it is still
operational) has much traffic. So here goes.
Running certain ISPF macros and/or commands, we get lines added to the ISPF
edit
AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: COBOL question
A lot of times, U4038 is not enough region...
Joe
On Mon, Apr 10, 2023 at 6:15 AM Cameron Conacher <
03cfc59146bb-dmarc-requ...@listserv.ua.edu<mailto:03cfc59146bb-dmarc-requ...@listserv.ua.edu>>
wrot
g it might be related to EXPEDITER.
>
> That is my current WAG.
>
>
> Thanks
>
> …….Cameron
>
> -Original Message-
> From: IBM Mainframe Discussion List On Behalf
> Of Charles Mills
> Sent: Sunday, April 9, 2023 8:07 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> S
, 2023 8:07 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: COBOL question
I can't see your code of course but my WAG is a programmer logic error.
(Sorry!) I am going to guess your logic is such that you try to free the same
area twice or, less likely, corrupt your pointer.
You say you
I can't see your code of course but my WAG is a programmer logic error.
(Sorry!) I am going to guess your logic is such that you try to free the same
area twice or, less likely, corrupt your pointer.
You say you check to see if it is null before freeing. Do you set it to NULL
after freeing?
: Saturday, April 8, 2023 8:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: COBOL question
Region card big enough? I’ve seen that abend via not enough memory.
Bob
Sent from Proton Mail for iOS
On Sat, Apr 8, 2023 at 8:17 PM, Charles Hardee wrote:
> I have not seen this exactly like w
Region card big enough? I’ve seen that abend via not enough memory.
Bob
Sent from Proton Mail for iOS
On Sat, Apr 8, 2023 at 8:17 PM, Charles Hardee wrote:
> I have not seen this exactly like what you describe, but I do have some
> thoughts.
> The pointer you are using for the ALLOCATE, does
I have not seen this exactly like what you describe, but I do have some
thoughts.
The pointer you are using for the ALLOCATE, does it have a value clause,
specifically VALUE NULL.
If not, the pointer could have an unknown value that does not compare equal
to NULL so you would attempt to FREE it.
Hello folks
I have written an IMS COBOL program. I have included a couple of ALLOCATE
statements.
At the end of processing I check my pointers and if they are not NULL I try to
FREE. This results in a U4038 abend. At least inside Expediter.
I have not used ALLOCATE/FREE before.
I am thinking
Is it the case that the parameter in the SQL parameter ATTACH option (TSO, CAF,
etc.) does not matter as long as the DSNULI stub is included in the program
bind? This appears to me to be the case, but I want someone to specifically
state it for me in case I am misunderstanding.
Also, how do I
Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Rupert Reynolds [rreyno...@cix.co.uk]
Sent: Thursday, April 6, 2023 3:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX/COBOL conversion question
The "principle of least astonishment" works well for me in Rexx, although I
confe
The "principle of least astonishment" works well for me in Rexx, although I
confess it took a while to make the best of it :-)
Yes, I checked in ooRexx and in the docs for Regina:-
Comparison with = is case-sensitive and leading/trailing blanks are
stripped and/or added. So ("" = "")
: Thursday, April 6, 2023 12:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX/COBOL conversion question
The variable is defined at level 05 so it is probably part of a structure
(group item in terms of cobol). You must maintain the copect length. For
example xxx = copies(' ',12).
Btw, the compare
...@listserv.ua.edu]
Sent: Thursday, April 6, 2023 12:07 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX/COBOL conversion question
On Thu, 6 Apr 2023 15:04:19 +, Seymour J Metz wrote:
>A compare using = adds trailing blanks; use == if you need an exact match.
>
Trailing and/or l
The variable is defined at level 05 so it is probably part of a structure
(group item in terms of cobol). You must maintain the copect length. For
example xxx = copies(' ',12).
Btw, the compare is ok and will work same as in cobol.
Best
ITschak
בתאריך יום ה׳, 6 באפר׳ 2023 ב-17:58 מאת Allan
Allen: This is Warren Brown. Do you remember working with me?
Warren
On Thursday, April 6, 2023 at 10:58:29 AM EDT, Allan Staller
<0387911dea17-dmarc-requ...@listserv.ua.edu> wrote:
Classification: Confidential
I have the following:
COBOL:
05 FR-KWY PIC X(12).
IF FR-KEY=SPACES
On Thu, 6 Apr 2023 15:04:19 +, Seymour J Metz wrote:
>A compare using = adds trailing blanks; use == if you need an exact match.
>
Trailing and/or leading.
"=" has a very lenient criterion of numeric equality:
"say 2 = ' 200e-2 '"
1
"==" gives better performance (empirically).
--
UA.EDU
Subject: REXX/COBOL conversion question
Classification: Confidential
I have the following:
COBOL:
05 FR-KWY PIC X(12).
IF FR-KEY=SPACES
MOVE..
REXX:
IF fr_key = ' ' THEN
Move..
Are these 2 statements equivalent? I suspect REXX will do a 1 -by comp
Classification: Confidential
I have the following:
COBOL:
05 FR-KWY PIC X(12).
IF FR-KEY=SPACES
MOVE..
REXX:
IF fr_key = ' ' THEN
Move..
Are these 2 statements equivalent? I suspect REXX will do a 1 -by compare vs. a
12 byte compare for COBOL.
Can anyone
, 2023 8:35 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RTM/SDWA question
The registers in the SDWA related to RB or linkage stack entry are not time
of error. There are many rules involved with when those registers are saved.
If you want registers for retry, then you should save them in a work area
The registers in the SDWA related to RB or linkage stack entry are not time of
error. There are many rules involved with when those registers are saved.
If you want registers for retry, then you should save them in a work area that
you can locate via the ESTAE parameter or the FRR parameter
Thanks
That’s what I thought
In order for my recovery to do a retry
My register have to be in tact
R3 is the base for all my csects
4 bytes off that is my eyecatcher as I branch round that comparing R3 + 4 for
the eyecatcher is how I determine that
I start SDWAGR then I try SDWASR
Then
Are the registers at SDWASR00 the same as the registers pointed to by
SDWARBAD when SDWARBAD is around I have noticed most of the time they are
Your words of "most of the time" indicate that you have observed that they are
not always.
Your observation is correct. Sometimes yes, sometimes no.
Hi
Are the registers at SDWASR00 the same as the registers pointed to by
SDWARBAD when SDWARBAD is around I have noticed most of the time they are
SDWAS00 doesn't have 64 bit registers
Or PSW but if they are the same I can get them from the XSB
Thanks
, March 27, 2023 2:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: A question or two on zOS issues
"And, we're not gaining the full benefit because we can't allow
it to use vector packed instructions until all sites where the
code can run are on compatible hardware."
Welcome to the develop
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: A question or two on zOS issues
You're right, and fortunately we were saved from that pain because we
procrastinated so long. And we skipped v5 completely.
We procrastinated because it took me a long time to rewrite our load module
analyzer, as well
: [EXTERNAL] Re: A question or two on zOS issues
Glad to hear that someone followed all the rules so that, unannounced COBOL 5+
didn't cause you packed decimal problems with Truncation and the like. Or same
thing with binary.
Steve Thompson
On 3/27/2023 10:31 AM, Schmitt, Michael wrote:
> The l
Sometimes the worm that the early bird gets is diseased. :-)
From: IBM Mainframe Discussion List on behalf of
Schmitt, Michael
Sent: Monday, March 27, 2023 12:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: A question or two on zOS issues
You're right
Discussion List On Behalf Of
Frank Swarbrick
Sent: Monday, March 27, 2023 1:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: A question or two on zOS issues
As long as you use the correct compiler options with COBOL 5+ to replicate
those of your pre-5 COBOL you were likely OK. In our shop we did
601 - 700 of 7756 matches
Mail list logo