Consider the below example
call a-test1.
--
--
--
a-test1.
if a=b
perform a-test through a-exit
next sentence
else
if b=c
perform c-test through c-exit.
if a=d
perform d-test through d-exit.
a-test.
--
--
a-exit.
exit.
can u tell me what will happen if a=b
after looping into a-exit will the control go back to a-
test1.
will the condition a=d be checked???
- 5 Answers
- 8086 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / uday
if a=b the loop will be executed(a-test) and then control will
comeback to the loop.here next sentence is used thats why the
control is going to execute statements after end-if ,if any.
| Is This Answer Correct ? | 6 Yes | 0 No |
Hi,
If a=b then para a-test will be performed from a-test to
a-exit , once it will be completed the control will returns
back to perform statement at line number 7 then the next
sentence statement will be executed. when next sentence will
be executed the control will look for a period (.) if it
finds then it will execute just after line of the para. here
it is if a=d , So the control will check for the condition
a=d and if its true then will perform d-test through d-exit.
| Is This Answer Correct ? | 6 Yes | 1 No |
Answer / adarsha
NOP ! none of the above.. compiler Error !!!
When you are using NEXT SENTENCE or continue, their
shouldn't be any sentence/paragraph name or anything before
or after it with in that condition...
if a=b
NEXT SENTENCE
.
.
. should be the syntax ... perform a-test through a-exit
shouldn't be coded 1
hope it helps u !
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / khasim
compile error.
d-test and d-exit. not defined in Procedure division.
if we code the d-test and d-exit.
control goes to d-exit. not goback to a-test1.
after d-exit, it will go back.
| Is This Answer Correct ? | 1 Yes | 0 No |
what modification we need to do in jcl if we use sort in cobol? I mean whether we need to include tempary file used for sorting in assign statement?
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.
what is s000 u4087 error? please give the all error codes in cobol,jcl.
What are the different ways to run a COBOL DB2 program using JCL?
How many types of sorts are there in cobol?
how many subpgms we can use in a main pgm ? how do u link sub pgm to main pgm ? how can i use the parameters declared in main pgm to sub pgm ?
how do u link sub pgm to main pgm ?
I have files that contains both duplicates files(occur more than twice) and non-duplicate files.The file is already sorted by a key.I want to determine those records that are duplicate and will be move to a duplicate file and non- duplicate files to be move to a valid file.thank you.help please
please..could u give an example about USAGE IS POINTER ..and explain why and when we use it ?
How did the release of cobol/370 version 1.3 improve the performance of release 1.1?
I have two sequential files, FILE-1 and FILE-2. FILE-1 contains 2 columns(A,B) and FILE-2 contains 3 columns (C,D,E).I want an output file, FILE-3 which has all five columns with duplicates eliminated from column A.
The hierarchy of the execution of logical operators is (a) NOT AND OR (b) AND OR NOT (c) OR AND NOT (d) OR NOT AND
10 Answers Huawei, IBM, TCS,
COBOL 
