|
View previous topic :: View next topic
|
| Author |
Message |
graswant
New User
Joined: 29 Apr 2006
Posts: 93
Location: Singapore
|
|
|
|
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 |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| What have you tried so far, and what problems are you getting ? |
|
| Back to top |
|
|
graswant
New User
Joined: 29 Apr 2006
Posts: 93
Location: Singapore
|
|
|
|
| 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: 8797
Location: Welsh Wales
|
|
|
|
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
New User
Joined: 29 Apr 2006
Posts: 93
Location: Singapore
|
|
|
|
| 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: 331
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
New User
Joined: 29 Apr 2006
Posts: 93
Location: Singapore
|
|
|
|
 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
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
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
Superior Member
Joined: 14 Mar 2007
Posts: 10873
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
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
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: 8797
Location: Welsh Wales
|
|
|
|
| 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
Superior Member
Joined: 14 Mar 2007
Posts: 10873
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
New User
Joined: 29 Apr 2006
Posts: 93
Location: Singapore
|
|
|
|
| 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
New User
Joined: 29 Apr 2006
Posts: 93
Location: Singapore
|
|
|
|
| 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
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| 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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| I was just wondering if the OP will post his code |
|
| Back to top |
|
|
graswant
New User
Joined: 29 Apr 2006
Posts: 93
Location: Singapore
|
|
|
|
Well I didn't do much... Read the File with
"ALLOC DA('DATASET NAME') F(INPUT) SHR"
"EXECIO * DISKRU INPUT (STEM LINE."
using loop read the line one by one...till LINE.0 and then used SUBSTR to get what I want from the line..and did some calculation on that.....
Thanks to all...now I can start with learning REXX... |
|
| Back to top |
|
|
|
|
