How to read VSAM files to REXX STEM variable?

anki · New User Joined: 04 Apr 2008 Posts: 7 Location: Pune

How can we read VSAM file in to REXX STEM variable with/without use of temporary sequential file.

expat · Posted: Fri Apr 04, 2008 11:48 am Post subject:

You Can't - there, that was easy

anki · New User Joined: 04 Apr 2008 Posts: 7 Location: Pune

1. There is a FILEMGR command which can be used but it is not working in my case: "FILEMGR �VX DSNIN='MY.VSAM.FILE' VARNAME=STEMVAR."
Do you agree with me that we can use this command to read VSAM files?

2.I also think that we can read VSAM files by using temp Sequential file, by following below steps:
1. copy VSAM to temp seq file.
2. read seq file in to STEM Variable.

Let me know if you agree on this also. If yes, then can you share command to achieve the same.

expat · Posted: Fri Apr 04, 2008 1:06 pm Post subject:

FILEMGR is a pay for product I believe so not available at every shop, whereas IDCAMS REPRO is.

anki · New User Joined: 04 Apr 2008 Posts: 7 Location: Pune

So is option 2 is feasible? Please advise.

expat · Posted: Fri Apr 04, 2008 2:53 pm Post subject:

Advise to read this

http://publib.boulder.ibm.com/cgi-bin/bookmgr/FINDBOOK?filter=access+method+services&Collection=0

anki · New User Joined: 04 Apr 2008 Posts: 7 Location: Pune

I tried using REPRO command to read VSAM file in to STEM variable, shown below:
"ALLOC DD(OUTFILE) DUMMY REUSE"
"ALLOCATE FILE(VSAMFILE) DA('"VSAM_FILE"') SHR" /* 1 */
X = OUTTRAP("OUT.")
"REPRO INFILE(VSAMFILE) OUTFILE(OUTFILE)"
X = OUTTRAP("OFF")

But REPRO command is giving out following error.
IDC3300I ERROR OPENING NULLFILE
IDC3321I ** OPEN/CLOSE/EOV ABEND EXIT TAKEN
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC0014I LASTCC=12

Do you think above shown code is correct?

expat · Posted: Fri Apr 04, 2008 4:53 pm Post subject:

You need to REPRO the VSAM to a REAL file, not a dummy file, and then use that real file as your input to the REXX program

PeD · Posted: Fri Apr 04, 2008 6:09 pm Post subject:

Jump into CBTTAPE.ORG

http://www.cbttape.org/