Re: DFOSRT and headers

2017-05-30 Thread R.S. 

Sri,
That's exactly what I needed.
Thank you!

Regards
--
Radoslaw Skorupka
Lodz, Poland







W dniu 2017-05-19 o 23:12, Sri h Kolusu pisze:

Radoslaw,

You can use the DATASORT operator to just sort the data and ignore the
headers/trailers. Here is a sample JCL. I assumed that the lastname starts
at position 15 for a length of 13.

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN   DD *
FIRSTNAME LASTNAMEYEAROTHERDATA
---   -
JOHN  SMITH   1945E
JOE   ZAWINUL 1932R
GEORGEALTMARK 1954F
//OUT   DD SYSOUT=*
//TOOLINDD *
   DATASORT FROM(IN) TO(OUT) HEADER(2) USING(CTL1)
//CTL1CNTL  DD *
   SORT FIELDS=(15,13,CH,A)
//*

Further if you have any questions please let me know

Thanks,
Kolusu
DFSORT Development
IBM Corporation
IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on
05/19/2017 01:54:12 PM:


From: "R.S." <r.skoru...@bremultibank.com.pl>
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 05/19/2017 01:54 PM
Subject: DFOSRT and headers
Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>

How to exclude header lines from being sorter/filtered?

For example, I have the following file:

FIRSTNAME LASTNAMEYEAROTHERDATA
---   -
JOHN  SMITH   1945e
JOE   ZAWINUL 1932r
GEORGEALTMARK 1954f



I want to sort by lastname:
FIRSTNAME LASTNAMEYEAROTHERDATA
---   -
GEORGEALTMARK 1954f
JOHN  SMITH   1945e
JOE   ZAWINUL 1932r




==


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

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

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


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

Re: DFOSRT and headers

2017-05-19 Thread Sri h Kolusu 
Radoslaw,

You can use the DATASORT operator to just sort the data and ignore the 
headers/trailers. Here is a sample JCL. I assumed that the lastname starts 
at position 15 for a length of 13.

//STEP0100 EXEC PGM=ICETOOL 
//TOOLMSG  DD SYSOUT=* 
//DFSMSG   DD SYSOUT=* 
//IN   DD * 
FIRSTNAME LASTNAMEYEAROTHERDATA 
---   - 
JOHN  SMITH   1945E 
JOE   ZAWINUL 1932R 
GEORGEALTMARK 1954F 
//OUT   DD SYSOUT=* 
//TOOLINDD * 
  DATASORT FROM(IN) TO(OUT) HEADER(2) USING(CTL1) 
//CTL1CNTL  DD * 
  SORT FIELDS=(15,13,CH,A) 
//* 

Further if you have any questions please let me know

Thanks,
Kolusu
DFSORT Development
IBM Corporation
IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 
05/19/2017 01:54:12 PM:

> From: "R.S." <r.skoru...@bremultibank.com.pl>
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 05/19/2017 01:54 PM
> Subject: DFOSRT and headers
> Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
> 
> How to exclude header lines from being sorter/filtered? 
> 
> For example, I have the following file:
> 
> FIRSTNAME LASTNAMEYEAROTHERDATA
> ---   -
> JOHN  SMITH   1945e
> JOE   ZAWINUL 1932r
> GEORGEALTMARK 1954f
> 
> 
> 
> I want to sort by lastname: 
> FIRSTNAME LASTNAMEYEAROTHERDATA
> ---   -
> GEORGEALTMARK 1954f
> JOHN  SMITH   1945e
> JOE   ZAWINUL 1932r
> 
> 
> 
> Actually I see the solution: copy header to temp file (STOPAFT=2) 
> and merget it with sortout, but I believe there is simpler way to do 
that. 
> 
> 
> 
> Regards
> -- 
> Radoslaw Skorupka
> Lodz, Poland
> 
> --
> 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

DFOSRT and headers

2017-05-19 Thread R.S. 
How to exclude header lines from being sorter/filtered? 

For example, I have the following file:

FIRSTNAME LASTNAMEYEAROTHERDATA
---   -
JOHN  SMITH   1945e
JOE   ZAWINUL 1932r
GEORGEALTMARK 1954f



I want to sort by lastname: 
FIRSTNAME LASTNAMEYEAROTHERDATA
---   -
GEORGEALTMARK 1954f
JOHN  SMITH   1945e
JOE   ZAWINUL 1932r



Actually I see the solution: copy header to temp file (STOPAFT=2) and merget it 
with sortout, but I believe there is simpler way to do that. 



Regards
-- 
Radoslaw Skorupka
Lodz, Poland

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