MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Generate a Report from Listcat Listing

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
yadav2005
Intermediate


Joined: 10 Jan 2005
Posts: 348
Topics: 144
PostPosted: Fri Mar 19, 2010 9:15 am    Post subject: Generate a Report from Listcat Listing Reply with quote
I have a dataset with 120 bytes in which I am storing the LISTCAT information of many VSAM datasets.I want to create an output file
which should give me the dataset name and size of Primary Quantity and size of Secondary Quantity for those only whose ALLOCATION SPACE-TYPE is CYLINDER and SPACE-PRI should be more than or equal to 50 .

Sample Input File:
Code:

IDCAMS  SYSTEM SERVICES                                           TIME: 10:03:59
                                                                               
  LISTCAT ENT('DB2T.DSNDBD.TEST') ALL                   
                                                                               
DATA ---------- DB2T.DSNDBD.TEST                       
     IN-CAT --- VSAMDSET.ICF01.DB2F82                                           
     HISTORY                                                                   
       DATASET-OWNER-----(NULL)     CREATION--------2010.007                   
       RELEASE----------------2     EXPIRATION------0000.000                   
       ACCOUNT-INFO-----------------------------------(NULL)                   
     PROTECTION-PSWD-----(NULL)     RACF----------------(NO)                   
     ASSOCIATIONS                                                               
       CLUSTER--DB2T.DSNDBC.TEST                       
     ATTRIBUTES                                                                 
       KEYLEN-----------------0     AVGLRECL---------------0     BUFSPACE-------
       RKP--------------------0     MAXLRECL---------------0     EXCPEXIT-------
      SHROPTNS(3,3)   RECOVERY     UNIQUE           NOERASE     LINEAR        N
      UNORDERED          REUSE     NONSPANNED                                 
    STATISTICS                                                                 
      REC-TOTAL--------------0     SPLITS-CI--------------0     EXCPS----------
      REC-DELETED------------0     SPLITS-CA--------------0     EXTENTS--------
      REC-INSERTED-----------0     FREESPACE-%CI----------0     SYSTEM-TIMESTAM
      REC-UPDATED------------0     FREESPACE-%CA----------0          X'00000000
      REC-RETRIEVED----------0     FREESPC----------------0                   
    ALLOCATION                                                                 
      SPACE-TYPE------CYLINDER     HI-A-RBA---------2949120                   
      SPACE-PRI--------------4     HI-U-RBA---------1474560                   
      SPACE-SEC--------------1                                                 
    VOLUME                                                                     
      VOLSER------------DBAP35     PHYREC-SIZE---------4096     HI-A-RBA-------
      DEVTYPE------X'3010200F'     PHYRECS/TRK-----------12     HI-U-RBA-------
      VOLFLAG------------PRIME     TRACKS/CA-------------15                   
      EXTENTS:                                                                 
       LOW-CCHH-----X'005E0000'     LOW-RBA----------------0     TRACKS---------
       HIGH-CCHH----X'0061000E'     HIGH-RBA---------2949119                   
IDCAMS  SYSTEM SERVICES                                           TIME: 10:03:59
         THE NUMBER OF ENTRIES PROCESSED WAS:                                   
                   AIX -------------------0                                     
                   ALIAS -----------------0                                     
                   CLUSTER ---------------0                                     
                   DATA ------------------1                                     
                   GDG -------------------0                                     
                   INDEX -----------------0                                     
                   NONVSAM ---------------0                                     
                   PAGESPACE -------------0                                     
                   PATH ------------------0                                     
                   SPACE -----------------0                                     
                   USERCATALOG -----------0                                     
                   TAPELIBRARY -----------0                                     
                   TAPEVOLUME ------------0                                     
                   TOTAL -----------------1             
         THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0

Sample output desired:
Code:

DB2T.DSNDBD.INP      50   10
..
..
..
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
PostPosted: Fri Mar 19, 2010 12:22 pm    Post subject: Reply with quote
yadav2005,

It is not clear as to what you want.

What happens if you have a Data component with cylinder allocation and Index component with track allocation?

would you just list the Data component or index component also?

Btw if you used IDCAMS for listcat , the output dataset is a VBA with an LRECL of 125 bytes.
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
yadav2005
Intermediate


Joined: 10 Jan 2005
Posts: 348
Topics: 144
PostPosted: Wed Mar 24, 2010 7:05 am    Post subject: Reply with quote
Kolusu,

I am interested only in the data component . Yes you are correct the LISTCAT gives output in VBA format with 125 bytes.Could you please help me further. Thanks.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
PostPosted: Wed Mar 24, 2010 10:42 am    Post subject: Reply with quote
yadav2005,


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

Step0100 does the listcat but we would use IKJEFT01 to create a FB dataset. With IDCAMS you cannot override the output DSN DCB properties.

Code:

//STEP0100 EXEC PGM=IKJEFT01                                 
//SYSTSPRT DD DSN=&&L,                                       
//            DISP=(,PASS),                                   
//            SPACE=(CYL,(1,1),RLSE),                         
//            DCB=(LRECL=120,RECFM=FB,BLKSIZE=27960)         
//SYSTSIN  DD *                                               
  LISTCAT ENT('Your vsam cluster name') ALL                   
//*                                                           
//STEP0200 EXEC PGM=SORT                                     
//SYSOUT   DD SYSOUT=*                                       
//SORTIN   DD DSN=&&L,DISP=(OLD,PASS)                         
//SORTOUT  DD SYSOUT=*                                       
//SYSIN    DD *                                               
  SORT FIELDS=COPY                                           
  INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,7,CH,EQ,C'CLUSTER'),     
                PUSH=(121:17,44)),                           
  IFTHEN=(WHEN=GROUP,BEGIN=(4,4,CH,EQ,C'DATA'),               
           END=(8,9,CH,EQ,C'SPACE-SEC'),PUSH=(165:17,44)),   
  IFTHEN=(WHEN=GROUP,PUSH=(253:18,15),                       
   BEGIN=(209,1,CH,EQ,C' ',AND,8,10,CH,EQ,C'SPACE-TYPE')),   
  IFTHEN=(WHEN=GROUP,PUSH=(268:17,15),                       
   BEGIN=(209,1,CH,EQ,C' ',AND,8,9,CH,EQ,C'SPACE-PRI')),     
  IFTHEN=(WHEN=GROUP,PUSH=(283:17,15),                       
   BEGIN=(209,1,CH,EQ,C' ',AND,8,9,CH,EQ,C'SPACE-SEC'))       
  OUTREC OVERLAY=(121,44,268,15,UFF,M10,LENGTH=15,X,         
                  283,15,UFF,M10,LENGTH=15)                   
                                                             
  OUTFIL NODETAIL,REMOVECC,                                   
  INCLUDE=(253,15,SS,EQ,C'CYLINDER',AND,268,15,UFF,GE,50),   
  TRAILER1=(1,80)                                             
//*

_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
yadav2005
Intermediate


Joined: 10 Jan 2005
Posts: 348
Topics: 144
PostPosted: Sat Mar 27, 2010 1:59 am    Post subject: Reply with quote
Kolusu thanks a lot for your help.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group