EXECUTE JCL FOR COBOL + Mainframe

000001 //RUNCOB JOB ‘LEM01′,’MAC’,CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //STEP1 EXEC PGM=COBOL <= OBJ PRM NAME 000003 //STEPLIB DD DISP=SHR,DSN=IBMMFS.MAC.LOAD <= LOAD MODULE PDS 000004 //JCLFILE DD DISP=SHR,DSN=IBMMFS.MAC.PSFILE <=COBOL QSAM FILE-ID 000005 //SYSPRINT DD SYSOUT=* <= OUTPUT STREAM ( * = X ) 000006 //SYSIN DD * <= INPUT STREAM 000007 25 000008 /* 000009 //

COMPILE AND RUN JCL FOR COBOL

****** ***************************** Top of Data ************************************** 000001 //COBCOMP JOB ‘IBMMFS’,’MAC’,CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //PROCLIB JCLLIB ORDER=IBMMFS.PROC.COBOL   <= CONTAINS IGYWCL 000003 //STEP1 EXEC IGYWCL, 000004 // PARM.COBOL=’LIB,APOST,XREF,MAP,OFFSET’    <= COMPILER OPTIONS 000005 //COBOL.SYSIN DD DISP=SHR,DSN=IBMMFS.MAC.SOURCE(COBOL) <= I\P PGM 000006 //LKED.SYSLIB DD DISP=SHR,DSN=IBMMFS.MAC.COPY(SUBCOB) <= COPYLIB 000007 //LKED.SYSLMOD DD DISP=SHR,DSN=IBMMFS.MAC.LOAD(COBOL) <= O\P PGM 000008 //SYSPRINT DD SYSOUT=* 000009 // ****** **************************** [...]

MAINFRAME CODE – JCL

//OZA195Z JOB OZA,’ROHIT’,MSGCLASS=A,MSGLEVEL=(1,1),CLASS=A, copy ps // NOTIFY=&SYSUID,PRTY=10,TIME=(1,1),REGION=0M //STEP20 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //*SYSOUT DD SYSOUT=* //SYSUT1 DD DSN=OZA195.TEST1.DATASET,DISP=SHR //SYSUT2 DD DSN=OZA195.TEST.COPY.HYD, // DISP=(NEW,CATLG,DELETE),UNIT=SYSDA, // SPACE=(CYL,(10,10),RLSE), // DCB=(LRECL=80,RECFM=FB,BLKSIZE=0,DSORG=PS) //SYSIN DD DUMMY // COPY PDS //OZA195Y JOB OZA,’ROHIT’,MSGCLASS=A,MSGLEVEL=(1,1),CLASS=A, // NOTIFY=&SYSUID,PRTY=10,TIME=(1,1),REGION=0M //STEP20 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //*SYSOUT DD SYSOUT=* //SYSUT1 DD DSN=OZA195.TEST.PDS,DISP=SHR //SYSUT2 DD DSN=OZA195.TEST.C.PDS, // [...]

007 – Introduction to JCL – SPECIAL DD STATEMENTS

SOURCE – http://www.geocities.com/srcsinc/drona/programming/languages/jcl/jcl.html SPECIAL DD STATEMENTS 1. DUMMY DSN=NULLFILE 2. Concatenating Data sets 3. Passing data to cobol program using – SYSIN DD * 4. SYSOUT 5. SYSUDUMP 6. SYSADUMP 1. DUMMY or DSN=NULLFILE Some times we need to testing of program, without using actual datasets. Then we can use DUMMY or DSN=NULLFILE. If we [...]

006 – Introduction to JCL – DD Statement

SOURCE – http://www.geocities.com/srcsinc/drona/programming/languages/jcl/jcl.html DD STATEMENT The DD statement (Data Definition), is used to identify the source of input and the placement of output information Syntax -> //ddname DD < positional / keyword parameters > ddname must be unique in the job Positional parameters – * DATA DUMMY DYNAM Keyword Parameters – DSN DISP UNIT SPACE [...]

005 – Introduction to JCL – PARAMETERS IN BOTH STATEMENTS (JOB and EXEC)

SOURCE – http://www.geocities.com/srcsinc/drona/programming/languages/jcl/jcl.html PARAMETERS IN BOTH STATEMENTS (JOB and EXEC) COND REGION TIME These parameters can code in both JOB and EXEC statements, When we code these parameters on both statement, JOB – REGION will override EXEC – REGION JOB – COND will override EXEC – COND EXEC – TIME will overrirde JOB – TIME [...]

004 – Introduction to JCL – EXEC Statement

Source – http://www.geocities.com/srcsinc/drona/programming/languages/jcl/jcl.chapter4.html EXEC statement EXEC statement is used to execute a program/procedure A maximum of 255 EXEC statement can code in an single job Syntax – //stepname EXEC PGM=program-name,keyword parameters Positional parameter – Program-name Keyword parameters for EXEC PARM ACCT ADDRSPC DPRTY PERFORM RD PARM PARAM parameter is used to pass information to program [...]

003 – Introduction to JCL – JOBLIB / STEPLIB

SOURCE – http://www.geocities.com/srcsinc/drona/programming/languages/jcl/jcl.html JOBLIB It is a DD (Data definition) statement, and it specifies where the program (which is specified in EXEC statement) exists. It is applicable to all job steps in that job. It cannot be used in cataloged procedures. Syntax -> //JOBLIB DD DSN=dataset EXAMPLE JCL -> //MYJOB JOB (E343),’KRISHNA’ //JOBLIB DD DSN=SE.TEST.LOADLIB,DISP=SHR [...]

002 – Introduction to JCL – JOB Statement

SOURCE – http://www.geocities.com/srcsinc/drona/programming/languages/jcl/ Now let us look at JOB statement Syntax of JOB Statement EXPLANATION to keyword parameters CLASS PRTY MSGCLASS MSGLEVEL TYPRUN NOTIFY 1. CLASS – Some jobs can be short running, some jobs may take more time other may use havy resources. CLASS keyword parameter is used to tell to OS about the [...]

001 – Introduction to JCL

SOURCE – http://www.geocities.com/srcsinc/drona/programming/languages/jcl/ INTRODUCTION Job control language. It is a means of communication between a program that can be written in COBOL , ASSEMBER or PL/I and the MVS operating system. Without a JCL, you cant able to run a job on MVS operating system. Let us start with an example jcl, how it looks [...]