Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Creating Summary Report by HLQ.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
TizMe

New User


Joined: 05 Jan 2006
Posts: 72

PostPosted: Mon Aug 28, 2006 12:40 pm    Post subject: Creating Summary Report by HLQ.
Reply with quote

I want to create a summary report by hi level qualifier.
My input file is created from the 'HSEND LIST DATASETNAME MCDS' command.

This would be easy if all the HLQs were the same length, 8. I could do it like this:
Code:

* SUM BY THE HLQ                                             
  SORT FIELDS=(2,8,CH,A)                                     
  OMIT COND=((2,1,CH,EQ,C' '),OR,                             
             (2,1,CH,EQ,C'-'),OR,                             
             (2,12,CH,EQ,C'DATASET NAME'))                   
* CREATE SUMMARY REPORT                                       
  OUTFIL FNAMES=REPTOUT,                                     
    NODETAIL,                                                 
    HEADER2=(1:PAGE,12:DATE,24:'BREAKDOWN BY HLQ',/,         
             1:1X,/,                                         
             1:'HLQ',14:'# DATASETS',34:'TRACK ALLOC',/,     
             1:'---------',14:'----------',34:'-----------'),
    SECTIONS=(2,8,                                           
    TRAILER3=(2,8,16:COUNT,30:TOT=(75,7,ZD,M10)))             


How can I make this work though when the length of my HLQs can vary between 1 and 8 characters?
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Mon Aug 28, 2006 8:59 pm    Post subject:
Reply with quote

Quote:
My input file is created from the 'HSEND LIST DATASETNAME MCDS' command.


I don't know what such a file looks like.

Please show an example of the records in your input file and what you expect for output. Also, what is the RECFM and LRECL of the input file?
Back to top
View user's profile Send private message
TizMe

New User


Joined: 05 Jan 2006
Posts: 72

PostPosted: Tue Aug 29, 2006 4:05 am    Post subject:
Reply with quote

Sorry Frank,

Code:
- DFSMSHSM CONTROL DATASET - MIGRATED DATASET-- LISTING ----- AT 10:00:07 ON 06/
                                                                               
DATASET NAME                                 MIGRATED  LAST REF MIGRATED  TRKS 
                                             ON VOLUME   DATE     DATE   ALLOC 
                                                                               
aaa.xxxxxxx.zzzzz                              MIG001  99/10/31 99/11/14 0000001
bbbbbbb.xxxxxx.zzzzzz                          MIG002  97/11/07 97/11/20 0000225
cccc.xxxxxx.yyyyyy.zzzz                        MIG003  01/09/12 01/09/12 0000015


Here's an example of what the report looks like.

It is RECFM=FBA, LRECL=133

Dataset name starts in Col 2, but I only want the hi-level-qualifier, which could be length of between 1 and 8 chars.

The TRACKS ALLOC is the field that I want to SUM BY. (75,7,ZD)

The rport should look like this

Code:
     1     29/08/06    BREAKDOWN BY HLQ     
                                           
HLQ          # DATASETS          TRACK ALLOC
---------    ----------          -----------
aaa                  84                  256
bbbbbbb               1                   10
cccc                  1                    1


Also, is it possible to present the DATE in the header2 in the format DD/MM/YY?

Thanks.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Aug 29, 2006 4:41 am    Post subject:
Reply with quote

Here's the DFSORT control statements that will do what you asked for. I used DATE=(DMY/) to get the date you want. I used PARSE to get the HLQ. You'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006) in order to use PARSE. If you have DFSORT, but you don't have the April, 2006 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTF, see:

www.ibm.com/servers/storage/support/software/sort/mvs/peug/

Code:

* SUM BY THE HLQ
  SORT FIELDS=(2,8,CH,A)
  OMIT COND=((2,1,CH,EQ,C' '),OR,
             (2,1,CH,EQ,C'-'),OR,
             (2,12,CH,EQ,C'DATASET NAME'))
  OUTREC PARSE=(%01=(ABSPOS=2,ENDBEFR=C'.',FIXLEN=8)),
    OVERLAY=(2:%01)
* CREATE SUMMARY REPORT
  OUTFIL FNAMES=REPTOUT,
    NODETAIL,
    HEADER2=(1:PAGE,12:DATE=(DMY/),24:'BREAKDOWN BY HLQ',/,
             1:1X,/,
             1:'HLQ',14:'# DATASETS',34:'TRACK ALLOC',/,
             1:'---------',14:'----------',34:'-----------'),
    SECTIONS=(2,8,
    TRAILER3=(1:2,8,16:COUNT,30:TOT=(75,7,ZD,M10)))
Back to top
View user's profile Send private message
TizMe

New User


Joined: 05 Jan 2006
Posts: 72

PostPosted: Wed Aug 30, 2006 8:17 am    Post subject:
Reply with quote

Excellent. Thank you very much.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Splitting of single report to seperat... abdulrafi TSO/ISPF 7 Mon Mar 27, 2017 3:59 pm
No new posts Easytrieve report shalem CA Products 4 Sun Feb 26, 2017 9:08 am
No new posts Detailed Transaction History report f... Kyle Carroll CICS 5 Tue Oct 18, 2016 12:42 am
No new posts Get Record count in summary record fo... Atul Banke DFSORT/ICETOOL 21 Fri Sep 23, 2016 4:17 pm
No new posts Easytrieve - Report writing - Only 1 ... Abhi Nature CA Products 2 Wed Sep 14, 2016 11:40 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us