Re: shopz UJ01255

2020-09-24 Thread Tom Conley

On 9/24/2020 9:47 PM, R Hey wrote:

Hi Shmuel,

I was told:
  UJ01255 is SUPERSEDED BY: UJ03366 is on PUT 2008
Did get some PTF for RSU2008, but not UJ03366.

Cheers

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



Please open a case with IBM, this is a bug in SMP/E Internet delivery.

Regards,
Tom Conley

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


Re: shopz UJ01255

2020-09-24 Thread R Hey
Hi Shmuel,

I was told:
 UJ01255 is SUPERSEDED BY: UJ03366 is on PUT 2008
Did get some PTF for RSU2008, but not UJ03366.

Cheers

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


Re: Default logon procedure

2020-09-24 Thread Neale Ferguson
Naturally after hitting send I discover a zPDT Redbook that has the exact 
command: ALU  TSO(PROC(ISPFPROC)).

Apologies for the noise.

Neale Ferguson


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


Default logon procedure

2020-09-24 Thread Neale Ferguson
How do I set the default logon procedure for a TSO user? Currently on the login 
screen the Procedure field is empty and I’d like to set it to ISPFPROC. Using 
search on the IBM Knowledge site results in a heap of stuff and I am having 
trouble with sorting the wheat from the chaff.

Neale

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


Re: shopz UJ01255

2020-09-24 Thread Seymour J Metz
Did your order download anything that superseded UJ01255?


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



From: IBM Mainframe Discussion List  on behalf of R 
Hey <00bb27d4e6cb-dmarc-requ...@listserv.ua.edu>
Sent: Thursday, September 24, 2020 8:45 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: shopz UJ01255

Hi,

I did an order RECEIVE ORDER(CONTENT(RECOMMENDED)... in shopZ for zos2.3 in May 
& Sep.
I got many PTF up to RSU2008, but was missing UJ01255.

I found that out of this list:
UJ00088  F909
UJ00655  F911
UJ01172  F912
UJ00961  F001
UJ01255  F001
UJ01547  F003
UJ01809  F003
UJ02346  F003
UJ02146  F003
UJ01872  F004
UJ02215  F004
UJ02516  F005
UJ02578  F006
UJ02979  F007
UJ03210  F008
UJ03366  F008
I was missing these:
 UJ01255   NOT FOUND
 UJ01872   NOT FOUND
 UJ02215   NOT FOUND
 UJ02578   NOT FOUND
 UJ02979   NOT FOUND
 UJ03210   NOT FOUND
 UJ03366   NOT FOUND

Has this been the case for anybody else?

Thanks,
Rez

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

2020-09-24 Thread R Hey
Hi,

I did an order RECEIVE ORDER(CONTENT(RECOMMENDED)... in shopZ for zos2.3 in May 
& Sep.
I got many PTF up to RSU2008, but was missing UJ01255.

I found that out of this list:
UJ00088  F909 
UJ00655  F911 
UJ01172  F912 
UJ00961  F001 
UJ01255  F001 
UJ01547  F003 
UJ01809  F003 
UJ02346  F003 
UJ02146  F003 
UJ01872  F004 
UJ02215  F004 
UJ02516  F005 
UJ02578  F006 
UJ02979  F007 
UJ03210  F008 
UJ03366  F008
I was missing these:
 UJ01255   NOT FOUND
 UJ01872   NOT FOUND
 UJ02215   NOT FOUND
 UJ02578   NOT FOUND
 UJ02979   NOT FOUND
 UJ03210   NOT FOUND
 UJ03366   NOT FOUND

Has this been the case for anybody else? 

Thanks,
Rez

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


Re: I/O count of jobs running at USS service

2020-09-24 Thread Paul Gilmartin
On Fri, 25 Sep 2020 08:20:14 +1000, Attila Fogarasi wrote:

>SMF type 92, lots of subtypes covering different aspects, remember that
>Unix file system is different from MVS :)
> 
I believe one difference you may find is that on UNIX systems I know
the kernel caches disk blocks in a cache shared by all jobs.  That can
greatly optimize frequent operations such as directory searches.  As
a consequence, all physical I/O may appear to be done by the OMVS
address space.  I don't know whether SMF reports accesses to that
cache on behalf of user processes.

>On Thu, Sep 24, 2020 at 11:07 PM Ambrose Jr wrote:
>>
>> How to find the  I/O count of jobs running  at USS service ? .

-- gil

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


Re: I/O count of jobs running at USS service

2020-09-24 Thread Attila Fogarasi
SMF type 92, lots of subtypes covering different aspects, remember that
Unix file system is different from MVS :)

On Thu, Sep 24, 2020 at 11:07 PM Ambrose Jr 
wrote:

> Hi ,
>
> How to find the  I/O count of jobs running  at USS service ? .
>
> --
> Regards,
>
> Ambrose jr.
> 
>
> --
> 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: Caution: "Hacked" email caused the distribution of a potentially harmful attachment

2020-09-24 Thread Seymour J Metz
The issues are:

 1. What is the cost or risk of a false positive?

 2. What is the cost/risk of a false negative

 3. What are the probabilities for each.

Using a spam folder rather than rejection increases the risk of losing 
legitimate e-mail with no notice. It also increases the risk that someone will 
open a malware message, falsely believing it to be erroneously in the junk 
folder.

On the flip side, rejecting suspect spam has the risk that the sendeer's e-mail 
software is broken and fails to notify hime of the 5xx response.

Most of us receive legitimate e-mail from previously unknown legitimate 
senders. Using, e.g., a DNSBL to flag tainted sources and generating an 
appropriate 5xx can have a much lower risk than a spam folder or silently 
dropping. 

It all comes down to what has the lowest cost/risk in a given environment; any 
action, including inaction, will have costs and risks.


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



From: IBM Mainframe Discussion List  on behalf of CM 
Poncelet 
Sent: Thursday, September 24, 2020 4:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Caution: "Hacked" email caused the distribution of a potentially 
harmful attachment

The whitelist is created step-by-step by the end-user, as message filters, by 
checking through the trash folder and recognizing which received emails are 
*not* SPAM/scam. It's a "learning curve."

Phony emails that conform to the rules (as in from spoofed senders' email IDs) 
should be reported to Spamcop and, with some adequate reasoning (as in "if not 
this *and* also that etc."), can then be trapped and dropped in the trash 
folder.

For what my experience of anti-spam software is worth, I have regularly 
received spam/scam emails whose headers contained something like "Spamassassin 
score 4.7, 5.0 required" and which were thus allowed through as legitimate 
emails even though they were not.

Perhaps RACF does it better than ACF2 now. But in the 80's only ACF2 blocked 
everything unless an explicit rule allowed it - which is why security conscious 
companies chose ACF2 instead of RACF (in those days.) I would still choose ACF2 
or TSS over RACF. But thanks anyway for the 'update' ;-)


On 24/09/2020 12:40, R.S. wrote:
> W dniu 24.09.2020 o 03:10, CM Poncelet pisze:
>> All software filters are fundamentally flawed, because they presume to
>> recognize and 'understand' what is or not SPAM - which is logically
>> impossible. The only reliable filter is the hardware one, which assumes
>> by default that every received email is SPAM *unless* a message filter
>> rule says it is legitimate. That is how ACF2 enforced security - by
>> denying any access to a resource unless an ACF rule permitted it.
>
> How do you create whitelist?
> What if phony email conform the rules?
>
> No, spam-nospam decision is "fuzzy logic". Commercial filters may use
> some input from provider, something like virus definition. There are
> some popular spam (or malicious msg) messages with some characteristics.
>
> BTW: RACF does it better than ACF2 - while it is possible to deny by
> default, usually the decision is left to resource owner, who knows
> better what to do. ;-)
>

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

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


Re: Caution: "Hacked" email caused the distribution of a potentially harmful attachment

2020-09-24 Thread CM Poncelet
The whitelist is created step-by-step by the end-user, as message filters, by 
checking through the trash folder and recognizing which received emails are 
*not* SPAM/scam. It's a "learning curve."
 
Phony emails that conform to the rules (as in from spoofed senders' email IDs) 
should be reported to Spamcop and, with some adequate reasoning (as in "if not 
this *and* also that etc."), can then be trapped and dropped in the trash 
folder. 
 
For what my experience of anti-spam software is worth, I have regularly 
received spam/scam emails whose headers contained something like "Spamassassin 
score 4.7, 5.0 required" and which were thus allowed through as legitimate 
emails even though they were not. 
 
Perhaps RACF does it better than ACF2 now. But in the 80's only ACF2 blocked 
everything unless an explicit rule allowed it - which is why security conscious 
companies chose ACF2 instead of RACF (in those days.) I would still choose ACF2 
or TSS over RACF. But thanks anyway for the 'update' ;-)


On 24/09/2020 12:40, R.S. wrote:
> W dniu 24.09.2020 o 03:10, CM Poncelet pisze:
>> All software filters are fundamentally flawed, because they presume to
>> recognize and 'understand' what is or not SPAM - which is logically
>> impossible. The only reliable filter is the hardware one, which assumes
>> by default that every received email is SPAM *unless* a message filter
>> rule says it is legitimate. That is how ACF2 enforced security - by
>> denying any access to a resource unless an ACF rule permitted it.
>
> How do you create whitelist?
> What if phony email conform the rules?
>
> No, spam-nospam decision is "fuzzy logic". Commercial filters may use
> some input from provider, something like virus definition. There are
> some popular spam (or malicious msg) messages with some characteristics.
>
> BTW: RACF does it better than ACF2 - while it is possible to deny by
> default, usually the decision is left to resource owner, who knows
> better what to do. ;-)
>

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


Re: Bill Klein, COBOL standards person has died

2020-09-24 Thread Frank Swarbrick
Sad news.  Thanks for letting us know, Clark.


From: IBM Mainframe Discussion List  on behalf of 
Clark F Morris 
Sent: Thursday, September 24, 2020 1:05 PM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Bill Klein, COBOL standards person has died

The following is from comp.lang.cobol

Bill Klein was involved with COBOL requirements and other things at
SHARE.  He is being missed.

Clark Morris
On Thu, 17 Sep 2020 02:07:39 -0600, in comp.lang.cobol Louis Krupp
 wrote:

>On 9/16/2020 9:42 PM, Arnold Trembley wrote:
>>
>> Brian Tiffin reports than Bill Klein has died:
>>
>> "I'm saddened to inform everyone about the recent passing of William
>> Klein. Bill passed away September 5th 2020.
>>
>> "For those that may not know; Bill has been the COBOL Standard guy for
>> years now. Until he started losing his sight, he was also the Keeper
>> of the COBOL FAQ."
>>
>> Here's a link to Brian's post:
>>
>> https://sourceforge.net/p/gnucobol/discussion/lounge/thread/070e0bf6aa/
>>
>> William Klein was a fairly frequent poster in comp.lang.cobol,
>> although he had not been as active in recent years.
>>
>>
>>
>
>A couple of obituaries (I believe these are for the right Bill Klein --
>I trust that someone will correct me if they're not):
>
>https://www.donnellanfuneral.com/obituaries/William-Michael--Klein?obId=18353180
>
>http://www.iagsdchistory.org/historywiki/index.php/Bill_Klein
>
>Louis

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


Bill Klein, COBOL standards person has died

2020-09-24 Thread Clark F Morris
The following is from comp.lang.cobol

Bill Klein was involved with COBOL requirements and other things at
SHARE.  He is being missed.

Clark Morris
On Thu, 17 Sep 2020 02:07:39 -0600, in comp.lang.cobol Louis Krupp
 wrote:

>On 9/16/2020 9:42 PM, Arnold Trembley wrote:
>>
>> Brian Tiffin reports than Bill Klein has died:
>>
>> "I'm saddened to inform everyone about the recent passing of William 
>> Klein. Bill passed away September 5th 2020.
>>
>> "For those that may not know; Bill has been the COBOL Standard guy for 
>> years now. Until he started losing his sight, he was also the Keeper 
>> of the COBOL FAQ."
>>
>> Here's a link to Brian's post:
>>
>> https://sourceforge.net/p/gnucobol/discussion/lounge/thread/070e0bf6aa/
>>
>> William Klein was a fairly frequent poster in comp.lang.cobol, 
>> although he had not been as active in recent years.
>>
>>
>>
>
>A couple of obituaries (I believe these are for the right Bill Klein -- 
>I trust that someone will correct me if they're not):
>
>https://www.donnellanfuneral.com/obituaries/William-Michael--Klein?obId=18353180
>
>http://www.iagsdchistory.org/historywiki/index.php/Bill_Klein
>
>Louis

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


Re: dataset list ISPF =3.4 batch job

2020-09-24 Thread Seymour J Metz
There are lots of programs available, besides batch ISPF; which one is best 
depens on what you're looking for. My preference is Gerhard's IEHVTOC, but 
there are lots more on the CBT tape. If you want IBM, there are utilities and 
service aids, e.g., IEHLIST, although those aren't my preference.


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



From: IBM Mainframe Discussion List  on behalf of 
Bill Giannelli 
Sent: Thursday, September 24, 2020 12:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: dataset list ISPF =3.4 batch job

is there a batch job equivalent of ISPF =3.4 dataset list? I want to get a 
total (or at least a list of) tracks for a dataset list.
thanks
Bill

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

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


Re: dataset list ISPF =3.4 batch job

2020-09-24 Thread David Spiegel

The VTOC Command Processor ...  CBT File 112

On 2020-09-24 12:32, Bill Giannelli wrote:

is there a batch job equivalent of ISPF =3.4 dataset list? I want to get a 
total (or at least a list of) tracks for a dataset list.
thanks
Bill

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


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


Re: dataset list ISPF =3.4 batch job

2020-09-24 Thread Sri h Kolusu
> is there a batch job equivalent of ISPF =3.4 dataset list? I want to
> get a total (or at least a list of) tracks for a dataset list.


Bill,

If your shop has File-Manager you can run the following to get he listing
similar to 3.4

//STEP0100 EXEC PGM=FILEMGR
//SYSPRINT DD SYSOUT=*
//SYSINDD *
$$FILEM SET HEADERPG=YES,PAGESIZE=60
$$FILEM DVT ,
$$FILEM VOLSER=*,
$$FILEM DSNAME=your dsn hlq.*
/*

Thanks,
Kolusu

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


Re: dataset list ISPF =3.4 batch job

2020-09-24 Thread Joseph Reichman
Program takes 3 Parms first return code 
Second structure catalog name and 3.4 type filter key third out our area I have 
it statically linked but can be dynamic 



> On Sep 24, 2020, at 12:47 PM, Bill Giannelli  wrote:
> 
> thank you for the info! Sorry stupid question, run that as an instream proc?
> thanks
> Bill
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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


Re: dataset list ISPF =3.4 batch job

2020-09-24 Thread Bill Giannelli
thank you for the info! Sorry stupid question, run that as an instream proc?
thanks
Bill

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


Re: dataset list ISPF =3.4 batch job

2020-09-24 Thread Joseph Reichman
IGGCSI00 catalog search



> On Sep 24, 2020, at 12:42 PM, Joe Monk  wrote:
> 
> Sure ...
> 
> Run this using ISPF in batch. To execute it for a different
> HLQ than your userid: TSO %clstname L(HLQ)
> 
> 
> PROC 0 L() G(SAVE)
> /* */
> /* Quick ISPF save of data set names. This is much quicker */
> /* than using OPT 3.4, because it does not do an obtain */
> /* for each data set in the list because of STATS(NO). */
> /* The dsn created will be USERID.SAVE.DATASETS */
> /* */
> ISPEXEC CONTROL ERRORS RETURN
> ISPEXEC LMDINIT LISTID(LISTID) LEVEL()
> ISPEXEC LMDLIST LISTID() OPTION(SAVE) STATS(NO) GROUP()
> WRITE COMPLETE!! RETURN CODE WAS 
> ISPEXEC LMDFREE LISTID()
> 
> Joe
> 
>> On Thu, Sep 24, 2020 at 11:32 AM Bill Giannelli 
>> wrote:
>> 
>> is there a batch job equivalent of ISPF =3.4 dataset list? I want to get a
>> total (or at least a list of) tracks for a dataset list.
>> thanks
>> Bill
>> 
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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


Re: dataset list ISPF =3.4 batch job

2020-09-24 Thread Joe Monk
Sure ...

Run this using ISPF in batch. To execute it for a different
HLQ than your userid: TSO %clstname L(HLQ)


PROC 0 L() G(SAVE)
/* */
/* Quick ISPF save of data set names. This is much quicker */
/* than using OPT 3.4, because it does not do an obtain */
/* for each data set in the list because of STATS(NO). */
/* The dsn created will be USERID.SAVE.DATASETS */
/* */
ISPEXEC CONTROL ERRORS RETURN
ISPEXEC LMDINIT LISTID(LISTID) LEVEL()
ISPEXEC LMDLIST LISTID() OPTION(SAVE) STATS(NO) GROUP()
WRITE COMPLETE!! RETURN CODE WAS 
ISPEXEC LMDFREE LISTID()

Joe

On Thu, Sep 24, 2020 at 11:32 AM Bill Giannelli 
wrote:

> is there a batch job equivalent of ISPF =3.4 dataset list? I want to get a
> total (or at least a list of) tracks for a dataset list.
> thanks
> Bill
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: IEFDDSRV DD service

2020-09-24 Thread Tony Harminc
Wow - that's a nostalgic trip through ancient devices! I worked with
at least 25 of those explicitly mentioned.

By coincidence I see there's a 2501 card reader mechanism on eBay at the moment.

Tony H.


On Thu, 24 Sep 2020 at 01:23, Jim Mulder  wrote:
>
>  BTFOOM.Here is some stuff,  but not complete, at least
> for UCBTYBT4:
>
>  BROWSESYS1.MACLIB(IEFUCBOB)Line 000864
>  Command ===>  Scrol
> UCBDVCLS DS0B  Same as UCBTBYT3
> UCBTBYT3 DSB   Class bits
> UCB3TAPE EQU   X'80'   Tape
> UCB3COMM EQU   X'40'   Communications
> UCB3CTC  EQU   X'41'   Channel-to-channel adapter
> UCB3DACC EQU   X'20'   Direct access
> UCB3DISP EQU   X'10'   Display
> UCB3UREC EQU   X'08'   Unit record
> UCB3CHAR EQU   X'04'   Character reader
> UCBRSV10 EQU   X'02'   Reserved
> UCBRSV11 EQU   X'01'   Reserved
>
>  BROWSESYS1.MODGEN(IECDUCBC)Line 000165 Col
>  Command ===>  Scroll =
> *//
> */*  UCBTBYT4 mapping*/
> *//
> UCBPCTC  EQU   X'00'   Parallel CTC@01A
> UCBSCTC  EQU   X'01'   Serial CTC  @01A
> UCBBCTC  EQU   X'02'   Basic Mode ESCON CTC@02A
> UCBRS6K  EQU   X'03'   RS6000 acting like a CTC@D1A
> UCB3172  EQU   X'04'   3172 acting like a CTC  @D1A
> UCBOSA   EQU   X'05'   OSA device  @03A
> UCBOSAD  EQU   X'06'   OSA diagnostic device   @03A
> UCBIQD   EQU   X'07'   Internal Queued Direct
> *  Communications Device   @L2A
> UCBOSN   EQU   X'08'   OSA NCP (OSN) device@07A
> UCBOSX   EQU   X'09'   OSX (OSA zBX Data Network)  @08A
> UCBOSM   EQU   X'0A'   OSM (OSA zBX Management
> *  Network)@08A
> UCBOSAF  EQU   X'0F'   OSA reserved device types B-F   @08C
> UCBFCTC  EQU   X'20'   FICON CTC   @06A
> UCBFBRC  EQU   X'21'   Fabric discovery device @L6A
>
>  BROWSESYS1.MODGEN(IECDUCBE)Line 84 Col
>  Command ===>  Scroll =
> *UCBTBYT4 Flag Byte
> UCB3791L  EQU   X'F1' 3791 Local control unit
> UCB42AD1  EQU   X'11' 2702 Control unit with type 1
> * adapter
>
>
>  BROWSESYS1.MODGEN(IECDUCBT)Line 000511 Col
>  Command ===>  Scroll ==
> *UCBTBYT4 (UCBUNTYP) values
> *
> UCB3400  EQU   X'03'   3400 magnetic tape
> UCB3423  EQU   X'82'   3423 magnetic tape  @H4A
> UCB3480  EQU   X'80'   3480 magnetic tape
> UCB3490  EQU   X'81'   3490 magnetic tape  @H3A
> UCB3591  EQU   X'83'   3590 magnetic tape  @H5A
>
>  BROWSESYS1.MODGEN(IECDUCBU)Line 000453 Col
>  Command ===>  Scroll =
> * UCBUNTYP (UCBTBYT4) Flag Byte
> ***  EQU   X'08'  1403 Printer
> UCB3211  EQU   X'09'  3211 Printer
> UCB3800  EQU   X'0E'  3800 Printing Subsystem
> UCBAFP1  EQU   X'0F'  Printer support
> UCB3263  EQU   X'11'  3263 Printer
> UCB4245  EQU   X'11'  4245 Printer
> UCB4248  EQU   X'13'  4248 Printer
> UCB3895  EQU   X'19'  3895 device
> UCBDIR   EQU   X'3A'  ESCON or FICON Director @L1A
> UCBDSM   EQU   X'42'  Mass Storage Control (MSC) (3851)
> * (no longer supported)
> UCB3838  EQU   X'4C'  3838 Array Processor
> UCBFBA   EQU   X'60'  Fixed Block Architecture (FBA)  @FBA
>
>
> IECLMSGC
> CON5 BIT(8)CONSTANT('0101'B),/* constant '05'x  */
> CONF BIT(8)CONSTANT(''B),/* constant '0F'x  */
> IF UCBTBYT4='F1'X THEN/* 3791 ?
>  IF (UCBTBYT4)=CON5 THEN/* 370x ?
>
> IECLMSGU
> IF (OVERRUN=ON)&(UCBTBYT4='04'X|UCBTBYT4='05'X) THEN /*
>over run and d/t2501   @ZA94924
>and d/t2520?   @ZA94924*/
> IF (UNITTP=ON)&((UCBTBYT4='01'X)|(UCBTBYT4='02'X))
>THEN   /* unit record check and 2540 card
>  read punch?*/
>
>/* If it is a 3540 disket divice and the volume serial number
>  

dataset list ISPF =3.4 batch job

2020-09-24 Thread Bill Giannelli
is there a batch job equivalent of ISPF =3.4 dataset list? I want to get a 
total (or at least a list of) tracks for a dataset list.
thanks
Bill

--
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: IEFDDSRV — DD service

2020-09-24 Thread Mark Jacobs
I opened a service request with IOS support on this. They agreed that the UCB 
mapping macro should have been updated with the UCBDUMMY field in z/OS 2.2 when 
it became a PI. They asked if the APAR to fix could be opened as FIN, which I 
agreed to if they can tell me what to use and how to use it for my needs before 
it's officially changed.

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 Wednesday, September 23, 2020 10:43 PM, Jim Mulder  
wrote:

> If you want to complain that the PI field name UCBDUMMY
> is generated only if you specify SSMD=YES, which is
> designated for IOS use only, that seems like a valid
> complaint. Also, ADM is another valid type of
> dummy UCB, but that is not in the list in the comment
> on UCBDUMMY.
>
> BROWSE SYS1.MACLIB(IEFUCBOB)
>
> MACRO
> IEFUCBOB =YES,=NO,=NO,=
>
> /02 PI: FIELDS UCBDUMMY @PGA/
> / UCBALOC UCBCHAN UCBCHGS UCBDADI UCBDVCLS @LFA*/
> / UCBPRES UCBPUB UCBRESV UCBSYSR UCBTBYT1 @LFA*/
> / UCBTBYT2 UCBTBYT3 UCBTBYT4 UCBTYP UCBUNTYP @LFA*/
> / UCBONLI UCBUNLD UCBASID UCBAUTOS @PAC*/
> / UCBID UCBMTPXP UCBNOCON UCBNRY @LFA*/
> / UCBVRDEV UCBSTND UCBCLEXT UCBREW @LFA*/
>
> / SSMD is used to control the UCB mapping. The */
> / valid operands and their meanings are: */
> / */
> / NO - Generates the standard UCB mapping. This is the */
> / default. */
> / */
> / YES - Generates the UCB mapping that is used internally */
> / by IOS. This mapping is for IOS use only. */
> / */
>
> / $PG=ME26777 HBB77A0 150228 PDSW: Update ext classification /
>
> / for UCBDUMMY to PI @PGA/
>
> AIF ('' NE 'YES').UCB005 @L7A
> UCBDUMMY DS CL3 Dummy UCBs use this field to @M5C
>
> -identify the type of dummy UCB. @M5A
>
>
> -VIO, SMS and JES are valid  @M5A
>
>
> -types of dummy UCBs @M5A
>AGO   .UCB006 @L7A
>
>
>
> .UCB005 ANOP @L7A
> UCBNAME DS CL3 Device number (EBCDIC)
> .UCB006 ANOP @L7A
>
> Jim Mulder z/OS Diagnosis, Design, Development, Test IBM Corp.
> Poughkeepsie NY
>
> "IBM Mainframe Discussion List" IBM-MAIN@LISTSERV.UA.EDU wrote on
> 09/23/2020 03:56:10 PM:
>
> > From: "Mark Jacobs" 0224d287a4b1-dmarc-requ...@listserv.ua.edu
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Date: 09/23/2020 10:32 PM
> > Subject: IEFDDSRV — DD service
> > Sent by: "IBM Mainframe Discussion List" IBM-MAIN@LISTSERV.UA.EDU
> > I'm reading the documentation and it's telling me this;
> > In some cases, this service may not return a device UCB, but instead
> > may return a zero UCB address or the address of a dummy UCB. This
> > may occur for DDs that represent DD DUMMY requests, VIO data sets,
> > SYSOUT data sets, in-stream data sets, and some SMS-managed data
> > sets. A dummy UCB can be identified using the UCBDUMMY field in the
> > UCB. A dummy UCB may not have all of the UCB segments that a device
> > UCB may have and not all services that are used for processing
> > device UCBs may support dummy UCBs.
> > I don't see a UCBDUMMY field in mapping macro IEFUCBOB.
> > Mark Jacobs
>
> --
>
> 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


I/O count of jobs running at USS service

2020-09-24 Thread Ambrose Jr
Hi ,

How to find the  I/O count of jobs running  at USS service ? .

-- 
Regards,

Ambrose jr.


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


Re: Caution: "Hacked" email caused the distribution of a potentially harmful attachment

2020-09-24 Thread R.S.

W dniu 24.09.2020 o 03:10, CM Poncelet pisze:

All software filters are fundamentally flawed, because they presume to
recognize and 'understand' what is or not SPAM - which is logically
impossible. The only reliable filter is the hardware one, which assumes
by default that every received email is SPAM *unless* a message filter
rule says it is legitimate. That is how ACF2 enforced security - by
denying any access to a resource unless an ACF rule permitted it.


How do you create whitelist?
What if phony email conform the rules?

No, spam-nospam decision is "fuzzy logic". Commercial filters may use 
some input from provider, something like virus definition. There are 
some popular spam (or malicious msg) messages with some characteristics.


BTW: RACF does it better than ACF2 - while it is possible to deny by 
default, usually the decision is left to resource owner, who knows 
better what to do. ;-)


--
Radoslaw Skorupka
Lodz, Poland





==

Jeśli nie jesteś adresatem tej wiadomości:

- powiadom nas o tym w mailu zwrotnym (dziękujemy!),
- usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś 
na dysku).
Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać 
tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) 
tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać 
karze.

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 
Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. 
Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, 
NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 
01.01.2020 r. wynosi 169.401.468 złotych.

If you are not the addressee of this message:

- let us know by replying to this e-mail (thank you!),
- delete this message permanently (including all the copies which you have 
printed out or saved).
This message may contain legally protected information, which may be used 
exclusively by the addressee.Please be reminded that anyone who disseminates 
(copies, distributes) this message or takes any similar action, violates the 
law and may be penalised.

mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 
Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital 
City of Warsaw, 12th Commercial Division of the National Court Register, KRS 
025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 
169.401.468 as at 1 January 2020.

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