Re: Issue with SMFDUMP program

SMFDUMP (from the CBTTAPE) should be AMode31 RMode 24. I think you can just change it with the PDS command if you have it, or just relink it. I'm not sure how you got away with AM24 in the other LPARs. The code is in file 686 of the www.CBTTAPE.org site and it says inside of it: *

Re: Can I use a REXX PLIST when calling a COBOL program?

REXX-aware means that it can handle an EFPL as described at -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe

Re: Can I use a REXX PLIST when calling a COBOL program?

The LINK and LINKMVS environments both pass parameters beginning with halfword length fields; LINK takes the entire expression as a single parameter while LINKMVS takes the expression as a list of parameter names. There are charts starting around p. 30 of the REXX reference showing what the

Re: Can I use a REXX PLIST when calling a COBOL program?

On Mon, 22 Mar 2021, at 22:30, Paul Gilmartin wrote: > On Mon, 22 Mar 2021 19:41:10 +, Jeremy Nicoll wrote: > > >On Mon, 22 Mar 2021, at 19:27, Rich Tabor wrote: > > > > LINKAGE SECTION. > > 01 FLD1 PIC X(08).

Re: Can I use a REXX PLIST when calling a COBOL program?

Not quite. Everything in the ADDRESS statement after the environment is an expression. The expression 'CBLPGM "FLD1 FLD2 FLD3"' evaluates to 'TST01 FLD1 FLD2 FLD3', so the statement calls TST01 with a three word parameter list pointing to the values of FLD1, FLD2 and FLD3. The initialization

Re: Can I use a REXX PLIST when calling a COBOL program?

ADDRESS LINKMVS takes one parameter containing the name of the external procedure and the names of the parameters. Any required padding is the responsibility of the program. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe

Re: Can I use a REXX PLIST when calling a COBOL program?

Forgetting REXX for the moment, COBOL does work pretty much how you say. Here's an example (irrelevant data omitted). Called program (CALLEE): LINKAGE SECTION. 01 MY-PARMPIC X(80). PROCEDURE DIVISION. MOVE ALL 'X' TO MY-PARM GOBACK. Calling program: WORKING-STORAGE SECTION. 01

Re: Can I use a REXX PLIST when calling a COBOL program?

On Mon, 22 Mar 2021 19:41:10 +, Jeremy Nicoll wrote: >On Mon, 22 Mar 2021, at 19:27, Rich Tabor wrote: > > LINKAGE SECTION. > 01 FLD1 PIC X(08). > 01 FLD2 PIC X(08).

Re: [External] Re: z14 HMC log information

OK, this is embarrassing. We found the problem - but don't know the culprit. We discovered the quiesce command wasn't locked down and somebody somewhere keyed it in. The reason we don't know who/where is because our SDSF-like product had the capability to also do a quiesce and since we

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

>Hi Dave, >The JCLIN is not an actual job. It is just a bunch of statements which >get scanned for keywords, much like what recruiters do on LinkedIn. >I usually try to make sure that it is not executable in case in gets >SUBMITd accidentally. >Another thing, real Dataset Names are unnecessary.

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

Hi Dave, The JCLIN is not an actual job. It is just a bunch of statements which get scanned for keywords, much like what recruiters do on LinkedIn. I usually try to make sure that it is not executable in case in gets  SUBMITd accidentally. Another thing, real Dataset Names are unnecessary. All

Issue with SMFDUMP program

Hello All, I'm getting OC4 abend with SMFDUMP program that handles our SMF processing, what surprises me is the same program runs good on our Sandbox & Dev system (with AMODE=24 and RMODE=24) I presumed the issue could be & recompiled SMFDUMP wiith AMODE=31 as IBM mentioned this is the issue with

Re: Can I use a REXX PLIST when calling a COBOL program?

On Mon, 22 Mar 2021, at 19:27, Rich Tabor wrote: > /* REXX */ > CBLPGM = 'TST01' > FLD1 = SUBSTR('',1,80) > FLD2 = SUBSTR('',1,80)

Re: Can I use a REXX PLIST when calling a COBOL program?

REXXEXCI is my program. I pass some parameters to the program, and it issues an EXEC-CICS LINK to jump across EXCI into the CICS region to run a non-terminal transaction. I pass the APPLID of the CICS region, and a program name to run, and a transaction code to run the program under etc... I don't

Re: Can I use a REXX PLIST when calling a COBOL program?

I have no idea what you are really ultimately trying to do, but the following POC worked for me in batch: IDENTIFICATION DIVISION PROGRAM-ID. TST01. ENVIRONMENT DIVISION. DATA DIVISION.

Re: Can I use a REXX PLIST when calling a COBOL program?

On Mon, 22 Mar 2021 14:53:02 -0400, Cameron Conacher wrote: > >when you say that my COBOL program must be coded Rexx-aware, do you mean I >need to work with IRXEXCOM to tease the parameters out from REXX? > Perhaps that code exists in REXXEXCI. >I appreciate everyone's input. >I don't know if

Re: Can I use a REXX PLIST when calling a COBOL program?

Paul, when you say that my COBOL program must be coded Rexx-aware, do you mean I need to work with IRXEXCOM to tease the parameters out from REXX? I appreciate everyone's input. I don't know if the "appropriate" path forward is to use ADDRESS LINK or ADDRESS LINKMVS or if I should continue to try

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

>At one time it was a big deal when SNA was all the rage :) >I did forget this once and only once in a VTAM/SNA world, never again >Carmen Vitullo I think that is the case. We arent a huge CICS shop, and havent been using the SVC in the 15+ years I've been here.One less usermod for

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

At one time it was a big deal when SNA was all the rage :) I did forget this once and only once in a VTAM/SNA world, never again   Carmen Vitullo -Original Message- From: Radoslaw To: IBM-MAIN Date: Monday, 22 March 2021 1:40 PM CDT Subject: Re: Upgrade from z/os 2.3 to 2.4

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

My former CICS admin used to say "don't forget about it or I'll kill you", so I think it is important. ;-) -- Radoslaw Skorupka (looking for new job) Lodz, Poland W dniu 22.03.2021 o 19:05, PINION, RICHARD W. pisze: Doesn't the CICS DFHHPSVC have something to do with the "VTAM High

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

it does, and as far as I'm concerned not needed but my CICS/DB2 folks want it moved to NUC   Carmen Vitullo -Original Message- From: RICHARD To: IBM-MAIN Date: Monday, 22 March 2021 1:21 PM CDT Subject: Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage Doesn't the CICS

Re: Can I use a REXX PLIST when calling a COBOL program?

On Mon, 22 Mar 2021 17:50:00 +, Seymour J Metz wrote: >You are using CALL, which is intended for REXX procedures and REXX-aware >procedure that are written to accept an external function parameter list >(EFPL). > Which may be OK if REXXEXCI is coded Rexx-aware and reformats it argument as

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

Doesn't the CICS DFHHPSVC have something to do with the "VTAM High Performance" Option? Is that still a big deal? -Original Message- From: IBM Mainframe Discussion List On Behalf Of Radoslaw Skorupka Sent: Monday, March 22, 2021 1:43 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Upgrade

Re: Can I use a REXX PLIST when calling a COBOL program?

You are using CALL, which is intended for REXX procedures and REXX-aware procedure that are written to accept an external function parameter list (EFPL). Use ADDRESS LINK or ADDRESS LINKMVS to call a main program and ADDRESS LINKPGM to call a subroutine. Note that if the subroutine is written

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

I cannot check it now, but I'm pretty sure this is a part of CICS installation when using ServerPac Installation Dialog. I mean new module in SYS1.NUCLEUS and appropriate entries in SYS1.IPLPARM. -- Radoslaw Skorupka (looking for new job) Lodz, Poland W dniu 22.03.2021 o 16:55, Edgington,

Re: Can I use a REXX PLIST when calling a COBOL program?

Sounds like you want to be using LINKPGM https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ikja300/ikja30034.htm -Original Message- From: IBM Mainframe Discussion List On Behalf Of Cameron Conacher Sent: Monday, March 22, 2021 6:12 AM To:

Re: Can I use a REXX PLIST when calling a COBOL program?

My REXX looks like this. Previously, I passed one long string to my COBOL program as PARM5SS. Now I am trying to create a PLIST to pass to my COBOL Program. I do not really know what I am doing with this. I am just trying to figure it out. I could do it one way. I wanted to see if I could do it

Re: Can I use a REXX PLIST when calling a COBOL program?

On Mon, 22 Mar 2021 16:48:29 +, Seymour J Metz wrote: >What environment did you use in your ADDRESS statement? Please post the >relevant REXX code. > For example, here's an excerpt of my Rexx code. I could have used LINKMVS. Values could be returned in the PARMs. PARM1 = '' Nulls =

Re: Can I use a REXX PLIST when calling a COBOL program?

What environment did you use in your ADDRESS statement? Please post the relevant REXX code. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Cameron Conacher

Re: Can I use a REXX PLIST when calling a COBOL program?

I am not sure I understand now. I created a simple COBOL Program and added a number of 01 level items to the Linkage section and then I added PROCEDURE DIVISION USING... a list of the data items I expected to see passed from my little REXX EXEC. LINKAGE SECTION. 01 parameter-1 PIC X(08) 01

Re: Contents of TOD Programmable Field under z/OS?

On Mon, 22 Mar 2021 03:51:50 +, Gibney, Dave wrote: >A 64 bit (or longer) binary counter? > Consider the Pigeonhole Principle. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to

Re: Overlapped I/O completion

BUFNO controls the GETPOOL done by OPEN in addition (for QSAM) to telling OPEN how many IOBs to allocat. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Joseph

Re: Can I use a REXX PLIST when calling a COBOL program?

On Mon, 22 Mar 2021 14:34:58 +, Seymour J Metz wrote: >The PLIST format is the same regardless of language; for AMODE 24 or AMODE 31 >it's just a list of pointers with the high bit of the last pointer set. >However, the Devil is in the details. > Indeed. If the objects addressed by

Re: z/TPF questions

Three digit is generally first or second generation. 3210, 3211 and 3215 are not terminals. 2301, 2303, 2321 and 7320 are DASD but not disks. 7340 is a tape drive. 2860, 2870 and 2880 are both 360 and 370. 14xx are second generation. While S/360 processors were generally 20xx, the 195 was 2195

Re: Overlapped I/O completion

So are BUFNO= and GETPOOL/ GETBUF related -Original Message- From: IBM Mainframe Discussion List On Behalf Of Seymour J Metz Sent: Monday, March 22, 2021 11:48 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Overlapped I/O completion GETPOOL and FREEPOOL are also valid for QSAM, and

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

Thanks Dave.. Yes, I am not sure why the DFHHPSVC is needed either. And thanks for the Usermod. I wanted to copy it, not move it. So, this really helps. Jerry -Original Message- From: IBM Mainframe Discussion List On Behalf Of Dave Jousma Sent: Monday, March 22, 2021 11:51 AM

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

Jerry, I wouldnt move it, just write a usermod to copy it to NUCLEUS, and update your NUCLSTxx member.Let the CICS guy tell you when it changes, and you need to re-apply your usermod. We incidentally dont install DFHHPSVC. Not sure why, I did ask the CICS guy about it. Here is an old

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

Same here - usermods for IMS and CICS. Our usermod list has been pretty stable since z/OS V2R1 - only added one. David -Original Message- From: Carmen Vitullo To: IBM-MAIN@LISTSERV.UA.EDU Sent: Mon, Mar 22, 2021 11:40 am Subject: Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage I

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

you can if you want SMPE to manage it, much like the ISPMOVE usermod found in the ISP.SISPSAMP library, Thanks Dave, and modify the SMPE statements from a ++MOVE to a ++COPY, I've not tried this but it may be a better way to go.     Carmen Vitullo -Original Message- From:

Re: Overlapped I/O completion

GETPOOL and FREEPOOL are also valid for QSAM, and sometimes necessary. "Any buffer pool assigned to a DCB either automatically by the OPEN macro (except when dynamic buffer control is used or the system is honoring RMODE31=BUFF on the DCBE macro), or explicitly by the GETPOOL macro should be

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

Thanks Carmen. I was thinking I needed something in the z/OS zone, to notify if something changed with the nucleus, but doesn't seem necessary anymore. :) -Original Message- From: IBM Mainframe Discussion List On Behalf Of Carmen Vitullo Sent: Monday, March 22, 2021 11:41 AM To:

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

I have a usermod library, that I NORMALLY keep up to date, I create a new usermod library for each release SMPE.USERMODS.ZOSV2R4 for example, for CICS, I havea IEBCOPY job in that library that copied SVC's for IMS and the HPO SVC for CICS to NUC.       Carmen Vitullo -Original

Re: Overlapped I/O completion

There are some complexities that a beginner can probably ignore. If you don't code RECFM and LRECL in your DCB, then the code must validate the supplied values and be prepared to deal with them. If you set the unlike attributes bit then the code must be prepared to deal with the transitions

Re: Overlapped I/O completion

With a reasonable block size, the default for BUFNO is adequate. -- Shmuel (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: Sunday,

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

Since, we are on the subject for Usermods. How does everyone handle the CICS Usermod of moving the DFHHPSVC from SDFHLOAD to NUCLEUS? I need some way to track it in CICS and z/OS zones.. Any suggestions would be a great help. Thanks, Jerry -Original Message- From: IBM Mainframe

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

Dave, I found that usermod in my 2.2 and 2.3 usermods PDS - this was not moved forward for some reason I think this was supplied in SAMPLIB, but that's a great start for me, thanks again Dave.     Carmen Vitullo -Original Message- From: Dave

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage [EXTERNAL]

Thank you for checking Paul   Carmen Vitullo -Original Message- From: Paul <02fc94e14c43-dmarc-requ...@listserv.ua.edu> To: IBM-MAIN Date: Monday, 22 March 2021 9:59 AM CDT Subject: Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage [EXTERNAL] We are also in the

Re: Can I use a REXX PLIST when calling a COBOL program?

Thanks everyone. On Mon, Mar 22, 2021 at 10:35 AM Seymour J Metz wrote: > The PLIST format is the same regardless of language; for AMODE 24 or AMODE > 31 it's just a list of pointers with the high bit of the last pointer set. > However, the Devil is in the details. > > If you are calling a

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

Thanks Dave, that usermod looks familiar, I think if I can look back to my 2.2 or 2.3 migration IIRC this was supplied by IBM?      Carmen Vitullo -Original Message- From: Dave <01a0403c5dc1-dmarc-requ...@listserv.ua.edu> To: IBM-MAIN Date: Monday, 22 March 2021 9:58 AM

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage [EXTERNAL]

We are also in the process of going from z/OS 2.3 to z/OS 2.4. So far I have not seen any changes in the below the line private area. Thanks..   Paul Feller GTS Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List On Behalf Of Carmen Vitullo Sent:

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

Carmen, We are at V2.4, but I cannot answer your question directly, however we maintain a 11Mb private below the line. I have this usermod that moves most RMODE24 little used modules at our site out of LPALIB and into a linklsted dataset. ++VER(Z038) FMID(HIF7S02).

Upgrade from z/os 2.3 to 2.4 decrease PVT storage

I'm in the process of testing the upgrade from 2.3 to 2.4 and I've noticed with no changes to LPALST my private storage available below the line has decreased 1M from 8168K down to 7144K. I don't see any mention of storage requirement increasing below the line that would account for the

Re: Overlapped I/O completion

> Implementing overlapped I/O is what QSAM does. Only if you let it. If you code BUFNO=1, the only overlap is what the DASD subsystem does under the covers. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List

Re: Contents of TOD Programmable Field under z/OS?

For a finite state space, you don't need statistics to guaranty collisions. Statistics comes in when you have a string of samples too short to guaranty collisions and want to know what the probability of collisions is. For some applications a probability of e.g., .1 (10%), might be acceptable

Re: Can I use a REXX PLIST when calling a COBOL program?

The PLIST format is the same regardless of language; for AMODE 24 or AMODE 31 it's just a list of pointers with the high bit of the last pointer set. However, the Devil is in the details. If you are calling a main program, REXX handles everything. If you are calling a program that doesn't

Re: z/TPF questions

On Sat, 20 Mar 2021 12:33:12 +0200, Mike Shorkend wrote: >Also , there is a z/OS based product - ALCS - which provides the same >functionality as TPF without the overhead of additional hardware, operating >system , operational costs etc . So targeted at smaller shops. > Up until about a year

Re: Epoch Index

>A programmer sets comparator ... I hope that, at least for z/OS, only z/OS BCP programs are doing so. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to

Re: Can I use a REXX PLIST when calling a COBOL program?

Thank you Brian. This is helpful. Sent from my iPhone > On Mar 22, 2021, at 9:22 AM, Brian Chapman wrote: > > Cameron, > > If you add the data areas to the PROCEDURE DIVISION USING statement, then > COBOL will set the linkage accordingly. > > > > Thank you, > > Brian Chapman > > >> On

Re: Can I use a REXX PLIST when calling a COBOL program?

Cameron, If you add the data areas to the PROCEDURE DIVISION USING statement, then COBOL will set the linkage accordingly. Thank you, Brian Chapman On Mon, Mar 22, 2021 at 9:13 AM Cameron Conacher wrote: > Hello everyone, > I have been busy playing with an old support pac from IBM that

Can I use a REXX PLIST when calling a COBOL program?

Hello everyone, I have been busy playing with an old support pac from IBM that enables REXX to call an Assembler routine that in turn invokes EXCI. Not terribly important, but I thought the PLIST interface between REXX and Assembler was pretty slick. I had not seen it before. (and the support pac