first

to copy the members

//MYJOB JOB
//MYPROC PROC
//STEP1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=KC03K7B.TODAY.PDS
//SYSUT2 DD DISP=SHR,DSN=KC03K7B.NEW.PDS
// PEND
//STEP1 EXEC MYPROC
//SYSIN DD

cobol with posistions

(1)//MYJOB JOB 1,'ANU'
(1)//STEP1 EXEC IGYWCLG
(8) IDENTIFICATION DIVISION.
(8)PROGRAM-ID. LAB1.
(8)ENVIRONMENT DIVISION.
(8) CONFIGURATION SECTION.
(8)INPUT-OUTPUT SECTION.
(8)FILE-CONTROL.
(12) SELECT INPUT-FILE ASSIGN TO DA-S-INPUT.
(12)SELECT PRNT-FILE ASSIGN TO UR-S-PRNT.
(12)EJECT
(8)DATA DIVISION.
(8)FILE SECTION.
(10) FD INPUT-FILE
(12)LABEL RECORDS ARE STANDARD.
(8)01 INPUT-REC PIC X(80).
(10)FD PRNT-FILE
(12)LABEL RECORDS ARE OMITTED.
(8)01 PRNT-REC PIC X(125).
(8)WORKING-STORAGE SECTION.
(8)01 INPUT-DATA.
(10)03 I-NAME PIC X(20).
(8)01 PRNT-DATA1.
(12)03 O-NAME PIC X(20).
(8)01 MISC.
(10)03 EOF-I PIC 9 VALUE 0.
(8)PROCEDURE DIVISION.
(8)PARA1.
(12)OPEN INPUT INPUT-FILE
(12) OUTPUT PRNT-FILE.
(12)PERFORM READ-INPUT.
(12)PERFORM LOOP1
(12)UNTIL EOF-I = 1.
(12)CLOSE INPUT-FILE
(12)PRNT-FILE.
(12)STOP RUN.
(8)LOOP1.
(12)PERFORM PRINT-NAMES.
(12)PERFORM READ-INPUT.
(8)PRINT-NAMES.
(12)MOVE I-NAME TO O-NAME.
(12)WRITE PRNT-REC FROM PRNT-DATA1
(12)AFTER ADVANCING 1 LINE.
(8)READ-INPUT.
(12)READ INPUT-FILE INTO INPUT-DATA
(12)AT END MOVE 1 TO EOF-I.
(1) //GO.SYSOUT DD SYSOUT=*
(1)//GO.SYSPRINT DD SYSOUT=*
(1)//GO.INPUT DD *
NAME
CEMA
ANU
(1)//GO.PRNT DD SYSOUT=*

CL program to Copy an In stream procedure to a member.

STEP1:CREATE A MEMBER IN PDS AS SRC

//CATLG PROC

//STEP1 EXEC PGM=IEFBR14

//DD1 DD DSN=KC03H16.Z2.Z2,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))

//SYSPRINT DD SYSOUT=*

STEP2:CREATE A MEMBER AS TAR

STEP3: IN PDS WRITE THE CODE AS FOLLOWS

//COPINS JOB 1,GEOFF,MSGCLASS=A

// EXEC PGM=IEBGENER

//SYSIN DD DUMMY

//SYSPRINT DD SYSOUT=A

//SYSUT1 DD DISP=SHR,DSN=KC03H16.EEE.PDS(SRC)

//SYSUT2 DD DISP=SHR,DSN=KC03H16.EEE.PDS(TAR)

JCL program to convert a job stream to an Instream procedure.

/JOBTOIN JOB

//MYPROC PROC

//STEP1 EXEC PGM=IEFBR14

//DD1 DD DSN=KC03H16.M8.M7,

// DISP=(NEW,CATLG),

// SPACE=(TRK,(5,2,0)),

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)

//SYSPRINT DD SYSOUT=*

// PEND

//STEP3 EXEC PROC=MYPROC,TIME.STEP1=20

//STEP1.DD1 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=6400)

//STEP1.DD1 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)

//SYSIN DD *

Employee pay roll

//KC03H0BP JOB (1245),'KAVI ARUN',MSGLEVEL=(1,1),REGION=0M,
// NOTIFY=KC03H0B,MSGCLASS=A,CLASS=A
//COBOL1 EXEC IGYWCLG,
// PARM.COBOL='TEST,RENT,APOST,OBJECT,NODYNAM,LIB,SIZE(5048376)'
//COBOL.SYSPRINT DD SYSOUT=*
//COBOL.SYSIN DD *
IDENTIFICATION DIVISION.
PROGRAM-ID. LAB1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE ASSIGN TO DA-S-INPUT.
SELECT PRNT-FILE ASSIGN TO UR-S-PRNT.
EJECT
DATA DIVISION.
SKIP3
FILE SECTION.
FD INPUT-FILE
BLOCK CONTAINS 0 RECORDS
LABEL RECORDS ARE STANDARD.
01 INPUT-REC PIC X(80).
SKIP2
FD PRNT-FILE
LABEL RECORDS ARE OMITTED.
01 PRNT-REC PIC X(225).
WORKING-STORAGE SECTION.
01 INPUT-DATA.
03 I-NAME PIC X(5).
03 ENO PIC 9(4).
03 BASIC PIC 9(5).
03 DA PIC 9(4).
03 HRA PIC 9(4).
03 EPF PIC 9(4).
03 IT PIC 9(4).
03 GROSS PIC 9(5).
03 NET PIC 9(5).9(2).
03 FILLER PIC X(21).
01 PRNT-DATA1.
03 FILLER PIC X(3) VALUE SPACES.
03 L-NAME1 PIC X(5).
03 FILLER PIC X(3) VALUE SPACES.
03 L-ENO PIC 9(4).
03 FILLER PIC X(3) VALUE SPACES.
03 L-BASIC1 PIC 9(5).
03 FILLER PIC X(3) VALUE SPACES.
03 L-DA1 PIC 9(4).
03 FILLER PIC X(3) VALUE SPACES.
03 L-HRA1 PIC 9(4).
03 FILLER PIC X(3) VALUE SPACES.
03 L-PF1 PIC 9(4).
03 FILLER PIC X(3) VALUE SPACES.
03 L-IT1 PIC 9(4).
03 FILLER PIC X(3) VALUE SPACES.
03 L-GROSS PIC 9(5).
03 FILLER PIC X(3) VALUE SPACES.
03 L-NET PIC 9(5).9(2).
01 PRNT-HEADING1.
03 FILLER PIC X(3) VALUE SPACES.
03 FILLER PIC X(5) VALUE 'NAME'.
03 FILLER PIC X(3) VALUE SPACES.
03 FILLER PIC X(4) VALUE 'ENO'.
03 FILLER PIC X(3) VALUE SPACES.
03 FILLER PIC X(5) VALUE 'BASIC'.
03 FILLER PIC X(3) VALUE SPACES.
03 FILLER PIC X(4) VALUE 'DA'.
03 FILLER PIC X(3) VALUE SPACES.
03 FILLER PIC X(4) VALUE 'HRA'.
03 FILLER PIC X(3) VALUE SPACES.
03 FILLER PIC X(4) VALUE 'PF'.
03 FILLER PIC X(3) VALUE SPACES.
03 FILLER PIC X(4) VALUE 'IT'.
03 FILLER PIC X(3) VALUE SPACES.
03 FILLER PIC X(5) VALUE 'GROSS'.
03 FILLER PIC X(3) VALUE SPACES.
03 FILLER PIC X(5) VALUE 'NET'.
01 MISC.
03 EOF-I PIC 9 VALUE 0.
PROCEDURE DIVISION.
000-MAINLINE.
OPEN INPUT INPUT-FILE
OUTPUT PRNT-FILE.
PERFORM 2000-READ-INPUT.
PERFORM 1400-PRINT-HEAD.
PERFORM 1500-LOOP
UNTIL EOF-I = 1.
CLOSE INPUT-FILE
PRNT-FILE.
STOP RUN.
1400-PRINT-HEAD.
WRITE PRNT-REC FROM PRNT-HEADING1
AFTER ADVANCING PAGE.
MOVE SPACES TO PRNT-REC.
WRITE PRNT-REC
AFTER ADVANCING 1 LINE.
1500-LOOP.
PERFORM 1600-PRINT-NAMES.
PERFORM 2000-READ-INPUT.
1600-PRINT-NAMES.
ADD BASIC DA HRA GIVING GROSS.
SUBTRACT EPF IT FROM GROSS GIVING NET.
MOVE I-NAME TO L-NAME1.
MOVE ENO TO L-ENO.
MOVE BASIC TO L-BASIC1.
MOVE DA TO L-DA1.
MOVE HRA TO L-HRA1.
MOVE EPF TO L-PF1.
MOVE IT TO L-IT1.
MOVE GROSS TO L-GROSS.
MOVE NET TO L-NET.
WRITE PRNT-REC FROM PRNT-DATA1
AFTER ADVANCING 1 LINE.
2000-READ-INPUT.
READ INPUT-FILE INTO INPUT-DATA
AT END MOVE 1 TO EOF-I.
//GO.SYSOUT DD SYSOUT=*
//GO.SYSPRINT DD SYSOUT=*
//GO.INPUT DD *
KAVI 1230500002000300020001000
ARUN 5672400002500200010001000
BRIN 9014300001500200010001500
DEVI 3458200003000250010002000
//GO.PRNT DD SYSOUT=*

Modifying exec parameters

//MYJOB JOB 1,NOTIFY=KC03H09
//MYPROC PROC
//STEP1 EXEC PGM=IEFBR14,TIME=10
//DD1 DD DSN=KC03H09.Y110.Y0,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(5,2,1))
//SYSPRINT DD SYSOUT=*
// PEND
//STEP2 EXEC PROC=MYPROC,TIME.STEP1=20
//SYSIN DD DUMMY

Modifying dd parameters

//MYJOB JOB 1,NOTIFY=KC03H09
//MYPROC PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H09.ZZ0.ZZ0,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(5,2,1))
//SYSPRINT DD SYSOUT=*
// PEND
//STEP2 EXEC PROC=MYPROC
//STEP2 EXEC PROC=MYPROC
//STEP1.DD1 DD DSN=KC03H09.ZZ0.ZZ0,
// DISP=(OLD,DELETE,DELETE)
//SYSIN DD DUMMY

COBOL program to simulate the Banking details.

//MYJOB JOB 1,'MAHA'
//STEP1 EXEC IGYWCLG
IDENTIFICATION DIVISION.
PROGRAM-ID. LAB1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE ASSIGN TO DA-S-INPUT.
SELECT PRNT-FILE ASSIGN TO UR-S-PRNT.
EJECT
DATA DIVISION.
SKIP3
FILE SECTION.
FD INPUT-FILE
BLOCK CONTAINS 0 RECORDS
LABEL RECORDS ARE STANDARD.
01 INPUT-REC PIC X(80).
SKIP2
FD PRNT-FILE
LABEL RECORDS ARE OMITTED.
01 PRNT-REC PIC X(125).
WORKING-STORAGE SECTION.
01 INPUT-DATA.
03 NAME1 PIC X(5).
03 NO1 PIC 9(4).
03 BAL PIC 9(4).
03 DEP PIC 9(4).
03 WID PIC 9(4).
03 TOT PIC 9(4).
03 FILLER PIC X(21).
01 PRNT-DATA1.
03 FILLER PIC X(5) VALUE SPACES.
03 L-NAME1 PIC X(5).
03 FILLER PIC X(5) VALUE SPACES.
03 L-NO1 PIC 9(4).
03 FILLER PIC X(3) VALUE SPACES.
03 L-BAL PIC 9(4).
03 FILLER PIC X(4) VALUE SPACES.
03 L-DEP PIC 9(4).
03 FILLER PIC X(4) VALUE SPACES.
03 L-WID PIC 9(4).
03 FILLER PIC X(4) VALUE SPACES.
03 L-TOT PIC 9(4).
03 FILLER PIC X(4) VALUE SPACES.
01 PRNT-HEADING1.
03 FILLER PIC X(5) VALUE SPACES.
03 FILLER PIC X(5) VALUE 'NAME'.
03 FILLER PIC X(5) VALUE SPACES.
03 FILLER PIC X(4) VALUE 'ACNO'.
03 FILLER PIC X(4) VALUE SPACES.
03 FILLER PIC X(4) VALUE 'BAL'.
03 FILLER PIC X(4) VALUE SPACES.
03 FILLER PIC X(4) VALUE 'DEP'.
03 FILLER PIC X(4) VALUE SPACES.
03 FILLER PIC X(4) VALUE 'WID'.
03 FILLER PIC X(4) VALUE SPACES.
03 FILLER PIC X(4) VALUE 'TOT'.
01 MISC.
03 EOF-I PIC 9 VALUE 0.
PROCEDURE DIVISION.
MAINLINE.
OPEN INPUT INPUT-FILE
OUTPUT PRNT-FILE.
PERFORM READ-INPUT.
PERFORM PRINT-HEAD.
PERFORM LOOP1
UNTIL EOF-I = 1.
CLOSE INPUT-FILE
PRNT-FILE.
STOP RUN.
PRINT-HEAD.
WRITE PRNT-REC FROM PRNT-HEADING1
AFTER ADVANCING PAGE.
MOVE SPACES TO PRNT-REC.
WRITE PRNT-REC
AFTER ADVANCING 1 LINE.
LOOP1.
PERFORM PRINT-NAMES.
PERFORM READ-INPUT.
PRINT-NAMES.
ADD BAL , DEP GIVING TOT.
SUBTRACT TOT FROM WID GIVING TOT.
MOVE NAME1 TO L-NAME1.
MOVE NO1 TO L-NO1.
MOVE BAL TO L-BAL.
MOVE DEP TO L-DEP.
MOVE WID TO L-WID.
MOVE TOT TO L-TOT.
WRITE PRNT-REC FROM PRNT-DATA1
AFTER ADVANCING 1 LINE.
READ-INPUT.
READ INPUT-FILE INTO INPUT-DATA
AT END MOVE 1 TO EOF-I.
//GO.SYSOUT DD SYSOUT=*
//GO.SYSPRINT DD SYSOUT=*
//GO.INPUT DD *
ANU 123 600011601161
BALA 567 800011801181
CEMA 901 700011701171
//GO.PRNT DD SYSOUT=*

COBOL program to manipulate the student details.

//MYJOB JOB 1,'MAHA'
//STEP1 EXEC IGYWCLG
IDENTIFICATION DIVISION.
PROGRAM-ID. LAB1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE ASSIGN TO DA-S-INPUT.
SELECT PRNT-FILE ASSIGN TO UR-S-PRNT.
EJECT
DATA DIVISION.
SKIP3
FILE SECTION.
FD INPUT-FILE
BLOCK CONTAINS 0 RECORDS
LABEL RECORDS ARE STANDARD.
01 INPUT-REC PIC X(80).
SKIP2
FD PRNT-FILE
LABEL RECORDS ARE OMITTED.
01 PRNT-REC PIC X(125).
WORKING-STORAGE SECTION.
01 INPUT-DATA.
03 I-NAME PIC X(5).
03 REG PIC 9(4).
03 MARK1 PIC 9(2).
03 MARK2 PIC 9(2).
03 MARK3 PIC 9(2).
03 TOT PIC 9(3).
03 AVG PIC 9(3).9(2).
03 FILLER PIC X(21).
01 PRNT-DATA1.
03 FILLER PIC X(5) VALUE SPACES.
03 L-NAME1 PIC X(5).
03 FILLER PIC X(5) VALUE SPACES.
03 L-REG PIC 9(4).
03 FILLER PIC X(3) VALUE SPACES.
03 L-MARK1 PIC 9(2).
03 FILLER PIC X(3) VALUE SPACES.
03 L-MARK2 PIC 9(2).
03 FILLER PIC X(3) VALUE SPACES.
03 L-MARK3 PIC 9(2).
03 FILLER PIC X(4) VALUE SPACES.
03 L-TOT PIC 9(3).
03 FILLER PIC X(4) VALUE SPACES.
03 L-AVG PIC 9(3).9(2).
01 PRNT-HEADING1.
03 FILLER PIC X(5) VALUE SPACES.
03 FILLER PIC X(5) VALUE 'NAME'.
03 FILLER PIC X(5) VALUE SPACES.
03 FILLER PIC X(4) VALUE 'REG'.
03 FILLER PIC X(3) VALUE SPACES.
03 FILLER PIC X(2) VALUE 'M1'.
03 FILLER PIC X(3) VALUE SPACES.
03 FILLER PIC X(2) VALUE 'M2'.
03 FILLER PIC X(3) VALUE SPACES.
03 FILLER PIC X(2) VALUE 'M3'.
03 FILLER PIC X(4) VALUE SPACES.
03 FILLER PIC X(3) VALUE 'TOT'.
03 FILLER PIC X(4) VALUE SPACES.
03 FILLER PIC X(3) VALUE 'AVG'.
01 MISC.
03 EOF-I PIC 9 VALUE 0.
PROCEDURE DIVISION.
MAINLINE.
OPEN INPUT INPUT-FILE
OUTPUT PRNT-FILE.
PERFORM READ-INPUT.
PERFORM PRINT-HEAD.
PERFORM LOOP1
UNTIL EOF-I = 1.
CLOSE INPUT-FILE
PRNT-FILE.
STOP RUN.
PRINT-HEAD.
WRITE PRNT-REC FROM PRNT-HEADING1
AFTER ADVANCING PAGE.
MOVE SPACES TO PRNT-REC.
WRITE PRNT-REC
AFTER ADVANCING 1 LINE.
LOOP1.
PERFORM PRINT-NAMES.
PERFORM READ-INPUT.
PRINT-NAMES.
ADD MARK1,MARK2,MARK3 GIVING TOT.
DIVIDE TOT BY 3 GIVING AVG.
MOVE I-NAME TO L-NAME1.
MOVE REG TO L-REG.
MOVE MARK1 TO L-MARK1.
MOVE MARK2 TO L-MARK2.
MOVE MARK3 TO L-MARK3.
MOVE TOT TO L-TOT.
MOVE AVG TO L-AVG.
WRITE PRNT-REC FROM PRNT-DATA1
AFTER ADVANCING 1 LINE.
READ-INPUT.
READ INPUT-FILE INTO INPUT-DATA
AT END MOVE 1 TO EOF-I.
//GO.SYSOUT DD SYSOUT=*
//GO.SYSPRINT DD SYSOUT=*
//GO.INPUT DD *
ANU 123 909090
BALA 567 808080
CEMA 901 707070
DEVI 345 606060
//GO.PRNT DD SYSOUT=*

COBOL program to display the input data by using file.

//MYJOB JOB 1,'MAHA',MSGLEVEL=(1,1),REGION=0M,
// NOTIFY=KC03H11,MSGCLASS=A,CLASS=A
//STEP1 EXEC IGYWCLG
IDENTIFICATION DIVISION.
PROGRAM-ID. LAB1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE ASSIGN TO DA-S-INPUT.
SELECT PRNT-FILE ASSIGN TO UR-S-PRNT.
EJECT
DATA DIVISION.
FILE SECTION.
FD INPUT-FILE
LABEL RECORDS ARE STANDARD.
01 INPUT-REC PIC X(80).
FD PRNT-FILE
LABEL RECORDS ARE OMITTED.
01 PRNT-REC PIC X(125).
WORKING-STORAGE SECTION.
01 INPUT-DATA.
03 I-NAME PIC X(20).
01 PRNT-DATA1.
03 O-NAME PIC X(20).
01 MISC.
03 EOF-I PIC 9 VALUE 0.
PROCEDURE DIVISION.
PARA1.
OPEN INPUT INPUT-FILE
OUTPUT PRNT-FILE.
PERFORM READ-INPUT.
PERFORM LOOP1
UNTIL EOF-I = 1.
CLOSE INPUT-FILE
PRNT-FILE.
STOP RUN.
LOOP1.
PERFORM PRINT-NAMES.
PERFORM READ-INPUT.
PRINT-NAMES.
MOVE I-NAME TO O-NAME.
WRITE PRNT-REC FROM PRNT-DATA1
AFTER ADVANCING 1 LINE.
READ-INPUT.
READ INPUT-FILE INTO INPUT-DATA
AT END MOVE 1 TO EOF-I.
//GO.SYSOUT DD SYSOUT=*
//GO.SYSPRINT DD SYSOUT=*
//GO.INPUT DD *
NAME
......
CEMA
ANU
//GO.PRNT DD SYSOUT=*

Nullify

//MYJOB JOB 1,NOTIFY=KC03H09
//MYPROC PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H09.Y14.Y04,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(5,2,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSPRINT DD SYSOUT=*
// PEND
//STEP2 EXEC PROC=MYPROC
//STEP1.DD1 DD DCB=(RECFM=,LRECL=,BLKSIZE=)
//SYSIN DD DUMMY

Adding DD parameters

//MYJOB JOB 1,NOTIFY=KC03H11
//MYPROC PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H09.ZYX.ZYX,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(5,2,1))
// PEND
//STEP2 EXEC PROC=MYPROC
//STEP1.DD1 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*

Sequencing Multiple changes

//JOB1 JOB 1,'MAHA'
//MYPROC PROC
//STEP1 EXEC PGM=IEFBR14,TIME=10
//DD1 DD DSN=KC03H09.M202.M4,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(5,2,0)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSPRINT DD SYSOUT=*
// PEND
//STEP3 EXEC MYPROC,TIME.STEP1=20
//STEP1.DD1 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=6400)
//SYSIN DD *

Override Parameters

//JOB1 JOB 1,'MAHA'
//MYPROC PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H09.M67.M7,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(5,2,0)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSPRINT DD SYSOUT=*
// PEND
//STEP3 EXEC MYPROC
//STEP1.DD1 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=6400)
//SYSIN DD *

IEBGENER

//MYJOB JOB
//MYPROC PROC
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=KC03H09.T.SEQ
//SYSUT2 DD DISP=SHR,DSN=KC03H09.GM.SEQ
// PEND
//STEP1 EXEC MYPROC
//SYSIN DD *

IEBEDIT

//MYJOB JOB
//MYPROC PROC
//STEP1 EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=KC03H09.$MARIST$.LIBRARY(AREA)
//SYSUT2 DD DISP=SHR,DSN=KC03H09.$MARIST$.LIBRARY(LAB)
// PEND
//STEP1 EXEC MYPROC
//SYSIN DD *

IDCAMS

//IDCAMS JOB
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD1 DD DSN=KC03H09.$MARIST$.LIBRARY(AREA),DISP=SHR
//SYSIN DD *
PRINT -
INFILE ( DD1 ) -
CHAR
/*

IEBUPDATE

//IEBUPDTE EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DISP=(NEW,CATLG),DSN=KC03H11.NEW22.PDS,
// SPACE=(CYL,(5,5,5),RLSE),
// RECFM=FB,LRECL=80,BLKSIZE=0
//SYSIN DD *
./ ADD NAME=MEMBER1
HAI
./ ADD NAME=MEMBER2
WELCOME

IEBCOMPR

//MYJOB JOB
//MYPROC PROC
//STEP1 EXEC PGM=IEBCOMPR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=KC03H09.$MARIST$.LIBRARY(LAB)
//SYSUT2 DD DISP=SHR,DSN=KC03H09.$MARIST$.LIBRARY(LAB2)
// PEND
//STEP1 EXEC MYPROC
//SYSIN DD *

IEBPTPCH Utility

//IEBPTPCH JOB
// EXEC PGM=IEBPTPCH
//SYSUT1 DD DSN=KC03H09.$MARIST$.LIBRARY(AREA),DISP=SHR
//SYSUT2 DD DSN=KC03H09.$MARIST$.LIBRARY(LAB2),DISP=SHR
//SYSIN DD *
PRINT TYPORG=PS
/*
//SYSPRINT DD SYSOUT=*
//

to concatenate two Datasets.

//JOB1 JOB
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=KC03H09.$MARIST$.LIBRARY(AREA),DISP=SHR
// DD DSN=KC03H09.$MARIST$.LIBRARY(LAB),DISP=SHR
//SYSUT2 DD DSN=KC03H09.$MARI$.LIBRARY(MEM),DISP=SHR
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*

to implement the Nested Procedures

//JOB1 JOB
//PROC1 PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H11.X0.Y0,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
// PEND
//PROC2 PROC
//STEP2 EXEC PROC1
//STEP3 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H11.X0.Y0,DISP=(OLD,DELETE,DELETE)
// PEND
//STEP4 EXEC PROC2

to invoke the Catalog procedure.

CAT 1

//CAT1 PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H09.Z1.Z1,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//SYSPRINT DD SYSOUT=*

cat 2

//MYJOB JOB 1,'MAHA',CLASS=A
// JCLLIB ORDER=(KC03H09.$MARI$.LIBRARY)
//STEP2 EXEC CAT1
//SYSIN DD *

to copy the members in one PDS to another PDS using IEBCOPY.

//MYJOB JOB
//MYPROC PROC
//STEP1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=KC03H09.$MARIST$.LIBRARY(AREA)
//SYSUT2 DD DISP=SHR,DSN=KC03H09.$MARI$.LIBRARY(MEM)
// PEND
//STEP1 EXEC MYPROC
//SYSIN DD *

Compare two Dataset Using Procedure

//MYJOB JOB
//MYPROC PROC
//STEP1 EXEC PGM=IEBCOMPR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=KC03H09.$MARIST$.LIBRARY(AREA)
//SYSUT2 DD DISP=SHR,DSN=KC03H09.$MARIST$.LIBRARY(LAB)
// PEND
//STEP1 EXEC MYPROC
//SYSIN DD *

block letters

//DISP1 JOB 1,'MAHA',
// MSGLEVEL=(1,1),
// REGION=512K,
// NOTIFY=KC03H11,MSGCLASS=A,CLASS=A
//PROC1 PROC
//STEP1 EXEC PGM=GENCHAR,
// PARM='RULES'
//GENFILE DD DSNAME=&&ONE,SPACE=(TRK,1),UNIT=SYSDA,DISP=(NEW,PASS)
//ALPHA DD DSNAME=TSOEFFF.STUDENT.BIGTYPE.JCL,DISP=SHR
//STEPLIB DD DSNAME=TSOEFFF.STUDENT.LOADLIB.JCL,DISP=SHR
//SYSPRINT DD SYSOUT=*
//STEP2 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSNAME=&&ONE,DISP=(SHR,PASS)
//SYSUT2 DD SYSOUT=*
//SYSIN DD DSNAME=TSOEFFF.STUDENT.SYSIN.JCL,DISP=SHR
// PEND
//STEP1 EXEC PROC1,REGION=512K
//STEP1.GENFILE DD SPACE=(TRK,2)

prime

//MYJOB JOB 1,'MCA'
//STEP1 EXEC IGYWCLG
IDENTIFICATION DIVISION.
PROGRAM-ID. PRIME.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 N PIC 9(2) VALUE 12.
77 Q PIC 9(3).
77 R PIC 9(3).
77 I PIC 9(3).
PROCEDURE DIVISION.
PARA-A.
DISPLAY "ENTER AN INTEGER:".
PERFORM PARA2 VARYING I FROM 2 BY 1 UNTIL I > N.
STOP RUN.
PARA2.
DIVIDE N BY I GIVING Q REMAINDER R.
IF R = 0
DISPLAY "NOT PRIME"
STOP RUN.
ELSE
DISPLAY "PRIME".
STOP RUN.
//GO.SYSOUT DD SYSOUT=*
//GO.SYSPRINT DD SYSOUT=*
//GO.INPUT DD *
//GO.PRNT DD SYSOUT=*

Sorting Using Procedure1

//MYJOB JOB 1
//MYPROC PROC
//MYSORT EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=&SORTDSN
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
//STEP1 EXEC MYPROC,SORTDSN=KC03H09.$MARI$.LIBRARY(MEM)
//SYSIN DD *
SORT FIELDS=(1,3,CH,A)

Sorting Using Procedure

//MYJOB JOB 1
//MYPROC PROC
//MYSORT EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=&SORTDSN
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
//STEP1 EXEC MYPROC,SORTDSN=KC03H11.MAHA1.SORT1
//SYSIN DD *
SORT FIELDS=(1,3,CH,A)

Alternate Index

//MYJOB JOB 1,'MAHA'
//KSDCRTS1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER (NAME (KC03H11.DATA.ALTKSD) -
TRACKS (45 15) -
RECORDSIZE (512 512) -
FREESPACE (10 15) -
KEYS (12 0) -
INDEXED) -
DATA (NAME (KC03H11.DATA.ALTKSD.DAT) -
CISZ (8192)) -
INDEX (NAME (KC03H11.DATA.ALTKSD.IDX))
/*

Repro command

//REPRO1 JOB 1
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SOURCE DD DSN=KC03H09.$MARIST$.LIBRARY(AREA),
// DISP=OLD
//TARGET DD DSN=KC03H09.$MARIST$.LIBRARY(LAB),
// DISP=OLD
//SYSIN DD *
REPRO -
INFILE(SOURCE) -
OUTFILE(TARGET)
/*

print

//JOB1 JOB
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DD1 DD DSN=KC03H09.$MARIST$.LIBRARY(AREA),DISP=SHR
//SYSIN DD *
PRINT -
INFILE(DD1) CHAR
/*
//

model

//KC03H09 JOB
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO -
INDATASET(KC03H09.$MARIST$.LIBRARY(AREA)) -
OUTDATASET(KC03H09.$MARIST$.LIBRARY(LAB))
/*
//

RRDS

//RRDS JOB 1
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER -
(NAME(KC03H09.RDS2.CLUSTER) -
VOLUMES(VSAM02) -
CYLINDERS(200) -
CONTROLINTERVALSIZE(4096) -
RECORDSIZE(50,50) -
NUMBERED)
/*
//

esds

//ESDS JOB 1
// EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER -
(NAME(KC03H09.ESS1.CLUSTER) -
VOLUMES(VSAM02) -
CYLINDERS(2,1) -
CONTROLINTERVALSIZE(4096) -
RECORDSIZE(50,50) -
NONINDEXED)
/*
//

KSDS

//KSDS JOB 1
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER -
(NAME(KC03H09.KSDS3.CLUSTER) -
VOLUMES(VSAM02) -
CYLINDERS(2,1) -
CONTROLINTERVALSIZE(4096) -
KEYS(9,0) -
RECORDSIZE(50,50)) -
DATA -
(NAME(KC03H09.KSDS3.DATA)) -
INDEX -
(NAME(KC03H09.KSDS3.INDEX) -
CONTROLINTERVALSIZE(1024))
/*
//

Create dataset Using procedure

//CRT1 JOB 1
//MYPROC PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=&CREATE1,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//SYPRINT DD SYSOUT=*
// PEND
//STEP2 EXEC MYPROC,CREATE1=KC03H09.MA5.SORT5
//SYSIN DD *


//DEL1 JOB 1
//MYPROC PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H09.M7.M7,DISP=(OLD,DELETE,DELETE)
//SYPRINT DD SYSOUT=*
// PEND
//STEP2 EXEC MYPROC
//SYSIN DD *

Backward Reference (DSN parameter)

//JOB1 JOB 1,'MAHA'
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSNAME=KC03H09.MK.CC5,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(5,2,0))
//STEP2 EXEC PGM=IEFBR14
//DD2 DD DSNAME=*.STEP1.DD1
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY

Backward Reference (DCB parameter)

//JOB1 JOB 1,'MAHA'
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H09.MK9.C,DISP=(NEW,CATLG),
// SPACE=(TRK,(10,2,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//STEP2 EXEC PGM=IEFBR14
//DD2 DD DSN=KC03H09.MK9.C1,DISP=(NEW,CATLG),
// SPACE=(TRK,(1,1,0)),
// DCB=*.STEP1.DD1

Backward Reference (VOL parameter)

//JOB1 JOB 1,'MAHA'
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSNAME=KC03H09.MAH7.PDS,VOL=SER=PACK12,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(5,2,0))
//STEP2 EXEC PGM=IEFBR14
//DD2 DD DSNAME=KC03H09.MAH8.PDS,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(1,0,0)),VOL=REF=*.STEP1.DD1
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY

Backward Reference (PGM parameter)

//JOB1 JOB 1,'MAHA'
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H09.MAHA6.PDS,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(5,2,0))
//STEP2 EXEC PGM=*.STEP1.DD1
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY

1 s New

import java.io.*;
import java.net.*;

class client
{
public static void main(String arr[]) throws Exception
{
Socket sc=new Socket("localhost",1090);
PrintStream ps=new PrintStream(sc.getOutputStream());
String str=" ", str1=" ";

System.out.print("\n******Client *****\n");



Socket sc1=new Socket("localhost",1055);
PrintStream ps1=new PrintStream(sc1.getOutputStream());

while(true)
{
BufferedReader br=new BufferedReader(new InputStreamReader(System.in));
System.out.print("\nEnter any Number as value of A : ");
str=br.readLine();
ps.println(str);
System.out.println("\nA is send to Server1");


//Socket sc1=new Socket("localhost",1055);
//PrintStream ps1=new PrintStream(sc1.getOutputStream());
BufferedReader br1=new BufferedReader(new InputStreamReader(sc1.getInputStream()));
System.out.print("\nEnter any Number as value of B : ");
str1=br.readLine();
ps1.println(str1);
System.out.println("\nB is send to Server2");

System.out.println("\nValue of A + B 2's Complement is :");

str=br1.readLine();
System.out.print(str);
}
}
}


import java.io.*;
import java.net.*;

class server1
{
public int twoComp( int i)
{
String by = Integer.toBinaryString(i);
int l=by.length();
l=l-1;
String s="";
while(l>=0)
{
if (by.charAt(l)=='0')
s=s+"1";
else if (by.charAt(l) == '1')
s=s+"0";
l--;
}
s = new StringBuffer(s).reverse().toString();
System.out.println("\n" + i +" Binary is " + by + " 1's complement is "+s);

l=s.length();
l=l-1;
String c="1";
String rs="";
while(l>=0)
{
if(s.charAt(l)=='0' && c.equals("0"))
{
rs=rs+"0";
c="0";
}
else if(s.charAt(l)=='0'&& c.equals("1") )
{
rs=rs+"1";
c="0";
}
else if(s.charAt(l)=='1' && c.equals("0") )
{
rs=rs+"1";
c="0";
}
else if(s.charAt(l)=='1' && c.equals("1") )
{
rs=rs+"0";
c="1";
}
l--;
}
rs = new StringBuffer(rs).reverse().toString();

String no="";
l = rs.length();
int j = 0;

for (int k = 0; k < l; k++)
{
no=""+rs.charAt(k);
j = j + Integer.parseInt(no) * pow(2, (rs.length() - k-1));
}
System.out.println("\nAnd 2's comp is "+ rs + " And its Decimal is " + j );
return j;
}
public int pow(int a,int b)
{
int res=1;
while(b>0)
{
res=res*2;
b--;
}
return res;

}


public static void main(String arr[]) throws Exception
{
ServerSocket ss=new ServerSocket(1090);
Socket sc=ss.accept();
PrintStream ps=new PrintStream(sc.getOutputStream());
String str=" ";
int k=7;
server1 obj=new server1();
//BufferedReader br=new BufferedReader(new InputStreamReader(sc.getInputStream()));
//ServerSocket ss1=new ServerSocket(1056);

System.out.print("\n******Server--1*****\n");

ServerSocket ss1=new ServerSocket(1056);
Socket sc1=ss1.accept();
PrintStream ps1=new PrintStream(sc1.getOutputStream());

while(true)
{
BufferedReader br=new BufferedReader(new InputStreamReader(sc.getInputStream()));
str=br.readLine();
int i=Integer.parseInt(str);
System.out.println("A data received from Client is : " + i);

int j=obj.twoComp( i);

//ServerSocket ss1=new ServerSocket(1056);
//Socket sc1=ss1.accept();
//PrintStream ps1=new PrintStream(sc1.getOutputStream());
ps1.println(j);
System.out.println("\nA 2's complement is sent to server 2") ;
}

}
}

import java.io.*;
import java.net.*;

class server2
{
public static void main(String arr[]) throws Exception
{
ServerSocket ss=new ServerSocket(1055);
Socket sc=ss.accept();
PrintStream ps=new PrintStream(sc.getOutputStream());
String str=" ",str2=" ",str3="";
int i=0,k=0,l=0, cn=7;
long j=0;
System.out.println("*******Server--2********\n");

Socket sc1=new Socket("localhost",1056);

while(true)
{
BufferedReader br=new BufferedReader(new InputStreamReader(sc.getInputStream()));
str=br.readLine();
i=Integer.parseInt(str);
System.out.println("\nB received from Client is =" + i);


BufferedReader br1=new BufferedReader(new InputStreamReader(sc1.getInputStream()));
str2=br1.readLine();
k=Integer.parseInt(str2);
System.out.println("\nA 2's complement received from server is=" + k);

l=i+k;

System.out.println("\nAs 2's + B result send to Client "+l);
ps.println(l);
}

}
}