computer Beginner
Joined: 12 Jun 2007 Posts: 64 Topics: 17 Location: Hyderabad
|
Posted: Fri Apr 03, 2009 5:36 am Post subject: RC(-3) in REXX |
|
|
Hi,
I am writing a REXX which will access a VSAM file in my program as shown below....
Code: |
NEWVAR. = ' '
ADDRESS JCL
"// DLBL TEST4,'USER.CAT.TEST4',,VSAM"
"// DLBL VSMFI1,'VSV430.TEST.AG.PRIM.CFCO',,VSAM,CAT=TEST4"
"// DLBL VSMFI2,'VSV430.TEST.AGMTLY.REP7450.ASFILE',,VSAM,CAT=TEST4"
"/*"
"VSAMIO READ FILENAME VSMFI1 RECORDS * OPEN_READ CLOSE STEM NEWVAR."
SAY 'NEWVAR.0:' NEWVAR.0
exit 0
|
But I am getting the below error, Code: |
15 *-* "VSAMIO READ FILENAME VSMFI1 RECORDS * OPEN_READ CLOSE STEM NEWVAR."
+++ RC(-3) +++
NEWVAR.0: |
Please help me out from sorting out this error.
Thanks in Advance,
Manoj |
|