Interested to Buy Any Domain ? << Click Here >> for more details...
How do you define a table/array in COBOL?
- 5 Answers
- 31476 Views
- Hexaware, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / dipak chowdhury
01 tab
02 OC-TAB.
05 FILLER PIC 9(10) VALUE 0102001002.
05 FILLER PIC 9(10) VALUE 0202001002.
05 FILLER PIC 9(10) VALUE 0302001073.
05 FILLER PIC 9(10) VALUE 0402001002.
05 FILLER PIC 9(10) VALUE 0502001002.
05 FILLER PIC 9(10) VALUE 0602001002.
05 FILLER PIC 9(10) VALUE 0702001002.
05 FILLER PIC 9(10) VALUE 1004301024.
05 FILLER PIC 9(10) VALUE 1102001002.
05 FILLER PIC 9(10) VALUE 1202001002.
05 FILLER PIC 9(10) VALUE 1302001002.
05 FILLER PIC 9(10) VALUE 1602001002.
05 FILLER PIC 9(10) VALUE 3101899012.
05 FILLER PIC 9(10) VALUE 4102001002.
05 FILLER PIC 9(10) VALUE 4402001002.
05 FILLER PIC 9(10) VALUE 5002001002.
05 FILLER PIC 9(10) VALUE 5102001002.
05 FILLER PIC 9(10) VALUE 5302101020.
05 FILLER PIC 9(10) VALUE 5502101003.
05 FILLER PIC 9(10) VALUE 5402101001.
05 FILLER PIC 9(10) VALUE 5602001029.
05 FILLER PIC 9(10) VALUE 5702001017.
05 FILLER PIC 9(10) VALUE 5902001021.
05 FILLER PIC 9(10) VALUE 6302001029.
05 FILLER PIC 9(10) VALUE 6502101001.
05 FILLER PIC 9(10) VALUE 6902001029.
05 FILLER PIC 9(10) VALUE 7402001002.
05 FILLER PIC 9(10) VALUE 9902001002.
02 OC-TABR REDEFINES OC-TAB OCCURS 28 TIMES
indexed by t.
05 OC-CDT PIC 99.
05 OC-FCD-AAA PIC 9(5).
05 OC-FCD-BB PIC 999.
| Is This Answer Correct ? | 34 Yes | 8 No |
Answer / anil prajapati
Table/array can be defined in cobol by using occurs with
times clause
like
working-=storage section.
01 tab1 value 'anilkumarprajapati'.
03 tab2 pic x(3) occurs 6 times indexed by i.
procedure division.
display tab2(i).
stop run.
output will be dsiplayed like
ani
lku
....
| Is This Answer Correct ? | 23 Yes | 9 No |
Answer / thaya
To define a table use occur clause ..
01 WT-TABLE-DATA.
03 WT-TAB-PARM OCCURS 99 TIMES
INDEXED BY WT-TAB-IDX.
05 WT-TAB-PARMREC.
10 TBL-PARM-UPDT-CD PIC X(02).
10 FILLER PIC X(01).
10 TBL-STATUS-FLAG PIC X(01).
10 FILLER PIC X(76).
we can use "depending on" keyword with occure clause to
limit our occurences in output.
| Is This Answer Correct ? | 17 Yes | 3 No |
Answer / sudheer
To define a table use occur clause ..
01 WT-TABLE-DATA.
03 WT-TAB-PARM OCCURS 99 TIMES
INDEXED BY WT-TAB-IDX.
05 WT-TAB-PARMREC.
10 TBL-PARM-UPDT-CD PIC X(02).
10 FILLER PIC X(01).
10 TBL-STATUS-FLAG PIC X(01).
10 FILLER PIC X(76).
| Is This Answer Correct ? | 10 Yes | 2 No |
Answer / mojib khan
To define a table using occurs clause..
working -storage section.
01 table.
*for one dimensional array
02 table-name pic size() occurs n times.
03 field1-name pic size.
03 field2-name pic size.
.......
........
........
03 fieldn-name pic size.
| Is This Answer Correct ? | 7 Yes | 2 No |
What is binary search?
Can the OCCURS clause be at the 01 level?
How can you add a particular field in copybook?
if a dataset is already created with fixed length but after that i want to change fixed length to variable length then how is it possible
What is level 66 used for ?
what is amode(24), amode(31), rmode(24) and rmode(any)?
Identify the invalid dataname from the following: (A) savings-account (B) annual-allocation-for-overhead (C) samount250 (D) 12demand
Wat is the difference between NEXT and CONTINUE statement in cobol,can any one explain with example.
How to read the 2nd last record of a VSAM file? (The file size is huge and we don't know the key)
Give some advantages of REDEFINES clause?
I have a Main Program which is calling Sub-Program which is a DB2 pgm. What will happen if I am not closing the cursor used in the Sub-program? Please advise..
What is the meaning of 'Eject' verb in cobol?
COBOL 
