what is qualification on occurs clause?
Answers were Sorted based on User's Feedback
Answer / kanika
Occurs clause is used in case of table ,when one number is
used many times as in case of array.
Is This Answer Correct ? | 4 Yes | 0 No |
Answer / reshma
If a data-name with the occurs clause requires any
qualification by its higher level, the subscripts to be
written after the last qualified name. For ex,
01 INCOME-TAX-RATE
02 TAX-RATE PIC 99 OCCURS 10 TIMES.
if TAX-RATE should be qualified, it must appear as TAX-RATE
OF INCOME-TAX-RATE(I) and not as TAX-RATE(I) OF INCOME-TAX-
RATE
Is This Answer Correct ? | 4 Yes | 1 No |
i have two file one is ksds another one is esds i want store matching records in flat file how to you matching.
A paragraph PARA-X is to be executed when none of the data names A, B and C have value of 1. Which of the following will achieve this ? (a) IF A NOT = 1 OR B NOT = 1 OR C NOT = 1 PERFORM PARA-X (B) IF NOT A= 1 AND B= 1 AND C = 1 PERFORM PARA-X (C) IF A NOT =1 IF NOT B = 1 OR C= 1 PERFORM PARA-X (C) IF A NOT = 1 AND B NOT = 1 AND C NOT = 1 PERFORM PARA-X
how the control comes back from subprogram to mainprogram
Explain what you understand by passing by value.
What are options have been removed in COBOL 11?
if you give cylinder(1,1)how many cylinders it will be allocate?
What do you feel makes a good program?
What is rmode(any) ?
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.
What is a report item?
I want ALL jcl ERROR cods
what is the purpose of linkage section?