Is this allowed?
01 WS-TABLE.
03 FILLER-X PIC X(5) VALUE 'AAAAA'.
03 WS-EX REDEFINES FILLER-X OCCURS 5 TIMES PIC X(1).
can redefines clause be used with occurs clause?
Answer Posted / sandy
Bob, using occurs under redefines is also possible.
example.
01 WS-REF-TABLE.
05 WS-DATA1 PIC X(8) VALUE 'TEST '.
05 WS-DATA2 PIC X(8) VALUE 'COBOL '.
01 WS-RED-TABLE REDEFINES WS-REF-TABLE.
10 WS-RED-DATA OCCURS 2 TIMES PIC X(8).
| Is This Answer Correct ? | 3 Yes | 1 No |
Post New Answer View All Answers
how do you define single dimensional array and multidimensional array in your cobol?
Can a Search can be done on a table with or without Index?
What is the difference between a binary search and a sequential search what are the pertinent cobol?
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
i need a small 3d program using inline and outline.
What are the access modes of START statement?
If you are current on the owner of a set, what is the difference between obtain next and obtain first?
What is a scope terminator give example?
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?
how do you reference the fixed unblock file formats from cobol programs
Explain what you understand by passing by value.
What is the use of intialize verb?
In COBOL, what is the different between index and subscript?
INREC AND OUTREC? HOW TO SPLIT 5K RECORDS TO DIFFERENT FILES IN A FILE IN COBOL? RESTART IN COBOL-DB2? ISOLATION LEVELS?