Answer / mahathiaz

PERFORM ... <UNTIL> ...
<sentences>
END-PERFORM

Answer / saravanan

IN inline perform the procedure name is omited.an inline
perform must be delimited by the end peform statement

Answer / ravikiran

in inline perform the statements with in the loop does n't
contain a period '.'
inline perform does not contain any para.

perform until i > 4
display a
accept b
end-perfom.

Answer / manvitha

In-line perform is used to perform the repetitive tasks within a paragraph or section itself.

Perform
statements
end-perform

perform until condition
statements
end-perform
perform WITH TEST before/after until condition
statement
end-perform

What are the divisions in a cobol program? Which one is the mandatory division among them?

1 Answers  

---

I HAVE FOLLOWING DECLARATION. 02. A PIC X(10) VALUE 'XXXXXXXXXX'. 02. B REDEFINES A. 05. C PIC X(3). 05. D PIC X(3). 05. E PIC 9(3). IN MY PROG, I HAVE MOVE 1 TO E. DISPLAY A. WHAT WILL BE DISPLAYED AS A RESULT OF THIS? PLEASE EXPLAIN THE ANSWER. THANKS.

7 Answers   Amdocs,

---

How do we get current date from system with century in COBOL?

0 Answers   Winsol Solutions,

---

What is Control Break processing ?

1 Answers   iGate,

---

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,

---

Difference between cobol and cobol-ii?

0 Answers  

---

If by mistake we MOVE a working storage variable into LINKAGE area. What will happen??

4 Answers   Accenture,

---

What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?

0 Answers  

---

What is the difference between a binary search and a sequential search?

10 Answers  

---

In a program, there are 2 sections defined say SECTION-A and SECTION-B. There is a paragraph say CALC-INT in both the sections. If this para has to be called directly for SECTION-A, then PERFORM CALC-INT will not work as it is present in both sections. How the PERFORM statement has to be coded here?

5 Answers  

---

How to find whether a Flat file is empty or not without Reading a file in COBOL Program. (not using JCL)

9 Answers   Bank Of America,

---

i have mainprogram and subgram...if i compile mainprogram without stop run..what will u get in compilation time?

5 Answers   HCL,

---