[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