Focal Point
[CLOSED] Describing a VSAM RRDS File ( SIGA Environment by CGI)

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/8227015916

April 27, 2012, 08:31 AM
Baillecl
[CLOSED] Describing a VSAM RRDS File ( SIGA Environment by CGI)
Bonjour,
For the first time in my life, I cross the path of VSAM RRDS files (and not my old friends VSAM KSDS).
The FIX Master built for the OutPut of such a file delivered by IDCAMS REPRO is all right.
So, I make a small change to get a VSAM MFD :
FILE=SIG3MVK, SUFFIX=VSAM, $      
SEGNAME=ROOT, SEGTYPE=S0,$      
GROUP=MV_CLERDS,ALIAS=KEY,USAGE=A04,ACTUAL=A04,$
$ CLE DU VSAM RDS (A04)
FIELD=MV_NUMENR,ALIAS=   ,USAGE=I04,ACTUAL=I04,$
$ RANG DANS LE FICHIER 

And the answer I get is
[CODE]
(FOC1016) DESCRIPTION DE CLE INVALIDE DANS LE FICHIER MASTER - : SIG3MVK
(FOC1129) ERREUR VSAM : SIG3MVK/LOGICAL ERROR CODE 192
( WHEN 192 DISPLAY 'INVALID RELATIVE REC NUMBER' )
/CODE]

This message has been edited. Last edited by: Kerry,


Focus Mainframe 7.6.11
Dev Studio 7.6.11 and !!!
PC Focus, Focus for OS/2, FFW Six, MSO
April 27, 2012, 08:34 AM
Baillecl
Sorry, I forgot to precise that the Key started From 1 (in Actual I04)


Focus Mainframe 7.6.11
Dev Studio 7.6.11 and !!!
PC Focus, Focus for OS/2, FFW Six, MSO
April 30, 2012, 08:18 AM
Baillecl
Google helped me through IBI doc : and, worst luck :
Only ESDS and KSDS data sources are supported. If you want to retrieve data from RRDS VSAM data sources, you may code your own access routine using SUFFIX=PRIVATE.
See Appendix C, User Exits for a Non-FOCUS Data Source for details.
This brings me decade backwards. I used to know how to with PL/1, but we're back in Cobol World! Is there any Cobol skeleton for accessing a RRDS file through SUFFIX=PRIVATE
Cordially and Focusely


Focus Mainframe 7.6.11
Dev Studio 7.6.11 and !!!
PC Focus, Focus for OS/2, FFW Six, MSO