Getting file open error '39' for VSAM with alternate key

rosmi joseph · New User Joined: 17 Sep 2007 Posts: 68 Location: Kochi

Hi,

I have a file with the following record layout.

01 WS-FILE-REC.
03 WS-ORIG-KEY.
05 WS-DFTA-SEQ-NO PIC S9(9) COMP.
05 WS-DFTA-CA-NO-KEY PIC X(11).
03 WS-DATA-PART PIC X(965).

Here, WS-ORIG-KEY is the actual key of the vsam.
and WS-DFTA-CA-NO-KEY is the alternate key.

While reading this file in program, it is giving file status error '39'.

Please let me know the reason for this.

Thanks.

dbzTHEdinosauer · Posted: Tue May 06, 2008 3:17 pm Post subject:

Try looking at the COBOL File Status Codes

rosmi joseph · New User Joined: 17 Sep 2007 Posts: 68 Location: Kochi

Hi,

I did check for the reason for status code 39. But i am unable to find what is going wrong.

My primary key is WS-ORIG-KEY, which is a combination of PIC S9(9) COMP and PIC X(11). So i have given the key as
INDEXED -
KEYS(14 1) -

in my vsam cluster definition.

The alternate key is WS-DFTA-CA-NO-KEY PIC X(11).
It is defined as below
KEYS(11 4) -

Once the vsam with alternate key is created and tried to open through program i am getting this status code 39.

also, in my jcl i have mentioned the vsam and the path also for using this alternate key.

Kindly, guide me on this.

Thanks.

dbzTHEdinosauer · Posted: Tue May 06, 2008 4:37 pm Post subject:

what do your select and fd entries look like? also the jcl for the step execution of this program.

rosmi joseph · New User Joined: 17 Sep 2007 Posts: 68 Location: Kochi

Hi,

Please find below the SELECT and FD entries.
SELECT ICRS-FILE ASSIGN TO ICRSVSM
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS
WS-ORIG-KEY
ALTERNATE KEY IS WS-DFTA-CA-NO-KEY
WITH DUPLICATES
FILE STATUS WS-VSAM-FILE-STATUS.

FD ICRS-FILE.
*
01 WS-ICRS-REC.

03 WS-ORIG-KEY.
05 WS-DFTA-SEQ-NO PIC S9(9) COMP.
05 WS-DFTA-CA-NO-KEY PIC X(10).
03 WS-DATA-PART PIC X(965).

In my jcl i have given the VSAM and the path name also.
//ICRSVSM DD DSN=DACCAR.Z.HOKO.CYC7.DEC07.VSAM,
// DISP=SHR
//ICRSVSM1 DD DSN=DACCAR.Z.HOKO.CYC7.DEC07.VSAM.PATH,
// DISP=SHR

Not sure if the PIC S9(9) COMP is creating probs.

Thanks.

rosmi joseph · New User Joined: 17 Sep 2007 Posts: 68 Location: Kochi

Hi,

Putting the FD entries once again due to a mistake.
FD ICRS-FILE.
*
01 WS-ICRS-REC.

03 WS-ORIG-KEY.
05 WS-DFTA-SEQ-NO PIC S9(9) COMP.
05 WS-DFTA-CA-NO-KEY PIC X(11).
03 WS-DATA-PART PIC X(965).

Thanks.

dbzTHEdinosauer · Posted: Tue May 06, 2008 5:19 pm Post subject:

well, enrico or cics_guy will have to come along and save your butt,

but, how do you expect your cobol program to access (or even use) the following DD statement from your jcl?

rosmi joseph · New User Joined: 17 Sep 2007 Posts: 68 Location: Kochi

I am not really sure. I havent worked on Alternate index before.
Please guide me as to what change is needed in program.