Re: Print a SYSMDUMP

[CM Poncelet]

Thanks for the reminder of what it was called.

On 20/04/2021 13:17, Seymour J Metz wrote:
> AMDPRDMP, originally IMDPRDMP in OS/360. After IPCS, there was a lot of new 
> code shared between IPCS and AMDPRDMP.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> CM Poncelet [ponce...@bcs.org.uk]
> Sent: Monday, April 19, 2021 11:41 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Print a SYSMDUMP
>
> FWIW
>
> Pre-IPCS, there was a TSO batch program to format SYSMDUMPs. I can't
> remember precisely, but perhaps it was called something like AMSPRDMP or
> similar.
>
> With IPCS, there are lots of pre-written IPCS REXX execs available
> somewhere (if memory serves, they begin with BLS*) and they can be
> invoked to do most of the standard SYSMDUMP analyses.
>
> I preferred to write my own REXX execs to do that - and I would
> recommend that IPCS users likewise write their own execs.
>
> Here is an example of some IPCS REXX (in this case for a CICS dump). HTH.
>
> /*-REXX--*/
> /* IPCS CLIST TO EXTRACT THE ADDRESSES OF A CICS REGION'S SYSTEM */
> /* TCA'S (STCA), FROM AN SVC DUMP, THEN REPEATEDLY FOR EACH STCA,*/
> /* INVOKE %ONLCZDWE PASSING THE STCA AS ARGUMENT.*/
> /*   */
> /* INVOKES %ONLCZDWE */
> /* ¯ */
> /* INPUT:  NONE: IS INVOKED AS A COMMAND, FROM WITHIN IPCS, AND  */
> /* ¯¯IT THEN ANALYSES THE DUMP CURRENTLY ALLOCATED   */
> /*   */
> /* OUTPUT: ADDRESS OF ACTIVE + SUSPENDED TASKS' SYSTEM TCA'S */
> /* ¯¯¯ FOR EACH SYSTEM TCA, OUTPUTS: */
> /* - TRANSID */
> /* - ASSOCIATED PROGRAM ID   */
> /* - USERID  */
> /* - TERMID  */
> /* - DISPATCH CONTROL INDICATOR STATUS   */
> /* - TASK NUMBER */
> /* - DEFERRED WORK ELEMENT LIST  */
> /* - QUEUE ELEMENT LIST  */
> /*   */
> /*   */
> /* 06/01/95 CORRECTION TO ACTIVE/SUSPENDED TASK CHAINING */
> /* 26/08/94 CHRIS PONCELET   */
> /*---*/
>
> ADDRESS IPCS
>
> PSA_ADDRESS = ''
> "EVALUATE" PSA_ADDRESS||. ,
>   "POSITION("X2D(224)") LENGTH(4) REXX(STORAGE(OLD_ASCB_ADDRESS))"
> "EVALUATE" OLD_ASCB_ADDRESS||. ,
>   "POSITION("X2D(6C)") LENGTH(4) REXX(STORAGE(OLD_ASXB_ADDRESS))"
> "EVALUATE" OLD_ASXB_ADDRESS||. ,
>   "POSITION("X2D(4)") LENGTH(4) REXX(STORAGE(TCB_CHAIN_START_ADDRESS))"
> "EVALUATE" OLD_ASXB_ADDRESS||. ,
>   "POSITION("X2D(8)") LENGTH(4) REXX(STORAGE(TCB_CHAIN_STOP_ADDRESS))"
>
> FIND_CICS_TCB:
> FOUND = 'NO'
> STOP  = 'NO'
> TCB_CHAIN_NEXT_ADDRESS = TCB_CHAIN_START_ADDRESS
> X_E0 = C2X('E0'X)
> X_00 = C2X('00'X)
> X_40 = C2X('40'X)
> X_60 = C2X('60'X)
> X_80 = C2X('80'X)
> X_C0 = C2X('C0'X)
> DFHSIP = C2X('DFHSIP  ')
>
> /* FOR EACH TCB, SEARCH FOR ALL RB'S */
> DO WHILE (FOUND = 'NO') & (STOP = 'NO')
>   IF TCB_CHAIN_NEXT_ADDRESS = TCB_CHAIN_STOP_ADDRESS THEN ,
> STOP = 'YEAH'
>   "EVALUATE" TCB_CHAIN_NEXT_ADDRESS||. ,
> "POSITION(0) LENGTH(4) REXX(STORAGE(RB_ADDRESS))"
>
> /* FOR EACH RB: FIND PRB, IF ANY, AND CHECK WHETHER ASSOCIATED   */
> /*  PROGRAM IS DFHSIP*/
>   PRB_ADDRESS  = 0
>   IRB_ADDRESS  = 0
>   TIRB_ADDRESS = 0
>   SIRB_ADDRESS = 0
>   SVRB_ADDRESS = 0
>   DO K = 0 TO 999 WHILE (RB_ADDRESS ¬= TCB_CHAIN_NEXT_ADDRESS)
> LINK_ADDRESS.K  = RB_ADDRESS
> "EVALUATE" RB_ADDRESS||. ,
>   "POSITION("X2D(0A)") LENGTH(1) REXX(STORAGE(RBSTAB1))"
> RB_TYPE_VAL = C2X(BITAND(X2C(X_E0),X2C(RBSTAB1)))
>
> SELECT;
>   WHEN RB_TYPE_VAL = X_00  THEN DO   /* PRB  */
> LINK_RB.K   = 'PRB'
> "EVALUATE" RB_ADDRESS||. ,
>   "POSITION("X2D(0C)") LENGTH(4) REXX(STORAGE(CDE_ADDRESS))"
> "EVALUATE" CDE_ADDRESS||. ,
>   "POSITION("X2D(08)") LENGTH(8) REXX(STORAGE(PROGRAM_NAME))"
> IF PROGRAM_NAME = DFHSIP THEN FOUND = 'YEAH'
> END
>   WHEN RB_TYPE_VAL = X_40 THEN , /* IRB  */
> LINK_RB.K   = 'IRB'
>   WHEN RB_TYPE_VAL = X_60 THEN , /* TIRB */
> 

Re: IBM Earnings are excellent!

[Bill Johnson]

A convincing job of trying to fail? lol Up from $118 after last earnings report 
or 2/26. Not quite 20%, I rounded up. Gosh those Math awards sometimes fail me. 
Except when I invest.
Many companies selling at much higher market caps wish they had 70+ billion in 
sales and profit margins like IBM. If I wanted to work on the mainframe for 
another 30 years, it would not be a problem. I’m amazed at the people on this 
list who have made a good living from the platform complaining about it.
The mainframe is as close to irreplaceable for some industries as a platform 
can be.
This forum never ceases to amaze me. 


Sent from Yahoo Mail for iPhone


On Tuesday, April 20, 2021, 6:31 PM, zMan  wrote:

Yep, it's up to 75% of where it was a few years ago. Brilliant performance.

And it's not up 20%. Low this year was $118 back in February; low at end of
March was $133. $138 is hardly up 20%.

I don't want IBM to fail, but they're sure doing a convincing job of
trying to do so.

On Mon, Apr 19, 2021 at 4:51 PM Bill Johnson <
0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:

> IBM Earnings were announced 30 minutes ago. Stellar performance and the
> stock is up $3 after hours and over 20% in the last 3 weeks. I guess their
> obit was premature. Cloud was up 4% to 5.44 billion.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
zMan -- "I've got a mainframe and I'm not afraid to use it"

--
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: IBM Earnings are excellent!

[zMan]

Yep, it's up to 75% of where it was a few years ago. Brilliant performance.

And it's not up 20%. Low this year was $118 back in February; low at end of
March was $133. $138 is hardly up 20%.

I don't want IBM to fail, but they're sure doing a convincing job of
trying to do so.

On Mon, Apr 19, 2021 at 4:51 PM Bill Johnson <
0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:

> IBM Earnings were announced 30 minutes ago. Stellar performance and the
> stock is up $3 after hours and over 20% in the last 3 weeks. I guess their
> obit was premature. Cloud was up 4% to 5.44 billion.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
zMan -- "I've got a mainframe and I'm not afraid to use it"

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

Re: Format PDS unloaded on an CD

[Seymour J Metz]

I'm using a crap mail client that makes proper formatting of replies extremely 
awkward. I keep asking for IMAP4 or POP3 access so that I can use a better 
client, but their security people won't allow it.

A binary FTP to a Unix file, then read it as VB.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Tuesday, April 20, 2021 2:35 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Format PDS unloaded on an CD

On Tue, 20 Apr 2021 18:14:30 +, Seymour J Metz wrote:

>The sample I saw ...
>
Aw, gee.  Please include enough headers that readers can refer
to it without a tedious search.  E.g. (I'm guessing):
Date: Mon, 19 Apr 2021 07:41:14 +0200
SUBJECT: Re: Format PDS unloaded on an CD
Message-ID: 
FROM: Hilario Garcia 

> ...included what looked like valid BDWs and RDWs. If it is not missing 
> records then it should work with a DCB override.
>
A little more than that.  Reblocking according to the RDWs, then a DCB override.

-- gil

--
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: Format PDS unloaded on an CD

[Joe Monk]

The BDW/RDW  are there...

0094A0 FFF8    7FE4 7FE0

The 7FE4/7FE0 are the BDW/RDW.

Joe



On Tue, Apr 20, 2021 at 3:47 PM Michael Stein  wrote:

> On Tue, Apr 20, 2021 at 08:38:25PM +, Seymour J Metz wrote:
> > IEBCOPY will work if no records are missing. I don't know whether that
> > it sthe case.
>
> At a minimum the BDW/RDWs are missing.  Possibly they were transfered
> in binary but with the BDW/RDWs removed.  Or there might be more
> mangling.  Not enough of the files has been seen so far to tell.
>
> --
> 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: Format PDS unloaded on an CD

[Michael Stein]

On Tue, Apr 20, 2021 at 08:38:25PM +, Seymour J Metz wrote:
> IEBCOPY will work if no records are missing. I don't know whether that
> it sthe case.

At a minimum the BDW/RDWs are missing.  Possibly they were transfered
in binary but with the BDW/RDWs removed.  Or there might be more
mangling.  Not enough of the files has been seen so far to tell.

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

Re: Anyone have SFTP JCL to share?

[Seymour J Metz]

SFTP is not part of SSH, but I believe that openSSH includes a client and 
server for SFTP, and that IBM offers a por of openSSH for z/OS.

Wrong vendor, but yes.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Ward, Mike S [mw...@ssfcu.org]
Sent: Tuesday, April 20, 2021 3:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Anyone have SFTP JCL to share?

I believe SFTP is part of SSH, so you would have to install that. It's free 
from IBM. Then I believe Rocket Software has a freebee that allows you to use 
SFTP in batch with MVS datasets.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Format PDS unloaded on an CD

[Seymour J Metz]

IEBCOPY will work if no records are missing. I don't know whether that it sthe 
case.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Tuesday, April 20, 2021 9:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Format PDS unloaded on an CD

On Tue, 20 Apr 2021 13:20:49 +, Seymour J Metz wrote:

>It looked like there were intact BDWs and RDWs. Does anybody have a link for 
>the IEBCOPY unload format?
>
Why bother?  Just reconstruct the block structure and reload it with IEBCOPY.

>If there was translation then all bets are off. If they were binary transfers 
>then CR, LF and NL should not be issues.
>
>Recovering load libraries requires recovering directory data, not just the 
>member itself.
>
IEBCOPY does that, too.

--gil

--
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: Anyone have SFTP JCL to share?

[Paul Gilmartin]

On Tue, 20 Apr 2021 19:57:43 +, Longnecker, Dennis wrote:

>Stuff is becoming such a pain.  I found in this situation it was much easier 
>to FTP the file from the mainframe to my PC, and then to use FileZilla to sftp 
>it up to Broadcom.
> 
That's symptomatic of a deficit of commitment to the 21st Century on IBM's part.
Rather IBM should make the obsolete product painful.

>-Original Message-
>From: Ward, Mike S
>Sent: Tuesday, April 20, 2021 12:44 PM
>
>I believe SFTP is part of SSH, so you would have to install that. It's free 
>from IBM. Then I believe Rocket Software has a freebee that allows you to use 
>SFTP in batch with MVS datasets.
>
ITYM Dovetailed:
https://dovetail.com/products/sftp.html

... but Rocket may supply Classic SFTP via Ported Tools.

-- gil

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

Re: Anyone have SFTP JCL to share?

[Ken Bloom]

Sorry all:

Was not meant for the list...fingers to fast

Kenneth A. Bloom
Avenir Technologies Inc 
/d/b/a Visara International
203-984-2235
bl...@visara.com
www.visara.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ken Bloom
Sent: Tuesday, April 20, 2021 4:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Anyone have SFTP JCL to share?

Looks like you are going to get 2 DASD updates instead of one.

The bleeds look like they are all fixed, however, Don indicated that while we 
are not losing dibs anymore, we are getting close to using all of them with 
16CU's defined  and running 4 channels and all of the drives getting pounded 
from all directions.  So he is increasing the available DIBS by a factor of 16 
for each CU. So the first Update will be for the bleed only so we can start 
cooking the unit for 10 days.  The un-init volume issue which on the surface to 
me seems simple to fix has a few more opportunities to fix. So that will come 
after the bleed.  So plan on the Bleed issue update tomorrow morning some time. 
They started coding the locate block but as of tonight its not ready yet, but 
lets see what happens in the AM.

Ken


Kenneth A. Bloom
Avenir Technologies Inc 
/d/b/a Visara International
203-984-2235
bl...@visara.com
www.visara.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ward, Mike S
Sent: Tuesday, April 20, 2021 3:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Anyone have SFTP JCL to share?

I believe SFTP is part of SSH, so you would have to install that. It's free 
from IBM. Then I believe Rocket Software has a freebee that allows you to use 
SFTP in batch with MVS datasets. 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Billy Ashton
Sent: Wednesday, April 14, 2021 2:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXT] Anyone have SFTP JCL to share?

Please Note: This email is from an [EXTERNAL] sender. Do not click on links or 
attachments unless you expect them from the sender and know the content is 
safe. Please contact the Service Desk if you have any concerns regarding this 
message.



Hi everyone! I was just moved to support a CA product (I guess that's Broadcom 
now), and have to send in a sensitive file to one of my support cases. The file 
is pretty large, and the support tech said I have to copy it to OMVS to use 
SFTP for uploading it. I am not sure I have that space available on the other 
side, so I was wondering if anyone here has a BPX batch job that will send a 
file to CA or Broadcom from the z/OS file without having to first copy the file 
to my Unix filesystem.

I hope this is clear, and that someone can help me.

Thanks!
Billy


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

==
This email, and any files transmitted with it, is confidential and intended 
solely for the use of the individual or entity to which it is addressed. If you 
have received this email in error, please notify the system manager. This 
message contains confidential information and is intended only for the 
individual named. If you are not the named addressee, you should not 
disseminate, distribute or copy this e-mail. Please notify the sender 
immediately by e-mail if you have received this message by mistake and delete 
this e-mail from your system. If you are not the intended recipient, you are 
notified that disclosing, copying, distributing or taking any action in 
reliance on the contents of this information is strictly prohibited.

--
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

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

Re: Anyone have SFTP JCL to share?

[Ken Bloom]

Looks like you are going to get 2 DASD updates instead of one.

The bleeds look like they are all fixed, however, Don indicated that while we 
are not losing dibs anymore, we are getting close to using all of them with 
16CU's defined  and running 4 channels and all of the drives getting pounded 
from all directions.  So he is increasing the available DIBS by a factor of 16 
for each CU. So the first Update will be for the bleed only so we can start 
cooking the unit for 10 days.  The un-init volume issue which on the surface to 
me seems simple to fix has a few more opportunities to fix. So that will come 
after the bleed.  So plan on the Bleed issue update tomorrow morning some time. 
They started coding the locate block but as of tonight its not ready yet, but 
lets see what happens in the AM.

Ken


Kenneth A. Bloom
Avenir Technologies Inc 
/d/b/a Visara International
203-984-2235
bl...@visara.com
www.visara.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ward, Mike S
Sent: Tuesday, April 20, 2021 3:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Anyone have SFTP JCL to share?

I believe SFTP is part of SSH, so you would have to install that. It's free 
from IBM. Then I believe Rocket Software has a freebee that allows you to use 
SFTP in batch with MVS datasets. 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Billy Ashton
Sent: Wednesday, April 14, 2021 2:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXT] Anyone have SFTP JCL to share?

Please Note: This email is from an [EXTERNAL] sender. Do not click on links or 
attachments unless you expect them from the sender and know the content is 
safe. Please contact the Service Desk if you have any concerns regarding this 
message.



Hi everyone! I was just moved to support a CA product (I guess that's Broadcom 
now), and have to send in a sensitive file to one of my support cases. The file 
is pretty large, and the support tech said I have to copy it to OMVS to use 
SFTP for uploading it. I am not sure I have that space available on the other 
side, so I was wondering if anyone here has a BPX batch job that will send a 
file to CA or Broadcom from the z/OS file without having to first copy the file 
to my Unix filesystem.

I hope this is clear, and that someone can help me.

Thanks!
Billy


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

==
This email, and any files transmitted with it, is confidential and intended 
solely for the use of the individual or entity to which it is addressed. If you 
have received this email in error, please notify the system manager. This 
message contains confidential information and is intended only for the 
individual named. If you are not the named addressee, you should not 
disseminate, distribute or copy this e-mail. Please notify the sender 
immediately by e-mail if you have received this message by mistake and delete 
this e-mail from your system. If you are not the intended recipient, you are 
notified that disclosing, copying, distributing or taking any action in 
reliance on the contents of this information is strictly prohibited.

--
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: Anyone have SFTP JCL to share?

[Longnecker, Dennis]

Stuff is becoming such a pain.  I found in this situation it was much easier to 
FTP the file from the mainframe to my PC, and then to use FileZilla to sftp it 
up to Broadcom.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Ward, Mike S
Sent: Tuesday, April 20, 2021 12:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Anyone have SFTP JCL to share?




I believe SFTP is part of SSH, so you would have to install that. It's free 
from IBM. Then I believe Rocket Software has a freebee that allows you to use 
SFTP in batch with MVS datasets.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Billy Ashton
Sent: Wednesday, April 14, 2021 2:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXT] Anyone have SFTP JCL to share?

Please Note: This email is from an [EXTERNAL] sender. Do not click on links or 
attachments unless you expect them from the sender and know the content is 
safe. Please contact the Service Desk if you have any concerns regarding this 
message.



Hi everyone! I was just moved to support a CA product (I guess that's Broadcom 
now), and have to send in a sensitive file to one of my support cases. The file 
is pretty large, and the support tech said I have to copy it to OMVS to use 
SFTP for uploading it. I am not sure I have that space available on the other 
side, so I was wondering if anyone here has a BPX batch job that will send a 
file to CA or Broadcom from the z/OS file without having to first copy the file 
to my Unix filesystem.

I hope this is clear, and that someone can help me.

Thanks!
Billy


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

==
This email, and any files transmitted with it, is confidential and intended 
solely for the use of the individual or entity to which it is addressed. If you 
have received this email in error, please notify the system manager. This 
message contains confidential information and is intended only for the 
individual named. If you are not the named addressee, you should not 
disseminate, distribute or copy this e-mail. Please notify the sender 
immediately by e-mail if you have received this message by mistake and delete 
this e-mail from your system. If you are not the intended recipient, you are 
notified that disclosing, copying, distributing or taking any action in 
reliance on the contents of this information is strictly prohibited.

--
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: Anyone have SFTP JCL to share?

[Ward, Mike S]

I believe SFTP is part of SSH, so you would have to install that. It's free 
from IBM. Then I believe Rocket Software has a freebee that allows you to use 
SFTP in batch with MVS datasets. 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Billy Ashton
Sent: Wednesday, April 14, 2021 2:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXT] Anyone have SFTP JCL to share?

Please Note: This email is from an [EXTERNAL] sender. Do not click on links or 
attachments unless you expect them from the sender and know the content is 
safe. Please contact the Service Desk if you have any concerns regarding this 
message.



Hi everyone! I was just moved to support a CA product (I guess that's Broadcom 
now), and have to send in a sensitive file to one of my support cases. The file 
is pretty large, and the support tech said I have to copy it to OMVS to use 
SFTP for uploading it. I am not sure I have that space available on the other 
side, so I was wondering if anyone here has a BPX batch job that will send a 
file to CA or Broadcom from the z/OS file without having to first copy the file 
to my Unix filesystem.

I hope this is clear, and that someone can help me.

Thanks!
Billy


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

==
This email, and any files transmitted with it, is confidential and intended 
solely for the use of the individual or entity to which it is addressed. If you 
have received this email in error, please notify the system manager. This 
message contains confidential information and is intended only for the 
individual named. If you are not the named addressee, you should not 
disseminate, distribute or copy this e-mail. Please notify the sender 
immediately by e-mail if you have received this message by mistake and delete 
this e-mail from your system. If you are not the intended recipient, you are 
notified that disclosing, copying, distributing or taking any action in 
reliance on the contents of this information is strictly prohibited.

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

Re: Locating LE's CIB in CICS

[Bernd Oppolzer]

At my customer's site, there is an LE abend exit (written by programmers 
of my customer),
which gets control first when problems occur under LE control (much like 
ESPIE,
but for every LE interrupt). The abend exit has access to the CIB and 
the registers there
and can produce a readable (site specific) short error diagnose, which 
is much

more readable than the normal CEEDUMP.

I wrote the subroutine for this LE exit (in 2005) which does the 
reporting of the error,

but not the exit itself; this was done by an (intern) co-worker,
so I am not familiar with the details of the LE exit and its interfaces.
But the CIB is part of it.

Kind regards

Bernd


Am 20.04.2021 um 19:38 schrieb Steff Gladstone:

Greetings,

I would like to be able to locate, under CICS, the CIB representing the
original abend (ideally in the XPCTA GLUE exit) before LE intercepted it
and substituted its own 4038 user abend.   Not surprisingly, the CEE3CIB
callable routine abends on S0C4.

Anybody know how to do this?

All the best,
Steff Gladstone

--
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: Format PDS unloaded on an CD

[Michael Stein]

On Tue, Apr 20, 2021 at 01:35:08PM -0500, Paul Gilmartin wrote:
> On Tue, 20 Apr 2021 18:14:30 +, Seymour J Metz wrote:
> 
> >The sample I saw ...
> >
> Aw, gee.  Please include enough headers that readers can refer
> to it without a tedious search.  E.g. (I'm guessing):

Sorry about that.  The original message had "vertical" hex which I find
about impossible to read so I reformated it.

> Date: Mon, 19 Apr 2021 07:41:14 +0200
> SUBJECT: Re: Format PDS unloaded on an CD
> Message-ID: 
> 
> FROM: Hilario Garcia 
> 
> > ...included what looked like valid BDWs and RDWs. If it is not missing 
> > records then it should work with a DCB override.
> >
> A little more than that.  Reblocking according to the RDWs, then a
> DCB override.

There's no BDW/RDW in front of the start of the directory dump either:

0150:   0008 0100 c4c5 c6c1 c4c1 c340  ...@
0160: 00fe c1c4 c1c7 c4c5 c640  110f 0107  .@..
0170: 0009 0097 007f  046f 0834 0025 0024  .o.4.%.$
0180:  d7c4 4040 4040 4040 4040 c1c4 c1c7  
0190: e2c5 e340 000b 050f 0115 0057  046f  ...@...W...o

I think that the "  0008 0100" is a DASD CCHHRKDD where the 08
is the PDS directory key for this block and 0100 is the block length
and the next 8 bytes are the key for this directory block.

*If* the BDW/RDWs are all that's missing, likely the data from the iebcopy
unloaded files could be recovered with a bit of programming and using
the count field lengths.

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

Re: Format PDS unloaded on an CD

[Paul Gilmartin]

On Tue, 20 Apr 2021 18:14:30 +, Seymour J Metz wrote:

>The sample I saw ...
>
Aw, gee.  Please include enough headers that readers can refer
to it without a tedious search.  E.g. (I'm guessing):
Date: Mon, 19 Apr 2021 07:41:14 +0200
SUBJECT: Re: Format PDS unloaded on an CD
Message-ID: 
FROM: Hilario Garcia 

> ...included what looked like valid BDWs and RDWs. If it is not missing 
> records then it should work with a DCB override.
>
A little more than that.  Reblocking according to the RDWs, then a DCB override.

-- gil

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

Re: Format PDS unloaded on an CD

[Michael Stein]

On Tue, Apr 20, 2021 at 06:14:30PM +, Seymour J Metz wrote:
> The sample I saw included what looked like valid BDWs and RDWs. If it
> is not missing records then it should work with a DCB override.

I didn't see that -- I think they may be missing.  It starts:

: 00ca 6d0f 0200 18b0 0050 9000 0080 7ff8  ..m..P..
0010: 3030 200f  7ff8 2721 000f e5a2   00 .'!..
0020: 2252  0002 006b 00de  0080   "R.k
0030: 0100 0b07 6930  0100  ff00   i0..
0040: 8f00 8000 048b 80c8 58f4 4400  01af  X.D.
0050:  01af 000b 000c      
0060:          

But the ca6d0f at +1 should be at offset 9 counting the BDW/RDW.

 IEBCOPY unload format: 

 Figure 116. Contents of the COPYR1 Descriptor Record 

� 0   � 4  � Structure  � Block Descriptor Word  �
� ��� (BDW) for RECFM=VS �
� ��� data sets  �
� 4   � 4  � Structure  � Segment Descriptor �
� ��� Word (SDW) for �
� ��� RECFM=VS data sets �
� 8   � 1  � Bit Flags  � Unload Data set�
� ��� Information.
� 9   � 3  � Binary � The constant value �
� ��� X'CA6D0F'.

IEBCOPY dumps the DASD count files too though and they contain the
block length.

What else is mangled would take more data.

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

Re: Format PDS unloaded on an CD

[Seymour J Metz]

The sample I saw included what looked like valid BDWs and RDWs. If it is not 
missing records then it should work with a DCB override.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Peter Sylvester [peter.sylves...@gmail.com]
Sent: Tuesday, April 20, 2021 10:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Format PDS unloaded on an CD

Joe Monk seems  right with the déjà vu:

If you have an iebcopy unload file transferred (as binary), the outmost layer 
of the rdws an bdws
are simply gone.

On the PC, the data are simply concatenated. not was to retrieve the 
blocks/records usin ind$file.
Ok, so be it.

This is not a catastrophy.

Peter Farley gave a link

https://www.ibm.com/docs/en/zos/2.2.0?topic=format-introduction

That documentation describes the record formats for IEBCOPY unload datasets,

btw:

   - this doc is like the old french minitel services, a maximum number of 
small paragraphs, one per
page. And the examples are just images. well.

   - the dasdload command in hercules is also a good source of info.

Best

--
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: Locating LE's CIB in CICS

[Seymour J Metz]

Argh! Another overloaded acronym!

Have you checked the manuals at 
,
 especially

z/OS Language Environment Debugging Guide   GA32-0908-4013 Dec 2020
z/OS Language Environment Programming Reference SA38-0683-406 Apr 
2021
z/OS Language Environment Runtime Application Migration Guide   GA32-0912-40
29 Oct 2019
z/OS Language Environment Vendor Interfaces SA38-0688-4013 Dec 2020


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Steff Gladstone [steff.gladst...@gmail.com]
Sent: Tuesday, April 20, 2021 1:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Locating LE's CIB in CICS

Greetings,

I would like to be able to locate, under CICS, the CIB representing the
original abend (ideally in the XPCTA GLUE exit) before LE intercepted it
and substituted its own 4038 user abend.   Not surprisingly, the CEE3CIB
callable routine abends on S0C4.

Anybody know how to do this?

All the best,
Steff Gladstone

--
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: using same iteration of IHSAE001 on multiple systems within a sysplex

[wjanulin]

Dana, Ok, thank you again for your response.Bill J.Sent from my Galaxy
 Original message From: Dana Mitchell  
Date: 4/20/21  13:50  (GMT-05:00) To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 
using same iteration of IHSAE001 on multiple systems within a sysplex Bill,It 
should just follow standard JCL substitution rules,  quotes are needed if it 
contains embedded spaces, etc.DanaOn Tue, 20 Apr 2021 11:34:19 -0400, wjanulin 
 wrote:>Dana, Interesting, l.will check that out. Does the 
symbolic parameter on the DIR= statement for  need to be wrapped in 
quotes? The parameter was not being replaced with the actual directory name 
which is the same as the lpar name.Thank you for responding.Regards, Bill 
J.Sent from my 
Galaxy--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: Is there a vertical split in ISPF?

[Seymour J Metz]

Back when there was such a thing as WSA, I ran TSO/ISPF in batch to give myself 
separate sessions and used a different profile PDS for each.

The advantage of SPLIT/SPLITV over multiple sessions is that the splits share 
data with each other. What I'd really like is a "son of WSA" using SCTP to 
communicate with multiple windows or tabs. Maybe also stealing some ideas from 
CMS and XEDIT while they're at it.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Tuesday, April 20, 2021 12:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a vertical split in ISPF?

Whom were you quoting with the ">>"?

On Tue, 20 Apr 2021 06:38:53 -0500, John McKown wrote:
>>
>> I remember, long, long ago at a shop far, far away; that I allowed a TSO
>> user to log on multiple times by using IKJEFLD1 to suppress the issuing of
>> the standard ENQ. I don't recall how I handled the ISPF profiles so that
>>
I've accomplished this by allocating the profiles to temp DSNs.  The macro
was for distribution and I wished to avoid dependencies on personal profiles.

>> there weren't any problems. I guess, today, I could use a PDSe. Anyway,
>> using this & multiple sessions is how I would have the equivalent of VSPLIT
>> today.
>>
ISPF is PDSE-ignorant.  LMPUT requires SYSDSN ENQ EXC, failing to trust PDSE
serialization and precluding some use of LM services in multiple jobs.

OTOH, within a job LMPUT's design precludes using SPFEDIT ENQ serialization,
with risk of data corruption.

Has vertical split any advantage over multiple emulator instances (in the
UNIX tradition) or a single emulator instance (in the Mac/Windows tradition)?

If ISPF were to support multiple windows in a single session (not in any
future I foresee) the benefit might be variable pool sharing.

-- gil

--
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: using same iteration of IHSAE001 on multiple systems within a sysplex

[Dana Mitchell]

Bill,

It should just follow standard JCL substitution rules,  quotes are needed if it 
contains embedded spaces, etc.

Dana
On Tue, 20 Apr 2021 11:34:19 -0400, wjanulin  wrote:

>Dana, Interesting, l.will check that out. Does the symbolic parameter on the 
>DIR= statement for  need to be wrapped in quotes? The parameter was 
>not being replaced with the actual directory name which is the same as the 
>lpar name.Thank you for responding.Regards, Bill J.Sent from my Galaxy

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

Locating LE's CIB in CICS

[Steff Gladstone]

Greetings,

I would like to be able to locate, under CICS, the CIB representing the
original abend (ideally in the XPCTA GLUE exit) before LE intercepted it
and substituted its own 4038 user abend.   Not surprisingly, the CEE3CIB
callable routine abends on S0C4.

Anybody know how to do this?

All the best,
Steff Gladstone

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

Re: IBM Encryption Facility for OpenPGP

[Paul Gilmartin]

On Tue, 20 Apr 2021 16:44:04 +0800, Timothy Sipples wrote:
>
>I suggest trying the Java-based IBM Encryption Facility Client first. If 
>IBM's client works then you have probably ruled out several possible 
>problems such as file transfer-related problems. You can download IBM's 
>client here (current link, subject to change):
>
>https://www.ibm.com/servers/resourcelink/svc00100.nsf/pages/ibmEncryptionFacilityForZOsClientV12?OpenDocument
>
I downloaded and extracted this.  In the README I see:
2) Compile the source by issuing the command "javac 
com/ibm/encryptionfacility/*.java"
   within the root directory that the zip file was extracted to.

Why is this not distributed as portable byte code?

-- gil

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

Re: Is there a vertical split in ISPF?

[Paul Gilmartin]

Whom were you quoting with the ">>"?

On Tue, 20 Apr 2021 06:38:53 -0500, John McKown wrote:
>>
>> I remember, long, long ago at a shop far, far away; that I allowed a TSO
>> user to log on multiple times by using IKJEFLD1 to suppress the issuing of
>> the standard ENQ. I don't recall how I handled the ISPF profiles so that
>>
I've accomplished this by allocating the profiles to temp DSNs.  The macro
was for distribution and I wished to avoid dependencies on personal profiles.

>> there weren't any problems. I guess, today, I could use a PDSe. Anyway,
>> using this & multiple sessions is how I would have the equivalent of VSPLIT
>> today.
>>
ISPF is PDSE-ignorant.  LMPUT requires SYSDSN ENQ EXC, failing to trust PDSE
serialization and precluding some use of LM services in multiple jobs.

OTOH, within a job LMPUT's design precludes using SPFEDIT ENQ serialization,
with risk of data corruption.

Has vertical split any advantage over multiple emulator instances (in the
UNIX tradition) or a single emulator instance (in the Mac/Windows tradition)?

If ISPF were to support multiple windows in a single session (not in any
future I foresee) the benefit might be variable pool sharing.

-- gil

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

Re: IBM Encryption Facility for OpenPGP

[Beesley, Paul]

Thanks Peter, and to others who have replied.

I'm confused though and am seeing conflicting information. In the Encryption 
Facility OpenPGP manual it says:

Two kinds of session key encryption are available to OpenPGP:
Public-key encryption, which creates a public-key encrypted session key packet 
using the public key of the recipient to encrypt the data; only the recipient 
can decrypt this data with the corresponding private key.
Passphrase-based encryption (PBE), which creates a symmetric-key encrypted 
session key packet using a passphrase (like a “password”) to encrypt the data; 
only this password can be used to decrypt the data.

Suggesting that our plan to encrypt using just a pass phrase rather than keys 
is viable...
Can anybody who knows the product clarify this?


Best Regards
Paul

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Peter Vander Woude
Sent: 20 April 2021 14:20
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IBM Encryption Facility for OpenPGP

Caution! External email. Do not open attachments or click links, unless this 
email comes from a known sender and you know the content is safe.

Paul,

In the normal pgp encryption processing, you encrypt the file using the public 
key of the target system/vendor.  There should be no need to use the 
passphrase, when encrypting a file to send to someone...

The passphrase used on the other side would be so that they can get access to 
the private part of the pgp key, which is the only thing that can decrypt the 
file.

Peter

On Mon, 19 Apr 2021 10:52:17 +, Beesley, Paul  wrote:

>Hi
>
>Does anyone use IBM Encryption Facility for OpenPGP (FMID HCF7740), 
>specifically to encrypt files on z/OS and decrypt them on Windows or Linux?
>
>I can successfully encrypt a file using a PassPhrase (not keys) and can 
>decrypt it on another mainframe system.
>However, if I send the encrypted file to another platform I cannot decrypt it. 
>It detects that I've used a passphrase, and AES_256, but will not accept the 
>PassPhrase.
>
>This is what I get on Windows:
>C:\Users\xxx\Downloads>gpg -o D2021109.TEST3.TXT --decrypt
>D2021109.TEST3.ENC
>gpg: AES256.CFB encrypted session key
>gpg: encrypted with 1 passphrase
>gpg: decryption failed: Bad session key
>
>On Linux it's similar but the message is
>gpg: decryption failed: no secret key
>
>Any help welcome. I do have a PMR open with IBM, but every little helps...
>
>Paul
>
>Atos is a trading name used by the Atos group. The trading entity is 
>registered in England and Wales: Atos IT Services UK Limited (registered 
>number 01245534). The registered office is located at: Second Floor, MidCity 
>Place, 71 High Holborn, London, WC1V 6EA. The VAT No. is: GB232327983.
>
>This e-mail and the documents attached are confidential and intended solely 
>for the addressee and may contain confidential or privileged information. If 
>you receive this e-mail in error, you are not authorised to copy, disclose, 
>use or retain it. Please notify the sender immediately and delete this email 
>from your systems. As emails may be intercepted, amended or lost, they are not 
>secure. Atos therefore can accept no liability for any errors or their 
>content. Although Atos endeavours to maintain a virus-free network, we do not 
>warrant that this transmission is virus-free and can accept no liability for 
>any damages resulting from any virus transmitted. The risks are deemed to be 
>accepted by everyone who communicates with Atos by email.
>
>--
>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
Atos is a trading name used by the Atos group. The trading entity is registered 
in England and Wales: Atos IT Services UK Limited (registered number 01245534). 
The registered office is located at: Second Floor, MidCity Place, 71 High 
Holborn, London, WC1V 6EA. The VAT No. is: GB232327983.

This e-mail and the documents attached are confidential and intended solely for 
the addressee and may contain confidential or privileged information. If you 
receive this e-mail in error, you are not authorised to copy, disclose, use or 
retain it. Please notify the sender immediately and delete this email from your 
systems. As emails may be intercepted, amended or lost, they are not secure. 
Atos therefore can accept no liability for any errors or their content. 
Although Atos endeavours to maintain a virus-free network, we do not warrant 
that this transmission is virus-free and can accept no liability for any 
damages resulting from any virus transmitted. The risks are deemed to be 
accepted by everyone who communicates with Atos by email.

Re: Format PDS unloaded on an CD

[Paul Gilmartin]

On Tue, 20 Apr 2021 16:58:32 +0200, Peter Sylvester wrote:

>Joe Monk seems  right with the déjà vu:
>
>If you have an iebcopy unload file transferred (as binary), the outmost layer 
>of the rdws an bdws 
>are simply gone.
> 
I have been able to preserve them by overriding with //SYSUT1 DD DCB=RECFM=U.

>On the PC, the data are simply concatenated. not was to retrieve the 
>blocks/records usin ind$file. 
>Ok, so be it.
>
>This is not a catastrophy.
>
It's a catastrophe unless thee block structure can be reconstructed.

Is it known that the creator of the archive ever restored it?  I've known
programmers who created backups and never tested the restore process.

>Peter Farley gave a link
>
>    https://www.ibm.com/docs/en/zos/2.2.0?topic=format-introduction
>
>That documentation describes the record formats for IEBCOPY unload datasets,
>
>btw:
>
>   - this doc is like the old french minitel services, a maximum number of 
> small paragraphs, one per 
>page. And the examples are just images. well.
>
>   - the dasdload command in hercules is also a good source of info.

-- gil

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

Re: using same iteration of IHSAE001 on multiple systems within a sysplex

[wjanulin]

Dana, Interesting, l.will check that out. Does the symbolic parameter on the 
DIR= statement for  need to be wrapped in quotes? The parameter was not 
being replaced with the actual directory name which is the same as the lpar 
name.Thank you for responding.Regards, Bill J.Sent from my Galaxy
 Original message From: Dana Mitchell  
Date: 4/20/21  11:05  (GMT-05:00) To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 
using same iteration of IHSAE001 on multiple systems within a sysplex Yes, as 
long as the JOBCLASS(x) definition in JES2 specifies SYSSYM=ALLOWOn Tue, 20 Apr 
2021 13:55:55 +, william janulin  wrote:>To list;>  
Question, is it possible to use a symbolic parameter to identify the install 
directoryon the DIR= parameter in the PROC statement?>The plex I am working 
with has a shared sys1.proclib and, if possible, I am tryingto avoid having 
different procs, one for each lpar, if I can use just one and just refer to 
theinstall directory id  which is the sysname using a symbolic parameter.>Thank 
you in advance, Bill 
J.--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: Format PDS unloaded on an CD

[Peter Sylvester]

Joe Monk seems  right with the déjà vu:

If you have an iebcopy unload file transferred (as binary), the outmost layer of the rdws an bdws 
are simply gone.


On the PC, the data are simply concatenated. not was to retrieve the blocks/records usin ind$file. 
Ok, so be it.


This is not a catastrophy.

Peter Farley gave a link

   https://www.ibm.com/docs/en/zos/2.2.0?topic=format-introduction

That documentation describes the record formats for IEBCOPY unload datasets,

btw:

  - this doc is like the old french minitel services, a maximum number of small paragraphs, one per 
page. And the examples are just images. well.


  - the dasdload command in hercules is also a good source of info.

Best

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

Re: using same iteration of IHSAE001 on multiple systems within a sysplex

[Dana Mitchell]

Yes, as long as the JOBCLASS(x) definition in JES2 specifies SYSSYM=ALLOW

On Tue, 20 Apr 2021 13:55:55 +, william janulin  wrote:

>To list;
>  Question, is it possible to use a symbolic parameter to identify the install 
>directoryon the DIR= parameter in the PROC statement?
>The plex I am working with has a shared sys1.proclib and, if possible, I am 
>tryingto avoid having different procs, one for each lpar, if I can use just 
>one and just refer to theinstall directory id  which is the sysname using a 
>symbolic parameter.
>Thank you in advance, Bill J.

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

Re: Anyone have SFTP JCL to share?

[Kirk Wolf]

Here's an example using Co:Z SFTP:

//SFTPCONN EXEC PROC=SFTPPROC
//SFTPIN DD *
user=myuser
host=myhost.myco.com
lzopts="mode=text"
rfile="/app/data/remotefile.txt"

. $script_dir/sftp_connect.sh  Co:Z can be used free subject to the terms of our Community License.  
Enterprise License and Support agreements are also available.
See:https://dovetail.com/support.html

On 4/14/21 2:12 PM, Billy Ashton wrote:
Hi everyone! I was just moved to support a CA product (I guess that's 
Broadcom now), and have to send in a sensitive file to one of my 
support cases. The file is pretty large, and the support tech said I 
have to copy it to OMVS to use SFTP for uploading it. I am not sure I 
have that space available on the other side, so I was wondering if 
anyone here has a BPX batch job that will send a file to CA or 
Broadcom from the z/OS file without having to first copy the file to 
my Unix filesystem.


I hope this is clear, and that someone can help me.

Thanks!
Billy


--
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

using same iteration of IHSAE001 on multiple systems within a sysplex

[william janulin]

To list;
  Question, is it possible to use a symbolic parameter to identify the install 
directoryon the DIR= parameter in the PROC statement?
The plex I am working with has a shared sys1.proclib and, if possible, I am 
tryingto avoid having different procs, one for each lpar, if I can use just one 
and just refer to theinstall directory id  which is the sysname using a 
symbolic parameter.
Thank you in advance, Bill J.

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

Re: Format PDS unloaded on an CD

[Paul Gilmartin]

On Tue, 20 Apr 2021 13:20:49 +, Seymour J Metz wrote:

>It looked like there were intact BDWs and RDWs. Does anybody have a link for 
>the IEBCOPY unload format?
> 
Why bother?  Just reconstruct the block structure and reload it with IEBCOPY.

>If there was translation then all bets are off. If they were binary transfers 
>then CR, LF and NL should not be issues.
>
>Recovering load libraries requires recovering directory data, not just the 
>member itself.
> 
IEBCOPY does that, too.

--gil

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

Re: Format PDS unloaded on an CD

[Seymour J Metz]

It looked like there were intact BDWs and RDWs. Does anybody have a link for 
the IEBCOPY unload format?

If there was translation then all bets are off. If they were binary transfers 
then CR, LF and NL should not be issues.

Recovering load libraries requires recovering directory data, not just the 
member itself.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Michael Stein [m...@zlvfc.com]
Sent: Tuesday, April 20, 2021 8:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Format PDS unloaded on an CD

On Tue, Apr 20, 2021 at 04:59:19AM -0700, Hilario Garcia wrote:
> Hi Mike, Thank you very much for the information that you have sent me to
> be able to recover files (mostly PDS) but there are also data files and PDS
> LOADLIB. I'm going to get to work on it as you have indicated. The work is
> very laborious and there are about 30 files with an undetermined number of
> members, in addition to some files with data. I suppose that there is no
> other way to recover the data since the format and the method in which it
> was downloaded from Z / OS is unknown.

The format for the PDS you supplied is known, it's iebcopy unload format.

How much it's mangled isn't clear, it would take looking at more of the
file (and/or other files) to see.  It's likely all the PDS source FB
files could be recovered as they are unlikely to have binary data which
would typically get mangled in them.

It's certainly possible that any binary data isn't recoverable like load
module libraries or raw binary data.

Even FB source data can have a surprise or two.  I've seen a "not" sign
get translated on download into a UTF-8 "not" sign -- this made the 80
byte record longer than 80...

--
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: IBM Encryption Facility for OpenPGP

[Peter Vander Woude]

Paul,

In the normal pgp encryption processing, you encrypt the file using the public 
key of the target system/vendor.  There should be no need to use the 
passphrase, when encrypting a file to send to someone...  

The passphrase used on the other side would be so that they can get access to 
the private part of the pgp key, which is the only thing that can decrypt the 
file.

Peter

On Mon, 19 Apr 2021 10:52:17 +, Beesley, Paul  wrote:

>Hi
>
>Does anyone use IBM Encryption Facility for OpenPGP (FMID HCF7740), 
>specifically to encrypt files on z/OS and decrypt them on Windows or Linux?
>
>I can successfully encrypt a file using a PassPhrase (not keys) and can 
>decrypt it on another mainframe system.
>However, if I send the encrypted file to another platform I cannot decrypt it. 
>It detects that I've used a passphrase, and AES_256, but will not accept the 
>PassPhrase.
>
>This is what I get on Windows:
>C:\Users\xxx\Downloads>gpg -o D2021109.TEST3.TXT --decrypt 
>D2021109.TEST3.ENC
>gpg: AES256.CFB encrypted session key
>gpg: encrypted with 1 passphrase
>gpg: decryption failed: Bad session key
>
>On Linux it's similar but the message is
>gpg: decryption failed: no secret key
>
>Any help welcome. I do have a PMR open with IBM, but every little helps...
>
>Paul
>
>Atos is a trading name used by the Atos group. The trading entity is 
>registered in England and Wales: Atos IT Services UK Limited (registered 
>number 01245534). The registered office is located at: Second Floor, MidCity 
>Place, 71 High Holborn, London, WC1V 6EA. The VAT No. is: GB232327983.
>
>This e-mail and the documents attached are confidential and intended solely 
>for the addressee and may contain confidential or privileged information. If 
>you receive this e-mail in error, you are not authorised to copy, disclose, 
>use or retain it. Please notify the sender immediately and delete this email 
>from your systems. As emails may be intercepted, amended or lost, they are not 
>secure. Atos therefore can accept no liability for any errors or their 
>content. Although Atos endeavours to maintain a virus-free network, we do not 
>warrant that this transmission is virus-free and can accept no liability for 
>any damages resulting from any virus transmitted. The risks are deemed to be 
>accepted by everyone who communicates with Atos by email.
>
>--
>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: Print a SYSMDUMP

[Seymour J Metz]

SYSMDUMP is for unformatted dumps; why would you expect usable results if you 
direct it to a printer? FWIW, you'll also get errors if you use SYSUDUMP as 
input to IPCS or AMDPRDMP.

Carve the bird at the joints.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
John [n8jucinb...@gmail.com]
Sent: Tuesday, April 20, 2021 8:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Print a SYSMDUMP

Recent experience shows SYSMDUMP DD SYSOUT=* produces unprintable nonsense

However if you're using a LE based language VERBX LEDATA ALL produces a
viable, readable dump.

Check the options for LEDATA some are more applicable to certain
languages than others.

--
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

Print a SYSMDUMP

[John]

Recent experience shows SYSMDUMP DD SYSOUT=* produces unprintable nonsense

However if you're using a LE based language VERBX LEDATA ALL produces a 
viable, readable dump.


Check the options for LEDATA some are more applicable to certain 
languages than others.


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

Re: Format PDS unloaded on an CD

[Mike Schwab]

Well, the LOADLIB members are going to be U 32760 (or less) for a
library.  Not sure if the PDS reload via IEBUPDTE will work.

Data files should reload with records broken every LRECL, unless they
have Varible length fields with a 2 byte binary count ahead of the
data.  They are greatly helped by being a PS files and not a bunch of
PDS members in one file.

On Tue, Apr 20, 2021 at 6:59 AM Hilario Garcia  wrote:
>
> 554 / 5000
> Resultados de traducción
> Hi Mike, Thank you very much for the information that you have sent me to
> be able to recover files (mostly PDS) but there are also data files and PDS
> LOADLIB. I'm going to get to work on it as you have indicated. The work is
> very laborious and there are about 30 files with an undetermined number of
> members, in addition to some files with data. I suppose that there is no
> other way to recover the data since the format and the method in which it
> was downloaded from Z / OS is unknown. Thank you very much in advance. Kind
> Regards Hilario
>
> El mar, 20 abr 2021 a las 6:20, Mike Schwab ()
> escribió:
>
> > On Mon, Apr 19, 2021 at 7:23 AM Joe Monk  wrote:
> >
> > >
> > > So,  now  you know what  you  have. An ISPF panel library, that was
> > > unloaded via  IEBCOPY, then IND$FILE to a PC without  specifying  CRLF
> > then
> > > back to the mainframe.
> > >
> > > Joe
> > >
> > Well, since this is going to be a text only, FB 80 PDS(e) file, open
> > with a text editor such as NOTEPAD, NOTEPAD++, WORD, etc..
> > Save as to a new name as plain text with TXT suffix so you don't lose
> > the original file.
> > Copy this job to the top down to the ./ ADD command.
> >
> > https://www.ibm.com/docs/en/zos/2.4.0?topic=examples-example-1-place-two-procedures-in-sys1proclib#u1438
> > Select and delete a block of non- text data, hope you see a text name
> > to put in a line  with ./ ADD NAME=, use AA001 if you don't find the
> > name.
> > G through the text and insert line splits as needed.  Some lines need
> > leading blanks.
> > When you get to the next block of non-text, you highlight and delete
> > the non text, and put in the ./ ADD NAME= with the name or AA002 if
> > not found.
> > Repeat to the end of the file.
> > Put in the ./ ENDUP card and save final results.
> > Upload to to MVS / z/OS with ASCII CFLF. FB 80 3120.
> > Create PDS with FB 80 and twice the space of the upload with directory
> > space, put name in JCL.
> > Copy in a site specific jobcard to the top and run to create a PDS
> > with the names you saved or AA001-AA999.
> > You will have to review to figure out the member names if you didn't
> > find it in the PDS unload text.
> >
> > --
> > 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



-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

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

Re: Format PDS unloaded on an CD

[Michael Stein]

On Tue, Apr 20, 2021 at 04:59:19AM -0700, Hilario Garcia wrote:
> Hi Mike, Thank you very much for the information that you have sent me to
> be able to recover files (mostly PDS) but there are also data files and PDS
> LOADLIB. I'm going to get to work on it as you have indicated. The work is
> very laborious and there are about 30 files with an undetermined number of
> members, in addition to some files with data. I suppose that there is no
> other way to recover the data since the format and the method in which it
> was downloaded from Z / OS is unknown. 

The format for the PDS you supplied is known, it's iebcopy unload format.

How much it's mangled isn't clear, it would take looking at more of the
file (and/or other files) to see.  It's likely all the PDS source FB
files could be recovered as they are unlikely to have binary data which
would typically get mangled in them.

It's certainly possible that any binary data isn't recoverable like load
module libraries or raw binary data.

Even FB source data can have a surprise or two.  I've seen a "not" sign
get translated on download into a UTF-8 "not" sign -- this made the 80
byte record longer than 80...

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

Re: Print a SYSMDUMP

[Seymour J Metz]

AMDPRDMP, originally IMDPRDMP in OS/360. After IPCS, there was a lot of new 
code shared between IPCS and AMDPRDMP.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of CM 
Poncelet [ponce...@bcs.org.uk]
Sent: Monday, April 19, 2021 11:41 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Print a SYSMDUMP

FWIW

Pre-IPCS, there was a TSO batch program to format SYSMDUMPs. I can't
remember precisely, but perhaps it was called something like AMSPRDMP or
similar.

With IPCS, there are lots of pre-written IPCS REXX execs available
somewhere (if memory serves, they begin with BLS*) and they can be
invoked to do most of the standard SYSMDUMP analyses.

I preferred to write my own REXX execs to do that - and I would
recommend that IPCS users likewise write their own execs.

Here is an example of some IPCS REXX (in this case for a CICS dump). HTH.

/*-REXX--*/
/* IPCS CLIST TO EXTRACT THE ADDRESSES OF A CICS REGION'S SYSTEM */
/* TCA'S (STCA), FROM AN SVC DUMP, THEN REPEATEDLY FOR EACH STCA,*/
/* INVOKE %ONLCZDWE PASSING THE STCA AS ARGUMENT.*/
/*   */
/* INVOKES %ONLCZDWE */
/* ¯ */
/* INPUT:  NONE: IS INVOKED AS A COMMAND, FROM WITHIN IPCS, AND  */
/* ¯¯IT THEN ANALYSES THE DUMP CURRENTLY ALLOCATED   */
/*   */
/* OUTPUT: ADDRESS OF ACTIVE + SUSPENDED TASKS' SYSTEM TCA'S */
/* ¯¯¯ FOR EACH SYSTEM TCA, OUTPUTS: */
/* - TRANSID */
/* - ASSOCIATED PROGRAM ID   */
/* - USERID  */
/* - TERMID  */
/* - DISPATCH CONTROL INDICATOR STATUS   */
/* - TASK NUMBER */
/* - DEFERRED WORK ELEMENT LIST  */
/* - QUEUE ELEMENT LIST  */
/*   */
/*   */
/* 06/01/95 CORRECTION TO ACTIVE/SUSPENDED TASK CHAINING */
/* 26/08/94 CHRIS PONCELET   */
/*---*/

ADDRESS IPCS

PSA_ADDRESS = ''
"EVALUATE" PSA_ADDRESS||. ,
  "POSITION("X2D(224)") LENGTH(4) REXX(STORAGE(OLD_ASCB_ADDRESS))"
"EVALUATE" OLD_ASCB_ADDRESS||. ,
  "POSITION("X2D(6C)") LENGTH(4) REXX(STORAGE(OLD_ASXB_ADDRESS))"
"EVALUATE" OLD_ASXB_ADDRESS||. ,
  "POSITION("X2D(4)") LENGTH(4) REXX(STORAGE(TCB_CHAIN_START_ADDRESS))"
"EVALUATE" OLD_ASXB_ADDRESS||. ,
  "POSITION("X2D(8)") LENGTH(4) REXX(STORAGE(TCB_CHAIN_STOP_ADDRESS))"

FIND_CICS_TCB:
FOUND = 'NO'
STOP  = 'NO'
TCB_CHAIN_NEXT_ADDRESS = TCB_CHAIN_START_ADDRESS
X_E0 = C2X('E0'X)
X_00 = C2X('00'X)
X_40 = C2X('40'X)
X_60 = C2X('60'X)
X_80 = C2X('80'X)
X_C0 = C2X('C0'X)
DFHSIP = C2X('DFHSIP  ')

/* FOR EACH TCB, SEARCH FOR ALL RB'S */
DO WHILE (FOUND = 'NO') & (STOP = 'NO')
  IF TCB_CHAIN_NEXT_ADDRESS = TCB_CHAIN_STOP_ADDRESS THEN ,
STOP = 'YEAH'
  "EVALUATE" TCB_CHAIN_NEXT_ADDRESS||. ,
"POSITION(0) LENGTH(4) REXX(STORAGE(RB_ADDRESS))"

/* FOR EACH RB: FIND PRB, IF ANY, AND CHECK WHETHER ASSOCIATED   */
/*  PROGRAM IS DFHSIP*/
  PRB_ADDRESS  = 0
  IRB_ADDRESS  = 0
  TIRB_ADDRESS = 0
  SIRB_ADDRESS = 0
  SVRB_ADDRESS = 0
  DO K = 0 TO 999 WHILE (RB_ADDRESS ¬= TCB_CHAIN_NEXT_ADDRESS)
LINK_ADDRESS.K  = RB_ADDRESS
"EVALUATE" RB_ADDRESS||. ,
  "POSITION("X2D(0A)") LENGTH(1) REXX(STORAGE(RBSTAB1))"
RB_TYPE_VAL = C2X(BITAND(X2C(X_E0),X2C(RBSTAB1)))

SELECT;
  WHEN RB_TYPE_VAL = X_00  THEN DO   /* PRB  */
LINK_RB.K   = 'PRB'
"EVALUATE" RB_ADDRESS||. ,
  "POSITION("X2D(0C)") LENGTH(4) REXX(STORAGE(CDE_ADDRESS))"
"EVALUATE" CDE_ADDRESS||. ,
  "POSITION("X2D(08)") LENGTH(8) REXX(STORAGE(PROGRAM_NAME))"
IF PROGRAM_NAME = DFHSIP THEN FOUND = 'YEAH'
END
  WHEN RB_TYPE_VAL = X_40 THEN , /* IRB  */
LINK_RB.K   = 'IRB'
  WHEN RB_TYPE_VAL = X_60 THEN , /* TIRB */
LINK_RB.K   = 'TIRB'
  WHEN RB_TYPE_VAL = X_80 THEN , /* SIRB */
LINK_RB.K   = 'SIRB'
  WHEN RB_TYPE_VAL = X_C0 THEN , /* SVRB */
LINK_RB.K   = 'SVRB'
  OTHERWISE DO
LINK_RB.K   = 'EH??'
SAY 'UNKNOWN RB AT ADDRESS =' RB_ADDRESS
SAY 

Re: Is there a vertical split in ISPF?

[Seymour J Metz]

In the sense that a hammer is a substitute for a screwdriver. session managers 
like TPX don't do what SPLIT/SPLITV do; each has its role, and they work very 
nicely together.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
kekronbekron [02dee3fcae33-dmarc-requ...@listserv.ua.edu]
Sent: Tuesday, April 20, 2021 2:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a vertical split in ISPF?

Having multiple sessions going on in a single terminal window, as split 
terminals/panes is all the rage these days.

I suppose it can be thought of as an alternate to using TPX/Tubes and jumping 
b/w sessions in the same window.
Instead, one can have a session on the left and another session on the right, 
'in a single window'.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Format PDS unloaded on an CD

[Hilario Garcia]

554 / 5000
Resultados de traducción
Hi Mike, Thank you very much for the information that you have sent me to
be able to recover files (mostly PDS) but there are also data files and PDS
LOADLIB. I'm going to get to work on it as you have indicated. The work is
very laborious and there are about 30 files with an undetermined number of
members, in addition to some files with data. I suppose that there is no
other way to recover the data since the format and the method in which it
was downloaded from Z / OS is unknown. Thank you very much in advance. Kind
Regards Hilario

El mar, 20 abr 2021 a las 6:20, Mike Schwab ()
escribió:

> On Mon, Apr 19, 2021 at 7:23 AM Joe Monk  wrote:
>
> >
> > So,  now  you know what  you  have. An ISPF panel library, that was
> > unloaded via  IEBCOPY, then IND$FILE to a PC without  specifying  CRLF
> then
> > back to the mainframe.
> >
> > Joe
> >
> Well, since this is going to be a text only, FB 80 PDS(e) file, open
> with a text editor such as NOTEPAD, NOTEPAD++, WORD, etc..
> Save as to a new name as plain text with TXT suffix so you don't lose
> the original file.
> Copy this job to the top down to the ./ ADD command.
>
> https://www.ibm.com/docs/en/zos/2.4.0?topic=examples-example-1-place-two-procedures-in-sys1proclib#u1438
> Select and delete a block of non- text data, hope you see a text name
> to put in a line  with ./ ADD NAME=, use AA001 if you don't find the
> name.
> G through the text and insert line splits as needed.  Some lines need
> leading blanks.
> When you get to the next block of non-text, you highlight and delete
> the non text, and put in the ./ ADD NAME= with the name or AA002 if
> not found.
> Repeat to the end of the file.
> Put in the ./ ENDUP card and save final results.
> Upload to to MVS / z/OS with ASCII CFLF. FB 80 3120.
> Create PDS with FB 80 and twice the space of the upload with directory
> space, put name in JCL.
> Copy in a site specific jobcard to the top and run to create a PDS
> with the names you saved or AA001-AA999.
> You will have to review to figure out the member names if you didn't
> find it in the PDS unload text.
>
> --
> 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: Is there a vertical split in ISPF?

[John McKown]

>
> I remember, long, long ago at a shop far, far away; that I allowed a TSO
> user to log on multiple times by using IKJEFLD1 to suppress the issuing of
> the standard ENQ. I don't recall how I handled the ISPF profiles so that
> there weren't any problems. I guess, today, I could use a PDSe. Anyway,
> using this & multiple sessions is how I would have the equivalent of VSPLIT
> today.
>

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

Re: IBM Encryption Facility for OpenPGP

[Timothy Sipples]

Paul,

I suggest trying the Java-based IBM Encryption Facility Client first. If 
IBM's client works then you have probably ruled out several possible 
problems such as file transfer-related problems. You can download IBM's 
client here (current link, subject to change):

https://www.ibm.com/servers/resourcelink/svc00100.nsf/pages/ibmEncryptionFacilityForZOsClientV12?OpenDocument

- - - - - - - - - -
Timothy Sipples
I.T. Architect Executive
Digital Asset & Other Industry Solutions
IBM Z & LinuxONE
- - - - - - - - - -
E-Mail: sipp...@sg.ibm.com

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

Re: Is there a vertical split in ISPF?

[kekronbekron]

Having multiple sessions going on in a single terminal window, as split 
terminals/panes is all the rage these days.

I suppose it can be thought of as an alternate to using TPX/Tubes and jumping 
b/w sessions in the same window.
Instead, one can have a session on the left and another session on the right, 
'in a single window'.

Split panes - https://docs.microsoft.com/en-us/windows/terminal/

- KB

‐‐‐ Original Message ‐‐‐
On Tuesday, April 20, 2021 9:30 AM, Tom Brennan  
wrote:

> Thanks for the mention, and while I think it's possible, my own opinion
> (sorry) is that partitions should be left as historical artifacts.
> Sooner or later though, I bet someone will add that support to an
> open-source emulator. Maybe someone here - someone who can work with C
> code and can understand the partition chapter in the 3270 data stream
> manual (I could not).
>
>  Original Message 
> Subject: Re: Is there a vertical split in ISPF?
> From: "PINION, RICHARD W." rpin...@firsthorizon.com
> Date: Mon, April 19, 2021 11:21 am
> To: IBM-MAIN@LISTSERV.UA.EDU
>
> I wonder if it would be possible for Tom Brennen to add support for a
> 3290 device?
> I wonder if ISPF SPLITV, 3290, and TN3270E are even a possibility, as
> the 3290/3x74
> combination was a SNA thing??? I have no idea, as I can't even spell
> VTAM, SNA,
> or TN3270E.
>
> -Original Message-
> From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On Behalf
> Of David Cole
> Sent: Monday, April 19, 2021 2:04 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Is there a vertical split in ISPF?
>
> [External Email. Exercise caution when clicking links or opening
> attachments.]
>
> PCOMM would have to support the "3290" terminal type. I don't use PCOMM,
> so I don't actually know if it does or not, but I would be amazed if it
> did.
>
> Anyway, as someone else noted, SPLITV is supported in ISPF only for
> "3290" types, so the answer to your question would be No. It can't be
> done.
>
> Dave Cole
>
> At 4/18/2021 12:10 AM, kekronbekron wrote:
>
> > Would you mind showing us an example of how to set this up with pcomm,
> > for example?
> >
> > -   KB
>
> --
>
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> Confidentiality notice:
> This e-mail message, including any attachments, may contain legally
> privileged and/or confidential information. If you are not the intended
> recipient(s), or the employee or agent responsible for delivery of this
> message to the intended recipient(s), you are hereby notified that any
> dissemination, distribution, or copying of this e-mail message is
> strictly prohibited. If you have received this message in error, please
> immediately notify the sender and delete this e-mail message from your
> computer.
>
> -
>
> 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

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