View previous topic :: View next topic |
Author |
Message |
Meg Beginner
Joined: 08 Jul 2003 Posts: 44 Topics: 16
|
Posted: Wed Nov 30, 2005 2:34 am Post subject: Det space of datasets mentioned in a seq file. |
|
|
I need to determine space of a lot of files. Hence I have developed a rexx which takes the dataset name from a sequential file and give the space attributes in another seq file along with the dataset name.
But I am having trouble with this rexx.
The following is the rexx
Code: |
FNAMES ="'"SEQ.FILE.CONTNG.DS.NAMES"'"
"ALLOC F(DDNAME) SHR DS("FNAMES")"
"EXECIO * DISKR DDNAME (FINIS STEM IN."
DO I = 1 TO IN.0
PARSE VAR IN.I 'DSN=' DSN
SAY 'DSN=' DSN
DSINFO = LISTDSI(DSN)
SAY "USED = " SYSUSED
END
|
Even though the DSN name is displayed correctly and even though it exists, SYSREASON displays the code 0005 whose description is "Data set not cataloged. ". Am I missing something here?
Thanks,
Megana |
|
Back to top |
|
|
ofer71 Intermediate
Joined: 12 Feb 2003 Posts: 358 Topics: 4 Location: Israel
|
Posted: Wed Nov 30, 2005 2:43 am Post subject: |
|
|
Have you tried to add apostrophe to you DSN ? try something like:
Code: | DSN = "'"STRIP(DSN,"B","'")"'" |
O.
________
CHEVROLET PARKWOOD
Last edited by ofer71 on Thu Mar 17, 2011 10:42 am; edited 1 time in total |
|
Back to top |
|
|
Meg Beginner
Joined: 08 Jul 2003 Posts: 44 Topics: 16
|
Posted: Wed Nov 30, 2005 3:21 am Post subject: |
|
|
Nope, I still get the same problem.
DSN= 'ABC.FNAME
'
SYSREASON=0005
Thanks,
Megana |
|
Back to top |
|
|
Meg Beginner
Joined: 08 Jul 2003 Posts: 44 Topics: 16
|
Posted: Wed Nov 30, 2005 3:29 am Post subject: |
|
|
Ok, I was too quick. I got it right now.
Code: |
FNAMES ="'"SEQ.FILE.CONTNG.DS.NAMES"'"
"ALLOC F(DDNAME) SHR DS("FNAMES")"
"EXECIO * DISKR DDNAME (FINIS STEM IN."
DO I = 1 TO IN.0
DSN = STRIP(IN.I)
DSINFO = LISTDSI("'"DSN"'")
SAY "USED = " SYSUSED
END
|
Thanks O!
Megana |
|
Back to top |
|
|
|
|