COBOL Question Paper 3 1. The following is a DATA DIVISION entry. 77 A PIC X(10) VALUE IS AABBCCDDEE.

Indicate which of the following is true if the PROCEDURE DIVISION contains the following statement. INSPECT A REPLACING ALL ABC BY XYZ. (a) (b) (c) (d) (e) The INSPECT statement is incorrect because A does not contain the group of characters ABC in a continuous sequence. The INSPECT statement is incorrect as it can be used to replace a numeric literal by another numeric literal. The INSPECT statement is incorrect as it can be used to replace a single character by another single character but not a group of characters. The INSPECT statement is incorrect as TALLYING option is missing. The INSPECT statement is correct but no replacement will take place as the characters of ABC do not appear in A in consecutive positions.

2. Indicate whether the following are true or false. (a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) The STRING verb is used to split one string into many substrings. The UNSTRING verb is used to transfer data from several sources to one receiving field. The STRING verb can be used to transfer characters from one alphanumeric field to another alphanumeric field starting at some particular position in the receiving field. If certain positions of the receiving field in a STRING statement do not receive any character from the sending fields the these positions will retain the original characters. If the DELIMITED BY SIZE phrase is used with STRING verb, the transfer of characters into the receiving field stops as soon as a blank character is encountered in the sending field. If the OVERFLOW option is not used in a STRING statement and the overflow condition occurs the STRING operation is terminated. Individual characters in a field can be changed by the EXAMINE statement. The INSPECT statement can be used to check whether the value in a data name is numeric. The INSPECT statement can be used to tally occurrences of a particular character in a data item. In an UNSTRING statement a receiving field receives the characters of the sending field including the delimiter. In an UNSTRING statement if a receiving field with PICTURE X(6) receives only two characters from the sending field the remaining four positions will retain their original characters.

3. The following is a PROCEDURE DIVISION statement. UNSTRING DATA-FIELD DELIMITED BY , INTO FIELD-1 FIELD-2 FIELD-3 FIELD-4 TALLYING IN CNT-1. Indicate which of the following will be true after the execution of the above statement. (a) CNT-1 will contain the total number of characters received by all the receiving fields together.

(b) (c) (d) (e)

The value of CNT-1 will be equal to the number of receiving fields acted upon. The value of CNT-1 will be increased by the number of receiving fields acted upon. CNT-1 will be increased by the number of characters received by the receiving fields. None of the above.

4. The following is a PROCEDURE DIVISION statement. UNSTRING ABC INTO FIELD-1. Indicate which of the following is correct with respect to the above statement. (a) (b) (c) (d) There will be a syntax error as the statement does not contain any DELIMITED BY phrase. There will be a syntax error as the sending string must be an identifier and not a literal. The statement is correct and after the execution of the statement,FIELD-1 will contain the three characters ABC from the left most position and the remaining positions of FIELD-1 will remain unchanged. The statement is correct and after the execution of the statement.FIELD-1 will contain the three characters ABC from the left-most position and the remaining positions of FIELD-1 will get filled with spaces.

5. The following is a PROCEDURE DIVISION statement. UNSTRING DATA-FIELD DELIMITED BY ,,OR / INTO FIELD-1, FIELD-2, FIELD-3, FIELD-4 WITH POINTER P1 TALLYING IN CNT-1 ON OVERFLOW GO TO PARA-1. Indicate which of the following will be true if while executing the above statement it encountered two contiguous delimiters after sending a few characters in FIELD-1. (a) A run-time error will occur. (b) The control will be transferred to PARA-1. (c) The first delimiter will terminate the transfer of data to the FIELD-1 and the second delimiter will cause the filling of FIELD-2 with blanks. (d) Two delimiters together will be considered as a single delimiter and this will terminate the transfer of data to the FIELD-1 and FIELD-2 will be filled with remaining characters from DATA-FIELD until either another delimiter is encountered or FIELD-2 is full. (e) None of the above. 6. Consider the PROCEDURE DIVISION statement of the previous exercise. Indicate which of the following is not connected with the occurrence of the overflow condition. (a) The value of P1 is less than 1. (b) The value of CNT-1 Is less than 1. (c) The value of P1 is greater than the size of the DATA-FIELD. (d) All receiving areas are full and DATA-FIELD still contains characters that have not been transferred. 7. WHAT WILL BE THE VALUE OF X AFTER THE FOLLOWING STATEMENT IS EXECUTED? COMPUTE X = 4+6/2*3**2 A) 4.33 B ) 31 C) 4

8. CONSIDER THE FOLLOWING STATEMENTS. WHAT WILL BE WRITTEN TO THE OUTPUT FILE WHEN THE LAST WRITE STATEMENT IS EXECUTED. FD OUT-REC. A. OUTPUT-RECORD. 05 FIELD1 PIC X(4). 05 FIELD2 PIC X(7). PROCEDURE DIVISION. MOVE BILL TO FIELD1. MOVE COMPANY TO FIELD2. WRITE OUTPUT-RECORD. MOVE JIM TO FIELD1. WRITE OUTPUT-RECORD. A) JIM FOLLOWED BY LOW-VALUES B) COMPILATION ERROR C) JIM FOLLOWED BY SPACES. 9. WHAT WILL BE THE VALUE OF FIELD1 AND FIELD2 AFTER THE FOLLOWING STATEMENT IS EXECUTED. WORKING-STORAGE SECTION. 77 FIELD1 PIC 9(2)V9. 77 FIELD2 PIC 9V9. PROCEDURE DIVISION. . DIVIDE 5 BY 4 GIVING FIELD1 REMAINDER FIELD2. A) 1.0, 1.0 B) 1.2 , 0.2 C)1.2 , 1.0

10. WHICH STATEMENT IS CORRECT. LINKAGE SECTION. A. PARM-REC. 05 PARM-LENGTH PIC S9(5) COMP-3. 05 FIELD1 PIC X(8). A) PARM-LENGTH SHOULD BE S9(4) COMP. B) COMPILATION ERROR WILL OCCUR C) PARM-LENGTH SHOULD BE S9(8) COMP. D) NOTHING WRONG WITH THE STATEMENT. 11. CONSIDER A PARM ABCDEFGHIJKL IS PASSED FROM THE JCL. WHAT WILL BE THE VALUE OF PARM-LENGTH. LINKAGE SECTION. A. PARM-REC. 05 PARM-LENGTH PIC S9(4) COMP. 05 FIELD1 PIC X(8). 05 FIELD2 PIC X(4).

A) 8

B) 12

C) 4

D) 0

12. WHICH STATEMENT IS CORRECT. FD INFILE EXTERNAL. A. INREC. I. THE CALLED PROGRAM CAN OPEN AND READ THE DATA FROM INFILE WITHOUT DEFINING IT. II. THE INFILE SHOULD BE OPENED IN CALLING PROGRAM AND THE SAME FILE CAN BE REFERENCED IN CALLED PROGRAM. 13. WHAT WILL BE DISPLAYED WHEN THE FOLLOWING STATEMENT IS EXECUTED. WORKING-STORAGE SECTION. 77 FIELD1 PIC S9(5) COMP-3. PROCEDURE DIVISION. MOVE -12345 TO FIELD1. DISPLAY FIELD1. A) 12345 B) 12345N C)12345D)NONE OF THE ABOVE

8) HOW MANY TIMES WILL THE PARA-1 BE EXECUTED. MOVE 1 TO I. PERFORM PARA-1 UNTIL I > 6. .. PARA-1. ADD 1 TO I. A) 6 9) B) 5 C) INFINITE

WHICH OF THE FOLLOWING FILES ARE VARIABLE BLOCK FILES. FD FILE1. LABEL RECORDS ARE STANDARD. 1 INFILE1 PIC X(80). FD FILE2. RECORDING MODE IS V. 01 INFILE2 PIC X(100). FD FILE3. 01 INFILE3A 01 INFILE3B PIC X(80). PIC X(100). B) FILE2 AND FILE3 C) FILE1 AND FILE3 D) ONLY

A) FILE1 AND FILE2 FILE2

10)

WHICH ONE WILL EXECUTE THE FASTEST ? WORKING-STORAGE SECTION. 77 FIELD1 PIC S9(5) COMP. 77 FIELD2 PIC S9(9) COMP-3. 77 FIELD3 PIC S9(9) COMP. 77 FIELD4 PIC S9(5) COMP-3.

A) C) 11)

MOVE FIELD1 TO FIELD2 MOVE FIELD2 TO FIELD3

B) D)

MOVE FIELD1 TO FIELD3 MOVE FIELD2 TO FIELD4

WHAT WILL BE VALUE OF FIELD2 ? WORKING-STORAGE SECTION. 77 FIELD1 PIC 9(8). 77 FIELD2 PIC 9(6) . PROCEDURE DIVISION. MOVE 12345678 TO FIELD1. MOVE FIELD1 (3: ) TO FIELD2. A) 123456 ABOVE B) 345678 C) COMPILATION ERROR D) NONE OF THE

12)

WHICH STATEMENT IS CORRECT. WORKING-STORAGE SECTION. 77 FIELD1 PIC 9(8). 77 FIELD2 PIC 999(2)V99 . 77 FIELD3 PIC 9(2). PROCEDURE DIVISION. MOVE 00012345 TO FIELD1 MOVE FIELD1 TO FIELD2. MOVE FIELD2 TO FIELD3. A) FIELD3 WILL CONTAIN 45. B) COMPILATION ERROR - MOVE IS INVALID

13)

WHAT WILL BE THE VALUE OF FIELD1. WORKING-STORAGE SECTION. 77 FIELD1 PIC 9(2) VALUE ZEROES. PROCEDURE DIVISION. PERFORM PARA1 VARYING I FROM 1 BY 2 UNTIL I > 3 AFTER J FROM 2 BY 1 UNTIL J > 5 AFTER K FROM 3 BY 3 UNTIL K > 9. PARA-1. ADD 1 TO FIELD1. .

A) 12 14.

B) 24

C) 48

D)NONE OF THESE

WHAT WILL BE THE VALUE OF FIELD2. WORKING-STORAGE SECTION. 77 FIELD1 PIC S9(8) COMP-3. 77 FIELD2 PIC 9. PROCEDURE DIVISION. MOVE 55555555 TO FIELD1. MOVE FIELD1 TO FIELD2

A) 5 15.

B) 55555555

C) NONE OF THESE

D) COMPILATION ERROR

HOW MUCH STORAGE BYTES WILL BE TAKEN BY FIELD1. WORKING-STORAGE SECTION. 01 FIELD1. 05 A PIC X(4). 05 B PIC X(4). 05 C PIC X(6). 05 D REDEFINES C . 10 D1 PIC X(6). A) 12 B) 14 C)20 D) NONE OF THESE

16. HOW MUCH STORAGE BYTES WILL BE TAKEN BY FIELD1. WORKING-STORAGE SECTION. 01 FIELD1 PIC S9(3) COMP-3. A) 4 B) 3 C) 2 D) NONE OF THESE

17. HOW MUCH STORAGE BYTES WILL BE TAKEN BY FIELD1. WORKING-STORAGE SECTION. 01 FIELD1 PIC S9(11) COMP. A) 4 18. B) 8 C) 2 D) 11 WHICH STATEMENT WILL REPRESENT THE THIRD ENTRY OF THE TABLE. WORKING-STORAGE SECTION. 01 TABLEA. 05 A OCCURS 10 TIMES INDEXED BY INDEX1. A) SET INDEX1 TO 3. B) MOVE 3 TO INDEX1.

19. WHICH OF THE FOLLOWING MOVE STATEMENTS ARE VALID. WORKING-STORAGE SECTION. 77 SUB PIC 9 (2) VALUE ZEROES. 77 FIELD1 PIC 9(2). 01 TABLE. 05 A OCCURS 5 TIMES INDEXED BY INDEX1 10 B OCCURS 5 TIMES INDEXED BY INDEX2. 15 C OCCURS 5 TIMES INDEXED BY INDEX3 PIC 9(2). A) MOVE TABLE (INDEX1 , SUB+2 , INDEX3) TO FIELD1. B) MOVE TABLE (INDEX1 , INDEX2 +1 , INDEX3) TO FIELD1. C) MOVE TABLE (SUB , SUB+2 , SUB+3) TO FIELD1. D) MOVE TABLE (INDEX1 , INDEX2) TO FIELD1. 20. WHICH STATEMENT IS CORRECT. WORKING-STORAGE SECTION. 01 TABLE. 05 A OCCURS 16999 TIMES INDEXED BY INDEX1 PIC 9(3). A) TABLE HAS 16999 ENTRIES. B) COMPILATION ERROR AS THE TABLE EXCEEDS THE MAXIMUM LIMIT. 21. WHICH STATEMENT IS CORRECT. A) GOBACK USED IN MAIN PROGRAM WILL RETURN TO THE SYSTEM AND THE EXIT-PROGRAM USED IN CALLED PROGRAM WILL RETURN TO THE CALLED PROGRAM. B) GOBACK MUST BE USED ONLY IN THE MAIN PROGRAM C) EXIT-PROGRAM CAN ALSO BE USED IN THE MAIN PROGRAM D) THERE IS NEVER A DIFFERENCE BETWEEN GOBACK AND EXIT-PROGRAM . 22. WHICH STATEMENT IS CORRECT. PROCEDURE DIVISION. PERFORM 5 TIMES PERFORM PARA-1. .. END-PERFORM. PARA-1. DISPLAY HELLO. A) ANOTHER PERFORM PARA CANNOT APPEAR WITHIN AN INLINE PERFORM B) COMPILATION ERROR WOULD OCCUR C) NOTHING WRONG IN THE STATEMENTS 23. WHICH OF THE FOLLOWING STATEMENTS WILL BE TRUE WHEN THE FIELD1 IS LESS THAN 0D AND NOT TRUE WHEN THE FIELD2 IS GREATER THAN 0C.

A) B) C) D)

IF FIELD1 IS NEGATIVE IF FIELD1 < 0 AND FIELD2 < 0 IF FIELD1 < 0 AND FIELD2 = 0 NONE OF THESE

24. WHICH IS NOT A VALID FUNCTION IN COBOL 370? A) B) C) D) FUNCTION SUM FUNCTION INTEGER-OF-DAY FUNCTION DAY-OF-INTEGER FUNCTION MULTIPLY

MULTIPLY IS NOT A VALID INTRINSIC FUNCTION. 25. WHICH STATEMENT IS CORRECT. 10 20 30 40 IF ( (A = 3) OR (A IS LESS THAN B OR C) OR (A > 5))

A) THE STATEMENT WILL MEAN THE SAME IF THE PARENTHESIS IN LINE NO 10 AND 40 ARE REMOVED. B) THE STATEMENT WILL MEAN THE SAME IF ALL THE PARENTHESIS ARE REMOVED. 26 . WHICH OF THE FOLLOWING STATEMENTS ARE CORRECT. PROCEDURE DIVISION. MOVE 123 TO FIELD1. IF FIELD1 IS NUMERIC DISPLAY HELLO END-IF. PERFORM PARA1. A) THERE IS NO MATCHING ELSE FOR THE IF. SO COMPILATION ERROR WILL OCCUR. B) END-IF IS NOT REQUIRED. COMPILATION ERROR WILL OCCUR. C) NO WRONG WITH THE ABOVE STATEMENTS WHAT WILL BE THE VALUE OF FIELD1. WORKING-STORAGE SECTION. 77 A PIC 9. 77 FIELD1 PIC 9 VALUE ZEROS. PROCEDURE DIVISION. MOVE 6 TO A. IF A > 5 GOTO PARA-1. END-IF

PARA-1. ADD 1 TO FIELD1. PARA-2. ADD 1 TO FIELD1. PARA-EXIT. STOP RUN. A) 0 27. B) 1 C) 2 C) 3 D) NONE OF THESE

WHICH STATEMENTS WILL BE EXECUTED FAST ? A) MOVE 3 TO SUB MOVE TABLE(SUB) TO FIELD1. B) SET INDEX1 TO 3. MOVE TABLE(INDEX1) TO FIELD1. C) MOVE TABLE (3) TO FIELD1.

28. WHICH OF THE FOLLOWING STATEMENTS ARE TRUE. A) A COPY STATEMENT CANNOT APPEAR WITHIN ANOTHER COPY STATEMENT. B) COPY STATEMENT CAN BE GIVEN IN DATA DIVISION OR PROCEDURE DIVISION. C) COPY STATEMENT CAN APPEAR ANYWHERE IN THE SOURCE PROGRAM. 29 . WHICH PAIR OF COMPILER OPTIONS WILL TAKE LONG TIME ? A) B) C) D) E) XREF, LIST, OPT MAP,TRUNC(BIN),DYNAM XREF, OFFSET, DYNAM LIST, OFFSET,XREF XREF,OFFSET,NOCOMPILE

30. WHICH STATEMENT IS CORRECT. A) TEST COMPILER OPTION IS USED TO DO SYNTAX CHECKING B) THERE IS NO SUCH COMPILER OPTION C) TEST OPTION IS USED TO PRODUCE OBJECT CODE THAT ENABLES DEBUG TOOL. 31. WHICH STATEMENT IS CORRECT WORKING-STORAGE SECTION. 77 FIELD1 PIC 999. A) USING TRUNC(OPT) OPTION, THE VALUE MOVED WILL BE BASED ON THE PICTURE DEFINITION OF THE VARIABLE. B) USING TRUNC(STD) OPTION, THE VALUE MOVED WILL BE BASED ON THE PICTURE DEFINITION OF THE VARIABLE.

C) USING TRUNC(BIN) OPTION, THE VALUE MOVED WILL BE BASED ON THE PICTURE DEFINITION OF THE VARIABLE. D) NONE OF THE ABOVE 32. WHICH COMPILER OPTION GENERATES LISTING OF SOURCE PROGRAM. A) LIST 33. B) SOURCE C) RENT D) OPTIMIZE

WHICH OF THE FOLLOWING STATEMENTS ARE TRUE ? CONSIDER THE FOLLOWING STMTS IN PROGRAM-A. WORKING-STORAGE SECTION. 01 A PIC X(1000). 01 B PIC X(500). 01 C PIC X(1000). CALL PROGAM-B USING A,C,B CONSIDER THE FOLLOWING STMTS IN PROGRAM-B. LINKAGE SECTION. 01 PARM-REC. 05 PARM-LEN PIC S9(4) COMP. 05 A PIC X(1000). 05 B PIC X(1000). 05 C PIC X(500). A) THE ACTUAL DATA WILL NOT BE PASSED AND TRUNCATION OF 500 BYTES WILL OCCUR IN VARIABLE B. B) NO ERROR WITH THE PROGRAM.

34.

WHAT WILL HAPPEN WHEN THE FOLLOWING STATEMENT IS EXECUTED ? WORKING-STORAGE SECTION. 01 FIELD1 PIC X(2). 01 TABLE. 5 A OCCURS 5 TIMES PIC X(2). PROCEDURE DIVISION. MOVE TABLE(6) TO FIELD1. A) FIELD1 WILL CONTAIN LOW VALUES B) COMPILATION ERROR WILL OCCUR

35.

WHAT WILL BE THE FILE STATUS CODE VALUE WHEN THE FOLLOWING STATEMENT IS EXECUTED? ASSUME THE INPUT FILE INFILE HAS NO RECORDS. PROCEDURE DIVISION.

OPEN INPUT INFILE. READ INFILE. READ INFILE. A) FILE STATUS CODE WILL BE SET TO 10. B ) FILE STATUS CODE WILL BE SET ABOVE 40 C) ABEND 122 WILL OCCUR 36 . CONSIDER THE FOLLOWING STATEMENTS. WORKING-STORAGE SECTION. 01 WS-STATUS PIC X(1). 88 WS-STATUS-YES VALUE Y. 88 WS-STATUS-NO VALUE N. WHICH OF THE FOLLOWING STATEMENTS ARE VALID. A) EVALUATE WS-STATUS WHEN WS-STATUS-YES B) EVALUATE WS-STATUS-YES WHEN TRUE C) EVALUATE TRUE WHEN WS-STATUS = Y .. D) EVALUATE WS-SATUS WHEN TRUE .. 36. WHAT IS THE VALUE OF COUNTR WHEN THE FOLLOWING STATEMENT IS EXECUTED. WORKING-STORAGE SECTION 77 COUNTR PIC 9(2) VALUE 2. 77 TEXT PIC X(10) VALUE HELLO. PROCEDURE DIVISION. INSPECT TEXT TALLYING COUNTR FOR ALL L. A) 2 37. B) 3 C) 4 D) NONE OF THE ABOVE

WHICH OF THE FOLLOWING STATEMENTS ARE TRUE. PROCEDURE DIVISION. MOVE 1 TO COUNT. MAIN-PARA.

GOTO PARA1,PARA2,PARA3 DEPENDING ON COUNT. STOP RUN. PARA-1. DISPLAY HELLO ADD 1 TO COUNT GO TO MAIN-PARA. PARA-2 . DISPLAY WORLD ADD 2 TO COUNT GO TO MAIN-PARA. PARA-3. DISPLAY WELCOME ADD 1 TO COUNT. A) B) C) D) 38. THE PROGRAM WILL BE EXECUTED IN AN INFINITE LOOP. THE PROGRAM WILL NOT ABEND AND IT WILL END NORMALLY. THE PROGRAM WILL ABEND. COMPILATION ERROR WILL OCCUR CONSIDER THE FOLLOWING STATEMENTS. DATA DIVISION. FILE SECTION. FD INFILE. 01 INREC PIC X(80). WORKING-STORAGE SECTION. 77 WS-REC PIC X(80). PROCEDURE DIVISION. OPEN INPUT INFILE. READ INFILE. MOVE INREC TO WS-REC. READ INFILE INTO WS-REC. A) LINE 10 AND 20 PERFORM THE SAME FUNCTION AS LINE 30. B) LINE 30 IS MORE EFFICIENT THAN LINE 10 AND 20 C) LINE10 AND 20 ARE INVALID STATEMENTS. 39. CONSIDER THE FOLLOWING STATEMENTS. ARE THEY VALID WHEN C IS IN COL 72 OR - IN COL 7. A) B) C) DISPLAY GOD IS GREAT. DISPLAY GOD IS GREAT. DISPLAY GOD IS C C

10 20 30

GREAT. D) 40. DISPLAY GOD IS GREAT.

WHICH OF THE FOLLOWING STATEMENTS ARE TRUE. A) WHEN ASCENDING OPTION IS GIVEN FOR A PARTICULAR TABLE, THE ENTRIES ARE AUTOMATICALLY SORTED AS ENTERED. B) ASCENDING OPTION IS MUST FOR SEARCH ALL STATEMENT C) ASCENDING OPTION IS MUST FOR SEARCH STATEMENT D) NONE OF THE ABOVE STATEMENTS ARE VALID.