 |
RAMESH KRISHNA REDDY |
|
How to define VSAM file.
How to write records into VSAM 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.CLST) -
VOL (TSU151) -
FREESPACE (10 10) -
RECSZ (20 20) -
CISZ(200) -
KEYS(5 0) -
INDEXED) -
DATA -
(NAME(B19895.VSAM.CLST.DATA))-
INDEX( -
NAME(B19895.VSAM.CLST.INDEX))
/*
//B19895J JOB COMPILE,'GSS',
// CLASS=X,MSGCLASS=T,NOTIFY=&SYSUID,
// TIME=(0001,00)
//JOBLIB DD DSN=PC1G0.PDS.GRD1HK.UTESTB.AP.V011.LOADLIB,DISP=SHR
//TEST EXEC PGM=TSTCOBL
//SYSIN DD *
34462VASANTA KUMRTDI
/*
//INFILE DD DSN=B19895.VSAM.CLST,DISP=MOD
//
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 INDEXED
ACCESS MODE IS RANDOM
RECORD KEY IS INP-EMPID
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 WS-EOF-SW PIC X(01) VALUE 'N'.
88 WS-EOF-NO VALUE 'N'.
88 WS-EOF-YES VALUE 'Y'.
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 WS-EOF-SW.
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.