CONTENT IN THIS JCL

1. PS,PDS,LIBRARY CREATION (IEFBR14)

2. PS,PDS,LIBRARY DELETE
3. PS,PDS,LIBRARY UNCATLOG
4. PS,PDS,LIBRARY RECATLOG
5. IEHLIST CREATIONS
6. IEBPTPCH CREATION (PRINT,PUNCH)

7. IEBCOMPR CREATION (COMPARE)

8. IEBCOPY CREATION (ONLY FOR PARTITION DATASET (PDS))
9. IEBGENER CREATION (COPY DATA FROM PS TO ANOTHER PS)
10. IEBEDIT
11. IDCAMS JCL CREATION (COPY OR LOAD THE DATA FROM PS TO ESDS )
(ESDS, KSDS, RRDS)
 DEFINE COMMAND
 REPRO COMMAND
SKIP & COUNT
 PRINT COMMAND :- (VSAM OR NON-VSAM) TO CHECK THE DATASET IS
EMPTY OR NOT )
 LISTCAT ENTRIES COMMAND :- (BROWSE THE VSAM FILE)
 VERIFY COMMAND :- (REFRESH THE VSAM FILE)
 ALTER COMMAND :- (RENAME IN JCL)
 DELETE COMMAND :- (DELETE VSAM & NON-VSAM FILES)
 BUILDINDEX COMMAND :- (BASE & AIX WE BUILD THE INDEX, WE
WIL NOT BUILD THE INDEX MEANS WE CAN’T SEE PATH )
12. GDG-GENERATION DATA GROUP
13. GDG BASE CREATION:- (GENERATION DATA GROUP)
14. GENERATION CREATION
15. RECATLOG THE UNCATLOG GENERATION
 JCL CREATIONS
 PS JCL CREATION
//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEFBR14
//DD1 DD DSN=DATTA.JCL.PS1,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10,0),RLSE),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB,DSORG=PS),
// UNIT=SYSDA,VOLUME=SER=S7SYS1
//

 PS JCL DELETE
//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEFBR14
//DD1 DD DSN=DATTA.JCL.PS,DISP=(OLD,DELETE,DELETE)

 PDS JCL CREATION

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEFBR14
//DD1 DD DSN=DATTA.PDS1,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10,20),RLSE),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB,DSORG=PO),
// UNIT=SYSDA,VOLUME=SER=S7SYS1
//

*************************************************************************

 PDS JCL DELETE

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEFBR14
//DD1 DD DSN=DATTA.JCL.PDS,DISP=(OLD,DELETE,DELETE)
//

*************************************************************************
 LIBRARY JCL CREATION
//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEFBR14
//DD1 DD DSN=DATTA.LIBLIB,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10,20),RLSE),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=U,DSORG=PO),
// UNIT=SYSDA,VOLUME=SER=S7SYS1
//

********************************************************************

 LIBRARY JCL DELETE

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEFBR14
//DD1 DD DSN=DATTA.LIBLIB,DISP=(OLD,DELETE,DELETE)
//

********************************************************************

 UNCATLOG CREATION (SAME FOR DSN = .PDS OR LIBRARY)

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEFBR14
//DD1 DD DSN=DATTA.JCL.PS,DISP=(OLD,UNCATLG,DELETE)
//

*********************************************************************

 RECATLOG CREATION (SAME FOR DSN = .PDS OR LIBRARY)

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEFBR14
//DD1 DD DSN=DATTA.JCL.PS,DISP=(OLD,CATLG,DELETE),
// VOLUME=SER=S7SYS1,UNIT=SYSDA

*********************************************************************
 IEHLIST CREATION (WITHOUT SOURCE CODE)

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEHLIST
//DD1 DD UNIT=SYSDA,VOL=SER=S7SYS1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
LISTPDS DSNAME=DATTA.VSAM.PDS,VOLUME=SYSDA=S7SYS1
/*
//
**********************************************************************
 IEHLIST CREATION (VOLUME TABLE CONTAINT)

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEHLIST
//DD1 DD UNIT=SYSDA,VOL=SER=S7SYS1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
LISTVTOC VOLUME=SYSDA=S7SYS1
/*
//
**********************************************************************
 IEBPTPCH CREATION (ALL MEMBERS)

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** PRINT ALL MEMBERS *************
//JS01 EXEC PGM=IEBPTPCH
//SYSUT1 DD DSN=DATTA.VSAM.PDS,DISP=SHR
//SYSUT2 DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
PRINT TYPORG=PO,MAXFLDS=1
RECORD FIELD=(80)
/*
//
**********************************************************************

 IEBPTPCH CREATION (TWO MEMBERS ONLY)

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** PRINT 2 MEMBERS ONLY ***********
//JS01 EXEC PGM=IEBPTPCH
//SYSUT1 DD DSN=DATTA.VSAM.PDS,DISP=SHR
//SYSUT2 DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
PRINT TYPORG=PO,MAXFLDS=2,MAXNAME=2
MEMBER NAME=JCLPS
RECORD FIELD=(80)
MEMBER NAME=PSWRT
RECORD FIELD=(80)
/*
//

**************************************************************
 IEBPTPCH CREATION (PDS TO PS) (PS SPOOL AREA)

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEBPTPCH
//SYSUT1 DD DSN=DATTA.VSAM.PDS,DISP=SHR
//SYSUT2 DD DSN=DATTA.VSAM.PS,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSPOUT DD SYSOUT=*
//SYSIN DD *
PUNCH TYPORG=PO
/*
//

******************************************************************

 IEBCOMPR CREATION (COMPARE)



//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEBCOMPR
//SYSUT1 DD DSN=DATTA.VSAM.PS10,DISP=SHR
//SYSUT2 DD DSN=DATTA.VSAM.PS11,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
COMPARE TYPORG=PS
/*
//

**********************************************************************
 IEBCOPY CREATION (ONLY FOR PARTITION DATASET (PDS))

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=IBMUSER
//JS01 EXEC PGM=IEBCOPY
//DD1 DD DSN=DATTA.VSAM.PDS,DISP=SHR
//DD2 DD DSN=ADGP.COBOL,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
COPY INDD=DD1,OUTDD=DD2
/*
//

****************************************************
 IEBCOPY CREATION (3 PDS DATASET MEMBERS INTO SINGLE PDS)


//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=IBMUSER
//*** CONCINATE 3 PDS DATASET MEMBERS INTO SINGLE PDS ***
//JS01 EXEC PGM=IEBCOPY
//DD1 DD DSN=DATTA.VSAM.PDS,DISP=SHR
//DD2 DD DSN=DATTA.COBOL,DISP=SHR
//DD3 DD DSN=ADGP.COBOL,DISP=SHR
//DD4 DD DSN=DATTA.PDS,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
COPY INDD=DD1,DD2,DD3,OUTDD=DD4
/*
//

******************************************************************
 IEBCOPY CREATION (COPY SELECTED MEMBERS FROM 1 PDS TO ANOTHER PDS)
//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=IBMUSER
//*** COPY SELECTED MEMBERS FROM 1 PDS TO ANOTHER PDS ***
//JS01 EXEC PGM=IEBCOPY
//DD1 DD DSN=DEMO.COBOL,DISP=SHR
//DD2 DD DSN=DATTA.PDS1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
COPY INDD=DD1,OUTDD=DD2
SELECT MEMBER=(XCOB,XRUN)
/*
//
*****************************************************
 IEBCOPY CREATION (ACCEPT SELECTED MEMBERS COPY REMAINING MEMBERS)
//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=IBMUSER
//**** ACCEPT SELECTED MEMBERS COPY REMAINING MEMBERS ****
//JS01 EXEC PGM=IEBCOPY
//DD1 DD DSN=ASHOK.LAB.PDS,DISP=SHR
//DD2 DD DSN=DATTA.PDS1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
COPY INDD=DD1,OUTDD=DD2
EXCLUDE MEMBER=(XCOB,XRUN)
/*
//
******************************************************************
 IEBCOPY CREATION (RENAME (PGM2J TO XRUN))
//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=IBMUSER
//*** RENAME PGM2J TO XRUN *********
//JS01 EXEC PGM=IEBCOPY
//DD1 DD DSN=DEMO.COBOL,DISP=SHR
//DD2 DD DSN=DATTA.PDS,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
COPY INDD=DD1,OUTDD=DD2
SELECT MEMBER=(XCOB,(PGM2J,XRUN))
 /*
//
*******************************************************************
 IEBCOPY CREATION (RENAME REPLACE (XRUN TO PGM2J))
//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=IBMUSER
//*** RENAME REPLACE XRUN TO PGM2J **********
//JS01 EXEC PGM=IEBCOPY
//DD1 DD DSN=DEMO.COBOL,DISP=SHR
//DD2 DD DSN=DATTA.PDS,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
COPY INDD=DD1,OUTDD=DD2
SELECT MEMBER=((PGM2J,XRUN,R))
/*
//
********************************************************************
 IEBCOPY CREATION (COMPRESS PDS)


1.
2.
3.
//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=IBMUSER
//*** COMPRESS PDS (WE CAN COMPRESS ONLY PDS DATASET) ***
//JS01 EXEC PGM=IEBCOPY
//DD1 DD DSN=DATTA.PDS,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
COPY INDD=DD1,OUTDD=DD1
/*
//
**********************************************************************
 IEBGENER CREATION (

//IBMUSERP JOB ACC#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************** **************
//****** COPY DATA FROM PS TO ANOTHER PS *******
//**********************************************
//JS01 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=DATTA.JCL.PS,DISP=SHR
//SYSUT2 DD DSN=DATTA.JCL.PS.BAKUP,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10,0),RLSE),UNIT=SYSDA,
// DCB=*.SYSUT1,
// VOL=SER=S7SYS1
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
//
 IEBGENER CREATION (2 (PS) FLAT FILE DATA INTO SINGLE (PS) FLAT FILE)


//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IEBGENER
//******************* *******************************
//********* COPYING 2 PS INTO SINGLE PS FLAT FILE *************
//*************************************************************
//SYSUT1 DD DSN=DATTA.JCL.PS,DISP=SHR
// DD DSN=DATTA.JCL.PS1,DISP=SHR
//SYSUT2 DD DSN=DATTA.JCL.BACKUP,DISP=(NEW,CATLG,DELETE),
// DCB=*.SYSUT1,
// SPACE=(TRK,(10,10,0),RLSE),VOL=SER=S7SYS1
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
/*
//

 IEBGENER CREATION (6 (PS) FLAT FILE )



IBMUSERP JOB:- (6 (PS) FLAT FILE ‘P’ JOB)

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//************** ********************************
//************** 6(PS) FLAT FILES CREATION *****************
//**********************************************************
//JS01 EXEC PGM=IEFBR14
//SYSUT2 DD DSN=DATTA.BKUP.PS21,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10,0),RLSE),UNIT=SYSDA,
// DCB=(LRECL=40,BLKSIZE=400,RECFM=FB,DSORG=PS),
// VOL=SER=S7SYS1
//JS02 EXEC PGM=IEFBR14
//SYSUT2 DD DSN=DATTA.BKUP.PS22,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10,0),RLSE),UNIT=SYSDA,
// DCB=(LRECL=40,BLKSIZE=400,RECFM=FB,DSORG=PS),
// VOL=SER=S7SYS1
//JS03 EXEC PGM=IEFBR14
//SYSUT2 DD DSN=DATTA.BKUP.PS23,DISP=(NEW,CATLG,DELETE),
 // SPACE=(TRK,(10,10,0),RLSE),UNIT=SYSDA,
// DCB=(LRECL=40,BLKSIZE=400,RECFM=FB,DSORG=PS),
// VOL=SER=S7SYS1
//JS04 EXEC PGM= IEFBR14
//SYSUT2 DD DSN=DATTA.BKUP.PS24,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10,0),RLSE),UNIT=SYSDA,
// DCB=(LRECL=40,BLKSIZE=400,RECFM=FB,DSORG=PS),
// VOL=SER=S7SYS1
//JS05 EXEC PGM= IEFBR14
//SYSUT2 DD DSN=DATTA.BKUP.PS25,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10,0),RLSE),UNIT=SYSDA,
// DCB=(LRECL=40,BLKSIZE=400,RECFM=FB,DSORG=PS),
// VOL=SER=S7SYS1
//JS06 EXEC PGM= IEFBR14
//SYSUT2 DD DSN=DATTA.BKUP.PS26,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10,0),RLSE),UNIT=SYSDA,
// DCB=(LRECL=40,BLKSIZE=400,RECFM=FB,DSORG=PS),
// VOL=SER=S7SYS1

IBMUSERQ JOB:- (6 (PS) FLAT FILE ‘Q’ JOB)

//IBMUSERQ JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** EXECUTING ABOVE 6 (PS) FLAT FILES IN ‘Q’ JOB ***
//JS01 EXEC PGM=IEBEDIT
//SYSUT1 DD DSN=DATTA.JCLLIB(EIDT6FLE),DISP=SHR
//SYSUT2 DD SYSOUT=(*,INTRDR)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
EDIT START=IBMUSERP,TYPE=POSITION
/*
//

************************************************************************
 IDCAMS UTILITY
1. DEFINE COMMAND :-
 WE CREATE THE VSAM CLUSTER (ESDS, KSDS, RRDS)
 WE CAN CREATE KSDS AIX WITH 3 STEPS
I. DEFINE AIX
II. DEFINE PATH
III. BUILD INDEX
 WE CAN DEFINE GDG BASE. (GENERATION DATA GROUP)

2. REPRO COMMAND :-
 WE CAN COPY THE DATASET FROM ONE DATA TO ANOTHER DATA.
 BY USING REPRO COMMAND WE CAN LOAD(INSERT) & UNLOAD THE VSAM FILE
DATA.

 IDCAMS JCL CREATION (COPY OR LOAD THE DATA FROM PS TO ESDS )

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** COPY OR LOAD THE DATA FROM PS TO ESDS ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INDATASET(DATTA.VSAM.PS) -
OUTDATASET(DATTA.VSAM.ESDS)
/*
//

**********************************************************************
 IDCAMS JCL CREATION (COPY OR LOAD THE DATA FROM PS TO ESDS )

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** COPY OR LOAD THE DATA FROM PS TO ESDS ***
//STEP1 EXEC PGM=IDCAMS
//DD1 DD DSN=DATTA.VSAM.PS1,DISP=SHR
//DD2 DD DSN=DATTA.VSAM.ESDS1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(DD1) -
OUTFILE(DD2)
/*
//

*********************************************************************

 IDCAMS JCL CREATION (UNLOAD KSDS VSAM FILES DATA INTO FALT FILE (PS))
//IBMUSERP JOB (UNLOADVSAM),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** UNLOAD THE KSDS VSAM FILES DATA INTO FLAT FILE 'PS' ***
//STEP1 EXEC PGM= IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INDATASET(DATTA.VSAM.KSDS3) -
OUTDATASET(DATTA.VSAM.PS1)
/*
//
***********************************************************************
 IDCAMS JCL CREATION (COPY THE DATA FROM KSDS TO FALT FILE (PS) BASED
ON THE KEY VALUES (10004 TO 10009))
//IBMUSERP JOB (COPY),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** COPY THE DATA FROM KSDS TO FLAT FILE (PS) BASED ON ***
//*** KEY VALUES (10004) TO 10009) ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INDATASET(DATTA.VSAM.KSDS3) -
OUTDATASET(DATTA.VSAM.PS) -
FROMKEY(10004) -
TOKEY(10009)
/*
//
***********************************************************************
IDCAMS JCL CREATION (UNLOAD THE DATA FROM KSDS TO RRDS)
//IBMUSERP JOB (UNLOAD),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********** UNLOAD THE DATA FROM KSDS TO RRDS *************
//STEP1 EXEC PGM= IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INDATASET(DATTA.VSAM.KSDS3) -
OUTDATASET(DATTA.VSAM.RRDS1)
/*
//
**********************************************************************
 IDCAMS JCL CREATION (UNLOAD THE DATA FROM RRDS TO FLAT FILE(PS))
//IBMUSERP JOB (UNLOAD),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** UNLOAD THE DATA FROM RRDS TO FLAT FILES (PS) ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INDATASET(DATTA.VSAM.RRDS1) -
OUTDATASET(DATTA.VSAM.PS)
/*
//
**********************************************************************
 IDCAMS JCL CREATION (COPY THE DATA FROM RRDS TO FLAT FILE(PS) BASED
ON RELATIVE KEY (RECORD NUMBER 4 TO 10) )
//IBMUSERP JOB (COPY),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** COPY THE DATA FROM RRDS TO PS BASED ON ***
//*** RELATIVE KEY (REC NO. 4 TO 10) ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INDATASET(DATTA.VSAM.RRDS1) -
OUTDATASET(DATTA.VSAM.PS) -
FROMNUMBER(4) -
TONUMBER(10)
/*
//
*************************************************************************

SKIP & COUNT

 IDCAMS JCL CREATION (FLAT FILE(PS) WITH 13 RECORDS COPY FIRST 5

RECORDS TO ANOTHER FLAT FILE (PS)).
//IBMUSERP JOB (COPY),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** THERE IS PS FILE WITH 13 REC. COPY FIRST 5 REC TO ANOTHER PS ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INDATASET(DATTA.VSAM.PS1) -
OUTDATASET(DATTA.VSAM.PS2) -
SKIP(0) -
COUNT(5)
/*
//
*************************************************************************
 IDCAMS JCL CREATION (COPY RECORDS FROM 6 TO 9 TO OUTPUT FILE)
//IBMUSERP JOB (COPY),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** COPY THE RECORDS FROM 6 TO 9 TO OUTPUT PS FILE ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INDATASET(DATTA.VSAM.PS1) -
OUTDATASET(DATTA.VSAM.PS3) -
SKIP(5) -
COUNT(4)
/*
//
*************************************************************************

 IDCAMS JCL CREATION (OUT OF 13 REC. COPY ONLY LAST 4 RECORDS TO

OUTPUT PS FILE)
//IBMUSERP JOB (COPY),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** OUT OF 13 RECORDS COPY ONLY LAST 4 RECORDS TO OUTPUT PS FILE ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INDATASET(DATTA.VSAM.PS1) -
OUTDATASET(DATTA.VSAM.PS2) -
SKIP(9)
/*
//
************************************************************************
3. PRINT COMMAND :- TO SEE THE DATA IN JCL , VSAM OR NON-VSAM


 IDCAMS JCL CREATION (TO PRINT THE DATA IN SPOOL AREA FROM DATASET)
( IS SIMILAR TO INPUT ACCESS MODE IN COBOL)

//IBMUSERP JOB (PRINT),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** TO PRINT THE DATA IN SPOOL AREA FROM ANY DATASET ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
PRINT INDATASET(DATTA.VSAM.PS1) -
CHARACTER
/*
//

************************************************************************

 IDCAMS JCL CREATION (CHECK THE GIVEN DATA IS EMPTY OR NOT)

(IF MAXCC CONDITION CODE = 4 EMPTY DATASET,
IF MAXCC CONDITION CODE = 0 NOT EMPTY DATASET
IF MAXCC CONDITION CODE = 12 DATASET NOT EXIST)

//IBMUSERP JOB (PRINT),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** CHECK THE GIVEN DATASET IS EMPTY OR NOT ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
PRINT INDATASET(DATTA.VSAM.PS2) -
CHARACTER COUNT(1)
/*
//

*************************************************************************
4. LISTCAT ENTRIES COMMAND :- (BROWSE THE VSAM FILE)


//IBMUSERP JOB (BROWSE),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** LISOUT THE VSAM FILES INFORMATION OR ATTRIBUTES INFORMATION ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
LISTCAT ENTRIES(DATTA.VSAM.RRDS1)ALL
/*
//

NOTE:- WITHOUT ALL WE GET ONLY 10% RESULT

****************************************************************
5. VERIFY COMMAND :- (REFRESH THE VSAM FILE)


//IBMUSERP JOB (VERFIY),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** VERIFY THE GIVEN DATASET IS FACING ANY ISSUES OR NOT ***
//*** (OPENING, CLOSING, I-O, ISSUES) ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
VERIFY DATASET(DATTA.VSAM.RRDS1)
/*
//

****************************************************************
6. ALTER COMMAND :- (RENAME IN JCL)



//IBMUSERP JOB (ALTER),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** TO RENAME THE DATASETS ***
//*** TO UPDATE GDG BASE LIMIT (ALTER THE GDG BASE LIMIT) ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
ALTER DATTA.VSAM.RRDS1 NEWNAME(DATTA.VSAM.RRDS2)
/*
//

**********************************************************
7. DELETE COMMAND :- (DELETE VSAM & NON-VSAM FILES)


//IBMUSERP JOB (DELETE),'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** DELETE VSAM FILES AND NON-VSAM FILES ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DELETE DATTA.VSAM.PS4
/*
//

8. BUILDINDEX COMMAND :- (BASE & AIX WE BUILD THE INDEX, WE WIL NOT BUILD
THE INDEX MEANS WE CAN’T SEE PATH )
 GDG-GENERATION DATA GROUP :-
 GDG IS NOTHING BUT A COLLECTION OF GENERATIONS
 GENERATION IS NOTHING BUT A FLAT FILE OR PS FILE.
 WITHOUT GDG BASE WE CAN’T CREATE GENERATION.
 BY USING IDCAMS UTILITY WE CAN CREATE THE GDG BASE.
 BY USING IEFBR14 WE CAN CREATE THE GDG GENERATION.
 FOR EVERY GENERATION THE PREFIX SHOULD BE GDG BASE NAME.
 THE GENERATION FORMAT WILL BE.
 GDGBASE
 GDGBASE.G0001V00
 GDGBASE.G0002V00
UPTO
 GDGBASE.G9999V00
G0001 – GENERATION
V00 - VERSION
 THE GENERATION NUMBER WILL BE CHANGE SYSTEMATICALLY.
 VERSION NUMBER WILL BE CHANGE
 IN 3.4 WE CAN CREATE AND MAXIMUM 255 GENERATION UNDER THE
BASE.
 WE CAN’T EDIT GDG BASE ONLY WE CAN ACCESS.
 WE CANT PERFORM ANY ACTIONS ON GDG BASE.
 WE CAN PERFORM ON GENERATION OR EDIT THE DATA ON
GENERATION.
 WE CAN’T RENAME THE GDG BASE
 WE CAN DELETE GDG BASE THEN ALL GENERATIONS WILL BE DELETED
AUTOMATICALLY.

REFERENCE ACCESS (POSITION) :-

‘-‘ = PREVIOUS / EXISTING GENERATION.
‘0’ = LATEST/CURRENT GENERATION.
‘+’ = FUTURE GENERATION.
EXAMPLE:- DSN = GDGBASE(0)
GDG BASE PARAMETERS :-
1. NAME :- REPRESENT GDG BASE NAME
2. LIMIT :-
a) REPERSENT NUMBER OF GENERATION UNDER GDG BASE IN 3.4
b) MAXIMUM LIMIT IS 255 GENERATIONS
3. EMPTY/NOEMPTY :-
EMPTY = UNCATLOG ALL GENERATIONS ONCE THE LIMIT IS REACHED
NOEMPTY = UNCATLOG OLDEST GENERATION ONCE THE LIMIT IS
REACHED & NEW GENERATION WILL BE CATLOGED
4. SCRACH/NOSCRACH :-
SCRACH = DELETE ALL UNCATLOG GENERATION WITHOUT ANY BACKUP.
NOSCRACH = DOES NOT DELETE UNCATLOG GENERATION BACKUP IS
AVAILABLE
5. EXPIRY DATE :- PROVIDE THE RETENTION DATE
6. OWNER :- WHO HAS CREATED BASE

GDG BASE CREATION:- (GENERATION DATA GROUP)

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DATTA.GDG) -
LIMIT(5) -
EMPTY -
NOSCRATCH)
/*
//
GENERATION CREATION:-

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//**** GENERATION CREATION *********
//JS01 EXEC PGM=IEFBR14
//DD1 DD DSN=DATTA.GDG(+1),DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10,0),RLSE),UNIT=SYSDA,VOL=SER=S7SYS1,
// DCB=(LRECL=40,BLKSIZE=400,RECFM=FB,DSORG=PS)
//

*************************************************************************

RECATLOG THE UNCATLOG THE GENERATION :- ( BY USING ‘C’ IN S7SYS1

OR VOLUME WE CAN RECATLOG)

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//******* RECATLG THE UNCATLG THE FIRST GENERATION ********
//JS01 EXEC PGM=IEFBR14
//DD1 DD DSN=DATTA.GDG.G0001V00,DISP=(SHR,CATLG,DELETE),
// UNIT=SYSDA,VOL=SER=S7SYS1
//

NOTE :-
 BY USING GDG BASE POSITION CONCEPT WE CAN ACCESS THE GENERATION
WHICH ARE PRESENT IN 3.4 ONLY BECAUSE THE POSITION CONCEPT WILL NOT BE
SUPPORTED IN VOLUME.
 THE POSITION CONCEPT WILL SUPPORTED IN ONLY DSN KEYWORD PARAMETER.
 THE POSITION CONCEPT WILL NOT BE SUPPORTED INSTREAM DATA CONCEPT.

*************************************************************************
GENERATION :- (WITHOUT POSITION)
Q. LOAD THE DAYA INTO FIRST GENERATION FROM FLAT FILE.

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** LOAD THE DATA INTO FIRST GENERATION FROM FLAT FILE(WITHOUT PSNT)*
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=DATTA.VSAM.PS,DISP=SHR
//SYSUT2 DD DSN=DATTA.GDG(-4),DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
//

*************************************************************************
GENERATION :- (WITH POSITION)
Q. LOAD THE DATA INTO 2ND GENERATION FROM KSDS FILE USING IDCAMS.

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** LOAD THE DATA INTO 2ND GENERATION FROM KSDS FILE USING IDCAMS ***
//JS01 EXEC PGM=IDCAMS
//DD1 DD DSN=DATTA.VSAM.KSDS1,DISP=SHR
//DD2 DD DSN=DATTA.GDG(-3),DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(DD1) -
OUTFILE(DD2)
/*
OR
WITHOUT POSITION
//SYSIN DD *
REPRO INDATASET(DATTA.VSAM.KSDS) –
OUTDATASET(DATTA.GDG.G0002V00)
/*

*************************************************************************
GENERATION :-
Q. DATA COPYING FROM 2ND GENERATION TO 3RD GENERATION.

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** DATA COPYING FROM 2ND GENERATION TO 3RD GENERATION ***
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=DATTA.GDG(-3),DISP=SHR
//SYSUT2 DD DSN=DATTA.GDG(-2),DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
*************************************************************************
GENERATION :-
Q. CONCINATE 1ST & 2ND GENERATION DATA INTO LATEST GENERATION.

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** CONCINATE 1 & 2 GENERATION DATA INTO LATEST GENERATION ***
//JS01 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=DATTA.GDG(-4),DISP=SHR
// DD DSN=DATTA.GDG(-3),DISP=OLD
//SYSUT2 DD DSN=DATTA.GDG(0),DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY

************************************************************************
GENERATION PRINT :- (WE CAN PRINT ANY DATASET) (BY USING IDCAMS UTILITY
WE CAN SEE RECORDS IN SEQUENCE NUMBER)
Q. PRINT LATEST GENERATION (SEQUENCE NUMBER).

//IBMUSERP JOB ACTT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** PRINT LATEST GENERATION SEQUENCE NUMBER ***
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
PRINT INDATASET(DATTA.GDG.G0005V00) -
CHARACTER
/*
************************************************************************
GENERATION PRINT :- (WE CAN PRINT ANY DATASET) (BY USING IEBGENER UTILITY
WE CAN SEE ONLY DATA SET WE WIL NOT GET SEQUENCE NUMBER)
Q. PRINT LATEST GENERATION (SEQUENCE NUMBER).

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** PRINT LATEST GENERATION ONLY WE SEE DATA ***
//JSO1 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=DATTA.GDG(0),DISP=SHR
//SYSUT2 DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
*************************************************************************
GENERATION :-
Q. COPYDATA FROM LATEST GENERATION TO PREVIOUS GENERATION.

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** COPY DATA FROM LATEST GENERATION TO PREVIOUS GENERATION ***
//JSO1 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=DATTA.GDG(0),DISP=SHR
//SYSUT2 DD DSN=DATTA.GDG(-1),DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
//
*************************************************************************
GENERATION :-
Q. CONCINATE ALL THE GENERATION DATA INTO SINGLE FLAT FILE.
//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** CONCINATE ALL THE GENERATION DATA INTO SINGLE FILE ***
//JS01 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=DATTA.GDG,DISP=SHR
//SYSUT2 DD DSN=DATTA.BKUP.PS,DISP=(NEW,CATLG,DELETE),
// DCB=*.SYSUT1,SPACE=(TRK,(20,20),RLSE),
// UNIT=SYSDA,VOL=SER=S7SYS1
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
//
*************************************************************************
GENERATION :-
Q. DELETE THE GENERATION.
 IEFBR14
 IDCAMS

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** DELETE GENERATION ***
//JS01 EXEC PGM=IEFBR14
//DD1 DD DSN=DATTA.GDG(0),DISP=(OLD,DELETE,DELETE)

OR
//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//JS01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DELETE DATTA.GDG.G0003V00
/*

*************************************************************************
GENERATION :-
Q. UPDATE THE GDG BASE LIMIT.

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** UPDATE THE GDG BASE LIMIT ***
//JS01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
ALTER DATTA.GDG LIMIT(10)
/*
//

**************************** Bottom of Data **************************

GENERATION :-
Q. DELETE GDG BASE.

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** DELETE GDG BASE ****
//JS01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DELETE DATTA.GDG1 FORCE
/*
//

************************************************************************
GENERATION :-
Q. DELETE ALL THE GENERATION WITHOUT GDG BASE.

//IBMUSERP JOB ACCT#,'IBMUSER',CLASS=A,PRTY=15,MSGCLASS=A,

// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*** DELETE GENERATION WITHOUT GDG BASE ***
//JS01 EXEC PGM=IEFBR14
//DD1 DD DSN=DATTA.GDG,DISP=(OLD,DELETE,DELETE)

************************************************************************
UTILITY USED IN THIS
1. IEFBR14 CREATION (PS, PDS, LIBRARY JCL CREATION)
2. IEHLIST CREATION (ALL THE PDS) (WITHOUT SOURCE CODE)
3. IEBPTPCH CREATION (PRINT, PUNCH ) (ALL MEMBERS)
4. IEBCOMPR CREATION (COMPARE)
5. IEBCOPY CREATION (ONLY FOR PARTITION DATASET (PDS))
6. IEBGENER CREATION (COPY DATA FROM PS TO ANOTHER PS)
7. IEBEDIT CREATION (6 (PS) FLAT FILE ‘Q’ JOB)
8. IDCAMS CREATION (COPY OR LOAD THE DATA FROM PS TO ESDS )

DATTATRIEYA.G.H