Reading VSAM in Rexx.

[cobollearn]

[font=Arial]Hi, [/font]

[font=Arial]I searched for it but i came to know that we can not access VSAM using REXX? Is it so? Is not it possible to read a KSDS VSAM in REXX? [/font]

[font=Arial]Thanks in advance for any help.[/font]
[font=Arial] [/font]

[Akatsukami]

The EXECIO command will not work with VSAM. However, there are third party extensions that will, or you can write a programette to do the I/OO and place the result into a Rexx variable.

[enrico-sorichetti]

Yes , it is possible out of the box,  if Your installation has IBM file manager

http://www.ibm.com/support/knowledgecen ... /vxfun.htm

http://www.ibm.com/support/knowledgecen ... /xvfun.htm

or see file 268 of the CBT tape

[cobollearn]

Thanks enrico-sorichetti. But we don't have File-Manager.

I have searched more on it and have below examples with me now.

Using the REPRO command and a temporary non-VSAM data set, a REXX exec can use EXECIO to retrieve and update VSAM data, as shown in this example:

Code: Select all

"ALLOCATE DD(TEMPDD) NEW SPACE(1) TRACKS DSORG(PS) LRECL(4095) RECFM(V B)"
"REPRO IDS(TESTKSDS) OFILE(TEMPDD) FROMKEY('98040') COUNT(1)"
"EXECIO 1 DISKR TEMPDD"
PULL Record
"EXECIO 0 DISKR (FINIS"
"FREE DD(TEMPDD)"
 <process data in "record" variable> 

By combining the PRINT command and the OUTTRAP function, a REXX exec can retrieve VSAM records into a stem variable, as shown in the following example:

Code: Select all

x=OUTTRAP('rec.')
"PRINT IDS(TESTKSDS) FROMKEY('98040') COUNT(5) CHAR"
x=OUTTRAP('off')
DO i=1 to rec.0
 IF LEFT(rec.i,13) \= 'KEY OF RECORD' THEN
   SAY rec.i
END 

If REPRO and PRINT do not satisfy your VSAM access needs, you may use RXVSAM, a REXX function package that provides VSAM record-level functions. Here is a REXX code fragment that invokes RXVSAM to write a single record into an ESDS:

Code: Select all

"ALLOCATE FILE(VSAMDD) DSNAME('"dsn"') SHR"
rc = RXVSAM('OPENOUTPUT','VSAMDD','ESDS')
record = 'Record 1'
rc = RXVSAM('WRITE','VSAMDD',,'record')
rxvsam_result = RXVSAM('CLOSE','VSAMDD')

[nicc]

However, RXVSAM is a non-standard add-on which many (most?) sites do not have.

[cobollearn]

However, RXVSAM is a non-standard add-on which many (most?) sites do not have.

oh...thanks for that information.