accessing the VSAM record using COBOL pgm

kumar_ngl · New User Joined: 05 Aug 2005 Posts: 50 Location: chennai

Hi all,

Can any one send me the COBOL code for reading the VSAM file..

regards,
kumar.p.v

jz1b0c · Posted: Fri Aug 05, 2005 11:35 am

Kumar,

Please let me know, if you are working with ESDS /KSDS / RRDS
and also, if its just COBOL batch or CICS?

kumar_ngl · New User Joined: 05 Aug 2005 Posts: 50 Location: chennai

hi thanks for your quick reply,

well that file is a KSDS??? and its a simple batch pgm, plz give me the full coding

thanx
kumar.p.v

thanooz · New User Joined: 28 Jun 2005 Posts: 99

HI ACCESS VSAM IN COBOL

FILE-CONTROL SECTION.

SELECT I-FILE ASSIGN TO INDEXED-FILE
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS IFILE-RECORD-KEY
ALTERNATE RECORD KEY IS IFILE-ALTREC-KEY
FILE STATUS IS FSTAT-CODE VSAM-CODE.

YHANKS,
THANOOZ.

kumar_ngl · New User Joined: 05 Aug 2005 Posts: 50 Location: chennai

thanx thanooz,

But that was not the answer i expect.. I want to know the COBOL coding in the Procedure-Division.

Your answer is abt the Environment division.

plz make me little clear abt this

kumar.p.v

vijayamadhuri · Active User Joined: 06 Apr 2005 Posts: 180

READ file-name[into identifier]
[;key is dataname]
[;invalid key is imperative-stmt]

In general open u r files in the mode required.

move the key value to the key field.
compare the key-value to u r desired requirement and perform the operations u require.

kumar_ngl · New User Joined: 05 Aug 2005 Posts: 50 Location: chennai

thanks Vijay..

kumar.p.v

jz1b0c · Posted: Wed Aug 10, 2005 8:41 pm

===
here is the examples....

===

ID DIVISION.
PROGRAM-ID. VSAMKSDS.
AUTHOR. JZ1B0C.
INSTALLATION. MY OWN COMPANY.
DATE-WRITTEN. 08/05/05.
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT VSAMINP ASSIGN TO INPFILE
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS INPUT-KEY
FILE STATUS IS WS-VSAM-STAT.
SELECT SEQOUT ASSIGN TO OUTFILE.
DATA DIVISION.
FILE SECTION.
FD VSAMINP.
01 INPUT-REC.
05 INPUT-KEY PIC X(10).
05 FILLER PIC X(90).

FD SEQOUT.
01 OUTPUT-REC PIC X(100).

******************************************************************
* WORKING STORAGE *
******************************************************************

WORKING-STORAGE SECTION.
*
01 WS01-WORK-AREA.
05 WS-EXIT-SW PIC X(01) VALUE ' '.
88 EOF-IND-YES VALUE 'Y'.
88 EOF-IND-NO VALUE 'N'.
05 WS-EXIT-SW PIC X(01) VALUE ' '.
88 EXIT-SW-YES VALUE 'Y'.
88 EXIT-SW-NO VALUE 'N'.
05 WS-SUB1 PIC S9(03) COMP-3 VALUE 0.
05 WS-VSAM-STAT PIC X(02).
*
/*****************************************************************

LINKAGE SECTION.

******************************************************************
******************************************************************

PROCEDURE DIVISION.

******************************************************************
* FUNCTION: INITIALIZE PROGRAM *
* PROCESS INPUT UNTIL EOF *
* FINAL PROCESSING ACTIVITIES *
******************************************************************
*
PERFORM 1000-INITIALIZE
THRU 1000-EXIT.
*
PERFORM 2000-PROCESS-MAIN
THRU 2000-EXIT
UNTIL EOF-IND-YES OR EXIT-SW-YES.
*
PERFORM 9000-TERMINATE
THRU 9000-EXIT.
*
GOBACK.
*
1000-INITIALIZE.
*
OPEN INPUT VSAMINP.
IF WS-VSAM-STAT = SPACES OR ZEROES
OPEN OUTPUT SEQOUT
ELSE
DISPLAY 'ERROR IN OPENING VSAM INPUT FILE: ' WS-VSAM-STAT
SET EXIT-SW-YES TO TRUE
GO TO 1000-EXIT.
*
MOVE LOW-VALUES TO INPUT-KEY.
*
START VSAMINP KEY IS GREATER THAN INPUT-KEY.
IF WS-VSAM-STAT = SPACES OR ZEROES
CONTINUE
ELSE
DISPLAY 'ERROR IN STARTBR VSAM INPUT FILE: ' WS-VSAM-STAT
SET EXIT-SW-YES TO TRUE
GO TO 1000-EXIT.
*
PERFORM 2100-READ-VSAM THRU 2100-EXIT.
*
1000-EXIT.
EXIT.
*
2000-PROCESS-MAIN.
MOVE INPUT-REC TO OUTPUT-REC.
WRITE OUTPUT-REC.
PERFORM 2100-READ-VSAM THRU 2100-EXIT.

2000-EXIT.
EXIT.

2100-READ-VSAM.

READ VSAMINP NEXT
AT END
SET EOF-IND-YES TO TRUE
GO TO 2100-EXIT
END-READ.

IF WS-VSAM-STAT = SPACES OR ZEROES
CONTINUE
ELSE
DISPLAY 'ERROR IN READING VSAM INPUT FILE'
SET EOF-IND-YES TO TRUE
SET EXIT-SW-YES TO TRUE
GO TO 2100-EXIT.

2100-EXIT.
EXIT.

*
9000-TERMINATE.
******************************************************************
* FUNCTION: CLOSE FILES *
******************************************************************
*
CLOSE VSAMINP
IF WS-VSAM-STAT = SPACES OR ZEROES
CONTINUE
ELSE
DISPLAY 'ERROR IN READING VSAM INPUT FILE'.
CLOSE SEQOUT.
*
9000-EXIT.
EXIT.
*