I've been using the REXXVSAM package for years to access VSE VSAM
files from VM. I have only used it for one file at a time.
The documentation shows that up to 10 files can be opened at the same
time. I'm opening 2 files and I get a zero return code, good.
But when I attempt to do a GET from one of the open files I get
feedback that says: DATASET IS NOT OPEN RC=150 FDBK=0
Here's a snippet of code:
/* DLBL statements go here */
Address Command "REXXVSAM"
If rc \= 0 Then
Exit Rc
ddname = 'USERID MASTER'
Say "Dataset =" ddname
Say "Request = OPENIN"
Address vsam "OPENIN"
If rc \= 0 Then Do
Say error "RC="rc "FDBK="feedback
Address VSAM "TERMINATE"
Exit Rc
End
file = 'USERID'
key = 'AAB6498'
Say "Key =" key
Address VSAM 'GET' file
If rc \= 0 Then Do
Say error "RC="rc "FDBK="feedback
Say key 'not found on USERID file.'
End
The same code works if I open file USERID only.
Am I doing something incorrectly? Has anyone been successful using
REXXVSAM with more then one file open?
The REXXVSAM package is from a very old VM WorkShop tape and it is
available on my website:
http://zvm.sru.edu/~download
/Fran Hensler at Slippery Rock University of Pennsylvania USA for 44 years
[EMAIL PROTECTED] +1.724.738.2153
"Yes, Virginia, there is a Slippery Rock"
