can we use the two 01 level in file discription ?
- 6 Answers
- 8976 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / vamsi
In a general scenario, we cannot use two 01 level numbers in
the same structure.
We can use this when we want to redefines entire structure only.
Eg:
01 ws-input.
10 name pic x(40).
10 desig pic x(40).
01 ws-input-re redefines ws-input
10 name pic x(30).
10 department pic x(10).
10 designation pic x(20).
10 salary pic s9(13)v99.
10 filler pic x(13).
this way we can use.
| Is This Answer Correct ? | 7 Yes | 1 No |
Answer / sivakumar sekharannair
Two 01 level can be used for the same file, if the file is
a variable length file. Each 01 level identifies the
different layouts.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / janaki
Yes we can.. This means that teh second layout redefines
the first layout.
| Is This Answer Correct ? | 1 Yes | 1 No |
Answer / ramaswaminaidu g
Both vamsi and sivakumar are correct.we can use while
redefining o1 level and while using variable length records.
| Is This Answer Correct ? | 0 Yes | 0 No |
How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?
Describe the difference between subscripting and indexing ?
how will you define vsam file in select clause?
what is meant by binary search?
How do we get current date from system with century in COBOL?
input:- A 10 20 30 40 B 5 7 10 14 C 8 12 14 16.... output:- A = 100,B=36,C=50. Here spaces are considered between numbers. When we give input as above, the numbers should be added n displayed.So please help me out.
How to remove the spaces at end of each record in the output file Via COBOL program? note: The file has a VB length
if you code move high-values to variable,can you move it into numeric variable or alphanumeric variable?
I have a field with data type X(10). I want to perform arithmetic operation on this field? I tried doing it by moving the value into a numeric field. but it didn't work out. I am getting a S0C7 abend. Pls let me know if there is any way of getting this done?
What is the difference between CALL BY VALUE and CALL BY CONTENT?
What is inspect in cobol ?
77 a pic x(4) value '1234' -----> instead of this 'abcd' 77 b pic 9(4) value zeros. move a to b what is the answers for both cases? IS it possible? Give me elementary move rules briefly......
COBOL 
