HOW TO DEFINE ALTERNATE INDEX FOR VSAM IN MAINFRAME JCL скачать в хорошем качестве

HOW TO DEFINE ALTERNATE INDEX FOR VSAM IN MAINFRAME JCL

HOW TO DEFINE ALTERNATE INDEX FOR VSAM IN MAINFRAME JCL 4) VSAM DEFINATION ----------------------------------------------------------- //Z950770# JOB (1556000000,P049,20,25,9000,,,,0),'DELETE PS', // CLASS=P,MSGLEVEL=1,MSGCLASS=H,REGION=0M //* //* DELETE & DEFINE VSAM CLUSTER //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD * DEFINE CLUSTER (NAME(VSAM.ZZ.WSA.MS.WSACNVTF.PRD4.M3) - RECORDSIZE(4000,4000) - CYLINDERS(1900,500) - FREESPACE(3,3) - KEYS(13,0) - CISZ(4096) - INDEXED) - DATA (NAME(VSAM.ZZ.WSA.MS.WSACNVTF.PRD4.M3.DATA)) - INDEX (NAME(VSAM.ZZ.WSA.MS.WSACNVTF.PRD4.M3.INDEX)) /* OR //Z950771B JOB (1556000000,P049,20,25,9000,,,,0),'DELETE PS', // CLASS=G,MSGLEVEL=1,MSGCLASS=H,REGION=0M //* //STEP387 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD * DELETE VSAM.AB.WSF.MS.WSFBDF.PRD4 CLUSTER DEFINE CLUSTER - (NAME(VSAM.AB.WSF.MS.WSFBDF.PRD4) - REUSE - VOLUMES(PVSAM) - BUFFERSPACE(10240) - CYLINDERS(50,10) - SHAREOPTIONS(2,3)) - DATA (NAME(VSAM.AB.WSF.MS.WSFBDF.PRD4.DATA) - RECORDSIZE(116,116) - CISZ(4096) - KEYS(13,0)) - INDEX(NAME(VSAM.AB.WSF.MS.WSFBDF.PRD4.INDEX) - CISZ(2048)) /* ----------------------------------------------------------------- 5) ALTERNATE INDEX FOR VSAM ------------------------------------------------------ STEP1--DEFINE ALTERNATE INDEX ***************************** Top of Data ***************************** //Z950782F JOB (ACCT-INFO),'TEST JCL ',CLASS=M, // MSGLEVEL=1,NOTIFY=&SYSUID,MSGCLASS=X,GROUP=GM0 //JS10 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD DEFINE ALTERNATEINDEX - (NAME(VSAM.ZZ.WT6.WSA.MS.WSATRANF.PRD4.AIX01) - RELATE(VSAM.ZZ.W3T6.WSA.MS.WSATRANF.PRD4) - VOLUMES(PRD074) - BUFFERSPACE(11264) - FREESPACE(9 0) - KEYS(37 8) - OWNER(Z950782) - RECORDSIZE(87 87) - REUSE - SHAREOPTIONS(2 3) - UNIQUEKEY) - DATA(NAME(VSAM.ZZ.WT6.WSA.MS.WSATRANF.PRD4.AIX01.DATA) - CYLINDERS(20 1) - CONTROLINTERVALSIZE(4096)) - INDEX(NAME(VSAM.ZZ.WT6.WSA.MS.WSATRANF.PRD4.AIX01.INDEX)) /* // **************************** Bottom of Data ************************ STEP2- DEFINE PATH //Z950770F JOB (ACCT-INFO),'TEST JCL ',CLASS=M, // MSGLEVEL=1,NOTIFY=&SYSUID,MSGCLASS=X,GROUP=GM0 //JS10 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD DEFINE PATH - (NAME(VSAM.ZZ.WSA.MS.WSATRANF.PRD4.M5.AIX01.PATH) - PATHENTRY(VSAM.ZZ.WSA.MS.WSATRANF.PRD4.M5.AIX01) - UPDATE ) /* // **************************** Bottom of Data ************************* STEP3- BUILD ALTERNATE INDEX ***************************** Top of Data ***************************** //Z950770F JOB (ACCT-INFO),'TEST JCL ',CLASS=M, // MSGLEVEL=1,NOTIFY=&SYSUID,MSGCLASS=X,GROUP=GM0 //JS10 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * BLDINDEX - INDATASET(VSAM.ZZ.WSA.MS.WSATRANF.PRD4.M5) - OUTDATASET(VSAM.ZZ.WSA.MS.WSATRANF.PRD4.M5.AIX01) /* //