we can use set true for condition names..
similarly can we code set to false in cobol pgm?
will it work?
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.
| Is This Answer Correct ? | 8 Yes | 9 No |
In a COBOL program, 2 tables TABLE1 and TABLE2 are defined that are indexed by INDEX1 and INDEX2 respectively. Can we use INDEX1 with TABLE2 and INDEX2 with TABLE1?
Consider the following: 77 W-NUM PIC 9 VALUE 0 ------ MOVE 1 TO W-NUM PERFORM PARA-X UNTIL W-NUM > 9. ------ PARA-X ADD 1 TO W-NUM How many times PARA-X is executed ?
what is the meaning of pic 9(09)v99-
In COBOL CALL-CALLING,if a program A is calling 3 sub- programs, dynamically, then it is said sub-programs will always will always in Initial Mode. My question is : Do we need to code CANCEL or (IS INITIAL) for dynamically called sub-programs or it is the property of Dynamically called pgms so every time sub-pgms are called they will be in initial mode. ***This question is only Dynamic call****, Please reply. Thank you in advance.
What is the difference between working storage copybook and linkage section copybook?
CAN ANY ONE HELP WHAT IS QTP? why it is nessery AND WEN IT IS USED?
Write the code to count the sum of n natural numbers.
What are the cobol coding sheets?
what is record label is empty or standard in file description of data division?
I HAVE FOLLOWING DECLARATION. 02. A PIC X(10) VALUE 'XXXXXXXXXX'. 02. B REDEFINES A. 05. C PIC X(3). 05. D PIC X(3). 05. E PIC 9(3). IN MY PROG, I HAVE MOVE 1 TO E. DISPLAY A. WHAT WILL BE DISPLAYED AS A RESULT OF THIS? PLEASE EXPLAIN THE ANSWER. THANKS.
What are the rules of the move verb?
what is label record is standard or omitted in file description of data division?