Re: IKJDAIR DA14CD (return qualifiers)

Was the LLZZ specified with ZZ as x''? Many years ago I had some strange results from DAIR which were due to random bit settings, that might also account for not getting the partial results as documented. It was always a touchy interface, and the ZZ requirement is poorly documented. On Fri,

Re: COBOL to dynamic DD name

On Sat, 29 Apr 2023 13:51:00 +1000, Andrew Rowley wrote: > >Fair point... although I would contend that a Java program without >comments is easier to understand than DFSORT control statements! > Yes. It appears as if the specifier of DFSORT control statement syntax was traumatized in utero by CMS

Re: COBOL to dynamic DD name

On 29/04/2023 11:48 am, Paul Gilmartin wrote: Obviously a complete Java program needs very few comments. Fair point... although I would contend that a Java program without comments is easier to understand than DFSORT control statements! Here is a version with comments (again, untested):

Re: COBOL to dynamic DD name

I've seen several uses of sort to split a file into multiple output files. On Fri, Apr 28, 2023 at 2:38 PM Schmitt, Michael wrote: > > I know how to have a COBOL program on z/OS use a data set name that isn't > determined until runtime, via an environment variable. My question is can you >

Re: COBOL to dynamic DD name

On Fri, 28 Apr 2023 20:40:37 +, Seymour J Metz wrote: >The OP isn't trying to retrieve the information; ... > > >From: Sri h Kolusu >Sent: Friday, April 28, 2023 4:26 PM > >As steve mentioned in earlier post , you can BPXWDYN2 to retrieve the info a

Re: COBOL to dynamic DD name

On Sat, 29 Apr 2023 11:17:39 +1000, Andrew Rowley wrote: >... >A complete Java program: > Obviously a complete Java program needs very few comments. -- gil -- For IBM-MAIN subscribe / signoff / archive access

Re: COBOL to dynamic DD name

On 29/04/2023 6:29 am, Schmitt, Michael wrote: I have an input file that contains thousands of records. They are in groups: header record, then a bunch of segments all for one database name, then another header, records for another database. But the same database can appear more than once in

Re: Unlike data sets concatenation - revised

On Fri, 28 Apr 2023 18:55:47 -0500, Michael Oujesky wrote: >Note that RECFM=V is missing the "B" (i.e. block descriptor >word). RECFM=V is almost the equivalent of RECFM=U, exceptt that the >data block is prefixed by a half-word length (limited to 32767) and "BB". > This says otherwise:

Re: Unlike data sets concatenation - revised

Note that RECFM=V is missing the "B" (i.e. block descriptor word). RECFM=V is almost the equivalent of RECFM=U, exceptt that the data block is prefixed by a half-word length (limited to 32767) and "BB". BTW, a VBS record can be as long as 16,777,215 bytes, Michael At 12:40 PM 4/28/2023,

Re: JES2 $SUBMIT Command

By use-cases I wasn't talking about how to set it up, I've got that. What I was asking about is for anyone who has configured it, what are you using it for? Does its use make anything easier in your day to day work? Mark Jacobs Sent from ProtonMail, Swiss-based encrypted email. GPG Public

Re: COBOL to dynamic DD name

How many different files does he have? An equivalent to the PL/I FILE keyword would be more flexible than hard-wiring the ddnames at compile time. From: IBM Mainframe Discussion List on behalf of Sri h Kolusu Sent: Friday, April 28, 2023 4:59 PM To:

Re: COBOL to dynamic DD name

On Fri, 28 Apr 2023 20:26:38 +, Sri h Kolusu wrote: >... >Here is an example > >https://www.mvsforums.com/helpboards/viewtopic.php?p=62866#62866 > Thanks. I think I see how that works. Trying to understand it, I found a contradiction in the REXX UNIX Ref. I submitted an RCF. -- gil

Re: COBOL to dynamic DD name

>> The OP isn't trying to retrieve the information; he's trying to open a file >> using a dynamic ddname. Put another way, he wants to open the same DCB >> multiple times, with a different DCBDDNAM each time. SeyMour >From the limited information that OP provided, IMHO he was planning on

Re: COBOL to dynamic DD name

*I have not tried this*, but could you use SET FILE-VAR TO ADDRESS OF FILE-NAME? Does that make FILE-VAR point to the DCB? If so, then, with the file closed, move in your DD name, open, write, close. Rinse and repeat. Like I said, I don't know if this will work, but it's worth a try. Chuck On

Re: COBOL to dynamic DD name

The OP isn't trying to retrieve the information; he's trying to open a file using a dynamic ddname. Put another way, he wants to open the same DCB multiple times, with a different DCBDDNAM each time. From: IBM Mainframe Discussion List on behalf of Sri

Re: COBOL to dynamic DD name

>> Now we're trying to replace the File Manager step. If it was possible to do >> this in z/OS COBOL we could use it, but it isn't worth a large effort >> because it would be an interim solution anyway. Michael, Not sure as to why you want to replace file manager step with a COBOL program,

Re: COBOL to dynamic DD name

>> So use it to retrieve the data set name that is allocated in the JCL to the >> DD, then use the environment variable method to write to that same data set >> name? Hmmm. Michael, Not really, once you get the Dataset name, you can open it in EXTENDED mode and write the output. However,

Re: COBOL to dynamic DD name

Is PL/I an option at your shop? From: IBM Mainframe Discussion List on behalf of Schmitt, Michael Sent: Friday, April 28, 2023 4:29 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: COBOL to dynamic DD name I have an input file that contains thousands of

Re: COBOL to dynamic DD name

I don't think you can do that. Unfortunately COBOL does not yet support actual FILE-type variables. COBOL files are essentially CONSTANTS in the language definition. I wish that we had PL/I's FILE variable capability, but we don't. IMHO your best bet is to avoid multiple DD allocations

Re: COBOL to dynamic DD name

So use it to retrieve the data set name that is allocated in the JCL to the DD, then use the environment variable method to write to that same data set name? Hmmm. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Sri h Kolusu Sent: Friday, April 28, 2023 3:27 PM To:

Re: COBOL to dynamic DD name

I have an input file that contains thousands of records. They are in groups: header record, then a bunch of segments all for one database name, then another header, records for another database. But the same database can appear more than once in the input. The step takes this input and creates

Re: JES2 $SUBMIT Command

On Fri, 28 Apr 2023 12:58:40 -0700, M. Ray Mullins wrote: > >Note that the MVS Assembler Services Guide still documents that the >maximum of instream data is 254 > That's horribly obsolete, perhaps contradicted by other publications. I'll submit an RCF. Assembler Services Guide should not

Re: COBOL to dynamic DD name

>> 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 to >> different DDs where which ones I use and which order is not known until I'm >> working through an input file. Michael, As steve mentioned in

Re: COBOL to dynamic DD name

I don't know any Cobol syntax that would change the DDNAME in a DCB, but you could call an assembler routine to change the DDNAME before OPEN. Why would you want to do that? I'm a bit baffled. In z/OS and its ancestors, the data set name isn't determined until runtime, via JCL. Perhaps if you

Re: COBOL to dynamic DD name

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 to different DDs where which ones I use and which order is not known until I'm working through an input file. I can do it on other platforms, and

Re: COBOL to dynamic DD name

You may want to use BPXWDY2. It dow not require the setting of R0. And it does almost everything that BPXWDYN does. Steve Thompson. PS. Speaking of RCFS, this is one I did an RCF about and I understand there are some updates being done to/with the DOC for examples. On 4/28/2023 3:52 PM,

Re: JES2 $SUBMIT Command

There's not what I would consider a definitive specific reference, but in several places (including the Initialization & Tuning Guide) note that the maximum LRECL for INTRDR and SYSIN data sets is 32760. Somewhere (but I can't find it right now) there's an explicit prohibition of RECFM=U, and

Re: COBOL to dynamic DD name

On Fri, 28 Apr 2023 19:37:39 +, Schmitt, Michael wrote: >I know how to have a COBOL program on z/OS use a data set name that isn't >determined until runtime, via an environment variable. My question is can you >use one file (i.e. one select/assign and one FD) to write to different DD

COBOL to dynamic DD name

I know how to have a COBOL program on z/OS use a data set name that isn't determined until runtime, via an environment variable. My question is can you use one file (i.e. one select/assign and one FD) to write to different DD names, that were already allocated in the JCL? I can't find a way,

Re: Inexplicable 0C4!

On 4/28/2023 10:25 AM, Steve Smith wrote: Frankly, I think it was unwise by z/OS to lump translation exceptions (PICs 10, 11, 39-3B) in with S0C4. There's a fundamental difference between attempting to access storage with the wrong key, and storage that doesn't exist (S0C5 is a variant). S0D0

Re: Unlike data sets concatenation - revised 2

On Fri, Apr 28, 2023 at 12:53:46PM -0500, Pierre Fichaud wrote: > These are existing datasets so it's just DSNAME and DISP in the concatenation. OK, but what is in the source coded on the DCB? Does it specify BLKSIZE and/or LRECL. Please provide the DCB from the source of the program. Also

Re: Unlike data sets concatenation - revised 2

On Fri, 28 Apr 2023 12:53:46 -0500, Pierre Fichaud wrote: >These are existing datasets so it's just DSNAME and DISP in the concatenation. > It's possible to override attributes of an existing data set in JCL DD, DYNALLOC, or DCB. If the OPEN is only for READ overriding attributes will be

Re: Inexplicable 0C4!

I would have said that it was unwise of IBM to overload ABEND S0C4 in OS/VS, but that once they had done so there was no graceful way to change it. From: IBM Mainframe Discussion List on behalf of Steve Smith Sent: Friday, April 28, 2023 1:25 PM To:

Re: Unlike data sets concatenation - revised 2

These are existing datasets so it's just DSNAME and DISP in the concatenation. Pierre. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Unlike data sets concatenation - revised

On Fri, 28 Apr 2023 12:20:29 -0500, Michael Oujesky wrote: >Would not think "V" could be included. "... > Why not? If I create a VBS data set; write a single logical record which happens not to be segmented, then close it, the content is identical to that of a RECM=V data set. RECFM=VBS must

Re: Inexplicable 0C4!

To be clear, the TEA is only relevant for Translation Exceptions, and a PIC 4 is not. Notwithstanding that your trace entry example *is* a PIC 4, and that is great information. Frankly, I think it was unwise by z/OS to lump translation exceptions (PICs 10, 11, 39-3B) in with S0C4. There's a

Re: Unlike data sets concatenation - revised 2

On Fri, Apr 28, 2023 at 11:18:43AM -0500, Pierre Fichaud wrote: > I set DCBOFPPC before the OPEN. > DCB after open > 000224D8 01D0 00F43026 002FE5A2 05025C70 > 4000 00027E08 * }...4 . Vs * .. .. = * > 000224F8 02010580 5000 00A44848

Re: Unlike data sets concatenation - revised

Would not think "V" could be included. "VBS" is just a variation of "VB" where the RDW is treated as a SDW where X'' in the "BB" field indicates a non-segmented (i.e full variable length record" in the buffer). Another approach would be to not open the file as concatenated, but treat

Re: GPMSERVE Certificate/Ring define....

A practical guide to getting z/OSMF working. also mentions certificates and keyrings Colin On Fri, 28 Apr 2023 at 12:52, Shaffer, Terri < 017d5f778222-dmarc-requ...@listserv.ua.edu> wrote: > Hi, > So my

Re: Sort INCLUDE problem

>> You job is not summarizing by HLQ; instead is creating one record by each >> input record with HLQ and size. Jack, Now that I know what you are trying to do, it is quite easy to add the summary by HLQ in the same step. You have 2 different multiplications so we need to use IFTHEN

Re: Inexplicable 0C4!

On 4/28/2023 1:32 AM, Robin Atwood wrote: @Ed Jaffe: thanks for the tip about the TEA, but where do you find it? IPCS STATUS FAILDATA displays it but, in my dumps, PSA+90 and PDS+A8 both have zero in the address part. The TEA is displayed on various  IPCS displays. It's captured for the

Re: GPMSERVE Certificate/Ring define....

I've just posted Setting up z/OS for TLS clients and Setting up Linux to z/OS certificates If you get stuck, please feel free to contact me offline

Re: Sort INCLUDE problem

Hello Kolusu, I think that this DFSORT statements should work: SKIP,1 BRS-BYT,*,16,PD LX-BYT,*,16,PD //SYSINDD *,SYMBOLS=EXECSYS INREC PARSE=(%01=(ABSPOS=2,ENDBEFR=C'.',FIXLEN=8)), OVERLAY=(BRS-HLQ:%01, BRS-BYT:INP-FLSIZE,TO=PD,LENGTH=16,

Re: Unlike data sets concatenation - revised 2

I set DCBOFPPC before the OPEN. DCB after open 000224D8 01D0 00F43026 002FE5A2 05025C70 4000 00027E08 * }...4 . Vs * .. .. = * 000224F8 02010580 5000 00A44848 008C4064 1AE30E68 00CA99F8 0A018240 020903E8 *&u .T . r8 b

Re: IBM RCF Documentation email address?

On Fri, 28 Apr 2023 15:04:14 +, Seymour J Metz wrote: > >I normally use >, > which points to the PDF books. > ... about three dozen of which were updated this week. That page also has a link to the GA

Re: Sort INCLUDE problem

Hello Kolusu, Thank you for your quick answer. As you have guessed, my problem is on the two first steps, which you have consolidated in one. The management class is only relevant for spiting the information into two files; what I need is to summarize the size by high level qualifier for the

Re: IBM RCF Documentation email address?

I normally use , which points to the PDF books. From: IBM Mainframe Discussion List on behalf of Roger Bolan Sent: Friday, April 28, 2023 10:50 AM To:

Re: IBM RCF Documentation email address?

I never had problems with the email address either. Somebody else said that. I just hadn't used it in a while. I just said I use the web pages with the "site feedback" button. I always go to the IBM Documentation on the web. If you go to the main section links like z/OS MVS - IBM

Re: Sort INCLUDE problem

>> What is troubling me is that I have at least one HLQ that is present on both >> files with the records separated by the management class, but that HLQ is >> only present on the summarized by HLQ file that does not have that specific >> management class. And the INCLUDE that I am using is

Re: FTPS/HTTPS to testcase sites via proxy (cross posted from IBMTCP-L)

FTPs works for us. Have to use your IBM file transfer ID and password, anonymous no longer works. For a passive connection, there are some high numbered range of ports you need to setup firewall to allow. My JCL looks like this //FTP EXEC PGM=FTP,REGION=64M,PARM='(EXIT=8' //CEEOPTS DD

Re: Unlike data sets concatenation - revised 2

On Fri, Apr 28, 2023 at 08:51:22AM -0500, Pierre Fichaud wrote: > I thought that the 2nd display of the DCB would show the lrecl to be > 230 and the blksize to be 1150. As did others, which is why a dump of the DCB was requested to see the actual values. > I'm reading the documentation for the

FTPS/HTTPS to testcase sites via proxy (cross posted from IBMTCP-L)

Has anyone been able to setup their jobs, that send diagnostic data to IBM, via ftps or https using a proxy? Now for us, the https is not as straight forward as a normal proxy. Ours requires us to pass and indicate it's to use ntlm authentication (that's what we have to specify in the smp/e

Unlike data sets concatenation - revised 2

I thought that the 2nd display of the DCB would show the lrecl to be 230 and the blksize to be 1150. I'm reading the documentation for the umpteenth time and can't see what I've missed or done wrong. 08.51.43 JOB12479 +Ptr to SYNAD exit placed in DCB 08.51.43 JOB12479 +reread off, OFPPC on

Re: interfacing C with Rexx

Thanks, David. Wonder if that could be made to run on z/VM-CMS...? DJ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Inexplicable 0C4!

The interruptible instructions (usually) only get interrupted if the string is longer than 256 bytes, which is not usually the case. We just need a simple function for operating on short strings, very often. Some of the suggestions to allocate lots of extra pages were somewhat missing the

Re: Inexplicable 0C4!

On 28/4/23 19:57, Robin Atwood wrote: I need to know the length of the string, preferably without needing a new parameter and altering a lot of code. At which point I remembered that the XL/C compiler generates inline code for the strlen(s) function. For those who are interested, this is:

Re: Inexplicable 0C4!

K3wl. Using R0 as R_1 reminds me of the BXH/BXLE trick for testing successive bits. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Robin Atwood [abend...@gmail.com]

Re: IBM RCF Documentation email address?

Are you referring to KC web pages? What about manuals in PDF format? I've never had problems sending an RCF e-mail to the address in the manual. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List

Re: Inexplicable 0C4!

Treat the page size as 4K and drive on. The difference in execution speed probably isn't worth the issues. On Fri, Apr 28, 2023 at 7:15 AM Seymour J Metz wrote: > Set the initial length to the remaining bytes on the "page". After that, > use the "page size". That leaves the question of how an

Re: Inexplicable 0C4!

Set the initial length to the remaining bytes on the "page". After that, use the "page size". That leaves the question of how an unpriveleged program determines the "page size". Scare quotes because a 1 MiB "page" is actually a segment in the nomenclature of PoOps. -- Shmuel (Seymour J.)

Re: Inexplicable 0C4!

I was thinking along those lines but then had a better idea. See my other post. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Michael Stein Sent: Friday, April 28, 2023 6:31 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Inexplicable 0C4! On Fri, Apr 28, 2023 at

Re: Inexplicable 0C4!

I need to know the length of the string, preferably without needing a new parameter and altering a lot of code. At which point I remembered that the XL/C compiler generates inline code for the strlen(s) function. For those who are interested, this is: LRR4,R2 copy

GPMSERVE Certificate/Ring define....

Hi, So my certificate knowledge is lacking and I can normally find samples to change the text and define them. So I was trying a few more functions out in z/OSMF and System Status Failed due to GPMSERVE 5003 errors. I found the pagent definitions and added them but apparently I never defined

Re: Inexplicable 0C4!

On Fri, 28 Apr 2023, at 12:31, Michael Stein wrote: > How about setting the length to include just to the end of the current > page. Then as the first operand doesn't cross a page boundary ... Just imagine if the first operand started on the last byte of the page! Wouldn't it be better to

Re: Inexplicable 0C4!

On Fri, Apr 28, 2023 at 03:32:59PM +0700, Robin Atwood wrote: > Thanks, Michael, that is the problem. The next page is available, > but the one after that isn't. > The problem is I maintain legacy C code originally developed with > SAS/C, which had a strupr(s) function. There is no length

IKJDAIR DA14CD (return qualifiers)

I have inherited some code which issues IKJDAIR X'14' . According to the doc , if the buffer is too small to receive all of the qualifiers, the buffer is filled as much as possible and return code x'28' is issued. I am finding that if the buffer is too small that nothing is returned and return

Re: interfacing C with Rexx

On 28.04.2023 01:07, David Crayford wrote: ... cut ... I'll fork the repo and then push up my changes  on a zos branch and post here. I'm will be turning issues off!! I have to say that Regina REXX is quite good compared to z/OS REXX. Of course, it doesn't have the TSO/ISPF integrations

Re: Inexplicable 0C4!

"may or may not" simply signifies that the behaviour can change in different hardware implementations, typically by machine model but even by engineering change level. I've run into this often, but IBM is rigorous in only doing this for instruction behaviour that is incidental to the correct

Re: Inexplicable 0C4!

Thanks, Michael, that is the problem. The next page is available, but the one after that isn't. Obviously, I had read the entry for TRE in the PoOps but didn't take in the significance of the Access Exceptions clause. (In fact, I still don't understand it: "may or may not"!) The problem is I

Sort INCLUDE problem

Hi I have this file in which each record has a tape dataset name, the creation date, the last ref date, size and management class. I need to summarize the size by high level qualifier and to create a file with all the record that have one specific management class, and do the same for the records