using redefine can you redefine lower variable size to
higher variable size?
Answers were Sorted based on User's Feedback
Answer / santosh mahajan
Yes. Redefines just causes both fields to start at the same
location. For example:-
01 WS-XYZ PIC X(1).
01 WS-XYZ-R REDEFINES WS-XYZ PIC(2).
MOVE 11 TO WS-XYZ-R
DISPLAY WS-XYZ will show 1
DISPLAY WS-XYZ-R will show 11
| Is This Answer Correct ? | 10 Yes | 2 No |
Answer / harikumr ch
Syn:Levelnumber dataname-1 redefines data-name-2
The data-name-1 & data-name-2 must be of same size.(From
level 02).Incase of 01 level, the size of data-name-1 must
not exceeds that of data-name-2.
| Is This Answer Correct ? | 0 Yes | 1 No |
How do you reference the fixed block file formats from cobol programs
i friends greetings to the day...!!! I face a quation like"while runnig the programe every day i have to access the previous day updates only...!! Ex:- Let last day 100 customers took bank account i have to select those customers only.."
I had 100 records and i want to execute last three records by using cobol programming?what will be coding?
Whtz the specialty of 77 level number ?
What is the use of LINKAGE SECTION?
when SE37 SB37 and sd37 occurs how to increase the volume , primary quantity and secondary quantity?
What is the difference between goback, stop run and exit program in cobol?
What is Static,Dynamic linking ?
What is the significance of the PROGRAM-ID paragraph? If this name doesnt match with the name of the COBOL program, does it make a difference? Is the name specified in the PROGRAM-ID paragraph used as a name for the load module or any such thing?
When is a scope terminator mandatory?
Can you please let me know the centre name of INS certification in Kolkata.
consider the following progrm statements MOVE 0 TO SW.NO.OF.REC PERFORM PRI-OUT UNTIL SW=1 DISPALY NO.OF.REC STOP RUN PRE-OUT READ IN-FILE AT END MOVE 1 TO SW WRITE OUO-REC FROM IN-REC ADD 1 TO NO.OF REC if the IN-FILE contains 1000 records what value will be displayedafter the PERFORM is over?assume that N0.OF.REC has PIC 9(4) a.1000 b.1001 c.1 d.none of the above since there is a syntex error