Fwd: What is the PDS command?

[Edward Gould]

> Begin forwarded message:
> 
> From: Seymour J Metz 
> Subject: Re: What is the PDS command?
> Date: January 4, 2024 at 6:22:39 AM CST
> To: IBM-MAIN@LISTSERV.UA.EDU
> Reply-To: IBM Mainframe Discussion List 
> 
> Paper?! For, e.g., SYSABEND, SYSUDUMP, on SPOOL you can at least do a search 
> for, e.g., eyecatchers, key addresses. On paper a large dump is unmanageable.
> 
> When you're swamped is precisely when you need good tools. Not having PDS86 
> is bad; not having IPCS is intolerable.
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> עַם יִשְׂרָאֵל חַי
> נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר
> Seymour:

Needless to say we had a lot of politics gong during this time. We hated VSAM 
as ti was a mess. Europe didn’t want it either. I was the repository for 
standalone dumps. We had a MSS but I have long forgotten the model number but 
IIRC it was a medium-to-large MSS. The two sysprogs that were dedicated to it 
were swamped with work. I disliked VSAM (this w before ICF) and we ended up 
with sam volume ownership and the MSS people were at wits end with it. I still 
remember taking a call from IBM (all our MSS people were taking a day off) I 
started to talk with the guy and they wanted me to zap the MSVI(?) I knew a 
little about it after talking with the MSS people. I zapped it and everything 
started to work (again) The following day I told the MSS people what I had done 
(since they weren’t around).  Because of the MSS and enque issues we must have 
taken at least 40 dumps and shipped them off to boulder (IIRC). IBM ended uo 
rewriting ENQUE and another component(allocation). We were lucky as we had a 
great IBM team and we had a couple leave IBM -Chicago and go out either West to 
the JES3 (we were Jes2 and did not understand that at all) Others went to GBURG 
and one went to the dasd in (CA?). Without them we would have truly been in a 
world of hurt). I think they have all retired by now.
Ed


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SSH tunneling for unattended process.

[Jon Perryman]

On Tue, 9 Jan 2024 20:18:42 -0600, Kirk Wolf  wrote:

>On Tue, Jan 9, 2024, at 5:18 PM, Jon Perryman wrote:
\>> You may wonder why you might need -R. The SSH command exposes 
identification (e.g. userid & password).
>> -L exposes a z/OS userid & password on each TN3270 computer which is not 
>> easily protected. 
>
>Exposes how? Do you mean that traffic on one socket across the loopback adapter

Amazingly the hack is much simpler. Scan thru github for userid's / passwords. 
There are opensource utilities that will find the most common occurrences. 

Consider DB2 connect in z/OS using shared RACF, ACEE and trust for every 
machine within the SYSPLEX. No userid / password (or some other identification 
method is not allowed)

DB2 connect client for Linux, Windows and ??? is completely different. For 
instance, the DB2_CONNECT for PHP is documented as follows:

db2_connect(
string $database,
?string $username,
?string $password,
array $options = []
): resource|false
Creates a new connection to an IBM DB2 Universal Database, IBM Cloudscape, or 
Apache Derby database.

This is a common Unix practice (not necessarily a best practice). People tend 
to follow the documentation.

Surprisingly, some people do not sanitize their code before uploading to github 
(or other open source repositories).  

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SSH tunneling for unattended process.

[Kirk Wolf]

On Tue, Jan 9, 2024, at 5:18 PM, Jon Perryman wrote:
> 
> You may wonder why you might need -R. The SSH command exposes identification 
> (e.g. userid & password). -L exposes a z/OS userid & password on each TN3270 
> computer which is not easily protected. -R exposes Unix/Windows 
> userid/password on z/OS where you can fully protect them in 1 location and 
> easily restrict access.
> 
> I used TN3270 as an example that is familiar to everyone in this group. But 
> this holds true for all TCP connections. Some exceptions may apply but it's 
> unlikely most people will be in those situations.
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 

Exposes how? Do you mean that traffic on one socket across the loopback adapter 
can be seen by something other than the processes on the ends of the socket or 
a privileged process?
 
Kirk Wolf
Dovetailed Technologies
http:// coztoolkit.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Netview, REXX and assembler interfaces for variable access

[Jon Perryman]

On Tue, 9 Jan 2024 10:26:54 -0600, Willy Jensen  
wrote:

> IRXSAY returns with return code 28 'A language processor environment could 
> not be located'. 

You have a coding error. Does R0 point to the ENVBLOCk? IRXSAY works in Netview 
otherwise the REXX SAY command would not work.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EDIT MACRO REQUEST

[Paul Gilmartin]

On Tue, 9 Jan 2024 22:41:50 +, Steely.Mark wrote:

>I would like to check each member of a PDS and if it is empty (0 Lines) - I 
>would like to add a line with the text of *NONE*.
>
What requirement does this satisfy?

After you do this, how will you know whether a member containing the "*NONE*"
line was initially empty or initially contained exactly that line?

Otherwise, I concur with Schmitt, Michael's suggestion.

-- 
gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EDIT MACRO REQUEST

[Glenn Knickerbocker]

On Tue, 9 Jan 2024 23:31:10 +, Schmitt, Michael  
wrote:
>3. LMMLIST LIST STATS(YES) to create a list of the members, with statistics
>   While LMMLIST rc = 0
>  If ZLCNORC = 0
> LMPUT to write your NONE line

Of course, that assumes that there *are* already statistics.  If the member has 
no statistics, you'll have to read it to find out if it has any records.

¬R

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EDIT MACRO REQUEST

[Jon Perryman]

On Tue, 9 Jan 2024 22:41:50 +, Steely.Mark  wrote:

>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PADM3) EMPTREXX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PPCT3) EMPTREXX)

You don't want to start and stop ISPF for each member (ISPSTART). There are far 
better methods to process specific members or all members

>I would like to check each member of a PDS and if it is empty (0 Lines)
> I would like to add a line with the text of *NONE*.

I don't have access to a system and I'm doing this from memory, so this might 
not be quite right

ADDRESS ISREDIT
"MACRO (PARM1,PARM2,...)"
"(LINES) = LINENUM .ZLAST"
if lines = 0 then do
   "LINE_AFTER .ZFIRST = 'NONE'"
   "SAVE"
end
"END" 

>I would like to do this in batch using this format:

There are many ways to skin this cat. Your job would work but you might not 
have considered some alternatives. such as 

LMMLIST to get member list

Interactive ISPF 3.4 using E /(*) MACRO(EMPTREXX) 

Interactive ISPF 3.4 using M for member list. First use E line command 
MACRO(EMPTREXX). Subsequent members use = to repeat. If ISPF stats exist, then 
you can sort on lines and issue command for those with 0 lines.

Forget ISPF and use REXX. Certainly better than stopping and starting ISPF for 
each member. SYSOUTTRAP LISTDS MEMBERS to get the member list. For each desired 
member, ALLOC, EXECIO DISKR, EXECIO DISKW. FREE.

I'm sure there are more.  

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EDIT MACRO REQUEST

[Schmitt, Michael]

I wonder why I didn't get the original request.


I'm going to be THAT GUY who responds by not answering your question, and 
instead point out that there are way more efficient ways to do this than by 
starting up ISPF once per member. For example, you can start ISPF once with an 
exec that opens the library once, then iterates through the members. If you 
only want to process specific members, you can still have the list in a file 
that you read, then process each one. Starting up ISPF is slow, and so it 
opening and closing the PDS once per member.

For example:

1. LMINIT ENQ(SHRW) to generate a data id for the library
2. LMOPEN to open for output
3. LMMLIST LIST STATS(YES) to create a list of the members, with statistics
   While LMMLIST rc = 0
  If ZLCNORC = 0
 LMPUT to write your NONE line
  LMMLIST again
4. LMMLIST FREE
5. LMCLOSE
6. LMFREE

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Mark Zelden
Sent: Tuesday, January 9, 2024 4:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EDIT MACRO REQUEST

On Tue, 9 Jan 2024 22:41:50 +, Steely.Mark  wrote:

>I would like to check each member of a PDS and if it is empty (0 Lines) - I 
>would like to add a line with the text of *NONE*.
>
>I would like to do this in batch using this format:
>
>//TSOBTCH1  EXEC PGM=IKJEFT01
>//SYSTSPRT  DD SYSOUT=*
>//SYSLIST   DD SYSOUT=*
>//ISPLOGDD DSN=,
>// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)),
>// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
>//ISPPROF   DD DSN=,
>// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)),
>// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
>//ISPMLIB   DD DSN=ISP.SISPMENU,DISP=SHR
>//ISPPLIB   DD DSN=ISP.SISPPENU,DISP=SHR
>//ISPSLIB   DD DSN=ISP.SISPSENU,DISP=SHR
>//ISPTLIB   DD DSN=ISP.SISPTENU,DISP=SHR
>//ISPTABL   DD DSN=XX.ISPF.ISPTLIB,DISP=SHR
>//SYSPROC   DD DSN=XX.CLIST,DISP=SHR
>//SYSTSIN   DD *
>  PROFILE PREFIX(XX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PADM3) EMPTREXX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PPCT3) EMPTREXX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PCO13) EMPTREXX)
> Etc..
>
>EMPTREXX -  would be the ISREDIT Macro to perform the task.
>
>Any help would be appreciated.
>
>Thank You

Not sure what part you need help with.  Probably the EMPTREXX,  which I will 
leave to
someone else to help you with as I don't have time, but if you need help with
the "EDITREXX" part, see "EDMACALL" on my web site / CBT file 434.  URL
of my web site below.  The source code has a simple example of an
edit macro.


Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SSH tunneling for unattended process.

[Jon Perryman]

On Tue, 9 Jan 2024 11:41:45 -0600, Grant Taylor  
wrote:

>This is important to keep in mind when you are considering which way the
>port forwarded traffic will go in relation to which end is the SSH client.

Tunnels are bidirectional so it does not matter which way traffic is forwarded. 
What is important is the system with the listener port (often referred to as 
server). 

>N.B. the -L and -R are reference to the ssh /client/.

This is very simple. You are moving the listener port from one computer to 
another computer. Consider TN3270 connecting to your z/OS system. You specify 
an IP address and port on TN3270 which means you want to connect to the 
listener port on z/OS.  -R means you are issuing the SSH tunnel command from 
z/OS (listener port/server machine) whereas -L means you're means you are 
issuing the SSH tunnel command from the TN3270 computer (client). Regardless of 
-R or -L, you now have the listener port on the computer where you issue the 
TN3270 command.

You may wonder why you might need -R. The SSH command exposes identification 
(e.g. userid & password). -L exposes a z/OS userid & password on each TN3270 
computer which is not easily protected. -R exposes Unix/Windows userid/password 
on z/OS where you can fully protect them in 1 location and easily restrict 
access.

I used TN3270 as an example that is familiar to everyone in this group. But 
this holds true for all TCP connections. Some exceptions may apply but it's 
unlikely most people will be in those situations.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EDIT MACRO REQUEST

[Steely.Mark]

I have the EDITREXX part. That works. Only need help with the EMPTREXX issue.

Thanks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Mark Zelden
Sent: Tuesday, January 09, 2024 4:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EDIT MACRO REQUEST



CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? 
Were you expecting this email? If not, report it using the Report Phishing 
Button!

On Tue, 9 Jan 2024 22:41:50 +, Steely.Mark  wrote:

>I would like to check each member of a PDS and if it is empty (0 Lines) - I 
>would like to add a line with the text of *NONE*.
>
>I would like to do this in batch using this format:
>
>//TSOBTCH1  EXEC PGM=IKJEFT01
>//SYSTSPRT  DD SYSOUT=*
>//SYSLIST   DD SYSOUT=*
>//ISPLOGDD DSN=,
>// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)),
>// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
>//ISPPROF   DD DSN=,
>// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)),
>// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
>//ISPMLIB   DD DSN=ISP.SISPMENU,DISP=SHR
>//ISPPLIB   DD DSN=ISP.SISPPENU,DISP=SHR
>//ISPSLIB   DD DSN=ISP.SISPSENU,DISP=SHR
>//ISPTLIB   DD DSN=ISP.SISPTENU,DISP=SHR
>//ISPTABL   DD DSN=XX.ISPF.ISPTLIB,DISP=SHR
>//SYSPROC   DD DSN=XX.CLIST,DISP=SHR
>//SYSTSIN   DD *
>  PROFILE PREFIX(XX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PADM3) EMPTREXX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PPCT3) EMPTREXX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PCO13) EMPTREXX)
>Etc..
>
>EMPTREXX -  would be the ISREDIT Macro to perform the task.
>
>Any help would be appreciated.
>
>Thank You

Not sure what part you need help with.  Probably the EMPTREXX,  which I will 
leave to someone else to help you with as I don't have time, but if you need 
help with the "EDITREXX" part, see "EDMACALL" on my web site / CBT file 434.  
URL of my web site below.  The source code has a simple example of an edit 
macro.


Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 
Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: 
http://www.mzelden.com/mvsutil.html

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EDIT MACRO REQUEST

[Mark Zelden]

On Tue, 9 Jan 2024 22:41:50 +, Steely.Mark  wrote:

>I would like to check each member of a PDS and if it is empty (0 Lines) - I 
>would like to add a line with the text of *NONE*.
>
>I would like to do this in batch using this format:
>
>//TSOBTCH1  EXEC PGM=IKJEFT01
>//SYSTSPRT  DD SYSOUT=*
>//SYSLIST   DD SYSOUT=*
>//ISPLOGDD DSN=,
>// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)),
>// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
>//ISPPROF   DD DSN=,
>// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)),
>// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
>//ISPMLIB   DD DSN=ISP.SISPMENU,DISP=SHR
>//ISPPLIB   DD DSN=ISP.SISPPENU,DISP=SHR
>//ISPSLIB   DD DSN=ISP.SISPSENU,DISP=SHR
>//ISPTLIB   DD DSN=ISP.SISPTENU,DISP=SHR
>//ISPTABL   DD DSN=XX.ISPF.ISPTLIB,DISP=SHR
>//SYSPROC   DD DSN=XX.CLIST,DISP=SHR
>//SYSTSIN   DD *
>  PROFILE PREFIX(XX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PADM3) EMPTREXX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PPCT3) EMPTREXX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PCO13) EMPTREXX)
> Etc..
>
>EMPTREXX -  would be the ISREDIT Macro to perform the task.
>
>Any help would be appreciated.
>
>Thank You

Not sure what part you need help with.  Probably the EMPTREXX,  which I will 
leave to 
someone else to help you with as I don't have time, but if you need help with
the "EDITREXX" part, see "EDMACALL" on my web site / CBT file 434.  URL
of my web site below.  The source code has a simple example of an
edit macro.


Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

EDIT MACRO REQUEST

[Steely.Mark]

I would like to check each member of a PDS and if it is empty (0 Lines) - I 
would like to add a line with the text of *NONE*.

I would like to do this in batch using this format:

//TSOBTCH1  EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSLIST   DD SYSOUT=*
//ISPLOGDD DSN=,
// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)),
// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
//ISPPROF   DD DSN=,
// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)),
// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
//ISPMLIB   DD DSN=ISP.SISPMENU,DISP=SHR
//ISPPLIB   DD DSN=ISP.SISPPENU,DISP=SHR
//ISPSLIB   DD DSN=ISP.SISPSENU,DISP=SHR
//ISPTLIB   DD DSN=ISP.SISPTENU,DISP=SHR
//ISPTABL   DD DSN=XX.ISPF.ISPTLIB,DISP=SHR
//SYSPROC   DD DSN=XX.CLIST,DISP=SHR
//SYSTSIN   DD *
  PROFILE PREFIX(XX)
  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PADM3) EMPTREXX)
  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PPCT3) EMPTREXX)
  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PCO13) EMPTREXX)
 Etc..

EMPTREXX -  would be the ISREDIT Macro to perform the task.

Any help would be appreciated.

Thank You



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Encryption and DB2 (Cross Posted)

[Tom Longfellow]

Yes - I have -- I am no longer an instant deep AI catalog interface on the how 
to.  But here goes

As with many things there are many ways to skin a cat.I used pervasive 
encryption of z/OS and RACF.
Defined keys and stored them in the ICSF CKDS.
Defined the RACF permission for who could access those keys.
Defined the RACF DSD profiles for the DB2 tablespaces and Indexspaces to use 
the keys created above.
Allowed the DB2MSTR address space all the access he could want to those keys 
and those physical tablespaces, etc.
Online SHRLEVEL CHANGE reorg of the tablespaces then cause the creation of new 
physical tablespace under the new encryption rules.   You can unload, del/def 
and reload them in a multistep nightmare but that is a bit uglier.   
The entry in the z/OS catalog will link the key label to the data during the 
initial allocation of the file.
Data Management will 'pervasively' encrypt/decrypt as you do reads and writes 
to the physical files.  

There are of course other ways to trigger or select what keys to use for the 
pervasive encryption.
If you are manally doing IDCAMS DEL/DEFS then the responsibility for key 
specification is up to you.
Your SMS ACS routines could be used to override the choice for the files you 
wish.
I also believe there are ways in the DB2 Catalog TABLESPACE definitions to 
specifiy the pervasive key to use.
RACF holds the final permissions for whether you can encrypt at all and which 
key labels that you allow to be used.

If you are talking about old fashioned field or row level encryption of parts 
of a table,  I am outta here.   That was a little beyond my toolset and 
knowledge.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Encryption and DB2 (Cross Posted)

[Steve Beaver]

First of all a thank you to Colin Paice for his primer

 

My  customer has more DB2 DB's with lots of tables than I care to know
about.

 

Has anyone Encrypted any of their DB2 databases.

 

I suspect the each table will have to be unloaded individually or copied
from the source

System to the Encrypted DB2 DB.

 

Any assistance would be appreciated 

 

 

 

Steve 

 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: using Snapx to dump a dataspace

[Binyamin Dissen]

Quite interesting The format is not clear. I would guess that Peter will
recommend a comment form.

My read would be

START DS  A
END  DS  A
STOKEN DS XL8

Repeat.

The last range would have the x'80' bit set in END.

The dataspace is identified by a STOKEN, so SNAPX does not require an ALET.


On Tue, 9 Jan 2024 11:39:58 -0600 Joe DeChirico
<05694ada0b0a-dmarc-requ...@listserv.ua.edu> wrote:

:>Hi
:>
:>Does anyone have an example or to on how to code the z/os snapx macro to dump 
a dataspace? In particular, the DSPSTOR= operand and its values.
:>
:>Do you have to be in AR mode to issue the macro, which registers if any need 
to have an alet set?
:>
:>Thanks
:>
:>JD
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

using Snapx to dump a dataspace

[Joe DeChirico]

Hi

Does anyone have an example or to on how to code the z/os snapx macro to dump a 
dataspace? In particular, the DSPSTOR= operand and its values.

Do you have to be in AR mode to issue the macro, which registers if any need to 
have an alet set?

Thanks

JD

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SSH tunneling for unattended process.

[Grant Taylor]

+10 for everything that Rick has said.

On 1/8/24 1:26 PM, Rick Troth wrote:

Clarification on -L and -R ...


N.B. the -L and -R are reference to the ssh /client/.

This is important to keep in mind when you are considering which way the 
port forwarded traffic will go in relation to which end is the SSH client.




--
Grant. . . .
unix || die

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

CFP for this year's International Rexx Symposium (Australia in March), mainframe Rexx talks welcome

[Rony G. Flatscher]

Hi there,

the Rexx Language Association (https://www.RexxLA.org) has announced the 35^th International Rexx 
Language Symposium to take place in Brisbane (Greenbank), Qld, *Australia* and online between March 
3 and March 6, 2024, which is an opportunity to meet with Rexx developers in person in Australia 
this year.


As the Rexx community encompasses the mainframe world, presentations for mainframe Rexx are welcome, 
so this would be an opportunity to share your mainframe Rexx expertise with others. Here the call 
for presentations: <https://www.rexxla.org/document.rsp?base=events=2024=cfp>, please 
consider to offer a presentation. (Should you employ the s390x version of ooRexx then it would be 
interesting to learn about it and lessons learned as well!)


So, maybe in Australia in person or digitally!

---rony

P.S.: RexxLA is a non-profit organization based in the U.S. that owns the source code of quite a few 
Rexx-related software including interpreters (e.g. the source code of ooRexx which can be traced 
back to IBM's source code of its Object REXX product which IBM handed over to RexxLA for further 
development and for distribution as open-source and became ooRexx). RexxLA's membership consists of 
Rexx users and developers on practically all operating systems at all experience levels. As the 
RexxLA-membership has become free it may be interesting for Rexxers in this list to join with 
others, some of which have a mainframe background. Among other things you will be in a community 
with Mike F. Cowlishaw (the father of Rexx and NetRexx), Mark Hessling (Regina, an open-source Rexx 
interpreter, available also for Hercules), Rick McGuire (ooRexx, I think, he is the only person that 
has implemented a Rexx interpreter for every IBM operating system) and many more. Homepage: 
<https://www.rexxla.org>,  join page: <https://www.rexxla.org/members/index.rsp?action=join> (you 
can only join if you are able to answer a Rexx related question ;) - to fight robots).


P.P.S.: Today a new beta of BSF4ooRexx850 (a bi-directional ooRexx-Java bridge, camouflaging Java as 
ooRexx) got announced which is planned to be released at the symposium if no showstopper bugs 
appear. The installation zip archive for BSF4ooRexx850 supports s390x (but also all versions of 
Linux, Windows and macOS) out of the box such that if you have the s390x version of ooRexx you can 
use that immediately to exploit everything that Java has available (without a need to learn Java at 
all). You therefore become immediately able to exploit even mainframe specific Java class libraries, 
as well as any other third party Java class library there is!


In case you are curious and want to check out what that powerful combination allows for here two 
URLs: ooRexx <https://sourceforge.net/projects/oorexx/files/oorexx/5.0.0/> (look for "s390x" in the 
ooRexx download link name) and BSF4ooRexx850 
<https://sourceforge.net/projects/bsf4oorexx/files/beta/20240109/>. After installation look-up 
BSF4ooRexx850/samples/index.html for a brief explanation of the numerous samples demonstrating what 
becomes possible with this powerful combination. Both technologies are open-source and tested (e.g. 
there is currently no known error for BSF4ooRexx850).


It is likely that a presentation on the new BSF4ooRexx850 will be given at the International Rexx 
Language Symposium in Australia with Q (like "850" in the package name denotes the minimum level 
of Java 8 (850%100) and ooRexx 5 (850//100/10)).



--
__

Prof. Dr. Rony G. Flatscher
Department Wirtschaftsinformatik und Operations Management
Institut für Wirtschaftsinformatik und Gesellschaft
D2c 2.086
WU Wien
Welthandelsplatz 1
A-1020  Wien/Vienna, Austria/Europe

http://www.wu.ac.at
__



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Netview, REXX and assembler interfaces for variable access

[Willy Jensen]

Turns out the problem is with IRXSAY, I can read and write variables using 
IRXEXCOM. But IRXSAY returns with return code 28 'A language processor 
environment could not be located'. Unfortunately I was not checking for IRXSAY 
return codes, as IRXSAY just works, well at least in TSO it does. So now to 
find an alternative to that.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

APPN networking - How can you confirm that you are the man in the middle.

[Tom Longfellow]

This is going to be difficult to explain without pictures.   Here is an outline.

I am a network node NETA.NODE1
I have CP-CP connectionns to NETB.NODE1 and NETC.NODE1

I see no LU-LU connections to me from NETB.NODE1.   However, if I disconnect 
the SWM node and RTP to NETB.NODE1, they go into conniptions, flooding their 
system console with complaints that they can no longer see NETC.NODE1.
This implies that I am the middleman in the grand Mulit-Network APPN 
architecture and without me, these two nodes out of my control cannot route to 
each other.


The questions become
1) Is there a VTAM display to confirm that I am the middleman or must I rely on 
the inference that I am drawing.
2)  If  NETB.NODE1 and NETC.NODE1 are having problems ONLY with CP-CP or 
routing establishment,  Why am I involved and how do I get out of this?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Help Trying to determine where abend occurred / unable to find linkage stack entry

[Joseph Reichman]

Tony 

Here is A header entry as signified by the 9 of x’89’ 

Unstack-suppression control 
ET Entry type:
Header  ƒ 0001001: 
Trailer  ƒ 0001010: 
Branch  ƒ 0001100: 
Pc  ƒ 0001101: SI Section identification RFS Remaining free space NES 
Next-entry size U

The doc from the “DUAL ADDRESS SPACE LINKAGE – STACK ARCHITECHTURE PAGE 67 
indicates the BESA Back stack Entry Address is – 8 of 7F66F9D0. 

When I display that its  all zeros
l 7F66F9D0. L(8) XC   
 7F66F9D0.    

  

L 7F66F9D8. L(255) XC   
 7F66F9D8.  890005C8 0128  00027C4C  *i..H..@<* 
      
 00028F60    *...-* 
 7F66F9F8.       ** 
     ** 
 7F66FA18.       ** 
     ** 
 7F66FA38.       ** 
 00028F68  008BBB6C  *...%* 
 7F66FA58.   A054D960 00C00013 0013  *..R-* 
07851000   A054D9A0  *.eR.* 
 7F66FA78.  00027C4C 00028F60    *..@<...-* 
  
 008BBB6C 0002 0002  *...%* 
 7F66FA98.       ** 
     ** 
 7F66FAB8.    008DECBC   ** 
   00*... * 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Tony Harminc
Sent: Monday, January 8, 2024 10:08 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Help Trying to determine where abend occurred / unable to find 
linkage stack entry

On Mon, 8 Jan 2024 at 19:20, Joseph Reichman mailto:reichman...@gmail.com> > wrote:

> After getting an abend with SDWAEC2 (different from SDWAEC1) I 
> observed SDWAXFLG to be X'92' that means SDWAEC2 psw came from the 
> linkage stack
>
> Looking at the STCB field STCBLSDP I started going back ward by X'128' 
> a linkage stack entry and was unable to find a marching PSW
>
> THANKS
>

As you were marching backwards through the state entries looking for PSWs, are 
you sure you didn't pass a header entry, which is much shorter, and could point 
to a state entry in a previous stack section?

Tony H.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu   with the message: 
INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN