Relative record data set (RRDS)
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER(NAME(ak999.ESDS.VSAM) -
NUMBERED -
RECSZ(80,80) -
TRACKS(1,1) -
CISZ(4096) -
FREESPACE(3,3))
/*
So I can enter only 5 letter or number it will not accept 6 one
Data is accessed by RRN number.
See the below snapshot.
Delete operation also same as KSDS,ESDS file.
RRDS file also similar to ESDS file . it has data component only.
RRDS contains only fixed length records which we defined in RECORDSIZE field..
Just instead of NONINDEXED parameter we code NUMBERED parameter.
Sample program-------
//E114298J JOB ,,NOTIFY=&SYSUID,CLASS=B
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER(NAME(ak999.ESDS.VSAM) -
NUMBERED -
RECSZ(80,80) -
TRACKS(1,1) -
CISZ(4096) -
FREESPACE(3,3))
/*
Similar to ESDS Data and cluster file is created.
Data insertion and deletion process is same like ESDS VSAM file.
Here I have defined record size as (5,5)
So I can enter only 5 letter or number it will not accept 6 one
Data is accessed by RRN number.
See the below snapshot.
Delete operation also same as KSDS,ESDS file.
No comments:
Post a Comment