Creating Base Cluster:
DELETE PCCPU.IOBSC.MASTER -
CLUSTER -
PURGE
IF MAXCC NE 0 THEN SET MAXCC=0
DEFINE CLUSTER -
(NAME(PCCPU.IOBSC.MASTER) -
FSPC(40 40) -
KEYS(20 0) -
RECSZ(200 200) -
INDEXED -
SPEED -
SHR(2 3)) -
DATA -
(NAME(PCCPU.IOBSC.MASTER.DATA) -
CISZ(4096) -
CYL(200 80)) -
INDEX -
(NAME(PCCPU.IOBSC.MASTER.INDEX) -
DELETE PCCPU.IOBSC.MASTER -
CLUSTER -
PURGE
IF MAXCC NE 0 THEN SET MAXCC=0
DEFINE CLUSTER -
(NAME(PCCPU.IOBSC.MASTER) -
FSPC(40 40) -
KEYS(20 0) -
RECSZ(200 200) -
INDEXED -
SPEED -
SHR(2 3)) -
DATA -
(NAME(PCCPU.IOBSC.MASTER.DATA) -
CISZ(4096) -
CYL(200 80)) -
INDEX -
(NAME(PCCPU.IOBSC.MASTER.INDEX) -
CISZ(512))
Load the VSAM file with records.
REPRO INFILE(INFILE) OUTFILE(OUTFILE) REPLACE
Creating Alternate index/Path/Build index:
DEFINE AIX -
( NAME(PCCPU.IOBSC.MASTER.AIX ) -
RELATE(PCCPU.IOBSC.MASTER ) -
NUNQK UPGRADE -
RECORDSIZE(200,655213) -
KEYS(8 12) -
SHAREOPTIONS(3 3) -
SPEED -
FREESPACE(40,20) -
) -
DATA -
( NAME(PCCPU.IOBSC.MASTER.AIX.DATA ) -
CISZ(4096) -
CYL(200 80) -
) -
INDEX -
( NAME(PCCPU.IOBSC.MASTER.AIX.INDEX ) -
CISZ(512) -
)
DEFINE PATH -
( NAME(PCCPU.IOBSC.MASTER.PATH ) -
PATHENTRY(PCCPU.IOBSC.MASTER.AIX) -
)
BLDINDEX INDATASET(PCCPU.IOBSC.MASTER) -
OUTDATASET(PCCPU.IOBSC.MASTER.PATH) -
INTERNALSORT
Load the VSAM file with records.
REPRO INFILE(INFILE) OUTFILE(OUTFILE) REPLACE
Creating Alternate index/Path/Build index:
DEFINE AIX -
( NAME(PCCPU.IOBSC.MASTER.AIX ) -
RELATE(PCCPU.IOBSC.MASTER ) -
NUNQK UPGRADE -
RECORDSIZE(200,655213) -
KEYS(8 12) -
SHAREOPTIONS(3 3) -
SPEED -
FREESPACE(40,20) -
) -
DATA -
( NAME(PCCPU.IOBSC.MASTER.AIX.DATA ) -
CISZ(4096) -
CYL(200 80) -
) -
INDEX -
( NAME(PCCPU.IOBSC.MASTER.AIX.INDEX ) -
CISZ(512) -
)
DEFINE PATH -
( NAME(PCCPU.IOBSC.MASTER.PATH ) -
PATHENTRY(PCCPU.IOBSC.MASTER.AIX) -
)
BLDINDEX INDATASET(PCCPU.IOBSC.MASTER) -
OUTDATASET(PCCPU.IOBSC.MASTER.PATH) -
INTERNALSORT
No comments:
Post a Comment