Max, Min and Min Editable Length of VSAM Record

keerthi · New User Joined: 23 Mar 2005 Posts: 25

Please answer the following questions.

1) What are the Max, Min and Min Editable Length of VSAM Record?
2) Can we directly use VSAM dataset or we have to follow any initialization process? What is that installation Process?

Thanks in advance,
Keerthi.

jon_s_rice · Posted: Sat Oct 01, 2005 2:06 am

A VSAM record must be at leaset 1 byte and can be 32,760 bytes or maybe larger. If the record exceeds 32760 bytes some utilities will not work. I don't know what you mean by "editable". The file does not need to be initialized unless it will be openned I-O the first time it is openned, in which case it must contain at least 1 record. The following logic will create a low value record.
//*--------------------------------------------------------------------*
//* CREATE NULL RECORD ?
//*--------------------------------------------------------------------*
//CRDUMMY EXEC PGM=IEBDG
//DUMMYOUT DD DSN=&&DUMMY,
// LRECL=898,RECFM=FB,DSORG=PS,UNIT=VIO,
// SPACE=(TRK,(1,1)),DISP=(NEW,PASS)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DSD OUTPUT=(DUMMYOUT)
FD NAME=FIELD1,LENGTH=898,FILL=X'00',PICTURE=2,'AL'
CREATE NAME=(FIELD1)
END
//*
To define the VSAM cluster and repro the dummy record use the following JCL
//*--------------------------------------------------------------------*
//* DEFINE CLUSTER *
//*--------------------------------------------------------------------*
//JSTEP10 EXEC PGM=IDCAMS
//DUMMYIN DD DSN=&&DUMMY,DISP=(OLD,DELETE)
//SYSIN DD *
/* ....+....1....+....2....+....3....+....4.... */
DELETE IN.T.COMPID.DATABASE.STAT PURGE CLUSTER
/*------------------------------------------------------------------*/
/* SET MAXCC TO ZERO */
/*------------------------------------------------------------------*/
SET MAXCC = 0
/*------------------------------------------------------------------*/
/* DEFINE CLUSTERS */
/*------------------------------------------------------------------*/
DEFINE -
CLUSTER -
(NAME(IN.T.COMPID.DATABASE.STAT) -
KEYS (2 0) -
OWNER(1) REUSE SPEED -
SHAREOPTIONS(3 3) -
INDEXED) -
DATA (NAME(IN.T.COMPID.DATABASE.STAT.DATA) -
CISZ(4096) -
TRK(1 1) -
RECORDSIZE(898 898) -
VOLUMES(TEST90)) -
INDEX (NAME(IN.T.COMPID.DATABASE.STAT.INDEX) -
TRK(1 1) -
VOLUMES(TEST90))
/*------------------------------------------------------------------*/
/* REPRO FILES */
/*------------------------------------------------------------------*/
REPRO INFILE(DUMMYIN) -
OUTDATASET(IN.T.COMPID.DATABASE.STAT)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*

stodolas · Posted: Tue Aug 07, 2007 10:29 pm

Some utilities won't work? I haven't found one that will when I define a VSAM with a SPANNED parameter...

Do you know of any that can handle record lengths greater than 32,760? File-Aid won't.

CICS Guy · Posted: Tue Aug 07, 2007 10:46 pm