Answer / sreedhar

Linkage section is a part of data division.
This can be coded in 2 situations
1) When we want to pass data from Jcl to COBOL program using parm parameter.
2) when mainprogram communicates with sub program then we code linkage section in sub program

I have PS flat file with 14 records. I want to read from 4th to 9th record and want to write those 6 records (4th record to 9th record) to another PS file (output file). there is no key defined in the input file. I just want read a certain Consecutive records. can any one please give me the procedure division Coding for this. I have coded the below coding but the READ-PARA is performing only 1 time even though I have 14 records in my input file (i.e FILE-1): PROCEDURE DIVISION. A000-SECTION. MOVE 0 TO I. OPEN INPUT FILE-1. IF CHECK-KEY1 > 0 DISPLAY "OPEN ERROR FOR FILE-1, CODE IS:" CHECK-KEY1 END-IF. OPEN EXTEND NEWFILE-1 IF CHECK-KEY3 > 0 DISPLAY "OPEN ERROR FOR NEWFILE-1 COD IS" CHECK-KEY3 END-IF. PERFORM READ-PARA THRU EXIT-PARA UNTIL EOF-REC = 'YES'. DISPLAY " FINALLY OUT OF LOOP" CLOSE FILE-1 CLOSE NEWFILE-1 STOP RUN. READ-PARA. ADD 1 TO I READ FILE-1 AT END MOVE 'YES' TO EOF-REC IF I > 3 AND < 10 PERFORM WRITE-PARA ELSE DISPLAY "NOT IN RANGE" END-IF. EXIT-PARA. EXIT. WRITE-PARA. WRITE NEW-REC FROM FILE1-REC.

8 Answers   IBM,

---

how many subpgms we can use in a main pgm ? how do u link sub pgm to main pgm ? how can i use the parameters declared in main pgm to sub pgm ?

2 Answers   TCS,

---

Explain how to differentiate call by context by comparing it to other calls?

0 Answers  

---

What is the default value of DISP parameter?

3 Answers   IBM,

---

hi. This is Ram.i have one doubt.why can't we display comp-3 variables directly? let me answer quickly plez........

1 Answers  

---

---

What are decleratives in COBOL ?

1 Answers   Xansa,

---

can we use full outer join with cursors declared in cobol program?

2 Answers  

---

In COBOL, what is the different between index and subscript?

0 Answers   TryTechnicals Pvt Ltd,

---

What are ISOLATION LEVELS? Where do we need to specify them?

3 Answers   EXL,

---

I have sequential file recl 1000 i want to add another 15 bytes to it. The record length should not change..How?

1 Answers   CTS, HCL,

---

What is the use of EVALUATE statement?

4 Answers   Tesco,

---

A s9(4). B v9(4) value 0.21 can i move this?

3 Answers  

---