| Other COBOL Interview Questions |
| |
| Question | Asked @ | Answers |
| |
| Re: 01 NAME1 PIC X(13) VALUE "COBOL PROGRAMMING". 01 NAME2
PIC X(13). now I want to display the value of NAME1 in
reverse order i.e value should be displayed as "GNIMMARGORP
LOBOC" HOW can I do that ??? please let me know if any one
knows it. | IBM | 2 |
| What will happen if we try to create GDG (+2) generaton
instead of (+1) generation? | | 1 |
| What will happen if we move SPACES to numeric field and
ZEROES to alphabetic field? | T-systems | 7 |
| OCCURS clause is used in the DATA DIVISION on data names at
(a) 01 level
(b) 77 level
(c) 88 level
(d) any level from 02 to 49
| TCS | 8 |
| What R 2 of the common forms of the EVALUATE STATEMENT ? | Cap-Gemini | 1 |
| A LESS 1200 IF B GREATER 25 MOVE 47 TOC
ELSE MOVE 57 TO C
IF A GREATER 249 MOVE 67 TO C
ELSE NEXT SENTENCE ELSE IF B LESS 67
MOVE 27 TO C
What will be the value of C, when A is 137 and b is 25
| TCS | 2 |
| How to delete a front spaces in a data-name/variable in
cobol
Example:-
01 data-name-1 PIC x(20) value " cobol language".
01 data-name-2 PIC x(20).
MOVE data-name-1 to data-name-2.
would like the value of data-name-2 is "cobol language". | | 2 |
| how to change picture class of copy book variable inside
program? | | 2 |
| 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.
| IBM | 6 |
| What is the difference between SEARCH and SEARCH ALL? | Cognizent | 5 |
| i have the following varibles in the working storage
05 ws-A PIC X(30)
VALUE 'ABCDEFGHIJKLMNOPQRESTUVWXYZ '
05 WS-B REDEFINES WS-A
10 WS-B1 PIC X(10).
10 WS-B2 PIC 9(10).
10 WS-B3 PIC X(10).
If I Display B1, B2 and B3 respectively, what is the value
displayed in B2
| | 7 |
| How to pass return codes from cobol to jcl? | | 3 |
| Minimum how many Number of Paragraphs are there in ID-
Divison? | IBM | 6 |
| What is SSRANGE, NOSSRANGE ? | | 4 |
| What does the INITIALIZE verb do? | | 1 |
| The following entries appear in the WORKING-STORAGE SECTION:
01 DATE-TODAY.
05 YY PIC XX VALUE "90".
05 MM PIC XX VALUE "12".
05 DD PIC XX VALUE :31".
01 DATE-EDIT PIC XX/XX/XX.
MOVE DATE-TODAY TO DATE-EDIT.
(a) 901231
(b) 90/12/31
(c) 31/12/90
(d) 311290
| TCS | 3 |
| How do we get current date from system with century? | | 2 |
| consider the following two statements
MOVE 10 TO N
PERFORM PARA-X N TIMES
STOP RUN
PARA-X
MOVE 5 TO N
how many times PARA-X willbe exicuted?
a.10
b.5
c.infinate
d.execution error
| TCS | 3 |
| What is a scope terminator? Give examples. | | 1 |
| Describe the difference between subscripting and indexing ? | | 2 |
| |
| For more COBOL Interview Questions Click Here |
To Refer this Site to Your Friends 
Site Map
