Re: Time difference in operating system

[Joel C. Ewing]

On 07/05/2018 10:14 AM, R.S. wrote:
> W dniu 2018-07-05 o 09:36, Jake Anderson pisze:
>> Hi
>>
>> I understand that the operating system timing takes from HMC.
>>
>> Still we find a few seconds of difference in Operating system.
>>
>> Does it takes time to percolate and get in sync ?
>
> Your assumption is not true.
> If you don't have STP, your time is just set by operator command. For
> STP enablement *and* NTP connection you time is set (during POR) by
> SE/HMC and synchronized with external time source.
>
Perhaps things have changed in the last several years, but it used to be
that without an STP the Processor TOD clock was still  set from the HMC
clock at a POR, and the LPAR "virtual" TOD clock was then initialized
from the processor TOD clock when the LPAR was activated.  Depending on
CLOCKnn PARMLIB member, the Operator might have an option to adjust the
clock at IPL and that would also change the LPAR TOD clock.  Changing
the local clock time after z/OS is initialized only changes the offset
of local time from the LPAR TOD clock, not the LPAR TOD clock itself. 

In practice, we always reset the HMC clock as close to real time as
possible before a planned POR and never needed to fine-tune the clock
value from the z/OS console unless we were doing a DR exercise for a
different date/time than real time.  All LPAR TOD clocks increment in
sync, but if two LPARs on the same processor had their LPAR TOD clocks
set manually to slightly different times at IPL rather than being
controlled by an STP, they would continue to have the same offset
indefinitely.  The dynamic correction of TOD times only occurs when an
STP is in control of the LPAR TOD clocks.   Changes to the HMC clock
after POR and LPAR activation have no effect on LPAR TOD values..
    Joel C. Ewing

-- 
Joel C. Ewing,Bentonville, AR   jcew...@acm.org 

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

Sysplex between two hardware

[Peter]

Hi

We are looking up for a solution where we need a LPAR to have a hot standby
in other LPAR running in a different machine .

As we are trying to create a sysplex relationship between two LPARS running
in a different machines .

Apology for my ignorance and is it possible ?

Peter

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

The Tandem successors are now with HPE was Re: SUSE splits from Microfocus

[Clark Morris]

[Default] On 5 Jul 2018 13:37:11 -0700, in bit.listserv.ibm-main
wayn...@gmail.com (Wayne Bickerdike) wrote:

>DEC completely forgotten?
>
>I once read that HP was a printer company masquerading as a computer
>company.

The Tandem series successors are now on Intel Xeon or Itanium chips
depending on the line and with HPE as of today, July 5, 2018.  There
is a COBOL 85 standard compiler for it and the manual is online.  I'm
surprised that HPE/non-stop hasn't gotten a larger market share.

Clark Morris
>
>At least IBM have stuck with the mainframe. HP have buried their
>technological history.
>
>On Fri, Jul 6, 2018 at 3:41 AM, Seymour J Metz  wrote:
>
>> In the beginning was Compaq, and HP was know for its excellent printers.
>> Then the printers went downhill and there was Hewlett PacPaq, although not
>> by that name. Wheile HP borged EDS, Dell borged Perot Systems. Oh, and TI
>> was somewhere in that saga. And oscilloscopes.
>>
>>
>> --
>> Shmuel (Seymour J.) Metz
>> http://mason.gmu.edu/~smetz3
>>
>> 
>> From: IBM Mainframe Discussion List  on behalf
>> of Phil Smith III 
>> Sent: Tuesday, July 3, 2018 5:56 PM
>> To: IBM-MAIN@listserv.ua.edu
>> Subject: Re: SUSE splits from Microfocus
>>
>> OK, kids, pay attention, because this will be on the exam.
>>
>>
>>
>> In the beginning, there was Hewlett-Packard, or HP. And HP was formless and
>> huge, and darkness was upon the stock.
>>
>>
>>
>> And the Board made a decision: split the company! And thus was born Hewlett
>> Packard Enterprise (HPE)-no hyphen, and please don't call us "HP
>> Enterprise", not sure why, even though some of the internal URLs were at
>> http://secure-web.cisco.com/1ILmwkIn_TwKCIxaQtUmzZ7IJH8TTE_
>> ZSP68ucM0phj8KaK4Fa33HWMBdfoeWOc57A98jvHuZtPDQ7GnApLEKogJr6RIDXQO_
>> XH71WF4cWNpE1c81gYGTRQ54LYb47oOQGJKjhb4Q9oJAUZQcy8xKfklRxs3Hn_
>> vF3aSW26Kv4nPvFLO6TwpN8jipYLSKUHA9BKQMRZgpsOC53R219Y9Yv1aOdK
>> z6F79hro7CjLt2xgR7D_5GOXesdNrebJqWdWZEPRwlF6zmtAcM9XPtTdOMXy0mGk-
>> VKH1w3Uu0iLxagCjloNuR8jA9Q2xEV2KdmVRlHERbCReSSrwRvC8ZkjC_WTNKI9oAC08fWlPy_
>> t4NwoaA4Y0UiZkYOPcw3AjiAyw4/http%3A%2F%2Fwww.hpenterprise.com <
>> http://secure-web.cisco.com/1ILmwkIn_TwKCIxaQtUmzZ7IJH8TTE_
>> ZSP68ucM0phj8KaK4Fa33HWMBdfoeWOc57A98jvHuZtPDQ7GnApLEKogJr6RIDXQO_
>> XH71WF4cWNpE1c81gYGTRQ54LYb47oOQGJKjhb4Q9oJAUZQcy8xKfklRxs3Hn_
>> vF3aSW26Kv4nPvFLO6TwpN8jipYLSKUHA9BKQMRZgpsOC53R219Y9Yv1aOdK
>> z6F79hro7CjLt2xgR7D_5GOXesdNrebJqWdWZEPRwlF6zmtAcM9XPtTdOMXy0mGk-
>> VKH1w3Uu0iLxagCjloNuR8jA9Q2xEV2KdmVRlHERbCReSSrwRvC8ZkjC_WTNKI9oAC08fWlPy_
>> t4NwoaA4Y0UiZkYOPcw3AjiAyw4/http%3A%2F%2Fwww.hpenterprise.com> . HP
>> remained, as "HP
>> Inc." (HPQ), selling the consumer stuff: laptops, desktops, printers. HPE
>> took the "S" stuff: Servers, Services, and Software.
>>
>>
>>
>> A few months after the split, HPE announced that they were doing a
>> "spin/merge": the Services were going to be split off and merging with what
>> was left of CSC, forming a new entity called DXC.
>>
>>
>>
>> And a while after that, HPE announced that they were selling another "S":
>> the Software was being sold off to Micro Focus.
>>
>>
>>
>> So some folks went: HP==>HPE==>DXC; some went HP==>HPE==>Micro Focus; some
>> went just HP==>HPE; and some even stayed as HP the whole time.
>>
>>
>>
>> Employee counts are maybe interesting-these are numbers I've seen, don't
>> blame me if they're wrong:
>>
>> HP originally: 300,000
>>
>> HPE originally, after the split: 70,000
>>
>> HPE without Services: 11,000
>>
>> DXC: 170,500 (that "500" is oddly precise; with 170K, you'd think it would
>> fluctuate that much on a monthly/weekly/daily basis)
>>
>> But HP now: 50,000 (a lot are missing, eh?)
>>
>> Micro Focus now: 15,000 (including SUSE and HPE)
>>
>>
>>
>> If you've been confused by all this, don't feel badly-the bloody trade
>> press
>> can't keep it straight, and that's their job! I've seen references to Meg
>> Whitman as being "CEO of HP" within the last couple of months, and yes, she
>> went to HPE. Like, two years ago. So there's no excuse for (them) getting
>> that wrong.
>>
>>
>>
>> Thus endeth the lesson.
>>
>>
>> --
>> 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: [External] Re: remove bad GDG entry from GDG base

[Jackson, Rob]

That's because if the original attempt was tape, there's definitely no NVR.

Sorry, when I mentioned IEHPROGM earlier, I was actually thinking of the CATLG 
command, as in CATLG DSNAME=dataset,VOL=3390=whocares (disk doesn't matter, 
because you just want an entry you can actually delete).  I thought about 
IEHPROGM, because it's still sort of "dumb," and just does what it's told, and 
I hoped it might just make the entry in the catalog.  If it does, the base 
already has it rolled in, and you can simply delete it with noscratch.  I'm not 
sure your IEHPROGM results so far indicate anything other than there is no 
complete catalog entry.

That's a shame about rename giving you a 040842CD, which says duplicate catalog 
entry exists.  It makes me think the IEHPROGM CATLG won't work either, despite 
being old school.  It depends upon which interfaces IEHPROGM does not respect 
(but which ISPF clearly does).

First Tennessee Bank
Mainframe Technical Support

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Nelson, Judith
Sent: Thursday, July 05, 2018 5:59 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [External] Re: remove bad GDG entry from GDG base

[External Email]

We tried. :(



   DELETE PTP.DP.TRMS.ARCH999.X3.G0308V00 FILE(VOL2) NVR

IDC3014I CATALOG ERROR

IDC3009I ** VSAM CATALOG RETURN CODE IS 50 - REASON CODE IS IGG0CLE3-92

IDC0551I ** ENTRY PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8


Judith Nelson  | Senior Systems Programmer Sammons® Financial Group Member 
Companies One Sammons Plaza  | Sioux Falls, SD 57193
Phone: (605) 373-2321
jnel...@sfgmembers.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Marchant
Sent: Thursday, July 5, 2018 10:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: remove bad GDG entry from GDG base



On Thu, 5 Jul 2018 09:27:07 -0500, Brad Wissink wrote:



>We need to remove a GDG entry from a GDG base, but the catalog entry

>doesn't exist.  What happened was that during the creation of the GDG

>(PTP.DP.TRMS.ARCH999.X3.G0308V00) the user catalog filled up and could

>not extend.



I suspect that the NVR was created in the VVDS. I would try DELETE NVR, 
followed by DEFINE.



--

Tom Marchant



--

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



The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.


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

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

Re: REXX as JCL replacement

[Charles Mills]

Right. And I don't believe "JCL" does. I think think the scheduling component 
of JESx or something similar either waits or polls.

Anyway, you are reading about SVC 99. I meant a separate module to do the ENQs. 
I would guess that SVC 99 does a RET=HAVE so there would be no harm in a 
pre-ENQ.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Thursday, July 5, 2018 2:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX as JCL replacement

On Thu, 5 Jul 2018 13:29:01 -0700, Charles Mills wrote:

>I have not really thought it through but I just cannot picture how building 
>some combination of Rexx or whatever + assembler one could not do 'n' 
>simultaneous ENQs. The facilities are there in MVS for the asking:
>
>"ENQ assigns control of one or more serially reusable resources to a task. If 
>any of
>the resources are not available, the task might be placed in a wait condition 
>until
>all of the requested resources are available."
> 
From: z/OS IBM MVS Programming: Authorized Assembler Services Guide
Version 2 Release 3 SA23-1371-30
Chapter 25. Dynamic allocation
Requesting a data set that is in use:
Rather than wait for another user to release a data set, volume, or 
device to
obtain use of it, dynamic allocation fails a request by an unauthorized 
program.
If an authorized program specifically requests a wait, dynamic 
allocation will wait.

The designers were dedicated and capable.  There's no way to wait for a 
dynamically
allocated resource without introducing the hazard of a deadlock.

-- 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: Function in SDSF to list Dynamic Exits

[Jesse 1 Robinson]

We IPLed a new system today with 2.3. My SDSF menu is in 'hide mode'. All of 
the following options are displayed, but none of them works. 

PROC Proclib data setsJES  
SSI  Subsystem informationSystem   
CFC  CF Connections   Sysplex  
CFS  CF StructuresSysplex  
VMAP Virtual storage map  Memory   
SMSG SMS storage groups   Devices  
SMSV SMS volumes  Devices  
FS   File systems OMVS 
CSR  Common storage remaining Memory   
GT   Generic tracker  System   
NA   Network activity Network  
DEV  Device activity  Devices  

"ISF452E SDSFAUX communications failed, return code 0x0008, reason code |
"0x00360806, function "query ". Not authorized for request"  |

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Thursday, July 05, 2018 5:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Function in SDSF to list Dynamic Exits

Rob Scott wrote:

>By default, commands that you do not have access to via ISFCMD or group 
>authority will not appear on the SDSF main menu.

Indeed! Please see (watch the wrrap!) this URL:

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.isfa500/rescmds.htm
 

... for a list of profiles starting with ISFCMD in SDSF RACF Class.


Abilities to use or see unauthorised screens/commands are also managed by:
  ISFPARM (If you use SERVER.NOPARM in SDSF class)
  ISFPRMxx
  RACF Classes - TSOAUTH/FACILITY/SDSF/LOGSTRM/OPERCMDS/XFACILIT.

See this site for a lng list of resources to protect everthing in 
SDSF:

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.isfa500/aperes.htm


>You can issue the "SET MENU ALL" to show all commands and unauthorised 
>commands will have the "Status" of "Command not authorized".

Or go to pull-down menu. Select 'Display', then select '1. Panels' to see all 
and every panels in SDSF world.

Groete / Greetings
Elardus Engelbrecht


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

Re: [External] Re: remove bad GDG entry from GDG base

[Nelson, Judith]

We tried. :(



   DELETE PTP.DP.TRMS.ARCH999.X3.G0308V00 FILE(VOL2) NVR

IDC3014I CATALOG ERROR

IDC3009I ** VSAM CATALOG RETURN CODE IS 50 - REASON CODE IS IGG0CLE3-92

IDC0551I ** ENTRY PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8


Judith Nelson  | Senior Systems Programmer
Sammons® Financial Group Member Companies
One Sammons Plaza  | Sioux Falls, SD 57193
Phone: (605) 373-2321
jnel...@sfgmembers.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Marchant
Sent: Thursday, July 5, 2018 10:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: remove bad GDG entry from GDG base



On Thu, 5 Jul 2018 09:27:07 -0500, Brad Wissink wrote:



>We need to remove a GDG entry from a GDG base, but the catalog entry

>doesn't exist.  What happened was that during the creation of the GDG

>(PTP.DP.TRMS.ARCH999.X3.G0308V00) the user catalog filled up and could

>not extend.



I suspect that the NVR was created in the VVDS. I would try DELETE NVR, 
followed by DEFINE.



--

Tom Marchant



--

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



The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.


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

Re: [External] Re: remove bad GDG entry from GDG base

[Nelson, Judith]

I created one and it allocated it and cataloged, but did not get rolled into 
the GDG base. Tried in batch and manually.



I also tried to run:

//STEP005 EXEC PGM=IEBGENER

//SYSUT1   DD DISP=SHR,DSN=PTP.DP.TRMS.ARCH999.X3.G0308V00

//SYSUT2   DD DSN=PTP.DP.TRMS.ARCH999.X3.G0308V01,

// DISP=(NEW,CATLG,DELETE),

// UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)

//SYSPRINT DD SYSOUT=*

//SYSINDD DUMMY



Getting a JCL error

IEFA107I JXNIEGOV STEP005 SYSUT1 - DATA SET PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT 
FOUND


Judith Nelson  | Senior Systems Programmer
Sammons® Financial Group Member Companies
One Sammons Plaza  | Sioux Falls, SD 57193
Phone: (605) 373-2321
jnel...@sfgmembers.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Thompson
Sent: Thursday, July 5, 2018 10:21 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [External] Re: remove bad GDG entry from GDG base



Try to create a GDS with the name of

PTP.DP.TRMS.ARCH999.X3.G0308V01  <<  NOTE the VERSION number



You can fill this data set with the desired contents, or you can make it a null 
data set (1 track and empty).



This might get you around the problem until those entries roll out of the GDG 
base.



HTHs

Steve Thompson



On 07/05/2018 10:50 AM, Wissink, Brad wrote:

> Trying to delete the GDG entry results in;

>

> DELETE PTP.DP.TRMS.ARCH999.X3.G0308V00 NONVSAM NOSCRATCH PURGE

>

> IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00 IDC3902I **

> DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8 IDC0014I

> LASTCC=8

>

>

> Trying to create the data set results in;

>

> DEFINE NONVSAM(NAME(PTP.DP.TRMS.ARCH999.X3.G0308V00) DEVT(3390)

> VOL(Z1SW01))

>

>IDC3013I DUPLICATE DATA SET NAME+

>   IDC0014I LASTCC=12

>   IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS

> IGG0CLEH-8

>

>

> Brad Wissink| Sr. Systems Programmer

> Sammons® Financial Group Member Companies

> 4350 Westown Pkwy | West Des Moines | IA 50266 Phone 515-267-2735 |

> ext. 33735 | Cell: 515-231-1511

>

> bwiss...@sfgmembers.com  | 
> www.SammonsFinancialGroup.com

>

>

> -Original Message-

> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]

> On Behalf Of Mike Schwab

> Sent: Thursday, July 05, 2018 9:40 AM

> To: IBM-MAIN@LISTSERV.UA.EDU

> Subject: [External] Re: remove bad GDG entry from GDG base

>

> Create a dummy by specific number then delete?

> On Thu, Jul 5, 2018 at 9:27 AM Brad Wissink 
> mailto:bwiss...@sfgmembers.com>> wrote:

>>

>> We need to remove a GDG entry from a GDG base, but the catalog entry doesn't 
>> exist.  What happened was that during the creation of the GDG 
>> (PTP.DP.TRMS.ARCH999.X3.G0308V00) the user catalog filled up and could not 
>> extend.  We received IEC331I 020-000. error message on this.   We 
>> corrected the catalog space issue, but the PTP.DP.TRMS.ARCH999.X3 GDG base 
>> has the G0308V00 GDG associated with it, but there is no catalog entry for 
>> G0308V00.  if you do a LISTCAT ALL ENTRY(PTP.DP.TRMS.ARCH999.X3) this is 
>> what you get.

>>

>> GDG BASE -- PTP.DP.TRMS.ARCH999.X3

>>   IN-CAT --- TAPE.USER.CAT

>>   HISTORY

>> DATASET-OWNER-(NULL) CREATION2017.248

>> RELEASE2 LAST ALTER--2018.184

>>   ATTRIBUTES

>> LIMIT-999 SCRATCHNOEMPTYLIFO   
>> NOPURGEEXTENDED

>>   ASSOCIATIONS

>> NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0001V00

>> NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0002V00

>> ...

>>   NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0307V00

>>   NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0308V00

>> 

>> NONVSAM  PTP.DP.TRMS.ARCH999.X3.G0307V00

>>   IN-CAT --- TAPE.USER.CAT

>>   HISTORY

>> DATASET-OWNER-(NULL) CREATION2018.172

>> RELEASE2 EXPIRATION--.000

>>   VOLUMES

>> VOLSERA58863 DEVTYPE--X'78048081' 
>> FSEQN--1

>>   ASSOCIATIONS

>> GDG--PTP.DP.TRMS.ARCH999.X3

>>   ATTRIBUTES

>> IDC3012I ENTRY PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT FOUND+ IDC1566I **

>> PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT LISTED IDC0014I LASTCC=4 IDC3009I

>> ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42

>>

>> Doing a LISTCAT All ENTRY(PTP.DP.TRMS.ARCH999.X3.G0308V00)  gets

>>

>> IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00 IDC3902I **

>> DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8 IDC0014I

>> LASTCC=4

>>

>> Is there anyway to delete the unwanted GDG entry from the GDG base without 
>> have to delete and rebuild the GDG base?

>>

>>

>>

>> -

>> - For IBM-MAIN 

Re: REXX as JCL replacement

[Paul Gilmartin]

On Thu, 5 Jul 2018 13:29:01 -0700, Charles Mills wrote:

>I have not really thought it through but I just cannot picture how building 
>some combination of Rexx or whatever + assembler one could not do 'n' 
>simultaneous ENQs. The facilities are there in MVS for the asking:
>
>"ENQ assigns control of one or more serially reusable resources to a task. If 
>any of
>the resources are not available, the task might be placed in a wait condition 
>until
>all of the requested resources are available."
> 
From: z/OS IBM MVS Programming: Authorized Assembler Services Guide
Version 2 Release 3 SA23-1371-30
Chapter 25. Dynamic allocation
Requesting a data set that is in use:
Rather than wait for another user to release a data set, volume, or 
device to
obtain use of it, dynamic allocation fails a request by an unauthorized 
program.
If an authorized program specifically requests a wait, dynamic 
allocation will wait.

The designers were dedicated and capable.  There's no way to wait for a 
dynamically
allocated resource without introducing the hazard of a deadlock.

-- gil

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

Re: [External] Re: remove bad GDG entry from GDG base

[Nelson, Judith]

I am answering for Brad.

The entry has no disk volume associated with it, since it was created to tape. 
So there is no disk, no dates, no tape information, no MVS catalog connection; 
only an entry under the gdg base.



If you go into 3.4 and display it – you have to type the whole dataset name -, 
this is what I get:

Command - Enter "/" to select action  Message   Volume

   Tracks  % XT Device  Dsorg Recfm Lrecl Blksz  CreatedReferred

 ---

  PTP.DP.TRMS.ARCH999.X3.G0308V00



Nothing.



I tried iehprogm and got the following for an uncatlg:



  UNCATLG DSNAME=PTP.DP.TRMS.ARCH999.X3.G0308V00

  IEH210I  YOUR REQUEST CANNOT BE SERVICED

 IT IS INVALID --OR-- IT IS NOT PROPER WITHIN YOUR PRESENT CATALOG STRUCTURE  
... UNUSUAL END



And for a scratch:

SCRATCH DSNAME=PTP.DP.TRMS.ARCH999.X3.G0308V00

 IEH205I  INFORMATION IN CONTROL STATEMENT IS NOT SUFFICIENT

THE REQUESTED PROGRAM FUNCTION HAS NOT BEEN CALLED  ... UNUSUAL END



I am sure it requires a Disk volume entry.



We tried the renaming, but get:

IEC614I RENAME FAILED - RC 008, DIAGNOSTIC INFORMATION IS (040842CD),

IKJACCNT,S10173,PTP.DP.TRMS.ARCH999.X3.H0308V00


Judith Nelson  | Senior Systems Programmer
Sammons® Financial Group Member Companies
One Sammons Plaza  | Sioux Falls, SD 57193
Phone: (605) 373-2321
jnel...@sfgmembers.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jackson, Rob
Sent: Thursday, July 5, 2018 9:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [External] Re: remove bad GDG entry from GDG base



Did you try IEHPROGM?



What happens if you create a different dataset and rename it to the messed up 
GDS?



First Tennessee Bank

Mainframe Technical Support



-Original Message-

From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of 
Wissink, Brad

Sent: Thursday, July 05, 2018 10:51 AM

To: IBM-MAIN@LISTSERV.UA.EDU

Subject: Re: [External] Re: remove bad GDG entry from GDG base



[External Email]



Trying to delete the GDG entry results in;



DELETE PTP.DP.TRMS.ARCH999.X3.G0308V00 NONVSAM NOSCRATCH PURGE



IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00 IDC3902I ** DEFAULT 
SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8 IDC0014I LASTCC=8





Trying to create the data set results in;



DEFINE NONVSAM(NAME(PTP.DP.TRMS.ARCH999.X3.G0308V00) DEVT(3390) VOL(Z1SW01))



  IDC3013I DUPLICATE DATA SET NAME+

IDC0014I LASTCC=12

IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEH-8





Brad Wissink| Sr. Systems Programmer

Sammons® Financial Group Member Companies

4350 Westown Pkwy | West Des Moines | IA 50266 Phone 515-267-2735 | ext. 33735 
| Cell: 515-231-1511



bwiss...@sfgmembers.com  | 
www.SammonsFinancialGroup.com





-Original Message-

From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Schwab

Sent: Thursday, July 05, 2018 9:40 AM

To: IBM-MAIN@LISTSERV.UA.EDU

Subject: [External] Re: remove bad GDG entry from GDG base



Create a dummy by specific number then delete?

On Thu, Jul 5, 2018 at 9:27 AM Brad Wissink 
mailto:bwiss...@sfgmembers.com>> wrote:

>

> We need to remove a GDG entry from a GDG base, but the catalog entry doesn't 
> exist.  What happened was that during the creation of the GDG 
> (PTP.DP.TRMS.ARCH999.X3.G0308V00) the user catalog filled up and could not 
> extend.  We received IEC331I 020-000. error message on this.   We 
> corrected the catalog space issue, but the PTP.DP.TRMS.ARCH999.X3 GDG base 
> has the G0308V00 GDG associated with it, but there is no catalog entry for 
> G0308V00.  if you do a LISTCAT ALL ENTRY(PTP.DP.TRMS.ARCH999.X3) this is what 
> you get.

>

> GDG BASE -- PTP.DP.TRMS.ARCH999.X3

>  IN-CAT --- TAPE.USER.CAT

>  HISTORY

>DATASET-OWNER-(NULL) CREATION2017.248

>RELEASE2 LAST ALTER--2018.184

>  ATTRIBUTES

>LIMIT-999 SCRATCHNOEMPTYLIFO   NOPURGE 
>EXTENDED

>  ASSOCIATIONS

>NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0001V00

>NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0002V00

> ...

>  NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0307V00

>  NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0308V00

> 

>NONVSAM  PTP.DP.TRMS.ARCH999.X3.G0307V00

>  IN-CAT --- TAPE.USER.CAT

>  HISTORY

>DATASET-OWNER-(NULL) CREATION2018.172

>RELEASE2 EXPIRATION--.000

>  VOLUMES

>VOLSERA58863 DEVTYPE--X'78048081' 
> FSEQN--1

>  ASSOCIATIONS

>

Re: SUSE splits from Microfocus

[Wayne Bickerdike]

DEC completely forgotten?

I once read that HP was a printer company masquerading as a computer
company.

At least IBM have stuck with the mainframe. HP have buried their
technological history.

On Fri, Jul 6, 2018 at 3:41 AM, Seymour J Metz  wrote:

> In the beginning was Compaq, and HP was know for its excellent printers.
> Then the printers went downhill and there was Hewlett PacPaq, although not
> by that name. Wheile HP borged EDS, Dell borged Perot Systems. Oh, and TI
> was somewhere in that saga. And oscilloscopes.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Phil Smith III 
> Sent: Tuesday, July 3, 2018 5:56 PM
> To: IBM-MAIN@listserv.ua.edu
> Subject: Re: SUSE splits from Microfocus
>
> OK, kids, pay attention, because this will be on the exam.
>
>
>
> In the beginning, there was Hewlett-Packard, or HP. And HP was formless and
> huge, and darkness was upon the stock.
>
>
>
> And the Board made a decision: split the company! And thus was born Hewlett
> Packard Enterprise (HPE)-no hyphen, and please don't call us "HP
> Enterprise", not sure why, even though some of the internal URLs were at
> http://secure-web.cisco.com/1ILmwkIn_TwKCIxaQtUmzZ7IJH8TTE_
> ZSP68ucM0phj8KaK4Fa33HWMBdfoeWOc57A98jvHuZtPDQ7GnApLEKogJr6RIDXQO_
> XH71WF4cWNpE1c81gYGTRQ54LYb47oOQGJKjhb4Q9oJAUZQcy8xKfklRxs3Hn_
> vF3aSW26Kv4nPvFLO6TwpN8jipYLSKUHA9BKQMRZgpsOC53R219Y9Yv1aOdK
> z6F79hro7CjLt2xgR7D_5GOXesdNrebJqWdWZEPRwlF6zmtAcM9XPtTdOMXy0mGk-
> VKH1w3Uu0iLxagCjloNuR8jA9Q2xEV2KdmVRlHERbCReSSrwRvC8ZkjC_WTNKI9oAC08fWlPy_
> t4NwoaA4Y0UiZkYOPcw3AjiAyw4/http%3A%2F%2Fwww.hpenterprise.com <
> http://secure-web.cisco.com/1ILmwkIn_TwKCIxaQtUmzZ7IJH8TTE_
> ZSP68ucM0phj8KaK4Fa33HWMBdfoeWOc57A98jvHuZtPDQ7GnApLEKogJr6RIDXQO_
> XH71WF4cWNpE1c81gYGTRQ54LYb47oOQGJKjhb4Q9oJAUZQcy8xKfklRxs3Hn_
> vF3aSW26Kv4nPvFLO6TwpN8jipYLSKUHA9BKQMRZgpsOC53R219Y9Yv1aOdK
> z6F79hro7CjLt2xgR7D_5GOXesdNrebJqWdWZEPRwlF6zmtAcM9XPtTdOMXy0mGk-
> VKH1w3Uu0iLxagCjloNuR8jA9Q2xEV2KdmVRlHERbCReSSrwRvC8ZkjC_WTNKI9oAC08fWlPy_
> t4NwoaA4Y0UiZkYOPcw3AjiAyw4/http%3A%2F%2Fwww.hpenterprise.com> . HP
> remained, as "HP
> Inc." (HPQ), selling the consumer stuff: laptops, desktops, printers. HPE
> took the "S" stuff: Servers, Services, and Software.
>
>
>
> A few months after the split, HPE announced that they were doing a
> "spin/merge": the Services were going to be split off and merging with what
> was left of CSC, forming a new entity called DXC.
>
>
>
> And a while after that, HPE announced that they were selling another "S":
> the Software was being sold off to Micro Focus.
>
>
>
> So some folks went: HP==>HPE==>DXC; some went HP==>HPE==>Micro Focus; some
> went just HP==>HPE; and some even stayed as HP the whole time.
>
>
>
> Employee counts are maybe interesting-these are numbers I've seen, don't
> blame me if they're wrong:
>
> HP originally: 300,000
>
> HPE originally, after the split: 70,000
>
> HPE without Services: 11,000
>
> DXC: 170,500 (that "500" is oddly precise; with 170K, you'd think it would
> fluctuate that much on a monthly/weekly/daily basis)
>
> But HP now: 50,000 (a lot are missing, eh?)
>
> Micro Focus now: 15,000 (including SUSE and HPE)
>
>
>
> If you've been confused by all this, don't feel badly-the bloody trade
> press
> can't keep it straight, and that's their job! I've seen references to Meg
> Whitman as being "CEO of HP" within the last couple of months, and yes, she
> went to HPE. Like, two years ago. So there's no excuse for (them) getting
> that wrong.
>
>
>
> Thus endeth the lesson.
>
>
> --
> 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
>



-- 
Wayne V. Bickerdike

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

Re: REXX as JCL replacement

[Charles Mills]

I have not really thought it through but I just cannot picture how building 
some combination of Rexx or whatever + assembler one could not do 'n' 
simultaneous ENQs. The facilities are there in MVS for the asking:

"ENQ assigns control of one or more serially reusable resources to a task. If 
any of
the resources are not available, the task might be placed in a wait condition 
until
all of the requested resources are available."

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hobart Spitz
Sent: Thursday, July 5, 2018 11:24 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX as JCL replacement

I think a more encompassing approach would be for JOL to be a function,
command or environment which could be invoked from REXX.  That way, you
don't have to reinvent or do without all the things that REXX brings to the
table, both as a language and as something that interfaces with many parts
of z/OS.  I.e., DB2, JES, ISPF, TSO, etc.

I think CA also has a similar product.  I don't know anything about it, or
if it is used much.

The existence of JOL and the CA product suggest that there is a wider need
than realized to upgrade z/OS batch processing to more modern methods.
Historically, IBM has had more scripting languages than platforms (z/OS:
REXX, CLIST, JCL.  z/VM: EXEC, EXEC2, REXX.  AS/400: OCL.), and z/OS is the
only major platform where the batch scripting language (JCL) can't run in
foreground, and the foreground scripting languages can be useful in
background, but aren't.  z/VM has never had a separate batch scripting
language, and it still can do things that z/OS was never designed for.

I think Ward's question was well answered.  I might add a few things later
that were missed.  (I have a long draft that is mostly redundant.)

All that said, I'd like to come back to the primary, perhaps only, reason
why REXX is not used more in batch:  "Parallel ENQs", or the lack thereof.
I use quotation marks because I am skeptical that anything like this can
actually be truly simultaneous.  On the other hand, the time scale on which
ENQs are typically held means that near simultaneous is fast enough.

BTW, if all updatable application data is stored in DB2 tables (e.g.)
and/or all DISPs are SHR, there is no reason not to use REXX in batch.  If
DISP=OLD is never used there can be no deadly embrace.  This is not
theory.  In the early 1990s, I did just such a project, replacing more than
300 JOB streams with less than 10 much smarter ones that began by invoking
a REXX program.  All updated data was in DB2, and we used a REXX-to-DB2
interface.

Let's consider what a "Parallel ENQ" routine might look like.  This should
allow the approach to be explored and refined, proving/disproving the
concept to site management and vendors, and help formulate the most
appropriate RFE.

Here a first draft, untested, for an external, preferably compiled routine:


*AllocMlt:*

*/* REXX - Allocate dataset(s) to files(s).  Retry and recover if needed.
*/*

*/* Arg syntax:  DDName BeforeDisp[","NormDisp] Dataset... [")" options]
*/*

*/* Abnormal Disp to be handled by return code check and FREE in caller.
*/*

*/* We let ALLOC report problems with ENQs of concatenated datasets.
*/*

*/* Stop on the first failure; if we could send msgs. in fut., keep
going.*/ *



*Alloced. = 0   /* Track successes
*/*























*do iA = 1 to arg() until RC <> 0parse upper value arg(iA) with DDName
Disp DSN/* Code RecFM, LRecL, DataClas, Space, etc. after DSN and ")".
 *//* ALLOC allows concatenation via a list of dataset names.
 */  /* DSN may be a list if Disp not NEW or MOD. */parse var
Disp BeforeDisp "," NormDisp /* Like JCL. */Status = sysdsn(word(DSN,
1))if BeforeDisp = "ASIS" then BeforeDisp = word("new old",
(Status = "OK") + 1)/* Allows skipping archaic use of IEFBR14. */
  if wordpos(BeforeDisp, "OLD SHR") > 0 thendo iTry = 1 to 5 while
Status = "DATASET UNAVAILABLE"say time() DSN "unavailable,
retrying."/* Would be important to send message to ENQ holder,
esp. TSU. */call sleep "10 sec" /* SLEEP may need to be
written. */Status = sysdsn(word(DSN, 1))end iTry
select when Status = "OK" & wordpos(BeforeDisp, "OLD SHR") > 0
thennopwhen subword(Status, 2) = "NOT FOUND" & *
*wordpos(BeforeDisp, "NEW MOD") then*

















*nopotherwise /* Status incompatible with BeforeDisp,
or other error. */say "Attempting" arg(iA)", status"
Status"." leave iAend "allocate reuse
file("DDname")" BeforeDisp NormDisp "dataset("DSNAlloced.iA = (RC = 0)
  end iAif iA > arg() then /* Success */exit 0/* Failure */do iA2 = 1
to iAif Alloced.iA2"free file("word(arg(iA2), 1)end iAexit
-iA*



Any thoughts?  Anyone want to try it out and 

Re: IBM i as JCL replacement (was: Rexx as JCL replacement)

[Dana Mitchell]

Most everything is menu driven, about the closest thing on IBM i  are CL 
programs (Control Language).  Think Clists but they require compilation.   An 
optional IBM licensed program product, Advanced Job Scheduler, has a way to 
schedule a series of commands, but there is no conditional processing 
capability.  ISV products may provide more function, but I have no experience 
with anything other than IBM AJS.  

On Thu, 5 Jul 2018 16:28:10 -0300, Clark Morris  wrote:
>
>For batch processes how does the i series command language compare to
>JCL.

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

Re: IBM i as JCL replacement (was: Rexx as JCL replacement)

[Paul Gilmartin]

On Thu, 5 Jul 2018 16:28:10 -0300, Clark Morris wrote:

>[Default] On 5 Jul 2018 07:47:19 -0700, (Dana Mitchell) wrote:
>
>For batch processes how does the i series command language compare to
>JCL.  How are competing requests for file access handled?
> 
If, as John says, the filesystem paradigm is a relational data base, there's
very little comparison.  There should be Logical Unit of Work isolation.
Conflicts can occur; the perpetrator has no choice but to ROLLBACK while
someone else COMMITs.

That's what I remember from some minor use of CMS SQL/DS, the country
cousin of DB2.  How does DB2 handle competing updates?

-- gil

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

Re: IBM i as JCL replacement (was: Rexx as JCL replacement)

[Clark Morris]

[Default] On 5 Jul 2018 07:47:19 -0700, in bit.listserv.ibm-main
mitchd...@gmail.com (Dana Mitchell) wrote:

>I spend more time now days supporting a handful of IBM i LPARs than our z/OS 
>systems.  There are definitely some frustrating facets of the IBM i world.   
>For instance,  the 5250 emulation is almost all 24x80,  with just a few panels 
>that actually utilize 27x132,  and thats it!  Many new functions are 
>implemented in the web interface only but not all, so you still need to use 
>them both. 

For batch processes how does the i series command language compare to
JCL.  How are competing requests for file access handled?

Clark Morris
>
>Dana
>
>On Thu, 5 Jul 2018 08:07:18 -0500, John McKown  
>wrote:
>>
>>?A few years ago, the IBMi was under consideration to replace our, very
>>old, IBMz. I got some documentation on it. I was _extremely_ impressed.
>>Now, for a "hard coded" system _programmer_, it is death. Because there
>>simply is not much to do. 
>
>--
>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: REXX as JCL replacement

[Paul Gilmartin]

On Thu, 5 Jul 2018 14:23:35 -0400, Hobart Spitz wrote:

>I think a more encompassing approach would be for JOL to be a function,
>command or environment which could be invoked from REXX.
> 
I wonder how JOL addresses theneed for "parallel ENQs".  S99WTDSN requires
APF authorization.  Does JOL submit "optimized" JCL, or is it authorized so it
can do all the initiator does to run a mix of authorized and unauthorized steps.

>The existence of JOL and the CA product suggest that there is a wider need
>than realized to upgrade z/OS batch processing to more modern methods.
>Historically, IBM has had more scripting languages than platforms (z/OS:
>REXX, CLIST, JCL.  z/VM: EXEC, EXEC2, REXX.  AS/400: OCL.), and z/OS is the
>only major platform where the batch scripting language (JCL) can't run in
>foreground, ...
>
Why would one want to?

> ... and the foreground scripting languages can be useful in
>background, but aren't.  ...
>
There's IRXJCL and IKJEFT*.

> ... z/VM has never had a separate batch scripting
>language, and it still can do things that z/OS was never designed for.
>
UNIX has never had a separate batch scripting language.

>All that said, I'd like to come back to the primary, perhaps only, reason
>why REXX is not used more in batch:  "Parallel ENQs", or the lack thereof.
>I use quotation marks because I am skeptical that anything like this can
>actually be truly simultaneous.  On the other hand, the time scale on which
>ENQs are typically held means that near simultaneous is fast enough.
> 
I'm confident that ENQ serializes all affected systems so the action of any
single ENQ call appears instantanteous to the caller and to all other jobs on
any systems.

>Let's consider what a "Parallel ENQ" routine might look like.  This should
>allow the approach to be explored and refined, proving/disproving the
>concept to site management and vendors, and help formulate the most
>appropriate RFE.
>
>Here a first draft, untested, for an external, preferably compiled routine:
>
>*AllocMlt:*
>*/* REXX - Allocate dataset(s) to files(s).  Retry and recover if needed.
>*/*
The "retry and recover" must FREE all resources held and start ab ovo
in order to avoid deadlocks.  And that might lead to unacceptable thrashing.

(Most of your sample code was flowed illegibly.  How'd you do that?)

-- gil

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

Re: AT-TLS for HTTP

[Rob Schramm]

It is probably just my own FUD that is making me doubt it.

Rob Schramm

On Thu, Jul 5, 2018, 1:59 PM Mike Hochee  wrote:

> I have not used it for that specifically, but I don't see why not.  The
> policy based rules allow for job/task names and support wildcards, and you
> might not even need those if you can filter based on a unique port range.
> I've been impressed with AT-TLS, as it offers a lot of customization
> options, as well as quite a few OOB use cases. An underrated feature of
> comm server IMO.
>
> HTH,
> Mike
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Rob Schramm
> Sent: Thursday, July 5, 2018 12:45 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AT-TLS for HTTP
>
> This might be a weird one.  I have used Policy Agent AT-TLS in the past to
> secure JDBC communication with a UDB data base.  Can I use Policy agent to
> secure an existing HTTP GET process (assembler program), by doing a similar
> process?  Has anyone else done this?
>
> Thanks,
> Rob Schramm
>
> --
>
> Rob Schramm
>
> --
> 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
>
-- 

Rob Schramm

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

Re: REXX as JCL replacement

[Hobart Spitz]

I think a more encompassing approach would be for JOL to be a function,
command or environment which could be invoked from REXX.  That way, you
don't have to reinvent or do without all the things that REXX brings to the
table, both as a language and as something that interfaces with many parts
of z/OS.  I.e., DB2, JES, ISPF, TSO, etc.

I think CA also has a similar product.  I don't know anything about it, or
if it is used much.

The existence of JOL and the CA product suggest that there is a wider need
than realized to upgrade z/OS batch processing to more modern methods.
Historically, IBM has had more scripting languages than platforms (z/OS:
REXX, CLIST, JCL.  z/VM: EXEC, EXEC2, REXX.  AS/400: OCL.), and z/OS is the
only major platform where the batch scripting language (JCL) can't run in
foreground, and the foreground scripting languages can be useful in
background, but aren't.  z/VM has never had a separate batch scripting
language, and it still can do things that z/OS was never designed for.

I think Ward's question was well answered.  I might add a few things later
that were missed.  (I have a long draft that is mostly redundant.)

All that said, I'd like to come back to the primary, perhaps only, reason
why REXX is not used more in batch:  "Parallel ENQs", or the lack thereof.
I use quotation marks because I am skeptical that anything like this can
actually be truly simultaneous.  On the other hand, the time scale on which
ENQs are typically held means that near simultaneous is fast enough.

BTW, if all updatable application data is stored in DB2 tables (e.g.)
and/or all DISPs are SHR, there is no reason not to use REXX in batch.  If
DISP=OLD is never used there can be no deadly embrace.  This is not
theory.  In the early 1990s, I did just such a project, replacing more than
300 JOB streams with less than 10 much smarter ones that began by invoking
a REXX program.  All updated data was in DB2, and we used a REXX-to-DB2
interface.

Let's consider what a "Parallel ENQ" routine might look like.  This should
allow the approach to be explored and refined, proving/disproving the
concept to site management and vendors, and help formulate the most
appropriate RFE.

Here a first draft, untested, for an external, preferably compiled routine:


*AllocMlt:*

*/* REXX - Allocate dataset(s) to files(s).  Retry and recover if needed.
*/*

*/* Arg syntax:  DDName BeforeDisp[","NormDisp] Dataset... [")" options]
*/*

*/* Abnormal Disp to be handled by return code check and FREE in caller.
*/*

*/* We let ALLOC report problems with ENQs of concatenated datasets.
*/*

*/* Stop on the first failure; if we could send msgs. in fut., keep
going.*/ *



*Alloced. = 0   /* Track successes
*/*























*do iA = 1 to arg() until RC <> 0parse upper value arg(iA) with DDName
Disp DSN/* Code RecFM, LRecL, DataClas, Space, etc. after DSN and ")".
 *//* ALLOC allows concatenation via a list of dataset names.
 */  /* DSN may be a list if Disp not NEW or MOD. */parse var
Disp BeforeDisp "," NormDisp /* Like JCL. */Status = sysdsn(word(DSN,
1))if BeforeDisp = "ASIS" then BeforeDisp = word("new old",
(Status = "OK") + 1)/* Allows skipping archaic use of IEFBR14. */
  if wordpos(BeforeDisp, "OLD SHR") > 0 thendo iTry = 1 to 5 while
Status = "DATASET UNAVAILABLE"say time() DSN "unavailable,
retrying."/* Would be important to send message to ENQ holder,
esp. TSU. */call sleep "10 sec" /* SLEEP may need to be
written. */Status = sysdsn(word(DSN, 1))end iTry
select when Status = "OK" & wordpos(BeforeDisp, "OLD SHR") > 0
thennopwhen subword(Status, 2) = "NOT FOUND" & *
*wordpos(BeforeDisp, "NEW MOD") then*

















*nopotherwise /* Status incompatible with BeforeDisp,
or other error. */say "Attempting" arg(iA)", status"
Status"." leave iAend "allocate reuse
file("DDname")" BeforeDisp NormDisp "dataset("DSNAlloced.iA = (RC = 0)
  end iAif iA > arg() then /* Success */exit 0/* Failure */do iA2 = 1
to iAif Alloced.iA2"free file("word(arg(iA2), 1)end iAexit
-iA*



Any thoughts?  Anyone want to try it out and post the results?

SYSDSN() having the relatively new DATASET UNAVAILABLE value means there
are other, possibly more creative ways to handle ENQ conflicts.



OREXXMan
JCL is the buggy whip of 21st century computing.  Stabilize it.
Put Pipelines in the z/OS base.  Would you rather process data one
character at a time (Unix/C style), or one record at a time?
IBM has been looking for an HLL for program products; REXX is that language.

On Wed, Jul 4, 2018 at 9:14 PM, zMan  wrote:

> >
> > >What would it take for IBM to allocate just a couple of people to make
> it
> > available as a supported product?
> >
>
> Having someone left in POK who knows how to code. Not sure 

Re: Linklist and APF

[Steve Beaver]

What does the PGM= do as coded?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Thursday, July 5, 2018 10:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Linklist and APF

Radoslaw Skorupka wrote:

>I have job with the following steplib:

>//STEPLIB  DD DISP=SHR,DSN=HLQ.LNKLST.LIB1
>//DD DISP=SHR,DSN=HLQ.LNKLST.LIB2
>//DD DISP=SHR,DSN=HLQ.NONLNK.LIB3

>LIB1, and LIB2 reside in LNKLST, but not on APF.
>LIB3 is not on LNKLST, but is APF-authorized.

>The job works when all 3 libraries are in steplib concatenation. 

In this concatenation, all or none should be APFed depending on the requirement 
of the program(s). I am a$$uming ALL the programs required for that job is 
sitting in any of those STEPLIB libraries.


>When I remove LIB1 and LIB2 it doesn't work. 

How so? Any messages or abends?


>Is it because lack of explicit APF authirization?

Perhaps, but it depends where the program modules are fetched from. If a 
program is NOT fetched at all from any of those STEPLIB libraries, then 
Linklist is searched instead.

Groete / Greetings
Elardus Engelbrecht

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

[Steve Smith]

DYNALLOC certainly does not require AMODE 24, or RMODE 24.  The coding
technique used in Bill Ogden's and Eileen's examples do.  Bill Godfrey's
works in either 24 or 31 modes.  He also identified the main problem.

FWIW, there's no need to write code that looks like it was extracted from a
dump.  Why not, for example:

TU1  DCY(DALRTDDN,1,8)
TU1DDN   DCCL8'?'

sas


On Thu, Jul 5, 2018 at 1:03 PM, Seymour J Metz  wrote:

> AFAIK only DAIR requires AMODE(24), not DYNALLOC.
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Barkow, Eileen 
> Sent: Thursday, July 5, 2018 11:42 AM
> To: IBM-MAIN@listserv.ua.edu
> Subject: Re: DYNALLOC
>
> Are you running with AMODE=24?
> I think that you still need to, from looking at my old DYNALLOC pgms.

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

Re: AT-TLS for HTTP

[Mike Hochee]

I have not used it for that specifically, but I don't see why not.  The policy 
based rules allow for job/task names and support wildcards, and you might not 
even need those if you can filter based on a unique port range.  I've been 
impressed with AT-TLS, as it offers a lot of customization options, as well as 
quite a few OOB use cases. An underrated feature of comm server IMO. 

HTH, 
Mike 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Rob Schramm
Sent: Thursday, July 5, 2018 12:45 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AT-TLS for HTTP

This might be a weird one.  I have used Policy Agent AT-TLS in the past to 
secure JDBC communication with a UDB data base.  Can I use Policy agent to 
secure an existing HTTP GET process (assembler program), by doing a similar 
process?  Has anyone else done this?

Thanks,
Rob Schramm

-- 

Rob Schramm

--
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: SUSE splits from Microfocus

[Seymour J Metz]

In the beginning was Compaq, and HP was know for its excellent printers. Then 
the printers went downhill and there was Hewlett PacPaq, although not by that 
name. Wheile HP borged EDS, Dell borged Perot Systems. Oh, and TI was somewhere 
in that saga. And oscilloscopes.


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


From: IBM Mainframe Discussion List  on behalf of 
Phil Smith III 
Sent: Tuesday, July 3, 2018 5:56 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: SUSE splits from Microfocus

OK, kids, pay attention, because this will be on the exam.



In the beginning, there was Hewlett-Packard, or HP. And HP was formless and
huge, and darkness was upon the stock.



And the Board made a decision: split the company! And thus was born Hewlett
Packard Enterprise (HPE)-no hyphen, and please don't call us "HP
Enterprise", not sure why, even though some of the internal URLs were at
http://secure-web.cisco.com/1ILmwkIn_TwKCIxaQtUmzZ7IJH8TTE_ZSP68ucM0phj8KaK4Fa33HWMBdfoeWOc57A98jvHuZtPDQ7GnApLEKogJr6RIDXQO_XH71WF4cWNpE1c81gYGTRQ54LYb47oOQGJKjhb4Q9oJAUZQcy8xKfklRxs3Hn_vF3aSW26Kv4nPvFLO6TwpN8jipYLSKUHA9BKQMRZgpsOC53R219Y9Yv1aOdKz6F79hro7CjLt2xgR7D_5GOXesdNrebJqWdWZEPRwlF6zmtAcM9XPtTdOMXy0mGk-VKH1w3Uu0iLxagCjloNuR8jA9Q2xEV2KdmVRlHERbCReSSrwRvC8ZkjC_WTNKI9oAC08fWlPy_t4NwoaA4Y0UiZkYOPcw3AjiAyw4/http%3A%2F%2Fwww.hpenterprise.com
 

 . HP remained, as "HP
Inc." (HPQ), selling the consumer stuff: laptops, desktops, printers. HPE
took the "S" stuff: Servers, Services, and Software.



A few months after the split, HPE announced that they were doing a
"spin/merge": the Services were going to be split off and merging with what
was left of CSC, forming a new entity called DXC.



And a while after that, HPE announced that they were selling another "S":
the Software was being sold off to Micro Focus.



So some folks went: HP==>HPE==>DXC; some went HP==>HPE==>Micro Focus; some
went just HP==>HPE; and some even stayed as HP the whole time.



Employee counts are maybe interesting-these are numbers I've seen, don't
blame me if they're wrong:

HP originally: 300,000

HPE originally, after the split: 70,000

HPE without Services: 11,000

DXC: 170,500 (that "500" is oddly precise; with 170K, you'd think it would
fluctuate that much on a monthly/weekly/daily basis)

But HP now: 50,000 (a lot are missing, eh?)

Micro Focus now: 15,000 (including SUSE and HPE)



If you've been confused by all this, don't feel badly-the bloody trade press
can't keep it straight, and that's their job! I've seen references to Meg
Whitman as being "CEO of HP" within the last couple of months, and yes, she
went to HPE. Like, two years ago. So there's no excuse for (them) getting
that wrong.



Thus endeth the lesson.


--
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: ISF.CONNECT.*

[Mick Graley]

I believe turning off "write to programmer" messages with TSO PROFILE
NOWTPMSG will hide the ICH408I but you might miss something else you want
to see.
Cheers,
Mick.


On 4 July 2018 at 09:47, Barbara Nitz  wrote:

> Something has changed with SDSFAUX between z/OS 2.1 and z/OS 2.3.
>
> Under z/OS 2.3, each and every user gets a RACF Message when they access
> their part of SDSF (that's the primary RACF panel). That missing right is
> for ISF.CONNECT.system, which is described as access to SDSFAUX. None of
> those users have any need to execute function provided by SDSFAUX, so I see
> no reason to give them read in that profile. This did not happen under 2.1.
> These users can work normally with SDSF after the ICH408I. The RACF error
> is mostly irritating to them and ugly.
>
> Why is the check for that right not 'silent' like all the others?
>
> Short of granting the right, is there any way to make the RACF message go
> away?
>
> Regards, Barbara
>
> --
> 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: OA55296 data loss DB2 may be especially vulnerable

[Jousma, David]

FYI, follow-up from IBM.   This PTF is going PE, but only because the hold data 
was incorrectly stating that an IPL with CLPA is required.   That will be 
changed to a LLA refresh is required, followed by a F DEVMAN,RESTART.

_
Dave Jousma
Manager Mainframe Engineering, Assistant Vice President
david.jou...@53.com
1830 East Paris, Grand Rapids, MI  49546 MD RSCB2H
p 616.653.8429
f 616.653.2717

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Knutson, Samuel
Sent: Friday, June 29, 2018 7:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: OA55296 data loss DB2 may be especially vulnerable

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

Nofars shared this on Twitter and I don't see it in the last month here on 
IBM-MAIN so in case others have not seen it.

https://twitter.com/nofars/status/1012216001201606657

People, DO NOT UPGRADE TO z/OS 2.3 without OA55296 applies. We just had a few 
dozen DB2 datasets destroyed. #zOS #mainframe

To be more specific- because DB2 datasets tend to have a large amount of 
extents, that's where you'll likely get hit by this.  We are now stuck with 
inaccessible datasets that can't even be deleted. The VTOC and VTOCIX appear to 
be beyond repair #mainframe Not sure why this isn't a Red Alert. #mainframe #zOS


Ouch!
http://www-01.ibm.com/support/docview.wss?uid=isg1OA55296

OA55296: F4 DSCB IN VTOC OVERLAID WITH ZEROS RESULTING IN VOLUME BEING 
INACCESSIBLE, release 2.3 only A fix is available 
http://www-01.ibm.com/support/docview.wss?uid=isg1OA55296#more
APAR status
* Closed as program error.
Error description
* VTOC CONVERT routine writes F0 DSCB in place of F4 DSCB
* resulting in IEC603I and IEC143I 213-04 when attempting to open
* the VTOC. This is triggered by an orphaned F3 DSCB in the VTOC.
*
* Sequence of events:
* 1. IEC608I DADSM FUNCTION DISABLED THE VTOC INDEX ON
*,vv,20,R
*Cde 20 : The Allocate or Extend function discovered that a
*DSCB marked unallocated in the VTOC Index, indicating that
*the DSCB is a Format 0, is not a Format 0 DSCB. The cchhr is
*that of the DSCB.
*
* 2. DUMP DADSM CREATE (or EXTEND) DIAG=0820040B or DIAG=0831040B
*or DIAG=0853040B
*The key is that there is a DIAG=040B, which means CVAF RC
*= 04 ; CVSTAT = 0B : DSCB is not format-0 DSCB and VERIFY=YES
*
* 3. IEC604I VTOC CONVERT ROUTINE ENTERED ON ,vv,,DEVMAN
*If the DEVMAN keyword is present, this indicates that
*conversion is taking place in the Device Manager Address
*Space.
*
* 4. IEC603I VTOC ERRORS MAY EXIST ON ,vv,0
*Cde 0: An I/O or unexpected CVAF error return code error
*occurred in the DADSM routines Allocate, Extend, Scratch or
*Partial Release. The routine ended processing, thereby
*leaving the VTOC in a partially updated state.
*
* 5. Attempts to open SYS1.VTOC result in IEC143I 213-04
*
Local fix
* contact DADSM L2 to recover volume.
* .
* ++APAR available as follows
* On server testcase.boulder.ibm.com in the fromibm/mvs
* directory in binary format as BA55296.HDZ2230
*
Problem summary
* 
* * USERS AFFECTED:  *
* * Users of volumes with Indexed VTOC.  *
* 
* * PROBLEM DESCRIPTION: *
* * During the process of converting Indexed VTOC to OSVTOC (due *
* * to administrator action or error detection), if an orphaned  *
* * Format-3 DSCB is detected, it will be reset to Format-0  *
* * DSCB. The CCHHR address of the orphaned Format-3 DSCB was*
* * reset to CCHHR of the Format-4 DSCB, causing that to be the  *
* * DSCB reset to format-0. This caused the VTOC to be   *
* * inaccessible.*
* 
* * RECOMMENDATION:  *
* 
*
Problem conclusion
* The problem has been corrected to prevent Format-4 DSCB from
* being overwritten with Format-0 DSCB.
*
Temporary fix
Comments
APAR Information
* APAR number
OA55296
* Reported component name
DEVICE MGMT SER
* Reported component ID
5695DF133
* Reported release
230
* Status
CLOSED PER
* PE
NoPE
* HIPER
YesHIPER
* Special Attention
NoSpecatt / Xsystem
* Submitted date
2018-04-11
* Closed date
2018-04-19
* Last modified date
2018-06-04
* APAR is sysrouted FROM one or more of the following:
* APAR is sysrouted TO one or more of the following:
UA95941
Modules/Macros
* IGG0425P
*
Fix information
* Fixed component name
DEVICE MGMT SER
* Fixed component ID
5695DF133
Applicable component levels
* R230 PSY 

Re: DYNALLOC

[Seymour J Metz]

AFAIK only DAIR requires AMODE(24), not DYNALLOC.

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


From: IBM Mainframe Discussion List  on behalf of 
Barkow, Eileen 
Sent: Thursday, July 5, 2018 11:42 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: DYNALLOC

Are you running with AMODE=24?
I think that you still need to, from looking at my old DYNALLOC pgms.

 DS  0F
DYNBLKS  EQU  *
RBPOINT  DC   A(RBS)  ADR  REQ BLOCK PASSED IN R1
 ORG   RBPOINT   S99RBP  DSECT
 DCX'80'   HI ORDER BIT MUST BE ON
 DS0F
RBS EQU  *
RB   DS0CL20  S99RB DSECT  LOC BY RBPOINT
RBLN DCAL1(RBEL) LEN OF RB
RBVERB   DCAL1(S99VRBAL) FUNC 01-07 01 FOR ALLOC
RBFLAG1  DCAL1(S99NOMNT) FLAG BYTE-DONT CONSIDER OFFLINE UNITS
RBFLAG2  DSX   2ND   FLAG BYTE
RBERROR  DSXL2 ERROR REASON CODE
RBINFO   DSXL2 INFO  REASON CODE
RBTXTPP  DSA(TXPOINTS) LIST OF TEXT PTRS
 DSF   RESERVED
RBAUTHFL DSXL4 FLAGS FOR AUTH FUNCTIONS
RBEL EQU   *-RB

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Marchant
Sent: Thursday, July 05, 2018 11:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DYNALLOC

On Thu, 5 Jul 2018 08:14:35 -0700, Charles Mills wrote:

>Should not be a S0C4 but don't you want pointers to ALL of the text units?
>
He doesn't have pointers to any of his text units. X'0055',X'0001' is likely 
not a valid address.

--
Tom Marchant
>
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>Behalf Of Bill Godfrey
>Sent: Thursday, July 5, 2018 7:48 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: DYNALLOC
>
>On Thu, 5 Jul 2018 10:29:22 -0400, Bill Ogden  wrote:
>
>>It has been a few decades since I used DYNALLOC and I am now doing
>>something stupid that results in an 0C4 somewhere in never-never land. Can
>>someone give me a clue without going to much trouble?  (DRB and DRBPTR are
>>on full word boundaries.)
>>
>>  LA1,DRBPTR
>>  DYNALLOC
>>...
>>...
>>TU1  DC  X'0055',X'0001',X'0008',C''  Returned DDname
>>TU2  DC  X'0002',X'0001',X'000A',C'SYS1.TRASH' DSname
>>TU3  DC  X'0004',X'0001',X'0001',X'04' DISP=NEW
>>TU4  DC  X'0005',X'0001',X'0001',X'04' DISP=DELETE
>>TU5  DC  X'0008',X''   Allocate in cylinders
>>TU6  DC  X'000A',X'0001',X'0003',X'0A'  10 cylinders
>>TU7  DC  X'0010',X'0001',X'0006',C'WORK01' volser
>>TU8  DC  X'0015',X'0001',X'0004',C'3390'   UNIT type
>>
>>DRB DC   X'14'
>>  DC   X'01' verb = dsname allocation
>>  DC   X'6080' flags
>>  DC   X''  error codes
>> DCA(TU1)
>>  DCX''
>>
>>DRBPTR   DC  X'80'
>>  DC  AL3(DRB)
>>
>
>Your A(TU1) should be A(TUPL), and TUPL should look like this:
>
>TUPL DCA(TU1,TU2,TU3,TU4,TU5,TU6,TU7,TU8+X'8000)
>
>Bill
>
>--
>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




This e-mail, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

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

AT-TLS for HTTP

[Rob Schramm]

This might be a weird one.  I have used Policy Agent AT-TLS in the past to
secure JDBC communication with a UDB data base.  Can I use Policy agent to
secure an existing HTTP GET process (assembler program), by doing a similar
process?  Has anyone else done this?

Thanks,
Rob Schramm

-- 

Rob Schramm

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

Re: Linklist and APF

[Walt Farrell]

On Thu, 5 Jul 2018 17:18:24 +0200, R.S.  wrote:

>I have job with the following steplib:
>
>//STEPLIB DD DISP=SHR,DSN=HLQ.LNKLST.LIB1
>// DD DISP=SHR,DSN=HLQ.LNKLST.LIB2
>// DD DISP=SHR,DSN=HLQ.NONLNK.LIB3
>
>LIB1, and LIB2 reside in LNKLST, but not on APF.
>LIB3 is not on LNKLST, but is APF-authorized.
>
>The job works when all 3 libraries are in steplib concatenation. When I
>remove LIB1 and LIB2 it doesn't work. Is it because lack of explicit APF
>authirization?
>LNKLST is authorized by IEASYS default entry.

It would help to know what you mean by "works" and "doesn't work". 

But for a start, remember that LNKAUTH=LNKLST means that the libraries in the 
link list are all authorized *when they are accessed as part of the link list*. 
Therefore, your STEPLIB concatenation is *not* APF-authorized, because it 
contains LIB1 and LIB2 which are not APF-authorized in your usage.

My guess about what you mean by "doesn't work" is that once the job step is 
running APF-authorized (which will happen when you remove LIB1 and LIB2 from 
STEPLIB) you're getting an S0C4 abend because some program you're running 
claims to be RENT but isn't. When run APF-authorized it's loaded into protected 
storage, and when it tries to store into itself it gets the S0C4.

-- 
Walt

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

Re: DYNALLOC

[Barkow, Eileen]

Are you running with AMODE=24?
I think that you still need to, from looking at my old DYNALLOC pgms.

 DS  0F
DYNBLKS  EQU  *
RBPOINT  DC   A(RBS)  ADR  REQ BLOCK PASSED IN R1
 ORG   RBPOINT   S99RBP  DSECT
 DCX'80'   HI ORDER BIT MUST BE ON
 DS0F
RBS EQU  *
RB   DS0CL20  S99RB DSECT  LOC BY RBPOINT
RBLN DCAL1(RBEL) LEN OF RB
RBVERB   DCAL1(S99VRBAL) FUNC 01-07 01 FOR ALLOC
RBFLAG1  DCAL1(S99NOMNT) FLAG BYTE-DONT CONSIDER OFFLINE UNITS
RBFLAG2  DSX   2ND   FLAG BYTE
RBERROR  DSXL2 ERROR REASON CODE
RBINFO   DSXL2 INFO  REASON CODE
RBTXTPP  DSA(TXPOINTS) LIST OF TEXT PTRS
 DSF   RESERVED
RBAUTHFL DSXL4 FLAGS FOR AUTH FUNCTIONS
RBEL EQU   *-RB

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Marchant
Sent: Thursday, July 05, 2018 11:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DYNALLOC

On Thu, 5 Jul 2018 08:14:35 -0700, Charles Mills wrote:

>Should not be a S0C4 but don't you want pointers to ALL of the text units?
>
He doesn't have pointers to any of his text units. X'0055',X'0001' is likely 
not a valid address.

--
Tom Marchant
>
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>Behalf Of Bill Godfrey
>Sent: Thursday, July 5, 2018 7:48 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: DYNALLOC
>
>On Thu, 5 Jul 2018 10:29:22 -0400, Bill Ogden  wrote:
>
>>It has been a few decades since I used DYNALLOC and I am now doing
>>something stupid that results in an 0C4 somewhere in never-never land. Can
>>someone give me a clue without going to much trouble?  (DRB and DRBPTR are
>>on full word boundaries.)
>>
>>  LA1,DRBPTR
>>  DYNALLOC
>>...
>>...
>>TU1  DC  X'0055',X'0001',X'0008',C''  Returned DDname
>>TU2  DC  X'0002',X'0001',X'000A',C'SYS1.TRASH' DSname
>>TU3  DC  X'0004',X'0001',X'0001',X'04' DISP=NEW
>>TU4  DC  X'0005',X'0001',X'0001',X'04' DISP=DELETE
>>TU5  DC  X'0008',X''   Allocate in cylinders
>>TU6  DC  X'000A',X'0001',X'0003',X'0A'  10 cylinders
>>TU7  DC  X'0010',X'0001',X'0006',C'WORK01' volser
>>TU8  DC  X'0015',X'0001',X'0004',C'3390'   UNIT type
>>
>>DRB DC   X'14'
>>  DC   X'01' verb = dsname allocation
>>  DC   X'6080' flags
>>  DC   X''  error codes
>> DCA(TU1)
>>  DCX''
>>
>>DRBPTR   DC  X'80'
>>  DC  AL3(DRB)
>>
>
>Your A(TU1) should be A(TUPL), and TUPL should look like this:
>
>TUPL DCA(TU1,TU2,TU3,TU4,TU5,TU6,TU7,TU8+X'8000)
>
>Bill
>
>--
>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




This e-mail, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

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

Re: Question about the z/OS Binder API

[Barry Lichtenstein]

Hi Peter,

The documentation for GETE warns: "Note: Processing of the ESD records returned 
by a GETE call should not make assumptions about the order of the returned ESD 
records..."  The expectation was that there would never be a very large number 
of classes, so that a simple class lookup (as it sounds like you've done) would 
be acceptable.

Yeah that's been the problem with MODMAP.  In general for this sort of thing 
you should be creating the workmod (CREATEW) with INTENT=ACCESS and doing the 
INCLUDE with ATTRIB=Y to preserve things.  That is what is done for both 
IEBCOPY (between PDS & PDSE) and UNIX cp/mv (from UNIX filesystem to dataset). 
I presume you are doing that, otherwise you would need to rebind (BINDW) prior 
to using GETE.

Unfortunately that's the problem, the use of MODMAP changes the module 
structure, and using INTENT=BIND, thus requiring a BINDW call before doing 
GETE, can potentially change the module organization (i.e. change locations of 
items).

Barry

On 3 Jul 2018 20:25:25 + Farley, Peter x23353 wrote:
> Hi Barry,
>
> Thanks for the detailed reply.  I understand a bit more about the structure 
> now.  I may be able to examine the ER data to get the information instead of 
> scanning the class table,
> but if the ED table entry physically precedes the ER entry it may be tricky 
> to coordinate within the current code structure.  Scanning the class entries 
> is already coded, and at least that works for now.
>
> Unfortunately the application is scanning existing executables, none of which 
> was bound (or is ever likely to be bound) using the MODMAP option.
> Re-binding is not an available option -- unless it could be created 
> on-the-fly in the created in-memory workspace?
> Is that possible without actually rewriting the executable to the input 
> library?  How much external knowledge of the original binding parameters 
> (entry points, AMODE/RMODE, RENT options, etc.)
> is necessary but not available in an INCLUDE'd existing executable program?  
> And what may be needed if it is a really OLD executable program from 
> decades-ago linkage?
>
> I will consider entering an RFE, thanks for the suggestion.  In the meantime, 
> I do have at least one working alternative to collect the needed data.
>
> Again my sincere thanks for your help, it is much appreciated.
>
> Peter

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

Re: Linklist and APF

[Elardus Engelbrecht]

Radoslaw Skorupka wrote:

>I have job with the following steplib:

>//STEPLIB  DD DISP=SHR,DSN=HLQ.LNKLST.LIB1
>//DD DISP=SHR,DSN=HLQ.LNKLST.LIB2
>//DD DISP=SHR,DSN=HLQ.NONLNK.LIB3

>LIB1, and LIB2 reside in LNKLST, but not on APF.
>LIB3 is not on LNKLST, but is APF-authorized.

>The job works when all 3 libraries are in steplib concatenation. 

In this concatenation, all or none should be APFed depending on the requirement 
of the program(s). I am a$$uming ALL the programs required for that job is 
sitting in any of those STEPLIB libraries.


>When I remove LIB1 and LIB2 it doesn't work. 

How so? Any messages or abends?


>Is it because lack of explicit APF authirization?

Perhaps, but it depends where the program modules are fetched from. If a 
program is NOT fetched at all from any of those STEPLIB libraries, then 
Linklist is searched instead.

Groete / Greetings
Elardus Engelbrecht

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

Re: DYNALLOC

[Tom Marchant]

On Thu, 5 Jul 2018 08:14:35 -0700, Charles Mills wrote:

>Should not be a S0C4 but don't you want pointers to ALL of the text units?
>
He doesn't have pointers to any of his text units. X'0055',X'0001' is likely 
not a valid address.

-- 
Tom Marchant
>
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>Behalf Of Bill Godfrey
>Sent: Thursday, July 5, 2018 7:48 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: DYNALLOC
>
>On Thu, 5 Jul 2018 10:29:22 -0400, Bill Ogden  wrote:
>
>>It has been a few decades since I used DYNALLOC and I am now doing 
>>something stupid that results in an 0C4 somewhere in never-never land. Can 
>>someone give me a clue without going to much trouble?  (DRB and DRBPTR are 
>>on full word boundaries.)
>>
>>  LA1,DRBPTR
>>  DYNALLOC
>>...
>>...
>>TU1  DC  X'0055',X'0001',X'0008',C''  Returned DDname
>>TU2  DC  X'0002',X'0001',X'000A',C'SYS1.TRASH' DSname
>>TU3  DC  X'0004',X'0001',X'0001',X'04' DISP=NEW
>>TU4  DC  X'0005',X'0001',X'0001',X'04' DISP=DELETE
>>TU5  DC  X'0008',X''   Allocate in cylinders
>>TU6  DC  X'000A',X'0001',X'0003',X'0A'  10 cylinders
>>TU7  DC  X'0010',X'0001',X'0006',C'WORK01' volser
>>TU8  DC  X'0015',X'0001',X'0004',C'3390'   UNIT type
>>
>>DRB DC   X'14'
>>  DC   X'01' verb = dsname allocation
>>  DC   X'6080' flags
>>  DC   X''  error codes
>> DCA(TU1)
>>  DCX'' 
>>
>>DRBPTR   DC  X'80'
>>  DC  AL3(DRB)
>>
>
>Your A(TU1) should be A(TUPL), and TUPL should look like this:
>
>TUPL DCA(TU1,TU2,TU3,TU4,TU5,TU6,TU7,TU8+X'8000)
>
>Bill
>
>--
>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: Linklist and APF

[Tom Marchant]

On Thu, 5 Jul 2018 17:18:24 +0200, R.S.  wrote:

>I have job with the following steplib:
>
>//STEPLIB  DD DISP=SHR,DSN=HLQ.LNKLST.LIB1
>// DD DISP=SHR,DSN=HLQ.LNKLST.LIB2
>// DD DISP=SHR,DSN=HLQ.NONLNK.LIB3
>
>LIB1, and LIB2 reside in LNKLST, but not on APF.
>LIB3 is not on LNKLST, but is APF-authorized.

So, the concatenation is not authorized.

>The job works when all 3 libraries are in steplib concatenation. When I
>remove LIB1 and LIB2 it doesn't work. Is it because lack of explicit APF
>authirization?

"Doesn't work" in what way?

>LNKLST is authorized by IEASYS default entry.

You mean you have LNKAUTH=LNKLST defaulted?

-- 
Tom Marchant

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

Re: [External] Re: remove bad GDG entry from GDG base

[Steve Thompson]

Try to create a GDS with the name of 
PTP.DP.TRMS.ARCH999.X3.G0308V01  <<  NOTE the VERSION number


You can fill this data set with the desired contents, or you can 
make it a null data set (1 track and empty).


This might get you around the problem until those entries roll 
out of the GDG base.


HTHs
Steve Thompson

On 07/05/2018 10:50 AM, Wissink, Brad wrote:

Trying to delete the GDG entry results in;

DELETE PTP.DP.TRMS.ARCH999.X3.G0308V00 NONVSAM NOSCRATCH PURGE

IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00
IDC3902I ** DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8
IDC0014I LASTCC=8


Trying to create the data set results in;

DEFINE NONVSAM(NAME(PTP.DP.TRMS.ARCH999.X3.G0308V00) DEVT(3390) VOL(Z1SW01))

   IDC3013I DUPLICATE DATA SET NAME+
  IDC0014I LASTCC=12
  IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEH-8


Brad Wissink| Sr. Systems Programmer
Sammons® Financial Group Member Companies
4350 Westown Pkwy | West Des Moines | IA 50266
Phone 515-267-2735 | ext. 33735 | Cell: 515-231-1511

bwiss...@sfgmembers.com  | www.SammonsFinancialGroup.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Schwab
Sent: Thursday, July 05, 2018 9:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: remove bad GDG entry from GDG base

Create a dummy by specific number then delete?
On Thu, Jul 5, 2018 at 9:27 AM Brad Wissink  wrote:


We need to remove a GDG entry from a GDG base, but the catalog entry doesn't 
exist.  What happened was that during the creation of the GDG 
(PTP.DP.TRMS.ARCH999.X3.G0308V00) the user catalog filled up and could not 
extend.  We received IEC331I 020-000. error message on this.   We corrected 
the catalog space issue, but the PTP.DP.TRMS.ARCH999.X3 GDG base has the 
G0308V00 GDG associated with it, but there is no catalog entry for G0308V00.  
if you do a LISTCAT ALL ENTRY(PTP.DP.TRMS.ARCH999.X3) this is what you get.

GDG BASE -- PTP.DP.TRMS.ARCH999.X3
  IN-CAT --- TAPE.USER.CAT
  HISTORY
DATASET-OWNER-(NULL) CREATION2017.248
RELEASE2 LAST ALTER--2018.184
  ATTRIBUTES
LIMIT-999 SCRATCHNOEMPTYLIFO   NOPURGE  
  EXTENDED
  ASSOCIATIONS
NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0001V00
NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0002V00
...
  NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0307V00
  NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0308V00

NONVSAM  PTP.DP.TRMS.ARCH999.X3.G0307V00
  IN-CAT --- TAPE.USER.CAT
  HISTORY
DATASET-OWNER-(NULL) CREATION2018.172
RELEASE2 EXPIRATION--.000
  VOLUMES
VOLSERA58863 DEVTYPE--X'78048081' 
FSEQN--1
  ASSOCIATIONS
GDG--PTP.DP.TRMS.ARCH999.X3
  ATTRIBUTES
IDC3012I ENTRY PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT FOUND+ IDC1566I **
PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT LISTED IDC0014I LASTCC=4 IDC3009I
** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42

Doing a LISTCAT All ENTRY(PTP.DP.TRMS.ARCH999.X3.G0308V00)  gets

IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00 IDC3902I **
DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8 IDC0014I
LASTCC=4

Is there anyway to delete the unwanted GDG entry from the GDG base without have 
to delete and rebuild the GDG base?



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


The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.


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

Linklist and APF

[R.S.]

I have job with the following steplib:

//STEPLIB  DD DISP=SHR,DSN=HLQ.LNKLST.LIB1
//    DD DISP=SHR,DSN=HLQ.LNKLST.LIB2
//    DD DISP=SHR,DSN=HLQ.NONLNK.LIB3

LIB1, and LIB2 reside in LNKLST, but not on APF.
LIB3 is not on LNKLST, but is APF-authorized.

The job works when all 3 libraries are in steplib concatenation. When I 
remove LIB1 and LIB2 it doesn't work. Is it because lack of explicit APF 
authirization?

LNKLST is authorized by IEASYS default entry.

--
Radoslaw Skorupka
Lodz, Poland




==


   --
Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie 
jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem 
niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania 
adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne działanie o podobnym charakterze jest prawnie zabronione i może być 
karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie 
zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość 
włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
www.mBank.pl, e-mail: kont...@mbank.plsąd Rejonowy dla m. st. Warszawy XII 
Wydział Gospodarczy Krajowego Rejestru Sądowego, nr rejestru przedsiębiorców 
KRS 025237, NIP: 526-021-50-88. Według stanu na dzień 01.01.2018 r. kapitał 
zakładowy mBanku S.A. (w całości wpłacony) wynosi 169.248.488 złotych.
   


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

Re: Connect:Direct and VOL=REF ?

[Steve Thompson]

If you had just said tape...

And things are kinda different with VTS -- but, I hope you are 
using checkpointing so that a restart doesn't require starting 
from scratch. All of that will be handled under the covers.


A certain company was running C:D 5.0 and their partner was 
running the latest and they hit this. And it was ugly -- I was 
reading the traces and it finally hit me -- this was a 
maintenance problem.


The fix was for the down level system to come up on the IBM 
version of C:D for z/OS because the 5.0 version was not 
understanding a change in the restart handshaking -- and had 
recently gone out of service.


Regards,
Steve Thompson

On 07/05/2018 06:52 AM, Dyck, Lionel B. (RavenTek) wrote:

The use we need to to xfer a tape with multiple files on it (label=1,2,3,) 
and thus need the vol=ref.

The working syntax after a suggestion from ibm is VOL=(,RETAIN,REF=dsn)

And since we are using GDG's it must be VOL=(,RETAIN,REF='dsn')

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Thompson
Sent: Tuesday, July 03, 2018 12:23 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: Connect:Direct and VOL=REF ?

Wow, this doc is not formatted the way it used to be.

When one does a copy, one can send the data or one can pull the
data. Let us assume that the system that starts the process is
the one in control (Process control *AND* PNODE), and that one is
going to copy *from* the PNODE to the SNODE (again, it can be
done the other way).

Now, where the data set is going *TO* one can use REF=dsn, and
this will force that data set being copied to the same VOLUME as
the DSN specified by the REF=.

Why would one want to do this?

One may want or need to do this because one knows the name of a
DSN on the client's system and by using that reference, one can
put another file over there where the client has asked for it to be.

HTHs

Steve Thompson




On 07/02/2018 03:53 PM, Joe Monk wrote:

I think it is saying that the system picks the volume from the referenced
dsn, which must be cataloged (i.e. can't be a temp data set).

Joe

On Mon, Jul 2, 2018 at 3:49 PM, Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:


On Mon, 2 Jul 2018 15:07:07 -0400, Joe Monk wrote:


REF allows you to place a data set on the same volume as the referenced
data set. It must be cataloged on the system where it is referenced.

https://www.ibm.com/support/knowledgecenter/en/CD_PROC_LANG/com.ibm.help.

cdprocstmtsparams.doc/cdproc_stmt_zos_Process_Parameters.html



Not always, but good point:
  ([SER=(serial-no, [serial-no,...]) | ,REF=dsn])
  specifies the volume serial number(s) containing the file and
optional processing associated
  with the file. If VOL is not specified with the FROM parameter,
the file must be cataloged.

(They're careless about distinction between "file" and "data set".)

Is this trying to say that the default VOL for TO is the VOL specified on
FROM?

Is it possible that Lionel is referring to a data set created in the same
COPY
command and COPY does not ALLOCATE/CATALOG that data set until the
command runs?

But Lionel seems to indicate he's seeing a syntax error, not "Data set not
found".

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



--
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: Time difference in operating system

[R.S.]

W dniu 2018-07-05 o 09:36, Jake Anderson pisze:

Hi

I understand that the operating system timing takes from HMC.

Still we find a few seconds of difference in Operating system.

Does it takes time to percolate and get in sync ?


Your assumption is not true.
If you don't have STP, your time is just set by operator command. For 
STP enablement *and* NTP connection you time is set (during POR) by 
SE/HMC and synchronized with external time source.


--
Radoslaw Skorupka
Lodz, Poland




==


   --
Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie 
jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem 
niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania 
adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne działanie o podobnym charakterze jest prawnie zabronione i może być 
karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie 
zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość 
włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
www.mBank.pl, e-mail: kont...@mbank.plsąd Rejonowy dla m. st. Warszawy XII 
Wydział Gospodarczy Krajowego Rejestru Sądowego, nr rejestru przedsiębiorców 
KRS 025237, NIP: 526-021-50-88. Według stanu na dzień 01.01.2018 r. kapitał 
zakładowy mBanku S.A. (w całości wpłacony) wynosi 169.248.488 złotych.
   


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

Re: DYNALLOC

[Charles Mills]

Should not be a S0C4 but don't you want pointers to ALL of the text units?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Godfrey
Sent: Thursday, July 5, 2018 7:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DYNALLOC

On Thu, 5 Jul 2018 10:29:22 -0400, Bill Ogden  wrote:

>It has been a few decades since I used DYNALLOC and I am now doing 
>something stupid that results in an 0C4 somewhere in never-never land. Can 
>someone give me a clue without going to much trouble?  (DRB and DRBPTR are 
>on full word boundaries.)
>
>  LA1,DRBPTR
>  DYNALLOC
>...
>...
>TU1  DC  X'0055',X'0001',X'0008',C''  Returned DDname
>TU2  DC  X'0002',X'0001',X'000A',C'SYS1.TRASH' DSname
>TU3  DC  X'0004',X'0001',X'0001',X'04' DISP=NEW
>TU4  DC  X'0005',X'0001',X'0001',X'04' DISP=DELETE
>TU5  DC  X'0008',X''   Allocate in cylinders
>TU6  DC  X'000A',X'0001',X'0003',X'0A'  10 cylinders
>TU7  DC  X'0010',X'0001',X'0006',C'WORK01' volser
>TU8  DC  X'0015',X'0001',X'0004',C'3390'   UNIT type
>
>DRB DC   X'14'
>  DC   X'01' verb = dsname allocation
>  DC   X'6080' flags
>  DC   X''  error codes
> DCA(TU1)
>  DCX'' 
>
>DRBPTR   DC  X'80'
>  DC  AL3(DRB)
>

Your A(TU1) should be A(TUPL), and TUPL should look like this:

TUPL DCA(TU1,TU2,TU3,TU4,TU5,TU6,TU7,TU8+X'8000)

Bill

--
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: remove bad GDG entry from GDG base

[Tom Marchant]

On Thu, 5 Jul 2018 09:27:07 -0500, Brad Wissink wrote:

>We need to remove a GDG entry from a GDG base, but the catalog 
>entry doesn't exist.  What happened was that during the creation of 
>the GDG (PTP.DP.TRMS.ARCH999.X3.G0308V00) the user catalog filled 
>up and could not extend.

I suspect that the NVR was created in the VVDS. I would try DELETE NVR, 
followed by DEFINE.

-- 
Tom Marchant

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

Re: [External] Re: remove bad GDG entry from GDG base

[Jackson, Rob]

Did you try IEHPROGM?

What happens if you create a different dataset and rename it to the messed up 
GDS?

First Tennessee Bank
Mainframe Technical Support

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Wissink, Brad
Sent: Thursday, July 05, 2018 10:51 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [External] Re: remove bad GDG entry from GDG base

[External Email]

Trying to delete the GDG entry results in;

DELETE PTP.DP.TRMS.ARCH999.X3.G0308V00 NONVSAM NOSCRATCH PURGE

IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00 IDC3902I ** DEFAULT 
SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8 IDC0014I LASTCC=8


Trying to create the data set results in;

DEFINE NONVSAM(NAME(PTP.DP.TRMS.ARCH999.X3.G0308V00) DEVT(3390) VOL(Z1SW01))

  IDC3013I DUPLICATE DATA SET NAME+
 IDC0014I LASTCC=12
 IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEH-8


Brad Wissink| Sr. Systems Programmer
Sammons® Financial Group Member Companies
4350 Westown Pkwy | West Des Moines | IA 50266 Phone 515-267-2735 | ext. 33735 
| Cell: 515-231-1511

bwiss...@sfgmembers.com  | www.SammonsFinancialGroup.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Schwab
Sent: Thursday, July 05, 2018 9:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: remove bad GDG entry from GDG base

Create a dummy by specific number then delete?
On Thu, Jul 5, 2018 at 9:27 AM Brad Wissink  wrote:
>
> We need to remove a GDG entry from a GDG base, but the catalog entry doesn't 
> exist.  What happened was that during the creation of the GDG 
> (PTP.DP.TRMS.ARCH999.X3.G0308V00) the user catalog filled up and could not 
> extend.  We received IEC331I 020-000. error message on this.   We 
> corrected the catalog space issue, but the PTP.DP.TRMS.ARCH999.X3 GDG base 
> has the G0308V00 GDG associated with it, but there is no catalog entry for 
> G0308V00.  if you do a LISTCAT ALL ENTRY(PTP.DP.TRMS.ARCH999.X3) this is what 
> you get.
>
> GDG BASE -- PTP.DP.TRMS.ARCH999.X3
>  IN-CAT --- TAPE.USER.CAT
>  HISTORY
>DATASET-OWNER-(NULL) CREATION2017.248
>RELEASE2 LAST ALTER--2018.184
>  ATTRIBUTES
>LIMIT-999 SCRATCHNOEMPTYLIFO   NOPURGE 
>EXTENDED
>  ASSOCIATIONS
>NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0001V00
>NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0002V00
> ...
>  NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0307V00
>  NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0308V00
> 
>NONVSAM  PTP.DP.TRMS.ARCH999.X3.G0307V00
>  IN-CAT --- TAPE.USER.CAT
>  HISTORY
>DATASET-OWNER-(NULL) CREATION2018.172
>RELEASE2 EXPIRATION--.000
>  VOLUMES
>VOLSERA58863 DEVTYPE--X'78048081' 
> FSEQN--1
>  ASSOCIATIONS
>GDG--PTP.DP.TRMS.ARCH999.X3
>  ATTRIBUTES
> IDC3012I ENTRY PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT FOUND+ IDC1566I **
> PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT LISTED IDC0014I LASTCC=4 IDC3009I
> ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42
>
> Doing a LISTCAT All ENTRY(PTP.DP.TRMS.ARCH999.X3.G0308V00)  gets
>
> IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00 IDC3902I ** 
> DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8 IDC0014I
> LASTCC=4
>
> Is there anyway to delete the unwanted GDG entry from the GDG base without 
> have to delete and rebuild the GDG base?
>
>
>
> --
> 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


The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.


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

Confidentiality notice: 

Re: IBM i as JCL replacement (was: Rexx as JCL replacement)

[John McKown]

On Thu, Jul 5, 2018 at 9:47 AM Dana Mitchell  wrote:

> I spend more time now days supporting a handful of IBM i LPARs than our
> z/OS systems.  There are definitely some frustrating facets of the IBM i
> world.   For instance,  the 5250 emulation is almost all 24x80,  with just
> a few panels that actually utilize 27x132,  and thats it!  Many new
> functions are implemented in the web interface only but not all, so you
> still need to use them both.
>

​Well. There is nothing quite so sobering as the voice of experience!​



>
> Dana
>
> On Thu, 5 Jul 2018 08:07:18 -0500, John McKown <
> john.archie.mck...@gmail.com> wrote:
> >
> >​A few years ago, the IBMi was under consideration to replace our, very
> >old, IBMz. I got some documentation on it. I was _extremely_ impressed.
> >Now, for a "hard coded" system _programmer_, it is death. Because there
> >simply is not much to do.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
There is no such thing as the Cloud. It is just somebody else’s computer.

Maranatha! <><
John McKown

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

Re: [External] Re: remove bad GDG entry from GDG base

[Wissink, Brad]

Trying to delete the GDG entry results in;

DELETE PTP.DP.TRMS.ARCH999.X3.G0308V00 NONVSAM NOSCRATCH PURGE   

IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00
IDC3902I ** DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8   
IDC0014I LASTCC=8


Trying to create the data set results in;

DEFINE NONVSAM(NAME(PTP.DP.TRMS.ARCH999.X3.G0308V00) DEVT(3390) VOL(Z1SW01))

  IDC3013I DUPLICATE DATA SET NAME+ 
 IDC0014I LASTCC=12
 IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEH-8 


Brad Wissink| Sr. Systems Programmer
Sammons® Financial Group Member Companies
4350 Westown Pkwy | West Des Moines | IA 50266
Phone 515-267-2735 | ext. 33735 | Cell: 515-231-1511 

bwiss...@sfgmembers.com  | www.SammonsFinancialGroup.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Schwab
Sent: Thursday, July 05, 2018 9:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: remove bad GDG entry from GDG base

Create a dummy by specific number then delete?
On Thu, Jul 5, 2018 at 9:27 AM Brad Wissink  wrote:
>
> We need to remove a GDG entry from a GDG base, but the catalog entry doesn't 
> exist.  What happened was that during the creation of the GDG 
> (PTP.DP.TRMS.ARCH999.X3.G0308V00) the user catalog filled up and could not 
> extend.  We received IEC331I 020-000. error message on this.   We 
> corrected the catalog space issue, but the PTP.DP.TRMS.ARCH999.X3 GDG base 
> has the G0308V00 GDG associated with it, but there is no catalog entry for 
> G0308V00.  if you do a LISTCAT ALL ENTRY(PTP.DP.TRMS.ARCH999.X3) this is what 
> you get.
>
> GDG BASE -- PTP.DP.TRMS.ARCH999.X3
>  IN-CAT --- TAPE.USER.CAT
>  HISTORY
>DATASET-OWNER-(NULL) CREATION2017.248
>RELEASE2 LAST ALTER--2018.184
>  ATTRIBUTES
>LIMIT-999 SCRATCHNOEMPTYLIFO   NOPURGE 
>EXTENDED
>  ASSOCIATIONS
>NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0001V00
>NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0002V00
> ...
>  NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0307V00
>  NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0308V00
> 
>NONVSAM  PTP.DP.TRMS.ARCH999.X3.G0307V00
>  IN-CAT --- TAPE.USER.CAT
>  HISTORY
>DATASET-OWNER-(NULL) CREATION2018.172
>RELEASE2 EXPIRATION--.000
>  VOLUMES
>VOLSERA58863 DEVTYPE--X'78048081' 
> FSEQN--1
>  ASSOCIATIONS
>GDG--PTP.DP.TRMS.ARCH999.X3
>  ATTRIBUTES
> IDC3012I ENTRY PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT FOUND+ IDC1566I ** 
> PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT LISTED IDC0014I LASTCC=4 IDC3009I 
> ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42
>
> Doing a LISTCAT All ENTRY(PTP.DP.TRMS.ARCH999.X3.G0308V00)  gets
>
> IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00 IDC3902I ** 
> DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8 IDC0014I 
> LASTCC=4
>
> Is there anyway to delete the unwanted GDG entry from the GDG base without 
> have to delete and rebuild the GDG base?
>
>
>
> --
> 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


The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.


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

Re: DYNALLOC

[Bill Godfrey]

On Thu, 5 Jul 2018 10:29:22 -0400, Bill Ogden  wrote:

>It has been a few decades since I used DYNALLOC and I am now doing 
>something stupid that results in an 0C4 somewhere in never-never land. Can 
>someone give me a clue without going to much trouble?  (DRB and DRBPTR are 
>on full word boundaries.)
>
>  LA1,DRBPTR
>  DYNALLOC
>...
>...
>TU1  DC  X'0055',X'0001',X'0008',C''  Returned DDname
>TU2  DC  X'0002',X'0001',X'000A',C'SYS1.TRASH' DSname
>TU3  DC  X'0004',X'0001',X'0001',X'04' DISP=NEW
>TU4  DC  X'0005',X'0001',X'0001',X'04' DISP=DELETE
>TU5  DC  X'0008',X''   Allocate in cylinders
>TU6  DC  X'000A',X'0001',X'0003',X'0A'  10 cylinders
>TU7  DC  X'0010',X'0001',X'0006',C'WORK01' volser
>TU8  DC  X'0015',X'0001',X'0004',C'3390'   UNIT type
>
>DRB DC   X'14'
>  DC   X'01' verb = dsname allocation
>  DC   X'6080' flags
>  DC   X''  error codes
> DCA(TU1)
>  DCX'' 
>
>DRBPTR   DC  X'80'
>  DC  AL3(DRB)
>

Your A(TU1) should be A(TUPL), and TUPL should look like this:

TUPL DCA(TU1,TU2,TU3,TU4,TU5,TU6,TU7,TU8+X'8000)

Bill

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

Re: IBM i as JCL replacement (was: Rexx as JCL replacement)

[Dana Mitchell]

I spend more time now days supporting a handful of IBM i LPARs than our z/OS 
systems.  There are definitely some frustrating facets of the IBM i world.   
For instance,  the 5250 emulation is almost all 24x80,  with just a few panels 
that actually utilize 27x132,  and thats it!  Many new functions are 
implemented in the web interface only but not all, so you still need to use 
them both. 

Dana

On Thu, 5 Jul 2018 08:07:18 -0500, John McKown  
wrote:
>
>​A few years ago, the IBMi was under consideration to replace our, very
>old, IBMz. I got some documentation on it. I was _extremely_ impressed.
>Now, for a "hard coded" system _programmer_, it is death. Because there
>simply is not much to do.

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

Re: remove bad GDG entry from GDG base

[Mike Schwab]

Create a dummy by specific number then delete?
On Thu, Jul 5, 2018 at 9:27 AM Brad Wissink  wrote:
>
> We need to remove a GDG entry from a GDG base, but the catalog entry doesn't 
> exist.  What happened was that during the creation of the GDG 
> (PTP.DP.TRMS.ARCH999.X3.G0308V00) the user catalog filled up and could not 
> extend.  We received IEC331I 020-000. error message on this.   We 
> corrected the catalog space issue, but the PTP.DP.TRMS.ARCH999.X3 GDG base 
> has the G0308V00 GDG associated with it, but there is no catalog entry for 
> G0308V00.  if you do a LISTCAT ALL ENTRY(PTP.DP.TRMS.ARCH999.X3) this is what 
> you get.
>
> GDG BASE -- PTP.DP.TRMS.ARCH999.X3
>  IN-CAT --- TAPE.USER.CAT
>  HISTORY
>DATASET-OWNER-(NULL) CREATION2017.248
>RELEASE2 LAST ALTER--2018.184
>  ATTRIBUTES
>LIMIT-999 SCRATCHNOEMPTYLIFO   NOPURGE 
>EXTENDED
>  ASSOCIATIONS
>NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0001V00
>NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0002V00
> ...
>  NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0307V00
>  NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0308V00
> 
>NONVSAM  PTP.DP.TRMS.ARCH999.X3.G0307V00
>  IN-CAT --- TAPE.USER.CAT
>  HISTORY
>DATASET-OWNER-(NULL) CREATION2018.172
>RELEASE2 EXPIRATION--.000
>  VOLUMES
>VOLSERA58863 DEVTYPE--X'78048081' 
> FSEQN--1
>  ASSOCIATIONS
>GDG--PTP.DP.TRMS.ARCH999.X3
>  ATTRIBUTES
> IDC3012I ENTRY PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT FOUND+
> IDC1566I ** PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT LISTED
> IDC0014I LASTCC=4
> IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42
>
> Doing a LISTCAT All ENTRY(PTP.DP.TRMS.ARCH999.X3.G0308V00)  gets
>
> IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00
> IDC3902I ** DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8
> IDC0014I LASTCC=4
>
> Is there anyway to delete the unwanted GDG entry from the GDG base without 
> have to delete and rebuild the GDG base?
>
>
>
> --
> 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: remove bad GDG entry from GDG base

[Allan Staller]

DEL entryname NSCR?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Brad Wissink
Sent: Thursday, July 5, 2018 9:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: remove bad GDG entry from GDG base

We need to remove a GDG entry from a GDG base, but the catalog entry doesn't 
exist.  What happened was that during the creation of the GDG 
(PTP.DP.TRMS.ARCH999.X3.G0308V00) the user catalog filled up and could not 
extend.  We received IEC331I 020-000. error message on this.   We corrected 
the catalog space issue, but the PTP.DP.TRMS.ARCH999.X3 GDG base has the 
G0308V00 GDG associated with it, but there is no catalog entry for G0308V00.  
if you do a LISTCAT ALL ENTRY(PTP.DP.TRMS.ARCH999.X3) this is what you get.

GDG BASE -- PTP.DP.TRMS.ARCH999.X3
 IN-CAT --- TAPE.USER.CAT
 HISTORY
   DATASET-OWNER-(NULL) CREATION2017.248
   RELEASE2 LAST ALTER--2018.184
 ATTRIBUTES
   LIMIT-999 SCRATCHNOEMPTYLIFO   NOPURGE   
 EXTENDED
 ASSOCIATIONS
   NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0001V00
   NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0002V00
...
 NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0307V00
 NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0308V00

   NONVSAM  PTP.DP.TRMS.ARCH999.X3.G0307V00
 IN-CAT --- TAPE.USER.CAT
 HISTORY
   DATASET-OWNER-(NULL) CREATION2018.172
   RELEASE2 EXPIRATION--.000
 VOLUMES
   VOLSERA58863 DEVTYPE--X'78048081' 
FSEQN--1
 ASSOCIATIONS
   GDG--PTP.DP.TRMS.ARCH999.X3
 ATTRIBUTES
IDC3012I ENTRY PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT FOUND+
IDC1566I ** PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT LISTED
IDC0014I LASTCC=4
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42

Doing a LISTCAT All ENTRY(PTP.DP.TRMS.ARCH999.X3.G0308V00)  gets

IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00
IDC3902I ** DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8
IDC0014I LASTCC=4

Is there anyway to delete the unwanted GDG entry from the GDG base without have 
to delete and rebuild the GDG base?



--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
::DISCLAIMER::
--
The contents of this e-mail and any attachment(s) are confidential and intended 
for the named recipient(s) only. E-mail transmission is not guaranteed to be 
secure or error-free as information could be intercepted, corrupted, lost, 
destroyed, arrive late or incomplete, or may contain viruses in transmission. 
The e mail and its contents (with or without referred errors) shall therefore 
not attach any liability on the originator or HCL or its affiliates. Views or 
opinions, if any, presented in this email are solely those of the author and 
may not necessarily reflect the views or opinions of HCL or its affiliates. Any 
form of reproduction, dissemination, copying, disclosure, modification, 
distribution and / or publication of this message without the prior written 
consent of authorized representative of HCL is strictly prohibited. If you have 
received this email in error please delete it and notify the sender 
immediately. Before opening any email and/or attachments, please check them for 
viruses and other defects.
--

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

DYNALLOC

[Bill Ogden]

It has been a few decades since I used DYNALLOC and I am now doing 
something stupid that results in an 0C4 somewhere in never-never land. Can 
someone give me a clue without going to much trouble?  (DRB and DRBPTR are 
on full word boundaries.)

  LA1,DRBPTR
  DYNALLOC
...
...
TU1  DC  X'0055',X'0001',X'0008',C''  Returned DDname
TU2  DC  X'0002',X'0001',X'000A',C'SYS1.TRASH' DSname
TU3  DC  X'0004',X'0001',X'0001',X'04' DISP=NEW
TU4  DC  X'0005',X'0001',X'0001',X'04' DISP=DELETE
TU5  DC  X'0008',X''   Allocate in cylinders
TU6  DC  X'000A',X'0001',X'0003',X'0A'  10 cylinders
TU7  DC  X'0010',X'0001',X'0006',C'WORK01' volser
TU8  DC  X'0015',X'0001',X'0004',C'3390'   UNIT type

DRB DC   X'14'
  DC   X'01' verb = dsname allocation
  DC   X'6080' flags
  DC   X''  error codes
 DCA(TU1)
  DCX'' 

DRBPTR   DC  X'80'
  DC  AL3(DRB)

Thanks..

BIll Ogden


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

remove bad GDG entry from GDG base

[Brad Wissink]

We need to remove a GDG entry from a GDG base, but the catalog entry doesn't 
exist.  What happened was that during the creation of the GDG 
(PTP.DP.TRMS.ARCH999.X3.G0308V00) the user catalog filled up and could not 
extend.  We received IEC331I 020-000. error message on this.   We corrected 
the catalog space issue, but the PTP.DP.TRMS.ARCH999.X3 GDG base has the 
G0308V00 GDG associated with it, but there is no catalog entry for G0308V00.  
if you do a LISTCAT ALL ENTRY(PTP.DP.TRMS.ARCH999.X3) this is what you get.

GDG BASE -- PTP.DP.TRMS.ARCH999.X3  
  
 IN-CAT --- TAPE.USER.CAT   
  
 HISTORY
  
   DATASET-OWNER-(NULL) CREATION2017.248
  
   RELEASE2 LAST ALTER--2018.184
  
 ATTRIBUTES 
  
   LIMIT-999 SCRATCHNOEMPTYLIFO   NOPURGE   
 EXTENDED 
 ASSOCIATIONS   
  
   NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0001V00 
  
   NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0002V00 
...
 NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0307V00
 NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0308V00

   NONVSAM  PTP.DP.TRMS.ARCH999.X3.G0307V00 
  
 IN-CAT --- TAPE.USER.CAT   
  
 HISTORY
  
   DATASET-OWNER-(NULL) CREATION2018.172
  
   RELEASE2 EXPIRATION--.000
  
 VOLUMES
  
   VOLSERA58863 DEVTYPE--X'78048081' 
FSEQN--1 
 ASSOCIATIONS   
  
   GDG--PTP.DP.TRMS.ARCH999.X3  
  
 ATTRIBUTES 
  
IDC3012I ENTRY PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT FOUND+   
  
IDC1566I ** PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT LISTED  
  
IDC0014I LASTCC=4   
  
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42  
  

Doing a LISTCAT All ENTRY(PTP.DP.TRMS.ARCH999.X3.G0308V00)  gets
 
IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00  
IDC3902I ** DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8 
IDC0014I LASTCC=4  

Is there anyway to delete the unwanted GDG entry from the GDG base without have 
to delete and rebuild the GDG base?



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

Re: [EXTERNAL] Storage hot/cold analysis

[Elardus Engelbrecht]

Martin Packer wrote:

>"Meh" is "meh". :-) If I say "hardly worth looking up" I think you'll get the 
>joke. :-)

Hahahaha! LOL! Yes, Martin I got the joke! You're a zChampion of course!  ;-D

Thanks!

Groete / Greetings
Elardus Engelbrecht

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

Re: Function in SDSF to list Dynamic Exits

[Elardus Engelbrecht]

mikael.nyst...@seb.se wrote:

>Det här är ett test 

  Dit is 'n toets(In Afrikaans!)

And your Swedish test is working. 

I (and rest of IBM-MAIN) got your test under grave danger! ;-)

Groete / Greetings
Elardus Engelbrecht

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

Re: [EXTERNAL] Storage hot/cold analysis

[Martin Packer]

"Meh" is "meh". :-) If I say "hardly worth looking up" I think you'll get 
the joke. :-)

Cheers, Martin

Martin Packer

zChampion, Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

email: martin_pac...@uk.ibm.com

Twitter / Facebook IDs: MartinPacker

Blog: 
https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker

Podcast Series (With Marna Walle): https://developer.ibm.com/tv/mpt/or 
  
https://itunes.apple.com/gb/podcast/mainframe-performance-topics/id1127943573?mt=2


Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA
Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU

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

Re: IBM i as JCL replacement (was: Rexx as JCL replacement)

[Charles Mills]

Many moons ago we ported a product from z/OS to the AS/400 and were similarly 
impressed with the sorts of things you mention. The OS was solid as a rock.

There is a major learning curve -- the darned thing is unlike any other 
computer. And many APIs are locked up and not available without some special 
license or fee. For example, in every other operating system I have used, a 
program can open an executable file (.exe, load module, etc.) as a normal file 
and read it -- typically just like any other file, if that makes sense in the 
particular situation. Not so in OS/400. Also as I recall a lot of services were 
only available via panels -- like if ISPF were the *only* way to accomplish 
certain z/OS tasks.

It was a somewhat tough port for the reasons described.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Thursday, July 5, 2018 6:07 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IBM i as JCL replacement (was: Rexx as JCL replacement)

On Wed, Jul 4, 2018 at 1:56 PM Jack J. Woehr  wrote:

> On 7/4/2018 11:00 AM, Paul Gilmartin wrote:
> > JCL has numerous restrictions and inconsistencies due to antiquity,
>
> IBM i supports Cobol. Come on down :)
>

​A few years ago, the IBMi was under consideration to replace our, very
old, IBMz. I got some documentation on it. I was _extremely_ impressed.
Now, for a "hard coded" system _programmer_, it is death. Because there
simply is not much to do. Basically apply maintenance and parameters. No
real programming, except perhaps some type of utility. ILE COBOL looks
good. Well, as good as any COBOL looks to me {grin}. I love the fact that
the basic filesystem is really a relational database. So you can not only
access it as if it were a "keyed" file (like VSAM KSDS) but also as SQL
database like DB2. ​They also have PACE, which is the "POSIX compliant"
portion, which is "hooked onto" the IBMi like "Unix System Services" is
"hooked onto" the historic z/OS system. There is an email group for it too.
The people there are also fantastically helpful. I posted that we were
looking into the IBMi and one person sent me about 5 books on it -- at HIS
expense! I was "knocked on my butt".



>
> --
> Jack J. Woehr # Science is more than a body of knowledge. It's a way of
>

-- 
There is no such thing as the Cloud. It is just somebody else’s computer.

Maranatha! <><
John McKown

--
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 i as JCL replacement (was: Rexx as JCL replacement)

[John McKown]

On Wed, Jul 4, 2018 at 1:56 PM Jack J. Woehr  wrote:

> On 7/4/2018 11:00 AM, Paul Gilmartin wrote:
> > JCL has numerous restrictions and inconsistencies due to antiquity,
>
> IBM i supports Cobol. Come on down :)
>

​A few years ago, the IBMi was under consideration to replace our, very
old, IBMz. I got some documentation on it. I was _extremely_ impressed.
Now, for a "hard coded" system _programmer_, it is death. Because there
simply is not much to do. Basically apply maintenance and parameters. No
real programming, except perhaps some type of utility. ILE COBOL looks
good. Well, as good as any COBOL looks to me {grin}. I love the fact that
the basic filesystem is really a relational database. So you can not only
access it as if it were a "keyed" file (like VSAM KSDS) but also as SQL
database like DB2. ​They also have PACE, which is the "POSIX compliant"
portion, which is "hooked onto" the IBMi like "Unix System Services" is
"hooked onto" the historic z/OS system. There is an email group for it too.
The people there are also fantastically helpful. I posted that we were
looking into the IBMi and one person sent me about 5 books on it -- at HIS
expense! I was "knocked on my butt".



>
> --
> Jack J. Woehr # Science is more than a body of knowledge. It's a way of
>

-- 
There is no such thing as the Cloud. It is just somebody else’s computer.

Maranatha! <><
John McKown

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

Re: Function in SDSF to list Dynamic Exits

[mikael.nyst...@seb.se]

Det här är ett test



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

Re: [EXTERNAL] Storage hot/cold analysis

[Elardus Engelbrecht]

Sankaranarayanan, Vignesh wrote:

>Any thoughts on this folks?

What you're asking is somewhat ambiguous.

What do you mean with 'hot' and 'cold'?

Also you said: "active/meh/cold VOLSER/tape volume." 

What is "meh"?


>What are the kind of reports and fields that are worth reporting on.

Do you have any sample reports you have tried out? Perhaps you can post it here 
on IBM-MAIN?

Groete / Greetings
Elardus Engelbrecht

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

Re: [EXTERNAL] Re: Connect:Direct and VOL=REF ?

[Dyck, Lionel B. (RavenTek)]

The use we need to to xfer a tape with multiple files on it (label=1,2,3,) 
and thus need the vol=ref.

The working syntax after a suggestion from ibm is VOL=(,RETAIN,REF=dsn)

And since we are using GDG's it must be VOL=(,RETAIN,REF='dsn')

--
Lionel B. Dyck (Contractor)  <
Mainframe Systems Programmer – RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Thompson
Sent: Tuesday, July 03, 2018 12:23 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: Connect:Direct and VOL=REF ?

Wow, this doc is not formatted the way it used to be.

When one does a copy, one can send the data or one can pull the 
data. Let us assume that the system that starts the process is 
the one in control (Process control *AND* PNODE), and that one is 
going to copy *from* the PNODE to the SNODE (again, it can be 
done the other way).

Now, where the data set is going *TO* one can use REF=dsn, and 
this will force that data set being copied to the same VOLUME as 
the DSN specified by the REF=.

Why would one want to do this?

One may want or need to do this because one knows the name of a 
DSN on the client's system and by using that reference, one can 
put another file over there where the client has asked for it to be.

HTHs

Steve Thompson




On 07/02/2018 03:53 PM, Joe Monk wrote:
> I think it is saying that the system picks the volume from the referenced
> dsn, which must be cataloged (i.e. can't be a temp data set).
> 
> Joe
> 
> On Mon, Jul 2, 2018 at 3:49 PM, Paul Gilmartin <
> 000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
> 
>> On Mon, 2 Jul 2018 15:07:07 -0400, Joe Monk wrote:
>>
>>> REF allows you to place a data set on the same volume as the referenced
>>> data set. It must be cataloged on the system where it is referenced.
>>>
>>> https://www.ibm.com/support/knowledgecenter/en/CD_PROC_LANG/com.ibm.help.
>> cdprocstmtsparams.doc/cdproc_stmt_zos_Process_Parameters.html
>>>
>> Not always, but good point:
>>  ([SER=(serial-no, [serial-no,...]) | ,REF=dsn])
>>  specifies the volume serial number(s) containing the file and
>> optional processing associated
>>  with the file. If VOL is not specified with the FROM parameter,
>> the file must be cataloged.
>>
>> (They're careless about distinction between "file" and "data set".)
>>
>> Is this trying to say that the default VOL for TO is the VOL specified on
>> FROM?
>>
>> Is it possible that Lionel is referring to a data set created in the same
>> COPY
>> command and COPY does not ALLOCATE/CATALOG that data set until the
>> command runs?
>>
>> But Lionel seems to indicate he's seeing a syntax error, not "Data set not
>> found".
>>
>> -- 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
> 

--
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: [EXTERNAL] Storage hot/cold analysis

[Sankaranarayanan, Vignesh]

Any thoughts on this folks?

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: 03 July 2018 15:17
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Storage hot/cold analysis

Hello listers,

>From your experiences, what are the options available for identifying 
>active/meh/cold VOLSER/tape volume.
What are the kind of reports and fields that are worth reporting on.

As always, thanks for sharing your experiences!

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

www.marksandspencer.com

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

--
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: Function in SDSF to list Dynamic Exits

[Rob Scott]

Skip

By default, commands that you do not have access to via ISFCMD or group 
authority will not appear on the SDSF main menu.

You can issue the "SET MENU ALL" to show all commands and unauthorised commands 
will have the "Status" of "Command not authorized".

You can issue "SET MENU HIDE" to revert back to default behaviour.

Rob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jesse 1 Robinson
Sent: Wednesday, July 4, 2018 9:46 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Function in SDSF to list Dynamic Exits

For those who have not yet come face to face with the latest SDSF (2.3), here's 
the current menu of available functions. Many require additional SAF 
authorization to run even though they appear on the user's menu. I would prefer 
that they not appear at all if not authorized, but that's grist for RFE Land.



NAME Description  Group

DA   Active users Jobs

IInput Queue  Jobs

OOutput Queue Output

HHeld output QueueOutput

ST   Status of jobs   Jobs

JG   Job groups   JES

SYM  System symbols   System

LOG  System log   Log

SR   System requests  Log

MAS  Members in the MAS   JES

JC   Job classes  JES

SE   Scheduling environments  WLM

RES  WLM resourcesWLM

ENC  Enclaves WLM

PS   ProcessesOMVS

SYS  System information   System

ENQ  Enqueues System

DYNX Dynamic exitsSystem

AS   Address space memory Jobs

INIT Initiators   JES

PR   Printers JES

PUN  Punches  JES

RDR  Readers  JES

LINE LinesNetwork

NODE NodesNetwork

SO   Spool offloadJES

SP   Spool volumesJES

NS   Network servers  Network

NC   Network connections  Network

RM   Resource monitor JES

CK   Health checker   System

LNK  Link list data sets  System

LPA  Link pack data sets  System

APF  APF data setsSystem

PAG  Page data sets   System

PARM Parmlib data setsSystem

PROC Proclib data setsJES

SSI  Subsystem informationSystem

CFC  CF Connections   Sysplex

CFS  CF StructuresSysplex

VMAP Virtual storage map  Memory

SMSG SMS storage groups   Devices

SMSV SMS volumes  Devices

FS   File systems OMVS

CSR  Common storage remaining Memory

GT   Generic tracker  System

NA   Network activity Network

DEV  Device activity  Devices

ULOG User session log Log



.

.

J.O.Skip Robinson

Southern California Edison Company

Electric Dragon Team Paddler

SHARE MVS Program Co-Manager

323-715-0595 Mobile

626-543-6132 Office ⇐=== NEW

robin...@sce.com





-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Wednesday, July 04, 2018 11:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Function in SDSF to list Dynamic Exits



I just stumbled across this a z/OS V2.1 - Just in case anyone else is having to 
work with z/OS Dynamic Exits



In SDSF there is a new function/PanelDYNX  - I found it to be very helpful







Lizette Koehler

statistics: A precise and logical method for stating a half-truth inaccurately

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

Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ 
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support: 
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy


This communication and any attachments may contain confidential information of 
Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
prohibited. If you are not the intended recipient, please notify Rocket 
Software immediately and destroy all copies of this communication. Thank you.

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

Re: ISF.CONNECT.*

[Rob Scott]

Barbara,

Rocket Software partnered with IBM to enhance SDSF a couple of years ago - the 
initial result of this work was the SDSFAUX server and the new commands in SPEs 
for 2.1 and 2.2.

SDSF users should only see menu options enabled for commands that they have 
ISFCMD SAF authority to, this has not changed in SDSF 2.3.

Access to ISF.CONNECT only allows the user to use SDSF server provided 
facilities, it does not grant access to any command and it does not override 
ISFCMD SAF authority.

The access check to ISF.CONNECT was introduced in the SPE that introduced the 
SDSFAUX server, however "where" the check was made has changed in SDSF 2.3.

You are correct in that the meaning of "SDSF Server" really means both the SDSF 
and SDSFAUX address spaces in z/OS 2.3.

As stated in another reply, I am working to get the migration documentation 
updated.

Rob



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barbara Nitz
Sent: Thursday, July 5, 2018 6:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISF.CONNECT.*

I am curious: Why is Rocket Software defending missing SDSF actions and bad 
documentation??? Has IBM 'outsourced' the SDSFAUX server?

I am annoyed with the ISFTABL thing (which we addressed in our logon 
procedure), too, because that message was irritating all of us.

The ISF.CONNECT thing is much more irritating: When you customize SDSF, quite 
clearly the users only saw in the functions they were entitled to use. That was 
true up to z/OS 2.1. (Can't speak for 2.2 since we went straight to 2.3.)

I feel strongly that issuing the ICH408I for *every* user is not an RFE thing, 
it is a blatant error since we do NOT get ICH408I for all the other functions 
that the users are not entitled to. Besides, the message is bogus, since the 
not priviledged users all can work and do the same things that they always 
could.

Rob, in case you are not aware: From a RACF point of view, users should ONLY 
see what they have to see. That is not only corporate mandate where I work, it 
is also a general principle that all banks in Germany are forced to obey. So 
needlessly allowing users to see/access things that they cannot use because the 
RACF test for ISF.CONNECT does not follow SDSF standards is against all usual 
practices. We have taken more than our share of calls because of that.

Since you cited the SDSF customization Guide: I went through it. And the 
wording 'SDSF SERVER' isn't clear at all, because that encompasses both the 
SDSF address space itself  *and* SDSFAUX. The rest of the occurences for that 
profile name are all as a second mandatory access right when some function 
located in SDSFAUX is used. That is also the way the ptfs I installed in 2.1 
(that gave us SDSFAUX) worked.

Given the reaction here (and since this is obviously a Rocket Software thing), 
I will not waste my time opening an RFE. I will just define that profile and 
then tell the auditors to take this up with IBM by showing the documentation.

Barbara

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

Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ 
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support: 
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy


This communication and any attachments may contain confidential information of 
Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
prohibited. If you are not the intended recipient, please notify Rocket 
Software immediately and destroy all copies of this communication. Thank you.

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

Time difference in operating system

[Jake Anderson]

Hi

I understand that the operating system timing takes from HMC.

Still we find a few seconds of difference in Operating system.

Does it takes time to percolate and get in sync ?

Jake

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