JCL (Job Control Language) is used to describe batch job steps, programs, and files. It was developed by IBM for its System/360 operating systems. JCL is complex, inconsistent, and difficult to learn, but remains in use due to its early adoption. The document then provides sample JCL for various tasks like defining aliases, listing catalogs, backing up files, and more.
Copyright:
Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online from Scribd
JCL (Job Control Language) is used to describe batch job steps, programs, and files. It was developed by IBM for its System/360 operating systems. JCL is complex, inconsistent, and difficult to learn, but remains in use due to its early adoption. The document then provides sample JCL for various tasks like defining aliases, listing catalogs, backing up files, and more.
JCL (Job Control Language) is used to describe batch job steps, programs, and files. It was developed by IBM for its System/360 operating systems. JCL is complex, inconsistent, and difficult to learn, but remains in use due to its early adoption. The document then provides sample JCL for various tasks like defining aliases, listing catalogs, backing up files, and more.
Copyright:
Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online from Scribd
JCL (Job Control Language) is used to describe batch job steps, programs, and files. It was developed by IBM for its System/360 operating systems. JCL is complex, inconsistent, and difficult to learn, but remains in use due to its early adoption. The document then provides sample JCL for various tasks like defining aliases, listing catalogs, backing up files, and more.
Copyright:
Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online from Scribd
Download as doc, pdf, or txt
You are on page 1/ 8
What is JCL
Job Control Language. The language used to describe the steps of a batch job (files to be used, programs to be run, etc). A generic term, hijacked by IBM to refer to the batch control languages for its System/360 operating systems. Then, as now, z/OS and VSE/ESA JCL is a clumsy and cumbersome system that is hard to learn, full of inconsistencies, and avoided by anyone with an iota of common sense and access to an alternative. The only excuse for it comes from one of the original OS/360 developers: they ran out of time to build a JCL interpreter, so just used the Assembler macro processor, and built a language (JCL) around it.
Sample JCL All the JCL is displayed in text format for readability All suggestions are welcome Criticism may or may not be welcome
1.
Alias Define
2.
Alias List
3.
Backup HFS
4.
CICS - List all CSD Groups
5.
Compress Data Set
6.
DASD - ANALYZE
7.
DASD - Init w/SMS
8.
GDG Alter Limit
9.
GDG Define
10. GDG List
11. HSM Dump Full 12. Inspect 13. Rename Data set 14. SCDS Define 15. Search For 16. SHOWMVS from the CBT tape 17. User Catalog Define 18. User Catalog Delete
1.
Alias Define
//JOBCARD... //*-------------------------------------------------------------------* //* Define Alias //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //ALIAS EXEC PGM=IDCAMS //STEPCAT DD DSN=CATALOG.MASTER,DISP=SHR // DD DSN=CATALOG.PROD,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE ALIAS(NAME(MIKE) RELATE(CATALOG.PROD)) CATALOG(CATALOG.MASTER) /*
2.
Alias List
//JOBCARD... //*-------------------------------------------------------------------* //* List Alias //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //LISTALIA EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * LISTCAT ALIAS ALL CATALOG(CATALOG.MASTER)
3.
Backup HFS
//JOBCARD... //*-------------------------------------------------------------------* //* Backup HFS DFDSS dump and restore //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //DUMPHFS EXEC PGM=ADRDSSU //SAVE DD DISP=(,CATLG,DELETE),DSN=SMPT.DB2610.HFSFILE.SAVE, // SPACE=(CYL,(10,2),,CONTIG),UNIT=3390 //SYSPRINT DD SYSOUT=* //SYSIN DD * DUMP DATASET(INCLUDE( SMPT.DB2610.HFSFILE ) ) SHARE TOL(ENQF) OUTDDNAM(SAVE) /* and the restore //HFSRALF0 EXEC PGM=ADRDSSU //SYSPRINT DD SYSOUT=* //SAVE DD DISP=SHR,DSN=SMPT.DB2610.HFSFILE.SAVE //SYS DD DISP=SHR,UNIT=3390,VOL=SER=SYS016 //SYSIN DD * RESTORE DATASET(INCLUDE( SMPT.DB2610.HFSFILE, ) ) INDD(SAVE) ODD(SYS) TOL(ENQF) STORCLAS(SSYST300) MGMTCLAS(MSYST000) RENAMEU(( SMPT.DB2610.HFSFILE, SYS5.DB2610J.HFSFILE )) CATALOG TGTALLOC(CYL) REPLACE /*
4.
CICS - List all CSD Groups
//JOBCARD... //*-------------------------------------------------------------------* //* List CICS CSD Groups //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //DFHCSDUP EXEC PGM=DFHCSDUP //STEPLIB DD DSN=CICS410.SDFHLOAD,DISP=SHR //DFHCSD DD DSN=CICS410.PROD.DFHCSD,DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,100)) //SYSPRINT DD SYSOUT=* //SYSIN DD * LIST ALL /*
5.
Compress Data Set
//JOBCARD... //*-------------------------------------------------------------------* //* Compress a data set //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //COPYSEQ EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=MIKE.TEST //SYSUT2 DD DISP=SHR,DSN=MIKE.TEST //SYSIN DD DUMMY COPY INDD=SYSUT1,OUTDD=SYSUT2 /*
6.
DASD - ANALYZE
//JOBCARD... //*-------------------------------------------------------------------* //* Analyze DASD //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //ANALYZE EXEC PGM=ICKDSF //SYSPRINT DD SYSOUT=* //SYSIN DD * ANALYZE UNIT(47C) ALL SCAN
7.
DASD - Init w/SMS
//JOBCARD... //*-------------------------------------------------------------------* //* Init DASD with SMS storage group parameter //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //MIKE01 EXEC PGM=ICKDSF,REGION=2M //SYSPRINT DD SYSOUT=* //SYSIN DD * INIT UNIT(C01) NOMAP VOLID(MIKE01) NOCHECK VTOC(0,1,14) OWNERID(CPAC) NOVALIDATE VERIFY(XXXXXX) STORAGEGROUP
8.
GDG Alter Limit
//JOBCARD... //*-------------------------------------------------------------------* //* Alter GDG limit //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=A //SYSIN DD * ALTER MIKE.GDG LIMIT(20) /*
9.
GDG Define
//JOBCARD... //*-------------------------------------------------------------------* //* Define GDG //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //IDCAMS EXEC PGM=IDCAMS,REGION=6M //SYSPRINT DD SYSOUT=* //SYSIN DD * DEF GDG (NAME( MIKE.GDG ) LIMIT(4) SCRATCH
NOEMPTY)
10.
GDG List
//JOBCARD... //*-------------------------------------------------------------------* //* List GDG entry //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //LISTENT EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * LISTC GDG ENT(MIKE.GDG) ALL 11.
HSM Dump Full
//JOBCARD... //*-------------------------------------------------------------------* //* HSM Dump Full //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //S010 EXEC PGM=ADRDSSU //SYSPRINT DD SYSOUT=* //DISK DD DISP=OLD,UNIT=SYSDA,VOL=SER=LORS01 //TAPE DD DISP=SHR,DSN=DFHSM.DMP.DIMANCHE.VBARQ16.D00170.T242410 // UNIT=ROBOT,LABEL=(1,SL),VOL=SER=(004273) //SYSIN DD * RESTORE DATASET(INCLUDE(ESEQ.CICS50.DFHJ01A)) INDD(TAPE) OUTDD(DISK) /*
First , verify you have DATASETRESTORE in the dumpclass definition
Then use a standard DFDSS RESTORE job with specifying the HSM dump dsname
12.
Inspect
//JOBCARD... //*-------------------------------------------------------------------* //* Inspect DASD //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //INSPECT EXEC PGM=ICKDSF //VOLUME1 DD UNIT=SYSDA,VOL=SER=MIKE01,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * INSPECT DDNAME(VOLUME1) CHECK(3) SKIP PRESERVEMAP NOVERIFY /*
13.
Rename Data set
//JOBCARD... //*-------------------------------------------------------------------* //* Rename data set //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //RENAME EXEC PGM=IEHPROGM //SYSPRINT DD SYSOUT=* //DD1 DD UNIT=3390,VOL=SER=MTRES1,DISP=SHR //SYSIN DD * RENAME DSNAME=SYS1.PARMLIB,VOL=SER=MTRES1, NEWNAME=SYS1.PARMLIB.NOTUSED /*
14.
SCDS Define
//JOBCARD... //*-------------------------------------------------------------------* //* Define SCDS //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //STEP1 EXEC PGM=IDCAMS //STEPCAT DD DSN=CATALOG.OS39A.MASTER,DISP=SHR //SYSUDUMP DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE CLUSTER(NAME(SYS1.SMS.SCDSTEST.SCDS) LINEAR VOL(XXXXXX) TRK(22 2) SHAREOPTIONS(3,3)) DATA(NAME(SYS1.SMS.SCDSTEST.SCDS.DATA)) /* 15.
Search For
//JOBCARD... //*-------------------------------------------------------------------* //* Search for //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //SEARCH EXEC PGM=ISRSUPC,PARM=(SRCHCMP,NOPRTCC,LONGLN,'ANYC') //NEWDD DD DSN=SMPE.OS390.SMPPTS,DISP=SHR //OUTDD DD DSN=TECHMCS.LIST99, // DISP=(,CATLG,DELETE), // UNIT=3390,SPACE=(TRK,(150,150),RLSE), // LRECL=202,RECFM=FB,DSORG=PS
SRCHFOR
'YR2000'
16.
SHOWMVS from the CBT tape
//JOBCARD... //*-------------------------------------------------------------------* //* ShowMVS //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //TSO EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* //SHOWMVS DD SYSOUT=* //SYSTSIN DD * SHOWMVS /* 17.
User Catalog Define
//JOBCARD... //*-------------------------------------------------------------------* //* Define user catalog //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //DEFINE5 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE USERCATALOG (NAME (CATALOG.VTST124) VOLUME(TST124) ICFCATALOG FSPC(10,10) STRNO(2) SHR(3,4) RECSZ(4086 4086) CYL(5)) DATA ( BUFND(10) CISZ(4096)) INDEX ( BUFNI(9) CISZ(4096)) CATALOG( CATALOG.VTST124) /* 18.
User Catalog Delete
//JOBCARD... //*-------------------------------------------------------------------* //* Delete user catalog //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE CATALOG.USER USERCATALOG FORCE /* 8
