|
|
| Author |
Message |
graswant
Active User
Joined: 29 Apr 2006 Posts: 81 Location: Gurgaon
|
|
|
|
Hi
I have a JCL which gives me following output..
| Code: |
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
***************************** Top of Data ******************************
CONTENTS OF VTOC ON VOL AAR001 <THIS VOLUME IS NOT SMS
- THERE ARE 599 EMPTY CYLINDERS PLUS 137 EMPTY TRACKS ON THIS VOLUM
CONTENTS OF VTOC ON VOL AAR002 <THIS VOLUME IS NOT SMS
THERE ARE 559 EMPTY CYLINDERS PLUS 691 EMPTY TRACKS ON THIS VOLUM
CONTENTS OF VTOC ON VOL AAR003 <THIS VOLUME IS NOT SMS
THERE ARE 969 EMPTY CYLINDERS PLUS 106 EMPTY TRACKS ON THIS VOLUM
CONTENTS OF VTOC ON VOL AAR004 <THIS VOLUME IS NOT SMS
THERE ARE 856 EMPTY CYLINDERS PLUS 41 EMPTY TRACKS ON THIS VOLUM
CONTENTS OF VTOC ON VOL AAR005 <THIS VOLUME IS NOT SMS
THERE ARE 1194 EMPTY CYLINDERS PLUS 145 EMPTY TRACKS ON THIS VOLUM
CONTENTS OF VTOC ON VOL AAR006 <THIS VOLUME IS NOT SMS
THERE ARE 2284 EMPTY CYLINDERS PLUS 23 EMPTY TRACKS ON THIS VOLUM |
What I need to do is...I need a Rexx which multiplies Empty Cylinders with 15 and add it to Empty Tracks to get the total Free Tracks..for each volume.....and compares all the free Tracks and find which volume has tracks less than 3800... Can someone please help me with the REXX code...
Thanks |
|
| Back to top |
|
 |
References
|
|
 |
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 3542 Location: Brussels once more ...
|
|
|
|
| What have you tried so far, and what problems are you getting ? |
|
| Back to top |
|
 |
graswant
Active User
Joined: 29 Apr 2006 Posts: 81 Location: Gurgaon
|
|
|
|
| Well my friend..U can say...I am 0 in REXX..and haven't tried anything coz I don't know REXX.... The calculation cannot be done in JCL so I don't have another option ...other than using REXX...... |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 3542 Location: Brussels once more ...
|
|
|
|
I am more than willing to HELP people with code problems, but certainly not to supply custom code for them, unless paid to do so.
My current rate would be around 500 euro for the task above
This is an excellent opportunity for you to sit down with the REXX manual and try a few things out, and to start learning the language. Then is the time to post on the forum for help rather than code.
Good luck. |
|
| Back to top |
|
 |
graswant
Active User
Joined: 29 Apr 2006 Posts: 81 Location: Gurgaon
|
|
|
|
| Hahahhahaha....Well said my friend...but If I would have time to read then I would have done that myself first.....but I need to finish this in a day or so....else I am dead....with a dead army of soldiers.... hehehehe.....Please give me some sample code..... |
|
| Back to top |
|
 |
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 280 Location: Jacksonville, FL
|
|
|
|
Doing calculations in REXX are as easy as writing an equation.
| Code: |
CTRO1 = 0
CTRO1 = CTRO1 + 1
|
The value of CTRO1 is now 1.
| Code: |
CYLS = 50
TRKS = CYLS * 15
|
The value of TRKS is now 750.
| Code: |
TRKS = 1500
CYLS = TRKS/15
|
The value of CYLS is 100.
They can also be complex.
| Code: |
CYL1 = 100
CYL2 = 200
CYL3 = 300
TRKS = (CYL1 + CYL2 + CYL3)*15
|
The value of TRKS is 9000 |
|
| Back to top |
|
 |
graswant
Active User
Joined: 29 Apr 2006 Posts: 81 Location: Gurgaon
|
|
|
|
Thanks Cpuhawg.... If I would know the code ...I would be able to do the multiplication and division....but unluckily...I don't know how to write the code in Rexx..... Expat wants 500 Euros.... hahahahaha for this task...well I am still waiting for someone or him to help me with the code....or give me a sample code to solve my problem.......may be he might give the code free to me..... hahahahaahahaha........ |
|
| Back to top |
|
 |
Pedro
Senior Member
Joined: 01 Sep 2006 Posts: 530 Location: work
|
|
|
|
1. Your existing JCL needs to be changed to put the report into a file that can be accessed later.
2. You need an additional step that has a DD with a referback to previous report.
3. that new step is PGM=IKJEFT01 and calls your new rexx routine
4. rexx routine needs to read the report and process 1 record at a time, doing the required math.
Please send 495 Euros to me for consultation. |
|
| Back to top |
|
 |
enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007 Posts: 3153 Location: italy
|
|
|
|
why write code when ISMF volume application provides You with all You need???
| Code: |
VOLUME SELECTION ENTRY PANEL Page 1 of 3
Command ===>
Select Source to Generate Volume List . . 2 (1 - Saved list, 2 - New list)
1 Generate from a Saved List Query Name To
List Name . . Save or Retrieve
2 Generate a New List from Criteria Below
Specify Source of the New List . . 1 (1 - Physical, 2 - SMS)
Optionally Specify One or More:
Enter "/" to select option Generate Exclusive list
Type of Volume List . . . 1 (1-Online,2-Not Online,3-Either)
Volume Serial Number . . Z9* (fully or partially specified)
Device Type . . . . . . . (fully or partially specified)
Device Number . . . . . . (fully specified)
To Device Number . . . (for range of devices)
Acquire Physical Data . . Y (Y or N)
Acquire Space Data . . . Y (Y or N)
Storage Group Name . . . (fully or partially specified)
CDS Name . . . . . . .
(fully specified or 'Active')
Use ENTER to Perform Selection; Use DOWN Command to View next Selection Panel;
Use HELP Command for Help; Use END Command to Exit.
|
| Code: |
VOLUME SELECTION ENTRY PANEL Page 2 of 3
Command ===>
To Further Limit the Generated List, Specify a Single Value or Range of Values
in any of the following:
Rel Op Value AND/OR Rel Op Value
------ --------- ------ ------ ---------
Allocated Space . . . . . .
Fragmentation Index . . . .
Free DSCBs . . . . . . . .
Free Extents . . . . . . .
Free Space . . . . . . . .
Free VIRs . . . . . . . . .
Largest Extent . . . . . .
Other Device . . . . . . .
Percent Free Space . . . .
Subsystem Identifier . . .
Use ENTER to Perform Selection; Use UP/DOWN Command for Other Selection Panel;
Use HELP Command for Help; Use END Command to Exit.
|
| Code: |
覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
VOLUME SELECTION ENTRY PANEL Page 3 of 3
Command ===>
To Further Limit the Generated List, Specify a Single Value or List of Values
in any of the following:
Rel Op Value Value Value Value
------ --------- --------- --------- ---------
Cache Fast Write Status . .
CF Volume Status . . . . . .
Dasd Fast Write Status . . .
Duplex Status . . . . . . .
Index Status . . . . . . . .
Physical Status . . . . . .
Read Cache Status . . . . .
Shared Dasd . . . . . . . .
Use Attributes . . . . . . .
Use ENTER to Perform Selection; Use UP Command for previous Selection Panel;
Use HELP Command for Help; Use END Command to Exit.
|
|
|
| Back to top |
|
 |
dick scherrer
Global Moderator
Joined: 23 Nov 2006 Posts: 8722 Location: 221 B Baker St
|
|
|
|
Hello,
Not knowing rexx should not prevent getting an answer.
If you are a programmer, you can use any language (cobol, easytrieve, etc), to read the data you posted and do the calculation.
If you need this in a hurry, you have alternatives. |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 3542 Location: Brussels once more ...
|
|
|
|
| Quote: |
| Please send 495 Euros to me for consultation. |
Does that mean that your code is worth only 5 Euro  |
|
| Back to top |
|
 |
enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007 Posts: 3153 Location: italy
|
|
|
|
| Quote: |
| Hahahhahaha....Well said my friend...but If I would have time to read then I would have done that myself first.....but I need to finish this in a day or so....else I am dead....with a dead army of soldiers.... hehehehe.....Please give me some sample code..... |
| Quote: |
| Thanks Cpuhawg.... If I would know the code ...I would be able to do the multiplication and division....but unluckily...I don't know how to write the code in Rexx..... Expat wants 500 Euros.... hahahahaha for this task...well I am still waiting for someone or him to help me with the code....or give me a sample code to solve my problem.......may be he might give the code free to me..... hahahahaahahaha........ |
there is nothing and nobody to laugh at, You have the problem, not us,
if You do not have the time , what in H**L makes You think that we can spend ours for somebody with such an attitude
anyway we shall bring flowers to Your grave  |
|
| Back to top |
|
 |
graswant
Active User
Joined: 29 Apr 2006 Posts: 81 Location: Gurgaon
|
|
|
|
| Well ...I appologise...but I was laughing on the money asking things...not on the time and importance of the thing...It is important for me to get this done....well if someone can give me some advise....Most welcome...if someone can't then also thanks.... |
|
| Back to top |
|
 |
graswant
Active User
Joined: 29 Apr 2006 Posts: 81 Location: Gurgaon
|
|
|
|
| Thanks to all of you ....friends...I did it myself....after a lot of reading till the time I was not getting replies...I finally did it...and it works fine...will all the details I need....few last min touching needed which I will do....but thanks again for the great Forum we have..... |
|
| Back to top |
|
 |
Pedro
Senior Member
Joined: 01 Sep 2006 Posts: 530 Location: work
|
|
|
|
| Quote: |
Does that mean that your code is worth only 5 Euro
|
no, it means the important part is telling how to do; the actual doing of it is fairly simple and left to the user.  |
|
| Back to top |
|
 |
|
|