//ARICH02A JOB NOTIFY=ARICH02

//STEP1 EXEC PGM=IDCAMS

//SYSPRINT DD SYSOUT=*
//DD1 DD UNIT=3390,VOL=SER=ARICH1,DSN=SYS1.VVDS.VARICH1,DISP=SHR
//SYSIN DD *
DIAGNOSE VVDS INFILE(DD1) COMPAREDS(ARICH01.USER.CATALOG)
/*
//

to diagnose

//ARICH02A JOB NOTIFY=ARICH02

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DD1 DD UNIT=3390,VOL=SER=ARICH1,DSN=SYS1.VVDS.VARICH1,DISP=SHR
//SYSIN DD *
DIAGNOSE VVDS INFILE(DD1) COMPAREDS(ARICH01.USER.CATALOG)
/*
//

error examine

//ARICH02A JOB NOTIFY=ARICH02

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXAMINE NAME(ARICH02.DXC02.UCAT) INDEXTEST DATATEST -
ERRORLIMIT(100)
EXAMINE NAME(ARICH01.USER.CATALOG) INDEXTEST NODATATEST -
ERRORLIMIT(100)
EXAMINE NAME(ARICH02.DXC02.UCAT) NOINDEXTEST DATATEST -
ERRORLIMIT(100)
/*
//

//ARICH02A JOB NOTIFY=ARICH02

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXAMINE NAME(ARICH02.DXC02.UCAT) INDEXTEST DATATEST -
ERRORLIMIT(100)
EXAMINE NAME(ARICH01.USER.CATALOG) INDEXTEST NODATATEST -
ERRORLIMIT(100)
EXAMINE NAME(ARICH02.DXC02.UCAT) NOINDEXTEST DATATEST -
ERRORLIMIT(100)
/*
//

//ARICH02A JOB NOTIFY=ARICH02

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXPORT ARICH02.DXC02.UCAT -
OUTDATASET(ARICH02.BKUC1.PS)-
TEMPORARY
/*
//

//ARICH02A JOB NOTIFY=ARICH02

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
IMPORT -
INDATASET(ARICH02.BKUC1.PS)-
INTOEMPTY-
OUTDATASET(ARICH02.DXC02.UCAT) -
ALIAS
/*
//

EDIT ARICH06.JCLVSAM.DEMPROG1(CATPROC1) - 01.17 Columns 00001 00072

****** ***************************** Top of Data ******************************
000001 //PROC1 PROC
000002 //STEP1 EXEC PGM=IEFBR14
000003 //DD1 DD DISP=(NEW,CATLG,DELETE),DSN=ARICH06.JCLVSAM.CTLPRO,
000004 // SPACE=(TRK,(2,3),RLSE),
000005 // DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),
000006 // UNIT=SYSDA
//PROC1 PEND
****** **************************** Bottom of Data *******
EDIT ARICH06.JCLVSAM.DEMPROG2(CATPROC2) - 01.17 Columns 00001 00072
****** ***************************** Top of Data ******************************
000001 //PROC1 PROC
000002 //STEP1 EXEC PGM=IEFBR14
000003 //DD1 DD DISP=(NEW,CATLG,DELETE),DSN=ARICH06.JCLVSAM.CTLPRO,
000004 // SPACE=(TRK,(2,5,5),RLSE),
000005 // DCB=(DSORG=PO,LRECL=80,RECFM=FB,BLKSIZE=800),
000006 // UNIT=SYSDA
//PROC1 PEND
****** **************************** Bottom of Data
000001 //ARICH06A JOB ,'KRIS',NOTIFY=ARICH06
000002 // JCLLIB ORDER=ARICH06.JCLVSAM.DEMPROG1,ARICH06.JCLVSAM.DEMPROG2
=== 15 PDS
000003 //STEP1 EXEC PROC=CATPROC1
//STEP2 EXEC PROC=CATPROC2
000004 //SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
/*

===================================================================================
=====

//STUD02$ JOB (A001,MFADM),ANAND,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO CREATE PS1=STUD02.ANAND.EMPDAT.PS2
//*================================================================
//INSPR1 PROC
//STEP1 EXEC PGM=IEFBR14,TIME=(2,05)
//EMPDD1 DD DSN=STUD02.&A..&D,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(&B,&C)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800
//INSPR1 PEND
//STEP2 EXEC PROC=INSPR1,A=CEMPDATA,B=5,C=5,D=PS1
//STEP3 EXEC PROC=INSPR1,A=CINVDATA,B=6,C=6,D=PS2
//STEP4 EXEC PROC=INSPR1,A=CCUSDATA,B=4,C=5,D=PS3
//STEP5 EXEC PROC=INSPR1,A=CINSDATA,B=3,C=3,D=PS4
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
/

===================================================================================
====

BACKWARD REFERENCE

000001 //ARICH06A JOB (A123),'KRIS',REGION=6M,CLASS=A,MSGCLASS=T,

000002 // MSGLEVEL=(1,1),NOTIFY=ARICH06,TIME=(,1)
000002 //VOLREF PROC
000003 //STEP1 EXEC PGM=IEFBR14
000004 //DD1 DD DISP=(NEW,CATLG,DELETE),DSN=ARICH06.EMPDATAI.PS2,
000005 // SPACE=(TRK,(2,1)),VOL=SER=ARICH7,
000006 // DCB=(DSORG=PS,LRECL=80,RECFM=FB,BLKSIZE=800)
000007 //DD2 DD DSN=ARICH06.EMPDATA2.PS3,
000008 // DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(2,1)),
000009 //
000007 //DD2 DD DSN=ARICH06.EMPDATA2.PS3,
000008 // DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(2,1)),
000009 // DCB=*.DD1,VOL=REF=*.DD1
000010 // PEND
000011 //STEP3 EXEC PROC=VOLREF
000012 //SYSPRINT DD SYSOUT=*
000013 //SYSIN DD *
000014 /*
000015 //

JCL CATALOG FOR CALLING

,000100,//STUD02A JOB NOTIFY=&SYSUID

,000200,// JCLLIB ORDER=STUD02.DAN.JCLNPS.PDS
,000300,//STEP1 EXEC PROC=CTLP1
,000400,//STEP1 EXEC PROC=CTLP2
,000500,//SYSPRINT DD SYSOUT=*
,000600,//SYSOUT DD SYSOUT=*
,000700,//SYSIN DD *
,000800,/*
,000900,//

,000001,//PROC1 PROC
,000002,//STEP1 EXEC PGM=IEFBR14
,000003,//DD1 DD DISP=(NEW,CATLG,DELETE),DSN=STUD02.JLPR1.PS,
,000004,// SPACE=(TRK,(2,3),RLSE),
,000005,// DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),
,000006,// UNIT=SYSDA
,000007,//PROC1 PEND

//STUD02A JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//STEP1 EXEC PGM=IDCAMS
//DD1 DD DISP=SHR,DSN=STUD02.DAN.KSDS2.CLUSTER
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT INFILE(DD1) CHAR -
FROMKEY(D003) TOKEY(D009)

,000100,//STUD02A JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

,000200,// MSGLEVEL=(1,1),TIME=(2,45)
,000300,//*===============================================================
,000400,//* JCL TO CREATE A ESDS CLUSTER TO LOAD RECORDS
,000500,//*================================================================
,000600,//STEP1 EXEC PGM=IDCAMS
,000700,//DD1 DD DISP=SHR,DSN=STUD02.DAN.ASSPS1.PS
,000800,//DD2 DD DISP=SHR,DSN=STUD02.DAN.KSDS2.CLUSTER
,000900,//SYSPRINT DD SYSOUT=*
,001000,//SYSIN DD *
,001100, REPRO INFILE(DD1),OUTFILE(DD2)
,001200,/*
,001300,//

//STUD02A JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* TO ALLOCATE THE VSAM DATA SETS
//* JCL TO CREATE A KSDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER -
(NAME(STUD02.DAN.KSDS2.CLUSTER) -
KEYS(4,0) -
FREESPACE(10,10) -
TRACKS(3,3) -
RECSZ(80,80) -
CISZ(4096) -
VOLUMES(Z9USR1) -
INDEXED) -
DATA(NAME(STUD02.DAN.KSDS2.DATA))-
INDEX(NAME(STUD02.DAN.KSDS2.INDEX))
/*
//

//STUD02A JOB A001,SA,CLASS=A,MSGCLASS=T,MSGLEVEL=(1,1),NOTIFY=STUD02

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYS0UT DD SYSOUT=*
//SYSIN DD *
DEFINE USERCATALOG -
(NAME(STUD02.ANAND.MFJUN25.UCAT) -
MEGABYTES(10 10) -
VOLUMES(ARICH5) -
ICFCATALOG -
FREESPACE(10,10) -
STRNO(3) -
CISZ(4096) -
BUFND(4) -

//PSCOPY PROC INP=,OUT=

//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=&INP,DISP=SHR
//SYSUT2 DD DSN=&OUT,DISP=OLD
//SYSIN DD DUMMY

1.JCL TO CREATE DATA SETS USING OVERRIDING INSTREAM PROCEDURE

//STUD02A JOB CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,MSGLEVEL=(1,1)

//INSPR1 PROC
//STEP1 EXEC PGM=IEFBR14,TIME=(2,05)
//EMPDD1 DD DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//INSPR1 PEND
//STEP2 EXEC PROC=INSPR1
//STEP1.DD1 DD DSN=STUD02.DAN.SAMPLE.TEST.PS1
//STEP1.DD1 DD DSN=STUD02.DAN.SAMPLE.TEST.PS2
//STEP1.DD1 DD DSN=STUD02.DAN.SAMPLE.TEST.PS3
//STEP1.DD1 DD DSN=STUD02.DAN.SAMPLE.TEST.PS4
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
/*
//

2.JCL CATALOG PROCEDURE TO CREATE DATA SET

//STUD02A JOB CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,MSGLEVEL=(1,1)

// JCLLIB ORDER=STUD02.DAN.MYPROC.JCL
//STEP1 EXEC PROC=DSCRT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
/*
//
CATALOG CALL STATEMENTS
//PROC1 PROC
//STEP1 EXEC PGM=IEFBR14,TIME=(2,05)
//SORDD1 DD DSN=STUD02.DAN.EMPLOY.BCKUP.PS,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(6,6)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//PROC1 PEND

3.JCL TO ADD MEMBERS IN NEW PDS USING CATALOG PROCEDURE INCLUDE,EXCLUDE

//STUD02A JOB CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,MSGLEVEL=(1,1)
// JCLLIB ORDER=STUD02.DAN.MYPROC.JCL
//STEP1 EXEC PROC=DSCOPY,INP=STUD02.DAN.MYLIB2.JCL,
// OUT=STUD02.DAN.MYSAMP.PDS1
//SYSIN DD *
COPY I=DD1,O=DD2
SELECT MEMBER=(JCLEX01,JCLEX02)
/*
//STEP2 EXEC PROC=DSCOPY,INP=STUD02.DAN.MYLIB3.JCL,
// OUT=STUD02.DAN.MYSAMP.PDS2
//SYSIN DD *
COPY I=DD1,O=DD2
EXCLUDE MEMBER=(JCLEX01,JCLEX02)
/*
//
CATALOG CALL STATEMENT

//DSCOPY PROC
//STEP1 EXEC PGM=IEBCOPY
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=&INP,DISP=SHR
//DD2 DD DSN=&OUT,DISP=(NEW,CATLG,DELETE),DSORG=PO,
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),SPACE=(TRK,(5,5,10)),
// VOL=SER=Z9USR1,UNIT=3390
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DSCOPY PEND

4.JCL TO CREATE,COPY AND DELETE PS USING NESTED INSTREAM AND CATALOG PROCEDURE

//STUD02A JOB D001,DAN,CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID

// JCLLIB ORDER=STUD02.DAN.MYPROC.JCL
//DSCRT PROC
//STEP01 EXEC PGM=IEFBR14
//DD1 DD DSN=STUD02.DAN.EMPLOY.BCKUP.PS,
// DISP=(NEW,CATLG,DELETE),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800),
// SPACE=(TRK,(6,6)),UNIT=SYSDA
//DSCRT PEND
//STEP2 EXEC DSCRT
//STEP3 EXEC PSCOPY,
// INP=STUD02.DAN.EMPREC.PS1,
// OUT=STUD02.DAN.EMPLOY.BCKUP.PS
//STEP4 EXEC DSCRT
//STEP01.DD1 DD DSN=STUD02.DAN.EMPREC.PS1,
// DISP=(OLD,DELETE,DELETE)
/*
//
CATALOG CALL PROCEDURE
//PSCOPY PROC
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=&INP,DISP=SHR
//SYSUT2 DD DSN=&OUT,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
//PSCOPY PEND

//STUD02A JOB (A001,MFADM),ANAND,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* TO ALLOCATE THE VSAM DATA SETS
//* JCL TO CREATE A ESDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER -
(NAME(STUD02.DAN.ESDS.CLUSTER) -
TRACKS(3,3) -
RECORDSIZE(80,80) -
CISZ(4096) -
VOLUMES(ARICH2) -
NONINDEXED) -
DATA(NAME(STUD02.DAN.ESDS.DATA))
/*
//

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* TO ALLOCATE THE VSAM DATA SETS
//* JCL LOAD THE RECORDS FROM PS TO ESDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SORDD1 DD DISP=SHR,DSN=STUD02.DAN.EMPREC.SORTOUT
//DESDD2 DD DISP=SHR,DSN=STUD02.DAN.ESDS.CLUSTER
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(SORDD1),OUTFILE(DESDD2)
/*
//

//STUD02A JOB (A001,MFADM),ANAND,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* TO ALLOCATE THE VSAM DATA SETS
//* JCL TO CREATE A RRDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER -
 (NAME(STUD02.DAN.RRDS.CLUSTER) -
TRACKS(3,3) -
RECORDSIZE(80,80) -
CISZ(4096) -
FREESPACE(10,10) -
VOLUMES(Z9USR1) -
NUMBERED) -
DATA(NAME(STUD02.DAN.RRDS.DATA))
/*
//

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* TO ALLOCATE THE VSAM DATA SETS
//* JCL LOAD THE RECORDS FROM PS TO RRDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SORDD1 DD DISP=SHR,DSN=STUD02.DAN.EMPREC.SORTOUT
//DESDD2 DD DISP=SHR,DSN=STUD02.DAN.RRDS.CLUSTER
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(SORDD1),OUTFILE(DESDD2)
/*
//

//STUD02A JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* TO ALLOCATE THE VSAM DATA SETS
//* JCL TO CREATE A KSDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER -
(NAME(STUD02.DAN.KSDS.CLUSTER) -
KEYS(6,0) -
FREESPACE(10,10) -
TRACKS(5,5) -
RECSZ(80,80) -
CISZ(4096) -
VOLUMES(Z9USR1) -
INDEXED) -
DATA(NAME(STUD02.DAN.KSDS.DATA))-
INDEX(NAME(STUD02.DAN.KSDS.INDEX))
/*
//

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* TO ALLOCATE THE VSAM DATA SETS
//* JCL LOAD THE RECORDS FROM PS TO KSDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SORDD1 DD DISP=SHR,DSN=STUD02.DAN.EMPREC.SORTOUT
//DESDD2 DD DISP=SHR,DSN=STUD02.DAN.KSDS.CLUSTER
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(SORDD1),OUTFILE(DESDD2)
/*
//

or

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* TO ALLOCATE THE VSAM DATA SETS
//* JCL LOAD THE RECORDS FROM PS TO KSDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SORDD1 DD DISP=SHR
//DESDD2 DD DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO INdataset(STUD02.DAN.EMPREC.SORTOUT)-
OUTFILE(STUD02.DAN.KSDS.CLUSTER)
/*
//

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO PRINT THE RECORDS IN ESDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//DESDD1 DD DISP=SHR,DSN=STUD02.DAN.ESDS.CLUSTER
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT INFILE(DESDD1) CHAR
/*
//

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* PRINT ONLY SELECTED RECORDS
//* JCL TO PRINT THE RECORDS IN ESDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//DESDD1 DD DISP=SHR,DSN=STUD02.DAN.ESDS.CLUSTER
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT INFILE(DESDD1) CHAR-
FROMADDRESS(160) TOADDRESS(480)
/*
//
//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* PRINT ONLY SELECTED RECORDS
//* JCL TO PRINT THE RECORDS IN KSDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//DESDD1 DD DISP=SHR,DSN=STUD02.DAN.KSDS.CLUSTER
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT INFILE(DESDD1) CHAR-
FROMKEY(E00030) TOKEY(E00100)
/*
//

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* PRINT ONLY SELECTED RECORDS
//* JCL TO PRINT THE RECORDS IN RRDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//DESDD1 DD DISP=SHR,DSN=STUD02.DAN.RRDS.CLUSTER
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT INFILE(DESDD1) CHAR-
FROMNUMBER(4) TONUMBER(8)
/*
//

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO ALTER FREESPACE IN KSDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER -
STUD02.DAN.KSDS.DATA-
FREESPACE(20,15)
/*
//

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO RENAME KSDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER -
STUD02.DAN.KSDS.CLUSTER-
NEWNAME(STUD02.DAN.KSDS.NEWCLUS)
ALTER -
STUD02.DAN.KSDS.DATA-
 NEWNAME(STUD02.DAN.KSDS.NEWDATA)
/*
//

,//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

,// MSGLEVEL=(1,1),TIME=(2,45)
,//*===============================================================
,//* JCL TO EXPORT KSDS CLUSTER
,//*================================================================
,//STEP1 EXEC PGM=IDCAMS
,//DESDD1 DD DSN=STUD02.DAN.KSDS.EXPO,DISP=(NEW,CATLG,DELETE),
,// SPACE=(TRK,(5,5)),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),
,// UNIT=SYSDA
,//SYSPRINT DD SYSOUT=*
,//SYSIN DD *
, EXPORT -
, STUD02.DAN.KSDS.NEWCLUS -
, OUTFILE(DESDD1)-
,
,/*
,//

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO IMPORT KSDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//DESDD1 DD DSN=STUD02.DAN.KSDS.EXPO,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
IMPORT -
INTOEMPTY -
INFILE(DESDD1)-
OUTDATASET(STUD02.DAN.KSDS.NEWCLUS)
/*
//

//STUD02A JOB (A001,MFADM),ANAND,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* TO ALLOCATE THE VSAM DATA SETS
//* JCL TO CREATE A GDG
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG -
(NAME(STUD02.DAN.GDG1) -
LIMIT(3) -
NOEMPTY-
 SCRATCH)
/*
//

//STUD02A JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO CREATE A AIX KSDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE AIX -
(NAME(STUD02.DAN.KSDSAIX.CLUSTER) -
RELATE(STUD02.DAN.KSDS.NEWCLUS) -
UPGRADE -
VOLUME(Z9USR1) -
KEYS(6,0) -
FREESPACE(10,10) -
TRACKS(5,5) -
RECSZ(80,80) -
CISZ(4096) -
NONUNIQUEKEY) -
DATA(NAME(STUD02.DAN.KSDSAIX.DATA))-
INDEX(NAME(STUD02.DAN.KSDSAIX.INDEX))
/*
//

//STUD02A JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO BULIDINDEX FOR KSDS AIX
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DD1 DD DSN=STUD02.DAN.KSDS.NEWCLUS,DISP=SHR
//DD2 DD DSN=STUD02.DAN.KSDSAIX.CLUSTER,DISP=SHR
//SYSIN DD *
BLDINDEX INFILE(DD1),OUTFILE(DD2)
/*
//

//STUD02A JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,

// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO CREATE A PATH BETWEEN AIX- KSDS CLUSTER
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE PATH -
(NAME(STUD02.DAN.KSDS.NEWCLUS.PATH) -
PATHENTRY(STUD02.DAN.KSDSAIX.CLUSTER) -
UPDATE)
/*
//

***************************** Top of Data ****************************

//STUD02A JOB (A001,MFADM),ANAND,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO CREATE A GENERATION INSIDE A GDG
//*================================================================
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=STUD02.DAN.EMPREC.PS,DISP=SHR
//SYSUT2 DD DSN=STUD02.DAN.BKUP.GDG(+1),DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(5,5)),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),
// UNIT=SYSDA
//SYSIN DD *
/*
//STEP2 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=STUD02.DAN.EMPREC.PS,DISP=SHR
//SYSUT2 DD DSN=STUD02.DAN.BKUP.GDG(+2),DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(5,5)),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),
// UNIT=SYSDA
//SYSIN DD *
/*
//STEP3 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=STUD02.DAN.EMPREC.PS,DISP=SHR
//SYSUT2 DD DSN=STUD02.DAN.BKUP.GDG(+3),DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(5,5)),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),
// UNIT=SYSDA
//SYSIN DD *
/*
//STEP4 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=STUD02.DAN.EMPREC.PS,DISP=SHR
//SYSUT2 DD DSN=STUD02.DAN.BKUP.GDG(+4),DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(5,5)),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),
// UNIT=SYSDA
//SYSIN DD *
/*
//STEP5 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=STUD02.DAN.EMPREC.PS,DISP=SHR
//SYSUT2 DD DSN=STUD02.DAN.BKUP.GDG(+5),DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(5,5)),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),
// UNIT=SYSDA
//SYSIN DD *
/*
//

***************************** Top of Data ******************************

//STUD02A JOB (A001,MFADM),ANAND,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO CREATE A USER CATALOG
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE USERCATALOG -
(NAME(STUD02.DAN.UCAT1) -
MEGABYTES(10,10) -
VOLUMES(Z9USR1) -
ICFCATALOG -
FREESPACE(10,10) -
STRNO(3) -
CISZ(4096) -
BUFND(4) -
BUFNI(5))
/*
//
**************************** Bottom of Data ****************************

***************************** Top of Data ******************************

//STUD02A JOB (A001,MFADM),ANAND,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO CREATE ALIASES IN USERCATALOG
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE ALIAS -
(NAME(DANIEL01)-
RELATE(STUD02.DAN.UCAT1))
DEFINE ALIAS -
(NAME(DANIEL02)-
RELATE(STUD02.DAN.UCAT1))
DEFINE ALIAS -
(NAME(DANIEL03)-
RELATE(STUD02.DAN.UCAT1))
/*
//
**************************** Bottom of Data ****************************

***************************** Top of Data ******************************

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO DIAGNOSE USERCATLOG
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DIAGNOSE ICFCATALOG IDS(STUD02.DAN.UCAT)
/*
//
**************************** Bottom of Data ****************************

***************************** Top of Data ******************************

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO DIAGNOSE USERCATLOG
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DIAGNOSE ICFCATALOG IDS(STUD02.DAN.UCAT)
/*
//
**************************** Bottom of Data ****************************

***************************** Top of Data ******************************

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO EXPORT USERCATLOG
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//DESDD1 DD DSN=STUD02.DAN.UCAT.EXPO,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(5,5)),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),
// UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXPORT STUD02.DAN.UCAT OUTFILE(DESDD1) -
TEMPORARY
/*
//
**************************** Bottom of Data ****************************

***************************** Top of Data ******************************

//STUD02A JOB (A001,MFADM),ANAND,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1)
//*===============================================================
//* JCL TO DELETE A USERCATALOG AND ALIAS
//*================================================================
//STEP1 EXEC PGM=IEFBR14
//DD1 DD VOL=SER=Z9USR1,UNIT=SYSDA,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE STUD02.DAN.UCAT
/*
//
**************************** Bottom of Data ****************************

***************************** Top of Data ******************************

//STUD02A JOB (A001,MFADM),ANAND,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1)
//*===============================================================
//* JCL TO DELETE A USERCATALOG AND ALIAS
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE STUD02.DAN.UCAT1 USERCATALOG FORCE
/*
//
**************************** Bottom of Data ****************************

go to SR panel type /r num,y enter

***************************** Top of Data ******************************

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO IMPORT USERCATALOG
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//DESDD1 DD DSN=STUD02.DAN.UCAT.EXPO,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
IMPORT -
INTOEMPTY -
INFILE(DESDD1)-
OUTDATASET(STUD02.DAN.UCAT)-
ALIAS
/*
//
**************************** Bottom of Data ****************************

***************************** Top of Data ******************************

//STUD02$ JOB (A001,MFADM),DAN,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO EXAMINE USERCATLOG
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXAMINE NAME(STUD02.DAN.UCAT)-
ERRORLIMIT(100)
/*
//
**************************** Bottom of Data ****************************

***************************** Top of Data ******************************

//STUD02A JOB (A001,MFADM),ANAND,CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),TIME=(2,45)
//*===============================================================
//* JCL TO CREATE A MODEL USERCATALOG
//*================================================================
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE USERCATALOG -
(NAME(STUD02.DAN.TRN.UCAT)-
VOLUMES(Z9USR1) -
MEGABYTES(10,10) -
MODEL(STUD02.DAN.UCAT))
/*
//
**************************** Bottom of Data ****************************
//MERGECAT JOB (ACCT,ROOM,PROG),
// 'MERGE USER CATS',
// CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
//*********************************************************************
//* THIS JOB MERGES THE CONTENTS OF TWO USER CATALOGS *
//* (SOURCE.USER.CATALOG.ONE AND SOURCE.USER.CATALOG.TWO) *
//* INTO A NEW TARGET USER CATALOG (MERGED.USER.CATALOG). *
//* *
//* STEPS: *
//* 1. DEFINE A NEW, LARGER TARGET USER CATALOG. *
//* 2. EXPORT ENTRIES FROM THE FIRST SOURCE CATALOG TO A TEMPORARY *
//* VSAM EXPORT FILE. *
//* 3. IMPORT THE EXPORTED ENTRIES INTO THE NEW TARGET CATALOG. *
//* 4. EXPORT ENTRIES FROM THE SECOND SOURCE CATALOG TO THE SAME *
//* TEMPORARY VSAM EXPORT FILE (OVERWRITING PREVIOUS EXPORT). *
//* 5. IMPORT THE NEWLY EXPORTED ENTRIES INTO THE NEW TARGET CATALOG. *
//* 6. (OPTIONAL) DELETE THE OLD SOURCE USER CATALOGS. *
//* *
//* REPLACE ALL PLACEHOLDERS WITH YOUR ACTUAL NAMES AND VALUES. *
//*********************************************************************
//*********************************************************************
//* STEP 01: DEFINE THE NEW MERGED USER CATALOG *
//* Ensure this catalog is large enough! *
//*********************************************************************
//STEP01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE USERCATALOG -
(NAME(MERGED.USER.CATALOG) -
VOLUMES(VOLSERM1) - /* Volume for the new merged catalog */
DEVICETYPE(3390) -
ICFCATALOG -
RECOVERY -
FOR(9999) -
CYLINDERS(20 5) - /* Adjust space as needed for merged content */
FREESPACE(10 10))
/*
//*********************************************************************
//* STEP 02: EXPORT ENTRIES FROM THE FIRST SOURCE USER CATALOG *
//* TO A TEMPORARY VSAM EXPORT FILE. *
//*********************************************************************
//STEP02 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//EXPCAT1 DD DSN=&&TEMP.EXPORT.FILE, /* Temporary export file */
// DISP=(NEW,PASS),
// UNIT=SYSDA,
// SPACE=(CYL,(10,2)),
// DCB=(RECFM=VB,LRECL=2048,BLKSIZE=20480) /* Adjust LRECL/BLKSIZE if
needed */
//SYSIN DD *
EXPORT -
SOURCECATALOG(SOURCE.USER.CATALOG.ONE) - /* Name of the first source catalog */
OUTFILE(EXPCAT1) -
TEMPORARY
/*
//*********************************************************************
//* STEP 03: IMPORT ENTRIES FROM THE TEMPORARY FILE INTO THE NEW *
//* MERGED USER CATALOG. *
//*********************************************************************
//STEP03 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IMPCAT DD DSN=&&TEMP.EXPORT.FILE,
// DISP=(OLD,DELETE) /* Delete after import */
//SYSIN DD *
IMPORT -
INFILE(IMPCAT) -
TARGETCATALOG(MERGED.USER.CATALOG) -
INTOEMPTY
/*
//*********************************************************************
//* STEP 04: EXPORT ENTRIES FROM THE SECOND SOURCE USER CATALOG *
//* TO THE SAME TEMPORARY VSAM EXPORT FILE. *
//* Note: This will overwrite the previous export. *
//*********************************************************************
//STEP04 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//EXPCAT2 DD DSN=&&TEMP.EXPORT.FILE,
// DISP=(NEW,PASS), /* NEW,PASS to recreate the temp file */
// UNIT=SYSDA,
// SPACE=(CYL,(10,2)),
// DCB=(RECFM=VB,LRECL=2048,BLKSIZE=20480)
//SYSIN DD *
EXPORT -
SOURCECATALOG(SOURCE.USER.CATALOG.TWO) - /* Name of the second source catalog
*/
OUTFILE(EXPCAT2) -
TEMPORARY
/*
//*********************************************************************
//* STEP 05: IMPORT ENTRIES FROM THE TEMPORARY FILE INTO THE NEW *
//* MERGED USER CATALOG. *
//* Note: INTOEMPTY is NOT used here as the catalog already *
//* contains entries from the first source catalog. *
//*********************************************************************
//STEP05 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IMPCAT DD DSN=&&TEMP.EXPORT.FILE,
// DISP=(OLD,DELETE)
//SYSIN DD *
IMPORT -
INFILE(IMPCAT) -
TARGETCATALOG(MERGED.USER.CATALOG)
/*
//*********************************************************************
//* STEP 06 (OPTIONAL): DELETE THE OLD SOURCE USER CATALOGS *
//* ONLY RUN THESE STEPS AFTER VERIFYING THE MERGE! *
//*********************************************************************
//*//STEP06A EXEC PGM=IDCAMS
//*//SYSPRINT DD SYSOUT=*
//*//SYSIN DD *
//* DELETE -
//* SOURCE.USER.CATALOG.ONE -
//* USERCATALOG -
//* PURGE
//*/*
//*//STEP06B EXEC PGM=IDCAMS
//*//SYSPRINT DD SYSOUT=*
//*//SYSIN DD *
//* DELETE -
//* SOURCE.USER.CATALOG.TWO -
//* USERCATALOG -
//* PURGE
//*/*

LISTCAT LEVEL(USER.CATALOG.NAME) ALL

To start the initiators /$S I or "$S I(ii-ii)"

To stop initiators /$P I
To halt initiators /$Z I
To display the status of the initiators /$D I
A /$TI,classes
To display number of jobs and the % of spool disk usage /$D Q,ALL
To cancel a JES2 job /$C job name /$C#xxxx# (For
multiple instances)
To purge a JES2 job /$P jobname
To restart a JES2 job /$E job name
To hold a JES2 job /$H job name
To release a JES2 job /$A job name
To list output information about a job /$L job name
To change a jobs' execution class and priority /$T job name,C=the new
class,P=priority