View previous topic :: View next topic |
Author |
Message |
tvssv Beginner
Joined: 11 Mar 2009 Posts: 58 Topics: 25
|
Posted: Wed May 15, 2019 8:20 am Post subject: Report using SORT |
|
|
Hi,
I have input file with attributes RECFM=FB,LRECL=282.
Is it possible to generate REPORT with Header and Trailer.
Code: |
H 201904
:
:
:
T 000000937
|
Trailer should have actual record count leaving Header and Trailer.
The records should be formatted column wise with Field Headings. If possible please provide the sample SORT JCL.
Is it possible to centre the Header and Trailer with some wording?
Thanks _________________ Thanks
TVSSV |
|
Back to top |
|
|
Nic Clouston Advanced
Joined: 01 Feb 2007 Posts: 1075 Topics: 7 Location: At Home
|
Posted: Wed May 15, 2019 10:19 am Post subject: |
|
|
Do you want sample JCL to execute the sort program or sort control statements to specify what you want sort to do? They are not the same thing. Sample sort JCL can be found in the sort manual. _________________ Utility and Program control cards are NOT, repeat NOT, JCL. |
|
Back to top |
|
|
tvssv Beginner
Joined: 11 Mar 2009 Posts: 58 Topics: 25
|
Posted: Wed May 15, 2019 10:54 am Post subject: |
|
|
Hi,
Thank You,
Please provide SORT control statements to specify to do sort and get the report.
Thanks _________________ Thanks
TVSSV |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12375 Topics: 75 Location: San Jose
|
Posted: Wed May 15, 2019 11:27 am Post subject: |
|
|
tvssv wrote: | Hi,
Thank You,
Please provide SORT control statements to specify to do sort and get the report.
Thanks |
Please stop asking for complete sort control cards. Please do some homework of looking up the documentation and then look for help if you are stuck.
I am going to provide you a sample this time as a courtesy.
Tvssv,
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=(OLD,PASS),DSN=Your input file fb 282 file.
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,
HEADER1=(141:' SAMPLE HEADER '),
TRAILER1=(141:COUNT=(M11,LENGTH=8))
//* |
I will leave the exercise of finding the significance of 141 in the control cards for you.
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&uid=isg3T7000080
If you are looking for report generation, check out the chapter "Creating reports with OUTFIL" _________________ Kolusu
www.linkedin.com/in/kolusu |
|
Back to top |
|
|
tvssv Beginner
Joined: 11 Mar 2009 Posts: 58 Topics: 25
|
Posted: Thu May 16, 2019 1:04 am Post subject: |
|
|
Hi Kolusu,
Thank You. _________________ Thanks
TVSSV |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12375 Topics: 75 Location: San Jose
|
Posted: Thu May 16, 2019 11:23 am Post subject: |
|
|
tvssv wrote: | Hi Kolusu,
Thank You. |
Did you understand the significance of 141 in the control cards? _________________ Kolusu
www.linkedin.com/in/kolusu |
|
Back to top |
|
|
tvssv Beginner
Joined: 11 Mar 2009 Posts: 58 Topics: 25
|
Posted: Mon May 20, 2019 8:20 am Post subject: |
|
|
Hi Kolusu,
141 in the control cards centers the text.
Thanks & Regards _________________ Thanks
TVSSV |
|
Back to top |
|
|
|
|