IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

REXX to get the maximum volume occupied by VSAM, IAM, PS, PD


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Thu Jan 07, 2010 2:07 pm
Reply with quote

rahulbank wrote:
Hi Peter, I totally agree with you this new environment has sas but for some reaons does not have DCDDSNAM or anything like that...I have worked on sas and I agree with you....That is why I am tying this through dcollect which is totally an unknown monster to me...


Huh? I dont understand. DCDDSNAM is a fieldname used in the
IBM DCOLLECT output description.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Thu Jan 07, 2010 2:12 pm
Reply with quote

expat wrote:
Oh well, old dogs, new tricks ..................................... icon_redface.gif


Im also an old dog, but i dont think its a new trick.
Right now im looking at a MXG SAS macro from 1994 for
DCOLLECT data processing.
Looking at that year im feeling very old indeed.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Jan 07, 2010 3:12 pm
Reply with quote

Peter,

If it makes you feel any younger, it was 6 years BEFORE 1994 that I was last involved with the installation and maint of MXG and/or MICS.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Thu Jan 07, 2010 3:16 pm
Reply with quote

Oh expat it makes me icon_biggrin.gif
Back to top
View user's profile Send private message
rahulbank

New User


Joined: 25 Sep 2008
Posts: 66
Location: Bengaluruuuuuu

PostPosted: Thu Jan 07, 2010 5:50 pm
Reply with quote

Sorry Peter for my negligence you are right. I ran this program just as a sample:

//JS10 EXEC SAS
//SASLIST DD SYSOUT=*
//PDB DD DSN=CDPS1C.DCOLLECT.DATA4,DISP=SHR
//SYSIN DD *
PROC SORT DATA=PDB.DCOLDSET OUT=TEMP;
BY DCDDSNAM;
DATA TEMP1;
SET TEMP;
DSN=SUBSTR(DCDDSNAM,1,3);
IF(DSN NE 'LMX')
THEN DELETE;
RUN;
PROC PRINT DATA=TEMP1;

Here CDPS1C.DCOLLECT.DATA4 is the o/p of dcollect job

It says:

ERROR: Library PDB is not in a valid format for access method SASE7.
ERROR: Library PDB is not in a valid format for access method SASE7.
ERROR: Library PDB is not in a valid format for access method SASE7.
2 BY DCDDSNAM;

What am I doing wrong here. Please advice.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Jan 07, 2010 6:05 pm
Reply with quote

You need to run MXG against the DCOLLECT input data set to create the PDB before you attempt to reference the PDB data fields. Check the MXG.??.SOURCLIB members ADOCDCOL and TYPEDCOL for details.
Back to top
View user's profile Send private message
rahulbank

New User


Joined: 25 Sep 2008
Posts: 66
Location: Bengaluruuuuuu

PostPosted: Fri Jan 08, 2010 2:44 pm
Reply with quote

Rob thanks for the reply...I read both the members and have written to capacity planning folks on the same if they could help...

I used

//SORT EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DCOLLECT.DATA4,DISP=OLD
//SORTOUT DD DSN=DCOLLECT.DATA7,
// DISP=(,CATLG,DELETE),UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE),
// DCB=(LRECL=84,RECFM=VB,BLKSIZE=0)
//SYSIN DD *
SORT FIELDS=(29,44,CH,A)
INCLUDE COND=(203,8,CH,EQ,C'NOMIGRAT')
OUTFIL OUTREC=(1,4,29,44,117,4)
OPTION VLSHRT
//*

And was able to generate the report showing DSN's and their mgmtclass perfectly.

I read the appendix F in IDCAMs book and realized 5 needs to be added to every para(I mean DSN was 24(29 in JCL) and mgmtclass was 112(19 in jcl as u can see))..

Then I tried the same with ref date it gives some symbols...Can anyone please guide on how to get date their in o/p is ther some para which needs to be added as it a date..
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Fri Jan 08, 2010 3:42 pm
Reply with quote

To add to Robert's input, i myself used DAILYDSN (MXG) to process
DCOLLECT input.
Next sample is to merge DCOLLECT data from 3 lpars :

Code:
//userDCOL JOB 01,MSGCLASS=G,CLASS=D,NOTIFY=user,REGION=0M              00010000
//**********************************************************************00020004
//*  COLLECT OUTPUT FROM DCOLLAV1, DCOLLAV3 AND DCOLLFC                *00030008
//**********************************************************************00040004
//DELETE   EXEC  PGM=IDCAMS                                             00050004
//SYSPRINT DD  SYSOUT=*                                                 00060004
//SYSIN    DD  *                                                        00070004
 DEL user.SAS.DATASETS                                                  00080004
//userSAS  EXEC  SAS,WORK='5000,5000',                                  00090004
//         CONFIG='user.SAS.MACLIB(CONFIG08)'                           00100004
//STEPLIB  DD                                                           00110004
//         DD                                                           00120004
//         DD  DSN=user.SAS.LOAD,DISP=SHR                               00130004
//WORK     DD  SPACE=(CYL,(50,50)),DCB=(LRECL=32256,BLKSIZE=32256)      00140004
//LIBRARY  DD  DSN=user.MXG.V13R13.FORMATS,DISP=SHR                     00150004
//SOURCLIB DD  DSN=user.SAS.MACLIB,DISP=SHR                             00160004
//MACLIB   DD  DSN=user.SAS.MACLIB,DISP=SHR                             00170004
//DCOLLECT DD DSN=user.DCOLLECT.ALL.lpar1,DISP=SHR                      00180004
//         DD DSN=user.DCOLLECT.ALL.lpar2,DISP=SHR                      00190004
//         DD DSN=user.DCOLLECT.ALL.lpar3,DISP=SHR                      00200007
//DATASETS DD DSN=user.SAS.DATASETS,DISP=(,CATLG,DELETE),               00210004
//            UNIT=SYSDA,SPACE=(CYL,(250,15),RLSE)                      00220004
//SYSIN    DD  *                                                        00230004
OPTIONS NOCENTER LINESIZE=90  MEMSIZE=300M NOMPRINT NOSOURCE2;          00240004
**********************************************************************; 00250004
%INCLUDE MACLIB(DAILYDSN);                                              00260004
**********************************************************************; 00270004
Back to top
View user's profile Send private message
Pete Wilson

Active Member


Joined: 31 Dec 2009
Posts: 580
Location: London

PostPosted: Thu Jan 14, 2010 12:40 am
Reply with quote

If you have FDR this will give you a formatted report of what your require:
NOTE: If you run the same JCL with just XHELP ALL in the sysin it will print the full manual for FDREPORT.

//FDREPORT EXEC PGM=FDREPORT,REGION=32M
//SYSPRINT DD SYSOUT=0
//SYSOUT DD SYSOUT=0
//SYSUDUMP DD SYSOUT=0
//ABRMAP DD SYSOUT=*
//ABRSUM DD SYSOUT=0
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSIN DD *
TITLE LINE='REPORT DATASETS BY HLQ THEN SIZE DESCENDING **'
REPORT FIELD=(NAME, * DATASET OR CLUSTER NAME
SIZE, * SIZE ALLOCATED IN TRKS
SIZEUSED, * SIZE USED IN TRKS
CAPBYTES, * SIZE ALLOC BYTES (OR KB,MB,TB)
DSORG) * DSORG
XS XDSN=HLQ.**
SORT FIELD=(NAME,SIZE),SEQ=(A,D,D)
SUMM FIELD=(SIZE,SIZEUSED,CAPBYTES)
PRINT SORT=COMBINE,SUM=YES, * SORT AND GIVE SUMMARY TOTAL
RPTYPE=TABLE, * CREATE TABULAR REPORT
DATATYPE=CATVTOC, * SOURCE FROM CATLG THEN VTOC
RECORDSUMMARY=CLUSTER, * COMBINE MULTI-VOL FILES RPT
ENABLE=(FASTPATH,AIXCLUSTER), * REPORT AIX'S SEPARATELY
BYTEFORMAT=MEGA, * RPT CAPBYTES IN MB
SUMBYTEFORMAT=MEGA * SUMMARY RPT IN MB
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM Goto page Previous  1, 2

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
Search our Forums:

Back to Top