Re: shopz UJ01255

2020-09-25 Thread Jousma, David
Instead of ordering "Recommended", order everything, and then only apply the 
Recommended.

CONTENT (ALL)   

Its entirely possible the PTF you are interested in, never made it to 
"recommended".

_
Dave Jousma
AVP | Director, Technology Engineering  

Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand Rapids, MI 
49546
616.653.8429  |  fax: 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of R 
Hey
Sent: Thursday, September 24, 2020 8:46 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: shopz UJ01255

**CAUTION EXTERNAL EMAIL**

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

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 **CAUTION EXTERNAL 
EMAIL**

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

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.


--
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-25 Thread Styles, Andy (ITS zPlatform Services)
Classification: Limited

I went through a similar discussion last year (? this year? Time flies..), and 
I now do RECEIVE ALL - just means you have all available fixes, whether you 
then go on to APPLY them of course, is entirely up to you, but I found it was 
better to have them than now. It's also worth noting that RECEIVE ORDER will 
bring in updated SOURCEIDs, so if you already have the fix, and it did 
subsequently make into an RSU, it will then get that sourceid applied to it. 

Andy Styles
z/Series System Programmer

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jousma, David
Sent: 25 September 2020 11:23
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: shopz UJ01255

-- This email has reached the Bank via an external source --
 

Instead of ordering "Recommended", order everything, and then only apply the 
Recommended.

CONTENT (ALL)   

Its entirely possible the PTF you are interested in, never made it to 
"recommended".

_
Dave Jousma
AVP | Director, Technology Engineering  

Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand Rapids, MI 
49546
616.653.8429  |  fax: 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of R 
Hey
Sent: Thursday, September 24, 2020 8:46 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: shopz UJ01255

**CAUTION EXTERNAL EMAIL**

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

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 **CAUTION EXTERNAL 
EMAIL**

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

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Lloyds Banking Group plc. Registered Office: The Mound, Edinburgh EH1 1YZ. 
Registered in Scotland no. SC95000. Telephone: 0131 225 4555.

Lloyds Bank plc. Registered Office: 25 Gresham Street, London EC2V 7HN. 
Registered in England and Wales no. 2065. Telephone 0207626 1500.

Bank of Scotland plc. Registered Office: The Mound, Edinburgh EH1 1YZ. 
Registered in Scotland no. SC327000. Telephone: 03457 801 801.

Lloyds Bank Corporate Markets plc. Registered office: 25 Gresham Street, London 
EC2V 7HN. Registered in England and Wales no. 10399850.

Scottish Widows Schroder Personal Wealth Limited. Registered Office: 25 Gresham 
Street, London EC2V 7HN. Registered in England and Wales no. 11722983.

Lloyds Bank plc, Bank of Scotland plc and Lloyds Bank Corporate Markets plc are 
authorised by the Prudential Regulation Authority and regulated by the 
Financial Conduct Authority and Prudential Regulation Authority.

Scottish Widows Schroder Personal Wealth Limited is authorised and regulated by 
the Financial Conduct Authority.

Lloyds Bank Corporate Markets Wertpapierhandelsbank GmbH is a wholly-owned 
subsidiary of Lloyds Bank Corporate Markets plc. Lloyds Bank Corporate Markets 
Wertpapierhandelsbank GmbH has its registered office at Thurn-und-Taxis Platz 
6, 60313 Frankfurt, Germany. The company is registered with the Amtsgericht 
Frankfurt am Main, HRB 111650. Lloyds Bank Corporate Markets 
Wertpapierhandelsbank GmbH is supervised by the Bundesanstalt für 
Finanzdienstleistungsaufsicht.

Halifax is a division of Bank of Scotl

DFSort to pull the latest record date

2020-09-25 Thread Ron Thomas
Hello

We are using DFSORT utility to extract the latest record for a store/item/po 
and below is the sample file 

item_nbr| Store_nbr|Po_nbr|item_date|mode|
00604|9137|1100276393|2017-12-26|7|DSD   |
00604|9137|1100278550|2018-01-09|6|DSD   |

Here we need to pull the 2'nd record to the Output as this is the latest date . 

Could someone please let me know how to achieve the same 

Regards
Ron T

--
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-25 Thread R.S.
This is not state of the art solution, but... You can prepare another 
order and explicitly request all the missing PTFs in this order. Finally 
you will have two (three..) orders which you can RECEIVE into CSI.
While it is convenient to have all needed PTF within single order it is 
not required.



BTW: Things may become more complicated for older PTFs, but this is 
definitely NOT the case.


--
Radoslaw Skorupka
Lodz, Poland







W dniu 25.09.2020 o 02:45, R Hey pisze:

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
.





==

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


Re: DFSort to pull the latest record date

2020-09-25 Thread Clark Morris
[Default] On 25 Sep 2020 09:54:45 -0700, in bit.listserv.ibm-main
ron5...@gmail.com (Ron Thomas) wrote:

>Hello
>
>We are using DFSORT utility to extract the latest record for a store/item/po 
>and below is the sample file 
>
>item_nbr| Store_nbr|Po_nbr|item_date|mode|
>00604|9137|1100276393|2017-12-26|7|DSD   |
>00604|9137|1100278550|2018-01-09|6|DSD   |
>
>Here we need to pull the 2'nd record to the Output as this is the latest date 
>. 
>
>Could someone please let me know how to achieve the same 

Given the obscurity of the control statements (quick tell me what
field is 1,4,CH) why not write the thing in a language that has access
to the descriptions of the fields being used?  We are not in the era
of 22K DOS360 partitions, 100K MVT regions or 4 megabyte MVS regions
anymore.  PL1 and COBOL both generate fairly efficient code and when
the tool becomes more than one off wonder, someone else can pick up
the program and have a fighting chance of understanding what was being
done.

Clark Morris
  >
>Regards
>Ron T
>
>--
>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: Default logon procedure

2020-09-25 Thread R.S.

W dniu 25.09.2020 o 02:59, Neale Ferguson pisze:

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.


There is no hardcoded default for that. Vanilla new user will have the 
emtpy field in the TSO segment, but it can be populated during user 
definition. Otherwise the user has to provide the value in the Procedure 
field. But only for first logon - this value will be recorded in TSO 
segment.

Of course the procedure has to be created in the PROCLIB.

To be honest, ServerPac installs the procedure named IKJACCNT, which can 
be understood as a default, but this is only some name.


My advice: create "rescue" procedure, with small set of libraries and DO 
NOT TOUCH IT. It will be your rescue when someone screw up other 
procedures.


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


Re: DFSort to pull the latest record date

2020-09-25 Thread Sri h Kolusu
> Here we need to pull the 2'nd record to the Output as this is the
> latest date .


Ron,

Use the following DFSORT/ICETOOL JCL which will give you the desired
results

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN   DD *
+1+2+3+4+5+6
00604|9137|1100276393|2017-12-26|7|DSD   |
00604|9137|1100278550|2018-01-09|6|DSD   |
00605|9138|1100276393|2020-06-26|7|DSD   |
00605|9138|1100278550|2018-01-09|6|DSD   |
//OUT  DD SYSOUT=*
//TOOLIN   DD *
  SELECT FROM(IN) TO(OUT) ON(01,14,CH) FIRST USING(CTL1)
//CTL1CNTL DD *
  SORT FIELDS=(01,14,CH,A,  $ ITEM_NBR + STORE_NBR
   26,10,UFF,D) $ ITEM_DATE
/*

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 to pull the latest record date

2020-09-25 Thread Lizette Koehler
Why not load the data into a DB and use SQL or similar language?

If you have SAS - Max Min - functions 

If you can load to EXCEL - use its functions

Not all functions on the mainframe can do everything.  You should look at what 
makes sense.  And if the tool you are comfortable in using, does not have the 
function, I would say to find one that does.

Hope that helps

Lizette


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Ron 
Thomas
Sent: Friday, September 25, 2020 9:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: DFSort to pull the latest record date

Hello

We are using DFSORT utility to extract the latest record for a store/item/po 
and below is the sample file 

item_nbr| Store_nbr|Po_nbr|item_date|mode|
00604|9137|1100276393|2017-12-26|7|DSD   |
00604|9137|1100278550|2018-01-09|6|DSD   |

Here we need to pull the 2'nd record to the Output as this is the latest date . 

Could someone please let me know how to achieve the same 

Regards
Ron T

--
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 to pull the latest record date

2020-09-25 Thread Sri h Kolusu
> Given the obscurity of the control statements (quick tell me what
> field is 1,4,CH) why not write the thing in a language

Clark,

I have to respectfully disagree with you. The control statements for DFSORT
are not obscure and they are on the same level as following the
coding/syntax rules for a programming language.  For example COBOL, you
would follow all the rules governing it. So why not do the same for DFSORT?

>> PL1 and COBOL both generate fairly efficient code and when
> the tool becomes more than one off wonder, someone else can pick up
> the program and have a fighting chance of understanding what was being
> done.

Aren't the programs depending on the input file attributes?  For example a
COBOL program written to handle a FB 80 byte file will NOT work with FB 100
byte file. You need to write another program to handle it.  With DFSORT
there is absolutely no change in the control cards for different LRECL as
long as the key fields are the same.

DFSORT has come a long way from being just a sort product. It can do a lot.


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: Caution: "Hacked" email caused the distribution of a potentially harmful attachment

2020-09-25 Thread zMan
Wayne Bickerdike wrote:

>My "spoof" email was apparently genuine. The

>person who sent it has no idea

>how much he got wrong with the request.

Eh? Can you elaborate? First sentence makes no sense. It was spoofed or it
wasn't?!
-- 
zMan -- "I've got a mainframe and I'm not afraid to use it"

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


Re: DFSort to pull the latest record date

2020-09-25 Thread Sri h Kolusu
>>If you can load to EXCEL - use its functions

Not all functions on the mainframe can do everything.  You should look at
what makes sense.  And if the tool you are comfortable in using, does not
have the function, I would say to find one that does.

Lizette,

EXCEL is limited to 1 million records. And it would take a lot of time to
load it and then sort it and then eliminate the duplicates.

>>Not all functions on the mainframe can do everything.  You should look at
what makes sense.  And if the tool you are comfortable in using, does not
have the function, I would say to find one that does.

If the file is on mainframe,  a Program/Utility should be able to handle
it.


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 to pull the latest record date

2020-09-25 Thread Ron Thomas
Thanks a lot Kolusu for the help.. it worked like a charm!!

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


Re: DFSort to pull the latest record date

2020-09-25 Thread Lizette Koehler
Totally agree

Just trying to provide alternatives that might make sense.  I know I love
SAS and I tend to do everything in SAS. But my co workers do not use it.  So
then I either have to super document the process so they can support it 

Or find alternatives to do the work that they would be able to support.

Today, most users know a little bit about SQL.  So a Data base functions
starts to make more sense.

It is all a matter of perspective.

Lizette


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Sri h Kolusu
Sent: Friday, September 25, 2020 10:34 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSort to pull the latest record date

>>If you can load to EXCEL - use its functions

Not all functions on the mainframe can do everything.  You should look at
what makes sense.  And if the tool you are comfortable in using, does not
have the function, I would say to find one that does.

Lizette,

EXCEL is limited to 1 million records. And it would take a lot of time to
load it and then sort it and then eliminate the duplicates.

>>Not all functions on the mainframe can do everything.  You should look 
>>at
what makes sense.  And if the tool you are comfortable in using, does not
have the function, I would say to find one that does.

If the file is on mainframe,  a Program/Utility should be able to handle it.


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 to pull the latest record date

2020-09-25 Thread Martin Packer
Excel is awful to use. I would recommend doing as much as possible 
elsewhere before loading into Excel. (Including what some of my code does: 
Creating the CSV files in DFSORT.)

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:   25/09/2020 18:34
Subject:[EXTERNAL] Re: DFSort to pull the latest record date
Sent by:IBM Mainframe Discussion List 



>>If you can load to EXCEL - use its functions

Not all functions on the mainframe can do everything.  You should look at
what makes sense.  And if the tool you are comfortable in using, does not
have the function, I would say to find one that does.

Lizette,

EXCEL is limited to 1 million records. And it would take a lot of time to
load it and then sort it and then eliminate the duplicates.

>>Not all functions on the mainframe can do everything.  You should look 
at
what makes sense.  And if the tool you are comfortable in using, does not
have the function, I would say to find one that does.

If the file is on mainframe,  a Program/Utility should be able to handle
it.


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 to pull the latest record date

2020-09-25 Thread Paul Gilmartin
On Fri, 25 Sep 2020 14:08:30 -0300, Clark Morris wrote:
>
>Given the obscurity of the control statements (quick tell me what
>field is 1,4,CH) why not write the thing in a language that has access
>to the descriptions of the fields being used?  We are not in the era
>of 22K DOS360 partitions, 100K MVT regions or 4 megabyte MVS regions
>anymore.  PL1 and COBOL both generate fairly efficient code and when
>the tool becomes more than one off wonder, someone else can pick up
>the program and have a fighting chance of understanding what was being
>done.
> 
Kolusu gave an answer which appears to be, "take the first record after
sort descending with:
  SORT FIELDS=(01,14,CH,A,  $ ITEM_NBR + STORE_NBR
   26,10,UFF,D) $ ITEM_DATE

That's well-commented; as clear as naming the fields in a COBOL record
definition.  The possible advantage exists if that record definition exists
in a copybook and needn't be coded ad-hoc by the programmer.  But a
similar effect could be achieved by JCL symbols, possibly defined in a
JCLLIB member, to be substituted in an instream SORTCTL.

(As a novice, and accustomed only to other sort utilities, I was surprised
only that the major key seems to come last.)

The inconvenience of COBOL for a one-off is the need for a prior job
step to compile and link into a temporary STEPLIB (or does the COBOL
PROC have a compile-load-and go option?)

Similarly, Rexx for a one-off requires a prior IEBGENER step to copy
SYSIN to a temporary SYSEXEC (but I've done something similar
with IKJEFT01: REPRO; EXEC.)

But does RT ever author his own SORTCTL, or always appeal to the
list to do it for him?

-- gil

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


Re: DFSort to pull the latest record date

2020-09-25 Thread Paul Gilmartin
On Fri, 25 Sep 2020 10:25:13 -0700, Sri h Kolusu wrote:
>
>... The control statements for DFSORT
>are not obscure and they are on the same level as following the
>coding/syntax rules for a programming language.  For example COBOL, you
>would follow all the rules governing it. So why not do the same for DFSORT?
>
The comments in your example provided the necessary clarity.

>...
>Aren't the programs depending on the input file attributes?  For example a
>COBOL program written to handle a FB 80 byte file will NOT work with FB 100
>byte file. You need to write another program to handle it.  With DFSORT
>there is absolutely no change in the control cards for different LRECL as
>long as the key fields are the same.
>
I hope that information could be gleaned from the data set label.  Rexx,
at least works that way.  I'd be optimistic for PL/I to do likewise; perhaps
pessimistic for COBOL.  But a COBOL advocate might correct me.

-- gil

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


Re: DFSort to pull the latest record date

2020-09-25 Thread Chris Hoelscher
Just a wild guess?
Sort it in reverse and take the first record as oldest date??

Chris Hoelscher
Lead Sys DBA 
IBM Global Technical Services on assignmemt to Humana Inc.
T 502.476.2538  or 502.407.7266


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Lizette Koehler
Sent: Friday, September 25, 2020 1:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [IBM-MAIN] DFSort to pull the latest record date

[External Email: Use caution with links and attachments]


Why not load the data into a DB and use SQL or similar language?

If you have SAS - Max Min - functions

If you can load to EXCEL - use its functions

Not all functions on the mainframe can do everything.  You should look at what 
makes sense.  And if the tool you are comfortable in using, does not have the 
function, I would say to find one that does.

Hope that helps

Lizette


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Ron 
Thomas
Sent: Friday, September 25, 2020 9:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: DFSort to pull the latest record date

Hello

We are using DFSORT utility to extract the latest record for a store/item/po 
and below is the sample file

item_nbr| Store_nbr|Po_nbr|item_date|mode|
00604|9137|1100276393|2017-12-26|7|DSD   |
00604|9137|1100278550|2018-01-09|6|DSD   |

Here we need to pull the 2'nd record to the Output as this is the latest date .

Could someone please let me know how to achieve the same

Regards
Ron T

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

The information transmitted is intended only for the person or entity to which 
it is addressed
and may contain CONFIDENTIAL material.  If you receive this 
material/information in error,
please contact the sender and delete or destroy the material/information.

Humana Inc. and its subsidiaries comply with applicable Federal civil rights 
laws and
do not discriminate on the basis of race, color, national origin, ancestry, 
age, disability, sex,
marital status, gender, sexual orientation, gender identity, or religion. 
Humana Inc. and its subsidiaries do not
exclude people or treat them differently because of race, color, national 
origin, ancestry, age,
disability, sex, marital status, gender, sexual orientation, gender identity, 
or religion.

English: ATTENTION: If you do not speak English, language assistance services, 
free
of charge, are available to you. Call 1‐877‐320‐1235 (TTY: 711).

Español (Spanish): ATENCIÓN: Si habla español, tiene a su disposición servicios
gratuitos de asistencia lingüística. Llame al 1‐877‐320‐1235 (TTY: 711).

繁體中文(Chinese):注意:如果您使用繁體中文,您可以免費獲得語言援助
服務。請致電 1‐877‐320‐1235 (TTY: 711)。

Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen, gen sèvis 
èd
pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐1235 (TTY: 711).

Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać z bezpłatnej
pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY: 711).

한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무료로
이용하실 수 있습니다. 1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십시오.


--
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-25 Thread David Purdy
Share.org has a wealth of SMP/E presentations.
Davod



-Original Message-
From: Jousma, David <01a0403c5dc1-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Fri, Sep 25, 2020 6:22 am
Subject: Re: shopz UJ01255

Instead of ordering "Recommended", order everything, and then only apply the 
Recommended.

CONTENT    (ALL)  

Its entirely possible the PTF you are interested in, never made it to 
"recommended".

_
Dave Jousma
AVP | Director, Technology Engineering  

Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand Rapids, MI 
49546
616.653.8429  |  fax: 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of R 
Hey
Sent: Thursday, September 24, 2020 8:46 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: shopz UJ01255

**CAUTION EXTERNAL EMAIL**

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

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 **CAUTION EXTERNAL 
EMAIL**

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

This e-mail transmission contains information that is confidential and may be 
privileged.  It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.


--
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-25 Thread Wayne Bickerdike
The email came from someone in our organization who was asking us to
forward any suspicious attachment by clicking on it and saving it before
forwarding it on.

My reaction was that this was another attempt to get all the recipients to
click on something dangerous.

I immediately sent an email to say "don't do what the email asks".

The originator apologised but said what he asked for was perfectly
reasonable.

Very poor.


On Sat, Sep 26, 2020 at 3:31 AM zMan  wrote:

> Wayne Bickerdike wrote:
>
> >My "spoof" email was apparently genuine. The
>
> >person who sent it has no idea
>
> >how much he got wrong with the request.
>
> Eh? Can you elaborate? First sentence makes no sense. It was spoofed or it
> wasn't?!
> --
> zMan -- "I've got a mainframe and I'm not afraid to use it"
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
Wayne V. Bickerdike

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