File status of 35 when opening Alternate index

star_dhruv2000 · Posted: Fri Nov 24, 2006 12:42 pm

I have created AIX for my KSDS. Now I want to access this AIX using COBOL. But as I open the the file I get a File status of 35. I dont know whats wrong. Is there any one who can proveide me a code for accessing alternate index in vsam using COBOL.

Thanks and regards

priyesh.agrawal · Posted: Fri Nov 24, 2006 1:28 pm

star_dhruv2000 · Posted: Fri Nov 24, 2006 1:46 pm

but file is there and I am able to access it normally.

I want use AIX in dynamic mode what will be th code for that

priyesh.agrawal · Posted: Fri Nov 24, 2006 1:54 pm

Arun Raj · Posted: Fri Nov 24, 2006 2:03 pm

Hi

Check with your COBOL SELECT statement if the ALTERNATE KEY phrase is properly coded or not.
It will be helpful if you provide us with your COBOL and JCL code.

Thanks
Arun

star_dhruv2000 · Posted: Fri Nov 24, 2006 2:35 pm

here is my prg

ID DIVISION.
PROGRAM-ID. 'HEMANT'.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO 'MASTERA'
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS RLNO
ALTERNATE RECORD KEY IS ALKY WITH DUPLICATES
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 IN-REC.
02 RLNO PIC X(3).
02 ALKY PIC X(3).
02 NAME PIC X(10).
02 FILLER PIC X(63).
WORKING-STORAGE SECTION.
01 FS PIC X(2).
01 J PIC X(2).
PROCEDURE DIVISION.
OPEN INPUT INFILE.
MOVE 111 TO ALKY.
READ INFILE KEY IS ALKY.
DISPLAY FS. =====> here i get 23.
DISPLAY RLNO , ALKY , NAME.
CLOSE INFILE.
STOP RUN.

and here is run JCL

//MTPLD06R JOB ,,
// CLASS=E,MSGCLASS=H,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID,LINES=(1,CANCEL)
//RUN EXEC PGM=MYPRG
//SYSPRINT DD SYSOUT=*
//STEPLIB DD DSN=MTPLD06.HEMANT.LOADLIB,DISP=SHR ==>LOADLIB NAME
//MASTERA DD DSN=MTPLD06.HEMANT.KSDS,DISP=SHR
//MASTERA1 DD DSN=MTPLD06.HEMANT.KSDS.AIX.PATH,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY

star_dhruv2000 · Posted: Fri Nov 24, 2006 2:57 pm

and when I use file in dynamic mode then

start infile key is alky.
read infile next record.
display fs ==========> here I get fs as 35.

Arun Raj · Posted: Fri Nov 24, 2006 3:10 pm

hi

Please confirm the error code. R U getting Error Code As 23 or 35. If 23 then from UR code its quite evident that value "111" is not present in the
ALTX, in case 35 then chances are that probably DD name must have been commented & in the Pgm. U tryng to open the file in Input Mode.

star_dhruv2000 · Posted: Fri Nov 24, 2006 3:17 pm

well fs is 23 when i m using random access and for ur information '111' is in there and fs is 35 when using dynamic mode and ddnames are not commented since i have already given my run jcl as well.

nikhil aphale · New User Joined: 04 Apr 2007 Posts: 1 Location: UK

Hi..

Are you able to find a solution for the above problem? I am getting error status of 35 when trying to open a vsam file. I have checked the contents of the file through file-aid. Data is present in the file.

dick scherrer · Posted: Tue Apr 24, 2007 11:00 pm

Hello star_dhruv2000,

What happens if you issue a DISPLAY FS immediately after the open?