The following entries appear in the WORKING-STORAGE SECTION: 01 DATE-TODAY.

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

Question Posted / madhav

4 Answers
8340 Views
TCS, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

The following entries appear in the WORKING-STORAGE SECTION: 01 DATE-TODAY. 05 YY PIC XX VAL..

Answer / mftesh

Is This Answer Correct ?

8 Yes

2 No

The following entries appear in the WORKING-STORAGE SECTION: 01 DATE-TODAY. 05 YY PIC XX VAL..

Answer / sakthivel kannan

The answer is (a) only

Is This Answer Correct ?

3 Yes

1 No

The following entries appear in the WORKING-STORAGE SECTION: 01 DATE-TODAY. 05 YY PIC XX VAL..

Answer / varun v

Yes Answer should be (a). I tried the same...

Is This Answer Correct ?

2 Yes

1 No

The following entries appear in the WORKING-STORAGE SECTION: 01 DATE-TODAY. 05 YY PIC XX VAL..

Answer / shubham

Is This Answer Correct ?

0 Yes

0 No

Post New Answer

More COBOL Interview Questions

How you can characterize tables in cobol?

0 Answers

what is label record is standard or omitted in file description of data division?

3 Answers IBM, TCS,

What is the mode in which you will OPEN a file for writing?

4 Answers

if we have " ibm mainframe ",in that how to remove first and last leading space eg:"ibm mainframe" like that the answer we need

0 Answers

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.

8 Answers IBM,

How to read the last 100 records from a COBOL file. The file contains N number of records.

11 Answers IBM,

What are the pertinent COBOL

0 Answers IBM,

I have a file it contain 10 records.i got abend at 8th record because of soc7.how do you know that perticular record got abend?

3 Answers IBM,

What is amode(24)?

0 Answers

what do you mean by copybook? and what is the difference between the copybook which we are using in working storage and procedure division.

3 Answers HCL, TCS,

using redefine can you redefine lower variable size to higher variable size?

3 Answers Patni,

How we copy a program from production region to development region.What is the process & syntax ?

3 Answers CTS,

For more COBOL Interview Questions Click Here