Answer / santosh khot

Reference modification is retrieving or Modifying substring
of a string. if Reference modification has a negative value
then Abend Code is soc4, So be care full while using
reference modification
Syntex is Move String(First position, Length) to Var-1.

Answer / ts nithiyanandan

Reference modification is nothing but moving the part of
value of dataname to other dataname.

01 a pic 9(10).
01 b pic 9(10).

move a(4:5) to b.

i.e., moving from 4th byte to 9th byte to dataname b.
from 4th to 9th is length of 5 bytes.

how can you identify wheather the program is using search or search all in the cobol program?

5 Answers   iGate,

---

I have put two write operations in a single para for two different conditions.Will that lead to an abend or run successfully and write two records?

1 Answers   CTS,

---

Our issue is there seems to be a disconnect, or no link, between our SELECT statement and our SD. We had SELECT SORT-FILE and SELECT SORT-FILE ASSIGN TO SORTWRK. ASSIGN TO SORTWRK1 SORTWRK2 SORTWRK3 SORTWRK4. with SD SORT_FILE RECORD CONTAINS 7833 CHARACTERS. In either case, at run time, the system ignored our SORTWRK# DD statements and allocated 16 sort works with the SORTWK## naming convention. Any ideas why the system does not recognize the connection? We do not even need the SORTWRK DD statements. Thanks

0 Answers  

---

in cobol perform stmt whether it first checks the condition or not

9 Answers  

---

How is sign stored in a comp-3 field?

7 Answers  

---

waht is inspect verb? where it can be in real time?

1 Answers   Patni,

---

can i use multiple when statements in search & search all ? justify ur answer?

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,

---

Name the divisions in a COBOL program ?

7 Answers  

---

Difference between next and continue clause

4 Answers   Kanbay,

---

How many bytes do a s9 (7) comp-3 field occupy?

1 Answers  

---

i have two file, each file having : file1 is having 2 fields field1 field2 file2 is having 3 fields field1 field2 field3 my req is to make it one file like: field1 field2 field1 field2 field3 if anyone know please send me syntax, i tried this with DFSORT but could not succeed.

9 Answers   Syntel,

---