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 *