Answer Posted / seetha

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. COBS.
000300 ENVIRONMENT DIVISION.
000400 INPUT-OUTPUT SECTION.
000500 FILE-CONTROL.
000600 SELECT INP-FILE ASSIGN TO DD1
000700 ORGANIZATION IS SEQUENTIAL
000800 ACCESS SEQUENTIAL.
000900 SELECT INP1-FILE ASSIGN TO DD2
001000 ORGANIZATION IS SEQUENTIAL
001100 ACCESS SEQUENTIAL.
001110 SELECT INP2-FILE ASSIGN TO DD3.
001120 SELECT INP3-FILE ASSIGN TO DD4.
001200 DATA DIVISION.
001300 FILE SECTION.
001400 FD INP-FILE.
001500 01 INP-REC.
001600 02 INP-EC PIC 9(4).
001700 02 F PIC X(1).
001800 02 INP-EN PIC X(4).
001900 02 F PIC X(71).
002000 FD INP1-FILE.
002100 01 INP1-REC.
002200 02 INP1-EC PIC 9(4).
002300 02 F PIC X(76).
002310 FD INP2-FILE.
002320 01 INP2-REC.
002330 02 INP2-EC PIC 9(4).
002340 02 F PIC X(1).
002350 02 INP2-EN PIC X(4).
002360 02 F PIC X(71).
002370 FD INP3-FILE.
002380 01 INP3-REC.
002390 02 INP3-EC PIC 9(4).
002391 02 F PIC X(1).
002392 02 INP3-EN PIC X(4).
002393 02 F PIC X(71).
002400 WORKING-STORAGE SECTION.
002410 77 FLAG PIC X(1) VALUE 'N'.
002500 77 EC PIC 9(4).
002600 77 EN PIC X(4).
002700 77 EF PIC X(1) VALUE 'N'.
002800 77 EF1 PIC X(1) VALUE 'N'.
002900 01 WS-REC.
003000 02 WS-ARR OCCURS 5 TIMES.
003100 06 ARRC PIC X(4).
003200 06 ARRN PIC X(4).
003300 01 WS-REC2.
003400 02 WS-ARR2 OCCURS 10 TIMES.
003500 06 ARRC2 PIC X(4).
003600 77 I PIC 9(1) VALUE 1.
003700 77 K PIC 9(2) VALUE 01.
003800 PROCEDURE DIVISION.
003900 100-MAIN-1.
004000 OPEN INPUT INP-FILE.
004100 OPEN INPUT INP1-FILE.
004110 OPEN OUTPUT INP2-FILE.
004120 OPEN OUTPUT INP3-FILE.
004200 INITIALIZE INP-REC INP1-REC INP2-REC
INP3-REC.
004300 PERFORM 100-IP-1 UNTIL EF = 'Y'
004400 PERFORM 200-IP-2 UNTIL EF1 = 'Y'
004500 PERFORM 300-DUMMY
004600 PERFORM 400-PROCESS-RTN
004700 STOP RUN.
004800 100-IP-1.
004900 READ INP-FILE AT END MOVE 'Y' TO EF
005000 CLOSE INP-FILE
005100 NOT AT END
005200 MOVE INP-EC TO ARRC(I)
005300 MOVE INP-EN TO ARRN(I)
005400 ADD 1 TO I
005500 END-READ.
005600 200-IP-2.
005700 READ INP1-FILE AT END MOVE 'Y' TO EF1
005800 CLOSE INP1-FILE
005900 NOT AT END
006000 MOVE INP1-EC TO ARRC2(K)
006100 ADD 1 TO K
006200 END-READ.
006300 300-DUMMY.
006400 DISPLAY WS-REC.
006500 DISPLAY WS-REC2.
006600 400-PROCESS-RTN.
006700 MOVE 1 TO I.
006800 MOVE 1 TO K.
006900 PERFORM VARYING I FROM 1 BY 1 UNTIL I >
5
007000 PERFORM VARYING K FROM 1 BY 1 UNTIL K >
10 OR FLAG = 'Y'
007100 IF ARRC(I) = ARRC2(K)
007200 MOVE WS-ARR(I) TO INP2-REC
007201 DISPLAY "INP2"
007210 WRITE INP2-REC
007220 MOVE 'Y' TO FLAG
007500 END-IF
007600 END-PERFORM
007610 IF FLAG NOT = 'Y'
007620 MOVE WS-ARR(I) TO INP3-REC
007630 WRITE INP3-REC
007650 END-IF
007660 MOVE 'N' TO FLAG
007700 END-PERFORM.

Explain the function of a dd statement?

665

---

how you can direct the data to spool using SYSOUT option?

931

---

Explain how can an in-stream dataset be terminated?

704

---

Explain how can the attributes of one sms dataset be copied to another dataset?

709

---

How to submit a jcl from cics?

670

---

---

Does jcl support automatic restart?

768

---

What parameter of the job statement is used to limit the cpu time consumed by the job?

845

---

How does jcl act on code(if you take a cobol program)?

713

---

How to code these statements in JCL: CLEANUP INITIAL(NO) RESTART(NO) DYNALLOC(NO) job definition..?

1805

---

Explain the function of job statement in jcl?

655

---

Hello Guys, I have 1+ Year Experience in MAINFRAME TESTING. After 1 Week I have an Interview With a Company on Mainframe Testing. Please Could You Guys Please Suggest me What Sections Should I prepare ?? ___Tell Me the Topic Or Appropriate Site & Links. ?? ---------------Thank You

2269

---

Can anybody tell what is tool used to generate the list of PROCS used in JCL to generate a PROCTREE

1972

---

Can I share my data with other jobs? How?

672

---

What statement marks the beginning of an in-stream or cataloged procedure in jcl and assigns default values to parameters defined in the procedure?

820

---

What do you understand by jcl?

632

---