Answer / ramana

go to sysdump there you can find the 8bytes offset
address,,copy that offset,,,go to the expanded version of
your program,,paste the offset adress there,,,
then it will show the exact line where the abend occurs,,

correct me if iam wrong

Answer / ray davis

SOC4 is a boundary violation (trying to access memory not
allocated to your program. SOC7 is trying use a numeric
field which isn't numeric. Then you do as the previous
post describes and dig though the dump to find out what and
where the problem is.

Answer / charanya

Either we can try to find using the offset value as the
previous poster suggested and the other way is we can use
DISPLAY in programs to rectify the Soc7 error.

how many bytes does a s9(12)COMP-4 field occupy?? a.2 b.4 c.8 d.1 ans with reason please

2 Answers  

---

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 do we cast a variable in COBOL

1 Answers   HSBC,

---

01 a pic 9(3) value is 123 01 b pic 9(6) move a to b wht will be the value ? and 01 a pic x(6) value is abc 01 b pic x(3) move a to b wht will be the value ?

7 Answers   Patni,

---

how many bytes do SPPPP999 will store?

18 Answers  

---

i want to learn mainframes. i completed MCA ,whats the future of mainframes

5 Answers  

---

what is label record is standard or omitted in file description of data division?

3 Answers   IBM, TCS,

---

What is the default value of DISP parameter?

3 Answers   IBM,

---

PERFORM ACCUMULATE-TOTALS VARYING A FROM 1 BY 2 UNTIL A >2 AFTER B FROM1 BY 1 UNTIL B>2 AFTER C FROM 2 BY -1 UNTIL C<2 How many times the paragraph ACCUMULATE-TOTALS would be exicuted?

5 Answers   TCS,

---

How To Separate The Numerics From An Alphanumric Data Item Which Contains Both Alphabates And Numerics ?

4 Answers  

---

Explain about Redefines cluse?

3 Answers   iGate,

---

How to read the last 100 records from a COBOL file. The file contains N number of records.

11 Answers   IBM,

---