How to update records in KSDS file through cobol

Select-mf · New User Joined: 11 May 2007 Posts: 42 Location: bangalore

I have a KSDS file whose structure is

EMPNO EMPNAME EMPADD

2000 suresh bangalore
4001 ravi pune
3005 amit chennai

I want to update the empname field. Wherever ravi comes in this field should be updated to
sonu. How can I acheive this.

superk · Posted: Thu Jul 31, 2008 12:22 am

1.10.3.6 Replacing records in a VSAM file.

enrico-sorichetti · Posted: Thu Jul 31, 2008 12:23 am

is that an update based on the key, or a patterned update...

like in ispf edit

dick scherrer · Posted: Thu Jul 31, 2008 12:23 am

Hello,

1. Read the vsam file.
2. Compare for "ravi".
3. If "ravi" move "sonu".
4. Rewrite the record.

Tht is all. . .

Select-mf · New User Joined: 11 May 2007 Posts: 42 Location: bangalore

From the link given by superk, it says "For indexed files, move the record key to the RECORD KEY data item and then issue the REWRITE."

Suppose I have defined RECORD KEY key1 in Select assign clause, the how I have to use the code in procedure division?

Thanks.

dick scherrer · Posted: Thu Jul 31, 2008 1:26 am

Hello,

Please post your SELECT and the FD for the file.

Select-mf · New User Joined: 11 May 2007 Posts: 42 Location: bangalore

This is what I am using -

SELECT FILE1 ASSIGN TO EMPFILE
ORGANIZATION IS INDEXED
ACCESS MODE IS RANDOM
RECORD KEY key1

DATA DIVISION.
FILE SECTION.
FD FILE1.
01 FILE1-REC.
05 EMPNO PIC X(5).
05 EMPNAME PIC X(6).
05 EMPADD PIX X(10).

Thanks.

dick scherrer · Posted: Thu Jul 31, 2008 2:08 am

Hello,

Is EMPNO the key to the file?

If yes, change the RECORD KEY to

Select-mf · New User Joined: 11 May 2007 Posts: 42 Location: bangalore

Ok I did. Could you please tell me what I have to use in procedure division?

Is this code correct -

OPEN I/O FILE1
READ FILE1 INTO WS-FILE1-REC.
MOVE '4001' TO EMPNO.
IF EMPNO=WS-EMPNO
MOVE 'SONU' TO WS-EMPNAME-REC.
REWRITE FILE1-REC FROM WS-FILE1-REC.

dick scherrer · Posted: Thu Jul 31, 2008 2:51 am

Hello,

You need to move the 4001 to empno before the read - you have specified random (which is what you want) so you need to provide the key before the read.

The IF should probably compare the name, rather than the empno. . . By definition, you will have the 4001 record (if one exists).

hanucob · New User Joined: 15 Jul 2008 Posts: 3 Location: bangalore

dear friend,
whenever an updation is to be done,first the correspondin record is to be read and next updation is to be made.
--------------------------------------------------------
INPUT-OUTPUT SECTION..............
SELECT FILE-1 ASSIGN TO .......
ORGANIZATION IS INDEXED
RECORD KEY IS EMP-NO
FILE STATUS FS1
FILE SECTIO.....
FD FILE-1.
01 KSDS-RECORD.
05 EMP-NO PIC........
05 EMP-NAME PIC.......
05 EMP-ADR PIC........
WORING-STORAGE...................
01 EMP-UPD-NAME PIC........
01 FS1 PIC.......
PROCEDURE DIVISION..........
...............
.................
READ FILE-1 .........
INVALID KEY DISPLAY ' NO RECORD FOUND '

ACCEPT EMP-UPD-NAME
MOVE EMP-UPD-NAME TO EMP-NAME
REWRITE FILE-1..............
............................