View previous topic :: View next topic
|
Author |
Message |
vasan_4u
New User
Joined: 28 Jun 2005 Posts: 35 Location: chennai
|
|
|
|
This is the code I have and its giving me RC as 16 could anyone help me out.
Code: |
FILE = 'LSV.F.COLLQ'
ADDRESS TSO
RC = LISTDSI("'"FILE"'")
SAY RC
IF RC=0 THEN
SAY 'ENTER'
DO
DSN = SUBSTR(SYSDSORG,1,2)
SAY DSN
END |
|
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
vasan_4u wrote: |
... its giving me RC as 16 ... |
My guess is that the file doesn't exist. What does the SYSREASON variable show? |
|
Back to top |
|
|
vasan_4u
New User
Joined: 28 Jun 2005 Posts: 35 Location: chennai
|
|
|
|
Yes as you said the file was not correct it should be 'LSV.F.COLLQ.CLUSTER'
One more question how do I get to know that if a given Dataset is a VSAM or GDG or PS.
I tried with LISTDS and LISTC command both of them dint work for me could you provide me with a sample code. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
You're on the right track. The SYSDSORG variable will have the value for the dataset organization:
PS - Physical sequential
PO - Partitioned organization
VS - VSAM
The TSO command LISTDS should've worked also. |
|
Back to top |
|
|
kiran_chr Currently Banned New User
Joined: 02 Aug 2006 Posts: 2
|
|
|
|
Give like this it will work
PULL NAME
NAME1=LISTDSI(NAME) ---> dont put any quotes |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
kiran_chr -
Why "dont put any quotes"???
O. |
|
Back to top |
|
|
vasan_4u
New User
Joined: 28 Jun 2005 Posts: 35 Location: chennai
|
|
|
|
thanks for the help ..
this is how i used it and it worked for me
Code: |
X = OUTTRAP("MSG.");
"LISTDS '"PDSN"' MEMBERS"
X = OUTTRAP("OFF.");
PARSE VAR MSG.3 RECFM LRECL BLKSIZE DSORG
SAY RC
SAY LRECL
SAY DSORG |
|
|
Back to top |
|
|
Ganesh.Deokar
New User
Joined: 30 Sep 2005 Posts: 26 Location: Buffalo,NY
|
|
Back to top |
|
|
|