 |
RAMESH KRISHNA REDDY |
|
How to define RRDS file.
How to write records into VSAM RRDS file.
//B19895J JOB DEFINEC,'GSS',
// CLASS=X,MSGCLASS=T,NOTIFY=&SYSUID
//VIDCOPY EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER( -
NAME(B19895.VSAM.RRCL) -
VOL (TSU151) -
CYLINDERS (1 2) -
CISZ(200) -
NUMBERED -
RECORDSIZE (20 20))
DATA -
(NAME(B19895.VSAM.RRDS.DATA))-
INDEX( -
NAME(B19895.VSAM.RRDS.INDEX))
/*
IDENTIFICATION DIVISION.
PROGRAM-ID. TESTCOBL.
AUTHOR. TESTTEST.
DATE-WRITTEN. 19-NOV-2010.
DATE-COMPILED.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT WS-INFILE ASSIGN TO INFILE
ORGANIZATION IS RELATIVE
ACCESS MODE IS RANDOM
RELATIVE KEY IS RELKEY
FILE STATUS IS WS-INFILE-SW.
DATA DIVISION.
FILE SECTION.
FD WS-INFILE.
01 INP-EMP-REC.
05 INP-EMPID PIC X(05).
05 INP-EMPNAME PIC X(12).
05 INP-EMP-LOB PIC X(03).
WORKING-STORAGE SECTION.
01 WS-INFILE-SW PIC X(02) VALUE SPACES.
88 WS-INFILE-SUCESS VALUE '00'.
88 WS-INFILE-EOF VALUE '10'.
01 WS-INP-EMP-REC PIC X(20).
01 RELKEY PIC 9(02).
PROCEDURE DIVISION.
A1000-MAIN-PARA.
PERFORM A2000-OPEN-PARA THRU A200-EXIT.
PERFORM A3000-INPUT-PARA THRU A300-EXIT.
PERFORM A4000-INSERT-PARA THRU A400-EXIT.
PERFORM A5000-CLOSE-PARA THRU A500-EXIT.
STOP RUN.
A100-EXIT.
EXIT.
A2000-OPEN-PARA.
INITIALIZE WS-INFILE-SW WS-INP-EMP-REC.
OPEN OUTPUT WS-INFILE.
IF WS-INFILE-SUCESS
DISPLAY "FILE OPEN SUCCESSFUL"
ELSE
DISPLAY "FILE OPENING ERROR"
GO TO A100-EXIT
END-IF.
A200-EXIT.
EXIT.
A3000-INPUT-PARA.
ACCEPT WS-INP-EMP-REC.
DISPLAY WS-INP-EMP-REC.
.
A300-EXIT.
EXIT.
A4000-INSERT-PARA.
WRITE INP-EMP-REC FROM WS-INP-EMP-REC.
A400-EXIT.
EXIT.
A5000-CLOSE-PARA.
CLOSE WS-INFILE.
.
A500-EXIT.
EXIT.