I've found the problem in REXXVSAM and made this change: From: CLC OPTION(8),28(R1) COMPARE DDNAMES ACCD0001 06696000 To: CLC OPTION(8),40(R1) COMPARE DDNAMES SRU01 06696090
REXXVSAM was comparing the DDNAME option with the RPL ddname at the wrong displacement into the RPL. My snippet of code below now works. I have placed the updated REXXVSAM package 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" On Thu, 12 Jul 2007 14:43:02 EDT Fran Hensler said: >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"
