what is redefines? where it can be effectively use for the
purpose of memory utilization? give an example?
Answers were Sorted based on User's Feedback
Answer / siri
REDEFINES:-REUSE THE SPACE FROM FIRST BYTE ON WORDS....REDEFINES AND REDEFINING FIELDS MUST BE AT SAME LEVEL NOS..REDEFINING THE MEMORY MUST BE SAME OR SORTER...
FOR EXAMPLE 1000 BALLS IS THERE..EACH BALL CAST IS 10 RS/-...BUT I HAVE ONLY 10 RS/-...BUT I USE THE ALL 1000 BALLS HOW MEANS USING THE REDEFINES....
WORKING-STORAGE SECTION.
01 A PIC X(100) VALUES '******************************'
01 B REDEFINES A X(10)
Is This Answer Correct ? | 2 Yes | 0 No |
Answer / yuddam
01 a pic 9(6).
01 b redifine a pic 9(6).
01 c redifine a pic 9(6).
Is This Answer Correct ? | 1 Yes | 1 No |
Answer / suman
Redifine is a clause which reuses the existing storage space
1)redifine must be coded immediate after orginal dataname.
2)level no must be same as orginal data name.
3)level no should be 01-49.
4)data tpye length must be same.
ex:
01 a pic 9(6).
01 b redifine a pic 9(6).
01 c redifine b pic 9(6).
Is This Answer Correct ? | 4 Yes | 8 No |
is it mandatory to give data division before procedure division ? wht happens if i give procedure division first thn data division ? reply soon
which is better either static call or dynamic call? and why?
What happens in the background of spool when we submit a job for compilation and execution... This is a recent question in ibm...Kindly help me.....
which is faster either static call or dynamic call ? and specify the reasons for it ? reply fast
In COBOL, what is the different between index and subscript?
0 Answers TryTechnicals Pvt Ltd,
What is LENGTH in COBOL II?
What is SDSF?
What are the different data types in cobol?
Write a program that uses move corresponding.
How can we increase the size of an existing PDS to include more no. of modules.
What is the difference between CONTINUE & NEXT SENTENCE ?
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.