On Mon, 1 May 2023 20:13:36 -0400, Phil Smith III wrote:
>...
>parse var option keyword '(' value ')' +1 paren
>
ITYM:
parse var option keyword '(' value ')' +0 paren +1 .
>
>if paren = ')' then /* It's nested! */
>...
>This can, of course, be made more iterative. It ain't that pretty, but
PCRE is one option. There is also a package (XPARSE? XPROC?) that calls
IKJPARSE.
From: IBM Mainframe Discussion List on behalf of
Frank Swarbrick
Sent: Monday, May 1, 2023 7:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: REXX parse parens
The following
Frank Swarbrick wrote about trying to parse z/OS-style parameter lists, with
nested parens, in Rexx.
This has been a challenge since Rexx leapt from VM (where its parsing fits the
normal command syntax). In part, I'd say that IF you can make statements about
how things MUST be specified, you
On Mon, 1 May 2023 23:30:51 +, Frank Swarbrick wrote:
>...
>But it doesn't work for a PDS member to following, also surrounded by
>parentheses:
>
>Test2: PARENS COBOL(TEST(MEMBER))
>Results2:
>COBOL
>TEST(MEMBER
>
>Any simple REXX parse option to handle this, or do I need to resort to
The following is a simplified version of some code from IBM's CEEBLDTX, placed
in to an EXEC I've named PARENS:
Parse Arg option
Parse Var option varOpt '(' valueOpt ')'
Say varOpt
Say valueOpt
This handles a simple dataset name, e.g.:
Test1: PARENS COBOL(TEST):
Results1:
COBOL
TEST
But it
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
Bill.
A AT-TLS rule consists of a number of tests and pointers to actions which are
performed if all of the tests are true. One of the actions specifies if TLS is
to be enabled or not. You can test on local and remote port numbers , local
and remote IP addresses, connection direction
(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
Here's our simple DB2 Secure port definition in AT-TLS:
TTLSRule DBRTSecureServer # Secure DBRT
{
LocalPortRange 4450 # DBRT Secure Port
Direction Inbound # Inbound Only
Priority 1
My understand is that ATTLS allows you to encrypt network traffic for
clients/servers which do not implement TLS themselves. It sounds like your Db2
traffic was formerly not encrypted with TLS, but your ATTLS rule now encrypts
that Db2 traffic without the client or server being any wiser.
Micro Focus.
But it appears I misread the Micro Focus COBOL documentation.
I already had a program that set the data set name dynamically. I thought there
was syntax that would allow the "external" identifier (dd name) to be a data
name, but that's not true.
So ironically, now I have an easy
Whose COBOL are you using on the PC side? If it is Fujitsu's, I
think SORT is built in. I'm not sure about the MicroFocus COBOL.
I don't have one of their systems.
Steve Thompson
On 5/1/2023 10:33 AM, Schmitt, Michael wrote:
The data I'm trying to write is mixed up in an input file, so I
Do you mean that you have an ATTLS rule which ‘converts’ your SMP/E job to an
SSL client ?. Ie ATTLS acts as an SSL proxy, converting the data stream into
and out of your SMP/E step to SSL ? But SMP/E implements SS itself so you must
not convert that to SL using an AT-TLS rule.
> On 1 May
I am confused myself!
we originally "reconfigured" TLS to provide for encrypted data transfer for Db2
thru secured ports.
part of that work (I do not know why) was specifying a rule for HTTPS.
Now the only way we can download on this LPAR is when the HTTPS - TLS rule is
disabled.
Does that make
This works, and is the winning solution!
All that is needed is to add a nested program:
identification division.
program-id. set_dd_name.
data division.
linkage section.
01 dcb-i.
05 fillerpic x(40).
05 dd-name-dcb-i pic x(8).
01 dd-name-i pic x(8).
procedure
On Mon, May 01, 2023 at 08:26:42AM -0500, Pierre Fichaud wrote:
> I have provided the DCB in source and dumped it just before the OPEN.
> . 000183 INFILE DCB DDNAME=INFILE,
>*00164000 .
> . 000184
To all the repliers, thanks for your ideas.
I think the answer is that there's no *simple* way to do what I asked in COBOL.
Most replies were to suggest other ways to do it, but they were not what I
wanted.*
I've run a test of reading a file where the DD name is determined at runtime.
This
>> SORT would be tricky to only write the header record once per file, and to
>> resequence the records.
Michael,
Not really. There are ways to get around it. Here is a sample job of writing
to 2 files. You can expand that to “n” number of files.
//STEP0100 EXEC PGM=SORT
//SYSOUT DD
I'm confused by your question. Can you be more specific what you mean by "we
have locked down HTTPS via TLS"? Are you not allowing any HTTPS traffic at
all? That feels extreme.
Kurt Quackenbush
IBM | z/OS SMP/E and z/OSMF Software Management | ku...@us.ibm.com
Chuck Norris never uses
>> The data I'm trying to write is mixed up in an input file, so I don't know
>> which DDs I need to write to until I get there.
You Code for ALL the ddnames possible and open them and write to them based on
the file indicator.
>> I know that I could change the program to do an internal sort,
On Mon, May 01, 2023 at 08:26:42AM -0500, Pierre Fichaud wrote:
> I have provided the DCB in source and dumped it just before the OPEN.
> 1st data set in the concatenation :
> The JCL has just the DSN and DISP.
> .
>
> .
SELECT specifies the COBOL FILE name to be ASSIGNED to a DDNAME. The FILE name
is then used in an FD to nominate the I/O area(s).
There is no dynamic SELECT that I am aware of. You have to use some form of
SVC99. BPXWDYN can be used for this purpose.
SORT would be tricky to only write the header record once per file, and to
resequence the records.
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Mike Schwab
Sent: Friday, April 28, 2023 10:42 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL to dynamic DD name
Requirement is for COBOL; that's what the end-state program will be.
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Andrew Rowley
Sent: Friday, April 28, 2023 8:18 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL to dynamic DD name
On 29/04/2023 6:29 am, Schmitt,
Requirement is for COBOL.
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Seymour J Metz
Sent: Friday, April 28, 2023 5:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL to dynamic DD name
How many different files does he have? An equivalent to the PL/I FILE
I'm trying to avoid that because the end-state program won't be doing that, if
I'm not in z/OS COBOL I can just have one file and dynamically switch the DD
name.
At least I think I can; I haven't tested that exact syntax yet.
-Original Message-
From: IBM Mainframe Discussion List On
I don't see a question, so I'm responding to what I think you want.
It has long been true that BUFSIZE defaults to the largest
available BLKSIZE The requirement was written in the 1980s. (It might
depend on your access method.) So, I very much doubt the the BLISIZE
difference is the problem.
That's an interesting idea: add a nested program, call it passing the file-name
(so it passes the FD), and then within the nested program find the offset of
the ddname in the passed data and change it.
But it assumes that when you then open the file, COBOL doesn't move the
select/assign dd
Yeah, the File Manager solution is slick, but the end state won't be running on
z/OS.
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Sri
h Kolusu
Sent: Friday, April 28, 2023 3:35 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL to dynamic DD name
>> Now we're
I don't have a license for the PL/I compiler, and...
The ends state will be a program that runs on my PC, where it doesn't have the
same limitation as z/OS COBOL. What I'm trying to do now is test that program
logic in z/OS. So, I need it to be COBOL.
-Original Message-
From: IBM
All are VB
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Sri
h Kolusu
Sent: Friday, April 28, 2023 3:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL to dynamic DD name
>> So use it to retrieve the data set name that is allocated in the JCL to the
>> DD,
The data I'm trying to write is mixed up in an input file, so I don't know
which DDs I need to write to until I get there.
I know that I could change the program to do an internal sort, but what I'm
trying to do is an *interim* solution for testing using the *PC* version of the
program, which
The goal is to OPEN the DD name that is already allocated in the JCL, but with
one select/assign and FD, in COBOL.
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Paul Gilmartin
Sent: Friday, April 28, 2023 2:53 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL to
we download IBM software maintenance via HTTPS.
Now, we have locked down HTTPS via TLS.
This prevents us from downloading.
One detail, we are going thru a proxy server.
How do we need to configure so we can still download using HTTPS with TLS
locking it down?
thanks
Bill
Hi Bruce,
Thanks so much for your response!
Are the cyberark ids literally the same as the racf ids?
Our cyberark team wants us to use separate group of "generic" cyberark ids
different from our original RACF ids.
So one day you might "check out" cyberark id 123, another day you might "check
As suggested, simply define four output files, open them, and then write to
them based on the data in the input file record, perhaps using an EVALUATE
statement. Opening them all at the start of your program has another
advantage: if you open only one output at a time and loop between them,
I have provided the DCB in source and dumped it just before the OPEN.
1st data set in the concatenation :
Data Set Name . . . . : PIERRE.VB200.
.
.
Classification: Confidential
Same answer as my previous post. Open/close/read/write as needed.
Nothing here need to be dynamic.
Am I missing something?
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Schmitt, Michael
Sent: Friday, April 28, 2023 3:30 PM
To:
Classification: Confidential
If the JCL has all of the DD's defined. Just open/close the requested file(s)
as needed. No need for dynamic ddname.
>> I'm not trying to allocate the files. The JCL for the step has all the DDs.
>> I just need to be able open, extend, and close the select/assign
This is what we do as well, as in defining the extra processors as reserves,
and then just config them on when needed during the envent.
From: IBM Mainframe Discussion List on behalf of
Mike Shorkend
Date: Saturday, April 29, 2023 at 2:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: CBU
Edward,
As you stated, the name of the image profile must match the name of the LPAR
and so there can only be one image profile per LPAR.
However, if you need to have different versions of the image profile, such as
when CBU is active and when it is not, then you do have some option.
First,
42 matches
Mail list logo