VSAM PROGRAMS
EDIT MTPLP06.VSAM.PDS(ESDS) - 01.02
Command ===>
****** ***************************** Top of Data ***
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000400 //SYSIN DD *
000500 DEFINE CLUSTER -
000600 (NAME(MTPLP06.SAMP2.ESDS) -
000700 TRK(1,1) -
000800 RECORDSIZE(80 80) -
000810 VOLUME(MTPUN1) -
000900 NONINDEXED)
EDIT MTPLP06.VSAM.PDS(KSDS) - 01.01
Command ===>
****** ***************************** Top of Data ****
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000400 //SYSIN DD *
000500 DEFINE CLUSTER-
000600 (NAME (MTPLP06.AMP.KSDS)-
000700 TRACKS(1,1) -
000710 RECORDSIZE(80 80) -
000720 FREESPACE(5 5) -
000800 VOLUMES(MTPUN1) -
000900 KEYS(4,0) -
001000 INDEXED)
EDIT MTPLP06.VSAM.PDS(PRINT) - 01.02
Command ===>
****** ***************************** Top of Data ******
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000400 //SYSIN DD *
000500 PRINT - ;
000600 INDATASET(MTPLP06.SAMP2.ESDS) -
000700 CHAR
000800 /*
EDIT MTPLP06.VSAM.PDS(REPRO) - 01.04
Command ===>
****** ***************************** Top of Data ***
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000400 //SYSIN DD *
000500 REPRO - ;
000600 INDATASET(MTPLP06.RACH1.PS) -
000700 OUTDATASET(MTPLP06.SAMP2.ESDS)
000800 /*
EDIT MTPLP06.VSAM.PDS(RRDS) - 01.01
Command ===>
****** ***************************** Top of Data ******
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000400 //SYSIN DD *
000500 DEFINE CLUSTER -
000600 (NAME(MTPLP06.SAMP2.RRDS) -
000700 TRK(1,1) -
000800 RECORDSIZE(80 80) -
000900 VOLUME(MTPUN1) -
001000 NUMBERED)
( SEQUENTIAL FILE FIRST TO BE CREATED)
EDIT MTPLP06.ALTINDEX.PS
Command ===>
****** *****************************
000001 11111 RACHANA 25000 AA (5 COLS:-EMP CODE, 1 SPACE ,NEXT 10 COLS:-NAME, SP,
5 COLS:- SALARY, SP, 2 COLS:- ALTERNATE INDEX KEY)
000002 22222 SMITHA 18000 BB
000003 33333 VISHAL 25000 CC
000004 44444 NAZISH 16000 DD
000005 55555 UPENDRA 17000 EE
000006 66666 JITENDRA 19000 AA
000007 77777 SOMENDRA 20000 GG
000008 88888 GFDGFFH 50000 HH
000009 99999 HGFHGFG 64000 II
( FIRST BASE CLUSTER IS CREATED)
EDIT MTPLP06.ALTINDEX.PDS(BASE) - 01.06
Command ===>
****** ***************************** Top of Data ****
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000400 //SYSIN DD *
000500 DEFINE CLUSTER-
000600 (NAME (MTPLP06.BASE.KSDS3)-
000700 TRACKS(3,2) -
000800 RECORDSIZE(80 80) -
000900 FREESPACE(5 5) -
001000 VOLUMES(MTPUN1) -
001100 KEYS(5,0) -
001200 INDEXED)
001300 /*
( COPYING SEQUENTIAL FILE TO BASE CLUSTER)
EDIT MTPLP06.ALTINDEX.PDS(REPRO) - 01.11
Command ===>
****** ***************************** Top of Data ***
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000400 //SYSIN DD *
000500 REPRO - ;
000600 INDATASET(MTPLP06.ALTINDEX.PS) -
000700 OUTDATASET(MTPLP06.BASE.KSDS3)-
000710 REPLACE
000800 /*
(CREATION OF ALTERNATE INDEX CLUS)
EDIT MTPLP06.ALTINDEX.PDS(ALINDX) - 01.10
Command ===>
****** ***************************** Top of Data ******
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000400 //SYSIN DD *
000500 DEFINE AIX -
000600 (NAME (MTPLP06.ALTINDX.KSDS3) -
000601 VOLUMES(MTPUN1) -
000610 RELATE(MTPLP06.BASE.KSDS3) -
000620 UPGRADE -
000700 TRACKS(3,2) -
000800 RECORDSIZE(80 90) -
000900 FREESPACE(10 10) -
001100 KEYS(2,22) -
001300 NONUNIQUEKEY)
001400 /*
( BUILDED ALTERNATE INDEX)
EDIT MTPLP06.ALTINDEX.PDS(BLD) - 01.04
Command ===>
****** ***************************** Top of Data ***
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000310 //DD1 DD DSN=MTPLP06.BASE.KSDS3,DISP=SHR
000320 //DD2 DD DSN=MTPLP06.ALTINDX.KSDS3,DISP=SHR
000400 //SYSIN DD *
000500 BLDINDEX-
000600 INFILE(DD1)-
000610 OUTFILE(DD2)
000800 /*
( CREATION OF PATH BETW ALT INDEX CLUS AND BASE CLUSTER )
EDIT MTPLP06.ALTINDEX.PDS(PATH) - 01.01
Command ===>
****** ***************************** Top of Data ******
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000400 //SYSIN DD *
000500 DEFINE PATH -
000600 (NAME(MTPLP06.ALTIN.KSDS.PATH)-
000700 PATHENTRY(MTPLP06.ALTINDX.KSDS3)-
000800 UPDATE)
000900 /*
( OUTPUT IS PRINTED IN SPOOL)
EDIT MTPLP06.ALTINDEX.PDS(PRINT) - 01.05
Command ===>
****** ***************************** Top of Data ******
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000400 //SYSIN DD *
000500 PRINT-
000600 INDATASET(MTPLP06.ALTINDX.KSDS3)-
000700 CHAR
000800 /*