RRDS record definition error

arun sarma · New User Joined: 21 Feb 2008 Posts: 6 Location: bangalore

HI,

I am using this rrds file declaration but it is throwing an error

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.

SELECT INPUT-FILE ASSIGN TO INFILE
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS INPUT-STATUS.

SELECT VSAM-FILE ASSIGN TO VSAMFILE
ORGANIZATION IS RELATIVE
ACCESS MODE IS DYNAMIC
RELATIVE KEY IS VSAM-KEY
FILE STATUS IS VSAM-STATUS.

DATA DIVISION.
FILE SECTION.

FD INPUT-FILE.
01 INPUT-REC.
05 INPUT-KEY PIC X(06).
05 INPUT-NAME PIC X(10).
05 FILLER PIC X(64).

FD VSAM-FILE.
01 VSAM-REC.
05 VSAM-KEY PIC 9(06).
05 VSAM-NAME PIC X(10).
05 FILLER PIC X(64).

can any one pls help me out

Thanks,

Krishnan

CICS Guy · Posted: Sun May 18, 2008 9:09 pm

Please post the error it is 'throwing' and the IDCAMS definition.......

kalukakkad · New User Joined: 10 Mar 2005 Posts: 81

for RRDS you do not specify the KEY in FD section.
It has to be in working storage section.

Move the VSAM-KEY definition to working storage and try.