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
I have File 1 occurs 5 times with Employee-ID,Employee-Name,Employee-Dept (EEE and MECH). I have File 2 occurs 10 times with Employee-ID,Employee-Name,Employee-Dept (EEE,CIVIL,CHEMICAL and MECH). In FIle 1 and FIle 2 , for matching Employee-DEPT (Only MECH) , we need to move entire records from file1 to file 2. We should not use 2D array. Your help is needed here.
How to get the last record in vsam file in cluster? And how can you get the kids file records into your cobol program?
What is cobol?
How to know whether the module is dynamical or statistical?
if we display var1 then what will b displayed in below condition. 77 var1 pic s9(2) value -10. 77 var1 pic s9(2) value -11. " " " -12. " " " -13. -14 ... ... -19.
How to remove 2 duplicate records and copy only one using job control language?
What are the pertinent COBOL
Mention the guidelines to write a structured cobol program?
What is the difference between binary search and sequential search?
example for sub strings ? and refernce modifications whit output pls
How to get the last record in vsam file in cluster? And how can you get the ksds file records into your cobol program?
How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?
how to access the file from prodution from changeman tool and to submit a file to production
if we have " ibm mainframe ",in that how to remove first and last leading space eg:"ibm mainframe" like that the answer we need
) How do u handle errors in BMS macro