Re: Question about LPAR weights and LPAR group controls [EXTERNAL]

2021-01-13 Thread Edgington, Jerry
Thanks Tom. I think I understand. :) 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Mathias
Sent: Wednesday, January 13, 2021 12:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about LPAR weights and LPAR group controls [EXTERNAL]

This message was sent from an external source outside of Western & Southern's 
network. Do not click links or open attachments unless you recognize the sender 
and know the contents are safe.


Jerry,

Based upon what you are trying to do, I suggest the following:

Make the total weights for LPARs 1, 2, 3, and 4 add up to 1000, assuming all 
four are normally active.  Then you can easily do the math and for example, 
give LPAR 2 say 15% of the machine by setting its weight to 150 (15/1000).  
This is the only LPAR you would want to cap.  Have LPARs 1, 3 and 4, have 
weights that together add up to the remaining 85% and don't cap them.  

If there are spare CPU cycles, then your uncapped LPARs will be able to use 
them too.  LPAR 2 would be the only one limited.

Don't forget to also set up the number of processors in each LPAR 
appropriately.  For example, if you have 10 processors and you only give LPAR 
#2 one processor, then it can only ever use one processor, even if its weight 
says 15%.   Or, if you want a production LPAR to have 3/8 of the system, then 
it needs at least 4 processors if you have a total of 10 so that it can fully 
use its 37.5% of the system.  And if you give it say 5 processors, then it 
could even get up to 50% of the system if other LPARs weren't fully using their 
processing power.  

Tom

--
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: Question about LPAR weights and LPAR group controls [EXTERNAL]

2021-01-13 Thread Tom Mathias
Jerry,

Based upon what you are trying to do, I suggest the following:

Make the total weights for LPARs 1, 2, 3, and 4 add up to 1000, assuming all 
four are normally active.  Then you can easily do the math and for example, 
give LPAR 2 say 15% of the machine by setting its weight to 150 (15/1000).  
This is the only LPAR you would want to cap.  Have LPARs 1, 3 and 4, have 
weights that together add up to the remaining 85% and don't cap them.  

If there are spare CPU cycles, then your uncapped LPARs will be able to use 
them too.  LPAR 2 would be the only one limited.

Don't forget to also set up the number of processors in each LPAR 
appropriately.  For example, if you have 10 processors and you only give LPAR 
#2 one processor, then it can only ever use one processor, even if its weight 
says 15%.   Or, if you want a production LPAR to have 3/8 of the system, then 
it needs at least 4 processors if you have a total of 10 so that it can fully 
use its 37.5% of the system.  And if you give it say 5 processors, then it 
could even get up to 50% of the system if other LPARs weren't fully using their 
processing power.  

Tom

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


Re: Question about LPAR weights and LPAR group controls [EXTERNAL]

2021-01-13 Thread Edgington, Jerry
Thank you, Tom.  That is exactly what I was reading.  So, here is what I am 
attempting

- to allow Production LPAR to use all the machine, which is production.  
- to allow the Test LPAR to use, if busy, up to a certain amount of CPU

The other LPARs, I am not really concerned about.  

My thinking so far.

Change the defined capacity to 0, then move the current defined to the LPAR 
weights. So, I think that would provide what I am looking for.

Thanks,
Jerry 

 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Mathias
Sent: Wednesday, January 13, 2021 11:57 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about LPAR weights and LPAR group controls [EXTERNAL]

This message was sent from an external source outside of Western & Southern's 
network. Do not click links or open attachments unless you recognize the sender 
and know the contents are safe.


Jerry,

MSU settings (LPAR or group) are enforced by software.  LPAR weights (LPAR 
level only) and absolute capping (at the LPAR or group level) are enforced by 
the hardware/firmware itself.  

Weights apply only to active LPARs and control the LPAR's portion of shared 
processors.  In your example, if all 4 LPARs are active and have weights equal 
to their initial values (30, 10, 10, 30), then LPAR #1 can use 30/80 or about 
37.5% of the shared processors.   If LPAR #1 doesn't have capping explicitly 
turned on, then if LPARs #2-4 aren't using their portion of resources, then 
LPAR #1 could get more.  Conversely, if you wind up with only LPAR #1 active, 
then LPAR #1 can use 30/30 of the processors or 100% of the system.  

If you don't use software management (like WLM), then you can leave the defined 
capacity (which is == MSUs) set to 0.  If you want LPARs #1 and #4 to not be 
capped, then make sure the image profile is set up to not cap (and you can 
check/change via "Change LPAR Controls" on the HMC).  If you want LPAR #2 to be 
capped, then you can turn on capping in the image profile.

But, what type of capping do you want?  Are you trying to ensure you don't 
exceed some license agreement for processing power in LPAR #2?  If so, then you 
should instead use "absolute capping".  You could either set an absolute cap 
limit on that specific LPAR or if appropriate, you could set an absolute cap 
limit on an LPAR group if you want a group of LPARs to be limited in total.

For example, maybe you are licensed to only run at most 2 processors worth of 
power in a given LPAR and no more than say 5 processors worth of power for the 
entire machine.  In that case, you could set each LPAR with this restriction up 
be capped at 2 processors and then put these LPARs into a group with an 
absolute cap of 5.

On the other hand, if you just want to ensure that LPAR #2 doesn't use too much 
power (perhaps because it is used for test purposes), then simply capping in 
the image might be enough because you presumably wouldn't care if the test LPAR 
used all of the processing power if it happened that it was the only LPAR that 
was active.

The "Processor Resource/Systems Manager Planning Guide" (e.g. SB10-7175) has a 
lot more details on how LPAR weights and capping and the like work.  Still, I 
know that it is complicated, particularly as there are a number of ways that an 
LPAR can wind up being capped, either explicitly or implicitly.  

--
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: Question about LPAR weights and LPAR group controls [EXTERNAL]

2021-01-13 Thread Tom Mathias
Jerry,

MSU settings (LPAR or group) are enforced by software.  LPAR weights (LPAR 
level only) and absolute capping (at the LPAR or group level) are enforced by 
the hardware/firmware itself.  

Weights apply only to active LPARs and control the LPAR's portion of shared 
processors.  In your example, if all 4 LPARs are active and have weights equal 
to their initial values (30, 10, 10, 30), then LPAR #1 can use 30/80 or about 
37.5% of the shared processors.   If LPAR #1 doesn't have capping explicitly 
turned on, then if LPARs #2-4 aren't using their portion of resources, then 
LPAR #1 could get more.  Conversely, if you wind up with only LPAR #1 active, 
then LPAR #1 can use 30/30 of the processors or 100% of the system.  

If you don't use software management (like WLM), then you can leave the defined 
capacity (which is == MSUs) set to 0.  If you want LPARs #1 and #4 to not be 
capped, then make sure the image profile is set up to not cap (and you can 
check/change via "Change LPAR Controls" on the HMC).  If you want LPAR #2 to be 
capped, then you can turn on capping in the image profile.

But, what type of capping do you want?  Are you trying to ensure you don't 
exceed some license agreement for processing power in LPAR #2?  If so, then you 
should instead use "absolute capping".  You could either set an absolute cap 
limit on that specific LPAR or if appropriate, you could set an absolute cap 
limit on an LPAR group if you want a group of LPARs to be limited in total.

For example, maybe you are licensed to only run at most 2 processors worth of 
power in a given LPAR and no more than say 5 processors worth of power for the 
entire machine.  In that case, you could set each LPAR with this restriction up 
be capped at 2 processors and then put these LPARs into a group with an 
absolute cap of 5.

On the other hand, if you just want to ensure that LPAR #2 doesn't use too much 
power (perhaps because it is used for test purposes), then simply capping in 
the image might be enough because you presumably wouldn't care if the test LPAR 
used all of the processing power if it happened that it was the only LPAR that 
was active.

The "Processor Resource/Systems Manager Planning Guide" (e.g. SB10-7175) has a 
lot more details on how LPAR weights and capping and the like work.  Still, I 
know that it is complicated, particularly as there are a number of ways that an 
LPAR can wind up being capped, either explicitly or implicitly.  

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


Re: Question about LPAR weights and LPAR group controls [EXTERNAL]

2021-01-13 Thread Bfishing
Remember that LPAR weights defined from the HMC really only come into play
when the system is running hot.
Capping will keep an LPAR from exceeding the number of MSU's being
consumed.  This is generally done to help control cost.

On Wed, Jan 13, 2021 at 10:35 AM Edgington, Jerry <
jerry.edging...@westernsouthernlife.com> wrote:

> Thanks Paul.  Yes, the defined capacity was setup like LPAR weights,
> instead of MSUs.  My goal is to have LPAR #1 and #4, not capped, with LPAR
> #2, capped.  So, I am thinking of changing the defined capacities to 0, and
> update the initial, max and min with the current defined capacity.  But,
> still researching it.
>
> Jerry
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Feller, Paul
> Sent: Wednesday, January 13, 2021 10:28 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Question about LPAR weights and LPAR group controls [EXTERNAL]
>
> This message was sent from an external source outside of Western &
> Southern's network. Do not click links or open attachments unless you
> recognize the sender and know the contents are safe.
>
> 
>
> Jerry, from what I recall the define capacity is related to what you want
> to limit the lpar to for MSU usage.  You can have an lpar as part of a
> group that is capped plus you can cap the lpar itself.  I've done that
> before.  If I read your email correctly you have a group capacity of 20 MSU
> which is less then the defined capacity.  If that is true I find it
> interesting that the HMC would let you do that.  My comments are based on
> what I understand related to group capacity stuff and defined capacity
> stuff.
>
> From the help screen on the HMC: Defined capacity - The measure of
> processor resource consumption for a logical partition, expressed in
> millions of service units (MSU) per hour.
>
>
>
> Thanks..
>
> Paul Feller
> GTS Mainframe Technical Support
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Edgington, Jerry
> Sent: Wednesday, January 13, 2021 8:37 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Question about LPAR weights and LPAR group controls [EXTERNAL]
>
> I am looking for some advice about how LPAR group controls, weights and
> MSUs work. We have one LPAR group with all the LPAR as members, with MSU
> group capacity value.  On each LPAR, we have LPAR initial and min/max
> weights.
>
> LPAR group capacity   20 MSU
> LPAR #1defined capacity = 900, Initial=30,
> min=20, max=30
> LPAR #2defined capacity = 60, initial =
> 10, min = 5, max=10
> LPAR #3defined capacity = 60, initial =
> 10, min = 5, max=10
> LPAR #4defined capacity = 135, init = 30
>
> Questions:
>
> 1)  Does the defined capacity units = MSU or LPAR weights?
>
> 2)  Is LPAR #1 definition mean 900 MSUs? And LPAR #2 with 60 MSUs?
>
> 3)  What would be the capacity of LPAR #1?
>
> 4)  Can LPAR #2 cause CPU issues for LPAR #1?
>
> Thanks, I thought I understood this stuff, but it would seem I don't.
>
> Jerry Edgington
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> Please note:  This message originated outside your organization. Please
> use caution when opening links or attachments.
>
> --
> 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
>


-- 

><º>`·.¸¸´¯`·.¸.·´¯`·...¸>(((º>
.·´¯`·.><º>`·.¸¸.·´¯`·.¸.·´¯`·...¸><º>

<>< Go fishing ><>

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


Re: Question about LPAR weights and LPAR group controls [EXTERNAL]

2021-01-13 Thread Edgington, Jerry
Thanks Paul.  Yes, the defined capacity was setup like LPAR weights, instead of 
MSUs.  My goal is to have LPAR #1 and #4, not capped, with LPAR #2, capped.  
So, I am thinking of changing the defined capacities to 0, and update the 
initial, max and min with the current defined capacity.  But, still researching 
it.

Jerry 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Feller, Paul
Sent: Wednesday, January 13, 2021 10:28 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about LPAR weights and LPAR group controls [EXTERNAL]

This message was sent from an external source outside of Western & Southern's 
network. Do not click links or open attachments unless you recognize the sender 
and know the contents are safe.


Jerry, from what I recall the define capacity is related to what you want to 
limit the lpar to for MSU usage.  You can have an lpar as part of a group that 
is capped plus you can cap the lpar itself.  I've done that before.  If I read 
your email correctly you have a group capacity of 20 MSU which is less then the 
defined capacity.  If that is true I find it interesting that the HMC would let 
you do that.  My comments are based on what I understand related to group 
capacity stuff and defined capacity stuff.

>From the help screen on the HMC: Defined capacity - The measure of processor 
>resource consumption for a logical partition, expressed in millions of service 
>units (MSU) per hour.



Thanks.. 
  
Paul Feller
GTS Mainframe Technical Support

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Edgington, Jerry
Sent: Wednesday, January 13, 2021 8:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Question about LPAR weights and LPAR group controls [EXTERNAL]

I am looking for some advice about how LPAR group controls, weights and MSUs 
work. We have one LPAR group with all the LPAR as members, with MSU group 
capacity value.  On each LPAR, we have LPAR initial and min/max weights.

LPAR group capacity   20 MSU
LPAR #1defined capacity = 900, Initial=30, 
min=20, max=30
LPAR #2defined capacity = 60, initial = 10, min 
= 5, max=10
LPAR #3defined capacity = 60, initial = 10, min 
= 5, max=10
LPAR #4defined capacity = 135, init = 30

Questions:

1)  Does the defined capacity units = MSU or LPAR weights?

2)  Is LPAR #1 definition mean 900 MSUs? And LPAR #2 with 60 MSUs?

3)  What would be the capacity of LPAR #1?

4)  Can LPAR #2 cause CPU issues for LPAR #1?

Thanks, I thought I understood this stuff, but it would seem I don't.

Jerry Edgington

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

--
Please note:  This message originated outside your organization. Please use 
caution when opening links or attachments.

--
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: Question about LPAR weights and LPAR group controls [EXTERNAL]

2021-01-13 Thread Feller, Paul
Jerry, from what I recall the define capacity is related to what you want to 
limit the lpar to for MSU usage.  You can have an lpar as part of a group that 
is capped plus you can cap the lpar itself.  I've done that before.  If I read 
your email correctly you have a group capacity of 20 MSU which is less then the 
defined capacity.  If that is true I find it interesting that the HMC would let 
you do that.  My comments are based on what I understand related to group 
capacity stuff and defined capacity stuff.

>From the help screen on the HMC: Defined capacity - The measure of processor 
>resource consumption for a logical partition, expressed in millions of service 
>units (MSU) per hour.



Thanks.. 
  
Paul Feller
GTS Mainframe Technical Support

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Edgington, Jerry
Sent: Wednesday, January 13, 2021 8:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Question about LPAR weights and LPAR group controls [EXTERNAL]

I am looking for some advice about how LPAR group controls, weights and MSUs 
work. We have one LPAR group with all the LPAR as members, with MSU group 
capacity value.  On each LPAR, we have LPAR initial and min/max weights.

LPAR group capacity   20 MSU
LPAR #1defined capacity = 900, Initial=30, 
min=20, max=30
LPAR #2defined capacity = 60, initial = 10, min 
= 5, max=10
LPAR #3defined capacity = 60, initial = 10, min 
= 5, max=10
LPAR #4defined capacity = 135, init = 30

Questions:

1)  Does the defined capacity units = MSU or LPAR weights?

2)  Is LPAR #1 definition mean 900 MSUs? And LPAR #2 with 60 MSUs?

3)  What would be the capacity of LPAR #1?

4)  Can LPAR #2 cause CPU issues for LPAR #1?

Thanks, I thought I understood this stuff, but it would seem I don't.

Jerry Edgington

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

--
Please note:  This message originated outside your organization. Please use 
caution when opening links or attachments.

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


Question about LPAR weights and LPAR group controls

2021-01-13 Thread Edgington, Jerry
I am looking for some advice about how LPAR group controls, weights and MSUs 
work. We have one LPAR group with all the LPAR as members, with MSU group 
capacity value.  On each LPAR, we have LPAR initial and min/max weights.

LPAR group capacity   20 MSU
LPAR #1defined capacity = 900, Initial=30, 
min=20, max=30
LPAR #2defined capacity = 60, initial = 10, min 
= 5, max=10
LPAR #3defined capacity = 60, initial = 10, min 
= 5, max=10
LPAR #4defined capacity = 135, init = 30

Questions:

1)  Does the defined capacity units = MSU or LPAR weights?

2)  Is LPAR #1 definition mean 900 MSUs? And LPAR #2 with 60 MSUs?

3)  What would be the capacity of LPAR #1?

4)  Can LPAR #2 cause CPU issues for LPAR #1?

Thanks, I thought I understood this stuff, but it would seem I don't.

Jerry Edgington

--
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 Binder SETSSI statement

2021-01-03 Thread Seymour J Metz
> Thanks.  Would that be?:
>  ...
>66 (X'42')  4   PMARL_DATE  Date saved
>70 (X'46')  4   PMARL_TIME  Time saved

Yes. That looks like it came from IGWPMDE; I have no idea what format the 
timestamp is.

> IEBCOPY Unload/Load resets it to the reload time.

BAD: it's not a bug, it's a feature.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Sunday, January 3, 2021 1:34 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question About the Binder SETSSI statement

On Sun, 3 Jan 2021 17:27:25 +, Seymour J Metz wrote:

>I would guess that PDS86 uses DESERV with EXT_ATTR=YES.
>
Thanks.  Would that be?:

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.idas300/s3254.htm
...
66 (X'42')  4   PMARL_DATE  Date saved
70 (X'46')  4   PMARL_TIME  Time saved

I notice that NFS server returns time with sub-microsecond precision.'
Possible if the (undocumented) byte field is binary, not display.

I note also that HSM Migrate/Recall preserves the (FAMS?) timestamp;
IEBCOPY Unload/Load resets it to the reload time.

-- 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: Question About the Binder SETSSI statement

2021-01-03 Thread Paul Gilmartin
On Sun, 3 Jan 2021 17:27:25 +, Seymour J Metz wrote:

>I would guess that PDS86 uses DESERV with EXT_ATTR=YES.
> 
Thanks.  Would that be?:

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.idas300/s3254.htm
...
66 (X'42')  4   PMARL_DATE  Date saved
70 (X'46')  4   PMARL_TIME  Time saved

I notice that NFS server returns time with sub-microsecond precision.'
Possible if the (undocumented) byte field is binary, not display.

I note also that HSM Migrate/Recall preserves the (FAMS?) timestamp;
IEBCOPY Unload/Load resets it to the reload time.

-- gil

--
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 Binder SETSSI statement

2021-01-03 Thread Seymour J Metz
I would guess that PDS86 uses DESERV with EXT_ATTR=YES.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Saturday, January 2, 2021 10:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question About the Binder SETSSI statement

On Sun, 3 Jan 2021 13:46:56 +1100, Greg Price wrote:
>
>If you store your programs in a PDSE then REVIEW and PDS can show you
>the date/time stamp of the programs in the member list because they can
>be extracted from the directory entry (unlike for PDS load modules).
>
Is that from the directory or from FAMS?  Or are they the same thing?
Is it local or GMT?

-- 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: Question About the Binder SETSSI statement

2021-01-02 Thread Paul Gilmartin
On Sun, 3 Jan 2021 13:46:56 +1100, Greg Price wrote:
>
>If you store your programs in a PDSE then REVIEW and PDS can show you
>the date/time stamp of the programs in the member list because they can
>be extracted from the directory entry (unlike for PDS load modules).
> 
Is that from the directory or from FAMS?  Or are they the same thing?
Is it local or GMT?

-- gil

--
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 Binder SETSSI statement

2021-01-02 Thread Greg Price

On 2021-01-03 3:54 AM, esst...@juno.com wrote:

Should I see the
value of the SETSSI when I browse the load module ?


No, you should see it when you (ISPF) browse the member list because (as 
Seymour indicated) the SSI is stored in the directory entry and not in 
the member contents.


If the SSI is not in view, try left/right scrolling.

I don't think ISPF shows SSI for non-program members, but the REVIEW and 
PDS commands do.


If you store your programs in a PDSE then REVIEW and PDS can show you 
the date/time stamp of the programs in the member list because they can 
be extracted from the directory entry (unlike for PDS load modules).


Cheers,
Greg

--
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 Binder SETSSI statement

2021-01-02 Thread Seymour J Metz
AMBLIST can also give you SSI, although that is of limited utility these days.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
esst...@juno.com [esst...@juno.com]
Sent: Saturday, January 2, 2021 6:12 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question About the Binder SETSSI statement

AMBLIST with IDR worked fine

Thank You

-- Original Message --
From: Seymour J Metz 
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question About the Binder SETSSI statement
Date: Sat, 2 Jan 2021 22:10:36 +

No; SSI data are in the user portion of the directory entry. The IDR data, 
however, are in the load module itself.

I doubt that you can browse a program object, but you can use DESERV, BLDL 
gives you a simulated directory entry and there are BINDER interfaces to 
extract various data.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
esst...@juno.com [esst...@juno.com]
Sent: Saturday, January 2, 2021 11:52 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Question About the Binder SETSSI statement

.
Hello
.
I have a Question about using the Binder (linkage editor) SETSSI statement.
If I have a SETSSI Statement in  my Binder control statements, Should I see the
value of the SETSSI when I browse the load module ?
.
When I use TSO Browse to browse the load module, I  was expecting to see the 
value 00201231
The Binder output produce no error messages for SETSSI
.
//LKED.SYSLIN  DD *
 SETSSI 00201231
 ENTRY   INITRTN
 INCLUDE OBJLIB(INITRTN)
 INCLUDE OBJLIB(MQRTN)
 INCLUDE OBJLIB(VSAMRTN)
 INCLUDE OBJLIB(DB2RTN)
 INCLUDE OBJLIB(TCPRTN)
 INCLUDE OBJLIB(HEXCRTN)
 INCLUDE OBJLIB(ESTAERTN)
 NAMEINITRTN(R)
/*
.
Paul D'Angelo

--
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: Question About the Binder SETSSI statement

2021-01-02 Thread esst...@juno.com
AMBLIST with IDR worked fine

Thank You

-- Original Message --
From: Seymour J Metz 
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question About the Binder SETSSI statement
Date: Sat, 2 Jan 2021 22:10:36 +

No; SSI data are in the user portion of the directory entry. The IDR data, 
however, are in the load module itself.

I doubt that you can browse a program object, but you can use DESERV, BLDL 
gives you a simulated directory entry and there are BINDER interfaces to 
extract various data.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
esst...@juno.com [esst...@juno.com]
Sent: Saturday, January 2, 2021 11:52 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Question About the Binder SETSSI statement

.
Hello
.
I have a Question about using the Binder (linkage editor) SETSSI statement.
If I have a SETSSI Statement in  my Binder control statements, Should I see the
value of the SETSSI when I browse the load module ?
.
When I use TSO Browse to browse the load module, I  was expecting to see the 
value 00201231
The Binder output produce no error messages for SETSSI
.
//LKED.SYSLIN  DD *
 SETSSI 00201231
 ENTRY   INITRTN
 INCLUDE OBJLIB(INITRTN)
 INCLUDE OBJLIB(MQRTN)
 INCLUDE OBJLIB(VSAMRTN)
 INCLUDE OBJLIB(DB2RTN)
 INCLUDE OBJLIB(TCPRTN)
 INCLUDE OBJLIB(HEXCRTN)
 INCLUDE OBJLIB(ESTAERTN)
 NAMEINITRTN(R)
/*
.
Paul D'Angelo

--
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: Question About the Binder SETSSI statement

2021-01-02 Thread Seymour J Metz
No; SSI data are in the user portion of the directory entry. The IDR data, 
however, are in the load module itself.

I doubt that you can browse a program object, but you can use DESERV, BLDL 
gives you a simulated directory entry and there are BINDER interfaces to 
extract various data.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
esst...@juno.com [esst...@juno.com]
Sent: Saturday, January 2, 2021 11:52 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Question About the Binder SETSSI statement

.
Hello
.
I have a Question about using the Binder (linkage editor) SETSSI statement.
If I have a SETSSI Statement in  my Binder control statements, Should I see the
value of the SETSSI when I browse the load module ?
.
When I use TSO Browse to browse the load module, I  was expecting to see the 
value 00201231
The Binder output produce no error messages for SETSSI
.
//LKED.SYSLIN  DD *
 SETSSI 00201231
 ENTRY   INITRTN
 INCLUDE OBJLIB(INITRTN)
 INCLUDE OBJLIB(MQRTN)
 INCLUDE OBJLIB(VSAMRTN)
 INCLUDE OBJLIB(DB2RTN)
 INCLUDE OBJLIB(TCPRTN)
 INCLUDE OBJLIB(HEXCRTN)
 INCLUDE OBJLIB(ESTAERTN)
 NAMEINITRTN(R)
/*
.
Paul D'Angelo

--
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: Question About the Binder SETSSI statement

2021-01-02 Thread esst...@juno.com
Yes I saw Mark Jacobs reply
I will try AMBLIST

Thank You

-- Original Message --
From: Steve Smith 
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question About the Binder SETSSI statement
Date: Sat, 2 Jan 2021 12:42:19 -0500

It's not that easy to see in browse, as it's a hex value.

As Mark Jacobs, said, AMBLIST (LISTIDR) will show it, but the easiest way
to see it is to scroll an ISPF directory display to the right.

sas

--
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: Question About the Binder SETSSI statement

2021-01-02 Thread Steve Smith
It's not that easy to see in browse, as it's a hex value.

As Mark Jacobs, said, AMBLIST (LISTIDR) will show it, but the easiest way
to see it is to scroll an ISPF directory display to the right.

sas

--
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 Binder SETSSI statement

2021-01-02 Thread Mark Jacobs
Have you executed AMBLIST against the load module and see what it says about 
the SSI value?

Mark Jacobs

Sent from ProtonMail, Swiss-based encrypted email.

GPG Public Key - 
https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com

‐‐‐ Original Message ‐‐‐

On Saturday, January 2nd, 2021 at 11:52 AM, esst...@juno.com  
wrote:

> .
>
> Hello
>
> .
>
> I have a Question about using the Binder (linkage editor) SETSSI statement.
>
> If I have a SETSSI Statement in my Binder control statements, Should I see the
>
> value of the SETSSI when I browse the load module ?
>
> .
>
> When I use TSO Browse to browse the load module, I was expecting to see the 
> value 00201231
>
> The Binder output produce no error messages for SETSSI
>
> .
>
> //LKED.SYSLIN DD *
>
> SETSSI 00201231
>
> ENTRY INITRTN
>
> INCLUDE OBJLIB(INITRTN)
>
> INCLUDE OBJLIB(MQRTN)
>
> INCLUDE OBJLIB(VSAMRTN)
>
> INCLUDE OBJLIB(DB2RTN)
>
> INCLUDE OBJLIB(TCPRTN)
>
> INCLUDE OBJLIB(HEXCRTN)
>
> INCLUDE OBJLIB(ESTAERTN)
>
> NAME INITRTN(R)
>
> /*
>
> .
>
> Paul D'Angelo
>
> ---
>
> 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


Question About the Binder SETSSI statement

2021-01-02 Thread esst...@juno.com
.
Hello
.
I have a Question about using the Binder (linkage editor) SETSSI statement.
If I have a SETSSI Statement in  my Binder control statements, Should I see the 
value of the SETSSI when I browse the load module ?
.
When I use TSO Browse to browse the load module, I  was expecting to see the 
value 00201231
The Binder output produce no error messages for SETSSI
. 
//LKED.SYSLIN  DD *   
 SETSSI 00201231  
 ENTRY   INITRTN  
 INCLUDE OBJLIB(INITRTN)  
 INCLUDE OBJLIB(MQRTN)
 INCLUDE OBJLIB(VSAMRTN)  
 INCLUDE OBJLIB(DB2RTN)   
 INCLUDE OBJLIB(TCPRTN)   
 INCLUDE OBJLIB(HEXCRTN) 
 INCLUDE OBJLIB(ESTAERTN) 
 NAMEINITRTN(R)   
/*
.
Paul D'Angelo

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


Re: Silly question - can one force IDCAMS PRINT to show printable lower case characters?

2020-12-13 Thread Seymour J Metz
If IDCAMS REPRO does any translation, it should be under the user's control.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Hobart Spitz [orexx...@gmail.com]
Sent: Sunday, December 13, 2020 8:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly question - can one force IDCAMS PRINT to show printable 
lower case characters?

REPRO?

On Saturday, December 12, 2020, Seymour J Metz  wrote:

> CCSID would determine which characters were treated as valid. I would not
> expect IDCAMS to second guess the user's InfoPrint parameters.
>
> Ideally there should be a common print validation service and every
> utility would have a parameter to pass it.
>
> As long as the utilities attempt to redact "unprintable" data, they should
> allow the user to control that redaction, regardless of how many other
> places have a CCSID option. Especially a CCSID parameter documented as
> being applicable only to tape.
>
> How is DASD an excuse for translating characters that the user considers
> valid to periods? I don't care if it's legacy DASD, SYSOUT or Unix path,
> the user should be able to control the translation.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
> Sent: Saturday, December 12, 2020 7:24 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Silly question - can one force IDCAMS PRINT to show printable
> lower case characters?
>
> On Sat, 12 Dec 2020 23:40:52 +, Seymour J Metz wrote:
>
> >I might believe lost in the world of 3211; the 3211 is older than IDCAMS.
> Shirley it's time to add a CCSID operand.
> >
> What would CCSID do?  What implementation do you envision?
> Would it interface to InfoPrint?  Shouldn't every utility have one?
> But that's redundant; it should be an option on DD SYSOUT.
> DD, EXEC, and JOB already have a CCSID option.  Is that enough?
>
> And if SYSPRINT is DASD, it should just pass the data unfiltered.
>
> BitSavers reinforces my conjecture.  Something you don't want in a
> production job:
> http://secure-web.cisco.com/1WhhAX4GjxhomdW3zmNfgT472Yr6nQ
> hRZO040EgqFcFvPBMsDPxogfvqMO12NQs36E2Lf8gEmkDkccMSTqwEn22FDx
> fabOAdb9sSzzpmB-xLwJnTd8s0I4b9wVTIf0YIGlbUnRiA
> zzGGuj70uPltjgBdpcAQD3hM1RWi8kVLFAnzpfZI1-qtzSoC0tniJheFaqIvC82btQ5mIONu
> QYT_xpuDWMvGGdUjRSGL9FImMDx_75jgCFL2ZMBBktTpOE9u1wCgOPfs_
> 9yaGHJ-C-WuKzYLleg8tqOQOg-XcMKs15NG3euVyj0GQw2OiD2ueoIZW
> J7M0XyKZpOPrBTvXbLGr9WXF93UHmZ3y5NjnJZpxcjkFG8_3iC6cs8Jn3Ud4f-
> CCsiRjoKzqaHZ7tXHzsMIikG1gcxJ0BUwzivOPmilFUZ7RuB7rHgBZdogbSO
> d9bt9X/http%3A%2F%2Fhttp://secure-web.cisco.com/1FFZS_PZ56lv9HYYfycEmaxuXw5HNkIcZb_zZqscxKmAQru9IlzGRhDzDHJE-JdonQPKXNeiXQwVLP2QojqMYBhSWeKlaObLefsZqBGFHsIT9ZleXUk_OD7P-AefOJeqP_Ykkv6qZ3HPCdTCp0Ci99OvQllTezEFSjgcqq-t6V4eAQJBi9bZJRxc6ndmKX5REXHkZ10j0Vy7OD_sMPjjRoUu1gAeaJ6jZoz93BEmr4yMV9CM_Qf_JtTuaOUuA2cEQ4tFlZ_bnJgMEfM9k8w3AE6DqgTOeRsA65-tSeBhxFxikTNxyAmfhuDNhYpF5hw6aIL5pmhH6GG2DCrtS_oUShKhY5vIn5q87CT2GAgh2pKsuvF87-UzKH7Omfu-H9elGoeSXi4k4Ii6IOPqCVU-rhxdDJdJvmEY4qIsMibjaUTyd2l94JSziSAUSyDcqdw0W/http%3A%2F%2Fwww.bitsavers.org%2Fpdf%2Fibm%
> 2F1403%2FGA24-3073-8_1403_printer.pdf
>
> Data Check (Sense Bit 4)
> Data check indicates that a code in a data record sent to the printer does
> not match a code in the Universal Character
> Set (UCS) feature storage. Printing does not occur in the
> print position to which the unmatching code applies. The entire line
> (except for the data check position) OIr only a portion of the line may be
> printed. Therefore, the last
> printed line may contain erroneous data and/or an incomplete record. Data
> check usually indicates that the UCS storage
> was improperly loaded or that a data record code (other than blank or
> null) does not compare to any code in the UCS storage.
> Provide an operator message and exit from this error- recovery procedure.
> The operator should then:
> 1. Accept the record and indicate that the application
> program is to proceed without further retry of the
> command, or
> 2. Restart the application program from a logical
> point.
> If the error persists, a call should be made to a service
> representative.
>
> -- 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 inst

Re: Silly question - can one force IDCAMS PRINT to show printable lower case characters?

2020-12-13 Thread Hobart Spitz
REPRO?

On Saturday, December 12, 2020, Seymour J Metz  wrote:

> CCSID would determine which characters were treated as valid. I would not
> expect IDCAMS to second guess the user's InfoPrint parameters.
>
> Ideally there should be a common print validation service and every
> utility would have a parameter to pass it.
>
> As long as the utilities attempt to redact "unprintable" data, they should
> allow the user to control that redaction, regardless of how many other
> places have a CCSID option. Especially a CCSID parameter documented as
> being applicable only to tape.
>
> How is DASD an excuse for translating characters that the user considers
> valid to periods? I don't care if it's legacy DASD, SYSOUT or Unix path,
> the user should be able to control the translation.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
> Sent: Saturday, December 12, 2020 7:24 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Silly question - can one force IDCAMS PRINT to show printable
> lower case characters?
>
> On Sat, 12 Dec 2020 23:40:52 +, Seymour J Metz wrote:
>
> >I might believe lost in the world of 3211; the 3211 is older than IDCAMS.
> Shirley it's time to add a CCSID operand.
> >
> What would CCSID do?  What implementation do you envision?
> Would it interface to InfoPrint?  Shouldn't every utility have one?
> But that's redundant; it should be an option on DD SYSOUT.
> DD, EXEC, and JOB already have a CCSID option.  Is that enough?
>
> And if SYSPRINT is DASD, it should just pass the data unfiltered.
>
> BitSavers reinforces my conjecture.  Something you don't want in a
> production job:
> http://secure-web.cisco.com/1WhhAX4GjxhomdW3zmNfgT472Yr6nQ
> hRZO040EgqFcFvPBMsDPxogfvqMO12NQs36E2Lf8gEmkDkccMSTqwEn22FDx
> fabOAdb9sSzzpmB-xLwJnTd8s0I4b9wVTIf0YIGlbUnRiA
> zzGGuj70uPltjgBdpcAQD3hM1RWi8kVLFAnzpfZI1-qtzSoC0tniJheFaqIvC82btQ5mIONu
> QYT_xpuDWMvGGdUjRSGL9FImMDx_75jgCFL2ZMBBktTpOE9u1wCgOPfs_
> 9yaGHJ-C-WuKzYLleg8tqOQOg-XcMKs15NG3euVyj0GQw2OiD2ueoIZW
> J7M0XyKZpOPrBTvXbLGr9WXF93UHmZ3y5NjnJZpxcjkFG8_3iC6cs8Jn3Ud4f-
> CCsiRjoKzqaHZ7tXHzsMIikG1gcxJ0BUwzivOPmilFUZ7RuB7rHgBZdogbSO
> d9bt9X/http%3A%2F%2Fwww.bitsavers.org%2Fpdf%2Fibm%
> 2F1403%2FGA24-3073-8_1403_printer.pdf
>
> Data Check (Sense Bit 4)
> Data check indicates that a code in a data record sent to the printer does
> not match a code in the Universal Character
> Set (UCS) feature storage. Printing does not occur in the
> print position to which the unmatching code applies. The entire line
> (except for the data check position) OIr only a portion of the line may be
> printed. Therefore, the last
> printed line may contain erroneous data and/or an incomplete record. Data
> check usually indicates that the UCS storage
> was improperly loaded or that a data record code (other than blank or
> null) does not compare to any code in the UCS storage.
> Provide an operator message and exit from this error- recovery procedure.
> The operator should then:
> 1. Accept the record and indicate that the application
> program is to proceed without further retry of the
> command, or
> 2. Restart the application program from a logical
> point.
> If the error persists, a call should be made to a service
> representative.
>
> -- 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
>


-- 
OREXXMan
JCL is the buggy whip of 21st century computing.  Stabilize it.
Put Pipelines in the z/OS base.  Would you rather process data in move mode
or locate mode?
IBM has been looking for an HLL for program products; REXX is that language.

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


Re: Silly question - can one force IDCAMS PRINT to show printable lower case characters?

2020-12-12 Thread Seymour J Metz
CCSID would determine which characters were treated as valid. I would not 
expect IDCAMS to second guess the user's InfoPrint parameters.

Ideally there should be a common print validation service and every utility 
would have a parameter to pass it.

As long as the utilities attempt to redact "unprintable" data, they should 
allow the user to control that redaction, regardless of how many other places 
have a CCSID option. Especially a CCSID parameter documented as being 
applicable only to tape.

How is DASD an excuse for translating characters that the user considers valid 
to periods? I don't care if it's legacy DASD, SYSOUT or Unix path, the user 
should be able to control the translation.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Saturday, December 12, 2020 7:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly question - can one force IDCAMS PRINT to show printable 
lower case characters?

On Sat, 12 Dec 2020 23:40:52 +, Seymour J Metz wrote:

>I might believe lost in the world of 3211; the 3211 is older than IDCAMS. 
>Shirley it's time to add a CCSID operand.
>
What would CCSID do?  What implementation do you envision?
Would it interface to InfoPrint?  Shouldn't every utility have one?
But that's redundant; it should be an option on DD SYSOUT.
DD, EXEC, and JOB already have a CCSID option.  Is that enough?

And if SYSPRINT is DASD, it should just pass the data unfiltered.

BitSavers reinforces my conjecture.  Something you don't want in a production 
job:

http://secure-web.cisco.com/1WhhAX4GjxhomdW3zmNfgT472Yr6nQhRZO040EgqFcFvPBMsDPxogfvqMO12NQs36E2Lf8gEmkDkccMSTqwEn22FDxfabOAdb9sSzzpmB-xLwJnTd8s0I4b9wVTIf0YIGlbUnRiAzzGGuj70uPltjgBdpcAQD3hM1RWi8kVLFAnzpfZI1-qtzSoC0tniJheFaqIvC82btQ5mIONuQYT_xpuDWMvGGdUjRSGL9FImMDx_75jgCFL2ZMBBktTpOE9u1wCgOPfs_9yaGHJ-C-WuKzYLleg8tqOQOg-XcMKs15NG3euVyj0GQw2OiD2ueoIZWJ7M0XyKZpOPrBTvXbLGr9WXF93UHmZ3y5NjnJZpxcjkFG8_3iC6cs8Jn3Ud4f-CCsiRjoKzqaHZ7tXHzsMIikG1gcxJ0BUwzivOPmilFUZ7RuB7rHgBZdogbSOd9bt9X/http%3A%2F%2Fwww.bitsavers.org%2Fpdf%2Fibm%2F1403%2FGA24-3073-8_1403_printer.pdf

Data Check (Sense Bit 4)
Data check indicates that a code in a data record sent to the printer does not 
match a code in the Universal Character
Set (UCS) feature storage. Printing does not occur in the
print position to which the unmatching code applies. The entire line (except 
for the data check position) OIr only a portion of the line may be printed. 
Therefore, the last
printed line may contain erroneous data and/or an incomplete record. Data check 
usually indicates that the UCS storage
was improperly loaded or that a data record code (other than blank or null) 
does not compare to any code in the UCS storage.
Provide an operator message and exit from this error- recovery procedure. The 
operator should then:
1. Accept the record and indicate that the application
program is to proceed without further retry of the
command, or
2. Restart the application program from a logical
point.
If the error persists, a call should be made to a service
representative.

-- 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: Silly question - can one force IDCAMS PRINT to show printable lower case characters?

2020-12-12 Thread Paul Gilmartin
On Sat, 12 Dec 2020 23:40:52 +, Seymour J Metz wrote:

>I might believe lost in the world of 3211; the 3211 is older than IDCAMS. 
>Shirley it's time to add a CCSID operand.
> 
What would CCSID do?  What implementation do you envision?
Would it interface to InfoPrint?  Shouldn't every utility have one?
But that's redundant; it should be an option on DD SYSOUT.
DD, EXEC, and JOB already have a CCSID option.  Is that enough?

And if SYSPRINT is DASD, it should just pass the data unfiltered.

BitSavers reinforces my conjecture.  Something you don't want in a production 
job:
www.bitsavers.org/pdf/ibm/1403/GA24-3073-8_1403_printer.pdf

Data Check (Sense Bit 4)
Data check indicates that a code in a data record sent to the printer does not 
match a code in the Universal Character
Set (UCS) feature storage. Printing does not occur in the
print position to which the unmatching code applies. The entire line (except 
for the data check position) OIr only a portion of the line may be printed. 
Therefore, the last
printed line may contain erroneous data and/or an incomplete record. Data check 
usually indicates that the UCS storage
was improperly loaded or that a data record code (other than blank or null) 
does not compare to any code in the UCS storage.
Provide an operator message and exit from this error- recovery procedure. The 
operator should then:
1. Accept the record and indicate that the application
program is to proceed without further retry of the
command, or
2. Restart the application program from a logical
point.
If the error persists, a call should be made to a service
representative.

-- gil

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


Re: Silly question - can one force IDCAMS PRINT to show printable lower case characters?

2020-12-12 Thread Seymour J Metz
I might believe lost in the world of 3211; the 3211 is older than IDCAMS. 
Shirley it's time to add a CCSID operand.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Attila Fogarasi [fogar...@gmail.com]
Sent: Saturday, December 12, 2020 4:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Silly question - can one force IDCAMS PRINT to show printable 
lower case characters?

Yes, you have to switch to a print train which has lower case (since IDCAMS
is lost in the world of 1403).
PARM GRAPHICS(CHAIN(SN))  as your first IDCAM statement will switch to
printing lower case instead of periods.

On Sun, Dec 13, 2020 at 8:35 AM Binyamin Dissen 
wrote:

> Silly question - can one force IDCAMS PRINT to show printable lower case
> characters?
>
> --
> Binyamin Dissen 
> http://secure-web.cisco.com/1VfS157sCRvu2bl4qZIKzzFnZFLt7o09B94XI3fnCStgsCjFgHKDrlCzyakB44Fj3xUaBy6ZW1y5BhhE4chmJYkEnWZaoGKa4mhwl1ODFrJP3cG-E6o5N4olM5vnuPJlBFVUPQvqfGaJFLi13hPUrYQR8n5Egmlj-C3rARILkWqnDqfb6ktGOXFvcQdpnR5gst0qSbn3YDyeLr9XqyDXlRKiU70cpSUR5xdKAXwWkI7RgKRZ7coAEKFM9t6iO2HECj1JTpwwmHOAoRU1Z1GkbgY1eKZfcmrbtrEViGp7IqM53TBF_rB82_ONKeb9f8HldSLay01oz_dB3w-aeYcPj1R4RwFI0wyzwPV2a3iegAJA3RTF29Conf9N0aF5VbEk7AYyMYzUorgezrUiXewZiwPp2D0nknzTgJCFKmjZZQIdLJjQ8ba0JIsN1zGlEPud5/http%3A%2F%2Fwww.dissensoftware.com
>
> Director, Dissen Software, Bar & Grill - Israel
>
>
> Should you use the mailblocks package and expect a response from me,
> you should preauthorize the dissensoftware.com domain.
>
> I very rarely bother responding to challenge/response systems,
> especially those from irresponsible companies.
>
> --
> 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: Silly question - can one force IDCAMS PRINT to show printable lower case characters?

2020-12-12 Thread Paul Gilmartin
On Sat, 12 Dec 2020 23:34:50 +0200, Binyamin Dissen 
 wrote:

>Silly question - can one force IDCAMS PRINT to show printable lower case
>characters?
>
GRAPHICS (CHAIN(TN))/*COMMENT*/ -

Who woulda thunk it.

How come in this 21st Century this isn't the default?  I suppose a data
check caused an important cu$tomer's printer to miss a batch window.

Don't know about Hebrew.

-- gil

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


Re: Silly question - can one force IDCAMS PRINT to show printable lower case characters?

2020-12-12 Thread Attila Fogarasi
Yes, you have to switch to a print train which has lower case (since IDCAMS
is lost in the world of 1403).
PARM GRAPHICS(CHAIN(SN))  as your first IDCAM statement will switch to
printing lower case instead of periods.

On Sun, Dec 13, 2020 at 8:35 AM Binyamin Dissen 
wrote:

> Silly question - can one force IDCAMS PRINT to show printable lower case
> characters?
>
> --
> Binyamin Dissen 
> http://www.dissensoftware.com
>
> Director, Dissen Software, Bar & Grill - Israel
>
>
> Should you use the mailblocks package and expect a response from me,
> you should preauthorize the dissensoftware.com domain.
>
> I very rarely bother responding to challenge/response systems,
> especially those from irresponsible companies.
>
> --
> 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


Silly question - can one force IDCAMS PRINT to show printable lower case characters?

2020-12-12 Thread Binyamin Dissen
Silly question - can one force IDCAMS PRINT to show printable lower case
characters? 

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

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: RBOPSW question

2020-12-05 Thread Binyamin Dissen
Try using the field. Live and learn.

On Thu, 3 Dec 2020 15:21:24 -0500 Joseph Reichman 
wrote:

:>EXTENDED CONTROL PSW FROM THE RB
:>LEVEL OR LINKAGE STACK LEVEL WHICH
:>CREATED THE ESTAE EXIT AT THE TIME IT
:>LAST INCURRED AN INTERRUPT OR 0 FOR
:>ESTAI. OR PSW USED TO GIVE FRR
:>CONTROL
:>
:>
:>Trying to understand this Text this PSW SDWAEC2 is The from the RB which
:>created the ESTAE I guess my PRB 
:>It says at the time it last incurred interrupt (that interrupt was caused by
:>SDWARBAD ? )
:> 
:>-Original Message-
:>From: IBM Mainframe Discussion List  On Behalf Of
:>Binyamin Dissen
:>Sent: Thursday, December 3, 2020 2:56 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Re: RBOPSW question
:>
:>SDWAEC2
:>
:>On Thu, 3 Dec 2020 11:56:04 -0500 Joseph Reichman 
:>wrote:
:>
:>:>This question is related to recovery routines
:>
:>:>In the case there is SDWARBAD and SDWANAME is not there 
:>
:>:>So for example my program abended in a SVC 
:>
:>:>So RBOPSW is somewhere in that SVC
:>
:>:>The rbregs should be my program 
:>
:>:>But my question is would I have an address or could I determine from what
:>address in my program I called the SVC

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

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: RBOPSW question

2020-12-05 Thread Joseph Reichman
I appreciate your help regarding what SDWARBAD represents 

I recall having an abend in a metal C program 
Which I linked to it may well have been running in supervisor state but it was 
a user 
Program 
I am just trying to just trying to determine the case where the abend happened 
in a supervisor state program which is not mine ( where I could of passed bad 
parameters or didn’t hold a required lock )

Since my program is erroneous it would be helpful to know what piece of my code 
called it 

Thanks 



> On Dec 5, 2020, at 9:45 AM, Peter Relson  wrote:
> 
> Shmuel and Lennie and I took the time to provide the correct answer. You 
> apparently choose to ignore. Sad. 
> 
> SDWARBAD is valid only for supervisor state cases, as the comment says. 
> SDWANAME is never valid for that case. If a type 2/3/4 SVC routine blew 
> up, the RB address will be the address of the RB under which that routine 
> was running (which will be a newer RB than the RB that issued the SVC; it 
> is not necessarily the next-newer one for a case where the SVC routine 
> itself issued an SVC of some sort and that secondary SVC is what abended). 
> So you still need to find the RB that issued the SVC in order to see the 
> address of the issuer and the next-newer RB to see the regs at time of 
> issuance. If you issued a type 1 SVC, things are different.
> 
> IBM would decline an RFE for providing the time-of-last-interrupt regs in 
> the SDWA which, at best are difficult to explain and use. You of course 
> are welcome to submit it.
> We thought about the value of that when we designed 64-bit support. The 
> value was insufficient to warrant the cost (and extra storage usage -- and 
> yes that matters both in terms of just getting the storage and for having 
> room within the dump header).
> 
> Peter Relson
> z/OS Core Technology Design
> 
> 
> --
> 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: RBOPSW question

2020-12-05 Thread Peter Relson
Shmuel and Lennie and I took the time to provide the correct answer. You 
apparently choose to ignore. Sad. 

SDWARBAD is valid only for supervisor state cases, as the comment says. 
SDWANAME is never valid for that case. If a type 2/3/4 SVC routine blew 
up, the RB address will be the address of the RB under which that routine 
was running (which will be a newer RB than the RB that issued the SVC; it 
is not necessarily the next-newer one for a case where the SVC routine 
itself issued an SVC of some sort and that secondary SVC is what abended). 
So you still need to find the RB that issued the SVC in order to see the 
address of the issuer and the next-newer RB to see the regs at time of 
issuance. If you issued a type 1 SVC, things are different.

IBM would decline an RFE for providing the time-of-last-interrupt regs in 
the SDWA which, at best are difficult to explain and use. You of course 
are welcome to submit it.
We thought about the value of that when we designed 64-bit support. The 
value was insufficient to warrant the cost (and extra storage usage -- and 
yes that matters both in terms of just getting the storage and for having 
room within the dump header).

Peter Relson
z/OS Core Technology Design


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


Re: RBOPSW question

2020-12-04 Thread Joseph Reichman
RFE sorry 



> On Dec 4, 2020, at 12:55 PM, Joseph Reichman  wrote:
> 
> You are correct the 64 bit section which has the 128 bit PSW and 64 bit regs 
> has only the error at time of error not SDWASR00 and SDWASEC2 info wish it 
> would 
> 
> This would be my RFA though the SDWA is big and  doesn’t seem to have extra 
> room 
> 
>>> On Dec 4, 2020, at 12:48 PM, Tony Harminc  wrote:
>>> 
>>> On Fri, 4 Dec 2020 at 08:47, Joseph Reichman  wrote:
>>> 
>>> So to me the way to determine this is look at SDWAEC1 is this in your 
>>> program ?
>>> 
>>> How would I know this ( talking to my self)
>>> Well if the abending RB is a PRB RBTAB1 == zeros
>>> Then if RBCDE1 not = zeros get CDE get CDXLJMP extent list and using 
>>> CDENTPT and module length from xtent list you can
>>> determine if the abend is your program
>> 
>> Thing is, there are (at least) two definitions of "in your program":
>> 1) the address of the offending instruction is within your code,
>> 2) the thread of execution under which the offending instruction was
>> executed is that under which your program executes.
>> 
>> Your proposed test will give you the answer to (1), but that may or
>> may not be the answer you need. For example, anyone operating under
>> any thread of execution can take a (wild or intended) branch to code
>> in LPA, or unprotected CSA, or unprotected private storage in your
>> address space. In which case discovering that the failure occurred "in
>> your program(1)" will at best be wrong, and at worst will mislead you
>> as to the cause.
>> 
>> In passing, while I'm not current on this, I believe that the
>> traditional way of examining the CDE/XL structures will not support
>> code that was either loaded from a UNIX file, or is located in 64-bit
>> storage. Even if you don't care about these cases you/your debugging
>> code should probably check for them before announcing conclusions.
>> 
>> Tony H.
>> 
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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


Re: RBOPSW question

2020-12-04 Thread Joseph Reichman
You are correct the 64 bit section which has the 128 bit PSW and 64 bit regs 
has only the error at time of error not SDWASR00 and SDWASEC2 info wish it 
would 

This would be my RFA though the SDWA is big and  doesn’t seem to have extra 
room 

> On Dec 4, 2020, at 12:48 PM, Tony Harminc  wrote:
> 
> On Fri, 4 Dec 2020 at 08:47, Joseph Reichman  wrote:
> 
>> So to me the way to determine this is look at SDWAEC1 is this in your 
>> program ?
>> 
>> How would I know this ( talking to my self)
>> Well if the abending RB is a PRB RBTAB1 == zeros
>> Then if RBCDE1 not = zeros get CDE get CDXLJMP extent list and using CDENTPT 
>> and module length from xtent list you can
>> determine if the abend is your program
> 
> Thing is, there are (at least) two definitions of "in your program":
> 1) the address of the offending instruction is within your code,
> 2) the thread of execution under which the offending instruction was
> executed is that under which your program executes.
> 
> Your proposed test will give you the answer to (1), but that may or
> may not be the answer you need. For example, anyone operating under
> any thread of execution can take a (wild or intended) branch to code
> in LPA, or unprotected CSA, or unprotected private storage in your
> address space. In which case discovering that the failure occurred "in
> your program(1)" will at best be wrong, and at worst will mislead you
> as to the cause.
> 
> In passing, while I'm not current on this, I believe that the
> traditional way of examining the CDE/XL structures will not support
> code that was either loaded from a UNIX file, or is located in 64-bit
> storage. Even if you don't care about these cases you/your debugging
> code should probably check for them before announcing conclusions.
> 
> Tony H.
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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


Re: RBOPSW question

2020-12-04 Thread Tony Harminc
On Fri, 4 Dec 2020 at 08:47, Joseph Reichman  wrote:

> So to me the way to determine this is look at SDWAEC1 is this in your program 
> ?
>
> How would I know this ( talking to my self)
> Well if the abending RB is a PRB RBTAB1 == zeros
> Then if RBCDE1 not = zeros get CDE get CDXLJMP extent list and using CDENTPT 
> and module length from xtent list you can
> determine if the abend is your program

Thing is, there are (at least) two definitions of "in your program":
1) the address of the offending instruction is within your code,
2) the thread of execution under which the offending instruction was
executed is that under which your program executes.

Your proposed test will give you the answer to (1), but that may or
may not be the answer you need. For example, anyone operating under
any thread of execution can take a (wild or intended) branch to code
in LPA, or unprotected CSA, or unprotected private storage in your
address space. In which case discovering that the failure occurred "in
your program(1)" will at best be wrong, and at worst will mislead you
as to the cause.

In passing, while I'm not current on this, I believe that the
traditional way of examining the CDE/XL structures will not support
code that was either loaded from a UNIX file, or is located in 64-bit
storage. Even if you don't care about these cases you/your debugging
code should probably check for them before announcing conclusions.

Tony H.

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


Re: RBOPSW question

2020-12-04 Thread Joseph Reichman
Good idea saw presentation. Share 2010 Vic Gottwald how to write your first 
Estae would like to see how to debug when SDWARBAD is available 



> On Dec 4, 2020, at 9:29 AM, Seymour J Metz  wrote:
> 
> This thread has suggested to me a broader question: has Mr. Ng or someone 
> else updated his Share diagnostics presentations for z/OS? That would be a 
> great resource to point people to.
> 
> Debugging can be a "bicycle problem"; there are things that are easy to do 
> but hard to teach.
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Peter Relson [rel...@us.ibm.com]
> Sent: Friday, December 4, 2020 8:26 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: RBOPSW question
> 
> If you want to find "what address issued the SVC", the answers are what
> Shmuel and Lennie mentioned
> 
> -- for a type 2/3/4 SVC, follow the RB chain from new to old until you
> find the RB that issued the SVC (the SVC number is in the RB prefix).
> or
> -- look in the system trace
> 
> Peter Relson
> z/OS Core Technology Design
> 
> 
> --
> 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: RBOPSW question

2020-12-04 Thread Seymour J Metz
This thread has suggested to me a broader question: has Mr. Ng or someone else 
updated his Share diagnostics presentations for z/OS? That would be a great 
resource to point people to.

Debugging can be a "bicycle problem"; there are things that are easy to do but 
hard to teach.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Peter Relson [rel...@us.ibm.com]
Sent: Friday, December 4, 2020 8:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RBOPSW question

If you want to find "what address issued the SVC", the answers are what
Shmuel and Lennie mentioned

-- for a type 2/3/4 SVC, follow the RB chain from new to old until you
find the RB that issued the SVC (the SVC number is in the RB prefix).
or
-- look in the system trace

Peter Relson
z/OS Core Technology Design


--
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: RBOPSW question

2020-12-04 Thread Joseph Reichman
I got an abend yesterday and I’m focusing on the situation if I have SDWARBAD 
as opposed SDWANAME 

If noticed when doing links to a module that I sometimes I get a RB address as 
opposed to a program name. So it’s not necessarily true if the SDWA has an RB 
instead of a program name that the abend occurred In a z/os module right ?

So to me the way to determine this is look at SDWAEC1 is this in your program ?

How would I know this ( talking to my self)
Well if the abending RB is a PRB RBTAB1 == zeros 
Then if RBCDE1 not = zeros get CDE get CDXLJMP extent list and using CDENTPT 
and module length from xtent list you can determine if the abend is your 
program 

Hope this makes sense 

Thanks 



> On Dec 4, 2020, at 8:26 AM, Peter Relson  wrote:
> 
> If you want to find "what address issued the SVC", the answers are what 
> Shmuel and Lennie mentioned
> 
> -- for a type 2/3/4 SVC, follow the RB chain from new to old until you 
> find the RB that issued the SVC (the SVC number is in the RB prefix). 
> or 
> -- look in the system trace
> 
> Peter Relson
> z/OS Core Technology Design
> 
> 
> --
> 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: RBOPSW question

2020-12-04 Thread Peter Relson
If you want to find "what address issued the SVC", the answers are what 
Shmuel and Lennie mentioned

-- for a type 2/3/4 SVC, follow the RB chain from new to old until you 
find the RB that issued the SVC (the SVC number is in the RB prefix). 
or 
-- look in the system trace

Peter Relson
z/OS Core Technology Design


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


Re: RBOPSW question

2020-12-03 Thread Lennie Dymoke-Bradshaw
I usually look in the system trace for that information.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Joseph Reichman
Sent: 03 December 2020 17:14
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RBOPSW question

I know for sure I’m going to say something stupid but the PRB for my program is 
when the program started 

I’ll look at it up thanks 

> On Dec 3, 2020, at 12:06 PM, Seymour J Metz  wrote:
> 
> From force of habit, I normally look at the RB chain. The PRB for your 
> program contains the PSW and the SVRB for for the SVC contains the registers. 
> If you can find a copy of Jerry Ng's excellent diagnostic presentation at 
> Share, I suggest that you read it.
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on 
> behalf of Joseph Reichman [reichman...@gmail.com]
> Sent: Thursday, December 3, 2020 11:56 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: RBOPSW question
> 
> Hi
> 
> This question is related to recovery routines
> 
> In the case there is SDWARBAD and SDWANAME is not there
> 
> So for example my program abended in a SVC
> 
> So RBOPSW is somewhere in that SVC
> 
> The rbregs should be my program
> 
> But my question is would I have an address or could I determine from 
> what address in my program I called the SVC
> 
> Thanks
> 
> --
> 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: RBOPSW question

2020-12-03 Thread Joseph Reichman
EXTENDED CONTROL PSW FROM THE RB
LEVEL OR LINKAGE STACK LEVEL WHICH
CREATED THE ESTAE EXIT AT THE TIME IT
LAST INCURRED AN INTERRUPT OR 0 FOR
ESTAI. OR PSW USED TO GIVE FRR
CONTROL


Trying to understand this Text this PSW SDWAEC2 is The from the RB which
created the ESTAE I guess my PRB 
It says at the time it last incurred interrupt (that interrupt was caused by
SDWARBAD ? )
 
-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Binyamin Dissen
Sent: Thursday, December 3, 2020 2:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RBOPSW question

SDWAEC2

On Thu, 3 Dec 2020 11:56:04 -0500 Joseph Reichman 
wrote:

:>This question is related to recovery routines

:>In the case there is SDWARBAD and SDWANAME is not there 

:>So for example my program abended in a SVC 

:>So RBOPSW is somewhere in that SVC

:>The rbregs should be my program 

:>But my question is would I have an address or could I determine from what
address in my program I called the SVC

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

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me, you
should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems, especially
those from irresponsible companies.

--
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: RBOPSW question

2020-12-03 Thread Binyamin Dissen
SDWAEC2

On Thu, 3 Dec 2020 11:56:04 -0500 Joseph Reichman 
wrote:

:>This question is related to recovery routines

:>In the case there is SDWARBAD and SDWANAME is not there 

:>So for example my program abended in a SVC 

:>So RBOPSW is somewhere in that SVC

:>The rbregs should be my program 

:>But my question is would I have an address or could I determine from what 
address in my program I called the SVC

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

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

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


Re: RBOPSW question

2020-12-03 Thread Joseph Reichman
I know for sure I’m going to say something stupid but the PRB for my program is 
when the program started 

I’ll look at it up thanks 

> On Dec 3, 2020, at 12:06 PM, Seymour J Metz  wrote:
> 
> From force of habit, I normally look at the RB chain. The PRB for your 
> program contains the PSW and the SVRB for for the SVC contains the registers. 
> If you can find a copy of Jerry Ng's excellent diagnostic presentation at 
> Share, I suggest that you read it.
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Joseph Reichman [reichman...@gmail.com]
> Sent: Thursday, December 3, 2020 11:56 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: RBOPSW question
> 
> Hi
> 
> This question is related to recovery routines
> 
> In the case there is SDWARBAD and SDWANAME is not there
> 
> So for example my program abended in a SVC
> 
> So RBOPSW is somewhere in that SVC
> 
> The rbregs should be my program
> 
> But my question is would I have an address or could I determine from what 
> address in my program I called the SVC
> 
> Thanks
> 
> --
> 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: RBOPSW question

2020-12-03 Thread Seymour J Metz
>From force of habit, I normally look at the RB chain. The PRB for your program 
>contains the PSW and the SVRB for for the SVC contains the registers. If you 
>can find a copy of Jerry Ng's excellent diagnostic presentation at Share, I 
>suggest that you read it.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Joseph Reichman [reichman...@gmail.com]
Sent: Thursday, December 3, 2020 11:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: RBOPSW question

Hi

This question is related to recovery routines

In the case there is SDWARBAD and SDWANAME is not there

So for example my program abended in a SVC

So RBOPSW is somewhere in that SVC

The rbregs should be my program

But my question is would I have an address or could I determine from what 
address in my program I called the SVC

Thanks

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


RBOPSW question

2020-12-03 Thread Joseph Reichman
Hi 

This question is related to recovery routines

In the case there is SDWARBAD and SDWANAME is not there 

So for example my program abended in a SVC 

So RBOPSW is somewhere in that SVC

The rbregs should be my program 

But my question is would I have an address or could I determine from what 
address in my program I called the SVC

Thanks 

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


Re: System Boost Question

2020-11-30 Thread Kevin Mckenzie
Not in any meaningful sense, no, it isn’t possible.  There are two
varieties of System Recovery Boost:  longer boosts, that happen during IPL
and shutdown, and short boosts that happen in response to certain sysplex
events.  It's not something you can trigger whenever you want to.

---
Kevin McKenzie

External Phone: 845-435-8282, Tie-line: 8-295-8282
z/OS Test Services - Test Architect, Provisioning
z/OS Hardware/Software Interlock

There’s a White Paper that goes into much detail here:
https://ibm.biz/z15SRBWhitePaper.


IBM Mainframe Discussion List  wrote on
11/28/2020 02:01:40 PM:

> From: Gadi Ben-Avi 
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 11/28/2020 02:02 PM
> Subject: [EXTERNAL] System Boost Question
> Sent by: IBM Mainframe Discussion List 
>
> We are to take delivery of a z15-t02.
> I have a question about system boost.
> A few months ago, as part of upgrading CICS, we shut down all of our
> CICS regions in order to upgrade the CICS SVC.
>
> We are running z/OS v2.3
>
> Could we use SYSTEM boost to make the process of shutting down the
> CICS region and restarting them?
> Would it be 'legal'?
>
> Thanks
>
> Gadi
>
> --
> 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: System Boost Question

2020-11-29 Thread Gadi Ben-Avi
We also restart CICS every night (at least some regions).
But that happens in the middle of the night (at 3 am, I think).
This was a special case where I wanted to finish as soon as possible.

Gadi

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Martin Packer
Sent: Sunday, November 29, 2020 5:19 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: System Boost Question

I would also point out quite a few customers restart CICS on a daily (sometimes 
weekly) basis. They IPL much less frequently (likewise structure recovery etc).

I should imagine therefore there would have to be a lot of thinking around 
terms and conditions for something such as restarting CICS. At any rate, that's 
not what SRB supports.

Cheers, Martin

Martin Packer

Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

Blog: https://mainframeperformancetopics.com

Mainframe, Performance, Topics Podcast Series (With Marna Walle): 
https://anchor.fm/marna-walle

Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA



From:   Peter Relson 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   29/11/2020 13:11
Subject:[EXTERNAL] Re: System Boost Question
Sent by:IBM Mainframe Discussion List 




Could we use SYSTEM boost to make the process of shutting down the CICS region 
and restarting them?
 

That would not be an appropriate use of the shutdown boost. Shutdown boost 

is for shutting down the entire system.


Note that IBM also has a separate feature called "System Recovery Boost 
Upgrade" which is unrelated to "System Recovery Boost" ... it is more like 
CUoD.  That is a paid feature and gives a 6 hour boost in processing speed. 


"Gives a 6 hour boost in processing speed" is not a good characterization of 
System Recovery Boost Upgrade.  It does not do so. Each activation (and 

the upgrade covers multiple) gives you a 6 hour window during which additional 
processors can be applied to each LPAR when that LPAR is starting up or 
shutting down. It is during the startup and the shutdown that the additional 
processors can participate.

Peter Relson
z/OS Core Technology Design


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




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

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


Re: System Boost Question

2020-11-29 Thread Gadi Ben-Avi
Yes, You can update the CICS SVC without an IPL.
There is a program supplied with CICS to do it.
Look for DFHCSVCJ in the CICS samplib.

Gadi

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Clark Morris
Sent: Sunday, November 29, 2020 7:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: System Boost Question

[Default] On 28 Nov 2020 11:02:02 -0800, in bit.listserv.ibm-main 
gad...@malam.com (Gadi Ben-Avi) wrote:

>We are to take delivery of a z15-t02.
>I have a question about system boost.
>A few months ago, as part of upgrading CICS, we shut down all of our CICS 
>regions in order to upgrade the CICS SVC.
>
>We are running z/OS v2.3
>
>Could we use SYSTEM boost to make the process of shutting down the CICS region 
>and restarting them?
>Would it be 'legal'?
>
Can you upgrade the CICS SVC without an IPL?

Clark Morris
>Thanks
>
>Gadi
>
>--
>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: System Boost Question

2020-11-29 Thread Clark Morris
[Default] On 28 Nov 2020 11:02:02 -0800, in bit.listserv.ibm-main
gad...@malam.com (Gadi Ben-Avi) wrote:

>We are to take delivery of a z15-t02.
>I have a question about system boost.
>A few months ago, as part of upgrading CICS, we shut down all of our CICS 
>regions in order to upgrade the CICS SVC.
>
>We are running z/OS v2.3
>
>Could we use SYSTEM boost to make the process of shutting down the CICS region 
>and restarting them?
>Would it be 'legal'?
>
Can you upgrade the CICS SVC without an IPL?

Clark Morris
>Thanks
>
>Gadi
>
>--
>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: System Boost Question

2020-11-29 Thread Martin Packer
I would also point out quite a few customers restart CICS on a daily 
(sometimes weekly) basis. They IPL much less frequently (likewise 
structure recovery etc).

I should imagine therefore there would have to be a lot of thinking around 
terms and conditions for something such as restarting CICS. At any rate, 
that's not what SRB supports.

Cheers, Martin

Martin Packer

Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

Blog: https://mainframeperformancetopics.com

Mainframe, Performance, Topics Podcast Series (With Marna Walle): 
https://anchor.fm/marna-walle

Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA



From:   Peter Relson 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   29/11/2020 13:11
Subject:[EXTERNAL] Re: System Boost Question
Sent by:IBM Mainframe Discussion List 




Could we use SYSTEM boost to make the process of shutting down the CICS 
region and restarting them?
 

That would not be an appropriate use of the shutdown boost. Shutdown boost 

is for shutting down the entire system.


Note that IBM also has a separate feature called "System Recovery Boost 
Upgrade" which is unrelated to "System Recovery Boost" ... it is more like
CUoD.  That is a paid feature and gives a 6 hour boost in processing 
speed. 


"Gives a 6 hour boost in processing speed" is not a good characterization 
of System Recovery Boost Upgrade.  It does not do so. Each activation (and 

the upgrade covers multiple) gives you a 6 hour window during which 
additional processors can be applied to each LPAR when that LPAR is 
starting up or shutting down. It is during the startup and the shutdown 
that the additional processors can participate.

Peter Relson
z/OS Core Technology Design


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




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: System Boost Question

2020-11-29 Thread Peter Relson

Could we use SYSTEM boost to make the process of shutting down the CICS 
region and restarting them?
 

That would not be an appropriate use of the shutdown boost. Shutdown boost 
is for shutting down the entire system.


Note that IBM also has a separate feature called "System Recovery Boost 
Upgrade" which is unrelated to "System Recovery Boost" ... it is more like
CUoD.  That is a paid feature and gives a 6 hour boost in processing 
speed.  


"Gives a 6 hour boost in processing speed" is not a good characterization 
of System Recovery Boost Upgrade.  It does not do so. Each activation (and 
the upgrade covers multiple) gives you a 6 hour window during which 
additional processors can be applied to each LPAR when that LPAR is 
starting up or shutting down. It is during the startup and the shutdown 
that the additional processors can participate.

Peter Relson
z/OS Core Technology Design


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


Re: System Boost Question

2020-11-28 Thread Attila Fogarasi
Great questionIBM's answer is that System Recovery Boost is for the
whole system restart (IPL) and not for just a subsystem while the rest of
the lpar keeps running normally.  You activate the shutdown boost by
starting IEASDBS (shut down boost start) and this causes WLM to stop
scheduling work in that lpar along with other preparations for shutdown.
You can stop shutdown boost before shutdown is complete but WLM will not
resume scheduling work into that lpar.  The expectation is that an IPL will
be done to clear it.
It would seem unsuitable for your use case of recycling CICS without IPL.
Note that IBM also has a separate feature called "System Recovery Boost
Upgrade" which is unrelated to "System Recovery Boost" ... it is more like
CUoD.  That is a paid feature and gives a 6 hour boost in processing
speed.  That might be suitable for your use case -- check with IBM -- but
the cost will be high.

On Sun, Nov 29, 2020 at 6:02 AM Gadi Ben-Avi  wrote:

> We are to take delivery of a z15-t02.
> I have a question about system boost.
> A few months ago, as part of upgrading CICS, we shut down all of our CICS
> regions in order to upgrade the CICS SVC.
>
> We are running z/OS v2.3
>
> Could we use SYSTEM boost to make the process of shutting down the CICS
> region and restarting them?
> Would it be 'legal'?
>
> Thanks
>
> Gadi
>
> --
> 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


System Boost Question

2020-11-28 Thread Gadi Ben-Avi
We are to take delivery of a z15-t02.
I have a question about system boost.
A few months ago, as part of upgrading CICS, we shut down all of our CICS 
regions in order to upgrade the CICS SVC.

We are running z/OS v2.3

Could we use SYSTEM boost to make the process of shutting down the CICS region 
and restarting them?
Would it be 'legal'?

Thanks

Gadi

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


Re: question about dataspace scope=all and Yes I read extended addressability pages 124 - 129 a few times

2020-11-10 Thread Joseph Reichman
Thanks I initially got an 067 rc 4 abend after the SRB returned the STOKEN and 
I added it to the callers ( caller of SRB ) DUAL however I then had The SRB of 
the target address space add it to its PASN-AL 

A nice feature I’m able to look at the data with TESTAUTH list with alet 
operand 
Which I populate in the callers address space 
Peter please don’t change this I’m just a working stiff and can’t afford XDC

Thanks 


> On Nov 10, 2020, at 9:15 AM, Peter Relson  wrote:
> 
> It is made clear that access to a SCOPE=ALL data space (as with a 
> SCOPE=SINGLE data space) requires having done an ALESERV ADD to the 
> accesser's DU-AL or PASN-AL
> 
> I have no idea what you are trying to do with ALESERV ADDPASN. The 
> description of what it does is clear.  Once you have an ALET, the rules 
> for that ALET apply.
> 
> Peter Relson
> z/OS Core Technology Design
> 
> 
> --
> 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: question about dataspace scope=all and Yes I read extended addressability pages 124 - 129 a few times

2020-11-10 Thread Peter Relson
It is made clear that access to a SCOPE=ALL data space (as with a 
SCOPE=SINGLE data space) requires having done an ALESERV ADD to the 
accesser's DU-AL or PASN-AL

I have no idea what you are trying to do with ALESERV ADDPASN. The 
description of what it does is clear.  Once you have an ALET, the rules 
for that ALET apply.

Peter Relson
z/OS Core Technology Design


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


question about dataspace scope=all and Yes I read extended addressability pages 124 - 129 a few times

2020-11-09 Thread Joseph Reichman
Hi 

 

If I create a dataspace scope=all in SRB mode my TCBTOEKN points ASCBXTCB do
I have to put on the access list if I wont reference in the address space
that is was created

 

In Addition I am not quite sure ADDPASN does Initially I thought that if I
added the stoken to PASN of that address space that it was created in.

 

I could use that ALET in the address space I would like to reference with
ADDPASN 

 

Still  had problems until ALESERN PASN in the address space it was created
in and ALERSERV in the address space I reference it in with AL=WORKUNIT

 

thanks   


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


Re: Another DFSORT Question

2020-10-30 Thread Sri h Kolusu
Cameron.

I sent you an offline email with a generic solution which covers all the
issues that I raised.  Let me know if you have any questions.

Thanks
 Kolusu
DFSORT Development
IBM Corporation


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


Re: Another DFSORT Question

2020-10-30 Thread Cameron Conacher
Hello Sri,
Argh!! Yes too many assumptions...
1) True. Not thinking of DSN on a separate line.
2) True. Step names can be single characters.
3) A temporary Dataset still has a Dataset Name, or a Dataset Name
reference, right?
4) I did not know DMBATCH could have SYSIN2.
5) True. This was my attempt at ignoring any sequence numbers that might be
in 73-80.

The reason for this exercise is that in some situations, the DMNETMAP and
DMMSGFIL DataSet Names need to be modified.
The Dataset Names need to have a newer value when certain conditions are
met in the NDM control statements.
I first tried scanning all of our Control Statement libraries and found
over 80,000 possibilities.
Then I thought I could check the JCL and PROCS, and grab a list with all
the JCL/PROC Member Names and their associated DMNETMAP, DMMSGFIL, and
SYSIN dataset names.
Then from this list I could ignore the JOBs where the Dataset Names have
already been updated.
This gives me a much smaller list. Several hundred items.
Then I will need to check each of the associated SYSIN members manually to
determine if any changes may be required.

Anyway, thanks for taking some time to explain this.

On Thu, Oct 29, 2020 at 7:53 PM Sri h Kolusu  wrote:

> > The control statements below work fine. They do what I wanted.
> > Today my question is if these SORT Control statements can be optimized?
> > This is not urgent.
>
>
> Cameron,
>
> Your job definitely can be optimized.  But I want to make a observation
> that you might be skipping some results.
>
> You are assuming that the ddnames DMNETMAP and DMSGFIL have the dataset
> name on the same line.
>
> 1. ) For example if your input has the following Input, you will NOT pick
> the DSN names
>
>
>
> //DMNETMAP DD DISP=SHR,
> //DSN=$HLQ.NETMAP
> //DMPUBLIB DD DISP=SHR,
> // DD DSN=$HLQ.PROCESL
> //DMMSGFIL DD DISP=OLD,
> //DSN=$HLQ.MSG4
>
>
> 2.) Similarly the stepnames can any where from 1 byte to 8 bytes, however
> your picking bytes from 4 thru 8 . Assume the following input
>
> //S1 EXEC PGM=DMBATCH,REGION=1024K,PARM=(YYSLYNN) .
>
>
>
> 3.) What happens if SYSIN cards are generated from previous step as a temp
> dataset and passed over to DMBATCH step?
>
> ex:
>
> https://www.ibm.com/support/pages/how-submit-instream-process-jcl-using-dgadbatc-dmbatch
>
> Check how  & is generated.
>
> How do you plan to handle the & contents?
>
>
> 4.) Also the program DMBATCH can have SYSIN2 also, do you plan to extract
> the information?
>
>
> 5.)  Technically SYSIN can be a PDS with member name. So the maximum length
> of PDS+Member = 54 bytes  ( 44 Dsn name+ 8 byte member name + 2 byte for
> opening and closing parenthesis).  However your control cards don't seem to
> be handling them.
>
> Let me know the answers to be above questions and I will show you the
> optimized control cards.
>
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
>
> --
> 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: Another DFSORT Question

2020-10-29 Thread Sri h Kolusu
> The control statements below work fine. They do what I wanted.
> Today my question is if these SORT Control statements can be optimized?
> This is not urgent.


Cameron,

Your job definitely can be optimized.  But I want to make a observation
that you might be skipping some results.

You are assuming that the ddnames DMNETMAP and DMSGFIL have the dataset
name on the same line.

1. ) For example if your input has the following Input, you will NOT pick
the DSN names



//DMNETMAP DD DISP=SHR,
//DSN=$HLQ.NETMAP
//DMPUBLIB DD DISP=SHR,
// DD DSN=$HLQ.PROCESL
//DMMSGFIL DD DISP=OLD,
//DSN=$HLQ.MSG4


2.) Similarly the stepnames can any where from 1 byte to 8 bytes, however
your picking bytes from 4 thru 8 . Assume the following input

//S1 EXEC PGM=DMBATCH,REGION=1024K,PARM=(YYSLYNN) .



3.) What happens if SYSIN cards are generated from previous step as a temp
dataset and passed over to DMBATCH step?

ex:
https://www.ibm.com/support/pages/how-submit-instream-process-jcl-using-dgadbatc-dmbatch

Check how  & is generated.

How do you plan to handle the & contents?


4.) Also the program DMBATCH can have SYSIN2 also, do you plan to extract
the information?


5.)  Technically SYSIN can be a PDS with member name. So the maximum length
of PDS+Member = 54 bytes  ( 44 Dsn name+ 8 byte member name + 2 byte for
opening and closing parenthesis).  However your control cards don't seem to
be handling them.

Let me know the answers to be above questions and I will show you the
optimized control cards.


Thanks,
Kolusu
DFSORT Development
IBM Corporation


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


Another DFSORT Question

2020-10-29 Thread Cameron Conacher
Hello ,
I have put together this set of SORT control statements to scan through an
IEBPTPCH dump of a JCL or PROC PDS.
The DFSORT statements will look for any JOB Steps that execute program
DMBATCH (this is an NDM Program).
The statements will gather up some DD Statement information related to the
program.
I wanted to collect the DMNETMAP, DMMSGFIL and the SYSIN Control Statements
data set names.
The SYSIN could be a concatenated sequence of datasets.

The control statements below work fine. They do what I wanted.
Today my question is if these SORT Control statements can be optimized?
This is not urgent.
Any ideas are appreciated.

Thanks,

**

**

*  SCAN THROUGH THE IEBPTPCH STREAM AND GENERATE AN OUTPUT FILE. *

**

*  WE IGNORE ALL COMMENT RECORDS.*

*  WE ONLY SELECT RECORDS WITH THE SCANNED PDS MEMBER NAMEAND*

* RECORDS THAT EXECUTE PROCNAME  *

*  THE OUTPUT FROM THE PROCESS WILL HAVE *

* JCL/PROC LIBRARY NAME IN 001 THROUGH 003   *

* JCL/PROC MEMBER NAME  IN 005 THROUGH 012   *

* DMNETMAP DATASET NAME IN 014 THROUGH 058   *

* DMMSGFIL DATASET NAME IN 060 THROUGH 104   *

* SYSIN DATASET NAMEIN 106 THROUGH 150   *

**

**



  OMIT COND=(02,03,CH,EQ,C'//*',OR, * SKIP COMMENTS

 (02,02,CH,NE,C'//',AND,

  2,11,CH,NE,C'MEMBER NAME'))   * SKIP DATA RECORDS



*

*  THE MEMBER GROUP STARTS WITH THE "MEMBER NAME" RECORD.

*

  INREC IFTHEN=(WHEN=GROUP,

   BEGIN=(2,11,CH,EQ,C'MEMBER NAME'),

PUSH=(082:SEQ=8,* SEQUENCE #

  091:15,08)),  * JCL MEMBER NAME



*

*  THE DMBATCH GROUP APPLIES TO THE ENTIRE DMBATCH STEP.

*  IT BEGINS WITH "PGM=DMBATCH" AND WILL END AFTER THE

*  DMBATCH STEP.

*

IFTHEN=(WHEN=GROUP,

   BEGIN=(4,40,SS,EQ,C'PGM=DMBATCH'),

   END=(004,05,CH,NE,C'SYSIN',AND,

004,05,CH,NE,C' ',AND,

1PUSH=(099:04,08)),  *
STEP NAME



*

*  THE DMNETMAP GROUP APPLIES TO THE ENTIRE DMBATCH STEP.

*  IT BEGINS WITH THE DDNAME, AND ENDS WITH THE NEXT

*  EXEC STATEMENT.

*

IFTHEN=(WHEN=GROUP,

   BEGIN=(4,08,CH,EQ,C'DMNETMAP'),

   END=(4,20,SS,EQ,C' EXEC '),

PUSH=(107:21,40)),  * DMNETMAP DSN



*

*  THE DMMSGFIL GROUP APPLIES TO THE ENTIRE DMBATCH STEP.

*  IT BEGINS WITH THE DDNAME, AND ENDS WITH THE NEXT

*  EXEC STATEMENT.

*

IFTHEN=(WHEN=GROUP,

   BEGIN=(4,08,CH,EQ,C'DMMSGFIL'),

   END=(4,20,SS,EQ,C' EXEC '),

PUSH=(147:21,40)),  * DMMSGFIL DSN



*

*  GROUP STARTS WITH SYSIN DD STATEMENT AND ENDS

*  WHEN ANY CONCATENATION SEQUENCE ENDS.

*

IFTHEN=(WHEN=GROUP,

   BEGIN=(4,05,CH,EQ,C'SYSIN'),

   END=(4,05,CH,NE,C'SYSIN',AND,

4,05,CH,NE,C' '),

PUSH=(187:04,05)),  * SYSIN



IFTHEN=(WHEN=(187,05,CH,EQ,C'SYSIN',AND,* INSTREAM RECORDS

  012,40,SS,EQ,C' * '),

 BUILD=(001:JP1,* LIBRARY DATASET

C',',

005:091,08, * MEMBER NAME

C',',

014:107,40, * DMNETMAP DATASET

C',',

055:147,40, * DMMSGFIL DATASET

C',',

096:C'INSTREAM SYSIN DD * DATA',

C',',

137:099,08, * DMBATCH STEP NAME

145:C'*')),



IFTHEN=(WHEN=(187,05,CH,EQ,C'SYSIN',AND,* DATASET NAME

  017,40,SS,EQ,C'DSN='),

 BUILD=(001:JP1,* LIBRARY DATASET

C',',

005:091,08, * MEMBER NAME

C',',

014:107,40, * DMNETMAP DATASET

C',',

055:147,40, * DMMSGFIL DATASET

C',',

096:021,40, * SYSIN DATASET

C',',

137:099,08, * DMBATCH STEP NAME

   

Re: DFSORT Question

2020-10-26 Thread Martin Packer
Then I'm worried for you. :-)

Actually, this thread has been useful to me: The idea of the "portability" 
of BUILD and OVERLAY versus the older forms came to me because of it. 
We'll see how useful that actually it... :-)

Cheers, Martin

Martin Packer

Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

Blog: https://mainframeperformancetopics.com

Mainframe, Performance, Topics Podcast Series (With Marna Walle): 
https://anchor.fm/marna-walle

Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA



From:   Sri h Kolusu 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   26/10/2020 19:55
Subject:[EXTERNAL] Re: DFSORT Question
Sent by:IBM Mainframe Discussion List 



Martin,

Like minds think alike :)

Thanks,
Kolusu


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




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: DFSORT Question

2020-10-26 Thread Cameron Conacher
Thank you both.

Sent from my iPhone

> On Oct 26, 2020, at 3:55 PM, Sri h Kolusu  wrote:
> 
> Martin,
> 
> Like minds think alike :)
> 
> Thanks,
> Kolusu
> 
> 
> --
> 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: DFSORT Question

2020-10-26 Thread Sri h Kolusu
Martin,

Like minds think alike :)

Thanks,
Kolusu


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


Re: DFSORT Question

2020-10-26 Thread Sri h Kolusu
> Sri
> Could you refer me to some documentation to help me better
> understand the differences between BUILD and OVERLAY?

Cameron,

In simple terms as their names suggest

BUILD  - builds the record from scratch
Overlay - The content is overlaid.  ( Any area outside the LRECL can used
as Temp space and can be overlaid and the contents can referred
iteratively.)

If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest
reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial,
with lots of examples, that will show you how to use DFSORT, DFSORT's
ICETOOL and DFSORT Symbols. You can access it online, along with all of the
other DFSORT books, from:

http://www.ibm.com/support/docview.wss?rs=114=isg3T780


Thanks,
Kolusu
DFSORT Development
IBM Corporation



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


Re: DFSORT Question

2020-10-26 Thread Martin Packer
Quick synopsis:

* BUILD creates the record from scratch. Also the same as INREC, OUTREC, 
OUTFIL OUTREC - but nice in that you could move it from one to another.

* OVERLAY overwrites specified fields. Similarly movable.

Hoping this helps.

Cheers, Martin

Martin Packer

Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

Blog: https://mainframeperformancetopics.com

Mainframe, Performance, Topics Podcast Series (With Marna Walle): 
https://anchor.fm/marna-walle

Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA



From:   Cameron Conacher 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   26/10/2020 19:31
Subject:[EXTERNAL] Re: DFSORT Question
Sent by:IBM Mainframe Discussion List 



Sri
Could you refer me to some documentation to help me better understand the 
differences between BUILD and OVERLAY?

Sent from my iPhone

> On Oct 26, 2020, at 1:10 PM, Sri h Kolusu  wrote:
> 
> Cameron,
> 
> OUTFIL is  last on the list of processing.  i.e
> 
> INCLUDE
> INREC
> SORT
> OUTREC
> OUTFIL
> 
> 
> So your traceit will be printed after OUTREC. Ideally I would use an
> OVERLAY instead of BUILD, so that I can see what exactly what was 
picked.
> 
> I optimized your control cards a bit so (clubbed multiple conditions 
into a
> single condition)
> 
> //STEP0100 EXEC PGM=SORT,PARM='JP1""'
> //SYSOUT   DD SYSOUT=*
> //SORTIN   DD DISP=SHR,DSN=Your IEBPTPCH source
> //SORTOUT  DD SYSOUT=*
> //TRACEIT  DD SYSOUT=*
> //SYSINDD *
>  INCLUDE COND=((2,3,CH,NE,C'//*'),AND,   * NO COMMENTS
>(((2,11,CH,EQ,C'MEMBER NAME'),OR, * MEMBER NAME
>  (5,30,SS,EQ,C' EXEC ')),AND,* EXEC PROC
>  (5,30,SS,NE,C'PGM=')))
> 
>  INREC IFTHEN=(WHEN=GROUP,
>   BEGIN=(2,11,CH,EQ,C'MEMBER NAME'),
>PUSH=(082:SEQ=8,  * SEQUENCE #
>  091:15,08)),* MEMBER NAME
> 
>IFTHEN=(WHEN=(18,05,CH,EQ,C'PROC '),
> OVERLAY=(100:23,08,  * PROCNAME
>  SQZ=(SHIFT=LEFT,PREBLANK=C','),
>  110:JP1,* LIBRARY NAME
>  160:C'P')),
> 
>IFTHEN=(WHEN=(11,05,CH,EQ,C'EXEC ',OR,
>  12,05,CH,EQ,C'EXEC ',OR,
>  13,05,CH,EQ,C'EXEC ',OR,
>  14,05,CH,EQ,C'EXEC '),
>   PARSE=(%01=(STARTAFT=C'EXEC ',
>ENDBEFR=C',',
> FIXLEN=8)),
> OVERLAY=(100:%01,* PROCNAME
>  110:JP1,* LIBRARY NAME
>  162:C'P'))
> 
>  SORT FIELDS=(091,08,CH,A,   * MEMBER NAME
>   100,08,CH,A)   * PROC NAME
> 
>   SUM FIELDS=NONE
> 
>  OUTFIL INCLUDE=(162,1,CH,EQ,C'P'),
>  BUILD=(82,80,SQZ=(SHIFT=LEFT,MID=C';'))
> 
>  OUTFIL FNAMES=TRACEIT
> /*
> 
> 
> If you wish to see the contents before SORT and eliminating the dups 
(SUM),
> then it is quite simple
> 
> Change your SYSIN to the following (use a COPY operation). By default
> DFSORT will write out to the DDname SORTOUT.  So check the contents from
> position 82 thru 162.
> 
> 
> //SYSINDD *
>  INCLUDE COND=((2,3,CH,NE,C'//*'),AND,   * NO COMMENTS
>(((2,11,CH,EQ,C'MEMBER NAME'),OR, * MEMBER NAME
>  (5,30,SS,EQ,C' EXEC ')),AND,* EXEC PROC
>  (5,30,SS,NE,C'PGM=')))
> 
>  INREC IFTHEN=(WHEN=GROUP,
>   BEGIN=(2,11,CH,EQ,C'MEMBER NAME'),
>PUSH=(082:SEQ=8,  * SEQUENCE #
>  091:15,08)),* MEMBER NAME
> 
>IFTHEN=(WHEN=(18,05,CH,EQ,C'PROC '),
> OVERLAY=(100:23,08,  * PROCNAME
>  SQZ=(SHIFT=LEFT,PREBLANK=C','),
>  110:JP1,* LIBRARY NAME
>  160:C'P')),
> 
>IFTHEN=(WHEN=(11,05,CH,EQ,C'EXEC ',OR,
>  12,05,CH,EQ,C'EXEC ',OR,
>  13,05,CH,EQ,C'EXEC ',OR,
>  14,05,CH,EQ,C'EXEC '),
>   PARSE=(%01=(STARTAFT=C'EXEC ',
>ENDBEFR=C',',
> FIXLEN=8)),
> OVERLAY=(100:%01,* PROCNAME
>  110:JP1,* LIBRARY NAME
>  162:C'P'))
> 
>  OPTION COPY
> 
> /*
> 
> Furth

Re: DFSORT Question

2020-10-26 Thread Cameron Conacher
Sri
Could you refer me to some documentation to help me better understand the 
differences between BUILD and OVERLAY?

Sent from my iPhone

> On Oct 26, 2020, at 1:10 PM, Sri h Kolusu  wrote:
> 
> Cameron,
> 
> OUTFIL is  last on the list of processing.  i.e
> 
> INCLUDE
> INREC
> SORT
> OUTREC
> OUTFIL
> 
> 
> So your traceit will be printed after OUTREC. Ideally I would use an
> OVERLAY instead of BUILD, so that I can see what exactly what was picked.
> 
> I optimized your control cards a bit so (clubbed multiple conditions into a
> single condition)
> 
> //STEP0100 EXEC PGM=SORT,PARM='JP1""'
> //SYSOUT   DD SYSOUT=*
> //SORTIN   DD DISP=SHR,DSN=Your IEBPTPCH source
> //SORTOUT  DD SYSOUT=*
> //TRACEIT  DD SYSOUT=*
> //SYSINDD *
>  INCLUDE COND=((2,3,CH,NE,C'//*'),AND,   * NO COMMENTS
>(((2,11,CH,EQ,C'MEMBER NAME'),OR, * MEMBER NAME
>  (5,30,SS,EQ,C' EXEC ')),AND,* EXEC PROC
>  (5,30,SS,NE,C'PGM=')))
> 
>  INREC IFTHEN=(WHEN=GROUP,
>   BEGIN=(2,11,CH,EQ,C'MEMBER NAME'),
>PUSH=(082:SEQ=8,  * SEQUENCE #
>  091:15,08)),* MEMBER NAME
> 
>IFTHEN=(WHEN=(18,05,CH,EQ,C'PROC '),
> OVERLAY=(100:23,08,  * PROCNAME
>  SQZ=(SHIFT=LEFT,PREBLANK=C','),
>  110:JP1,* LIBRARY NAME
>  160:C'P')),
> 
>IFTHEN=(WHEN=(11,05,CH,EQ,C'EXEC ',OR,
>  12,05,CH,EQ,C'EXEC ',OR,
>  13,05,CH,EQ,C'EXEC ',OR,
>  14,05,CH,EQ,C'EXEC '),
>   PARSE=(%01=(STARTAFT=C'EXEC ',
>ENDBEFR=C',',
> FIXLEN=8)),
> OVERLAY=(100:%01,* PROCNAME
>  110:JP1,* LIBRARY NAME
>  162:C'P'))
> 
>  SORT FIELDS=(091,08,CH,A,   * MEMBER NAME
>   100,08,CH,A)   * PROC NAME
> 
>   SUM FIELDS=NONE
> 
>  OUTFIL INCLUDE=(162,1,CH,EQ,C'P'),
>  BUILD=(82,80,SQZ=(SHIFT=LEFT,MID=C';'))
> 
>  OUTFIL FNAMES=TRACEIT
> /*
> 
> 
> If you wish to see the contents before SORT and eliminating the dups (SUM),
> then it is quite simple
> 
> Change your SYSIN to the following (use a COPY operation). By default
> DFSORT will write out to the DDname SORTOUT.  So check the contents from
> position 82 thru 162.
> 
> 
> //SYSINDD *
>  INCLUDE COND=((2,3,CH,NE,C'//*'),AND,   * NO COMMENTS
>(((2,11,CH,EQ,C'MEMBER NAME'),OR, * MEMBER NAME
>  (5,30,SS,EQ,C' EXEC ')),AND,* EXEC PROC
>  (5,30,SS,NE,C'PGM=')))
> 
>  INREC IFTHEN=(WHEN=GROUP,
>   BEGIN=(2,11,CH,EQ,C'MEMBER NAME'),
>PUSH=(082:SEQ=8,  * SEQUENCE #
>  091:15,08)),* MEMBER NAME
> 
>IFTHEN=(WHEN=(18,05,CH,EQ,C'PROC '),
> OVERLAY=(100:23,08,  * PROCNAME
>  SQZ=(SHIFT=LEFT,PREBLANK=C','),
>  110:JP1,* LIBRARY NAME
>  160:C'P')),
> 
>IFTHEN=(WHEN=(11,05,CH,EQ,C'EXEC ',OR,
>  12,05,CH,EQ,C'EXEC ',OR,
>  13,05,CH,EQ,C'EXEC ',OR,
>  14,05,CH,EQ,C'EXEC '),
>   PARSE=(%01=(STARTAFT=C'EXEC ',
>ENDBEFR=C',',
> FIXLEN=8)),
> OVERLAY=(100:%01,* PROCNAME
>  110:JP1,* LIBRARY NAME
>  162:C'P'))
> 
>  OPTION COPY
> 
> /*
> 
> Further if you have any questions please let me know
> 
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
> 
> 
> 
> --
> 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: DFSORT Question

2020-10-26 Thread Cameron Conacher
Thank you Sri.
This is helpful.

On Mon, Oct 26, 2020 at 1:10 PM Sri h Kolusu  wrote:

> Cameron,
>
> OUTFIL is  last on the list of processing.  i.e
>
> INCLUDE
> INREC
> SORT
> OUTREC
> OUTFIL
>
>
> So your traceit will be printed after OUTREC. Ideally I would use an
> OVERLAY instead of BUILD, so that I can see what exactly what was picked.
>
> I optimized your control cards a bit so (clubbed multiple conditions into a
> single condition)
>
> //STEP0100 EXEC PGM=SORT,PARM='JP1""'
> //SYSOUT   DD SYSOUT=*
> //SORTIN   DD DISP=SHR,DSN=Your IEBPTPCH source
> //SORTOUT  DD SYSOUT=*
> //TRACEIT  DD SYSOUT=*
> //SYSINDD *
>   INCLUDE COND=((2,3,CH,NE,C'//*'),AND,   * NO COMMENTS
> (((2,11,CH,EQ,C'MEMBER NAME'),OR, * MEMBER NAME
>   (5,30,SS,EQ,C' EXEC ')),AND,* EXEC PROC
>   (5,30,SS,NE,C'PGM=')))
>
>   INREC IFTHEN=(WHEN=GROUP,
>BEGIN=(2,11,CH,EQ,C'MEMBER NAME'),
> PUSH=(082:SEQ=8,  * SEQUENCE #
>   091:15,08)),* MEMBER NAME
>
> IFTHEN=(WHEN=(18,05,CH,EQ,C'PROC '),
>  OVERLAY=(100:23,08,  * PROCNAME
>   SQZ=(SHIFT=LEFT,PREBLANK=C','),
>   110:JP1,* LIBRARY NAME
>   160:C'P')),
>
> IFTHEN=(WHEN=(11,05,CH,EQ,C'EXEC ',OR,
>   12,05,CH,EQ,C'EXEC ',OR,
>   13,05,CH,EQ,C'EXEC ',OR,
>   14,05,CH,EQ,C'EXEC '),
>PARSE=(%01=(STARTAFT=C'EXEC ',
> ENDBEFR=C',',
>  FIXLEN=8)),
>  OVERLAY=(100:%01,* PROCNAME
>   110:JP1,* LIBRARY NAME
>   162:C'P'))
>
>   SORT FIELDS=(091,08,CH,A,   * MEMBER NAME
>100,08,CH,A)   * PROC NAME
>
>SUM FIELDS=NONE
>
>   OUTFIL INCLUDE=(162,1,CH,EQ,C'P'),
>   BUILD=(82,80,SQZ=(SHIFT=LEFT,MID=C';'))
>
>   OUTFIL FNAMES=TRACEIT
> /*
>
>
> If you wish to see the contents before SORT and eliminating the dups (SUM),
> then it is quite simple
>
> Change your SYSIN to the following (use a COPY operation). By default
> DFSORT will write out to the DDname SORTOUT.  So check the contents from
> position 82 thru 162.
>
>
> //SYSINDD *
>   INCLUDE COND=((2,3,CH,NE,C'//*'),AND,   * NO COMMENTS
> (((2,11,CH,EQ,C'MEMBER NAME'),OR, * MEMBER NAME
>   (5,30,SS,EQ,C' EXEC ')),AND,* EXEC PROC
>   (5,30,SS,NE,C'PGM=')))
>
>   INREC IFTHEN=(WHEN=GROUP,
>BEGIN=(2,11,CH,EQ,C'MEMBER NAME'),
> PUSH=(082:SEQ=8,  * SEQUENCE #
>   091:15,08)),* MEMBER NAME
>
> IFTHEN=(WHEN=(18,05,CH,EQ,C'PROC '),
>  OVERLAY=(100:23,08,  * PROCNAME
>   SQZ=(SHIFT=LEFT,PREBLANK=C','),
>   110:JP1,* LIBRARY NAME
>   160:C'P')),
>
> IFTHEN=(WHEN=(11,05,CH,EQ,C'EXEC ',OR,
>   12,05,CH,EQ,C'EXEC ',OR,
>   13,05,CH,EQ,C'EXEC ',OR,
>   14,05,CH,EQ,C'EXEC '),
>PARSE=(%01=(STARTAFT=C'EXEC ',
> ENDBEFR=C',',
>  FIXLEN=8)),
>  OVERLAY=(100:%01,* PROCNAME
>   110:JP1,* LIBRARY NAME
>   162:C'P'))
>
>   OPTION COPY
>
> /*
>
> Further if you have any questions please let me know
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
>
>
> --
> 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: DFSORT Question

2020-10-26 Thread Sri h Kolusu
Cameron,

OUTFIL is  last on the list of processing.  i.e

INCLUDE
INREC
SORT
OUTREC
OUTFIL


So your traceit will be printed after OUTREC. Ideally I would use an
OVERLAY instead of BUILD, so that I can see what exactly what was picked.

I optimized your control cards a bit so (clubbed multiple conditions into a
single condition)

//STEP0100 EXEC PGM=SORT,PARM='JP1""'
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=SHR,DSN=Your IEBPTPCH source
//SORTOUT  DD SYSOUT=*
//TRACEIT  DD SYSOUT=*
//SYSINDD *
  INCLUDE COND=((2,3,CH,NE,C'//*'),AND,   * NO COMMENTS
(((2,11,CH,EQ,C'MEMBER NAME'),OR, * MEMBER NAME
  (5,30,SS,EQ,C' EXEC ')),AND,* EXEC PROC
  (5,30,SS,NE,C'PGM=')))

  INREC IFTHEN=(WHEN=GROUP,
   BEGIN=(2,11,CH,EQ,C'MEMBER NAME'),
PUSH=(082:SEQ=8,  * SEQUENCE #
  091:15,08)),* MEMBER NAME

IFTHEN=(WHEN=(18,05,CH,EQ,C'PROC '),
 OVERLAY=(100:23,08,  * PROCNAME
  SQZ=(SHIFT=LEFT,PREBLANK=C','),
  110:JP1,* LIBRARY NAME
  160:C'P')),

IFTHEN=(WHEN=(11,05,CH,EQ,C'EXEC ',OR,
  12,05,CH,EQ,C'EXEC ',OR,
  13,05,CH,EQ,C'EXEC ',OR,
  14,05,CH,EQ,C'EXEC '),
   PARSE=(%01=(STARTAFT=C'EXEC ',
ENDBEFR=C',',
 FIXLEN=8)),
 OVERLAY=(100:%01,* PROCNAME
  110:JP1,* LIBRARY NAME
  162:C'P'))

  SORT FIELDS=(091,08,CH,A,   * MEMBER NAME
   100,08,CH,A)   * PROC NAME

   SUM FIELDS=NONE

  OUTFIL INCLUDE=(162,1,CH,EQ,C'P'),
  BUILD=(82,80,SQZ=(SHIFT=LEFT,MID=C';'))

  OUTFIL FNAMES=TRACEIT
/*


If you wish to see the contents before SORT and eliminating the dups (SUM),
then it is quite simple

Change your SYSIN to the following (use a COPY operation). By default
DFSORT will write out to the DDname SORTOUT.  So check the contents from
position 82 thru 162.


//SYSINDD *
  INCLUDE COND=((2,3,CH,NE,C'//*'),AND,   * NO COMMENTS
(((2,11,CH,EQ,C'MEMBER NAME'),OR, * MEMBER NAME
  (5,30,SS,EQ,C' EXEC ')),AND,* EXEC PROC
  (5,30,SS,NE,C'PGM=')))

  INREC IFTHEN=(WHEN=GROUP,
   BEGIN=(2,11,CH,EQ,C'MEMBER NAME'),
PUSH=(082:SEQ=8,  * SEQUENCE #
  091:15,08)),* MEMBER NAME

IFTHEN=(WHEN=(18,05,CH,EQ,C'PROC '),
 OVERLAY=(100:23,08,  * PROCNAME
  SQZ=(SHIFT=LEFT,PREBLANK=C','),
  110:JP1,* LIBRARY NAME
  160:C'P')),

IFTHEN=(WHEN=(11,05,CH,EQ,C'EXEC ',OR,
  12,05,CH,EQ,C'EXEC ',OR,
  13,05,CH,EQ,C'EXEC ',OR,
  14,05,CH,EQ,C'EXEC '),
   PARSE=(%01=(STARTAFT=C'EXEC ',
ENDBEFR=C',',
 FIXLEN=8)),
 OVERLAY=(100:%01,* PROCNAME
  110:JP1,* LIBRARY NAME
  162:C'P'))

  OPTION COPY

/*

Further if you have any questions please let me know

Thanks,
Kolusu
DFSORT Development
IBM Corporation



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


Re: DFSORT Question

2020-10-26 Thread Cameron Conacher
Hello Kolusu,
Yes that is correct.
Below I have included my SORT statements that work for me.
The issue I had was that originally, I also had an OUTREC BUILD IFTHEN.
When that was present, I had an error with the record length of the TRACEIT
file.
I am copying the intermediate file (after INREC processing) to the file
TRACEIT.
That way I can browse the file and ensure I have the correct byte alignment
when putting together the OUTFIL statements.
I hope that makes more sense now.
This is not a problem since everything works.
It was more a curiosity question.
When are the OUTFIL records actually written for TRACEIT?
Does it depend on whether or not OUTREC is present?

INREC
write the TRACEIT file here?
SORT
OUTREC

or

INREC
SORT
OUTREC
Write the TRACEIT file here?

I assume they are written after OUTREC processing because I saw record
length errors.
And, when I removed the OUTREC processing everything was fine.

Thank you,


*** *

*** *

**  SCAN THROUGH THE IEBPTPCH STREAM AND GENERATE AN OUTPUT FILE. * *

*** *

**  WE IGNORE ALL COMMENT RECORDS.* *

**  WE ONLY SELECT RECORDS WITH THE SCANNED PDS MEMBER NAMEAND* *

** RECORDS THAT EXECUTE PROCNAME  * *

**  THE OUTPUT FROM THE PROCESS WILL HAVE * *

** JCL MEMBER NAME   IN 001 THROUGH 008   * *

** JCL PDS LIBRARY NAME  IN 010 THROUGH 012   * *

** PROC NAME IN 016 THROUGH 021   * *

*** *

*** *



* INCLUDE COND=((2,3,CH,NE,C'//*'),AND,  * NO COMMENTS  *

*   (((2,11,CH,EQ,C'MEMBER NAME'),OR,* MEMBER NAME  *

* (5,30,SS,EQ,C' EXEC ')),AND,   * EXEC PROC*

* (5,30,SS,NE,C'PGM=')))*



**   *

** ALL PROC= START IN COLUMN 18 *

** EXEC PROCNAME; PROCNAME CAN BE IN COLUMNS 11, 12, 13, 14 *

**  *

* INREC IFTHEN=(WHEN=GROUP, *

*   BEGIN=(2,11,CH,EQ,C'MEMBER NAME'),  *

*   PUSH=(82:15,8,SEQ=8)),  *

*   IFTHEN=(WHEN=(18,04,CH,EQ,C'PROC'), *

*   BUILD=(90,08,C',',  * SEQUENCE #*

*  82,08,C',',  * JCL LIBRARY   *

*  JP1,C',',* JCL MEMBER NAME   *

*  23,08,   * PROC NAME *

*  SQZ=(SHIFT=LEFT,PREBLANK=C','))),*

*   IFTHEN=(WHEN=(14,04,CH,EQ,C'EXEC'), *

*   BUILD=(90,08,C',',  * SEQUENCE #*

*  82,08,C',',  * JCL LIBRARY   *

*  JP1,C',',* JCL MEMBER NAME   *

*  19,08,   * PROC NAME *

*  SQZ=(SHIFT=LEFT,PREBLANK=C','))),*

*   IFTHEN=(WHEN=(13,04,CH,EQ,C'EXEC'), *

*   BUILD=(90,08,C',',  * SEQUENCE #*

*  82,08,C',',  * JCL LIBRARY   *

*  JP1,C',',* JCL MEMBER NAME   *

*  18,08,   * PROC NAME *

*  SQZ=(SHIFT=LEFT,PREBLANK=C','))),*

*   IFTHEN=(WHEN=(12,04,CH,EQ,C'EXEC'), *

*   BUILD=(90,08,C',',  * SEQUENCE #*

*  82,08,C',',  * JCL LIBRARY   *

*  JP1,C',',* JCL MEMBER NAME   *

*  17,08,   * PROC NAME *

*  SQZ=(SHIFT=LEFT,PREBLANK=C','))),*

*   IFTHEN=(WHEN=(11,04,CH,EQ,C'EXEC'), *

*   BUILD=(90,08,C',',  * SEQUENCE #*

*  82,08,C',',  * JCL LIBRARY   *

*  JP1,C',',* JCL MEMBER NAME   *

*  16,08,   * PROC NAME *

*  SQZ=(SHIFT=LEFT,PREBLANK=C

Re: DFSORT Question

2020-10-23 Thread Sri h Kolusu
Cameron,

Hmm I may be missing the entire requirement but remember that IEBPTPCH just
puts the member name on just the header record. So Using INCLUDE alone on
the member name will not work.  you also need INREC when=GROUP to push it
on to the member content.

The following shows the order of processing in DFSORT

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.4.0/com.ibm.zos.v2r4.icea100/ice2ca_DFSORT_processing_.htm

If you show me your control cards I can re-code them to meet your
requirements.


Thanks,
Kolusu
DFSORT Development
IBM Corporation


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


DFSORT Question

2020-10-23 Thread Cameron Conacher
Hello folks,
I put together a small process that runs an IEBPTPCH to generate a stream
from one of our JCL Libraries.
Then I ran a small DFSORT to pull out the combinations of JCL Member Name
and the PROC Names that are executed from the JOB.
Everything is fine.
I do not understand the high level flow of events though.
First I do an INCLUDE to select MEMBER NAME Records and records with " EXEC
" but not "PGM="
Then I do an INREC IFTHEN BUILD to reformat the input records.
Then I do an OUTPUT FNAMES so I can see the intermediate file contents.
Then SORT.
Then OUTFILE with BUILD.
Everything is fine here.
I believe I have understood this.

Now when I started down the path, I had the INCLUDE, and the INREC IFTHEN
BUILD sequence.
Then a SORT and then finally, an OUTREC IFTHEN BUILD.
This is where I became confused.
The SORT step failed because my intermediate file format no longer matched
the record length I expected.
I removed the OUTREC IFTHEN BUILD and made it OUTREC BUILD and things ran
fine.

I was under the impression that
1) Do the INREC processing assembling intermediate file records to release
to the SORT
2) Do the Sort
3) Process the SORT Records and generate the SORTOUT Formatted file.

When I have an INREC IFTHEN BUILD and I do not have an OUTREC IFTHEN BUILD,
I get an intermediate file before the SORT.
Once I add the IFTHEN to the OUTREC statement, it seems that my
intermediate file format has changed.

Maybe it is just something dumb like where I have put the OUTFILE(TRACELOG)
statement I use to capture the intermediate file contents?

This is not an urgent burning question. Everything is working fine for me
now.
But apparently, I do have a knowledge gap here.
This is just something I would like to understand a bit better.

Thanks,

...Cameron

I have an UTPUFT FNAMES

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


Re: Shopz Question

2020-10-22 Thread Richards, Robert B.
Kurt,

You provided an answer that I needed to know. Thank you!

I will be ordering z/OS 2.4 shortly. I understand that "z/OSMF Software 
Management portable software instance format" for z/OS is not an option at this 
time.

Bob

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Kurt Quackenbush
Sent: Wednesday, October 21, 2020 10:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Shopz Question

On 10/20/2020 11:17 AM, Richards, Robert B. wrote:

> Is there a 2.4 version of the link you provided?

> For a fuller explanation check out the Order tab on this page:
> https://www.ibm.com/support/z-content-solutions/serverpac-install-zosm
> f/
The referred page is not version or release specific, and is applicable to all 
of IBM z/OS platform software, not just the OS.  As mentioned on that page, 
currently "CICS, IMS, and Db2 are now available to be delivered as a ServerPac 
in z/OSMF Software Management portable software instance format."  Are you 
asking when z/OS itself will be offered in this form?  We're working on that, 
and the date has not yet been announced.

Kurt Quackenbush -- IBM, SMP/E Development Chuck Norris never uses CHECK when 
he applies PTFs.

--
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: z/OS 2.4 and SDSF question

2020-10-22 Thread Pommier, Rex
Looking at this a bit further, getting this PTF installed requires the PTFs to 
install the PTFs for encrypting the spool file.  And it requires an IPL to pick 
up the changes.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Thursday, October 22, 2020 8:03 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: z/OS 2.4 and SDSF question

In regards to TYPRUN=COPY not working.

In case anybody is interested in this, I received notice yesterday that PTF 
UJ04073 is now available for this APAR.  I haven't installed it yet but it's 
there.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Monday, June 22, 2020 8:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: z/OS 2.4 and SDSF question

IBM assigned an APAR number on Friday to this.  It is APAR OA59800.

Thanks,

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Friday, June 19, 2020 9:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: z/OS 2.4 and SDSF question

Not assigned yet.  I'll let you know when I get it.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Allan Staller
Sent: Friday, June 19, 2020 9:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: z/OS 2.4 and SDSF question

Apar number?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Friday, June 19, 2020 9:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: z/OS 2.4 and SDSF question

[CAUTION: This Email is from outside the Organization. Unless you trust the 
sender, Don’t click links or open attachments as it may be a Phishing email, 
which can steal your Information and compromise your Computer.]

Update on this.  I opened a PMR on it and got a reply back from IBM that they 
are opening an APAR on this.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Tuesday, June 16, 2020 1:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] z/OS 2.4 and SDSF question

Hello list,

I have a "does it work" question.  We don't run SDSF, instead have a competing 
product.  As part of our testing of 2.4, one of my coworkers submitted a job 
with TYPRUN=COPY on the job card and found it doesn't work.  Under 2.2, we get 
the entire input stream before the JES2 job statistics.  Under 2.4, all we get 
is the JOB card then the statistics report.  The spool display product says all 
the lines are there, but they won't show.  When we contacted our vendor about 
this, they said SDSF displays the same thing, working under earlier releases, 
but under 2.4, only the JOB card is printed/displayed.  Can somebody who is 
running 2.4 and SDSF (or a third party SDSF competitor) confirm this for me?

Our vendor has a case open with IBM but I'd like to know if others are seeing 
this situation.  I'm not second guessing the vendor, just curious if others 
have run into the situation.

TIA,

Rex

Example:

Job run under both 2.2 and 2.4.

//RRPBR14 JOB (040423,495),RRP,CLASS=T,MSGCLASS=X,MSGLEVEL=(1,1),
// NOTIFY=,TYPRUN=COPY
//S1  EXEC  PGM=IEFBR14
//D1   DD  DISP=OLD,DSN=SFG.$AVRS.V52.KSDS

Spool display under both 2.2 and 2.4 says the output is 14 lines long.

2.2 spool display (all 14 lines displayed including entire JCL stream):

//RRPBR14 JOB (040423,495),RRP,CLASS=T,MSGCLASS=X,MSGLEVEL=(1,1),   JOB03289
// NOTIFY=,TYPRUN=COPY
//S1  EXEC  PGM=IEFBR14
//D1   DD  DISP=OLD,DSN=SFG.$AVRS.V52.KSDS
-- JES2 JOB STATISTICS --
4 CARDS READ
   11 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
0 SYSOUT SPOOL KBYTES
 0.00 MINUTES EXECUTION TIME
J E S 2  J O B  L O G  --  S Y S T E M  Z O S 2  --  N O D 
E  Z 1 4 J E S 2

13.28.58 JOB03289  TUESDAY,   16 JUN 2020 
13.28.58 JOB03289  IRR010I  USERID RRP  IS ASSIGNED TO THIS JOB.

2.4 spool display (only 12 lines displayed) :

//RRPBR14 JOB (040423,495),RRP,CLASS=T,MSGCLASS=X,MSGLEVEL=(1,1),   JOB05572
// NOTIFY=,TYPRUN=COPY
-- JES2 JOB STATISTICS --
4 CARDS READ
   11 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
0 SYSOUT SPOOL KBYTES
 0.00 MINUTES EXECUTION TIME
 J E S 2  J O B  L O G  --  S Y S T E M  Z O S 2  --  N 
O D E  N 1

13.29.19 JOB05572  TUESDAY,   16 JUN 2020 
13.29.19 JOB05572  IRR010I  USERID RRP  IS ASSIGNED TO THIS JOB.



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 

Re: z/OS 2.4 and SDSF question

2020-10-22 Thread Paul Gilmartin
On Thu, 22 Oct 2020 13:02:53 +, Pommier, Rex wrote:

>In regards to TYPRUN=COPY not working.
>
>In case anybody is interested in this, I received notice yesterday that PTF 
>UJ04073 is now available for this APAR.  I haven't installed it yet but it's 
>there.
> 
Where I see:
Local fix
BYPASS/CIRCUMVENTION:
Submit job on a downlevel version (less than V2R4) of JES2 in
your MAS.

Ouch!  I might first try bypassing all steps with IF COND=ONLY.

Problem conclusion
TYPE/RESTART (WARM) IPL/REQUIRED (YES) CLPA (YES)

Ouch!  Ouch!

-- gil

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


Re: z/OS 2.4 and SDSF question

2020-10-22 Thread Pommier, Rex
In regards to TYPRUN=COPY not working.

In case anybody is interested in this, I received notice yesterday that PTF 
UJ04073 is now available for this APAR.  I haven't installed it yet but it's 
there.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Monday, June 22, 2020 8:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: z/OS 2.4 and SDSF question

IBM assigned an APAR number on Friday to this.  It is APAR OA59800.

Thanks,

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Friday, June 19, 2020 9:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: z/OS 2.4 and SDSF question

Not assigned yet.  I'll let you know when I get it.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Allan Staller
Sent: Friday, June 19, 2020 9:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: z/OS 2.4 and SDSF question

Apar number?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Friday, June 19, 2020 9:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: z/OS 2.4 and SDSF question

[CAUTION: This Email is from outside the Organization. Unless you trust the 
sender, Don’t click links or open attachments as it may be a Phishing email, 
which can steal your Information and compromise your Computer.]

Update on this.  I opened a PMR on it and got a reply back from IBM that they 
are opening an APAR on this.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Tuesday, June 16, 2020 1:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] z/OS 2.4 and SDSF question

Hello list,

I have a "does it work" question.  We don't run SDSF, instead have a competing 
product.  As part of our testing of 2.4, one of my coworkers submitted a job 
with TYPRUN=COPY on the job card and found it doesn't work.  Under 2.2, we get 
the entire input stream before the JES2 job statistics.  Under 2.4, all we get 
is the JOB card then the statistics report.  The spool display product says all 
the lines are there, but they won't show.  When we contacted our vendor about 
this, they said SDSF displays the same thing, working under earlier releases, 
but under 2.4, only the JOB card is printed/displayed.  Can somebody who is 
running 2.4 and SDSF (or a third party SDSF competitor) confirm this for me?

Our vendor has a case open with IBM but I'd like to know if others are seeing 
this situation.  I'm not second guessing the vendor, just curious if others 
have run into the situation.

TIA,

Rex

Example:

Job run under both 2.2 and 2.4.

//RRPBR14 JOB (040423,495),RRP,CLASS=T,MSGCLASS=X,MSGLEVEL=(1,1),
// NOTIFY=,TYPRUN=COPY
//S1  EXEC  PGM=IEFBR14
//D1   DD  DISP=OLD,DSN=SFG.$AVRS.V52.KSDS

Spool display under both 2.2 and 2.4 says the output is 14 lines long.

2.2 spool display (all 14 lines displayed including entire JCL stream):

//RRPBR14 JOB (040423,495),RRP,CLASS=T,MSGCLASS=X,MSGLEVEL=(1,1),   JOB03289
// NOTIFY=,TYPRUN=COPY
//S1  EXEC  PGM=IEFBR14
//D1   DD  DISP=OLD,DSN=SFG.$AVRS.V52.KSDS
-- JES2 JOB STATISTICS --
4 CARDS READ
   11 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
0 SYSOUT SPOOL KBYTES
 0.00 MINUTES EXECUTION TIME
J E S 2  J O B  L O G  --  S Y S T E M  Z O S 2  --  N O D 
E  Z 1 4 J E S 2

13.28.58 JOB03289  TUESDAY,   16 JUN 2020 
13.28.58 JOB03289  IRR010I  USERID RRP  IS ASSIGNED TO THIS JOB.

2.4 spool display (only 12 lines displayed) :

//RRPBR14 JOB (040423,495),RRP,CLASS=T,MSGCLASS=X,MSGLEVEL=(1,1),   JOB05572
// NOTIFY=,TYPRUN=COPY
-- JES2 JOB STATISTICS --
4 CARDS READ
   11 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
0 SYSOUT SPOOL KBYTES
 0.00 MINUTES EXECUTION TIME
 J E S 2  J O B  L O G  --  S Y S T E M  Z O S 2  --  N 
O D E  N 1

13.29.19 JOB05572  TUESDAY,   16 JUN 2020 
13.29.19 JOB05572  IRR010I  USERID RRP  IS ASSIGNED TO THIS JOB.



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 emai

Re: Shopz Question

2020-10-21 Thread Kurt Quackenbush

On 10/20/2020 11:17 AM, Richards, Robert B. wrote:


Is there a 2.4 version of the link you provided?



For a fuller explanation check out the Order tab on this page:
https://www.ibm.com/support/z-content-solutions/serverpac-install-zosmf/
The referred page is not version or release specific, and is applicable 
to all of IBM z/OS platform software, not just the OS.  As mentioned on 
that page, currently "CICS, IMS, and Db2 are now available to be 
delivered as a ServerPac in z/OSMF Software Management portable software 
instance format."  Are you asking when z/OS itself will be offered in 
this form?  We're working on that, and the date has not yet been announced.


Kurt Quackenbush -- IBM, SMP/E Development
Chuck Norris never uses CHECK when he applies PTFs.

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


Re: Shopz Question

2020-10-20 Thread Richards, Robert B.
Kurt,

Well that explains that! I haven’t yet got to the Installation Method selection 
screen. Thanks for the tip.

Is there a 2.4 version of the link you provided? 

Bob

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Kurt Quackenbush
Sent: Tuesday, October 20, 2020 9:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Shopz Question

On 10/19/2020 9:40 AM, Richards, Robert B. wrote:

> Curiously though, what is the difference on Shopz that enables me to order 
> via a z/OSMF-packaged ServerPac versus the original ServerPac dialog radio 
> button? I do not see the z/OSMF version as a choice. It that now the default?
No, not the default.  During the order process you specifically select an 
Installation Method; "z/OSMF SW Management" and "CustomPac installation dialog" 
are the choices.

For a fuller explanation check out the Order tab on this page:
https://www.ibm.com/support/z-content-solutions/serverpac-install-zosmf/

Kurt Quackenbush -- IBM, SMP/E Development Chuck Norris never uses CHECK when 
he applies PTFs.

--
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: Shopz Question

2020-10-20 Thread Kurt Quackenbush

On 10/19/2020 9:40 AM, Richards, Robert B. wrote:


Curiously though, what is the difference on Shopz that enables me to order via 
a z/OSMF-packaged ServerPac versus the original ServerPac dialog radio button? 
I do not see the z/OSMF version as a choice. It that now the default?
No, not the default.  During the order process you specifically select 
an Installation Method; "z/OSMF SW Management" and "CustomPac 
installation dialog" are the choices.


For a fuller explanation check out the Order tab on this page:
https://www.ibm.com/support/z-content-solutions/serverpac-install-zosmf/

Kurt Quackenbush -- IBM, SMP/E Development
Chuck Norris never uses CHECK when he applies PTFs.

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


Re: Shopz Question

2020-10-19 Thread Richards, Robert B.
Marna,

Thank you for taking the time to respond. I was of the opinion that I was 
obviously doing something wrong as I only saw 5.5 as an upgrade path. I worked 
with a support engineer after opening a SR (SEV3) on the issue and based on the 
error I am seeing, it may be a combination of my authority level *and* an 
entitlement issue.

Curiously though, what is the difference on Shopz that enables me to order via 
a z/OSMF-packaged ServerPac versus the original ServerPac dialog radio button? 
I do not see the z/OSMF version as a choice. It that now the default?

Bob

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Marna WALLE
Sent: Saturday, October 17, 2020 2:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Shopz Question

Robert,
I might be a little confused as to what you were looking for...  I just logged 
onto Shopz, and I can order CICS TS V5.6 [5655-Y04] on a ServerPac - AND I 
could even get that ServerPac packaged for a z/OSMF installation method should 
I wish.

Is this only an entitlement question, or it is a CBPDO vs ServerPac question?

I'd like to encourage all folks, who are ordering any CICS or CICS program 
product, to order it via a z/OSMF-packaged ServerPac.

Thanks,
Marna WALLE
z/OS System Installation
IBM Poughkeepsie

--
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: Shopz Question

2020-10-17 Thread Marna WALLE
Robert,
I might be a little confused as to what you were looking for...  I just logged 
onto Shopz, and I can order CICS TS V5.6 [5655-Y04] on a ServerPac - AND I 
could even get that ServerPac packaged for a z/OSMF installation method should 
I wish.

Is this only an entitlement question, or it is a CBPDO vs ServerPac question?

I'd like to encourage all folks, who are ordering any CICS or CICS program 
product, to order it via a z/OSMF-packaged ServerPac.

Thanks,
Marna WALLE
z/OS System Installation
IBM Poughkeepsie

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


Re: Shopz Question

2020-10-16 Thread Richards, Robert B.
Replying to my own post after opening a PMR - ServerPac version not available 
at this time, but CBPDO is available.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Richards, Robert B.
Sent: Friday, October 16, 2020 12:39 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Shopz Question

Disclaimer – I am not the CICS guy nor do I subscribe to a CICS list! 

My question is simple for those that may know:

Is CICS TS 5.6 orderable through ShopzSeries as a ServerPac order?

I attempted to use an inventory report and only 5.5 was listed as an update 
path.

When I attempted without a report, I could see 5.6 but was told I was not 
entitled:

ERROR: This order request is outside the scope of your Shopz user ID authority 
(POC (for entitled orders)).


Bob



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


Shopz Question

2020-10-16 Thread Richards, Robert B.
Disclaimer – I am not the CICS guy nor do I subscribe to a CICS list! 

My question is simple for those that may know:

Is CICS TS 5.6 orderable through ShopzSeries as a ServerPac order?

I attempted to use an inventory report and only 5.5 was listed as an update 
path.

When I attempted without a report, I could see 5.6 but was told I was not 
entitled:

ERROR: This order request is outside the scope of your Shopz user ID authority 
(POC (for entitled orders)).


Bob



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


Re: TN3270E TNPROFx question

2020-09-28 Thread Jantje.
On Sun, 27 Sep 2020 19:23:03 -0400, Tony Thigpen  wrote:

>I want TN3270E connections on a specific port to display the VTAM USSTAB
>instead of going directly into CICS. But, if I take the existing
>"DEFAULTAPPL PRODCICS" out of the TNPROF0 member, I am getting what I
>think is the 'solicitor' panel and not the USSTAB I set up.

BEGINVTAM 
  PORT 23 992 
  DEFAULTLUS  
  TCP1..TCP00010  
  ENDDEFAULTLUS   
  LUGROUP LUGUK1   
  TCP00011..TCP00020  
  ENDLUGROUP  
  LUMAP UTBA011A 123.123.123.123
  LINEMODEAPPL TSO ; Send all line-mode terminals directly to TSO.
  ALLOWAPPL TSO* DISCONNECTABLE ; Allow all users access to TSO   
  ; applications. 
  ; TSO is multiple applications all beginning with TSO,  
  ; so use the * to get them all.  If a session is closed,
  ; disconnect the user rather than log off the user. 
  ALLOWAPPL *  ; Allow all applications that have not been
   ; previously specified to be accessed. 
  
USSTCP USSTCPBX   
ENDVTAM   


Cheers,

Jantje.

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


Re: TN3270E TNPROFx question (resolved)

2020-09-27 Thread Tony Thigpen

Simple resolution.

Just needed to had my VTAMLIB to the STEPLIB for the TN3270E job.

I am surprised that it was not already in the job.

Tony Thigpen

Tony Thigpen wrote on 9/27/20 7:23 PM:
I want TN3270E connections on a specific port to display the VTAM USSTAB 
instead of going directly into CICS. But, if I take the existing 
"DEFAULTAPPL PRODCICS" out of the TNPROF0 member, I am getting what I 
think is the 'solicitor' panel and not the USSTAB I set up.


I have a valid USSTAB that is the initial panel for VTAM terminals, I 
just want to TCP terminals (on this one port) to show the same thing.


If someone could show me a valid coded BeginVTAM/EndVTAM that works for 
this, that would be helpful.


Tony Thigpen

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


TN3270E TNPROFx question

2020-09-27 Thread Tony Thigpen
I want TN3270E connections on a specific port to display the VTAM USSTAB 
instead of going directly into CICS. But, if I take the existing 
"DEFAULTAPPL PRODCICS" out of the TNPROF0 member, I am getting what I 
think is the 'solicitor' panel and not the USSTAB I set up.


I have a valid USSTAB that is the initial panel for VTAM terminals, I 
just want to TCP terminals (on this one port) to show the same thing.


If someone could show me a valid coded BeginVTAM/EndVTAM that works for 
this, that would be helpful.


Tony Thigpen

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


Re: Batchpipes (was: SORT question: ...)

2020-09-24 Thread Paul Gilmartin
On Thu, 24 Sep 2020 10:47:37 -0500, Hobart Spitz wrote:

>They find each other via the name of the pipe.
>
Is there an authority administering names of pipes, lest two
users inadvertently choose the same one?  Embedding 
in that name could resolve this.  RACF?  Even so:
//SORTIN  DD DSN=INPUT.PIPE,SUBSYS=PIPE,04
//   DCB=(LRECL=60,RECFM=FB,BLKSIZE=32760)  05

INPUT.PIPE seems too generic.  And must a user intending to submit
multiple job streams concurrently take care to modify those names to
avoid conflicts?

Some of the same concerns apply to POSIX named pipes, mitigated
somewhat by creating the FIFO in the user's $HOME.

Does this example achieve anything that couldn't be as well done with
POSIX FIFOs in the absence of BatchPipes?

Suppose the programmer wants to include customary Pipeline
stages such as SPECS in the pipeline network.  Where would those
be coded?


>On Wed, Sep 23, 2020 at 2:19 PM Martin Packer wrote:
>
>> The pipe name is a data set name.
>>
Could DISP=OLD be used to guarantee serialization?
>>...
>> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_Example_11._Sort_with_Pipes_and_OUTFIL_SPLIT.htm

-- gil

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


Re: SORT question: How to both remove records from a file AND write removed records to a 2nd output?

2020-09-24 Thread Hobart Spitz
Incorrect.

You use a pipe-fitting on the JCL DD, something like "bpread | sysout q | >
dd=out2 | > dd=out3" for as many outputs as you like.

I'm iffy on the exact syntax for specifying the stream separator, but the
fanout stage can do the same:
   "(end ?) bpread | fo: fanout | sysout q ? fo: | dd=out2 ? fo: | dd=out3"

If you wanted to remove ASA page feeds from, say the last output.
   "(end ?) bpread | fo: fanout | sysout q ? fo: | > dd=out2 ? fo: |
change 1 /1/ / | > dd=out3"

In other words, you have all of CMS/TSO Pipelines available to your, except
full-screen I/O.

Use PipeThink.  You'll never go back.

OREXXMan
JCL is the buggy whip of 21st century computing.  Stabilize it.
Put Pipelines in the z/OS base.  Would you rather process data in move mode
or locate mode?
IBM has been looking for an HLL for program products; REXX is that language.


On Wed, Sep 23, 2020 at 1:23 PM Martin Packer 
wrote:

> No, that would have to be another job, also specifying eg SUBSYS=PIPE. And
> scheduled to run alongside the sort.
>
> Cheers, Martin
>
> Martin Packer
>
> Systems Investigator & Performance Troubleshooter, IBM
>
> +44-7802-245-584
>
> email: martin_pac...@uk.ibm.com
>
> Twitter / Facebook IDs: MartinPacker
>
> Blog: https://mainframeperformancetopics.com
>
> Mainframe, Performance, Topics Podcast Series (With Marna Walle):
> https://anchor.fm/marna-walle
>
> Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA
>
>
>
> From:   Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date:   23/09/2020 17:18
> Subject:[EXTERNAL] Re: SORT question: How to both remove records
> from a file AND write removed records to a 2nd output?
> Sent by:IBM Mainframe Discussion List 
>
>
>
> On Wed, 23 Sep 2020 16:01:08 +0100, Martin Packer wrote:
>
> >Right. That example used BatchPipes/MVS pipes - but it's not essential to
> >the use of OUTFIL SPLIT. The reason it used pipes was to enable cloning
> to
> >balance a pipe.
> >
> OK.  I looked at your example (z/OS 2.1; not too misty).  But what
> mystifies
> me is where to code the Pipeline specification.  Suppose I want to, for
> example to direct OUT1 (or an added OUT3) to a stage such as
> DIGEST MD5.  Could I just code:
>...,SUBSYS='PIPE,DIGEST MD5',...
> ??? if not, how?  And can I further direct that digest to SYSOUT?
>
> >-Original Message-
> >From: IBM Martin Packer
> >Sent: Wednesday, September 23, 2020 4:31 AM
> >...
> >Something also from the mists of time, by no coincidence, is this:
> >
>
> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_Example_11._Sort_with_Pipes_and_OUTFIL_SPLIT.htm
>
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>
>
> 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
>

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


Re: Batchpipes (was: SORT question: ...)

2020-09-24 Thread Hobart Spitz
They find each other via the name of the pipe.


OREXXMan
JCL is the buggy whip of 21st century computing.  Stabilize it.
Put Pipelines in the z/OS base.  Would you rather process data in move mode
or locate mode?
IBM has been looking for an HLL for program products; REXX is that language.


On Wed, Sep 23, 2020 at 2:19 PM Martin Packer 
wrote:

> The pipe name is a data set name.
>
> The scheduling problem is real: How to ensure two jobs run at the same
> time. I would propose common predecessors and common successors. Some of
> these might be dummy operations.
>
> Actually, sorts are nice cases as they often read data that has been
> freshly created or create data that is just about to be read sequentially.
>
> Cheers, Martin
>
> Martin Packer
>
> Systems Investigator & Performance Troubleshooter, IBM
>
> +44-7802-245-584
>
> email: martin_pac...@uk.ibm.com
>
> Twitter / Facebook IDs: MartinPacker
>
> Blog: https://mainframeperformancetopics.com
>
> Mainframe, Performance, Topics Podcast Series (With Marna Walle):
> https://anchor.fm/marna-walle
>
> Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA
>
>
>
> From:   Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
> To:     IBM-MAIN@LISTSERV.UA.EDU
> Date:   23/09/2020 20:04
> Subject:[EXTERNAL] Batchpipes (was: SORT question: ...)
> Sent by:IBM Mainframe Discussion List 
>
>
>
> On Wed, 23 Sep 2020 19:23:33 +0100, Martin Packer wrote:
>
> >No, that would have to be another job, also specifying eg SUBSYS=PIPE.
> And
> >scheduled to run alongside the sort.
> >
> Eek!  How do they find each other?  And perhaps more important, what
> if several programmers unknown to each other concurrently submit
> job using SUBSYS=PIPE; how do they avoid mistaken identity?
> Must a scheduler sort it out?
>
> I've had corresponding problems with sockets and dynamically assigned
> ports: someone needs to note the port number and communicate it to
> the other.
>
> >>-Original Message-
> >>From: IBM Martin Packer
> >>Sent: Wednesday, September 23, 2020 4:31 AM
> >>...
> >>Something also from the mists of time, by no coincidence, is this:
> >>
> >
>
> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_Example_11._Sort_with_Pipes_and_OUTFIL_SPLIT.htm
>
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>
>
> 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
>

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


Re: Batchpipes (was: SORT question: ...)

2020-09-23 Thread Martin Packer
The pipe name is a data set name.

The scheduling problem is real: How to ensure two jobs run at the same 
time. I would propose common predecessors and common successors. Some of 
these might be dummy operations.

Actually, sorts are nice cases as they often read data that has been 
freshly created or create data that is just about to be read sequentially.

Cheers, Martin

Martin Packer

Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

Blog: https://mainframeperformancetopics.com

Mainframe, Performance, Topics Podcast Series (With Marna Walle): 
https://anchor.fm/marna-walle

Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA



From:   Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   23/09/2020 20:04
Subject:[EXTERNAL] Batchpipes (was: SORT question: ...)
Sent by:IBM Mainframe Discussion List 



On Wed, 23 Sep 2020 19:23:33 +0100, Martin Packer wrote:

>No, that would have to be another job, also specifying eg SUBSYS=PIPE. 
And
>scheduled to run alongside the sort.
>
Eek!  How do they find each other?  And perhaps more important, what
if several programmers unknown to each other concurrently submit
job using SUBSYS=PIPE; how do they avoid mistaken identity?
Must a scheduler sort it out?

I've had corresponding problems with sockets and dynamically assigned
ports: someone needs to note the port number and communicate it to
the other.

>>-Original Message-
>>From: IBM Martin Packer
>>Sent: Wednesday, September 23, 2020 4:31 AM
>>...
>>Something also from the mists of time, by no coincidence, is this:
>>
>
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_Example_11._Sort_with_Pipes_and_OUTFIL_SPLIT.htm


-- gil

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




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


Batchpipes (was: SORT question: ...)

2020-09-23 Thread Paul Gilmartin
On Wed, 23 Sep 2020 19:23:33 +0100, Martin Packer wrote:

>No, that would have to be another job, also specifying eg SUBSYS=PIPE. And
>scheduled to run alongside the sort.
>
Eek!  How do they find each other?  And perhaps more important, what
if several programmers unknown to each other concurrently submit
job using SUBSYS=PIPE; how do they avoid mistaken identity?
Must a scheduler sort it out?

I've had corresponding problems with sockets and dynamically assigned
ports: someone needs to note the port number and communicate it to
the other.

>>-Original Message-
>>From: IBM Martin Packer
>>Sent: Wednesday, September 23, 2020 4:31 AM
>>...
>>Something also from the mists of time, by no coincidence, is this:
>>
>https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_Example_11._Sort_with_Pipes_and_OUTFIL_SPLIT.htm

-- gil

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


Re: SORT question: How to both remove records from a file AND write removed records to a 2nd output?

2020-09-23 Thread Martin Packer
No, that would have to be another job, also specifying eg SUBSYS=PIPE. And 
scheduled to run alongside the sort.

Cheers, Martin

Martin Packer

Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

Blog: https://mainframeperformancetopics.com

Mainframe, Performance, Topics Podcast Series (With Marna Walle): 
https://anchor.fm/marna-walle

Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA



From:   Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   23/09/2020 17:18
Subject:[EXTERNAL] Re: SORT question: How to both remove records 
from a file AND write removed records to a 2nd output?
Sent by:IBM Mainframe Discussion List 



On Wed, 23 Sep 2020 16:01:08 +0100, Martin Packer wrote:

>Right. That example used BatchPipes/MVS pipes - but it's not essential to
>the use of OUTFIL SPLIT. The reason it used pipes was to enable cloning 
to
>balance a pipe.
> 
OK.  I looked at your example (z/OS 2.1; not too misty).  But what 
mystifies
me is where to code the Pipeline specification.  Suppose I want to, for
example to direct OUT1 (or an added OUT3) to a stage such as
DIGEST MD5.  Could I just code:
   ...,SUBSYS='PIPE,DIGEST MD5',...
??? if not, how?  And can I further direct that digest to SYSOUT?

>-Original Message-
>From: IBM Martin Packer
>Sent: Wednesday, September 23, 2020 4:31 AM
>...
>Something also from the mists of time, by no coincidence, is this:
>
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_Example_11._Sort_with_Pipes_and_OUTFIL_SPLIT.htm


-- gil

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




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: SORT question: How to both remove records from a file AND write removed records to a 2nd output?

2020-09-23 Thread Paul Gilmartin
On Wed, 23 Sep 2020 16:01:08 +0100, Martin Packer wrote:

>Right. That example used BatchPipes/MVS pipes - but it's not essential to
>the use of OUTFIL SPLIT. The reason it used pipes was to enable cloning to
>balance a pipe.
> 
OK.  I looked at your example (z/OS 2.1; not too misty).  But what mystifies
me is where to code the Pipeline specification.  Suppose I want to, for
example to direct OUT1 (or an added OUT3) to a stage such as
DIGEST MD5.  Could I just code:
   ...,SUBSYS='PIPE,DIGEST MD5',...
??? if not, how?  And can I further direct that digest to SYSOUT?

>-Original Message-
>From: IBM Martin Packer
>Sent: Wednesday, September 23, 2020 4:31 AM
>...
>Something also from the mists of time, by no coincidence, is this:
>https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_Example_11._Sort_with_Pipes_and_OUTFIL_SPLIT.htm

-- gil

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


Re: SORT question: How to both remove records from a file AND write removed records to a 2nd output?

2020-09-23 Thread Martin Packer
Right. That example used BatchPipes/MVS pipes - but it's not essential to 
the use of OUTFIL SPLIT. The reason it used pipes was to enable cloning to 
balance a pipe.

Cheers, Martin

Martin Packer

Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

Blog: https://mainframeperformancetopics.com

Mainframe, Performance, Topics Podcast Series (With Marna Walle): 
https://anchor.fm/marna-walle

Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA



From:   "Farley, Peter x23353" 
<031df298a9da-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   23/09/2020 14:54
Subject:[EXTERNAL] Re: SORT question: How to both remove records 
from a file AND write removed records to a 2nd output?
Sent by:IBM Mainframe Discussion List 



That might indeed be interesting if I knew what SUBSYS=PIPE was.  Is that 
the z/OS BatchPipes product?  If so I do not have that available here.

Peter

-Original Message-
From: IBM Mainframe Discussion List  On Behalf 
Of Martin Packer
Sent: Wednesday, September 23, 2020 4:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT question: How to both remove records from a file AND 
write removed records to a 2nd output?

EXTERNAL EMAIL

OUTFIL SPLIT.

Something also from the mists of time, by no coincidence, is this: 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_Example_11._Sort_with_Pipes_and_OUTFIL_SPLIT.htm
 


TBH, I probably wrote that and Frank made it worth reading. :-)

Cheers, Martin

Martin Packer

Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

Blog: 
https://mainframeperformancetopics.com 


Mainframe, Performance, Topics Podcast Series (With Marna Walle): 
https://anchor.fm/marna-walle 


Youtube channel: 
https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA 




From:   Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   22/09/2020 20:31
Subject:    [EXTERNAL] Re: SORT question: How to both remove records 
from a file AND write removed records to a 2nd output?
Sent by:IBM Mainframe Discussion List 



On Tue, 22 Sep 2020 20:08:12 +0100, Martin Packer wrote:
>
>SAVE has, to my mind, been most invaluable. Prior to this you had to 
>figure out the boolean complement of the INCLUDE= clause. With more 
>than one INCLUDE= clause in a sort it became hairier, requiring De 
>Morgan's Law*. :-)  SAVE made this a lot simpler and less error prone.
> 
Yet adding a NOT operator to the grammar (no one has mentioned that there 
is one) would relieve programmers of the chore of rewriting complex 
Boolean expressions with De Morgan's Law.

>"Card Dealer" not so much.
> 
I don't know "Card Dealer".  Does that amount to having multiple OUTFILs 
using different tags?

Thanks,
gil

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




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

This message and any attachments are intended only for the use of the 
addressee and may contain information that is privileged and confidential. 
If the reader of the message is not the intended recipient or an 
authorized representative of the intended recipient, you are hereby 
notified that any dissemination of this communication is strictly 
prohibited. If you have received this communication in error, please 
notify us immediately by e-mail and delete the message and any attachments 
from your system.

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




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: SORT question: How to both remove records from a file AND write removed records to a 2nd output?

2020-09-23 Thread Farley, Peter x23353
That might indeed be interesting if I knew what SUBSYS=PIPE was.  Is that the 
z/OS BatchPipes product?  If so I do not have that available here.

Peter

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Martin Packer
Sent: Wednesday, September 23, 2020 4:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT question: How to both remove records from a file AND write 
removed records to a 2nd output?

EXTERNAL EMAIL

OUTFIL SPLIT.

Something also from the mists of time, by no coincidence, is this: 
https://urldefense.com/v3/__https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_Example_11._Sort_with_Pipes_and_OUTFIL_SPLIT.htm__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!djsBTdtRWhlMDjqIDWZ3N2tii2HhPjYswgwHMqZah3Ae3uJs0JFjTuTVRzoFQonkEIOCWw$
 

TBH, I probably wrote that and Frank made it worth reading. :-)

Cheers, Martin

Martin Packer

Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

Blog: 
https://urldefense.com/v3/__https://mainframeperformancetopics.com__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!djsBTdtRWhlMDjqIDWZ3N2tii2HhPjYswgwHMqZah3Ae3uJs0JFjTuTVRzoFQokXweXXaQ$
 

Mainframe, Performance, Topics Podcast Series (With Marna Walle): 
https://urldefense.com/v3/__https://anchor.fm/marna-walle__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!djsBTdtRWhlMDjqIDWZ3N2tii2HhPjYswgwHMqZah3Ae3uJs0JFjTuTVRzoFQokxmRitYQ$
 

Youtube channel: 
https://urldefense.com/v3/__https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!djsBTdtRWhlMDjqIDWZ3N2tii2HhPjYswgwHMqZah3Ae3uJs0JFjTuTVRzoFQonXW_nH9A$
 



From:   Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   22/09/2020 20:31
Subject:[EXTERNAL] Re: SORT question: How to both remove records 
from a file AND write removed records to a 2nd output?
Sent by:IBM Mainframe Discussion List 



On Tue, 22 Sep 2020 20:08:12 +0100, Martin Packer wrote:
>
>SAVE has, to my mind, been most invaluable. Prior to this you had to 
>figure out the boolean complement of the INCLUDE= clause. With more 
>than one INCLUDE= clause in a sort it became hairier, requiring De 
>Morgan's Law*. :-)  SAVE made this a lot simpler and less error prone.
> 
Yet adding a NOT operator to the grammar (no one has mentioned that there is 
one) would relieve programmers of the chore of rewriting complex Boolean 
expressions with De Morgan's Law.

>"Card Dealer" not so much.
> 
I don't know "Card Dealer".  Does that amount to having multiple OUTFILs using 
different tags?

Thanks,
gil

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




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

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.

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


360 Question - Bantam

2020-09-23 Thread Neale Ferguson
Many years ago our S/360 source maintenance was done by an IBM program called 
BANTAM written by Barbara J Burian who later wrote texts on 370 Assembler 
programming. I am trying to find out if BANTAM was an acronym or just a name 
she chose as it’s sometimes written as Bantam. This particular program ran 
under DOS or TOS.

Neale

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


Re: SORT question: How to both remove records from a file AND write removed records to a 2nd output?

2020-09-23 Thread Martin Packer
Sometimes "in a parallel universe" can mean "in this universe"... :-)

It would be poacher turned, ahem, poacher... :-)

Cheers, Martin

Martin Packer

Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

Blog: https://mainframeperformancetopics.com

Mainframe, Performance, Topics Podcast Series (With Marna Walle): 
https://anchor.fm/marna-walle

Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA



From:   Sri h Kolusu 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   22/09/2020 20:34
Subject:[EXTERNAL] Re: SORT question: How to both remove records 
from a file AND write removed records to a 2nd output?
Sent by:IBM Mainframe Discussion List 



> On the "tagging" that Sri Hari mentioned:
>
> 1) You needn't tag unless you want to - and there will be some occasions
> where you don't want to.

Matrin,

Fully agreed.  I just wanted to show case with IFTHEN it is much easier to
split into multiple files with different conditions.

> Just some thoughts from someone who's loved playing with what DFSORT can
> do but has never actually been a DFSORT developer.


You are always welcome to join DFSORT.


Thanks,
Kolusu


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




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: SORT question: How to both remove records from a file AND write removed records to a 2nd output?

2020-09-23 Thread Martin Packer
OUTFIL SPLIT.

Something also from the mists of time, by no coincidence, is this: 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icea100/ice2ca_Example_11._Sort_with_Pipes_and_OUTFIL_SPLIT.htm

TBH, I probably wrote that and Frank made it worth reading. :-)

Cheers, Martin

Martin Packer

Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

Blog: https://mainframeperformancetopics.com

Mainframe, Performance, Topics Podcast Series (With Marna Walle): 
https://anchor.fm/marna-walle

Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA



From:   Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   22/09/2020 20:31
Subject:[EXTERNAL] Re: SORT question: How to both remove records 
from a file AND write removed records to a 2nd output?
Sent by:IBM Mainframe Discussion List 



On Tue, 22 Sep 2020 20:08:12 +0100, Martin Packer wrote:
>
>SAVE has, to my mind, been most invaluable. Prior to this you had to
>figure out the boolean complement of the INCLUDE= clause. With more than
>one INCLUDE= clause in a sort it became hairier, requiring De Morgan's
>Law*. :-)  SAVE made this a lot simpler and less error prone.
> 
Yet adding a NOT operator to the grammar (no one has mentioned that
there is one) would relieve programmers of the chore of rewriting complex
Boolean expressions with De Morgan's Law.

>"Card Dealer" not so much.
> 
I don't know "Card Dealer".  Does that amount to having multiple OUTFILs
using different tags?

Thanks,
gil

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




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: SORT question: How to both remove records from a file AND write removed records to a 2nd output?

2020-09-22 Thread Sri h Kolusu
> On the "tagging" that Sri Hari mentioned:
>
> 1) You needn't tag unless you want to - and there will be some occasions
> where you don't want to.

Matrin,

Fully agreed.  I just wanted to show case with IFTHEN it is much easier to
split into multiple files with different conditions.

> Just some thoughts from someone who's loved playing with what DFSORT can
> do but has never actually been a DFSORT developer.


You are always welcome to join DFSORT.


Thanks,
Kolusu


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


Re: SORT question: How to both remove records from a file AND write removed records to a 2nd output?

2020-09-22 Thread Paul Gilmartin
On Tue, 22 Sep 2020 20:08:12 +0100, Martin Packer wrote:
>
>SAVE has, to my mind, been most invaluable. Prior to this you had to
>figure out the boolean complement of the INCLUDE= clause. With more than
>one INCLUDE= clause in a sort it became hairier, requiring De Morgan's
>Law*. :-)  SAVE made this a lot simpler and less error prone.
> 
Yet adding a NOT operator to the grammar (no one has mentioned that
there is one) would relieve programmers of the chore of rewriting complex
Boolean expressions with De Morgan's Law.

>"Card Dealer" not so much.
> 
I don't know "Card Dealer".  Does that amount to having multiple OUTFILs
using different tags?

Thanks,
gil

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


Re: SORT question: How to both remove records from a file AND write removed records to a 2nd output?

2020-09-22 Thread Martin Packer
Back in the mists of time - so I can say it now :-) - Frank Yaeger and I 
were discussing how we might add some things to the first offering of 
OUTFIL in DFSORT that weren't then in Syncsort. We came up with SAVE and 
"Card Dealer".

SAVE has, to my mind, been most invaluable. Prior to this you had to 
figure out the boolean complement of the INCLUDE= clause. With more than 
one INCLUDE= clause in a sort it became hairier, requiring De Morgan's 
Law*. :-)  SAVE made this a lot simpler and less error prone.

"Card Dealer" not so much.

I would expect both implementations - DFSORT and Syncsort - to have had 
these functions since the 1990s and both have gone much further.

On the "tagging" that Sri Hari mentioned:

1) You needn't tag unless you want to - and there will be some occasions 
where you don't want to. One example might be if you've been counting with 
SUM FIELDS= and a binary "ONE" field. You might throw away records where 
the count is less than, say, 100.

2) One other thing you might want to do is to throw away, say, 90% of the 
records on the way in with INCLUDE/OMIT and then divide up the surviving 
records on the way out, using OUTFIL INCLUDE=/OMIT= and SAVE.

Just some thoughts from someone who's loved playing with what DFSORT can 
do but has never actually been a DFSORT developer.

* Augustus De Morgan founded the Maths Department at UCL, where I learnt a 
trick or two. :-)

Cheers, Martin

Martin Packer

Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

Blog: https://mainframeperformancetopics.com

Mainframe, Performance, Topics Podcast Series (With Marna Walle): 
https://anchor.fm/marna-walle

Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA



From:   Sri h Kolusu 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   22/09/2020 19:24
Subject:[EXTERNAL] Re: SORT question: How to both remove records 
from a file AND write removed records to a 2nd output?
Sent by:IBM Mainframe Discussion List 



> In one pass of an input file is there a way to use SORT to both
> remove identified records from an input file AND write those removed
> records to a second output file?


Peter,

You don't need 2 passes of data, you can tag the records that match your
identification and then use that tag to filter the records on OUTFIL. Some
thing like this

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
ABC  - DROP THIS RECORD
DEF  - PICK THIS RECORD
EFG  - PICK THIS RECORD
XYZ  - DROP THIS RECORD
ZZZ  - DROP THIS RECORD
//PICKREC  DD SYSOUT=*
//DROPREC  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
  INREC IFTHEN=(WHEN=(1,3,SS,EQ,C'DEF,EFG'),
   OVERLAY=(81:C'A'))

  OUTFIL FNAMES=PICKREC,
  INCLUDE=(81,1,CH,EQ,C'A'),
  BUILD=(1,80)

  OUTFIL FNAMES=DROPREC,SAVE,
  BUILD=(1,80)
/*


The PICKREC file will have the following records

DEF  - PICK THIS RECORD
EFG  - PICK THIS RECORD

The DROPREC file will have the following records

ABC  - DROP THIS RECORD
XYZ  - DROP THIS RECORD
ZZZ  - DROP THIS RECORD


For VB files, make sure that you have the Indicator right after the RDW so
that you retain the variable length records as is

Something like this

//SYSINDD *
  OPTION COPY
  INREC IFTHEN=(WHEN=INIT,
 BUILD=(1,4,$ RDW
X,  $ ID TAG
5)),$ DATA AS-IS

IFTHEN=(WHEN=(6,3,SS,EQ,C'DEF,EFG'),
   OVERLAY=(05:C'A'))

  OUTFIL FNAMES=PICKREC,
  INCLUDE=(05,1,CH,EQ,C'A'),
BUILD=(1,04,$ RDW
   6)   $ DATA AS-IS

  OUTFIL FNAMES=DROPREC,SAVE,
BUILD=(1,04,$ RDW
   6)   $ DATA AS-IS
/*


Fruther if you have any questions please let me know

Thanks,
 Kolusu
DFSORT Development
IBM Corporation

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




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: SORT question: How to both remove records from a file AND write removed records to a 2nd output?

2020-09-22 Thread Farley, Peter x23353
Thanks Sri, that is just what I need.

Peter

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
h Kolusu
Sent: Tuesday, September 22, 2020 2:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORT question: How to both remove records from a file AND write 
removed records to a 2nd output?

> In one pass of an input file is there a way to use SORT to both remove 
> identified records from an input file AND write those removed records 
> to a second output file?


Peter,

You don't need 2 passes of data, you can tag the records that match your 
identification and then use that tag to filter the records on OUTFIL. Some 
thing like this

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
ABC  - DROP THIS RECORD
DEF  - PICK THIS RECORD
EFG  - PICK THIS RECORD
XYZ  - DROP THIS RECORD
ZZZ  - DROP THIS RECORD
//PICKREC  DD SYSOUT=*
//DROPREC  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
  INREC IFTHEN=(WHEN=(1,3,SS,EQ,C'DEF,EFG'),
   OVERLAY=(81:C'A'))

  OUTFIL FNAMES=PICKREC,
  INCLUDE=(81,1,CH,EQ,C'A'),
  BUILD=(1,80)

  OUTFIL FNAMES=DROPREC,SAVE,
  BUILD=(1,80)
/*


The PICKREC file will have the following records

DEF  - PICK THIS RECORD
EFG  - PICK THIS RECORD

The DROPREC file will have the following records

ABC  - DROP THIS RECORD
XYZ  - DROP THIS RECORD
ZZZ  - DROP THIS RECORD


For VB files, make sure that you have the Indicator right after the RDW so that 
you retain the variable length records as is

Something like this

//SYSINDD *
  OPTION COPY
  INREC IFTHEN=(WHEN=INIT,
 BUILD=(1,4,$ RDW
X,  $ ID TAG
5)),$ DATA AS-IS

IFTHEN=(WHEN=(6,3,SS,EQ,C'DEF,EFG'),
   OVERLAY=(05:C'A'))

  OUTFIL FNAMES=PICKREC,
  INCLUDE=(05,1,CH,EQ,C'A'),
BUILD=(1,04,$ RDW
   6)   $ DATA AS-IS

  OUTFIL FNAMES=DROPREC,SAVE,
BUILD=(1,04,$ RDW
   6)   $ DATA AS-IS
/*

--

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.

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


  1   2   3   4   5   6   7   8   9   10   >