Answer / sushant kumar mohanty

1) PARM (Receive in Linkage Section)
2) SYSIN DD* (Receive with ACCEPT statement)
3) Files ( Declare/Define/Open in the program)

Answer / naidu

You can pass the values to cobol program using 3 ways:
1.passing the parameters from SYSIN
2.using parm
3.using file

Can we use goto statement in inline_perform ?

5 Answers   IBM,

---

What do you do to resolve SOC-7 error?

2 Answers   Sun Life, Wipro,

---

Extract only those records from a PS file which are having word 'TEXT' in the records using COBOL? The word TEXT is not present in a particular position in all the records.

2 Answers   RBS,

---

A LESS 1200 IF B GREATER 25 MOVE 47 TOC ELSE MOVE 57 TO C IF A GREATER 249 MOVE 67 TO C ELSE NEXT SENTENCE ELSE IF B LESS 67 MOVE 27 TO C What will be the value of C, when A is 137 and b is 25

3 Answers   TCS,

---

01 NAME1 PIC X(13) VALUE "COBOL PROGRAMMING". 01 NAME2 PIC X(13). now I want to display the value of NAME1 in reverse order i.e value should be displayed as "GNIMMARGORP LOBOC" HOW can I do that ??? please let me know if any one knows it.

11 Answers   FirstApex, NIIT,

---

in cobol main pgm is calling sub pgm but sub pgm does not exists , what abend i get if submit the job?

2 Answers   HSBC,

---

if you give cylinder(1,1)how many cylinders it will be allocate?

3 Answers   Hewitt,

---

Can we redefine the field of x(200) to less than 200?

0 Answers  

---

Study the DATA DIVISION entries and the three PROCEDURE DIVISION entries given below: 01 END-OF-FILE-SWITCH PIC XXX. 88 NO-MORE-RECS VALUE "YES". 88 MORE-RECS VALUE "NO". (i) READ SAMPLE-FILE AT END MOVE "YES" TO NO-MORE-RECS. (ii) IF NO-MORE-RECS = "YES" GO TO LAST-PARA. (iii) IF NO-MORE-RECS GO TO LAST-PARA. Which are wrong? (a) (i) and (ii) (b) (ii) and (iii) (c) (i) and (iii) (d) all

5 Answers   TCS,

---

When can the USING phrase be included in the call statement ?

2 Answers  

---

which one is the best of com and com-3.using of real time ?

7 Answers   Cap Gemini,

---

record length in spool?

2 Answers   Infosys,

---