Answer / g.naveen

18 is Maximum Data length for Numeric Data Type.

Answer / shekh

BY USING COMPILER OPTION MATH, IT WILL INCREASE THE VARIABLE CAPACITY UP TO 31 DIGITS.

Answer / muttaiah

The default is 18..which means the compiler option will be
Arith(compat)..
If you change the compiler option to Arith(extend) you can
use max 31 digits..
This is one of the famous interview question now a days.
Say i want to declare a variable with PIC 9(20) is it
possible?
People who doesn't know Arith(extend) compiler option they
will say it's not possible to declare a variable with PIC 9
(20) keeping 18 digits in mind. This is how it is.

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,

---

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

1 Answers   HCL,

---

Is it possible that the redefines clause has different picture clauses compared to the one it redefined?

0 Answers  

---

What R 2 of the common forms of the EVALUATE STATEMENT ?

1 Answers   Cap Gemini,

---

what is soc7 abend?how u can trace it?

4 Answers   Accenture,

---

How many times the loop runs here 01 a pic 9(2) value 1. perform para1 until a=10 move 1 to a. stop run. para1: move 10 to a.

5 Answers  

---

What the difference is between continue and next sentence?

0 Answers  

---

How do you define a table/array in COBOL?

5 Answers   Hexaware,

---

Hi All, how is sign is stored in S9(17) comp-3 variable. Answer with an Example will be of great help.

5 Answers   EDS,

---

wht do u mean by (*,intrdr) wht is * used for ?

2 Answers  

---

can any one help -s806

6 Answers  

---

what is difference between cobol and cobol/400

1 Answers   HCL,

---