Answer / shakilaashwin

you can use 'SET condition-name TO FALSE' but with little
change in the data item declaration

Example is below :

01 WS-EOF-FLAG PIC X(1)VALUE 'N'.
88 WS-EOF-FLAG-N VALUE 'N' WHEN SET FALSE 'Y'.

PROCEDURE DIVISON.
100-MAIN-PARA.
DISPLAY 'PROG STARTS'.
DISPLAY 'FLG VALUE AFTER - ' WS-EOF-FLAG.
SET WS-EOF-FLAG-N TO FALSE.
DISPLAY 'FLG VALUE BEFORE- ' WS-EOFFLAG.
STOP RUN.

IDENTIFICATION DIVISION. PROGRAM-ID. MOVEPGM. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-I PIC 9(2). PROCEDURE DIVISION. A1000-MAIN-PARA. PERFORM PARA-X WITH TEST BEFORE UNTIL WS-I= 5 STOP RUN. PARA-X. DISPLAY "BEST2". I m getting error s722,while executing the program, seems getting in loop, can anybody tell me why

3 Answers  

---

can u plz expain me how to declare dynamic array? what is the meaning of depending on clause in dynamic array?

3 Answers   IBM, Satyam,

---

wht is the difference between goto and perform stmts

7 Answers   DELL,

---

A table has two indexes defined. Which one will be used by the SEARCH?

0 Answers  

---

HELLO FRIENDS, THIS IS JANARDHAN.GADIRAJU, I FACED ONE INTERESTING QUESTION IN COBOL, THAT IS WHAT ARE THE VALUES WE CAN SEE IN HIGHVALUES AND LOWVALUES, CAN U PLEASE GIVE ME THE ANSWER

7 Answers   Patni,

---

hw to create 3 dimensional array & hw to access it?

1 Answers  

---

is it possible to declare index in cobol program? if it is not why its tell me pls

3 Answers  

---

01 a pic x(6) value is abcdef 01 b pic x(3) move a to b wht will be the value in b ?

3 Answers   Patni,

---

What will happen if we move SPACES to numeric field and ZEROES to alphabetic field?

2 Answers  

---

what is rediffine clause?in what situation it can use?give me real time example?

1 Answers   IBM,

---

diffrence between renames and redifnes with examples

3 Answers   IBM,

---

How can you get the ksds file records into your cobol program?

0 Answers  

---