consider the following progrm statements
MOVE 0 TO SW.NO.OF.REC
PERFORM PRI-OUT UNTIL SW=1
DISPALY NO.OF.REC
STOP RUN
PRE-OUT
READ IN-FILE AT END
MOVE 1 TO SW
WRITE OUO-REC FROM IN-REC
ADD 1 TO NO.OF REC
if the IN-FILE contains 1000 records what value will be
displayedafter the
PERFORM is over?assume that N0.OF.REC has PIC 9(4)
a.1000
b.1001
c.1
d.none of the above since there is a syntex error
Answer Posted / satyaprem
the programmer need to pay attention to code ...syntax
error ..looks ans 1 but not true ...
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
What are all the divisions of a COBOL program?
How arrays can be defined in COBOL?
How do you reference the fixed block file formats from cobol programs
How you can characterize tables in cobol?
Can we redefine the field of x(200) to less than 200?
What do you understand by psb and acb?
write a cobol logic. i have file that has 10 records .1 record go to first output file and second record goes to 2 output and etc
How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array.
Why is it necessary that file needs to be opened in I-O mode for REWRITE?
Mention the guidelines to write a structured cobol program?
how to convert the recors form vsam file to db2 table tru file aid
How to use the same COBOL program in Batch and CICS on lines? explain with an example
Which is the default, TEST BEFORE or TEST AFTER for a PERFORM statement?
What are the different rules of SORT operation?
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