Discussion:
DASD Utilization Trigger
(too old to reply)
saurabh khandelwal
2018-07-29 06:38:17 UTC
Permalink
Raw Message
Hello Group,

Do we have any free tool available in Mainframe ISMF or any other place to
track dasd utilization .

Ex . If any of dasd utilization reached more then threshold( Ex. 80%)
limit, we should get alert on operator console.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Gadi Ben-Avi
2018-07-29 06:50:14 UTC
Permalink
Raw Message
When a Storage Group exceeds a define capacity percentage, a message is issued to the console and log.

-----Original Message-----
From: IBM Mainframe Discussion List <IBM-***@LISTSERV.UA.EDU> On Behalf Of saurabh khandelwal
Sent: Sunday, July 29, 2018 9:38 AM
To: IBM-***@LISTSERV.UA.EDU
Subject: DASD Utilization Trigger

Hello Group,

Do we have any free tool available in Mainframe ISMF or any other place to track dasd utilization .

Ex . If any of dasd utilization reached more then threshold( Ex. 80%) limit, we should get alert on operator console.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
הודעה זו נשלחה אליך מטעם חברה בקבוצת מלם תים וייתכן שהיא מוגנת תחת סודיות מסחרית. כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד וחתום על ידי מורשה החתימה של החברה. החברה רשאית לנטר כל תכתובת העוברת בשרתיה והיא לא תישא באחריות לכל נזק, ו/או אובדן, שיבוש או פגיעה במידע כלשהו שנגרם מסיבות של תקיפה חיצונית ו/או זדונית על הארגון.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
saurabh khandelwal
2018-07-29 16:50:39 UTC
Permalink
Raw Message
Hello,
Our all volumes are not sms managed, so we can not use this Storage Group
exceeds a define capacity percentage method.
Post by Gadi Ben-Avi
When a Storage Group exceeds a define capacity percentage, a message is
issued to the console and log.
-----Original Message-----
Of saurabh khandelwal
Sent: Sunday, July 29, 2018 9:38 AM
Subject: DASD Utilization Trigger
Hello Group,
Do we have any free tool available in Mainframe ISMF or any other place to
track dasd utilization .
Ex . If any of dasd utilization reached more then threshold( Ex. 80%)
limit, we should get alert on operator console.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
הודעה זו נשלחה אליך מטעם חברה בקבוצת מלם תים וייתכן שהיא מוגנת תחת סודיות
מסחרית. כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד וחתום על ידי
מורשה החתימה של החברה. החברה רשאית לנטר כל תכתובת העוברת בשרתיה והיא לא
תישא באחריות לכל נזק, ו/או אובדן, שיבוש או פגיעה במידע כלשהו שנגרם מסיבות
של תקיפה חיצונית ו/או זדונית על הארגון.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Gibney, Dave
2018-07-29 17:18:31 UTC
Permalink
Raw Message
Post by Gadi Ben-Avi
-----Original Message-----
Behalf Of saurabh khandelwal
Sent: Sunday, July 29, 2018 9:51 AM
Subject: Re: DASD Utilization Trigger
Hello,
Our all volumes are not sms managed, so we can not use this Storage Group
^^^^^^^^^^^^^^^
Fix this. SMS works
Post by Gadi Ben-Avi
exceeds a define capacity percentage method.
Post by Gadi Ben-Avi
When a Storage Group exceeds a define capacity percentage, a message
is issued to the console and log.
-----Original Message-----
Behalf Of saurabh khandelwal
Sent: Sunday, July 29, 2018 9:38 AM
Subject: DASD Utilization Trigger
Hello Group,
Do we have any free tool available in Mainframe ISMF or any other
place to track dasd utilization .
Ex . If any of dasd utilization reached more then threshold( Ex. 80%)
limit, we should get alert on operator console.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
הודעה זו נשלחה אליך מטעם חברה בקבוצת מלם תים וייתכן שהיא מוגנת תחת
סודיות מסחרית. כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד
וחתום על ידי מורשה החתימה של החברה. החברה רשאית לנטר כל תכתובת העוברת
בשרתיה והיא לא תישא באחריות לכל נזק, ו/או אובדן, שיבוש או פגיעה במידע
כלשהו שנגרם מסיבות של תקיפה חיצונית ו/או זדונית על הארגון.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Steve Horein
2018-07-29 18:30:27 UTC
Permalink
Raw Message
I wrote a NetView Rexx exec/Command list to get similar information at a
volume level.
It first issues "DS QD,VOL=<volser>,TOTALCYL" to get a volume's total
number of CYLs, with the total being the last word of the last line.
Next, it invokes ADDRESS LINKMVS 'IEHLIST PARM DDLIST' using "LISTVTOC
VOL=3390=<volser>" as the input to get total number of empty cylinders and
empty tracks, found in the last few lines of the report.
The "DDLIST" portion is used to override the SYSIN and SYSPRINT DDNames
already allocated to the NetView started task JCL.
A little bit of math gets the percent free.

I lean on NetView PIPEs to do some of the more complicated output parsing,
but TSO Rexx should be able to accomplish the same.
The challenge could be getting MVS command output, depending on your
security setup.

"NetView" Code snippet if interested:

'PIPE CC', /* Issue a DEVSERV command to */
' DS QD,VOL='PARMSTR',TOTALCYL', /* get target volser size */
'|EXPOSE COMMAND NOLOG', /* Suppress but trap command */
'|TOS /IEE459I/', /* Expect this message */
'|SEP', /* Expect multiple messages */
'|TAKE LAST 1', /* Size in cylinders in on */
'|EDIT WORD -1', /* the last line, last word */
'|VAR TOTALCYL' /* Store result in variable */
/*----------------------------*/
LVTOCI = 'LVI'||RANDOM(10000,99999) /* Define input DD name */
LVTOCO = 'LVO'||RANDOM(10000,99999) /* Define output DD name */
/*----------------------------*/
'PIPE NETV ALLOC FI('LVTOCI')', /* Allocate a data set to */
' TRACKS SPACE(1 1) UNIT(3390)', /* contain input to the */
' LRECL(80) BLKSIZE(0) RECFM(F B)', /* IEHLIST program. */
' DSORG(PS) NEW', /* Allocation errors will be */
'|NLOC /CNM272I/', /* written to the console, */
'|CONS' /* otherwise suppressed. */
/*----------------------------*/
'PIPE NETV ALLOC FI('LVTOCO')', /* Allocate a data set to */
' TRACKS SPACE(5 5) UNIT(3390)', /* receive output from the */
' LRECL(121) BLKSIZE(0) RECFM(F B A)',/* IEHLIST program. Again, */
' DSORG(PS) NEW', /* allocation errors will be */
'|NLOC /CNM272I/', /* written the the console, */
'|CONS' /* otherwise suppressed. */
/*----------------------------*/
'PIPE NETV ALLOC FI(VOLSERDD)', /* This allocation is needed */
' VOLUME('PARMSTR') UNIT(3390)', /* by the IEHLIST program. */
' DSN(SYS1.VTOCIX.'PARMSTR')', /* It merely allocates the */
' SHR', /* device, and ignores DSN. */
'|NLOC /CNM272I/', /* Another suppression of */
'|CONS' /* successful allocation. */
/*----------------------------*/
'PIPE LIT', /* This PIPE will write the */
' / LISTVTOC VOL=3390='PARMSTR'/', /* required LISTVTOC control */
'|QSAM' LVTOCI /* statement to the input DD */
/*----------------------------*/
PARM = '' /* Standard PARM, as from JCL */
DDLIST = COPIES('00'X,32)||, /* DD #1-4 override 'As-Is' */
LVTOCI ||, /* DD #5 override SYSIN */
LVTOCO ||, /* DD #6 override SYSPRINT */
COPIES('00'X,64) /* DD #7-14 override 'As-Is' */
/*----------------------------*/
ADDRESS LINKMVS 'IEHLIST PARM DDLIST' /* Invoke IEHLIST with parms */
/*----------------------------*/
IF RC ¬= 0, /* If there is an issue with */
THEN DO /* IEHLIST, the contents of */
'PIPE QSAM 'LVTOCO , /* the output file are sent */
'|CONS' /* to the console. The files */
CALL FREEFILE /* A housekeeping routine is */
EXIT /* called to free files, and */
END /* the CLIST will end. */
/*----------------------------*/
'PIPE QSAM 'LVTOCO , /* If IEHLIST ends well, the */
'|LOC /EMPTY/', /* output file is read, */
'|LOC /VOLUME/', /* and keywords are used to */
'|EDIT SKIPTO /THERE ARE/ W3 1 W7 NW', /* isolate the desired info. */
'|SPLIT', /* Both CYLINDER and TRACK */
'|VAR EMPTYCYL EMPTYTRK' /* information is captured. */
/*----------------------------*/
CALL FREEFILE /* Call housekeeping routine */
/*----------------------------*/
CYLTRKS = EMPTYTRK/15 /* Change TRACKS to CYLS. */
TOTAL = EMPTYCYL + CYLTRKS /* Add those to CYL total. */
PCTFREE = (TOTAL/TOTALCYL)*100 /* Calculate free space */
/*----------------------------*/
IF CMDTYPE = 'COMMAND', /* Invoked as a command */
THEN /* Perform the following */
'WJDMSG' 'JDSTG9500I' PARMSTR , /* Display the VOLSER */
EMPTYCYL , /* Number of empty cylinders */
TOTALCYL , /* Total number of cylinders */
EMPTYTRK , /* Number of empty tracks */
PCTFREE /* Percentage of empty space */
/*----------------------------*/
ELSE /* Perform the following */
RETURN TOTALCYL , /* Total number of cylinders */
EMPTYCYL , /* Number of empty cylinders */
EMPTYTRK , /* Number of empty tracks */
PCTFREE /* Percentage of empty space */
/*----------------------------*/
EXIT /* Nothing more to do */

There is standard setup and recovery code surrounding the above.I didn't
include the FREEFILE housekeeping routine either.
I built it originally to be called as a function, but gave the option to
send the output to the caller's NetView console using a local message
template based routine.
Hopefully this could help spawn some ideas.

On Sun, Jul 29, 2018 at 11:50 AM saurabh khandelwal <
Post by saurabh khandelwal
Hello,
Our all volumes are not sms managed, so we can not use this Storage Group
exceeds a define capacity percentage method.
Post by Gadi Ben-Avi
When a Storage Group exceeds a define capacity percentage, a message is
issued to the console and log.
-----Original Message-----
Of saurabh khandelwal
Sent: Sunday, July 29, 2018 9:38 AM
Subject: DASD Utilization Trigger
Hello Group,
Do we have any free tool available in Mainframe ISMF or any other place
to
Post by Gadi Ben-Avi
track dasd utilization .
Ex . If any of dasd utilization reached more then threshold( Ex. 80%)
limit, we should get alert on operator console.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
email
Post by Gadi Ben-Avi
הודעה זו נשלחה אליך מטעם חברה בקבוצת מלם תים וייתכן שהיא מוגנת תחת סודיות
מסחרית. כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד וחתום על
ידי
Post by Gadi Ben-Avi
מורשה החתימה של החברה. החברה רשאית לנטר כל תכתובת העוברת בשרתיה והיא לא
תישא באחריות לכל נזק, ו/או אובדן, שיבוש או פגיעה במידע כלשהו שנגרם מסיבות
של תקיפה חיצונית ו/או זדונית על הארגון.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Mike Schwab
2018-07-29 07:28:34 UTC
Permalink
Raw Message
Run the IDCAMS command DCOLLECT VOLUME(*) to get one record per volume
with usage stats. Several reports available on CBTTAPE or you can
write your own.
On Sun, Jul 29, 2018 at 1:38 AM saurabh khandelwal
Post by saurabh khandelwal
Hello Group,
Do we have any free tool available in Mainframe ISMF or any other place to
track dasd utilization .
Ex . If any of dasd utilization reached more then threshold( Ex. 80%)
limit, we should get alert on operator console.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
John Gateley
2018-07-29 20:03:33 UTC
Permalink
Raw Message
Hi

I have an assembler program which looks at all on-line DASD using UCBSCAN and prints volume name, total space, used space, free space and percentage free. I have been meaning to put this on the CBT for some time.
If you would like a copy then contact me off list.

Regards
John

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Sebastian Welton
2018-07-30 10:32:20 UTC
Permalink
Raw Message
Have a look in SYS1.SACBCNTL: https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.idas200/job.htm

- Create a DASD volume list with the data you require using ACBQBAI4
- Sort the list with ACBQVAR1
- As last step create a REXX to parse the data and output a console message

Sebastian
Post by saurabh khandelwal
Hello Group,
Do we have any free tool available in Mainframe ISMF or any other place to
track dasd utilization .
Ex . If any of dasd utilization reached more then threshold( Ex. 80%)
limit, we should get alert on operator console.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
scott Ford
2018-07-30 19:26:26 UTC
Permalink
Raw Message
I loved Netview Rexx, all these methods should work, also consider File
Manager...
Liz on this listserv was kink enough to show me it.

Scott
Post by Sebastian Welton
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.idas200/job.htm
- Create a DASD volume list with the data you require using ACBQBAI4
- Sort the list with ACBQVAR1
- As last step create a REXX to parse the data and output a console message
Sebastian
On Sun, 29 Jul 2018 09:37:55 +0300, saurabh khandelwal <
Post by saurabh khandelwal
Hello Group,
Do we have any free tool available in Mainframe ISMF or any other place to
track dasd utilization .
Ex . If any of dasd utilization reached more then threshold( Ex. 80%)
limit, we should get alert on operator console.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Scott Ford
IDMWORKS
z/OS Development

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
scott Ford
2018-07-30 19:26:55 UTC
Permalink
Raw Message
Sorry kind enough
Post by scott Ford
I loved Netview Rexx, all these methods should work, also consider File
Manager...
Liz on this listserv was kink enough to show me it.
Scott
Post by Sebastian Welton
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.idas200/job.htm
- Create a DASD volume list with the data you require using ACBQBAI4
- Sort the list with ACBQVAR1
- As last step create a REXX to parse the data and output a console message
Sebastian
On Sun, 29 Jul 2018 09:37:55 +0300, saurabh khandelwal <
Post by saurabh khandelwal
Hello Group,
Do we have any free tool available in Mainframe ISMF or any other place
to
Post by saurabh khandelwal
track dasd utilization .
Ex . If any of dasd utilization reached more then threshold( Ex. 80%)
limit, we should get alert on operator console.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Scott Ford
IDMWORKS
z/OS Development
--
Scott Ford
IDMWORKS
z/OS Development

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