we can use set true for condition names..
similarly can we code set to false in cobol pgm?
will it work?
Answer Posted / 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 |
Post New Answer View All Answers
how do you reference the ksds vsam file formats from cobol programs
How do you define a variable of comp-1 and comp-2?
How to remove 2 duplicate records and copy only one using job control language?
Name some of the examples of COBOl 11?
Describe the cobol database components?
i made it to stage 3 of an interview process wednessday they will quiz my knowledge again face to face for an analyst role recruiter said it will be based on Business requirements system is cobol and good ideas what they might ask etc
How many bytes S(8) comp field occupy and its maximum value?
What is amode(24)?
How are the next sentence and continue different from each other?
What rules are to be followed while using the corresponding options?
What is a scope terminator give example?
input 1 input2 ouput1 output2 output 3 1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200 2 rr 400 1 re 300 2 rr 400 1 rc 400 3 rc 500 1 rc 400 2 rr 700 2 rr 700 5 tt 900 5 tt 900 2 inputs r in flat file and output 1 is matched records,ouptput2 is unmatched of input1,output3 is unmatched of input2! how vl u get the output files using sequential order and to check with each and every records! let me know the procedure division ?
How to traceback if I am getting SOC7 or SOC4 abend? List down the steps
how to access the file from prodution from changeman tool and to submit a file to production
what is amode(24), amode(31), rmode(24) and rmode(any)?