|
View previous topic :: View next topic
|
| Author |
Message |
Vinay N.G
New User
Joined: 15 Sep 2008
Posts: 36
Location: Bangalore
|
|
|
|
I have a requirement to process input files based on whether the input file is vsam or Flat file.
How to identify in REXX whether the given input file is vsam or flat file.
Thanks |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| What commands have you tried? Certainly you found one or two that you could use? |
|
| Back to top |
|
|
Pandora-Box
Global Moderator
.jpg)
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
Hi Vinay,
Try this
| Code: |
/*REXX*/
DSNAME = '<DATASET NAME OR VSAM FILE>'
DSNAME = STRIP(DSNAME)
TDSN = STRIP(DSNAME ,,'''')
STATUS=SYSDSN(''''TDSN'''')
X=OUTTRAP('CLS.')
"LISTCAT EN('"TDSN"') ALL"
X=OUTTRAP('OFF')
IF POS('NONVSAM',CLS.1) /= 0 THEN DO
SAY TDSN "IS NOT A VSAM DATASET"
ZDLMSG = 'ERROR- NONVSAM'
VARLIST = 'ZDLMSG'
"ISPEXEC VPUT (&VARLIST) SHARED"
EXIT
END
ELSE SAY TDSN 'IT IS A VSAM FILE'
|
|
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
You are using:
| Code: |
| "LISTCAT EN('"TDSN"') ALL" |
but for the test being done, I do not think you need to specify 'ALL'. |
|
| Back to top |
|
|
Vinay N.G
New User
Joined: 15 Sep 2008
Posts: 36
Location: Bangalore
|
|
|
|
Hi Prem,
Your code works, thanks a lot |
|
| Back to top |
|
|
|
|
