View previous topic :: View next topic
|
Author |
Message |
Bandita Bahubalendra
New User
Joined: 08 May 2008 Posts: 15 Location: Bangalore
|
|
|
|
Hi All,
I am trying to execute the below piece of code
Code: |
*REXX*/
F1='N******.VSAM'
"ALLOC F(FIRST) DA('"F1"') SHR REUSE"
"EXECIO * DISKR" FIRST "(STEM DATA. FINIS"
DO VSM = 1 TO DATA.0
X = OUTTRAP("VLN.")
ADDRESS TSO "LISTCAT ENTRIES('"DATA.VSM"') ALL"
X = OUTTRAP("OFF")
DO VL = 1 TO VLN.0 UNTIL WORD(VLN.VL,1) = "ALLOCATION"
SAY 'VL=' VL
SAY 'VLN.VL=' VLN.VL
END
END
|
ABCV.FSTACTDE.E.C is the first dataset/record listed in ‘N******.VSAM'
The output (values of VL & VLN.VL in the above code) looks like this -
VL= 1
VLN.VL= INVALID DATA SET NAME, 'ABCV.FSTACTDE.E.C
VL= 2
VLN.VL= INVALID DATA SET NAME, '
VL= 3
VLN.VL= MISSING 'ENTRIES' PARAMETER+
VL= 4
VLN.VL= MISSING NAME OF ENTRY (EG. DSNAME, GDG NAME ETC.)
VL= 5
VLN.VL= LASTCC=12
When i remove the single quotes in LISTCAT ENTRIES('"DATA.VSM"') ALL"
Removing single quotes will lead to another error which tries to prefix my userid to the VSAM datasets
VL= 1
VLN.VL= ERROR QUALIFYING N******.ABCV.FSTACTDE.E.C
VL= 2
VLN.VL= ** DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8
VL= 3
VLN.VL= LASTCC=4
Can anyone tell me how to fix the above errors? |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Have you run the thing using TRACE R or TRACE I to see exactly what is happening.
If not, I suggest that you try it. |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
Bandita Bahubalendra,
Please learn how to use BB code (code tags).
Here is the Link . Suggest you make it a bookmark. |
|
Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
You have to strip DATA.VSM of its trailing blanks:
Code: |
ADDRESS TSO "LISTCAT ENTRIES('"Strip(DATA.VSM)"') ALL" |
|
|
Back to top |
|
|
Bandita Bahubalendra
New User
Joined: 08 May 2008 Posts: 15 Location: Bangalore
|
|
|
|
Marso,
you are obsolutely right !!!! i got whatever i wanted..
Thanks a million ,Marso |
|
Back to top |
|
|
|